| … | |
… | |
| 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 |
