|
@@ -1,5 +1,5 @@
|
|
{
|
|
{
|
|
- Copyright (c) 1998-2002 by Florian Klaempfl
|
|
|
|
|
|
+ Copyright (c) 1998-2012 by Florian Klaempfl and others
|
|
|
|
|
|
Generate i386 assembler for constants
|
|
Generate i386 assembler for constants
|
|
|
|
|
|
@@ -44,13 +44,13 @@ implementation
|
|
cga,cgx86,cgobj,cgbase,cgutils;
|
|
cga,cgx86,cgobj,cgbase,cgutils;
|
|
|
|
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
- TI386REALCONSTNODE
|
|
|
|
|
|
+ TX86REALCONSTNODE
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|
|
|
|
|
|
function tx86realconstnode.pass_1 : tnode;
|
|
function tx86realconstnode.pass_1 : tnode;
|
|
begin
|
|
begin
|
|
result:=nil;
|
|
result:=nil;
|
|
- if is_number_float(value_real) and not(use_vectorfpu(resultdef)) and (value_real=1.0) or (value_real=0.0) then
|
|
|
|
|
|
+ if is_number_float(value_real) and not(use_vectorfpu(resultdef)) and ((value_real=1.0) or (value_real=0.0)) then
|
|
expectloc:=LOC_FPUREGISTER
|
|
expectloc:=LOC_FPUREGISTER
|
|
else
|
|
else
|
|
expectloc:=LOC_CREFERENCE;
|
|
expectloc:=LOC_CREFERENCE;
|