improved symbol table generation when source file has line directives

diff --git a/lang/cem/cemcom.ansi/domacro.c b/lang/cem/cemcom.ansi/domacro.c
index 3722d85..de6768f 100644 (file)
--- a/lang/cem/cemcom.ansi/domacro.c
+++ b/lang/cem/cemcom.ansi/domacro.c
@@ -809,6 +809,11 @@ do_line(l)
                 * Do not attempt to free the old string, since it might
                 * be used in a def structure.
                 */
+#ifdef DBSYMTAB
+               if (options['g'] && strcmp(FileName, tk.tk_bts) != 0) {
+                       C_ms_std(tk.tk_bts, N_SOL, 0);
+               }
+#endif /* DBSYMTAB */
                FileName = tk.tk_bts;
        }
 }

diff --git a/lang/cem/cemcom/domacro.c b/lang/cem/cemcom/domacro.c
index 46d01d8..02677bf 100644 (file)
--- a/lang/cem/cemcom/domacro.c
+++ b/lang/cem/cemcom/domacro.c
@@ -712,6 +712,12 @@ do_line(l)
 
        SkipRestOfLine();
        LineNumber = l;         /* the number of the next input line */
-       if (t == STRING)        /* is there a filespecifier? */
+       if (t == STRING) {      /* is there a filespecifier? */
+#ifdef DBSYMTAB
+               if (options['g'] && strcmp(FileName, tk.tk_bts) != 0) {
+                       C_ms_std(tk.tk_bts, N_SOL, 0);
+               }
+#endif /* DBSYMTAB */
                FileName = tk.tk_bts;
+       }
 }