Merge pull request #75 from perl6/ops-fixes

clean up some ops definitions
Raku · Feb 21, 2013 · 2ddd4dc · 2ddd4dc
2 parents bd369a5 + 031801c
commit 2ddd4dc
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -2130,7 +2130,7 @@ Checks if the type of thing in $2 is a nqp list (either QRPA or RPA).
 
 */
 inline op nqp_islist(out INT, invar PMC) :base_core {
-    $1 = nqp_islist($2)
+    $1 = nqp_islist($2);
 }
 
 /*
@@ -2143,7 +2143,7 @@ Checks if the type of thing in $2 is a nqp hash.
 
 */
 inline op nqp_ishash(out INT, invar PMC) :base_core {
-    $1 = nqp_ishash($2)
+    $1 = nqp_ishash($2);
 }
 
 /*

diff --git a/src/ops/nqp_bigint.ops b/src/ops/nqp_bigint.ops
@@ -541,7 +541,7 @@ inline op nqp_bigint_pow(out PMC, invar PMC, invar PMC, invar PMC, invar PMC) :b
 
 
             /* XXX a bit ugly that it reuses cmp, but safe for now */
-            cmp = mp_cmp_d(base, 0)
+            cmp = mp_cmp_d(base, 0);
             if (MP_EQ == cmp || MP_EQ == mp_cmp_d(base, 1)) {
                 /* 0 ** $big_number and 1 ** big_number are easy to do: */
                 $1 = REPR($2)->allocate(interp, STABLE($2));

diff --git a/src/ops/nqp_dyncall.ops b/src/ops/nqp_dyncall.ops
@@ -1041,6 +1041,7 @@ inline op nqp_native_call(out PMC, invar PMC, invar PMC, invar PMC) :base_core {
                 dyncall_wb_cs(interp, value);
                 break;
             default: /* Noop to eliminate warning. */
+                Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION, "Internal error: unhandled dyncall argument type");
         }
     }