Initial revision

1 files changed, 79 insertions, 0 deletions

diff --git a/gas/debug.c b/gas/debug.c
new file mode 100644
index 0000000..c1e1dbe
--- /dev/null
+++ b/gas/debug.c
@@ -0,0 +1,79 @@
+/* Routines for debug use only.  Don't link into product.
+ */
+
+#include "as.h"
+#include "subsegs.h"
+
+dmp_frags()
+{
+	frchainS *chp;
+	char *p;
+
+	for ( chp=frchain_root; chp; chp = chp->frch_next ){
+		switch ( chp->frch_seg ){
+			case SEG_DATA:
+				p ="Data";
+				break;
+			case SEG_TEXT:
+				p ="Text";
+				break;
+			default:
+				p ="???";
+				break;
+		}
+		printf("\nSEGMENT %s %d\n", p, chp->frch_subseg);
+		dmp_frag( chp->frch_root,"\t");
+	}
+}
+
+dmp_frag( fp, indent )
+    struct frag *fp;
+    char *indent;
+{
+	for ( ; fp; fp = fp->fr_next ){
+		printf("%sFRAGMENT @ 0x%x\n", indent, fp);
+		switch( fp->fr_type ){
+			case rs_align:
+				printf("%srs_align(%d)\n",indent, fp->fr_offset);
+				break;
+			case rs_fill:
+				printf("%srs_fill(%d)\n",indent, fp->fr_offset);
+				printf("%s", indent);
+				var_chars( fp, fp->fr_var + fp->fr_fix );
+				printf("%s\t repeated %d times,",
+							indent, fp->fr_offset);
+				printf(" fixed length if # chars == 0)\n");
+				break;
+			case rs_org:
+				printf("%srs_org(%d+sym @0x%x)\n",indent,
+					fp->fr_offset, fp->fr_symbol);
+				printf("%sfill with ",indent);
+				var_chars( fp, 1 );
+				printf("\n");
+				break;
+			case rs_machine_dependent:
+				printf("%smachine_dep\n",indent);
+				break;
+			default:
+				printf("%sunknown type\n",indent);
+				break;
+		}
+		printf("%saddr=%d(0x%x)\n",indent,fp->fr_address,fp->fr_address);
+		printf("%sfr_fix=%d\n",indent,fp->fr_fix);
+		printf("%sfr_var=%d\n",indent,fp->fr_var);
+		printf("%sfr_offset=%d\n",indent,fp->fr_offset);
+		printf("%schars @ 0x%x\n",indent,fp->fr_literal);
+		printf("\n");
+	}
+}
+
+var_chars( fp, n )
+    struct frag *fp;
+    int n;
+{
+	unsigned char *p;
+
+	for ( p=(unsigned char*)fp->fr_literal; n; n-- , p++ ){
+		printf("%02x ", *p );
+	}
+}