* as/z80/asmain.c, as/z80/asm.h, as/z80/asdata.c,

[fw/sdcc] / as / asxxsrc / asnoice.c

diff --git a/as/asxxsrc/asnoice.c b/as/asxxsrc/asnoice.c
new file mode 100644 (file)
index 0000000..7c182e8
--- /dev/null
+++ b/as/asxxsrc/asnoice.c
@@ -0,0 +1,131 @@
+/* asnoice.c */
+
+/*
+ * Extensions to CUG 292 assembler ASxxxx to produce NoICE debug files
+ *
+ * 3-Nov-1997 by John Hartman
+ */
+
+#include <stdio.h>
+#include <setjmp.h>
+#include <string.h>
+#include <ctype.h>
+#include "asm.h"
+
+/* Return basic file name without path or extension.
+   If spacesToUnderscores != 0 then spaces are converted to underscores */
+
+char* BaseFileName( int fileNumber, int spacesToUnderscores )
+{
+        static int prevFile = -1;
+        static char baseName[ PATH_MAX ];
+
+        char *p1, *p2;
+
+        if (fileNumber != prevFile)
+        {
+                prevFile = fileNumber;
+
+                p1 = srcfn[prevFile];
+
+                /* issue a FILE command with full path and extension */
+                fprintf( ofp, ";!FILE %s\n", p1 );
+
+                /* Name starts after any colon or backslash (DOS) */
+                p2 = strrchr( p1, '\\' );
+                if (p2 == NULL) p2 = strrchr( p1, '/' );
+                if (p2 == NULL) p2 = strrchr( p1, ':' );
+                if (p2 == NULL) p2 = p1-1;
+                strcpy( baseName, p2+1 );
+
+                /* Name ends at any separator */
+                p2 = strrchr( baseName, FSEPX );
+                if (p2 != NULL) *p2 = 0;
+                /* SD comment this out since not a ANSI Function */
+                /* strupr( baseName ); */
+
+                if (spacesToUnderscores)
+                {
+                  /* Convert spaces to underscores */
+                  for (p1 = baseName; *p1; ++p1)
+                    if (isspace(*p1))
+                      *p1 = '_';
+                }
+        }
+        return baseName;
+}
+
+/* Define a symbol for current location:  FILE.line# */
+void DefineNoICE_Line()
+{
+        char name[ NCPS ];
+        struct sym *pSym;
+
+        /* symbol is FILE.nnn */
+        sprintf( name, "%s.%u", BaseFileName( cfile, 0 ), srcline[ cfile ] );
+
+        pSym = lookup( name );
+        pSym->s_type = S_USER;
+        pSym->s_area = dot.s_area;
+        pSym->s_addr = laddr;
+        pSym->s_flag |= S_GBL;
+}
+
+/* Define a symbol for current location:  A$FILE$line# */
+void DefineCDB_Line()
+{
+        char name[ NCPS ];
+        struct sym *pSym;
+
+        /* symbol is FILE.nnn */
+        sprintf( name, "A$%s$%u", BaseFileName( cfile, 1 ), srcline[ cfile ] );
+
+        pSym = lookup( name );
+        pSym->s_type = S_USER;
+        pSym->s_area = dot.s_area;
+        pSym->s_addr = laddr;
+        pSym->s_flag |= S_GBL;
+}
+
+#if 0
+OLD VERSION
+/* Define a symbol for current location:  FILE.line# */
+void DefineNoICE_Line()
+{
+        static int prevFile = -1;
+        static struct area *pPrevArea = NULL;
+        static char baseName[ PATH_MAX ];
+
+        int j;
+        char *p1, *p2;
+
+        /* Get outfilename without extension for use as base symbol name */
+        if (baseName[0] == 0)
+        {
+                p1 = srcfn[0];
+                p2 = baseName;
+                while ((*p1 != 0) && (*p1 != FSEPX))
+                {
+                        *p2++ = *p1++;
+                }
+                *p2 = 0;
+                /* SD Commented this out since it is not a
+                   ASNI Function */
+                /* strupr( baseName ); */
+        }
+
+        if ((cfile != prevFile) || (dot.s_area != pPrevArea))
+        {
+                prevFile = cfile;
+                pPrevArea = dot.s_area;
+
+                /* file or area change: issue FILE command with base @ */
+                fprintf( ofp, ";!FILE %s %s_%s\n", srcfn[ cfile ],
+                         baseName,
+                         dot.s_area->a_id );
+        }
+
+        fprintf( ofp, ";!LINE %u. 0x%X\n", srcline[ cfile ], laddr );
+}
+
+#endif