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;