Check argument counts to nqp ops.

Raku · Apr 22, 2012 · 2d62455 · 2d62455
1 parent 8475b80
commit 2d62455
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/QAST/Operations.nqp b/src/QAST/Operations.nqp
@@ -59,7 +59,10 @@ class QAST::Operations {
             # Build the arguments list.
             # XXX keyed
             # XXX coercions/boxings/unboxings
-            # XXX count check
+            if +$op.list != +@arg_types {
+                pir::die("Operation '" ~ $op.op ~ "' requires " ~
+                    +@arg_types ~ " operands, but got " ~ +$op.list);
+            }
             for $op.list {
                 my $post := $qastcomp.as_post($_);
                 $ops.push($post);