===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/gc_risa.c,v
retrieving revision 1.2
retrieving revision 1.4
diff -u -p -r1.2 -r1.4
--- OpenXM_contrib2/asir2000/parse/gc_risa.c	2005/11/12 08:10:56	1.2
+++ OpenXM_contrib2/asir2000/parse/gc_risa.c	2009/02/05 08:37:02	1.4
@@ -42,7 +42,12 @@ int get_heapsize()
 
 long get_allocwords()
 {
+#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();