예제 #1
0
_WMRTLINK double _matherr( struct _exception *excp )
/**************************************************/
{
    if( (*_RWD_matherr)( excp ) == 0 ) {
        __rterrmsg( excp->type, excp->name );
        excp->type == DOMAIN ? __set_EDOM() : __set_ERANGE();
    }
    return( excp->retval );
}
예제 #2
0
double _matherr( struct _exception *excp )
/***************************************/
{
    if( (*__MathErrRtn)( excp ) == 0 ) {
/*      fprintf( stderr, "%s in %s\n", Msgs[excp->type], excp->name ); */
        fputs( Msgs[excp->type], stderr );
        fputs( " in ", stderr );
        fputs( excp->name, stderr );
        fputc( '\n', stderr );
        excp->type == DOMAIN ? __set_EDOM() : __set_ERANGE();
    }
    return( excp->retval );
}