[fpc-pascal] "Continue" not work properly in except clause on win64

[Toru Takubo]

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
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal