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

freetype: reduced implementation uses to avoid triggering fpc bug

Browse Source
This commit is contained in:
mattias 2024-03-05 15:04:25 +01:00
parent 8202264d10
commit 76c3448700
2 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/freetype/ttprofile.pas
View File

@ -10,6 +10,8 @@ uses
{$IFDEF VIRTUALPASCAL}
Use32,
{$ENDIF}
TTError,
TTCalc, { used for MulDiv }
TTTypes,
SysUtils;
@ -134,11 +136,6 @@ procedure ProfileList_Split( List : TProfile; out Part1, Part2: TProfile);
implementation
uses
TTCalc, { used for MulDiv }
TTError ;
(************************************************)
(* *)
(* ProfileList_Init *)

6
components/freetype/ttraster.pas
View File

@ -49,6 +49,8 @@ uses
{$IFDEF VIRTUALPASCAL}
Use32,
{$ENDIF}
SysUtils,
TTError,
TTTypes,
TTProfile;
@ -219,10 +221,6 @@ type
implementation
uses
TTError,
SysUtils;
const
Pixel_Bits = 6; (* fractional bits of input coordinates *)