pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fixes compilation of freetype

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1566 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-04-12 09:00:36 +00:00
parent 0ca7bd6a4a
commit 9e2f90802b
9 changed files with 233 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/freetypepascal/ttdebug.pas
View File

@ -18,7 +18,9 @@ unit TTDebug;
interface
uses TTTypes, TTTables, TTObjs, TTInterp;
{$mode Delphi}
uses SysUtils, TTTypes, TTTables, TTObjs, TTInterp;
type
@ -456,7 +458,8 @@ end;
function Hex32( L : Long ) : LongHexStr;
begin
Hex32 := Hex16( TStorageLong(L).W2 )+Hex16( TStorageLong(L).W1 );
Result := SysUtils.IntToHex(L, 8);
// Hex32 := Hex16( TStorageLong(L).W2 )+Hex16( TStorageLong(L).W1 );
end;
(*******************************************************************