clean up unbounded
This commit is contained in:
parent
220970db6d
commit
9d34ac34ff
5
C/init.c
5
C/init.c
@ -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)));
|
||||
|
1
H/Yap.h
1
H/Yap.h
@ -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,
|
||||
|
@ -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).
|
||||
|
||||
|
Reference in New Issue
Block a user