support for agc_margin

C/agc.c

@@ -466,8 +466,10 @@ p_inform_agc(void)
   Term tt = MkIntegerTerm(agc_calls);
   Term ts = MkIntegerTerm(tot_agc_recovered);
 
-  return(Yap_unify(tn, ARG2) && Yap_unify(tt, ARG1) && Yap_unify(ts, ARG3));
-
+  return
+    Yap_unify(tn, ARG2) &&
+    Yap_unify(tt, ARG1) &&
+    Yap_unify(ts, ARG3);
 }
 
 static Int

docs/yap.tex

@@ -7551,6 +7551,13 @@ Set or read system properties for @var{Param}:
 @* Read-only flag. It unifies with a list of atoms that gives the
 arguments to YAP after @code{--}.
 
+@item agc_margin
+@findex agc_margin (yap_flag/2 option)
+An integer: if this amount of atoms has been created since the last
+atom-garbage collection, perform atom garbage collection at the first
+opportunity. Initial value is 10,000. May be changed. A value of 0
+(zero) disables atom garbage collection.
+
 @item bounded [ISO]
 @findex bounded (yap_flag/2 option)
 @*

pl/flags.yap

@@ -99,6 +99,10 @@ yap_flag(syntax_errors, Option) :-
 yap_flag(enhanced,on) :- !, set_value('$enhanced',true).
 yap_flag(enhanced,off) :- set_value('$enhanced',[]).
 
+% compatibility flag
+yap_flag(agc_margin,Margin) :-
+	'$agc_threshold'(Margin).
+
 %
 % SWI compatibility flag
 %
@@ -768,6 +772,7 @@ yap_flag(address_bits,X) :-
 yap_flag(dialect,yap).
 
 '$yap_system_flag'(address_bits).
+'$yap_system_flag'(agc_margin).
 '$yap_system_flag'(answer_format).
 '$yap_system_flag'(argv).
 '$yap_system_flag'(bounded).