[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