utf8_hop_back: Check before derefencing

This conditional derefenced before checking if it is safe to dereference
Perl · Jul 17, 2023 · ef4802e · ef4802e
1 parent a5fea3d
commit ef4802e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inline.h b/inline.h
@@ -2150,7 +2150,7 @@ Perl_utf8_hop_back(const U8 *s, SSize_t off, const U8 *start)
     while (off++ && s > start) {
         do {
             s--;
-        } while (UTF8_IS_CONTINUATION(*s) && s > start);
+        } while (s > start && UTF8_IS_CONTINUATION(*s));
     }
 
     GCC_DIAG_IGNORE(-Wcast-qual)