type not found for array of anonymous record

[User4martin]

Run to "write" line

(pdr) print x
[ERROR] <error: element type not found>

program project1; {$Mode objfpc}
type
  TRec = array of record
    a: byte;
  end;
var x : TRec;

begin
  SetLength(x,2);
  x[0].a := 12;
  write(x[0].a);
end.

---

Same for

(pdr) print x
X = TRec { a: 12, b: <error: type not found> }

program project1; {$Mode objfpc}
type
  TRec = record
    a: byte;
    b: record
      c: word;
    end;
  end;
var x : TRec;

begin
  x.a := 12;
  x.b.c := 11;
  write(x.a);
end.

[User4martin]

And also for types declared nested in other types:

(pdr) p a
[ERROR] <error: type not found>

program project1;
{$Mode objfpc}

type
  T1 = class
  public type
    TFoo = record a,b,c: word; end;
  end;
  TFoo = record x: qword end;
var
  a: T1.TFoo;
  b: TFoo;

begin
  a.a := 1;
  a.b := 2;
  b.x:= 11;
  writeln;
  writeln;
  writeln;
  writeln;
end.

[graemeg]

Cannot test the original issue with Blaise — anonymous record types (array of record ... end) are not supported in Blaise. However, the equivalent with named records works correctly: array of TInner where TInner is a named record displays all fields and values properly, including nested records.

The second part of this issue (nested anonymous record field giving "type not found") also works correctly with Blaise when using named record types.

Note: FPC compiler work on OPDF is halted until there is confirmation that the FPC team are interested in supporting OPDF integration.