[m-rev.] diff: fix mercury_compile.m

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.1
Branches: main

compiler/mercury_compile.m:
    Comment out some code to do with threading GC stack frames, which
    doesn't compile.


Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.225
diff -u -r1.225 mercury_compile.m
--- mercury_compile.m	26 Nov 2001 09:30:56 -0000	1.225
+++ mercury_compile.m	26 Nov 2001 10:56:16 -0000
@@ -3272,7 +3272,9 @@
 	( { NestedFuncs = no } ->
 		maybe_write_string(Verbose,
 			"% Flattening nested functions...\n"),
-		ml_elim_nested(hoist_nested_funcs, MLDS20, MLDS30),
+		% XXX this version of ml_elim_nested doesn't exist
+		% ml_elim_nested(hoist_nested_funcs, MLDS20, MLDS30),
+		ml_elim_nested(MLDS20, MLDS30),
 		maybe_write_string(Verbose, "% done.\n")
 	;
 		{ MLDS30 = MLDS20 }
@@ -3280,6 +3282,7 @@
 	maybe_report_stats(Stats),
 	mercury_compile__maybe_dump_mlds(MLDS30, "30", "nested_funcs"),
 
+	/* XXX the version of ml_elim_nested doesn't exist.
 	globals__io_get_gc_method(GC),
 	( { GC = accurate } ->
 		maybe_write_string(Verbose,
@@ -3291,6 +3294,8 @@
 	),
 	maybe_report_stats(Stats),
 	mercury_compile__maybe_dump_mlds(MLDS35, "35", "gc_frames"),
+	*/
+	{ MLDS35 = MLDS30 },
 
 	globals__io_lookup_bool_option(optimize, Optimize),
 	( { Optimize = yes } ->

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