Browse Source

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

git-svn-id: trunk@34965 -
michael 8 years ago
parent
commit
629d8277da
1 changed files with 1 additions and 1 deletions
  1. 1 1
      utils/ppdep.pp

+ 1 - 1
utils/ppdep.pp

@@ -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^:='';