i did rewrote the whole program, and the bug vanished... so i cannot
recreate the problem in a test case... (?)
sorry about the inconvenience...
___
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-
On Sat, 16 Jan 2010 07:43:59 -0300
"Jorge Aldo G. de F. Junior" wrote:
> well, the bug still stands...
>
> fTypeData := GetTypeData(Self.ClassInfo);
This works here.
Do you have a complete example?
> this line is the problem... looks like i cannot either "GetTypeData"
> of self in cons
well, the bug still stands...
fTypeData := GetTypeData(Self.ClassInfo);
this line is the problem... looks like i cannot either "GetTypeData"
of self in constructor or that Self.ClassInfo doesnt exists until
constructor finishs, something like that broken in the RTTI code
_
Jorge Aldo G. de F. Junior wrote:
the error happens even if i remove all statements in the constructor...
Constructor TRTTIObject.Create(Const aInstanceName: String);
Begin
Inherited Create;
End;
Still gives errors... (why should a constructor call the destructor anyway ?)
If a construct
the error happens even if i remove all statements in the constructor...
Constructor TRTTIObject.Create(Const aInstanceName: String);
Begin
Inherited Create;
End;
Still gives errors... (why should a constructor call the destructor anyway ?)
2010/1/15 cobines :
> 2010/1/15 Jorge Aldo G. de F.
2010/1/15 Jorge Aldo G. de F. Junior :
> -
> C:\Programacao\testcase>rttiobject-testcase.exe
> An unhandled exception occurred at $0040E1E7 :
> EAccessViolation : Access violation
> $0040E1E7 TRTTIOBJECT__DESTROY, line 143 of RTTIObject.pas
> $0040E18A TRTTIOBJE
The following code:
-
Unit
RTTIObject;
Interface
Uses
Classes,
SysUtils,
StrUtils,
Contnrs,
TypInfo;
Type
TRTTIObject = Class(TObject)
Private
fInstanceName: String;
