try to silence some compiler warnings (RT #112310, #112308)

rakudo · Apr 15, 2012 · 99e7750 · 99e7750
1 parent 1421472
commit 99e7750
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 1 deletion.
diff --git a/src/binder/multidispatch.c b/src/binder/multidispatch.c
@@ -791,6 +791,7 @@ static PMC* find_best_candidate(PARROT_INTERP, Rakudo_md_candidate_info **candid
             "Cannot call '%Ss'; none of these signatures match:\n%Ss",
                 (candidates[0] ? VTABLE_get_string(interp, candidates[0]->sub) : STRINGNULL),
                 signatures);
+        return PMCNULL;
     }
     else {
         /* Get signatures of ambiguous candidates. */
@@ -803,6 +804,7 @@ static PMC* find_best_candidate(PARROT_INTERP, Rakudo_md_candidate_info **candid
         Parrot_ex_throw_from_c_args(interp, next, 1,
             "Ambiguous call to '%Ss'; these signatures all match:\n%Ss",
                 VTABLE_get_string(interp, candidates[0]->sub), signatures);
+        return PMCNULL;
     }
 }
 

diff --git a/src/ops/perl6.ops b/src/ops/perl6.ops
@@ -1632,7 +1632,7 @@ called from. Used for implementing flip-flops.
 inline op perl6_callerid(out INT) :base_core {
     PMC *cur_ctx    = CURRENT_CONTEXT(interp);
     PMC *caller_ctx = Parrot_pcc_get_caller_ctx(interp, cur_ctx);
-    $1 = Parrot_pcc_get_pc(interp, caller_ctx);
+    $1              = (INTVAL) Parrot_pcc_get_pc(interp, caller_ctx);
 }
 
 /*

diff --git a/src/pmc/perl6lexinfo.pmc b/src/pmc/perl6lexinfo.pmc
@@ -170,5 +170,6 @@ C<symbols>, which gets an array of the names of the symbols in this lexpad.
         else
             Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,
                 "Unknown introspection value '%S'", what);
+            return PMCNULL;
     }
 }