[svn:parrot] r47085 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri May 28 07:51:09 2010
New Revision: 47085
URL: https://trac.parrot.org/parrot/changeset/47085

Log:
partial revert r47084, (I don't want commit my debug stuff)

Modified:
   trunk/runtime/parrot/library/osutils.pir

Modified: trunk/runtime/parrot/library/osutils.pir
==============================================================================
--- trunk/runtime/parrot/library/osutils.pir	Fri May 28 07:43:36 2010	(r47084)
+++ trunk/runtime/parrot/library/osutils.pir	Fri May 28 07:51:09 2010	(r47085)
@@ -51,10 +51,6 @@
 .sub 'file_exists'
     .param string filename
     $I0 = stat filename, .STAT_EXISTS
-    print "file_exists "
-    print filename
-    print " "
-    say $I0
     .return ($I0)
 .end
 
@@ -70,14 +66,12 @@
     $S0 = depends
     .tailcall newer(target, $S0)
   L1:
-#    print "newer "
     $I0 = stat target, .STAT_EXISTS
     unless $I0 goto L2
     $I0 = stat target, .STAT_FILESIZE
     unless $I0 goto L2
     goto L3
   L2:
-#    say 0
     .return (0)
   L3:
     $I0 = stat target, .STAT_MODIFYTIME
@@ -88,34 +82,25 @@
     if $S0 == '' goto L4
     $I1 = stat $S0, .STAT_MODIFYTIME
     if $I1 < $I0 goto L4
-#    say 0
     .return (0)
   L5:
-#    say 1
     .return (1)
 .end
 
 .sub 'newer' :multi(string, string)
     .param string target
     .param string depend
-#    print "newer "
-#    print target
-#    print " "
-#    print depend
-#    print " "
     $I0 = stat target, .STAT_EXISTS
     unless $I0 goto L1
     $I0 = stat target, .STAT_FILESIZE
     unless $I0 goto L1
     goto L2
   L1:
-#    say 0
     .return (0)
   L2:
     $I1 = stat target, .STAT_MODIFYTIME
     $I2 = stat depend, .STAT_MODIFYTIME
     $I0 = $I1 > $I2
-#    say $I0
     .return ($I0)
 .end