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

* Handle forward external objcclass

Michaël Van Canneyt преди 2 години
родител
ревизия
5b1574bd63
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  1. 3 0
      packages/fcl-passrc/src/pparser.pp

+ 3 - 0
packages/fcl-passrc/src/pparser.pp

@@ -7456,6 +7456,9 @@ begin
     begin
     begin
     Result:=True;
     Result:=True;
     NextToken;
     NextToken;
+    // Forward external declaration ?
+    if CurToken=tkSemicolon then
+      exit;
     if CurToken<>tkString then
     if CurToken<>tkString then
       UnGetToken
       UnGetToken
     else
     else