oleaut32: Implement VarDecInt.

32bacc9c · Juan Lang · Alexandre Julliard · 48d1f9fb · 32bacc9c
Commit 32bacc9c authored Feb 18, 2009 by Juan Lang Committed by Alexandre Julliard Feb 19, 2009
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 2 deletions

vartype.c dlls/oleaut32/vartype.c +10 -2

No files found.
--- a/dlls/oleaut32/vartype.c
+++ b/dlls/oleaut32/vartype.c
@@ -5702,14 +5702,22 @@ HRESULT WINAPI VarDecFix(const DECIMAL* pDecIn, DECIMAL* pDecOut)
 */
 HRESULT WINAPI VarDecInt(const DECIMAL* pDecIn, DECIMAL* pDecOut)
 {
+  double dbl;
+  HRESULT hr;
  if (DEC_SIGN(pDecIn) & ~DECIMAL_NEG)
    return E_INVALIDARG;
  if (!(DEC_SIGN(pDecIn) & DECIMAL_NEG) || !DEC_SCALE(pDecIn))
    return VarDecFix(pDecIn, pDecOut); /* The same, if +ve or no fractionals */
-  FIXME("semi-stub!\n");
+  hr = VarR8FromDec(pDecIn, &dbl);
-  return DISP_E_OVERFLOW;
+  if (SUCCEEDED(hr)) {
+    LONGLONG rounded = dbl >= 0.0 ? dbl + 0.5 : dbl - 0.5;
+    hr = VarDecFromI8(rounded, pDecOut);
+  }
+  return hr;
 }
 /************************************************************************