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

 - export symbols needed for building B
 - bset_obj_store() is needed by byterun(), so define it there instead
   of at B.xs, and export it
 - freadpv() is only used in B.xs, so move it there
 - byte*.h are now included by perl.h
 - regenerate embed*.h

p4raw-id: //depot/win32/perl@589

2 files changed, 1 insertions, 26 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 bc42a34d33..92f01e24c4 100644
--- a/ext/B/Makefile.PL
+++ b/ext/B/Makefile.PL
@@ -4,7 +4,6 @@ use Config;
 my $e = $Config{'exe_ext'};
 my $o = $Config{'obj_ext'};
 my $exeout_flag = '-o ';
-my @extras = ();
 if ($^O eq 'MSWin32') {
     if ($Config{'cc'} =~ /^cl/i) {
 	$exeout_flag = '-Fe';
@@ -12,21 +11,13 @@ if ($^O eq 'MSWin32') {
     elsif ($Config{'cc'} =~ /^bcc/i) {
 	$exeout_flag = '-e';
     }
-    # XXX this probably applies to everyone else
-    @extras = (
-    OBJECT	=> "B$o byterun$o",
-    depend	=> {
-	"B$o"		=> "B.c ../../bytecode.h ../../byterun.h",
-	"byterun$o"	=> "../../byterun.c ../../bytecode.h ../../byterun.h",
-    });
 }
 
 WriteMakefile(
     NAME	=> "B",
     VERSION	=> "a5",
-    @extras,
     clean	=> {
-	FILES		=> "perl byteperl$e *$o B.c *~"
+	FILES		=> "perl$e byteperl$e *$o B.c *~"
     }
 );