Browse Source

* Handle forward external objcclass

Michaël Van Canneyt 1 year ago
parent
commit
5b1574bd63
1 changed files with 3 additions and 0 deletions
  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