===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/gc_risa.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM_contrib2/asir2000/parse/gc_risa.c	2005/11/12 08:10:56	1.2
+++ OpenXM_contrib2/asir2000/parse/gc_risa.c	2007/11/11 15:54:03	1.3
@@ -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;