[fpc-pascal] "Continue" not work properly in except clause on win64
Toru Takubo
takubo at e-parcel.co.jp
Fri Aug 28 11:02:38 CEST 2015
Hi all,
I'm trying FPC 3.0.0-rc1 and find "Continue" does not work properly
in except clause but just jump to finally clause on win64.
Here is a sample code:
----------------------------
program sample;
{$mode objfpc}
uses
SysUtils;
var
i: Integer;
begin
try
for i:=0 to 2 do begin
try
Writeln(IntToStr(i));
raise Exception.Create('');
except
Continue;
end;
end;
finally
Writeln('done.');
Readln;
end;
end.
----------------------------
The result on win32:
----------------------------
0
1
2
done.
----------------------------
The result on win64
----------------------------
0
done.
----------------------------
Why such difference? Is this a bug?
Regards,
Toru
More information about the fpc-pascal
mailing list