diff options
| author | Nathan Torkington <gnat@frii.com> | 1999-08-01 05:23:35 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-01 21:13:09 +0000 |
| commit | a9a9fdd7274c13fad954d576fb696d66ae6fa435 (patch) | |
| tree | 2d04b980c9a724f2e8a95104a18fbe2f94627333 /ext | |
| parent | 9b761c683d96139313867defff0dc179ae1938a3 (diff) | |
| download | perl-a9a9fdd7274c13fad954d576fb696d66ae6fa435.tar.gz | |
ext/B/B/Disassembler.pm patch
Message-ID: <14244.33431.739419.806927@localhost.frii.com>
p4raw-id: //depot/perl@3859
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Disassembler.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm index 4a008a3750..d054a2d164 100644 --- a/ext/B/B/Disassembler.pm +++ b/ext/B/B/Disassembler.pm @@ -52,6 +52,20 @@ sub GET_objindex { return unpack("N", $str); } +sub GET_opindex { + my $fh = shift; + my $str = $fh->readn(4); + croak "reached EOF while reading opindex" unless length($str) == 4; + return unpack("N", $str); +} + +sub GET_svindex { + my $fh = shift; + my $str = $fh->readn(4); + croak "reached EOF while reading svindex" unless length($str) == 4; + return unpack("N", $str); +} + sub GET_strconst { my $fh = shift; my ($str, $c); |