Browse Source

* fixed loading of -0.0

git-svn-id: trunk@2976 -
Jonas Maebe 19 năm trước cách đây
mục cha
commit
6ad5dff9e8
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  1. 2 0
      compiler/x86/nx86con.pas

+ 2 - 0
compiler/x86/nx86con.pas

@@ -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;