[fpc-pascal] FPC bug or brain bug ?

[Jonas Maebe]

On 27 May 2010, at 21:51, Flávio Etrusco wrote:

> On Thu, May 27, 2010 at 11:01 AM, Yann Bat <batyann811 at gmail.com> wrote:
>> type
>>  TBlob = object
>>    private
>>      fId : LongInt;
>> 
>>    public
>>      constructor Init;
>>      function Id: LongInt;
>>  end;
>> 
>>  PBlob=^TBlob;
>> 
>> const
>>  NullBlob : TBlob = (fId: 0);
>> 
>> {=== TBlob ===}
>> constructor TBlob.Init;
>> begin
>>  fId:=Random(1024) + 1;
>> end;
>> 
> 
> All TObject descendants have a VMT.

The above is not a TObject descendant. It's a TP-style object.


Jonas