[m-dev.] [reuse] diff: give summary reuse info in hlds-dump

[Nancy Mazur]

Hi,


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


Estimated hours taken: 0.1

hlds_out.m:
	At the beginning of each procedure, write out whether it has
	reuse or no. This makes life easier when looking at the hlds_dump. 
	

Index: hlds_out.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/hlds_out.m,v
retrieving revision 1.243.2.7
diff -u -r1.243.2.7 hlds_out.m
--- hlds_out.m	2000/10/10 14:03:58	1.243.2.7
+++ hlds_out.m	2000/10/13 08:52:22
@@ -2929,6 +2929,21 @@
 		io__nl
 	;
 		[]
+	),
+	(
+		{ string__contains_char(Verbose, 'p') }
+	->
+		{ proc_info_reuse_information(Proc, Memo) },
+		(
+			{ Memo = yes(_) }
+		->
+			hlds_out__write_indent(Indent), 
+			io__write_string("% Reuse version. \n")
+		;
+			[]
+		)
+	;
+		[]
 	),	
 
 	hlds_out__write_indent(Indent),
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------