I noticed something weird while writing some code this afternoon.
Seems FreePascal discards reference values (that is strings, arrays, classes etc) assigned to a record in a static class constructor.
Take a look at the sample below.
program BugFPC;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF FPC}
uses
SysUtils;
type
TBug = record
strict private
class constructor Bugger();
public
var
a: Int32;
st: string;
arr: TBytes;
class var
skim: TBug;
constructor Create(b: Int32);
end;
{ TBug }
class constructor TBug.Bugger;
begin
skim := Default (TBug);
skim.a := 5;
skim.st := 'fish';
skim.arr := TBytes.Create(1, 2, 3);
Writeln(skim.a); // should be 5
Writeln(skim.st);
Writeln(Length(skim.arr)); // should be 3
end;
constructor TBug.Create(b: Int32);
var
temp: TBug;
begin
temp := skim;
Writeln(temp.a); // should be 5
Writeln(temp.st);
Writeln(Length(skim.arr)); // should be 3 but got 0
end;
begin
try
TBug.Create(9);
ReadLn;
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
if I run this code with Delphi, it prints out
5
fish
3
5
fish
3
which is the correct answer but FPC prints out
5
fish
3
5
0
please, is there any way to circumvent this issue and get the standard Delphi Behaviour which is obviously correct?
can anyone with the latest stable and trunk versions please test.
I did test with Lazarus 1.9.0 r55891 FPC 3.1.1 i386-win32-win32/win64 Trunk since this is the only version I have at the moment.
Regards.
Recent
