cvsuser 04/05/29 22:03:54
Modified: languages/perl6/P6C Addcontext.pm IMCC.pm
languages/perl6/P6C/IMCC Sub.pm
Log:
Miscellaneous harmless cleanups
Revision Changes Path
1.26 +0 -1 parrot/languages/perl6/P6C/Addcontext.pm
Index: Addcontext.pm
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/P6C/Addcontext.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -w -r1.25 -r1.26
--- Addcontext.pm 30 May 2004 01:26:04 -0000 1.25
+++ Addcontext.pm 30 May 2004 05:03:51 -0000 1.26
@@ -627,7 +627,6 @@
sub is_anon_sub {
my ($x, $ctx) = @_;
- $DB::single = 1;
return !($ctx->{noreturn}
|| $ctx->{is_sub_def}
|| ($ctx->{last_stmt} && $x->bare));
1.41 +5 -3 parrot/languages/perl6/P6C/IMCC.pm
Index: IMCC.pm
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/P6C/IMCC.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -w -r1.40 -r1.41
--- IMCC.pm 30 May 2004 04:54:52 -0000 1.40
+++ IMCC.pm 30 May 2004 05:03:51 -0000 1.41
@@ -1699,7 +1699,8 @@
my @catchers;
foreach (@stmts) {
if ($_->isa('P6C::prefix') && defined($_->name)
- && $_->name eq 'CATCH') {
+ && $_->name eq 'CATCH')
+ {
push @catchers, $_->args;
$_->name(undef);
}
@@ -1978,7 +1979,8 @@
# Temporary types for different slices:
use vars '%temptype';
BEGIN {
-%temptype = qw(PerlArray int PerlHash str);
+%temptype = (PerlArray => 'int',
+ PerlHash => 'str');
}
# Slice value. Probably doesn't handle every single case, but it
1.3 +0 -5 parrot/languages/perl6/P6C/IMCC/Sub.pm
Index: Sub.pm
===================================================================
RCS file: /cvs/public/parrot/languages/perl6/P6C/IMCC/Sub.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Sub.pm 30 May 2004 00:38:41 -0000 1.2
+++ Sub.pm 30 May 2004 05:03:54 -0000 1.3
@@ -235,11 +235,6 @@
.pcc_begin_return # fallback
.pcc_end_return
END
-# print <<END;
-# restoreall
-# invoke $saved_continuation
-# end
-#END
}
1;
