Browse Source

* Handle forward external objcclass

Michaël Van Canneyt 2 năm trước cách đây
mục cha
commit
5b1574bd63
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  1. 3 0
      packages/fcl-passrc/src/pparser.pp

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

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