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 */
|
/* 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[MAX_ARITY_FLAG] = -1;
|
||||||
yap_flags[INTEGER_ROUNDING_FLAG] = 0;
|
yap_flags[INTEGER_ROUNDING_FLAG] = 0;
|
||||||
yap_flags[YAP_MAX_INTEGER_FLAG] = (Int)(~((CELL)1 << (sizeof(Int)*8-1)));
|
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
|
typedef enum
|
||||||
{
|
{
|
||||||
YAP_INT_BOUNDED_FLAG = 0,
|
|
||||||
MAX_ARITY_FLAG = 1,
|
MAX_ARITY_FLAG = 1,
|
||||||
INTEGER_ROUNDING_FLAG = 2,
|
INTEGER_ROUNDING_FLAG = 2,
|
||||||
YAP_MAX_INTEGER_FLAG = 3,
|
YAP_MAX_INTEGER_FLAG = 3,
|
||||||
|
@ -654,9 +654,6 @@ yap_flag(max_threads,X) :-
|
|||||||
'$transl_to_on_off'(0,off).
|
'$transl_to_on_off'(0,off).
|
||||||
'$transl_to_on_off'(1,on).
|
'$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'(0,toward_zero).
|
||||||
'$transl_to_rounding_function'(1,down).
|
'$transl_to_rounding_function'(1,down).
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user