trivial diff: back out -V polymorphism messages

David Glen JEFFERY dgj at cs.mu.OZ.AU
Fri Aug 21 14:04:48 AEST 1998


Hi,

I'll just commit this one.

------------------------------------------------------------------------------

Estimated hours taken: 0.1

compiler/polymorphism.m:
	Back out a previous change which spits out progress messages during
	polymorphism.m because it produces too much output.

Index: polymorphism.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/polymorphism.m,v
retrieving revision 1.143
diff -u -t -r1.143 polymorphism.m
--- polymorphism.m	1998/08/20 12:00:38	1.143
+++ polymorphism.m	1998/08/21 01:40:54
@@ -379,11 +379,9 @@
                 ModuleInfo = ModuleInfo0,
                 IO = IO0
         ;
-                write_pred_progress_message("% Transforming polymorphism for ",
-                        PredId, ModuleInfo0, IO0, IO1),
                 pred_info_procids(PredInfo, ProcIds),
                 polymorphism__process_procs(PredId, ProcIds,
-                        ModuleInfo0, ModuleInfo, IO1, IO)
+                        ModuleInfo0, ModuleInfo, IO0, IO)
         ).
 
 :- pred polymorphism__process_procs(pred_id, list(proc_id),

------------------------------------------------------------------------------


love and cuddles,
dgj
-- 
David Jeffery (dgj at cs.mu.oz.au) |  Marge: Did you just call everyone "chicken"?
PhD student,                    |  Homer: Noooo.  I swear on this Bible!
Department of Computer Science  |  Marge: That's not a Bible; that's a book of
University of Melbourne         |         carpet samples!
Australia                       |  Homer: Ooooh... Fuzzy.



More information about the developers mailing list