[m-rev.] diff: fix hlc link problem

[Zoltan Somogyi]

trace/mercury_trace_vars.c:
	Fix a link problem in hlc grades by using the actual name of a
	compiler-generated TypeCtorInfo structure.

Zoltan.

cvs diff: Diffing .
Index: mercury_trace_vars.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_vars.c,v
retrieving revision 1.30
diff -u -b -r1.30 mercury_trace_vars.c
--- mercury_trace_vars.c	2002/01/12 09:08:15	1.30
+++ mercury_trace_vars.c	2002/01/17 15:51:11
@@ -662,10 +662,16 @@
 ** current typeinfo optimization scheme.
 */
 
-MR_DECLARE_TYPE_CTOR_INFO_STRUCT(MR_type_ctor_info_name(mdb__util, unbound, 0));
+#ifdef	MR_HIGHLEVEL_CODE
+  #define unbound_ctor_name	mdb__util__mdb__util__type_ctor_info_unbound_0
+#else
+  #define unbound_ctor_name	MR_type_ctor_info_name(mdb__util, unbound, 0)
+#endif
+
+MR_DECLARE_TYPE_CTOR_INFO_STRUCT(unbound_ctor_name);
+
 static
-MR_static_type_info_arity_0(MR_unbound_typeinfo_struct,
-	&MR_type_ctor_info_name(mdb__util, unbound, 0));
+MR_static_type_info_arity_0(MR_unbound_typeinfo_struct, &unbound_ctor_name);
 
 const char *
 MR_trace_browse_one_goal(FILE *out, MR_GoalBrowser browser,
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------