More checks and debug in handling pirop<=>

parrot · May 2, 2011 · 0e82ef7 · 0e82ef7
1 parent 6716d63
commit 0e82ef7
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/compilers/opsc/src/Ops/JIT.pm b/compilers/opsc/src/Ops/JIT.pm
@@ -737,12 +737,17 @@ our method process:pirop<=> (PAST::Op $chunk, %c) {
     # This will disable "loading" of variables.
     %c<lhs>++;
     my $lhs := self.process($chunk[0], %c);
+    if !defined($lhs) {
+        _dumper($chunk);
+        die("Horribly");
+    }
     %c<lhs>--;
 
-    $!builder.store(
-        self.process($chunk[1], %c) // die("Can't do it"),
-        $lhs
-    );
+    my $rhs := self.process($chunk[1], %c) // die("Can't do it");
+    $!debug && say("LHS " ~ $lhs.dump());
+    $!debug && say("RHS " ~ $rhs.dump());
+
+    $!builder.store($rhs, $lhs);
 }
 
 our method process:pirop<==> (PAST::Op $chunk, %c) {