Perl_variant_byte_number: Move assert()

This should be called only when it is known there is a variant byte.
The assert() previously wasn't checking that precisely

1 files changed, 4 insertions, 2 deletions

diff --git a/inline.h b/inline.h
index 42e1ae7bf4..2a2cfb3a95 100644
--- a/inline.h
+++ b/inline.h
@@ -712,11 +712,13 @@ Perl_variant_byte_number(PERL_UINTMAX_T word)
     /* This returns the position in a word (0..7) of the first variant byte in
      * it.  This is a helper function.  Note that there are no branches */
 
-    assert(word);
-
     /* Get just the msb bits of each byte */
     word &= PERL_VARIANTS_WORD_MASK;
 
+    /* This should only be called if we know there is a variant byte in the
+     * word */
+    assert(word);
+
 #  if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678
 
     /* Bytes are stored like