IRIX long-double sqrt(2) one bit error in the least significant end.

[perl5.git] / toke.c

diff --git a/toke.c b/toke.c
index 3ee234c..b1bdfad 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3018,14 +3018,14 @@ S_scan_const(pTHX_ char *start)
                     else if (convert_unicode) {
                         /* diag_listed_as: Invalid range "%s" in transliteration operator */
                         Perl_croak(aTHX_
-                              "Invalid range \"\\N{U+%04X}-\\N{U+%04X}\""
+                              "Invalid range \"\\N{U+%04"UVXf"}-\\N{U+%04"UVXf"}\""
                                " in transliteration operator",
                               range_min, range_max);
                     }
                     else {
                         /* diag_listed_as: Invalid range "%s" in transliteration operator */
                         Perl_croak(aTHX_
-                              "Invalid range \"\\x{%04X}-\\x{%04X}\""
+                              "Invalid range \"\\x{%04"UVXf"}-\\x{%04"UVXf"}\""
                                " in transliteration operator",
                               range_min, range_max);
                     }
@@ -3525,7 +3525,7 @@ S_scan_const(pTHX_ char *start)
                        }
 
                         /* Add the (Unicode) code point to the output. */
-                       if (UNI_IS_INVARIANT(uv)) {
+                       if (OFFUNI_IS_INVARIANT(uv)) {
                            *d++ = (char) LATIN1_TO_NATIVE(uv);
                        }
                        else {