From 2a321948466e7bb48bfd30dd6612a9a479df612a Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 22 Feb 1998 02:40:56 +0000
Subject: [win32] get compiler building under win32 (needed Makefile.PL hacks
 that could be applicable to other platforms)

p4raw-id: //depot/win32/perl@568
---
 ext/B/Makefile.PL | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'ext')

diff --git a/ext/B/Makefile.PL b/ext/B/Makefile.PL
index 88bd4bacd1..bc42a34d33 100644
--- a/ext/B/Makefile.PL
+++ b/ext/B/Makefile.PL
@@ -4,6 +4,7 @@ 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';
@@ -11,11 +12,19 @@ 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 *~"
     }
-- 
cgit v1.2.1


From d613ef02e4bf2ccbbac161910d879e49ce35ecd8 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 26 Feb 1998 03:56:19 +0000
Subject: [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
---
 ext/B/B.xs        | 16 ----------------
 ext/B/Makefile.PL | 11 +----------
 2 files changed, 1 insertion(+), 26 deletions(-)

(limited to 'ext')

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 *~"
     }
 );
 
-- 
cgit v1.2.1