flags patch by Petr Pisaf
This commit is contained in:
parent
1043d037e9
commit
e14703b990
2
C/init.c
2
C/init.c
@ -1318,7 +1318,7 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
|
||||
Yap_InitTime( 0 );
|
||||
/* InitAbsmi must be done before InitCodes */
|
||||
/* This must be done before initialising predicates */
|
||||
for (i = 0; i <= NUMBER_OF_YAP_FLAGS; i++) {
|
||||
for (i = 0; i < NUMBER_OF_YAP_FLAGS; i++) {
|
||||
yap_flags[i] = 0;
|
||||
}
|
||||
#ifdef MPW
|
||||
|
@ -4028,7 +4028,7 @@ p_access_yap_flags( USES_REGS1 )
|
||||
return(FALSE);
|
||||
}
|
||||
flag = IntOfTerm(tflag);
|
||||
if (flag < 0 || flag > NUMBER_OF_YAP_FLAGS) {
|
||||
if (flag < 0 || flag >= NUMBER_OF_YAP_FLAGS) {
|
||||
return(FALSE);
|
||||
}
|
||||
#ifdef TABLING
|
||||
|
Reference in New Issue
Block a user