hi all,

i am trying to replace the code from delphi to fpc where the code looks like:

TYPE THackReader =class(TReader);

...

    FReaderStream.Position := 0;
    {$IFDEF FPC}
    try
      FReader.ReadListBegin;
      while not FReader.EndOfList do begin
        THackReader(FReader).ReadProperty(Obj1);
      end;
      Freader.ReadListEnd;
    except
    end;
    {$ELSE}
    FReader.Position := 0;
    try
      while FReader.Position < FReaderStream.Size do
        THackReader(FReader).ReadProperty(Obj1);
    except
    end;
    {$ENDIF}

but my code in FPC raises an exception in ReadListBegin method and I am not sure if it is correct way to read back properties to Obj1.

PS: How can I debug TReader class, because debuger steps over my calls from TReader.

Thanx.

Fred.

No, it is not. However, based on the sample code, it's not possible to give detailed advice. The above is already a Delphi hack - you can't expect it to work as-is in FPC.

In general, I would expect you to use DefineProperties.

PS: How can I debug TReader class, because debuger steps over my calls from TReader.

You must recompile the RTL with debug information, and then recompile your project.

Michael.

Thanks for answer, but please could you assist me how to build RTL with debug infos.

Thanks.

Michael Van Canneyt wrote

You must recompile the RTL with debug information, and then recompile your project.

I am using Ubuntu 10.04 with create_fpc_deb.sh script to get FPC DEB package and this script doesn't have option to set

OPT=-gl to build debug version. How can I build it then?

Thanks, F.

I don't know that, I have no experience with the .deb packaging, so I can't help there.

I use

make OPT=-gl all

in the sources directory. After that a 'make install' installs everything.

Michael.

See post from about two weeks ago. "Building FPC with debug information"