develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34341 - trunk/src

From:
chromatic
Date:
December 24, 2008 13:42
Subject:
[svn:parrot] r34341 - trunk/src
Message ID:
20081224214156.133BDCBA12@x12.develooper.com
Author: chromatic
Date: Wed Dec 24 13:41:55 2008
New Revision: 34341

Modified:
   trunk/src/string.c

Log:
[src] Removed an un-COW from string_chopn_inplace().  It's unnecessary, as the
STRING's length is stored in the header.  We can modify that in place without
copying the string.  This gives PGE a nice speedup; 13.43% in producing
Rakudo's operator precedence parser.

Modified: trunk/src/string.c
==============================================================================
--- trunk/src/string.c	(original)
+++ trunk/src/string.c	Wed Dec 24 13:41:55 2008
@@ -1384,8 +1384,6 @@
         return;
     }
 
-    Parrot_unmake_COW(interp, s);
-
     uchar_size = s->bufused / s->strlen;
     s->strlen  = new_length;
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About