From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 11 Nov 2011 16:29:09 +0000 (-0700)
Subject: utf8.c: Add compiler hint
X-Git-Tag: v5.15.5~105
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/732fbc05bbf5ec0f88eda6450a31c2e7c2b4748d

utf8.c: Add compiler hint

It's very rare that someone will be outputting these unusual code points
---

diff --git a/utf8.c b/utf8.c
index 1e6f1a7..b873578 100644
--- a/utf8.c
+++ b/utf8.c
@@ -3393,7 +3393,7 @@ Perl_check_utf8_print(pTHX_ register const U8* s, const STRLEN len)
 			   "%s in %s", unees, PL_op ? OP_DESC(PL_op) : "print");
 	    return FALSE;
 	}
-	if (*s >= UTF8_FIRST_PROBLEMATIC_CODE_POINT_FIRST_BYTE) {
+	if (UNLIKELY(*s >= UTF8_FIRST_PROBLEMATIC_CODE_POINT_FIRST_BYTE)) {
 	    STRLEN char_len;
 	    if (UTF8_IS_SUPER(s)) {
 		if (ckWARN_d(WARN_NON_UNICODE)) {