paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 14:17:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazFreeType: Adds some $R- to disable range check which seams to cause problems with FPC 2.7 and expands a with

Browse Source 
git-svn-id: trunk@38416 -
This commit is contained in:
sekelsenmat 2012-08-28 09:58:57 +00:00
parent 9bd1e7a1d6
commit 4cf053d2ba
5 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazutils/lazfreetype.pas
View File

@ -36,6 +36,7 @@ unit LazFreeType;
interface
{$R-}
uses TTTypes;
(***********************************************************************)

1
components/lazutils/ttfile.pas
View File

@ -47,6 +47,7 @@ Unit TTFile;
interface
{$I TTCONFIG.INC}
{$R-}
uses TTTypes,
TTError;

32
components/lazutils/ttload.pas
View File

@ -25,6 +25,7 @@ Unit TTLoad;
interface
{$R-}
uses TTTypes, TTTables, TTCMap, TTObjs;
function LookUp_TrueType_Table( face : PFace;
@ -237,7 +238,7 @@ uses TTError, TTMemory, TTFile;
{$IFDEF FREETYPE_DEBUG} Writeln('Tables number : ', tableDir.numTables ); {$ENDIF}
TT_Forget_Frame;
TT_Forget_Frame();
(* Check that we have a 'sfnt' format there *)
if (tableDir.version <> $10000 ) and (* MS fonts *)
@ -248,25 +249,20 @@ uses TTError, TTMemory, TTFile;
exit;
end;
with face^ do
face^.numTables := tableDir.numTables;
if Alloc( face^.dirTables, face^.numTables * sizeof( TTableDirEntry ) ) or
TT_Access_Frame( 16 * face^.numTables ) then exit;
for n := 0 to face^.numTables-1 do
begin
face^.dirTables^[n].Tag := GET_ULong;
face^.dirTables^[n].Checksum := GET_ULong;
face^.dirTables^[n].Offset := GET_Long;
face^.dirTables^[n].Length := Get_Long;
end;
numTables := tableDir.numTables;
if Alloc( dirTables, numTables * sizeof( TTableDirEntry ) ) or
TT_Access_Frame( 16 * numTables ) then exit;
for n := 0 to numTables-1 do with dirTables^[n] do
begin
Tag := GET_ULong;
Checksum := GET_ULong;
Offset := GET_Long;
Length := Get_Long;
end;
TT_Forget_Frame;
end;
TT_Forget_Frame();
{$IFDEF FREETYPE_DEBUG} Writeln('loaded'); {$ENDIF}

1
components/lazutils/ttmemory.pas
View File

@ -65,6 +65,7 @@ interface
uses TTTypes;
{$I TTCONFIG.INC}
{$R-}
type
TMarkRecord = record

1
components/lazutils/ttobjs.pas
View File

@ -82,6 +82,7 @@ interface
{$mode Delphi}
{$I TTCONFIG.INC}
{$R-}
uses LazFreeType,
TTTypes,