valgrind it!

enable atom garbage collection.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2055 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

H/sshift.h

@@ -31,7 +31,11 @@ inline EXTERN int IsHeapP (CELL *);
 inline EXTERN int
 IsHeapP (CELL * ptr)
 {
+#if USE_SYSTEM_MALLOC
+  return (int) ((ptr < (CELL *) Yap_GlobalBase || ptr > (CELL *) Yap_TrailTop));
+#else
   return (int) ((ptr >= (CELL *) Yap_HeapBase && ptr <= (CELL *) HeapTop));
+#endif
 }
 
 
@@ -740,7 +744,11 @@ inline EXTERN int IsOldCode (CELL);
 inline EXTERN int
 IsOldCode (CELL reg)
 {
+#if USE_SYSTEM_MALLOC
+  return reg < (CELL)OldGlobalBase || reg > (CELL)OldTrailTop;
+#else 
   return (int) (IN_BETWEEN (OldHeapBase, reg, OldHeapTop));
+#endif
 }