[Bug 26653] VB6 database app fails because oleaut32 VarRound doesn't support VT_DECIMAL

[wine-bugs at winehq.org]

http://bugs.winehq.org/show_bug.cgi?id=26653

Anastasius Focht <focht at gmx.net> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
                 CC|                            |focht at gmx.net
            Summary|Function VarRound fails     |VB6 database app fails
                   |                            |because oleaut32 VarRound
                   |                            |doesn't support VT_DECIMAL
     Ever Confirmed|0                           |1

--- Comment #11 from Anastasius Focht <focht at gmx.net> 2012-04-30 09:34:37 CDT ---
Hello,

obviously still present.
Refining summary.

Source:
http://source.winehq.org/git/wine.git/blob/cc37abb6589a1aa9862624c77a45b32c9a36dca1:/dlls/oleaut32/variant.c#l5127

--- snip ---
5127 HRESULT WINAPI VarRound(LPVARIANT pVarIn, int deci, LPVARIANT pVarOut)
5128 {
...
5146     switch (V_VT(pVarIn))
5147     {
5148     /* cases that fail on windows */
5149     case VT_I1:
5150     case VT_I8:
5151     case VT_UI2:
5152     case VT_UI4:
5153         hRet = DISP_E_BADVARTYPE;
5154         break;
5155 
5156     /* cases just copying in to out */
5157     case VT_UI1:
5158         V_VT(pVarOut) = V_VT(pVarIn);
5159         V_UI1(pVarOut) = V_UI1(pVarIn);
5160         break;
...
5230     /* cases we don't know yet */
5231     default:
5232         FIXME("unimplemented part, V_VT(pVarIn) == 0x%X, deci == %d\n",
5233                 V_VT(pVarIn) & VT_TYPEMASK, deci);
5234         hRet = DISP_E_BADVARTYPE;
5235     }
5236 VarRound_Exit:
5237     if (FAILED(hRet))
5238       V_VT(pVarOut) = VT_EMPTY;
5239     VariantClear(&temp);
5240 
5241     TRACE("returning 0x%08x (%s%s),%f\n", hRet, debugstr_VT(pVarOut),
5242         debugstr_VF(pVarOut), (V_VT(pVarOut) == VT_R4) ? V_R4(pVarOut) :
5243         (V_VT(pVarOut) == VT_R8) ? V_R8(pVarOut) : 0);
5244 
5245     return hRet;
5246 }
--- snip ---

$ wine --version
wine-1.5.3

Regards

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.