Fix until loop miscompilation

sorear · Oct 23, 2010 · 93ff317 · 93ff317
1 parent 28fb38b
commit 93ff317
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/CgOpToCLROp.pm b/src/CgOpToCLROp.pm
@@ -239,8 +239,8 @@ sub do_ternary {
 
 sub do_while {
     my ($op, $check, $body) = @_;
-    my $once = $op->[1];
-    my $until = $op->[2];
+    my $until = $op->[1];
+    my $once = $op->[2];
     die "type error" unless $body->type eq 'Void';
 
     my $lagain = 'again' . ($spill++);

diff --git a/test2.pl b/test2.pl
@@ -33,6 +33,9 @@
 
     my @ar = [1, 2, 3];
     is +@ar, 1, "array constructors are singular";
+    my $i = 0;
+    $i++ until $i == 10;
+    is $i, 10, "until loops functional";
 }
 
 # {