[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