diff: s/init_entry_ai/init_entry/ in runtime

[Fergus Henderson]

Estimated hours taken: 0.25

runtime/*.c:
	Use init_entry_ai() rather than init_entry() for all the
	hard-coded entry points defined in the runtime, so that
	these are entered into the entry point table even in non-debug
	grades.

	The rationale for this change is to make it easier to
	debug things in non-debug grades.

Index: runtime/mercury_context.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_context.c,v
retrieving revision 1.14
diff -u -r1.14 mercury_context.c
--- mercury_context.c	1998/09/21 10:21:40	1.14
+++ mercury_context.c	1998/11/09 04:44:46
@@ -163,7 +163,7 @@
 Define_extern_entry(do_runnext);
 
 BEGIN_MODULE(scheduler_module)
-	init_entry(do_runnext);
+	init_entry_ai(do_runnext);
 BEGIN_CODE
 
 Define_entry(do_runnext);
Index: runtime/mercury_ho_call.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_ho_call.c,v
retrieving revision 1.13
diff -u -r1.13 mercury_ho_call.c
--- mercury_ho_call.c	1998/11/05 03:53:38	1.13
+++ mercury_ho_call.c	1998/11/09 04:45:55
@@ -89,27 +89,27 @@
 #endif
 
 BEGIN_MODULE(call_module)
-	init_entry(do_call_det_closure);
-	init_entry(do_call_semidet_closure);
-	init_entry(do_call_nondet_closure);
+	init_entry_ai(do_call_det_closure);
+	init_entry_ai(do_call_semidet_closure);
+	init_entry_ai(do_call_nondet_closure);
 
-	init_entry(do_call_det_class_method);
-	init_entry(do_call_semidet_class_method);
-	init_entry(do_call_nondet_class_method);
+	init_entry_ai(do_call_det_class_method);
+	init_entry_ai(do_call_semidet_class_method);
+	init_entry_ai(do_call_nondet_class_method);
 
-	init_entry(mercury__unify_2_0);
+	init_entry_ai(mercury__unify_2_0);
 #ifdef	COMPACT_ARGS
-	init_entry(mercury__index_2_0);
-	init_entry(mercury__compare_3_0);
+	init_entry_ai(mercury__index_2_0);
+	init_entry_ai(mercury__compare_3_0);
 #else
 	init_entry_sl(mercury__index_2_0);
 	init_label_sl(mercury__index_2_0_i1);
 	init_entry_sl(mercury__compare_3_0);
 	init_label_sl(mercury__compare_3_0_i1);
 #endif
-	init_entry(mercury__compare_3_1);
-	init_entry(mercury__compare_3_2);
-	init_entry(mercury__compare_3_3);
+	init_entry_ai(mercury__compare_3_1);
+	init_entry_ai(mercury__compare_3_2);
+	init_entry_ai(mercury__compare_3_3);
 BEGIN_CODE
 
 Define_entry(do_call_det_closure);
Index: runtime/mercury_trace_base.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_trace_base.c,v
retrieving revision 1.5
diff -u -r1.5 mercury_trace_base.c
--- mercury_trace_base.c	1998/11/06 03:51:30	1.5
+++ mercury_trace_base.c	1998/11/09 04:42:07
@@ -268,7 +268,7 @@
 Define_extern_entry(MR_do_trace_redo_fail);
 
 BEGIN_MODULE(MR_trace_labels_module)
-	init_entry(MR_do_trace_redo_fail);
+	init_entry_ai(MR_do_trace_redo_fail);
 BEGIN_CODE
 
 Define_entry(MR_do_trace_redo_fail);
Index: runtime/mercury_type_info.c
===================================================================
RCS file: /home/mercury1/repository/mercury/runtime/mercury_type_info.c,v
retrieving revision 1.12
diff -u -r1.12 mercury_type_info.c
--- mercury_type_info.c	1998/11/05 03:53:47	1.12
+++ mercury_type_info.c	1998/11/09 04:46:14
@@ -115,7 +115,7 @@
 Define_extern_entry(mercury__builtin_compare_pred_3_0);
 
 BEGIN_MODULE(mercury__builtin_unify_pred_module)
-	init_entry(mercury__builtin_unify_pred_2_0);
+	init_entry_ai(mercury__builtin_unify_pred_2_0);
 BEGIN_CODE
 
 /* code for predicate 'builtin_unify_pred'/2 in mode 0 */
@@ -126,7 +126,7 @@
 
 
 BEGIN_MODULE(mercury__builtin_index_pred_module)
-	init_entry(mercury__builtin_index_pred_2_0);
+	init_entry_ai(mercury__builtin_index_pred_2_0);
 BEGIN_CODE
 
 /* code for predicate 'builtin_index_pred'/2 in mode 0 */
@@ -136,7 +136,7 @@
 END_MODULE
 
 BEGIN_MODULE(mercury__builtin_compare_pred_module)
-	init_entry(mercury__builtin_compare_pred_3_0);
+	init_entry_ai(mercury__builtin_compare_pred_3_0);
 BEGIN_CODE
 
 /* code for predicate 'builtin_compare_pred'/3 in mode 0 */

-- 
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.