Change 20485 by [EMAIL PROTECTED] on 2003/08/05 05:29:11
Bytecode patching from Enache.
Affected files ...
... //depot/perl/ext/B/B/Assembler.pm#16 edit
... //depot/perl/ext/B/B/Disassembler.pm#11 edit
... //depot/perl/ext/B/t/bytecode.t#5 edit
... //depot/perl/ext/ByteLoader/bytecode.h#33 edit
... //depot/perl/t/TEST#88 edit
Differences ...
==== //depot/perl/ext/B/B/Assembler.pm#16 (text) ====
Index: perl/ext/B/B/Assembler.pm
--- perl/ext/B/B/Assembler.pm#15~20235~ Sun Jul 27 11:08:55 2003
+++ perl/ext/B/B/Assembler.pm Mon Aug 4 22:29:11 2003
@@ -181,8 +181,6 @@
$header .= B::Asmdata::PUT_strconst(qq["$ByteLoader::VERSION"]);
$header .= B::Asmdata::PUT_U32($Config{ivsize});
$header .= B::Asmdata::PUT_U32($Config{ptrsize});
- $header .= B::Asmdata::PUT_strconst(sprintf(qq["0x%s"], $Config{byteorder}));
-
$header;
}
==== //depot/perl/ext/B/B/Disassembler.pm#11 (text) ====
Index: perl/ext/B/B/Disassembler.pm
--- perl/ext/B/B/Disassembler.pm#10~20235~ Sun Jul 27 11:08:55 2003
+++ perl/ext/B/B/Disassembler.pm Mon Aug 4 22:29:11 2003
@@ -162,7 +162,7 @@
use B::Asmdata qw(%insn_data @insn_name);
-our( $magic, $archname, $blversion, $ivsize, $ptrsize, $byteorder );
+our( $magic, $archname, $blversion, $ivsize, $ptrsize );
sub dis_header($){
my( $fh ) = @_;
@@ -172,11 +172,10 @@
$blversion = $fh->GET_strconst();
$ivsize = $fh->GET_U32();
$ptrsize = $fh->GET_U32();
- $byteorder = $fh->GET_strconst();
}
sub get_header(){
- return( $magic, $archname, $blversion, $ivsize, $ptrsize, $byteorder );
+ return( $magic, $archname, $blversion, $ivsize, $ptrsize);
}
sub disassemble_fh {
==== //depot/perl/ext/B/t/bytecode.t#5 (text) ====
Index: perl/ext/B/t/bytecode.t
--- perl/ext/B/t/bytecode.t#4~20418~ Fri Aug 1 03:58:23 2003
+++ perl/ext/B/t/bytecode.t Mon Aug 4 22:29:11 2003
@@ -7,6 +7,11 @@
}
chdir 't' if -d 't';
@INC = qw(../lib);
+ use Config;
+ if ($Config{ccflags} =~ /-DPERL_COPY_ON_WRITE/) {
+ print "1..0 # skip - no COW for now\n";
+ exit 0;
+ }
require './test.pl'; # for run_perl()
}
use strict;
@@ -103,10 +108,6 @@
my $i = 1;
my $foo = sub {$i = shift if @_};
&$foo(3);
-############################################################
-$_="\xff\xff"; use utf8; utf8::encode $_; print $_
->>>>
-\xc3\xbf\xc3\xbf
############################################################
$x="Cannot use"; print index $x, "Can"
>>>>
==== //depot/perl/ext/ByteLoader/bytecode.h#33 (text) ====
Index: perl/ext/ByteLoader/bytecode.h
--- perl/ext/ByteLoader/bytecode.h#32~20392~ Thu Jul 31 13:22:03 2003
+++ perl/ext/ByteLoader/bytecode.h Mon Aug 4 22:29:11 2003
@@ -370,8 +370,4 @@
if (sz != PTRSIZE) { \
HEADER_FAIL("different PTRSIZE"); \
} \
- BGET_strconst(str); /* byteorder */ \
- if (strNE(str, STRINGIFY(BYTEORDER))) { \
- HEADER_FAIL("different byteorder"); \
- } \
} STMT_END
==== //depot/perl/t/TEST#88 (xtext) ====
Index: perl/t/TEST
--- perl/t/TEST#87~20235~ Sun Jul 27 11:08:55 2003
+++ perl/t/TEST Mon Aug 4 22:29:11 2003
@@ -256,7 +256,7 @@
my $bytecompile =
"$perl $testswitch $switch -I../lib $bswitch".
"-o$test.plc $test 2>/dev/null &&".
- "$perl $testswitch $switch $utf $test.plc $redir|";
+ "$perl $testswitch $switch -I../lib $utf $test.plc $redir|";
open(RESULTS,$bytecompile)
or print "can't byte-compile '$bytecompile': $!.\n";
}
End of Patch.
