diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bad call.

Browse Source
This commit is contained in:
Vitor Santos Costa 2014-10-14 19:39:20 +01:00
parent aa80579684
commit 49ccb545f8
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
C/sysbits.c
View File

@ -1421,7 +1421,6 @@ static void
HandleMatherr(int sig, void *sipv, void *uapv) HandleMatherr(int sig, void *sipv, void *uapv)
{ {
CACHE_REGS CACHE_REGS
yap_error_number error_no;
/* reset the registers so that we don't have trash in abstract machine */ /* reset the registers so that we don't have trash in abstract machine */
#if HAVE_FETESTEXCEPT #if HAVE_FETESTEXCEPT
@ -1437,7 +1436,7 @@ HandleMatherr(int sig, void *sipv, void *uapv)
LOCAL_matherror = EVALUATION_ERROR_FLOAT_UNDERFLOW; LOCAL_matherror = EVALUATION_ERROR_FLOAT_UNDERFLOW;
} else } else
LOCAL_matherror = EVALUATION_ERROR_UNDEFINED; LOCAL_matherror = EVALUATION_ERROR_UNDEFINED;
if (!feclearexcept()) if (!feclearexcept(FE_ALL_EXCEPT))
return; return;
Yap_Error(LOCAL_matherror , TermNil, "Arithmetic Exception"); Yap_Error(LOCAL_matherror , TermNil, "Arithmetic Exception");
#elif (defined(__svr4__) || defined(__SVR4)) #elif (defined(__svr4__) || defined(__SVR4))