valgrind it!

enable atom garbage collection. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2055 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-01-23 17:57:56 +00:00
parent 2a7d514d3f
commit 637f381d94
31 changed files with 595 additions and 227 deletions
--- a/C/globals.c
+++ b/C/globals.c
@@ -488,6 +488,9 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, int share, CELL *p
 	    H[1] = ap2[1];
 	    H[2] = EndSpecials;
 	    H += 3;
+	    if (H > ASP - 128) {
+	      goto overflow;
+	    }
 	    break;
 	  case (CELL)FunctorDouble:
 	    if (H > ASP - (128+(2+SIZEOF_DOUBLE/sizeof(CELL)))) {