From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 29 May 1998 07:41:49 +0000 (+0000)
Subject: [asperl] fixups to make it build and pass tests under both compilers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d1541cac9dfa01652e1484ccbb55364281121bb4;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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
--- 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
--- 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));