paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 18:49:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Handle forward external objcclass

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-17 16:23:06 +01:00
parent b7c00a2116
commit 5b1574bd63
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-passrc/src/pparser.pp
View File

@ -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