[asperl] fixups to make it build and pass tests under both compilers

p4raw-id: //depot/asperl@1056

diff --git a/ObjXSub.h b/ObjXSub.h
index f0c8c3a..7936050 100644 (file)
--- a/ObjXSub.h
+++ b/ObjXSub.h
@@ -1381,6 +1381,8 @@
 #define pad_allocmy         pPerl->Perl_pad_allocmy
 #undef  pad_findmy
 #define pad_findmy          pPerl->Perl_pad_findmy
+#undef  op_const_sv
+#define op_const_sv         pPerl->Perl_op_const_sv
 #undef  op_free
 #define op_free             pPerl->Perl_op_free
 #undef  oopsCV

diff --git a/objpp.h b/objpp.h
index 32f0603..44e105e 100644 (file)
--- a/objpp.h
+++ b/objpp.h
@@ -871,6 +871,8 @@
 #define pad_allocmy       CPerlObj::Perl_pad_allocmy
 #undef  pad_findmy
 #define pad_findmy        CPerlObj::Perl_pad_findmy
+#undef  op_const_sv
+#define op_const_sv       CPerlObj::Perl_op_const_sv
 #undef  op_free
 #define op_free           CPerlObj::Perl_op_free
 #undef  oopsCV

diff --git a/proto.h b/proto.h
index 89dd593..49cd6b4 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -78,6 +78,7 @@ VIRTUAL void  croak _((const char* pat,...)) __attribute__((noreturn));
 VIRTUAL void   cv_ckproto _((CV* cv, GV* gv, char* p));
 VIRTUAL CV*    cv_clone _((CV* proto));
 VIRTUAL SV*    cv_const_sv _((CV* cv));
+VIRTUAL SV*    op_const_sv _((OP* o, CV* cv));
 VIRTUAL void   cv_undef _((CV* cv));
 VIRTUAL void   cx_dump _((PERL_CONTEXT* cs));
 VIRTUAL SV*    filter_add _((filter_t funcp, SV* datasv));