Explorar o código

* Added support for $IFEND instead of $ENDIF

git-svn-id: trunk@14046 -
michael %!s(int64=15) %!d(string=hai) anos
pai
achega
3cd9b17536
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/fcl-passrc/src/pscanner.pp

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

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