diff options
| -rw-r--r-- | packages/fcl-passrc/src/pscanner.pp | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp index 33776fca1c..95b8570fc8 100644 --- a/packages/fcl-passrc/src/pscanner.pp +++ b/packages/fcl-passrc/src/pscanner.pp @@ -1071,8 +1071,11 @@ begin Result := tkIdentifier; end; - else - Error(SErrInvalidCharacter, [TokenStr[0]]); + else + if PPIsSkipping then + Inc(TokenStr) + else + Error(SErrInvalidCharacter, [TokenStr[0]]); end; FCurToken := Result; |