paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-24 13:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: clean up

Browse Source 
git-svn-id: trunk@35795 -
This commit is contained in:
mattias 2012-03-07 11:37:21 +00:00
parent 34ad8277c0
commit 689a813a02
3 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/ttdebug.pas
View File

@ -108,8 +108,7 @@ function Hex32( L : Long ) : LongHexStr;
implementation
type
PStorageLong = ^TStorageLong;
{type
TStorageLong = record (* do-it-all union record type *)
case Byte of
0 : ( L : LongInt );
@ -119,7 +118,7 @@ type
B3, B4 : Byte );
4 : ( P : Pointer );
end;
}
const
OpStr : array[ 0..255 ] of String[10]
= (

14
components/lazutils/ttgload.pas
View File

@ -59,9 +59,7 @@ implementation
uses
TTTables,
TTCalc,
TTMemory,
TTFile,
TTInterp,
TTLoad;
const
@ -671,7 +669,6 @@ const
left_contours : Int;
table,
num_ins,
index,
load_top : Int;
@ -679,12 +676,8 @@ const
glyph_offset, offset : Long;
c : Byte;
vec, nvec : TT_Vector;
xmin, xmax, ymin, ymax : TT_F26Dot6;
xx, xy, yx, yy : TT_Fixed;
exec : PExec_Context;
@ -698,13 +691,10 @@ const
debug : Boolean;
leftSideBearing : TT_Pos;
advanceWidth : TT_Pos;
top_bearing : TT_Pos;
advance_height : TT_Pos;
error : TT_Error;
//error : TT_Error;
delta : Long;
widths : PByte;
horizontal : TT_Horizontal_Header;
@ -1274,6 +1264,8 @@ const
(* advance_height ); *)
(* *)
horizontal := TT_Horizontal_Header(face^.verticalHeader);
top_bearing:=0;
advance_height:=0;
TT_Get_Metrics( horizontal,
glyph_index,
top_bearing,

12
components/lazutils/ttraster.pas
View File

@ -175,7 +175,7 @@ var
Flags : PByte; (* current flags array *)
Outs : TT_PConStarts; (* current endpoints array *)
nPoints, (* current number of points *)
//nPoints, (* current number of points *)
nContours : Int; (* current number of contours *)
DropOutControl : Byte; (* current drop-out control mode *)
@ -656,7 +656,7 @@ begin
Outs := glyph.conEnds;
Flags := PByte(glyph.flags);
nPoints := Glyph.n_points;
//nPoints := Glyph.n_points;
nContours := Glyph.n_contours;
points := Glyph.points;
@ -753,7 +753,7 @@ begin
Outs := Glyph.conEnds;
Flags := PByte(glyph.flags);
nPoints := Glyph.n_points;
//nPoints := Glyph.n_points;
nContours := Glyph.n_contours;
points := Glyph.points;
@ -827,7 +827,7 @@ begin
Outs := Glyph.conEnds;
Flags := PByte(glyph.flags);
nPoints := Glyph.n_points;
//nPoints := Glyph.n_points;
nContours := Glyph.n_contours;
points := Glyph.points;
@ -932,7 +932,7 @@ begin
Outs := Glyph.conEnds;
Flags := PByte(glyph.flags);
nPoints := Glyph.n_points;
//nPoints := Glyph.n_points;
nContours := Glyph.n_contours;
points := Glyph.points;
@ -994,7 +994,7 @@ begin
Outs := Glyph.conEnds;
Flags := PByte(glyph.flags);
nPoints := Glyph.n_points;
//nPoints := Glyph.n_points;
nContours := Glyph.n_contours;
points := Glyph.points;