|
@@ -254,12 +254,16 @@ implementation
|
|
|
{ double (2^64) }
|
|
|
asmlist[al_typedconsts].concat(Tai_const.Create_32bit(0));
|
|
|
asmlist[al_typedconsts].concat(Tai_const.Create_32bit($43f00000));
|
|
|
+ { simplify for PIC }
|
|
|
+ cg.make_simple_ref(exprasmlist,href);
|
|
|
exprasmlist.concat(taicpu.op_ref_reg(A_ADDSD,S_NO,href,location.register));
|
|
|
end
|
|
|
else if is_single(resulttype.def) then
|
|
|
begin
|
|
|
{ single(2^64) }
|
|
|
asmlist[al_typedconsts].concat(Tai_const.Create_32bit($5f800000));
|
|
|
+ { simplify for PIC }
|
|
|
+ cg.make_simple_ref(exprasmlist,href);
|
|
|
exprasmlist.concat(taicpu.op_ref_reg(A_ADDSS,S_NO,href,location.register));
|
|
|
end
|
|
|
else
|