cannot put a "object" as the "read" action of a property (Internal error 200402171)
Original Reporter info from Mantis: dannym
-
Reporter name: Danny Milosavljevic
Original Reporter info from Mantis: dannym
- Reporter name: Danny Milosavljevic
Description:
{$M+}
type
TFooR = object { put "record" here and it works. }
Thing : Integer;
end;
TFoo = class
private
fRecord : TFooR;
published
property Thing : Integer read fRecord.Thing;
end;
var
fFoo : TFoo;
begin
fFoo := TFoo.Create;
Writeln(fFoo.Thing);
end.
$ fpc -Sd test2.PP
Free Pascal Compiler version 2.2.2 [2008/10/05] for i386
Copyright (c) 1993-2008 by Florian Klaempfl
Target OS: Linux for i386
Compiling test2.PP
Fatal: Internal error 200402171
Fatal: Compilation aborted
Additional information:
works fine if I put "TFooR = record" instead of "TFooR = object".
Mantis conversion info:
- Mantis ID: 12756
- Version: 2.2.2
- Fixed in version: 2.4.0
- Fixed in revision: 12956 (#624a7be9)