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

* Patch from Michalis Kamburelis to fix scanning of $ELSE (bug ID 31007)

Browse Source 
git-svn-id: trunk@34965 -
This commit is contained in:
michael 2016-11-26 13:32:52 +00:00
parent 2f1addbb11
commit 629d8277da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/ppdep.pp
View File

@ -344,7 +344,7 @@ begin
hs^:=''; hs^:='';
end end
else else
if (Copy(hs^,2,6)='$ELSE') then if (Copy(hs^,2,5)='$ELSE') then
begin begin
skip[level]:=skip[level-1] or (not skip[level]); skip[level]:=skip[level-1] or (not skip[level]);
hs^:=''; hs^:='';