[m-dev.] trivial diff: don't check errorcheck_only in maybe_do_inlining

[Fergus Henderson]

Estimated hours taken: 0.25

compiler/mercury_compile.m:
	Don't check if errorcheck_only = no in maybe_do_inlining,
	since there is no need: maybe_do_inlining is only ever
	called from middle_pass, and middle_pass is only ever called
	if errorcheck_only = no.

Workspace: /d-drive/home/hg/fjh/mercury
Index: compiler/mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.148
diff -u -d -r1.148 mercury_compile.m
--- compiler/mercury_compile.m	2000/02/10 04:37:38	1.148
+++ compiler/mercury_compile.m	2000/03/10 06:17:01
@@ -1708,12 +1708,10 @@
 :- mode mercury_compile__maybe_do_inlining(in, in, in, out, di, uo) is det.
 
 mercury_compile__maybe_do_inlining(HLDS0, Verbose, Stats, HLDS) -->
-	globals__io_lookup_bool_option(errorcheck_only, ErrorCheckOnly),
 	globals__io_lookup_bool_option(inline_simple, Simple),
 	globals__io_lookup_bool_option(inline_single_use, SingleUse),
 	globals__io_lookup_int_option(inline_compound_threshold, Threshold),
 	(
-		{ ErrorCheckOnly = no },
 		{ Simple = yes ; SingleUse = yes ; Threshold > 0 }
 	->
 		maybe_write_string(Verbose, "% Inlining...\n"),

-- 
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.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------