indenting; warning; exceptions; small fixes

This commit is contained in:
Vítor Santos Costa
2016-03-29 02:02:43 +01:00
parent 6bc4acec15
commit f3e8b8b3da
51 changed files with 2220 additions and 2221 deletions

View File

@@ -23,6 +23,7 @@ set (LIBRARY_PL
lineutils.yap
listing.yap
lists.yap
log2md.yap
nb.yap
ordsets.yap
mapargs.yap

View File

@@ -1308,7 +1308,8 @@ X_API int PL_raise_exception(term_t exception)
{
CACHE_REGS
LOCAL_Error_TYPE=YAP_NO_ERROR;
EX = Yap_StoreTermInDB(Yap_GetFromSlot(exception),0);
Yap_PutException(Yap_GetFromSlot(exception));
Yap_RaiseException( );
return 0;
}
@@ -2307,7 +2308,7 @@ X_API void
PL_clear_exception(void)
{
CACHE_REGS
EX = NULL;
Yap_ResetException(worker_id);
}
X_API int
@@ -2623,8 +2624,8 @@ X_API void PL_close_query(qid_t qi)
{
CACHE_REGS
if (EX && !(qi->q_flags & (PL_Q_CATCH_EXCEPTION))) {
EX = NULL;
if (Yap_HasException() && !(qi->q_flags & (PL_Q_CATCH_EXCEPTION))) {
Yap_ResetException(worker_id);
}
/* need to implement backtracking here */
if (qi->q_open != 1 || qi->q_state == 0) {

View File

@@ -5,7 +5,7 @@
/* Define to 1 if you have the <openssl/ripemd.h> header file. */
#ifndef HAVE_APR_1_APR_MD5_H
/* #undef HAVE_APR_1_APR_MD5_H */
#define HAVE_APR_1_APR_MD5_H 1
#endif