… | |
… | |
180 | len1 = (len1 | 4095) - 24; |
180 | len1 = (len1 | 4095) - 24; |
181 | |
181 | |
182 | return SvGROW (sv, len1); |
182 | return SvGROW (sv, len1); |
183 | } |
183 | } |
184 | |
184 | |
185 | // decode an utf-8 character and return it, or (UV)-1 in |
185 | // decode a utf-8 character and return it, or (UV)-1 in |
186 | // case of an error. |
186 | // case of an error. |
187 | // we special-case "safe" characters from U+80 .. U+7FF, |
187 | // we special-case "safe" characters from U+80 .. U+7FF, |
188 | // but use the very good perl function to parse anything else. |
188 | // but use the very good perl function to parse anything else. |
189 | // note that we never call this function for a ascii codepoints |
189 | // note that we never call this function for a ascii codepoints |
190 | INLINE UV |
190 | INLINE UV |