The following innocuous looking code generates a range check error:

{$R+}
function Count: qword;
begin
  Result := 0;
end;
var
  i: Integer;
begin
  for i := 0 to Count-1 do
    WriteLn(i);
end.

I can (more or less) see why, but it means that I can't (for example) compile the Cocoa widget set in 64 bit with bounds checking on, as then qword seems to be used as a count for, for example, NSarray.

Am I missing something?

Colin
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Reply via email to