[m-dev.] diff: llds_out.m bug fix

[Fergus Henderson]

Estimated hours taken: 0.5

compiler/llds_out.m:
	Fix a bug where it was forward declaring certain structures
	such as the the proc_layouts as `const' even when
	they should not be const (and were not _defined_ as consts)
	because they contain code addresses which are not static consts.

Workspace: /d-drive/home/hg/fjh/mercury
Index: compiler/llds_out.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/llds_out.m,v
retrieving revision 1.127
diff -u -d -r1.127 llds_out.m
--- compiler/llds_out.m	1999/10/25 09:20:11	1.127
+++ compiler/llds_out.m	1999/11/04 03:11:58
@@ -2792,10 +2792,10 @@
 
 	globals__io_get_globals(Globals),
 
-		% Don't make decls of type_ctor_infos `const' if we
-		% don't have static code addresses.
+		% Don't make decls of type_ctor_infos etc.
+		% `const' if we don't have static code addresses.
 	(
-		{ VarName = type_ctor(info, _, _) },
+		{ data_name_would_include_code_address(VarName, yes) },
 		{ globals__have_static_code_addresses(Globals, no) }
 	->
 		[]

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