Strange Bug with TFileStream on Lazarus MacOS

[wagenheimer]

Code: [Select]

  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    LoadFromStream(Stream);
  finally
    Stream.Free;
  end;

I'm getting Access Violations on Stream.Free on Lazarus 0.9.31 and FPC 2.4.2, on MacOS. The same code works on Delphi 2010.

If I remove Stream.Free it works, but the file remains open.

Has anyone gone through something similar?

[Laksen]

What if you comment out the call to LoadFromStream?

[wagenheimer]

Thanks Laksen!

The problem seens to happens in the LaodFromStream.

I found the problem happens here :

Code: [Select]

  Stream.Read(FFilterMin, SizeOf(FFilterMin));
  Stream.Read(FFilterMag, SizeOf(FFilterMag));

 TPHXTextureFilter = (
    // GL_NEAREST
    tfNearest,
    // GL_LINEAR
    tfLinear,
    // GL_NEAREST_MIPMAP_NEAREST
    tfNearestMipmapNearest,
    // GL_LINEAR_MIPMAP_NEAREST
    tfLinearMipmapNearest,
    // GL_NEAREST_MIPMAP_LINEAR
    tfNearestMipmapLinear,
    // GL_LINEAR_MIPMAP_LINEAR
    tfLinearMipmapLinear);

  TPHXTextureFilterMag = tfNearest .. tfLinear;

  TPHXTextureFilterMin = tfNearest .. tfLinearMipmapLinear;     

Have you any ideia of what is wrong?

[wagenheimer]

Thanks!

Code: [Select]

{$IFDEF FPC}
  {$packset 1}
{$ENDIF}

This fixed my problem!