[m-rev.] trivial diff: fix debugger test case failure

Simon Taylor stayl at cs.mu.OZ.AU
Sun Dec 16 15:46:31 AEDT 2001


Estimated hours taken: 0.1
Branches: main

tests/debugger/Mmakefile:
tests/debugger/loopcheck.exp2:
	Avoid dependencies on the line number of `error/1'.

Index: Mmakefile
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/Mmakefile,v
retrieving revision 1.58
diff -u -u -r1.58 Mmakefile
--- Mmakefile	11 Dec 2001 09:01:21 -0000	1.58
+++ Mmakefile	16 Dec 2001 04:39:04 -0000
@@ -183,13 +183,15 @@
 	if $(MDB) ./loopcheck < loopcheck.inp			\
 		> loopcheck.tmp 2>&1;				\
 	then							\
-		sed -e '/EXCP/s/).*/)/' < loopcheck.tmp		\
-			> loopcheck.out 2>&1;			\
+		sed -e '/EXCP/s/).*/)/'				\
+		    -e 's/require.m:[0-9]*/require.m:NNNN/g'	\
+			< loopcheck.tmp > loopcheck.out 2>&1;	\
 		rm loopcheck.tmp;				\
 		false;						\
 	else							\
-		sed -e '/EXCP/s/).*/)/' < loopcheck.tmp		\
-			> loopcheck.out 2>&1;			\
+		sed -e '/EXCP/s/).*/)/'				\
+		    -e 's/require.m:[0-9]*/require.m:NNNN/g'	\
+			< loopcheck.tmp	> loopcheck.out 2>&1;	\
 		rm loopcheck.tmp;				\
 		true;						\
 	fi
Index: loopcheck.exp2
===================================================================
RCS file: /home/mercury1/repository/tests/debugger/loopcheck.exp2,v
retrieving revision 1.6
diff -u -u -r1.6 loopcheck.exp2
--- loopcheck.exp2	30 Mar 2001 03:59:18 -0000	1.6
+++ loopcheck.exp2	16 Dec 2001 04:39:35 -0000
@@ -17,9 +17,9 @@
        7:      3  3 THEN pred loopcheck:loop/1-0 (erroneous) c2;e;t;
                          loopcheck.m:21
        8:      4  4 CALL pred require:error/1-0 (erroneous)
-                         require.m:89 (from loopcheck.m:21)
+                         require.m:NNNN (from loopcheck.m:21)
        9:      4  4 EXCP pred require:error/1-0 (erroneous)
-                         require.m:90 (from loopcheck.m:21)
+                         require.m:NNNN (from loopcheck.m:21)
       10:      3  3 EXCP pred loopcheck:loop/1-0 (erroneous)
                          loopcheck.m:21 (from loopcheck.m:21)
       11:      2  2 EXCP pred loopcheck:loop/1-0 (erroneous)
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list