* included the 1.60 version of Pierre which was lost !

compiler/scandir.inc

@@ -358,6 +358,8 @@ const
                   current_scanner^.skipspace;
                   hs:=current_scanner^.readid;
                   mac:=pmacrosym(macros^.search(hs));
+                  if assigned(mac) then
+                    mac^.is_used:=true;
                   current_scanner^.addpreprocstack(pp_ifdef,assigned(mac) and mac^.defined,hs,scan_c_ifdef_found);
                 end;
    _DIR_IFOPT : begin
@@ -384,6 +386,8 @@ const
                   current_scanner^.skipspace;
                   hs:=current_scanner^.readid;
                   mac:=pmacrosym(macros^.search(hs));
+                  if assigned(mac) then
+                    mac^.is_used:=true;
                   current_scanner^.addpreprocstack(pp_ifndef,not(assigned(mac) and mac^.defined),hs,scan_c_ifndef_found);
                 end;
            end;
@@ -434,6 +438,7 @@ const
                mac^.buftext:=nil;
              end;
           end;
+        mac^.is_used:=true;
         if (cs_support_macro in aktmoduleswitches) then
           begin
           { key words are never substituted }
@@ -501,6 +506,7 @@ const
                   mac^.buftext:=nil;
                end;
           end;
+        mac^.is_used:=true;
       end;
 
 
@@ -1140,11 +1146,17 @@ const
 
 {
   $Log$
-  Revision 1.61  1999-09-02 18:47:46  daniel
+  Revision 1.62  1999-09-03 10:00:49  peter
+    * included the 1.60 version of Pierre which was lost !
+
+  Revision 1.61  1999/09/02 18:47:46  daniel
     * Could not compile with TP, some arrays moved to heap
     * NOAG386BIN default for TP
     * AG386* files were not compatible with TP, fixed.
 
+  Revision 1.60  1999/08/31 15:55:45  pierre
+    + tmacrosym.is_used set
+
   Revision 1.59  1999/08/05 16:53:10  peter
     * V_Fatal=1, all other V_ are also increased
     * Check for local procedure when assigning procvar