Eradicate pir::chopn__Ssi from source, replace by nqp::substring/nqp::chars

Author: lizmat

docs/pir2nqp.todo

@@ -26,7 +26,6 @@ pir::const::INTERPINFO_TOTAL_MEM_USED
 pir::const::INTERPINFO_TOTAL_PMCS
 
 can be done now by lizmat
-pir::chopn__Ssi   ->  nqp::substr
 pir::push__vPi    ->  nqp::push_i
 pir::setattribute__vppsp -> nqp::bindattr
 pir::getattribute__PPPs  -> nqp::getattr

src/QRegex/P5Regex/Actions.nqp

@@ -376,7 +376,8 @@ class QRegex::P5Regex::Actions is HLL::Actions {
             my $loc := nqp::index(%*RX<name>, ':sym<');
             $loc := nqp::index(%*RX<name>, ':sym«')
                 if $loc < 0;
-            my $rxname := pir::chopn__Ssi(nqp::substr(%*RX<name>, $loc + 5), 1);
+            my $rxname := nqp::substr(%*RX<name>, $loc + 5);
+            $rxname := nqp::substr($rxname, 0, nqp::chars($rxname) - 1);
             $qast := QAST::Regex.new(:name('sym'), :rxtype<subcapture>, :node($/),
                 QAST::Regex.new(:rxtype<literal>, $rxname, :node($/)));
         }

src/QRegex/P6Regex/Actions.nqp

@@ -378,7 +378,8 @@ class QRegex::P6Regex::Actions is HLL::Actions {
             my $loc := nqp::index(%*RX<name>, ':sym<');
             $loc := nqp::index(%*RX<name>, ':sym«')
                 if $loc < 0;
-            my $rxname := pir::chopn__Ssi(nqp::substr(%*RX<name>, $loc + 5), 1);
+            my $rxname := nqp::substr(%*RX<name>, $loc + 5);
+            $rxname := nqp::substr( $rxname, 0, nqp::chars($rxname) - 1);
             $qast := QAST::Regex.new(:name('sym'), :rxtype<subcapture>, :node($/),
                 QAST::Regex.new(:rxtype<literal>, $rxname, :node($/)));
         }