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

PowerPC compatibility fix ( from Philip J Hess )

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@227 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2007-07-28 20:05:58 +00:00
parent bd61ea0229
commit c8296c17b9
4 changed files with 43 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_binary_formatter.pas
View File

@ -1405,7 +1405,9 @@ begin
ftDouble : Double(AData) := floatDt;
ftExtended : Extended(AData) := floatDt;
ftCurr : Currency(AData) := floatDt;
{$IFDEF CPU86}
ftComp : Comp(AData) := floatDt;
{$ENDIF}
End;
End;
End;
@ -1474,8 +1476,10 @@ begin
ftDouble : Double(AData) := dataBuffer^.DoubleData;
ftExtended : Extended(AData) := dataBuffer^.ExtendedData;
ftCurr : Currency(AData) := dataBuffer^.CurrencyData;
{$IFDEF CPU86}
else
Comp(AData) := dataBuffer^.ExtendedData;
{$ENDIF}
end;
end;
end;