a little dll/oleaut32/tmarshal.c correction

[Evalet Olivier]

For Marcus Meissner,

Concerning the file dll/oleaut32/tmarshal.c, I have added a check for a
result function. Below, the modified function with (SUCCEEDED test). It
prevent a crash in my application.

I don't no if the test: if (hres)... is writted to be equivalent of :
if (SUCCEEDED(hres))...
??

static int _nroffuncs(ITypeInfo *tinfo) {
    int 	n, max = 0;
    FUNCDESC	*fdesc;
    HRESULT	hres;

n=0;
    while (1) {
    hres = ITypeInfo_GetFuncDesc(tinfo,n,&fdesc);
    if (SUCCEEDED(hres) && fdesc->oVft/4 > max)
        max = fdesc->oVft/4;
    if (hres)
        return max+1;
    n++;
    }
    /*NOTREACHED*/
}

Olivier

------------------
www.programmers.ch