[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