[m-rev.] diff: fix type_desc.m with `--procs-per-c-function 0'

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

library/type_desc.m:
	Avoid a name clash with the initialization function
	generated with `--procs-per-c-function 0'.

Index: type_desc.m
===================================================================
RCS file: /home/mercury1/repository/mercury/library/type_desc.m,v
retrieving revision 1.8
diff -u -u -r1.8 type_desc.m
--- type_desc.m	19 Apr 2002 12:12:55 -0000	1.8
+++ type_desc.m	21 May 2002 08:01:29 -0000
@@ -4,7 +4,7 @@
 % Public License - see the file COPYING.LIB in the Mercury distribution.
 %-----------------------------------------------------------------------------%
 
-% File: types.m.
+% File: type_desc.m.
 % Main author: fjh, zs.
 % Stability: low.
 
@@ -207,7 +207,7 @@
 MR_define_extern_entry(mercury____Unify___type_desc__type_desc_0_0);
 MR_define_extern_entry(mercury____Compare___type_desc__type_desc_0_0);
 
-MR_BEGIN_MODULE(type_desc_module)
+MR_BEGIN_MODULE(type_desc_unify_compare_module)
 	MR_init_entry(mercury____Unify___type_desc__type_ctor_desc_0_0);
 	MR_init_entry(mercury____Compare___type_desc__type_ctor_desc_0_0);
 	MR_init_entry(mercury____Unify___type_desc__type_desc_0_0);
@@ -310,7 +310,7 @@
 
 MR_END_MODULE
 
-MR_MODULE_STATIC_OR_EXTERN MR_ModuleFunc type_desc_module;
+MR_MODULE_STATIC_OR_EXTERN MR_ModuleFunc type_desc_unify_compare_module;
 
 #endif /* ! MR_HIGHLEVEL_CODE */
 
@@ -318,7 +318,7 @@
 sys_init_type_desc_module_init(void)
 {
 #ifndef	MR_HIGHLEVEL_CODE
-	type_desc_module();
+	type_desc_unify_compare_module();
 
 	MR_INIT_TYPE_CTOR_INFO(
 		mercury_data_type_desc__type_ctor_info_type_ctor_desc_0,
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------