[Jifty-commit] r5453 - in Method-Inline: lib/Method
Jifty commits
jifty-commit at lists.jifty.org
Sat May 10 14:26:33 EDT 2008
Author: nothingmuch
Date: Sat May 10 14:26:33 2008
New Revision: 5453
Added:
Method-Inline/Makefile.PL
Method-Inline/lib/Method/
Method-Inline/lib/Method/Inline.pm
Modified:
Method-Inline/Inline.xs
Log:
compile
Modified: Method-Inline/Inline.xs
==============================================================================
--- Method-Inline/Inline.xs (original)
+++ Method-Inline/Inline.xs Sat May 10 14:26:33 2008
@@ -4,10 +4,11 @@
#include "XSUB.h"
struct inlined_cv {
- SV cv;
+ SV sv;
+ CV *cv;
OP *inlined;
OP *entersub;
-}
+};
OP *
Method_Inline_inlined (pTHX) {
@@ -85,7 +86,10 @@
if ( i->cv == cv ) {
RETURNOP(i->inlined);
} else {
- SETs(cv || sv); /* save some work for ENTERSUB, instead of plain XPUSHs(sv) */
+ /* save some work for ENTERSUB if possible
+ * disabled because the above is
+ if (cv) SETs((SV *)cv)
+ */
RETURNOP(i->entersub);
}
}
@@ -97,13 +101,13 @@
/* create our fake SV */
Newx(i, 1, struct inlined_cv);
- i->cv = *cv;
+ i->cv = cv;
i->entersub = entersub;
i->inlined = inlined;
op = newSVOP( OP_CUSTOM, 0, (SV *)i );
- op->op_next = entersub->next;
+ op->op_next = entersub->op_next;
return op;
}
@@ -116,7 +120,7 @@
inline_op_pp_addr ()
CODE:
{
- RETVAL = PTR2IV(Method_Inline_inlined_or_next);
+ RETVAL = PTR2IV(Method_Inline_inlined);
}
Added: Method-Inline/Makefile.PL
==============================================================================
--- (empty file)
+++ Method-Inline/Makefile.PL Sat May 10 14:26:33 2008
@@ -0,0 +1,10 @@
+#!perl -w
+
+use 5.008;
+use strict;
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+ NAME => 'Method::Inline',
+ VERSION_FROM => 'lib/Method/Inline.pm',
+);
Added: Method-Inline/lib/Method/Inline.pm
==============================================================================
--- (empty file)
+++ Method-Inline/lib/Method/Inline.pm Sat May 10 14:26:33 2008
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+package Method::Inline;
+
+use strict;
+use warnings;
+
+our $VERSION = "0.01";
+
+__PACKAGE__
+
+__END__
+
+=pod
+
+=head1 NAME
+
+Method::Inline -
+
+=head1 SYNOPSIS
+
+ use Method::Inline;
+
+=head1 DESCRIPTION
+
+=cut
+
+
More information about the Jifty-commit
mailing list