mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 13:29:37 +02:00
lazutils: no workaround for fpc 2.7.1
git-svn-id: trunk@40259 -
This commit is contained in:
parent
fcc1d83bb8
commit
f4df84419a
@ -364,13 +364,19 @@ const
|
||||
*
|
||||
******************************************************************)
|
||||
procedure TT_Done_Stream( stream : TT_Stream );
|
||||
{$IF FPC_FULLVERSION>=20701}
|
||||
var
|
||||
p: Pointer;
|
||||
{$ENDIF}
|
||||
begin
|
||||
if stream.z = nil then exit;
|
||||
{$IF FPC_FULLVERSION>=20701}
|
||||
{$HINT workaround for bug 23868 when compiling with -O2}
|
||||
p:=stream.z;
|
||||
TFreeTypeStream(p).FOpen := false;
|
||||
{$ELSE}
|
||||
TFreeTypeStream(stream.z).FOpen := false;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
(*******************************************************************
|
||||
|
Loading…
Reference in New Issue
Block a user