[fpc-pascal] Array [THandle] of pointer

Andrew Brunner andrew.t.brunner at gmail.com
Wed Dec 24 00:02:02 CET 2008


Following Setup:
  Ubuntu 8.10 x64
  FPC 2.2.3 (latest and greatest)
  Lazarus (Latest and greatest)

I'm seeing an anomaly with reading/writing to an Array[THandle] of Pointers.

TMyStruct=record
  Index:integer;
end;
PMyStruct=^TMyStruct;
TMyList = Array[THandle] of PMyStruct;


If I declare a localized variable
procedure Test();
var
  MyTest:TMyList;
  hThread:THandle;
begin
  hThread:=getCurrentThreadID;
  if (MyTest[hThread])=nil then begin // <---- CRASH HERE EXTERNAL SIGBUS
  end;
end;


This should not crash here.  It should have been nil.

Any work being done in this area or should I report another bug?



More information about the fpc-pascal mailing list