diff: Fix agc tests in jump and fast.

[Tyson Dowd]

Hi,

This should fix the failing agc tests on kryten.

===================================================================


Estimated hours taken: 0.5

tests/valid/Mmakefile:
tests/valid/runtests:
	Turn off the accurate GC tests for "jump" and "fast" grades.


Index: tests/valid/Mmakefile
===================================================================
RCS file: /home/staff/zs/imp/tests/valid/Mmakefile,v
retrieving revision 1.6
diff -u -r1.6 Mmakefile
--- Mmakefile	1998/01/05 08:40:42	1.6
+++ Mmakefile	1998/01/06 03:28:26
@@ -7,13 +7,15 @@
 #-----------------------------------------------------------------------------#
 
 # please keep this list sorted
-SOURCES= \
+AGC_SOURCES= \
 	agc_graph.m \
 	agc_ho_pred.m \
 	agc_ite.m \
 	agc_unbound_typevars.m \
 	agc_unbound_typevars2.m \
-	agc_unused_in.m \
+	agc_unused_in.m 
+
+OTHER_SOURCES= \
 	compl_unify_bug.m \
 	complicated_unify.m \
 	constructor_arg_names.m \
@@ -87,6 +89,19 @@
 #	assoc_list.m
 #	determinism.m
 #	mode_merge_insts.m
+
+
+# Not all grades can be used with accurate GC
+
+ifeq ($(GRADE),jump) 
+    SOURCES=$(OTHER_SOURCES)
+else
+    ifeq ($(GRADE),fast)
+        SOURCES=$(OTHER_SOURCES)
+    else
+        SOURCES=$(AGC_SOURCES) $(OTHER_SOURCES)
+    endif
+endif
 
 DEPS =	$(SOURCES:%.m=%.depend)
 OBJS =	$(SOURCES:%.m=%.o)
Index: tests/valid/runtests
===================================================================
RCS file: /home/staff/zs/imp/tests/valid/runtests,v
retrieving revision 1.3
diff -u -r1.3 runtests
--- runtests	1997/03/18 06:01:25	1.3
+++ runtests	1998/01/06 03:46:14
@@ -4,12 +4,12 @@
 
 . ../handle_options
 
-mmake $jfactor realclean > /dev/null 2>&1
-mmake $jfactor depend || exit 1
+mmake $gradeopt $jfactor realclean > /dev/null 2>&1
+mmake $gradeopt $jfactor depend || exit 1
 eval mmake -k $jfactor $gradeopt $flagsopt $cflagsopt check
 checkstatus=$?
 
-files=`mmake printtests`
+files=`mmake $gradeopt printtests`
 failed=""
 for file in $files
 do


-- 
       Tyson Dowd           # If I'm unusually agressive in this email, it's
                            # probably because USENET has been down here for
     trd at cs.mu.oz.au        # over a week, and I'm missing my usual dosage
http://www.cs.mu.oz.au/~trd # of flamewars. My apologies in advance.