[m-rev.] diff: fix `mmc --output-grade-string'

[Simon Taylor]

Estimated hours taken: 0.1
Branches: main

compiler/mercury_compile.m:
	With --output-grade-string, output the directory
	component, not the grade (the different being
	that the directory component omits the .picreg part).
	This is what Mmake expects.

Index: mercury_compile.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mercury_compile.m,v
retrieving revision 1.271
diff -u -u -r1.271 mercury_compile.m
--- mercury_compile.m	5 Feb 2003 14:41:12 -0000	1.271
+++ mercury_compile.m	10 Feb 2003 09:56:43 -0000
@@ -217,7 +217,10 @@
 		io__set_output_stream(OldOutputStream, _)
 	; { OutputGrade = yes } ->
 		globals__io_get_globals(Globals),
-		{ compute_grade(Globals, Grade) },
+		% When Mmake asks for the grade, it really wants
+		% the directory component to use. This is consistent
+		% with scripts/canonical_grade.
+		{ grade_directory_component(Globals, Grade) },
 		io__stdout_stream(Stdout),
 		io__write_string(Stdout, Grade),
 		io__write_string(Stdout, "\n")
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------