[m-dev.] trivial diff: minimal model and C flags

[Zoltan Somogyi]

compiler/mercury_compile.m:
	Fix a bug: when ---use-minimal-model is specified, pass the
	corresponding flag to the C compiler.

Zoltan.

cvs diff: Diffing .
Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.137
diff -u -b -r1.137 mercury_compile.m
--- mercury_compile.m	1999/09/09 17:52:57	1.137
+++ mercury_compile.m	1999/09/10 10:54:34
@@ -2406,6 +2406,12 @@
 	;
 		UseTrailOpt = ""
 	},
+	globals__io_lookup_bool_option(use_minimal_model, MinimalModel),
+	{ MinimalModel = yes ->
+		MinimalModelOpt = "-DMR_USE_MINIMAL_MODEL "
+	;
+		MinimalModelOpt = ""
+	},
 	globals__io_lookup_bool_option(type_layout, TypeLayoutOption),
 	{ TypeLayoutOption = no ->
 		TypeLayoutOpt = "-DNO_TYPE_LAYOUT "
@@ -2455,7 +2461,7 @@
 		PIC_Reg_Opt, TagsOpt, NumTagBitsOpt,
 		C_DebugOpt, LL_DebugOpt,
 		StackTraceOpt, RequireTracingOpt,
-		UseTrailOpt, TypeLayoutOpt,
+		UseTrailOpt, MinimalModelOpt, TypeLayoutOpt,
 		InlineAllocOpt, WarningOpt, CFLAGS,
 		" -c ", C_File, " -o ", O_File], Command) },
 	invoke_system_command(Command, Succeeded),
cvs diff: Diffing notes
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------