mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
36 lines
484 B
ObjectPascal
36 lines
484 B
ObjectPascal
program fpc_advrec_bug;
|
|
|
|
{$mode delphi}
|
|
{$optimization off}
|
|
|
|
Uses TypInfo;
|
|
|
|
Type
|
|
|
|
PTypeInfoRec = Record
|
|
FValue : PTypeInfo;
|
|
Function QualifiedName : String;
|
|
End;
|
|
|
|
Function PTypeInfoRec.QualifiedName : String;
|
|
Begin
|
|
Result := '';
|
|
End;
|
|
|
|
function Test : Pointer;
|
|
Begin
|
|
Result := nil;
|
|
End;
|
|
|
|
Var
|
|
|
|
p : PTypeInfo;
|
|
|
|
begin
|
|
|
|
PTypeInfoRec(p).QualifiedName; // OK
|
|
PTypeInfoRec(Test).QualifiedName; // OK
|
|
PTypeInfoRec(TypeInfo(String)).QualifiedName; // Internal error 200304235
|
|
|
|
end.
|