fcl-passrc fails with goto
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
program Project1;
function add_to(const a:Tconstexprint;b:qword):Tconstexprint;
var sspace,uspace:qword;
label try_qword;
begin
if expr then
dosomething
else if expr2 then
goto try_qword
else
dosomething2;
try_qword:
dosomething3;
end;
begin
end.
Gives Parser error: "Expected ";" at token "else" at line 13 column 6"
Mantis conversion info:
- Mantis ID: 31524
- Fixed in version: 3.1.1
- Fixed in revision: 35593 (#0a9031c7)
- Target version: 3.2.0