#
package B::Bytecode;
+our $VERSION = '1.00';
+
use strict;
use Carp;
use B qw(main_cv main_root main_start comppadlist
}
}
-sub B::LISTOP::bytecode {
- my $op = shift;
- my $children = $op->children unless $strip_syntree;
- $op->B::BINOP::bytecode;
- if (($op->type || !$compress_nullops) && !$strip_syntree) {
- asm "op_children $children\n";
- }
-}
-
sub B::LOOP::bytecode {
my $op = shift;
my $redoopix = $op->redoop->objix;
$compress_nullops = 1;
$omit_seq = 1;
}
- } elsif ($opt eq "P") {
+ } elsif ($opt eq "u") {
$arg ||= shift @options;
push @packages, $arg;
} else {
Output (bytecode) assembler source rather than piping it
through the assembler and outputting bytecode.
-=item B<-Ppackage>
-
+=item B<-upackage>
+
Stores package in the output.
-
+
=back
=head1 EXAMPLES
- perl -MO=Bytecode,-O6,-ofoo.plc,-Pmain foo.pl
+ perl -MO=Bytecode,-O6,-ofoo.plc,-umain foo.pl
- perl -MO=Bytecode,-S,-Pmain foo.pl > foo.S
+ perl -MO=Bytecode,-S,-umain foo.pl > foo.S
assemble foo.S > foo.plc
Note that C<assemble> lives in the C<B> subdirectory of your perl
library directory. The utility called perlcc may also be used to
help make use of this compiler.
- perl -MO=Bytecode,-PFoo,-oFoo.pmc Foo.pm
+ perl -MO=Bytecode,-uFoo,-oFoo.pmc Foo.pm
=head1 BUGS