regexec.c: Replace duplicated code by its macro

Replace two instances of code that is the same as that given by an already
existing macro.

diff --git a/regexec.c b/regexec.c
index 3644302..cb5eb10 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -189,12 +189,7 @@
                 sayNO;                                                      \
             if (utf8_target && UTF8_IS_CONTINUED(nextchr)) {                \
                 if (!CAT2(PL_utf8_,CLASS)) {                                \
-                    bool ok;                                                \
-                    ENTER;                                                  \
-                    save_re_context();                                      \
-                    ok=CAT2(is_utf8_,CLASS)((const U8*)STR);                \
-                    assert(ok);                                             \
-                    LEAVE;                                                  \
+                    LOAD_UTF8_CHARCLASS(CLASS, STR);                        \
                 }                                                           \
                 if (!(OP(scan) == NAME                                      \
                     ? cBOOL(swash_fetch(CAT2(PL_utf8_,CLASS), (U8*)locinput, utf8_target))  \
@@ -233,12 +228,7 @@
                 sayNO;                                                       \
             if (utf8_target && UTF8_IS_CONTINUED(nextchr)) {                 \
                 if (!CAT2(PL_utf8_,CLASS)) {                                 \
-                    bool ok;                                                 \
-                    ENTER;                                                   \
-                    save_re_context();                                       \
-                    ok=CAT2(is_utf8_,CLASS)((const U8*)STR);                 \
-                    assert(ok);                                              \
-                    LEAVE;                                                   \
+                    LOAD_UTF8_CHARCLASS(CLASS, STR);                         \
                 }                                                            \
                 if ((OP(scan) == NAME                                        \
                     ? cBOOL(swash_fetch(CAT2(PL_utf8_,CLASS), (U8*)locinput, utf8_target))  \