diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-27 18:13:52 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-27 18:13:52 +0000 |
| commit | ff3bd04127522869a3afae2fde23c6b52ab6c7de (patch) | |
| tree | 60a3b49e4dfd531566d1b1fd92628c12483ddf75 /ext | |
| parent | dce16143c60882f40eb787063b9483c00bb82139 (diff) | |
| parent | 924b3ec4f489a98ec4753478b6e6dcb35be8bf12 (diff) | |
| download | perl-ff3bd04127522869a3afae2fde23c6b52ab6c7de.tar.gz | |
Integrate win32 branch into mainline.
p4raw-id: //depot/perl@599
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 16 | ||||
| -rw-r--r-- | ext/B/Makefile.PL | 2 |
2 files changed, 1 insertions, 17 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 0bb7acba02..3e519afe43 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -11,8 +11,6 @@ #include "perl.h" #include "XSUB.h" #include "INTERN.h" -#include "bytecode.h" -#include "byterun.h" static char *svclassnames[] = { "B::NULL", @@ -288,20 +286,6 @@ cchar(SV *sv) return sstr; } -void * -bset_obj_store(void *obj, I32 ix) -{ - if (ix > obj_list_fill) { - if (obj_list_fill == -1) - New(666, obj_list, ix + 1, void*); - else - Renew(obj_list, ix + 1, void*); - obj_list_fill = ix; - } - obj_list[ix] = obj; - return obj; -} - #ifdef INDIRECT_BGET_MACROS void freadpv(U32 len, void *data) { diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL index 88bd4bacd1..92f01e24c4 100644 --- a/ext/B/Makefile.PL +++ b/ext/B/Makefile.PL @@ -17,7 +17,7 @@ WriteMakefile( NAME => "B", VERSION => "a5", clean => { - FILES => "perl byteperl$e *$o B.c *~" + FILES => "perl$e byteperl$e *$o B.c *~" } ); |