浏览代码

* 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