[m-rev.] trivial diff: fix for GCC back-end

[Fergus Henderson]

Estimated hours taken: 0.5
Branches: main

compiler/mlds_to_gcc.m:
	Handle the self/1 rval (just call unexpected/2).

Workspace: /home/mars/fjh/ws1/mercury
Index: compiler/mlds_to_gcc.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_gcc.m,v
retrieving revision 1.40
diff -u -d -r1.40 mlds_to_gcc.m
--- compiler/mlds_to_gcc.m	2001/05/10 15:07:58	1.40
+++ compiler/mlds_to_gcc.m	2001/06/24 06:51:35
@@ -2961,6 +2961,9 @@
 	build_lval(Lval, DefnInfo, Expr),
 	gcc__build_addr_expr(Expr, AddrExpr).
 
+build_rval(self(_), _DefnInfo, _Expr) -->
+	{ unexpected(this_file, "self rval") }.
+
 :- pred build_unop(mlds__unary_op, mlds__rval, defn_info, gcc__expr,
 		io__state, io__state).
 :- mode build_unop(in, in, in, out, di, uo) is det.

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------