[dotnet] Enhance DNST::Local so it will be able to play the role of D…

…NST::Temp also.
jnthn · Dec 4, 2010 · 903fb1c · 903fb1c
1 parent 512cfdb
commit 903fb1c
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 2 deletions.
diff --git a/dotnet/compiler/DNST.pm b/dotnet/compiler/DNST.pm
@@ -494,15 +494,30 @@ class DNST::JumpTable is DNST::Node {
 
 class DNST::Local is DNST::Node {
     has $!name;
+    has $!type;
+    has $!isdecl;
 
     method name($set?) {
         if pir::defined($set) { $!name := $set }
         $!name
     }
 
-    method new(:$name!) {
+    method type($set?) {
+        if $set { $!type := $set }
+        $!type
+    }
+
+    method isdecl($set?) {
+        if $set { $!isdecl := $set }
+        $!isdecl
+    }
+
+    method new(:$name!, :$type, :$isdecl, *@children) {
         my $obj := self.CREATE;
         $obj.name($name);
+        $obj.type($type);
+        $obj.isdecl($isdecl);
+        $obj.set_children(@children);
         $obj;
     }
 }

diff --git a/dotnet/compiler/DNST2CSharp.pm b/dotnet/compiler/DNST2CSharp.pm
@@ -260,8 +260,21 @@ our multi sub cs_for(DNST::Literal $lit) {
 }
 
 our multi sub cs_for(DNST::Local $loc) {
+    my $code := '';
+    if $loc.isdecl {
+        unless +@($loc) == 1 {
+            pir::die('A DNST::Local with isdecl set must have exactly one child')
+        }
+        unless $loc.type {
+            pir::die('DNST::Local with isdecl requires type');
+        }
+        $code := cs_for((@($loc))[0]);
+        $code := $code ~ '        ' ~ $loc.type ~ ' ' ~ $loc.name ~ " = $*LAST_TEMP;\n";
+    } elsif +@($loc) != 0 {
+        pir::die('A DNST::Local without isdecl set must have no children')
+    }
     $*LAST_TEMP := $loc.name;
-    return '';
+    return $code;
 }
 
 our multi sub cs_for(DNST::JumpTable $jt) {