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

4
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -1271,7 +1271,9 @@ begin
ftDouble : Double(AData) := floatDt; ftDouble : Double(AData) := floatDt;
ftExtended : Extended(AData) := floatDt; ftExtended : Extended(AData) := floatDt;
ftCurr : Currency(AData) := floatDt; ftCurr : Currency(AData) := floatDt;
{$IFDEF CPU86}
ftComp : Comp(AData) := floatDt; ftComp : Comp(AData) := floatDt;
{$ENDIF}
End; End;
End; End;
End; End;
@ -1345,7 +1347,9 @@ begin
ftDouble : Double(AData) := floatDt; ftDouble : Double(AData) := floatDt;
ftExtended : Extended(AData) := floatDt; ftExtended : Extended(AData) := floatDt;
ftCurr : Currency(AData) := floatDt; ftCurr : Currency(AData) := floatDt;
{$IFDEF CPU86}
ftComp : Comp(AData) := floatDt; ftComp : Comp(AData) := floatDt;
{$ENDIF}
end; end;
end; end;
end; end;

2
wst/trunk/tests/test_suite/testformatter_unit.pas
View File

@ -981,7 +981,7 @@ begin
f.EndScope(); f.EndScope();
s := TMemoryStream.Create(); s := TMemoryStream.Create();
f.SaveToStream(s); f.SaveToStream(s); s.SaveToFile(ClassName + '_test_int_withclass.xml');
FreeAndNil(a); FreeAndNil(a);
a := TClass_Int.Create(); a := TClass_Int.Create();

46
wst/trunk/tests/test_suite/wst_test_suite.lpi
View File

@ -40,10 +40,13 @@
<Filename Value="testformatter_unit.pas"/> <Filename Value="testformatter_unit.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="testformatter_unit"/> <UnitName Value="testformatter_unit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="52" Y="984"/>
<TopLine Value="1"/> <TopLine Value="958"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1">
<Item0 X="17" Y="984" ID="3"/>
</Bookmarks>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
@ -66,9 +69,11 @@
<Filename Value="..\..\base_binary_formatter.pas"/> <Filename Value="..\..\base_binary_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_binary_formatter"/> <UnitName Value="base_binary_formatter"/>
<CursorPos X="3" Y="11"/> <CursorPos X="15" Y="1479"/>
<TopLine Value="1"/> <TopLine Value="1464"/>
<EditorIndex Value="5"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\base_service_intf.pas"/> <Filename Value="..\..\base_service_intf.pas"/>
@ -108,7 +113,7 @@
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
<CursorPos X="14" Y="14"/> <CursorPos X="14" Y="14"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="9"/> <EditorIndex Value="10"/>
<UsageCount Value="200"/> <UsageCount Value="200"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="38" Y="490" ID="2"/> <Item0 X="38" Y="490" ID="2"/>
@ -137,7 +142,7 @@
<UnitName Value="testmetadata_unit"/> <UnitName Value="testmetadata_unit"/>
<CursorPos X="1" Y="1"/> <CursorPos X="1" Y="1"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<EditorIndex Value="6"/> <EditorIndex Value="7"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit11> </Unit11>
@ -167,7 +172,7 @@
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
<CursorPos X="44" Y="21"/> <CursorPos X="44" Y="21"/>
<TopLine Value="209"/> <TopLine Value="209"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<UsageCount Value="206"/> <UsageCount Value="206"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
@ -319,8 +324,8 @@
<Filename Value="..\..\base_xmlrpc_formatter.pas"/> <Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_xmlrpc_formatter"/> <UnitName Value="base_xmlrpc_formatter"/>
<CursorPos X="9" Y="1341"/> <CursorPos X="8" Y="1352"/>
<TopLine Value="1319"/> <TopLine Value="1335"/>
<EditorIndex Value="2"/> <EditorIndex Value="2"/>
<UsageCount Value="111"/> <UsageCount Value="111"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -466,7 +471,7 @@
<UnitName Value="test_utilities"/> <UnitName Value="test_utilities"/>
<CursorPos X="29" Y="43"/> <CursorPos X="29" Y="43"/>
<TopLine Value="3"/> <TopLine Value="3"/>
<EditorIndex Value="8"/> <EditorIndex Value="9"/>
<UsageCount Value="48"/> <UsageCount Value="48"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit57> </Unit57>
@ -482,7 +487,7 @@
<UnitName Value="testregistry"/> <UnitName Value="testregistry"/>
<CursorPos X="39" Y="27"/> <CursorPos X="39" Y="27"/>
<TopLine Value="17"/> <TopLine Value="17"/>
<EditorIndex Value="7"/> <EditorIndex Value="8"/>
<UsageCount Value="15"/> <UsageCount Value="15"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit59> </Unit59>
@ -519,7 +524,24 @@
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit64> </Unit64>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="4" HistoryIndex="3">
<Position1>
<Filename Value="..\..\base_binary_formatter.pas"/>
<Caret Line="21" Column="14" TopLine="13"/>
</Position1>
<Position2>
<Filename Value="..\..\base_binary_formatter.pas"/>
<Caret Line="1410" Column="3" TopLine="1393"/>
</Position2>
<Position3>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<Caret Line="1341" Column="9" TopLine="1319"/>
</Position3>
<Position4>
<Filename Value="..\..\base_xmlrpc_formatter.pas"/>
<Caret Line="1274" Column="15" TopLine="1259"/>
</Position4>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="5"/>