clean up unbounded

This commit is contained in:
Vitor Santos Costa 2013-11-13 13:01:11 +00:00
parent 220970db6d
commit 9d34ac34ff
3 changed files with 0 additions and 9 deletions

View File

@ -900,11 +900,6 @@ InitFlags(void)
{
/* note that Yap_heap_regs must be set first */
#if USE_GMP
yap_flags[YAP_INT_BOUNDED_FLAG] = 0;
#else
yap_flags[YAP_INT_BOUNDED_FLAG] = 1;
#endif
yap_flags[MAX_ARITY_FLAG] = -1;
yap_flags[INTEGER_ROUNDING_FLAG] = 0;
yap_flags[YAP_MAX_INTEGER_FLAG] = (Int)(~((CELL)1 << (sizeof(Int)*8-1)));

View File

@ -342,7 +342,6 @@ typedef pthread_rwlock_t rwlock_t;
typedef enum
{
YAP_INT_BOUNDED_FLAG = 0,
MAX_ARITY_FLAG = 1,
INTEGER_ROUNDING_FLAG = 2,
YAP_MAX_INTEGER_FLAG = 3,

View File

@ -654,9 +654,6 @@ yap_flag(max_threads,X) :-
'$transl_to_on_off'(0,off).
'$transl_to_on_off'(1,on).
'$transl_to_arity'(X1,X) :- X1 < 0, !, X = unbounded.
'$transl_to_arity'(X,X).
'$transl_to_rounding_function'(0,toward_zero).
'$transl_to_rounding_function'(1,down).