_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 ); }
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 ); }