Stash types in signature objects.

jnthn · Aug 22, 2010 · e21ef65 · e21ef65
1 parent f324cbc
commit e21ef65
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/dotnet/compiler/Actions.pm b/dotnet/compiler/Actions.pm
@@ -565,7 +565,7 @@ method parameter($/) {
     # We're hijacking multi-type a bit here comapred to what Parrot NQP
     # uses it for.
     if $<typename> {
-        $past.multitype($<typename>.ast);
+        $past.multitype($<typename>[0].ast);
     }
 
     make $past;

diff --git a/dotnet/compiler/PAST2DNSTCompiler.pm b/dotnet/compiler/PAST2DNSTCompiler.pm
@@ -355,8 +355,13 @@ sub compile_signature(@params) {
     for @params {
         my $param := DNST::New.new( :type('Parameter') );
 
-        # Type. XXX TODO.
-        $param.push('null');
+        # Type.
+        if $_.multitype {
+            $param.push(dnst_for($_.multitype));
+        }
+        else {
+            $param.push('null');
+        }
 
         # Variable name to bind into.
         $param.push(DNST::Literal.new( :value($_.name), :escape(1) ));