/* NOTREACHED */ belongs *before* the unreachable.

[perl5.git] / op.c

diff --git a/op.c b/op.c
index 9be7188..791a97f 100644 (file)
--- a/op.c
+++ b/op.c
@@ -11719,6 +11719,7 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
                    any.xop_peep = xop->xop_peep;
                    break;
                default:
+                   /* NOTREACHED */
                    NOT_REACHED;
                    break;
                }
@@ -11737,6 +11738,7 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
                    any.xop_peep = XOPd_xop_peep;
                    break;
                default:
+                   /* NOTREACHED */
                    NOT_REACHED;
                    break;
                }