Add output for two more pirop's

parrot · Apr 19, 2011 · 80decd7 · 80decd7
1 parent 7616c50
commit 80decd7
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/compilers/opsc/lasm.nqp b/compilers/opsc/lasm.nqp
@@ -81,6 +81,23 @@ method handle_op($op)
 
       self<fh>.print("  $dest = $rhs;\n");
     }
+    if ($op<pirop> eq '+=')
+    {
+      my $dest := self.handle_node($op[0]);
+      my $rhs  := self.handle_node($op[1]);
+
+      self<fh>.print("  $dest = ADD $dest, $rhs;\n");
+    }
+    if ($op<pirop> eq '+')
+    {
+      my $dest := '$';# ~ %reg_map{$type} ~ "1";
+      my $src1 := self.handle_node($op[0]);
+      my $src2 := self.handle_node($op[1]);
+
+      self<fh>.print("  $dest = ADD $src1, $src2;\n");
+
+      return $dest;
+    }
     return;
   }