Browse Source

+ tmacrosym is_used and defined_at_startup boolean fields added

pierre 26 years ago
parent
commit
f2f1fed583
2 changed files with 13 additions and 3 deletions
  1. 6 1
      compiler/symsym.inc
  2. 7 2
      compiler/symsymh.inc

+ 6 - 1
compiler/symsym.inc

@@ -2141,6 +2141,8 @@
          inherited init(n);
          typ:=macrosym;
          defined:=true;
+         defined_at_startup:=false;
+         is_used:=false;
          buftext:=nil;
          buflen:=0;
       end;
@@ -2155,7 +2157,10 @@
 
 {
   $Log$
-  Revision 1.116  1999-08-24 22:38:55  michael
+  Revision 1.117  1999-08-31 15:42:24  pierre
+   + tmacrosym is_used and defined_at_startup boolean fields added
+
+  Revision 1.116  1999/08/24 22:38:55  michael
   * more resourcestring changes
 
   Revision 1.115  1999/08/23 11:45:42  michael

+ 7 - 2
compiler/symsymh.inc

@@ -88,7 +88,9 @@
 
        pmacrosym = ^tmacrosym;
        tmacrosym = object(tsym)
-          defined : boolean;
+          defined,
+          defined_at_startup,
+          is_used : boolean;
           buftext : pchar;
           buflen  : longint;
           { macros aren't written to PPU files ! }
@@ -336,7 +338,10 @@
 
 {
   $Log$
-  Revision 1.33  1999-08-23 11:45:45  michael
+  Revision 1.34  1999-08-31 15:42:26  pierre
+   + tmacrosym is_used and defined_at_startup boolean fields added
+
+  Revision 1.33  1999/08/23 11:45:45  michael
   * Hopefully final attempt at resourcestrings
 
   Revision 1.32  1999/08/14 00:39:01  peter