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

patch for OPTYap from João Silva

Browse Source
This commit is contained in:
Vitor Santos Costa
2014-02-05 16:21:21 +00:00
parent ce6bc98f30
commit 6c7e5e3cd2
6 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/absmi.c
View File

@@ -1091,7 +1091,7 @@ interrupt_dexecute( USES_REGS1 )
{
choiceptr top_b = PROTECT_FROZEN_B(B);
#ifdef YAPOR_SBA
if (YENV > (CELL *) top_b || YENV < H) YENV = (CELL *) top_b;
if (YENV > (CELL *) top_b || YENV < HR) YENV = (CELL *) top_b;
#else
if (YENV > (CELL *) top_b) YENV = (CELL *) top_b;
#endif /* YAPOR_SBA */
@@ -1295,7 +1295,7 @@ Yap_absmi(int inp)
ops_done++;
/* if (B->cp_b > 0x103fff90)
fprintf(stderr,"(%ld) doing %s, done %s, B is %p, HB is %p, H is %p\n",
ops_done,Yap_op_names[opcode],Yap_op_names[old_op],B,B->cp_h,H);*/
ops_done,Yap_op_names[opcode],Yap_op_names[old_op],B,B->cp_h,HR);*/
#endif
#endif /* ANALYST */

2
C/arrays.c
View File

@@ -1233,7 +1233,9 @@ p_close_static_array( USES_REGS1 )
if (val) {
#endif
return(val);
#if USE_SYSTEM_MALLOC
}
#endif
#endif
Yap_FreeAtomSpace((char *)(ptr->ValueOfVE.ints));
ptr->ValueOfVE.ints = NULL;