diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 09:52:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-09-23 09:52:46 +0000 |
| commit | cf743617eecc1d4e30402a89ecf583bc0457693e (patch) | |
| tree | 62193930abaec221e89d325c6ac4b87178757b9b /ext/B | |
| parent | 90ba36ed4ffc871de59510f075d187b51e1bac07 (diff) | |
| download | perl-cf743617eecc1d4e30402a89ecf583bc0457693e.tar.gz | |
define PUT_svindex(), PUT_opindex()
p4raw-id: //depot/perl@1842
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Assembler.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm index defcbdf958..fd5acb6880 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; |