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

* fixed writing of double constants on WinCE

Browse Source 
git-svn-id: trunk@5416 -
This commit is contained in:
florian 2006-11-17 22:17:54 +00:00
parent efee92be40
commit fbc197f27a
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/arm/narmcon.pas
View File

@ -66,7 +66,8 @@ interface
location_reset(location,LOC_CREFERENCE,def_cgsize(resultdef)); location_reset(location,LOC_CREFERENCE,def_cgsize(resultdef));
lastlabel:=nil; lastlabel:=nil;
realait:=floattype2ait[tfloatdef(resultdef).floattype]; realait:=floattype2ait[tfloatdef(resultdef).floattype];
hiloswapped:=current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]; hiloswapped:=(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches);;
{ const already used ? } { const already used ? }
if not assigned(lab_real) then if not assigned(lab_real) then
begin begin

3
compiler/ncgcon.pas
View File

@ -122,7 +122,8 @@ implementation
lastlabel:=nil; lastlabel:=nil;
realait:=floattype2ait[tfloatdef(resultdef).floattype]; realait:=floattype2ait[tfloatdef(resultdef).floattype];
{$ifdef ARM} {$ifdef ARM}
hiloswapped:=current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]; hiloswapped:=(current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches);
{$endif ARM} {$endif ARM}
{ const already used ? } { const already used ? }
if not assigned(lab_real) then if not assigned(lab_real) then

3
compiler/ptconst.pas
View File

@ -163,7 +163,8 @@ implementation
list.concat(Tai_real_32bit.Create(ts32real(value))); list.concat(Tai_real_32bit.Create(ts32real(value)));
s64real : s64real :
{$ifdef ARM} {$ifdef ARM}
if current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11] then if (current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches) then
list.concat(Tai_real_64bit.Create_hiloswapped(ts64real(value))) list.concat(Tai_real_64bit.Create_hiloswapped(ts64real(value)))
else else
{$endif ARM} {$endif ARM}

3
compiler/rautils.pas
View File

@ -1482,7 +1482,8 @@ end;
s32real : p.concat(Tai_real_32bit.Create(value)); s32real : p.concat(Tai_real_32bit.Create(value));
s64real : s64real :
{$ifdef ARM} {$ifdef ARM}
if current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11] then if (current_settings.fputype in [fpu_fpa,fpu_fpa10,fpu_fpa11]) and
not(cs_fp_emulation in current_settings.moduleswitches) then
p.concat(Tai_real_64bit.Create_hiloswapped(value)) p.concat(Tai_real_64bit.Create_hiloswapped(value))
else else
{$endif ARM} {$endif ARM}