paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-29 09:38:45 +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

13
lcl/lresources.pp
View File

@ -2323,12 +2323,16 @@ end;
function ReadLRSExtended(s: TStream): Extended; function ReadLRSExtended(s: TStream): Extended;
begin begin
Result:=0; Result:=0;
{$IFDEF CPUi386} {$IFDEF FPC_HAS_TYPE_EXTENDED}
s.Read(Result,10); s.Read(Result,10);
{$IFDEF Endian_BIG}
ReverseBytes(@Result,10);
{$ENDIF} {$ENDIF}
{$ELSE}
{$IFDEF CPUPowerPC} {$IFDEF CPUPowerPC}
Result:=ReadLRSEndianLittleExtendedAsDouble(s); Result:=ReadLRSEndianLittleExtendedAsDouble(s);
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
function ReadLRSCurrency(s: TStream): Currency; function ReadLRSCurrency(s: TStream): Currency;
@ -2506,9 +2510,13 @@ end;
procedure WriteLRSExtended(s: TStream; const e: extended); procedure WriteLRSExtended(s: TStream; const e: extended);
begin begin
{$IFDEF CPUi386} {$IFDEF FPC_HAS_TYPE_EXTENDED}
{$IFDEF ENDIAN_BIG}
WriteLRS10BytesReversed(s, @e);
{$ELSE ENDIAN_LITTLE}
s.Write(e,10); s.Write(e,10);
{$ENDIF} {$ENDIF}
{$ELSE}
{$IFDEF CPUPowerPC} {$IFDEF CPUPowerPC}
if SizeOf(e)=10 then if SizeOf(e)=10 then
WriteLRS10BytesReversed(s,@e) WriteLRS10BytesReversed(s,@e)
@ -2519,6 +2527,7 @@ begin
WriteLRSNull(s,10); WriteLRSNull(s,10);
end; end;
{$ENDIF} {$ENDIF}
{$ENDIF}
end; end;
procedure WriteLRSInt64(s: TStream; const i: int64); procedure WriteLRSInt64(s: TStream; const i: int64);