Quellcode durchsuchen

* fix bug ID #31540

git-svn-id: trunk@35588 -
michael vor 8 Jahren
Ursprung
Commit
3b9956dd3e
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  1. 2 1
      packages/fcl-passrc/src/pscanner.pp

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

@@ -1310,7 +1310,8 @@ begin
         FCurToken:=tkIdentifier;
         FCurToken:=tkIdentifier;
         Result:=FCurToken;
         Result:=FCurToken;
         end;
         end;
-      Break;
+      if not PPIsSkipping then
+        Break;
       end;
       end;
     else
     else
       if not PPIsSkipping then
       if not PPIsSkipping then