[m-rev.] diff: a better abort message

[Zoltan Somogyi]

compiler/call_gen.m:
	Make an abort message more informative.

Zoltan.

cvs diff: Diffing .
Index: call_gen.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/call_gen.m,v
retrieving revision 1.147
diff -u -b -r1.147 call_gen.m
--- call_gen.m	2001/03/06 05:51:20	1.147
+++ call_gen.m	2001/04/20 04:01:58
@@ -644,7 +644,10 @@
 	->
 		SimpleCode = SimpleCode0
 	;
-		error("Unknown builtin predicate")
+		length(Args, Arity),
+		format("Unknown builtin predicate: %s/%d",
+			[s(PredName), i(Arity)], Msg),
+		error(Msg)
 	},
 	(
 		{ CodeModel = model_det },
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------