diff options
Diffstat (limited to 'packages/fcl-passrc/src/pscanner.pp')
| -rw-r--r-- | packages/fcl-passrc/src/pscanner.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp index 95b8570fc8..1557922189 100644 --- a/packages/fcl-passrc/src/pscanner.pp +++ b/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); |