trivial diff: tracing option bug fix

Fergus Henderson fjh at cs.mu.OZ.AU
Sun May 17 07:08:36 AEST 1998


Estimated hours taken: 0.25

compiler/options.m:
	Fix a bug: the default `--trace' should be `--trace minimum'
	not `--trace minimal'.

compiler/handle_options.m:
	Unwrap some lines that didn't need to be wrapped.

Index: options.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/options.m,v
retrieving revision 1.228
diff -u -u -r1.228 options.m
--- options.m	1998/05/16 07:30:37	1.228
+++ options.m	1998/05/16 21:03:03
@@ -359,7 +359,7 @@
 option_defaults_2(aux_output_option, [
 		% Auxiliary Output Options
 	assume_gmake		-	bool(yes),
-	trace			-	string("minimal"),
+	trace			-	string("minimum"),
 	generate_bytecode	-	bool(no),
 	generate_prolog		-	bool(no),
 	prolog_dialect		-	string("default"),
Index: handle_options.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/handle_options.m,v
retrieving revision 1.48
diff -u -u -r1.48 handle_options.m
--- handle_options.m	1998/05/16 07:30:04	1.48
+++ handle_options.m	1998/05/16 21:04:35
@@ -128,12 +128,10 @@
                 { ArgsMethod0 = string(ArgsMethodStr) },
                 { convert_args_method(ArgsMethodStr, ArgsMethod) }
             ->
-                { map__lookup(OptionTable, prolog_dialect,
-                    PrologDialect0) },
+                { map__lookup(OptionTable, prolog_dialect, PrologDialect0) },
                 (
                     { PrologDialect0 = string(PrologDialectStr) },
-                    { convert_prolog_dialect(PrologDialectStr,
-                        PrologDialect) }
+                    { convert_prolog_dialect(PrologDialectStr, PrologDialect) }
                 ->
                     { map__lookup(OptionTable,
                         fact_table_hash_percent_full, PercentFull) },
@@ -146,14 +144,12 @@
                                 TermNorm0) },
                         ( 
                             { TermNorm0 = string(TermNormStr) },
-                            { convert_termination_norm(TermNormStr,
-                                    TermNorm) }
+                            { convert_termination_norm(TermNormStr, TermNorm) }
                         ->
                             { map__lookup(OptionTable, trace, Trace) },
                             (
                                 { Trace = string(TraceStr) },
-                                { convert_trace_level(TraceStr,
-                                    TraceLevel) }
+                                { convert_trace_level(TraceStr, TraceLevel) }
                             ->
                                 postprocess_options_2(OptionTable,
                                     GC_Method, TagsMethod, ArgsMethod,
-- 
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.



More information about the developers mailing list