[m-dev.] trivial diff: fix bug in mercury_ho_call.c

Fergus Henderson fjh at cs.mu.OZ.AU
Fri Apr 23 15:43:11 AEST 1999


Estimated hours taken: 0.25

runtime/mercury_ho_call.c:
	Fix a bug in my previous bug fix: the old do_call_* labels
	don't have `mercury__' prefixes.

Workspace: /home/mercury0/fjh/mercury-other
Index: runtime/mercury_ho_call.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_ho_call.c,v
retrieving revision 1.18
diff -u -r1.18 mercury_ho_call.c
--- mercury_ho_call.c	1999/04/21 13:41:36	1.18
+++ mercury_ho_call.c	1999/04/23 05:39:12
@@ -136,13 +136,13 @@
 
 Define_entry(do_call_det_closure);
 	tailcall(ENTRY(mercury__do_call_closure),
-		LABEL(mercury__do_call_det_closure));
+		LABEL(do_call_det_closure));
 Define_entry(do_call_semidet_closure);
 	tailcall(ENTRY(mercury__do_call_closure),
-		LABEL(mercury__do_call_semidet_closure));
+		LABEL(do_call_semidet_closure));
 Define_entry(do_call_nondet_closure);
 	tailcall(ENTRY(mercury__do_call_closure),
-		LABEL(mercury__do_call_nondet_closure));
+		LABEL(do_call_nondet_closure));
 
 Define_entry(do_call_old_closure);
 {
@@ -223,13 +223,13 @@
 
 Define_entry(do_call_det_class_method);
 	tailcall(ENTRY(mercury__do_call_class_method),
-		LABEL(mercury__do_call_det_class_method));
+		LABEL(do_call_det_class_method));
 Define_entry(do_call_semidet_class_method);
 	tailcall(ENTRY(mercury__do_call_class_method),
-		LABEL(mercury__do_call_semidet_class_method));
+		LABEL(do_call_semidet_class_method));
 Define_entry(do_call_nondet_class_method);
 	tailcall(ENTRY(mercury__do_call_class_method),
-		LABEL(mercury__do_call_nondet_class_method));
+		LABEL(do_call_nondet_class_method));
 
 	/*
 	** r1: the typeclass_info

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------



More information about the developers mailing list