patch for OPTYap from João Silva

2014-02-05 16:21:21 +00:00
parent ce6bc98f30
commit 6c7e5e3cd2
6 changed files with 9 additions and 7 deletions
--- a/C/arrays.c
+++ b/C/arrays.c
@@ -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;