[perl.git] branch blead, updated. v5.27.0-67-gc9a0dcdc16

[James Keenan]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/c9a0dcdc162f48aff88d967bc239701e38e52680?hp=f566c7cf87dd8cddca3b53169472641c74a2051b>

- Log -----------------------------------------------------------------
commit c9a0dcdc162f48aff88d967bc239701e38e52680
Author: Andy Lester <a...@petdance.com>
Date:   Sun Feb 26 21:15:46 2017 -0600

    Add NOT_REACHED to quiet clang -Weverything warnings
-----------------------------------------------------------------------

Summary of changes:
 gv.c | 1 +
 sv.c | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/gv.c b/gv.c
index 315ec49169..81fa5de631 100644
--- a/gv.c
+++ b/gv.c
@@ -385,6 +385,7 @@ Perl_gv_init_pvn(pTHX_ GV *gv, HV *stash, const char *name, 
STRLEN len, U32 flag
        case SVt_PVIO:
             Perl_croak(aTHX_ "Cannot convert a reference to %s to typeglob",
                       sv_reftype(has_constant, 0));
+            NOT_REACHED; /* NOTREACHED */
             break;
 
        default: NOOP;
diff --git a/sv.c b/sv.c
index 19bd2543fe..db511757b7 100644
--- a/sv.c
+++ b/sv.c
@@ -1651,6 +1651,7 @@ Perl_sv_setiv(pTHX_ SV *const sv, const IV i)
        /* diag_listed_as: Can't coerce %s to %s in %s */
        Perl_croak(aTHX_ "Can't coerce %s to integer in %s", sv_reftype(sv,0),
                   OP_DESC(PL_op));
+        NOT_REACHED; /* NOTREACHED */
         break;
     default: NOOP;
     }
@@ -1763,6 +1764,7 @@ Perl_sv_setnv(pTHX_ SV *const sv, const NV num)
        /* diag_listed_as: Can't coerce %s to %s in %s */
        Perl_croak(aTHX_ "Can't coerce %s to number in %s", sv_reftype(sv,0),
                   OP_DESC(PL_op));
+        NOT_REACHED; /* NOTREACHED */
         break;
     default: NOOP;
     }
@@ -13884,6 +13886,7 @@ S_sv_dup_common(pTHX_ const SV *const sstr, 
CLONE_PARAMS *const param)
            switch (sv_type) {
            default:
                Perl_croak(aTHX_ "Bizarre SvTYPE [%" IVdf "]", 
(IV)SvTYPE(sstr));
+                NOT_REACHED; /* NOTREACHED */
                break;
 
            case SVt_PVGV:

--
Perl5 Master Repository