Browse Source

* Added support for $IFEND instead of $ENDIF

git-svn-id: trunk@14046 -
michael 15 years ago
parent
commit
3cd9b17536
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-passrc/src/pscanner.pp

+ 1 - 1
packages/fcl-passrc/src/pscanner.pp

@@ -1036,7 +1036,7 @@ begin
                 PPIsSkipping := false
                 PPIsSkipping := false
               else if PPSkipMode = ppSkipElseBranch then
               else if PPSkipMode = ppSkipElseBranch then
                 PPIsSkipping := true;
                 PPIsSkipping := true;
-            end else if Directive = 'ENDIF' then
+            end else if ((Directive = 'ENDIF') or (Directive='IFEND')) then
             begin
             begin
               if PPSkipStackIndex = 0 then
               if PPSkipStackIndex = 0 then
                 Error(SErrInvalidPPEndif);
                 Error(SErrInvalidPPEndif);