[m-rev.] trivial diff: trailed mutables in non .tr grades

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

compiler/make_hlds_passes.m:
	Set the exit status to 1 if we detect an attempt to use
	a trailed mutable in a non-trailing grade.  (A better approach
	would be to get write_error_pieces to set it for us.)

Julien.

Index: make_hlds_passes.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/make_hlds_passes.m,v
retrieving revision 1.31
diff -u -r1.31 make_hlds_passes.m
--- make_hlds_passes.m	8 Mar 2006 02:25:32 -0000	1.31
+++ make_hlds_passes.m	16 Mar 2006 05:57:57 -0000
@@ -1239,6 +1239,7 @@
                     words("Error: trailed mutable in non-trailing grade.")
                 ],
                 write_error_pieces(Context, 0, NonTrailingError, !IO),
+                io.set_exit_status(1, !IO),
                 %
                 % This is just a dummy value.
                 %

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