paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 07:52:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed LRS reading/writing of extended on 64bit processors from Andrew Haines

Browse Source 
git-svn-id: trunk@8261 -
This commit is contained in:
mattias 2005-12-06 18:47:11 +00:00
parent 29fded294e
commit 22c1e9cb16
1 changed files with 26 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
lcl/lresources.pp
View File

@ -2323,11 +2323,15 @@ end;
function ReadLRSExtended(s: TStream): Extended;
begin
Result:=0;
{$IFDEF CPUi386}
s.Read(Result,10);
{$ENDIF}
{$IFDEF CPUPowerPC}
Result:=ReadLRSEndianLittleExtendedAsDouble(s);
{$IFDEF FPC_HAS_TYPE_EXTENDED}
s.Read(Result,10);
{$IFDEF Endian_BIG}
ReverseBytes(@Result,10);
{$ENDIF}
{$ELSE}
{$IFDEF CPUPowerPC}
Result:=ReadLRSEndianLittleExtendedAsDouble(s);
{$ENDIF}
{$ENDIF}
end;
@ -2506,18 +2510,23 @@ end;
procedure WriteLRSExtended(s: TStream; const e: extended);
begin
{$IFDEF CPUi386}
s.Write(e,10);
{$ENDIF}
{$IFDEF CPUPowerPC}
if SizeOf(e)=10 then
WriteLRS10BytesReversed(s,@e)
else if SizeOf(e)=8 then
WriteLRSEndianBigDoubleAsEndianLittleExtended(s,@e)
else begin
debugln('WARNING: WriteLRSExtended not implemented yet for PowerPC');
WriteLRSNull(s,10);
end;
{$IFDEF FPC_HAS_TYPE_EXTENDED}
{$IFDEF ENDIAN_BIG}
WriteLRS10BytesReversed(s, @e);
{$ELSE ENDIAN_LITTLE}
s.Write(e,10);
{$ENDIF}
{$ELSE}
{$IFDEF CPUPowerPC}
if SizeOf(e)=10 then
WriteLRS10BytesReversed(s,@e)
else if SizeOf(e)=8 then
WriteLRSEndianBigDoubleAsEndianLittleExtended(s,@e)
else begin
debugln('WARNING: WriteLRSExtended not implemented yet for PowerPC');
WriteLRSNull(s,10);
end;
{$ENDIF}
{$ENDIF}
end;