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

fperrad at svn.parrot.org fperrad at svn.parrot.org
Fri Sep 17 15:20:20 UTC 2010


Author: fperrad
Date: Fri Sep 17 15:20:20 2010
New Revision: 49085
URL: https://trac.parrot.org/parrot/changeset/49085

Log:
[distutils] refactor __mk_path_gen_dynpmc with rindex

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

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Fri Sep 17 15:19:32 2010	(r49084)
+++ trunk/runtime/parrot/library/distutils.pir	Fri Sep 17 15:20:20 2010	(r49085)
@@ -1222,7 +1222,7 @@
 
 the key is the PMC name
 
-the value is an array of PMC pathname or a single PPC pathname
+the value is an array of PMC pathname or a single PMC pathname
 
 an array creates a PMC group
 
@@ -1458,8 +1458,7 @@
 .sub '_mk_path_gen_dynpmc' :anon
     .param string src
     .param string ext
-    $I0 = length src
-    $I0 -= 4
+    $I0 = rindex(src, '.')
     $S0 = substr src, 0, $I0
     $S0 .= ext
     unless ext == '.h' goto L1


More information about the parrot-commits mailing list