oleaut32: fix a rounding bug in VarFormat.

560e76ee · Damjan Jovanovic · Alexandre Julliard · 52722e66 · 560e76ee · 560e76ee
Commit 560e76ee authored May 12, 2009 by Damjan Jovanovic Committed by Alexandre Julliard May 13, 2009
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

varformat.c dlls/oleaut32/tests/varformat.c +1 -0

varformat.c dlls/oleaut32/varformat.c +4 -1

No files found.
--- a/dlls/oleaut32/tests/varformat.c
+++ b/dlls/oleaut32/tests/varformat.c
@@ -379,6 +379,7 @@ static void test_VarFormat(void)
  VARFMT(VT_R8,V_R8,-1.57,"0.00",S_OK,"-1.57");
  VARFMT(VT_R8,V_R8,-1.57,"#.##",S_OK,"-1.57");
  VARFMT(VT_R8,V_R8,-0.1,".#",S_OK,"-.1");
+  VARFMT(VT_R8,V_R8,0.099,"#.#",S_OK,".1");
  /* 'out' is not cleared */

--- a/dlls/oleaut32/varformat.c
+++ b/dlls/oleaut32/varformat.c
@@ -1305,7 +1305,10 @@ static HRESULT VARIANT_FormatNumber(LPVARIANT pVarIn, LPOLESTR lpszFormat,
          else
          {
            rgbDig[have_int + need_frac] = 0;
-            have_int++;
+            if (exponent < 0)
+              exponent++;
+            else
+              have_int++;
          }
        }
        else