blob: 251c252a01dc8b0d85dccec6d851ac379633a717 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
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.
|
