paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 21:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed float constants in softfloat mode when compiler was compiled in hardfloat mode on arm-linux host.

Browse Source 
git-svn-id: trunk@7977 -
This commit is contained in:
yury 2007-07-07 19:19:49 +00:00
parent 499cbcbbe1
commit b86574cf36
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aggas.pas
View File

@ -784,8 +784,6 @@ implementation
swap64bitarray(t64bitarray(d));
AsmWrite(#9'.byte'#9);
{$ifdef arm}
{ on a real arm cpu, it's already hi/lo swapped }
{$ifndef cpuarm}
if tai_real_64bit(hp).formatoptions=fo_hiloswapped then
begin
for i:=4 to 7 do
@ -801,7 +799,6 @@ implementation
end;
end
else
{$endif cpuarm}
{$endif arm}
begin
for i:=0 to 7 do

3
compiler/arm/narmcon.pas
View File

@ -68,6 +68,9 @@ interface
realait:=floattype2ait[tfloatdef(resultdef).floattype];
hiloswapped:=(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches);
{$ifdef FPC_DOUBLE_HILO_SWAPPED}
hiloswapped:=not hiloswapped;
{$endif FPC_DOUBLE_HILO_SWAPPED}
{ const already used ? }
if not assigned(lab_real) then
begin

3
compiler/i386/ag386nsm.pas
View File

@ -725,8 +725,6 @@ interface
swap64bitarray(t64bitarray(d));
AsmWrite(#9#9'DB'#9);
{$ifdef arm}
{ on a real arm cpu, it's already hi/lo swapped }
{$ifndef cpuarm}
if tai_real_64bit(hp).formatoptions=fo_hiloswapped then
begin
for i:=4 to 7 do
@ -742,7 +740,6 @@ interface
end;
end
else
{$endif cpuarm}
{$endif arm}
begin
for i:=0 to 7 do

3
compiler/ncgcon.pas
View File

@ -124,6 +124,9 @@ implementation
{$ifdef ARM}
hiloswapped:=(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches);
{$ifdef FPC_DOUBLE_HILO_SWAPPED}
hiloswapped:=not hiloswapped;
{$endif FPC_DOUBLE_HILO_SWAPPED}
{$endif ARM}
{ const already used ? }
if not assigned(lab_real) then