Redefinition of TObject and function reference in unit gives internal error 2022010801
Run this program twice to get the error.
{$mode objfpc}
unit uinternal_error;
interface
type
TObject = class
end;
implementation
end.
{$mode objfpc}
{$modeswitch functionreferences}
program internal_error;
uses
uinternal_error;
var
obj: TObject;
proc: reference to procedure;
begin
obj := TObject.Create;
proc := @obj.Free;
end.