Changeset 22932 for v6

Timestamp:

11/08/08 22:18:03 (2 months ago)

Author:

ruoso

Message:

[mildew] the support for SMOPS1PArray

Files:

• v6/mildew/src/AST.pm (modified) (2 diffs)

v6/mildew/src/AST.pm

@@ -102 +102 @@
 has 'stmt';
 
+package AST::List;
+use Moose;
+extends 'AST::Base';
+has 'elements' => (is=>'ro');
+
+sub m0ld {
+    my ($self, $ret) = @_;
+    my @args;
+    my $code;
+    for (@{$self->elements}) {
+        my $id = AST::unique_id();
+        $code .= $_->m0ld($id);
+        push @args, $id;
+    }
+    $code .= 'my '.$ret.' = ?SMOP__S1P__Array."new"('.join(',',@args).');'.$/;
+}
+
 package AST::Named;
 use Moose;
@@ -206 +223 @@
 }
 sub m0ld {
-    die "method m0ld is not supported on AST::Reg, m0ld doesn't support register aliasing\n"
+    my ($self,$ret) = @_;
+    "my $ret = ".$self->name.";\n";
 }
 sub pretty {