===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/gc_risa.c,v
retrieving revision 1.1
retrieving revision 1.4
diff -u -p -r1.1 -r1.4
--- OpenXM_contrib2/asir2000/parse/gc_risa.c	2002/07/24 10:01:39	1.1
+++ OpenXM_contrib2/asir2000/parse/gc_risa.c	2009/02/05 08:37:02	1.4
@@ -40,9 +40,14 @@ int get_heapsize()
 	return GC_heapsize;
 }
 
-int get_allocwords()
+long get_allocwords()
 {
-	return GC_words_allocd_before_gc;
+#if !defined(GC7)
+	return GC_words_allocd_before_gc + GC_words_allocd;
+#else
+	long n = GC_bytes_allocd_before_gc + GC_bytes_allocd;
+	return BYTES_TO_WORDS(n);
+#endif
 }
 
 double gctime;
@@ -180,6 +185,18 @@ double get_clock()
 }
 #endif
 #endif
+
+extern int GC_free_space_numerator;
+
+void Risa_GC_get_adj(int *nm, int *dn) {
+	*nm = GC_free_space_numerator;
+	*dn = GC_free_space_divisor;
+}
+
+void Risa_GC_set_adj(int nm, int dn) {
+	GC_free_space_numerator = nm;
+	GC_free_space_divisor = dn;
+}
 
 void GC_timerstart() {
 	gcstart = get_clock();