[m-rev.] trivial diff: fix stage number assignment

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

compiler/mercury_compile.m:
	Fix up a stage number that got left out when
	the numbering was changed.

Julien.

Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.313
diff -u -r1.313 mercury_compile.m
--- mercury_compile.m	16 Aug 2004 08:51:08 -0000	1.313
+++ mercury_compile.m	31 Aug 2004 07:17:09 -0000
@@ -2171,12 +2171,12 @@
 :- pred mercury_compile__output_trans_opt_file(module_info::in,
 	io::di, io::uo) is det.

-mercury_compile__output_trans_opt_file(HLDS25, !IO) :-
+mercury_compile__output_trans_opt_file(HLDS0, !IO) :-
 	globals__io_lookup_bool_option(verbose, Verbose, !IO),
 	globals__io_lookup_bool_option(statistics, Stats, !IO),
-	mercury_compile__maybe_termination(Verbose, Stats, HLDS25, HLDS28, !IO),
-	mercury_compile__maybe_dump_hlds(HLDS28, 25, "termination", !IO),
-	trans_opt__write_optfile(HLDS28, !IO).
+	mercury_compile__maybe_termination(Verbose, Stats, HLDS0, HLDS, !IO),
+	mercury_compile__maybe_dump_hlds(HLDS, 120, "termination", !IO),
+	trans_opt__write_optfile(HLDS, !IO).

 :- pred mercury_compile__frontend_pass_by_phases(module_info::in,
 	module_info::out, bool::out, io::di, io::uo) is 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
--------------------------------------------------------------------------