Hi,

Another issue in FPC 2.0.1 on Win2000 that doesn't occur in Delphi. As I mentioned before, I am busy porting our Delphi app. The Delphi app had 1400 unit tests, which I am now busy working through to find out why they are failing under FPC.

In the code below, tiListToStream calls tiGetPropertyNames which internally calls GetPropList (the first one), which then throws an Access Violation and reports a error in GetTypeData. See error at end of email.

I traced into GetPropList to line 663 which assigns the @InsertPropnosort event handler.

begin
   if sorted then

else
; <<== gives AV here
<...snip...>

Any ideas on this one?

----------------------------------------------

procedure tiListToStream(AStream : TStream ;
                          AList : TtiObjectList) ;
var
   lFields  : TStringList ;
begin
   Assert(AStreamnil, 'AStream not assigned');
   Assert(AList.TestValid, cErrorTIPerObjAbsTestValid);
   Assert(AList.Count > 0, 'AList.Count = 0');
   lFields := TStringList.Create ;
   try
     tiGetPropertyNames(AList.Items[0], lFields );
<...snip...>
-------------------------------------------------
procedure tiGetPropertyNames( pPersistent : TtiBaseObjectClass ;
                               pSL : TStringList ;
                               pPropFilter : TTypeKinds = ctkSimple ) ;
var
   lCount : integer ;
   lSize  : integer ;
   lList  : PPropList ;
   i : integer ;
   lPropFilter : TTypeKinds ;
begin
   Assert( pSL  nil, 'pSL not assigned.' ) ;
   lPropFilter := pPropFilter ;
   pSL.Clear ;
   lCount  := GetPropList(pPersistent.ClassInfo, lPropFilter, nil, false);
   lSize   := lCount * SizeOf(Pointer);
   GetMem(lList, lSize);
   try
     GetPropList(pPersistent.ClassInfo, lPropFilter, lList, false);
     for i := 0 to lcount - 1 do
       pSL.Add( lList^[i]^.Name ) ;
   finally
     FreeMem( lList, lSize ) ;
   end ;
end ;
-------------------------------------------------

<Error>
<Message>TTestTIUtils.tiListToStreamDefault: Access violation</Message> <ExceptionClass>EAccessViolation</ExceptionClass>
<ExceptionMessage>Access violation</ExceptionMessage> <SourceUnitName>../objpas/typinfo.pp</SourceUnitName> <LineNumber>478</LineNumber>
<FailedMethodName>GETTYPEDATA</FailedMethodName>
</Error>
---------------------------------------------------

Regards,
- Graeme -