From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 23 Sep 1998 09:52:46 +0000 (+0000)
Subject: define PUT_svindex(), PUT_opindex()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf743617eecc1d4e30402a89ecf583bc0457693e;p=p5sagit%2Fp5-mst-13.2.git

define PUT_svindex(), PUT_opindex()

p4raw-id: //depot/perl@1842
---

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index defcbdf..fd5acb6 100644
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -53,6 +53,8 @@ sub B::Asmdata::PUT_U16 { pack("n", $_[0]) }
 sub B::Asmdata::PUT_U32 { pack("N", $_[0]) }
 sub B::Asmdata::PUT_I32 { pack("N", $_[0]) }
 sub B::Asmdata::PUT_objindex { pack("N", $_[0]) } # could allow names here
+sub B::Asmdata::PUT_svindex { &B::Asmdata::PUT_objindex }
+sub B::Asmdata::PUT_opindex { &B::Asmdata::PUT_objindex }
 
 sub B::Asmdata::PUT_strconst {
     my $arg = shift;