diff: llds_out.m: delete unnecessary casts

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/llds_out.m:
	Delete some unnecessary casts of the value of mkword() to
	`const Word *' -- mkword() already casts the result to that type.

Index: compiler/llds_out.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/llds_out.m,v
retrieving revision 1.85
diff -u -r1.85 llds_out.m
--- llds_out.m	1998/07/20 10:01:04	1.85
+++ llds_out.m	1998/07/25 11:57:12
@@ -2849,9 +2849,7 @@
 		io__write_string(")")
 	).
 output_rval(mkword(Tag, Exprn)) -->
-	% XXX we should change the definition of mkword()
-	% so that this cast is not needed
-	io__write_string("(const Word *) mkword("),
+	io__write_string("mkword("),
 	output_tag(Tag),
 	io__write_string(", "),
 	output_rval_as_type(Exprn, word),
@@ -2879,9 +2877,7 @@
 output_rval(create(Tag, _Args, _Unique, CellNum, _Msg)) -->
 		% emit a reference to the static constant which we
 		% declared in output_rval_decls.
-	% XXX we should change the definition of mkword()
-	% so that this cast is not needed
-	io__write_string("(const Word *) mkword(mktag("),
+	io__write_string("mkword(mktag("),
 	io__write_int(Tag),
 	io__write_string("), "),
 	io__write_string("&mercury_const_"),

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