| … | |
… | |
| 181 | |
181 | |
| 182 | SvPVX (sv)[idx] = type; |
182 | SvPVX (sv)[idx] = type; |
| 183 | } |
183 | } |
| 184 | |
184 | |
| 185 | static SV * |
185 | static SV * |
| 186 | profile_new () |
186 | profile_new (void) |
| 187 | { |
187 | { |
| 188 | SV *sv = newSVpvn ("", 0); |
188 | SV *sv = newSVpvn ("", 0); |
| 189 | |
189 | |
| 190 | static const struct { |
190 | static const struct { |
| 191 | int klass; |
191 | int klass; |
| … | |
… | |
| 294 | |
294 | |
| 295 | return res; |
295 | return res; |
| 296 | } |
296 | } |
| 297 | |
297 | |
| 298 | static SV * |
298 | static SV * |
| 299 | decode_int () |
299 | decode_int (void) |
| 300 | { |
300 | { |
| 301 | int len = get_length (); |
301 | int len = get_length (); |
| 302 | |
302 | |
| 303 | if (len <= 0) |
303 | if (len <= 0) |
| 304 | { |
304 | { |
| … | |
… | |
| 437 | |
437 | |
| 438 | return res; |
438 | return res; |
| 439 | } |
439 | } |
| 440 | |
440 | |
| 441 | static SV * |
441 | static SV * |
| 442 | decode_ber () |
442 | decode_ber (void) |
| 443 | { |
443 | { |
| 444 | int identifier = get_u8 (); |
444 | int identifier = get_u8 (); |
| 445 | |
445 | |
| 446 | SV *res; |
446 | SV *res; |
| 447 | |
447 | |
| … | |
… | |
| 736 | // we don't know the length yet, so we optimistically |
736 | // we don't know the length yet, so we optimistically |
| 737 | // assume the length will need one octet later. if that |
737 | // assume the length will need one octet later. if that |
| 738 | // turns out to be wrong, we memove as needed. |
738 | // turns out to be wrong, we memove as needed. |
| 739 | // mark the beginning |
739 | // mark the beginning |
| 740 | static STRLEN |
740 | static STRLEN |
| 741 | len_fixup_mark () |
741 | len_fixup_mark (void) |
| 742 | { |
742 | { |
| 743 | return cur++ - buf; |
743 | return cur++ - buf; |
| 744 | } |
744 | } |
| 745 | |
745 | |
| 746 | // patch up the length |
746 | // patch up the length |
