paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added IF directive skipping

Browse Source
This commit is contained in:
Mattias Gaertner 2003-09-02 13:26:06 +00:00
parent 8585d3d0b8
commit f3049a8c59
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fcl/passrc/pscanner.pp
View File

@ -510,7 +510,7 @@ begin
end;
FCurTokenString := '';
case TokenStr[0] of
#0: // Empty line
begin
@ -936,6 +936,24 @@ begin
PPSkipMode := ppSkipIfBranch;
PPIsSkipping := True;
end;
end else if Directive = 'IF' then
begin
if PPSkipStackIndex = High(PPSkipModeStack) then
Error(SErrIfXXXNestingLimitReached);
PPSkipModeStack[PPSkipStackIndex] := PPSkipMode;
PPIsSkippingStack[PPSkipStackIndex] := PPIsSkipping;
Inc(PPSkipStackIndex);
if PPIsSkipping then
begin
PPSkipMode := ppSkipAll;
PPIsSkipping := True;
end else
begin
{ !!!: Currently, expressions are not supported, so they are
just assumed as evaluating to false. }
PPSkipMode := ppSkipIfBranch;
PPIsSkipping := True;
end;
end else if Directive = 'ELSE' then
begin
if PPSkipStackIndex = 0 then
@ -996,7 +1014,10 @@ end.
{
$Log$
Revision 1.3 2003-04-04 08:01:55 michael
Revision 1.4 2003-09-02 13:26:06 mattias
MG: added IF directive skipping
Revision 1.3 2003/04/04 08:01:55 michael
+ Patch from Jeff Pohlmeyer to read less than and larger than
Revision 1.2 2003/03/27 16:32:48 sg