|
@@ -74,6 +74,8 @@ implementation
|
|
|
else if (value_real=0.0) and not(use_sse(resulttype.def)) then
|
|
|
begin
|
|
|
emit_none(A_FLDZ,S_NO);
|
|
|
+ if (get_real_sign(value_real) < 0) then
|
|
|
+ emit_none(A_FCHS,S_NO);
|
|
|
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
|
|
|
location.register:=NR_ST;
|
|
|
tcgx86(cg).inc_fpu_stack;
|