paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 02:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: improvements for ttfile.pas. Patch from circular

Browse Source 
git-svn-id: trunk@40429 -
This commit is contained in:
juha 2013-02-27 10:51:33 +00:00
parent c7765210d6
commit 0986431fcd
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazutils/ttfile.pas
View File

@ -373,9 +373,9 @@ const
{$IF FPC_FULLVERSION<20701}
{$HINT workaround for bug 23868 when compiling with -O2}
p:=stream.z;
TFreeTypeStream(p).FOpen := false;
TFreeTypeStream(p).FUsed := false;
{$ELSE}
TFreeTypeStream(stream.z).FOpen := false;
TFreeTypeStream(stream.z).FUsed := false;
{$ENDIF}
end;
@ -739,8 +739,19 @@ end;
FStream := TFileStream.Create(FName, fmOpenRead);
FOpen := True;
FBase := 0;
if FStoredSize = -1 then FStoredSize := FStream.Size;
if FPosit <> 0 then FStream.Position:= FPosit;
try
if FStoredSize = -1 then FStoredSize := FStream.Size;
if FPosit <> 0 then FStream.Position:= FPosit;
except
on ex:exception do
begin
FreeAndNil(FStream);
FOpen := False;
error := TT_Err_File_Error;
result := Failure;
exit;
end;
end;
except
on ex:exception do
begin