[win32] various cleanups so that B can be built as "just another extension"

[perl5.git] / ext / B / B.xs

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 0bb7acb..3e519af 100644 (file)
--- 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)
 {