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

fixed pointer type conversion on big endian systems from Jonas

Browse Source 
git-svn-id: trunk@10041 -
This commit is contained in:
vincents 2006-10-05 12:39:23 +00:00
parent df36cf4952
commit 4ec93f00e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lresources.pp
View File

@ -3152,7 +3152,7 @@ begin
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}
{$IFDEF FPC_BIG_ENDIAN} {$IFDEF FPC_BIG_ENDIAN}
WriteLRSEndianBigDoubleAsEndianLittleExtended(s,@e) WriteLRSEndianBigDoubleAsEndianLittleExtended(s,pbyte(@e))
{$ELSE} {$ELSE}
debugln('WARNING: WriteLRSExtended not implemented yet for little endian cpu without 80 bits extended'); debugln('WARNING: WriteLRSExtended not implemented yet for little endian cpu without 80 bits extended');
{$ENDIF} {$ENDIF}