Преглед на файлове

* Added support for $IFEND instead of $ENDIF

git-svn-id: trunk@14046 -
michael преди 16 години
родител
ревизия
3cd9b17536
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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);