diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

flags patch by Petr Pisaf

Browse Source
This commit is contained in:
Vitor Santos Costa 2013-01-09 09:20:41 +00:00
parent 1043d037e9
commit e14703b990
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/init.c
View File

@ -1318,7 +1318,7 @@ Yap_InitWorkspace(UInt Heap, UInt Stack, UInt Trail, UInt Atts, UInt max_table_s
Yap_InitTime( 0 ); Yap_InitTime( 0 );
/* InitAbsmi must be done before InitCodes */ /* InitAbsmi must be done before InitCodes */
/* This must be done before initialising predicates */ /* 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; yap_flags[i] = 0;
} }
#ifdef MPW #ifdef MPW

2
C/stdpreds.c
View File

@ -4028,7 +4028,7 @@ p_access_yap_flags( USES_REGS1 )
return(FALSE); return(FALSE);
} }
flag = IntOfTerm(tflag); flag = IntOfTerm(tflag);
if (flag < 0 || flag > NUMBER_OF_YAP_FLAGS) { if (flag < 0 || flag >= NUMBER_OF_YAP_FLAGS) {
return(FALSE); return(FALSE);
} }
#ifdef TABLING #ifdef TABLING