[m-rev.] trivial diff: fix a couple of minor bugs

Mark Brown dougl at cs.mu.OZ.AU
Fri Apr 12 14:47:29 AEST 2002


Estimated hours taken: 0.1
Branches: main

runtime/mercury_ho_call.c:
	Fix what appears to be a cut and paste error.

runtime/mercury_unify_compare_body.h:
	Fix a type error -- a bool was being treated like a comparison_result.

Index: runtime/mercury_ho_call.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_ho_call.c,v
retrieving revision 1.52
diff -u -r1.52 mercury_ho_call.c
--- runtime/mercury_ho_call.c	27 Mar 2002 05:18:48 -0000	1.52
+++ runtime/mercury_ho_call.c	12 Apr 2002 04:43:51 -0000
@@ -474,7 +474,7 @@
 
 #define return_answer(answer)						\
 	do {								\
-		MR_restore_transient_registers();			\
+		MR_save_transient_registers();				\
 		return (answer);					\
 	} while (0)
 
Index: runtime/mercury_unify_compare_body.h
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_unify_compare_body.h,v
retrieving revision 1.20
diff -u -r1.20 mercury_unify_compare_body.h
--- runtime/mercury_unify_compare_body.h	12 Apr 2002 01:24:25 -0000	1.20
+++ runtime/mercury_unify_compare_body.h	12 Apr 2002 04:43:54 -0000
@@ -659,7 +659,7 @@
                     (MR_TypeCtorDesc) x, (MR_TypeCtorDesc) y);
                 MR_restore_transient_registers();
   #if defined(MR_DEEP_PROFILING) && defined(entry_point_is_mercury)
-                if (result == MR_COMPARE_EQUAL) {
+                if (result) {
                     unify_call_exit_code(typectordesc_unify);
                 } else {
                     unify_call_fail_code(typectordesc_unify);
--------------------------------------------------------------------------
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