[Xsb-commits] CVS: XSB/syslib curr_sym.P, 1.33, 1.34 curr_sym.xwam, 1.41, 1.42

[Terrance S. <ts...@us...>]

Update of /cvsroot/xsb/XSB/syslib
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv3733

Modified Files:
	curr_sym.P curr_sym.xwam 
Log Message:

Added xsb_flag clause_garbage_collection.  Also, fixed typo in setting dcg_mode.


Index: curr_sym.P
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/curr_sym.P,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- curr_sym.P	20 Feb 2006 20:36:30 -0000	1.33
+++ curr_sym.P	8 Jul 2006 18:46:04 -0000	1.34
@@ -652,12 +652,17 @@
 	stat_flag(DCG_MODE, Dcg_flag),
 	( Dcg_flag =:= 0 -> DcgMode = xsb ; DcgMode = standard ).
 xsb_flag(garbage_collection, GCmode) :-
+	xsb_flag(heap_garbage_collection, GCmode).
+xsb_flag(heap_garbage_collection, GCmode) :-
 	stat_flag(GARBAGE_COLLECT, GCflag),
 	( GCflag =:= NO_GC -> GCmode = none
 	; GCflag =:= SLIDING_GC -> GCmode = sliding
 	; GCflag =:= COPYING_GC -> GCmode = copying
 	; GCflag =:= INDIRECTION_SLIDE_GC -> GCmode = indirection
 	).
+xsb_flag(clause_garbage_collection, OnOff) :-
+	stat_flag(CLAUSE_GARBAGE_COLLECT, GCflag),
+	( GCflag =:= 0 -> OnOff = off ; OnOff = on ).
 xsb_flag(gc_verbose_level,Level) :-
 	(   var(Level)
 	->  stat_flag(VERBOSE_GC,VerboseGC),
@@ -736,8 +741,10 @@
 %	intern_string(GoalUninterned, Goal).
 set_xsb_flag_1(dcg_style, DcgMode) :-  !, 
 	( DcgMode == xsb -> Value = 0 ; Value = 1 ),
-	stat_flag(DCG_MODE, Value).
+	stat_set_flag(DCG_MODE, Value).
 set_xsb_flag_1(garbage_collection, GCmode) :-  !, 
+	set_xsb_flag_1(heap_garbage_collection, GCmode).
+set_xsb_flag_1(heap_garbage_collection, GCmode) :-  !, 
 	( GCmode = none -> GCflag = NO_GC 
 	; GCmode = sliding -> GCflag = SLIDING_GC 
 	; GCmode = copying -> GCflag = COPYING_GC
@@ -746,6 +753,9 @@
                        GCmode,set_xsb_flag/2,2,'garbage_collection clause')
 	),
 	stat_set_flag(GARBAGE_COLLECT, GCflag).
+set_xsb_flag_1(clause_garbage_collection, OnOff) :-  !, 
+	( OnOff == off -> Value = 0 ; Value = 1 ),
+	stat_set_flag(CLAUSE_GARBAGE_COLLECT, Value).
 set_xsb_flag_1(gc_verbose_level,Level) :-  !, 
 	(   Level = 0
 	-> stat_set_flag(VERBOSE_GC,0),

Index: curr_sym.xwam
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/curr_sym.xwam,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -r1.41 -r1.42
Binary files /tmp/cvsDybiwv and /tmp/cvsfBiNAK differ