[Yap-commits] CVS: H Heap.h, 1.132, 1.133 amidefs.h, 1.33, 1.34 rheap.h, 1.98, 1.99

[Vitor S. C. <vs...@us...>]

Update of /cvsroot/yap/H
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv25978/H

Modified Files:
	Heap.h amidefs.h rheap.h 
Log Message:
SWI and module fixes


Index: Heap.h
===================================================================
RCS file: /cvsroot/yap/H/Heap.h,v
retrieving revision 1.132
retrieving revision 1.133
diff -u -r1.132 -r1.133
--- Heap.h	28 May 2008 17:18:35 -0000	1.132
+++ Heap.h	22 Jul 2008 23:34:49 -0000	1.133
@@ -449,6 +449,7 @@
     functor_arrow,
     functor_assert,
     functor_at_found_one,
+    functor_atom,
 #ifdef COROUTINING
     functor_att_goal,   /* goal that activates attributed variables */
 #endif
@@ -762,6 +763,7 @@
 #define  FunctorArrow             Yap_heap_regs->functor_arrow
 #define  FunctorAssert            Yap_heap_regs->functor_assert
 #define  FunctorAtFoundOne        Yap_heap_regs->functor_at_found_one
+#define  FunctorAtom              Yap_heap_regs->functor_atom
 #ifdef COROUTINING
 #define  FunctorAttGoal           Yap_heap_regs->functor_att_goal
 #endif

Index: amidefs.h
===================================================================
RCS file: /cvsroot/yap/H/amidefs.h,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- amidefs.h	26 Nov 2007 23:43:09 -0000	1.33
+++ amidefs.h	22 Jul 2008 23:34:49 -0000	1.34
@@ -13,6 +13,9 @@
  *									 *
  * Last rev:     $Date$							 *
  * $Log$
+ * Revision 1.34  2008/07/22 23:34:49  vsc
+ * SWI and module fixes
+ *
  * Revision 1.33  2007/11/26 23:43:09  vsc
  * fixes to support threads and assert correctly, even if inefficiently.
  *
@@ -230,11 +233,6 @@
       CELL next;
     } d;
     struct {
-      CODEADDR            d;
-      struct pred_entry  *p;
-      CELL next;
-    } dp;
-    struct {
       Int  ClTrail;
       Int  ClENV;
       Int  ClRefs;

Index: rheap.h
===================================================================
RCS file: /cvsroot/yap/H/rheap.h,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- rheap.h	12 May 2008 22:31:37 -0000	1.98
+++ rheap.h	22 Jul 2008 23:34:49 -0000	1.99
@@ -13,6 +13,9 @@
 *									 *
 * Last rev:     $Date$,$Author$						 *
 * $Log$
+* Revision 1.99  2008/07/22 23:34:49  vsc
+* SWI and module fixes
+*
 * Revision 1.98  2008/05/12 22:31:37  vsc
 * fix previous fixes
 *
@@ -774,6 +777,7 @@
   Yap_heap_regs->functor_arrow = FuncAdjust(Yap_heap_regs->functor_arrow);
   Yap_heap_regs->functor_assert = FuncAdjust(Yap_heap_regs->functor_assert);
   Yap_heap_regs->functor_at_found_one = FuncAdjust(Yap_heap_regs->functor_at_found_one);
+  Yap_heap_regs->functor_atom = FuncAdjust(Yap_heap_regs->functor_atom);
 #ifdef COROUTINING
   Yap_heap_regs->functor_att_goal = FuncAdjust(Yap_heap_regs->functor_att_goal);
 #endif