diff options
| author | Zefram <zefram@fysh.org> | 2010-12-11 18:18:12 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2010-12-11 18:23:16 +0000 |
| commit | c33e8be1506a75e393304af89d64e3f46e0ca7cb (patch) | |
| tree | 064f08620e62d11eca50f73b7439564b702f47ad /ext/Opcode | |
| parent | d6f31ecf904f01f8a2aab2bca55e33b1b51e0b4d (diff) | |
| download | perl-c33e8be1506a75e393304af89d64e3f46e0ca7cb.tar.gz | |
fix various compiler warnings from XS code
Trivial changes to fix warnings of types
* unclear precedence
* assignment as conditional
* signed/unsigned mixing
* unused parameter/variable
* value computed not used
* wrong argument type for a printf format
* variable may be used uninitialised (due to unhandled switch case)
Diffstat (limited to 'ext/Opcode')
| -rw-r--r-- | ext/Opcode/Opcode.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 4d6df48ab7..1e5f8c22db 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -52,7 +52,7 @@ op_names_init(pTHX) for(i=0; i < PL_maxo; ++i) { SV * const sv = newSViv(i); SvREADONLY_on(sv); - hv_store(op_named_bits, op_names[i], strlen(op_names[i]), sv, 0); + (void) hv_store(op_named_bits, op_names[i], strlen(op_names[i]), sv, 0); } put_op_bitspec(aTHX_ STR_WITH_LEN(":none"), sv_2mortal(new_opset(aTHX_ Nullsv))); @@ -264,7 +264,7 @@ PPCODE: if (strNE(HvNAME_get(hv),"main")) { /* make it think it's in main:: */ hv_name_set(hv, "main", 4, 0); - hv_store(hv,"_",1,(SV *)PL_defgv,0); /* connect _ to global */ + (void) hv_store(hv,"_",1,(SV *)PL_defgv,0); /* connect _ to global */ SvREFCNT_inc((SV *)PL_defgv); /* want to keep _ around! */ } LEAVE; |