paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 10:50:31 +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^:='';
end
else
if (Copy(hs^,2,6)='$ELSE') then
if (Copy(hs^,2,5)='$ELSE') then
begin
skip[level]:=skip[level-1] or (not skip[level]);
hs^:='';