paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tmacrosym.is_used set

Browse Source
This commit is contained in:
pierre 1999-08-31 15:55:45 +00:00
parent 5b38d71a12
commit 72507a8397
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scandir.inc
View File

@ -307,6 +307,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
@ -333,6 +335,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;
@ -383,6 +387,7 @@ const
mac^.buftext:=nil;
end;
end;
mac^.is_used:=true;
if (cs_support_macro in aktmoduleswitches) then
begin
{ key words are never substituted }
@ -450,6 +455,7 @@ const
mac^.buftext:=nil;
end;
end;
mac^.is_used:=true;
end;
@ -1089,7 +1095,10 @@ const
{
$Log$
Revision 1.59 1999-08-05 16:53:10 peter
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
* fixed comment parsing because directives