[ViewVC] Diff of: cvs/Faster/Faster.pm

Comparing Faster/Faster.pm (file contents):
Revision 1.25 by root, Sat Mar 11 04:58:53 2006 UTC vs.
Revision 1.26 by root, Sat Mar 11 18:13:35 2006 UTC

    eq ne gt lt ge le
    regcomp regcreset regcmaybe
 );
 my %callop = (
-   entersub => "(PL_ppaddr [OP_ENTERSUB]) (aTHX)",
+   entersub => "(PL_op->op_ppaddr) (aTHX)",
    mapstart => "Perl_pp_grepstart (aTHX)",
 );
 sub callop {
    $callop{$op_name} || "Perl_pp_$op_name (aTHX)"
 if ($Config{useithreads} ne "define") {
    # disable optimisations on ithreads
    *op_const = sub {
       $source .= "  { dSP; PUSHs ((SV *)${$op->sv}L); PUTBACK; }\n";
+      $ops[0]{follows_const}++ if @ops;#d#
       out_next;
    };
    *op_gv = \&op_const;
 sub op_padsv {
    my $flags = $op->flags;
    my $padofs = "(PADOFFSET)" . $op->targ;
-   #d#TODO: why does our version break
-   # breaks gce with can't coerce array....
-   if (($flags & B::OPf_MOD) && ($op->private & B::OPpDEREF)) {#d#
-      return out_linear;#d#
-   }#d#
    $source .= <<EOF;
   {
     dSP;
     SV *sv = PAD_SVl ($padofs);
 EOF
    if (($flags & B::OPf_MOD) && ($op->private & B::OPpLVAL_INTRO)) {
       $source .= "    SAVECLEARSV (PAD_SVl ($padofs));\n";
-      $ops[0]{pre_padsv_lval_intro}++ if @ops;#d#
+      $ops[0]{follows_padsv_lval_intro}++ if @ops;#d#
    }
    $source .= <<EOF;
     PUSHs (sv);
     PUTBACK;
 EOF
    if (($flags & B::OPf_MOD) && ($op->private & B::OPpDEREF)) {
-      $source .= "    vivify_ref (sv, $flags & OPpDEREF);\n";
+      $source .= "    vivify_ref (sv, " . $op->private . " & OPpDEREF);\n";
    }
    $source .= "  }\n";
    out_next;
 }
     dPOPTOPssrl;
 EOF
    $source .= "    SV *temp = left; left = right; right = temp;\n"
       if $op->private & B::OPpASSIGN_BACKWARDS;
-   if ($insn->{pre_padsv_lval_intro} && !($op->private & B::OPpASSIGN_BACKWARDS)) {
+   if ($insn->{follows_padsv_lval_intro} && !($op->private & B::OPpASSIGN_BACKWARDS)) {
       # simple assignment - the target exists, but is basically undef
       $source .= "    SvSetSV (right, left);\n";
    } else {
       $source .= "    SvSetMagicSV (right, left);\n";
    }
   out_next;
 }
 # pattern const+ (or general push1)
-# pattern pushmark return(?)
 # pattern pushmark gv rv2av pushmark padsv+o.ä. aassign
-# pattern const method_named
 sub op_method_named {
+   if ($insn->{follows_const}) {
-   $source .= <<EOF;
+      $source .= <<EOF;
+  {
+    dSP;
+    static SV *last_cv;
+    static U32 last_sub_generation;
+    /* simple "polymorphic" inline cache */
+    if (PL_sub_generation == last_sub_generation)
+      {
+        PUSHs (last_cv);
+        PUTBACK;
+      }
+    else
+      {
+        PL_op = nextop; nextop = Perl_pp_method_named (aTHX);
+        SPAGAIN;
+        last_sub_generation = PL_sub_generation;
+        last_cv             = TOPs;
+      }
+  }
+EOF
+   } else {
+      $source .= <<EOF;
   {
     static HV *last_stash;
     static SV *last_cv;
     static U32 last_sub_generation;
         /* error case usually */
         PL_op = nextop; nextop = Perl_pp_method_named (aTHX);
       }
   }
 EOF
+   }
    out_next;
 }
 sub op_grepstart {

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing Faster/Faster.pm (file contents): Revision 1.25 by root, Sat Mar 11 04:58:53 2006 UTC vs. Revision 1.26 by root, Sat Mar 11 18:13:35 2006 UTC

Diff Legend

Comparing Faster/Faster.pm (file contents):
Revision 1.25 by root, Sat Mar 11 04:58:53 2006 UTC vs.
Revision 1.26 by root, Sat Mar 11 18:13:35 2006 UTC