paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 22:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* included the 1.60 version of Pierre which was lost !

Browse Source
This commit is contained in:
peter 1999-09-03 10:00:49 +00:00
parent 7ad9983cb7
commit 6b25740f01
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/scandir.inc
View File

@ -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