[m-dev.] diff: fix bug with fact tables and --debug

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/fact_table.m:
	Fix a bug that broke nondet fact tables in debug grades:
	the call to init_label() had the wrong label name.

Workspace: /d-drive/home/hg/fjh/mercury
Index: compiler/fact_table.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/fact_table.m,v
retrieving revision 1.27
diff -u -d -r1.27 fact_table.m
--- compiler/fact_table.m	1999/09/29 04:50:17	1.27
+++ compiler/fact_table.m	1999/10/26 08:48:42
@@ -2532,7 +2532,7 @@
 
 BEGIN_MODULE(%s_module)
 	init_entry(%s);
-	init_label(%s_i);
+	init_label(%s_i1);
 BEGIN_CODE
 Define_entry(%s);
 	mkframe(""%s/%d"", 1, LABEL(%s_i1));

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