trivial diff: fix bug in MR_stack_trace() change

Fergus Henderson fjh at cs.mu.OZ.AU
Sat Nov 14 01:05:30 AEDT 1998


Estimated hours taken: 0.25

Fix a bug caused by zs's recent change to runtime/mercury_stack_trace.{h,c}:

library/require.m:
library/math.m:
	Update calls to MR_dump_stack() to pass as the new
	`include_trace_data' argument the value `FALSE'.

Index: library/math.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/math.m,v
retrieving revision 1.21
diff -u -r1.21 math.m
--- math.m	1998/10/30 05:11:53	1.21
+++ math.m	1998/11/13 14:00:02
@@ -230,7 +230,7 @@
 			""Software error: Domain error in call to `%s'\\n"",
 			where);
 		MR_trace_report(stderr);
-		MR_dump_stack(MR_succip, MR_sp, MR_curfr);
+		MR_dump_stack(MR_succip, MR_sp, MR_curfr, FALSE);
 		exit(1);
 	}
 
Index: library/require.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/require.m,v
retrieving revision 1.25
diff -u -r1.25 require.m
--- require.m	1998/11/09 05:32:30	1.25
+++ require.m	1998/11/13 13:59:38
@@ -86,7 +86,7 @@
 	fflush(stdout);
 	fprintf(stderr, ""Software error: %s\\n"", Message);
 	MR_trace_report(stderr);
-	MR_dump_stack(MR_succip, MR_sp, MR_curfr);
+	MR_dump_stack(MR_succip, MR_sp, MR_curfr, FALSE);
 	exit(1);
 }
 END_MODULE

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "Binaries may die
WWW: <http://www.cs.mu.oz.au/~fjh>  |   but source code lives forever"
PGP: finger fjh at 128.250.37.3        |     -- leaked Microsoft memo.



More information about the developers mailing list