From dfa2b6a7a7cec7085f3fb643e4b3d994b3284198 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Tue, 29 May 1990 22:35:14 -0800
Subject: [PATCH] BSD 4_3_Net_2 development Work on file
 usr/src/usr.bin/gcc/cc1/.gdbinit

Synthesized-from: CSRG/cd2/net.2
---
 usr/src/usr.bin/gcc/cc1/.gdbinit | 58 ++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 usr/src/usr.bin/gcc/cc1/.gdbinit

diff --git a/usr/src/usr.bin/gcc/cc1/.gdbinit b/usr/src/usr.bin/gcc/cc1/.gdbinit
new file mode 100644
index 0000000000..ca93679365
--- /dev/null
+++ b/usr/src/usr.bin/gcc/cc1/.gdbinit
@@ -0,0 +1,58 @@
+define pr
+set debug_rtx ($)
+end
+
+document pr
+Print the full structure of the rtx that is $.
+Works only when an inferior is executing.
+end
+
+define pt
+set debug_tree ($)
+end
+
+document pt
+Print the full structure of the tree that is $.
+Works only when an inferior is executing.
+end
+
+define ptc
+output (enum tree_code) $.common.code
+echo \n
+end
+
+document ptc
+Print the tree-code of the tree node that is $.
+end
+
+define pdn
+output $.decl.name->identifier.pointer
+echo \n
+end
+
+document pdn
+Print the name of the decl-node that is $.
+end
+
+define prc
+output (enum rtx_code) $.code
+echo \ (
+output $.mode
+echo )\n
+end
+
+document prc
+Print the rtx-code and machine mode of the rtx that is $.
+end
+
+define pi
+print $.fld[0].rtx@7
+end
+
+document pi
+Print the fields of an instruction that is $.
+end
+
+# Don't let abort actually run, as it will make
+# stdio stop working and therefore the `pr' command below as well.
+b abort
-- 
2.20.1