Internal error 200304235 on advanced record
Original Reporter info from Mantis: kazalex
-
Reporter name: Kazantsev Alexey
Original Reporter info from Mantis: kazalex
- Reporter name: Kazantsev Alexey
Description:
fpc_advrec_bug.pas(27,2) Fatal: Internal error 200304235
Steps to reproduce:
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;
Var
p : Pointer;
begin
PTypeInfoRec(p).QualifiedName; // OK
PTypeInfoRec(TypeInfo(String)).QualifiedName; // Internal error 200304235
end.
Mantis conversion info:
- Mantis ID: 26075
- Build: 27643
- Version: 2.7.1
- Fixed in version: 3.0.0
- Fixed in revision: 29139 (#854fa1d4)
- Monitored by: » kazalex (Kazantsev Alexey)