[phc-internals] [phc commit] r1419 - branches/saturn/src/analyse

[codesite-noreply at google.com]

Author: paul.biggar
Date: Thu Jul  3 11:23:23 2008
New Revision: 1419

Modified:
   branches/saturn/src/analyse/do_versioning.clp

Log:
Print removed statements.


Modified: branches/saturn/src/analyse/do_versioning.clp
==============================================================================
--- branches/saturn/src/analyse/do_versioning.clp	(original)
+++ branches/saturn/src/analyse/do_versioning.clp	Thu Jul  3 11:23:23 2008
@@ -46,3 +46,6 @@
 % Only allow removing blocks
 remove_bb (BB), BB \= nblock{_}, +error_in (BB, "Can only handle nblocks").

+replace_bb (BB, NEW),
+	+print (str_cat_list (["Removing:       ", tostring 
(BB), "\nReplacing with: ", tostring (NEW)])).
+