From: Vincent Pit <vince@profvince.com>
Date: Sat, 1 Jan 2011 22:23:59 +0000 (+0100)
Subject: Get rid of CALL_FPTR
X-Git-Tag: v0.10~13
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=commitdiff_plain;h=ddc623c3ccab687373e43b96910dce8be84f5d1c

Get rid of CALL_FPTR
---

diff --git a/Types.xs b/Types.xs
index bb6c6a6..b3412b5 100644
--- a/Types.xs
+++ b/Types.xs
@@ -544,10 +544,10 @@ STATIC OP *lt_pp_padsv(pTHX) {
    LEAVE;
   }
 
-  return CALL_FPTR(oi.old_pp_padsv)(aTHX);
+  return oi.old_pp_padsv(aTHX);
  }
 
- return CALL_FPTR(PL_op->op_ppaddr)(aTHX);
+ return PL_op->op_ppaddr(aTHX);
 }
 
 /* ... Our ck_pad{any,sv} .................................................. */
@@ -564,7 +564,7 @@ STATIC OP *lt_ck_padany(pTHX_ OP *o) {
  SV *code;
  dMY_CXT;
 
- o = CALL_FPTR(lt_old_ck_padany)(aTHX_ o);
+ o = lt_old_ck_padany(aTHX_ o);
 
  stash = PL_in_my_stash;
  if (stash && (code = lt_hint())) {
@@ -643,7 +643,7 @@ STATIC OP *lt_ck_padsv(pTHX_ OP *o) {
 
  lt_map_delete(o);
 
- return CALL_FPTR(lt_old_ck_padsv)(aTHX_ o);
+ return lt_old_ck_padsv(aTHX_ o);
 }
 
 /* ... Our peephole optimizer .............................................. */