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

Win64 extended floating fix

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@572 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-09-25 02:20:10 +00:00
parent b6b5e47eb7
commit d80a5005f6
2 changed files with 32 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3594,7 +3594,7 @@ begin
CheckEquals(AR_LEN,a.Length); CheckEquals(AR_LEN,a.Length);
for i := 0 to Pred(AR_LEN) do for i := 0 to Pred(AR_LEN) do
Check(VAL_AR[i]=a[i]); Check(IsZero(VAL_AR[i]-a[i]),Format('Expected : %s got %s',[FloatToStr(VAL_AR[i]),FloatToStr(a[i])]));
finally finally
a.Free(); a.Free();
@ -3645,7 +3645,7 @@ begin
CheckEquals(AR_LEN,a.Length); CheckEquals(AR_LEN,a.Length);
for i := 0 to Pred(AR_LEN) do for i := 0 to Pred(AR_LEN) do
Check(VAL_AR[i]=a[i]); Check(IsZero(VAL_AR[i]-a[i]),Format('Expected : %s got %s',[FloatToStr(VAL_AR[i]),FloatToStr(a[i])]));
finally finally
a.Free(); a.Free();

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

@ -1,16 +1,17 @@
<?xml version="1.0"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <PathDelim Value="\"/>
<Version Value="6"/> <Version Value="6"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value=".\"/>
<TargetFileExt Value=".exe"/> <TargetFileExt Value=".exe"/>
</General> </General>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
@ -18,7 +19,7 @@
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<CommandLineParams Value="--suite=TTest_XsdParser"/> <CommandLineParams Value="--suite=TTest_XsdParser"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="37"> <Units Count="37">
@ -33,47 +34,47 @@
<UnitName Value="testformatter_unit"/> <UnitName Value="testformatter_unit"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../server_service_soap.pas"/> <Filename Value="..\..\server_service_soap.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_service_soap"/> <UnitName Value="server_service_soap"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="../../soap_formatter.pas"/> <Filename Value="..\..\soap_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="soap_formatter"/> <UnitName Value="soap_formatter"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<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"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../base_service_intf.pas"/> <Filename Value="..\..\base_service_intf.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_service_intf"/> <UnitName Value="base_service_intf"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../base_soap_formatter.pas"/> <Filename Value="..\..\base_soap_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_soap_formatter"/> <UnitName Value="base_soap_formatter"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../binary_formatter.pas"/> <Filename Value="..\..\binary_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="binary_formatter"/> <UnitName Value="binary_formatter"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../binary_streamer.pas"/> <Filename Value="..\..\binary_streamer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="binary_streamer"/> <UnitName Value="binary_streamer"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../server_binary_formatter.pas"/> <Filename Value="..\..\server_binary_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_binary_formatter"/> <UnitName Value="server_binary_formatter"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../metadata_repository.pas"/> <Filename Value="..\..\metadata_repository.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="metadata_repository"/> <UnitName Value="metadata_repository"/>
</Unit10> </Unit10>
@ -83,27 +84,27 @@
<UnitName Value="testmetadata_unit"/> <UnitName Value="testmetadata_unit"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../ws_helper/metadata_generator.pas"/> <Filename Value="..\..\ws_helper\metadata_generator.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="metadata_generator"/> <UnitName Value="metadata_generator"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../metadata_wsdl.pas"/> <Filename Value="..\..\metadata_wsdl.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="metadata_wsdl"/> <UnitName Value="metadata_wsdl"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../server_service_intf.pas"/> <Filename Value="..\..\server_service_intf.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_service_intf"/> <UnitName Value="server_service_intf"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<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"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../wst_fpc_xml.pas"/> <Filename Value="..\..\wst_fpc_xml.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wst_fpc_xml"/> <UnitName Value="wst_fpc_xml"/>
</Unit16> </Unit16>
@ -113,7 +114,7 @@
<UnitName Value="test_utilities"/> <UnitName Value="test_utilities"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../server_service_xmlrpc.pas"/> <Filename Value="..\..\server_service_xmlrpc.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_service_xmlrpc"/> <UnitName Value="server_service_xmlrpc"/>
</Unit18> </Unit18>
@ -123,27 +124,27 @@
<UnitName Value="test_parsers"/> <UnitName Value="test_parsers"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="../../ws_helper/wsdl_generator.pas"/> <Filename Value="..\..\ws_helper\wsdl_generator.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wsdl_generator"/> <UnitName Value="wsdl_generator"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="../../ws_helper/xsd_generator.pas"/> <Filename Value="..\..\ws_helper\xsd_generator.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="xsd_generator"/> <UnitName Value="xsd_generator"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="../../ws_helper/xsd_consts.pas"/> <Filename Value="..\..\ws_helper\xsd_consts.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="xsd_consts"/> <UnitName Value="xsd_consts"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="../../ws_helper/wsdl_parser.pas"/> <Filename Value="..\..\ws_helper\wsdl_parser.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="wsdl_parser"/> <UnitName Value="wsdl_parser"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="../../base_json_formatter.pas"/> <Filename Value="..\..\base_json_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="base_json_formatter"/> <UnitName Value="base_json_formatter"/>
</Unit24> </Unit24>
@ -153,7 +154,7 @@
<UnitName Value="test_support"/> <UnitName Value="test_support"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="../../basex_encode.pas"/> <Filename Value="..\..\basex_encode.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="basex_encode"/> <UnitName Value="basex_encode"/>
</Unit26> </Unit26>
@ -163,12 +164,12 @@
<UnitName Value="test_basex_encode"/> <UnitName Value="test_basex_encode"/>
</Unit27> </Unit27>
<Unit28> <Unit28>
<Filename Value="../../json_formatter.pas"/> <Filename Value="..\..\json_formatter.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="json_formatter"/> <UnitName Value="json_formatter"/>
</Unit28> </Unit28>
<Unit29> <Unit29>
<Filename Value="../../server_service_json.pas"/> <Filename Value="..\..\server_service_json.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="server_service_json"/> <UnitName Value="server_service_json"/>
</Unit29> </Unit29>
@ -211,12 +212,13 @@
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="8"/>
<PathDelim Value="\"/>
<Target> <Target>
<Filename Value="wst_test_suite.exe"/> <Filename Value="wst_test_suite.exe"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="../../"/> <IncludeFiles Value="..\..\"/>
<OtherUnitFiles Value="../../;../../ws_helper/;../../wst_rtti_filter/;../../fcl-json/src/"/> <OtherUnitFiles Value="..\..\;..\..\ws_helper\;..\..\wst_rtti_filter\;..\..\fcl-json\src\"/>
<UnitOutputDirectory Value="obj"/> <UnitOutputDirectory Value="obj"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>