Hi list.
Before I think about creating about report i better ask if it is
possible to have static string in a class. The following construct
fails using fpc 2.4.0 during the decrease of ansistring references.
When cl.free is called, the call to CleanupInstance correctly identifies
cl.c as a nil pointer, but something is wrong when it tries do
dereference the reference pointer in fpc_ansistr_decr_ref.
Should I report this is a bug or is static ansistrings not posible?
Kind regards,
Torsten Bonde Christiansen.
========================
{ TBase }
{$static on}
TBase = class
public
a: string; static;
public
constructor Create; virtual;
end;
{$static off}
{ TInherited }
TInherited = class(TBase)
private
c: string;
public
constructor Create; override;
destructor Destroy; override;
end;
var
cl: TInherited;
begin
cl := TInherited.Create;
cl.a := 'asdf';
cl.Free;
end;
{ TBase }
constructor TBase.Create;
begin
end;
{ TInherited }
constructor TInherited.Create;
begin
inherited Create;
c := 'abc';
end;
destructor TInherited.Destroy;
begin
c := '';
inherited Destroy;
end;
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
