… | |
… | |
11 | # define SvPV_nolen(sv) SvPV ((sv), nolen_na) |
11 | # define SvPV_nolen(sv) SvPV ((sv), nolen_na) |
12 | #endif |
12 | #endif |
13 | #if PATCHLEVEL < 6 |
13 | #if PATCHLEVEL < 6 |
14 | # define call_sv perl_call_sv |
14 | # define call_sv perl_call_sv |
15 | #endif |
15 | #endif |
|
|
16 | |
|
|
17 | #define HLOG 15 |
|
|
18 | #define ULTRA_FAST 0 |
16 | |
19 | |
17 | #include "lzf_c.c" |
20 | #include "lzf_c.c" |
18 | #include "lzf_d.c" |
21 | #include "lzf_d.c" |
19 | |
22 | |
20 | /* we re-use the storable header for our purposes */ |
23 | /* we re-use the storable header for our purposes */ |
… | |
… | |
364 | |
367 | |
365 | if (SvPVX (sv)[0] == MAGIC_R) |
368 | if (SvPVX (sv)[0] == MAGIC_R) |
366 | SvPVX (sv)[0] = MAGIC_R_deref; |
369 | SvPVX (sv)[0] = MAGIC_R_deref; |
367 | } |
370 | } |
368 | else |
371 | else |
369 | XPUSHs (POPs); /* this is a nop, hopefully */ |
372 | SETs (sv_2mortal (newSVsv (TOPs))); |
370 | |
373 | |
371 | break; |
374 | break; |
372 | |
375 | |
373 | default: |
376 | default: |
374 | croak ("Compress::LZF::sthaw(): invalid data, maybe you need a newer version of Compress::LZF?"); |
377 | croak ("Compress::LZF::sthaw(): invalid data, maybe you need a newer version of Compress::LZF?"); |
375 | } |
378 | } |
376 | } |
379 | } |
377 | else |
380 | else |
378 | XPUSHs (sv_2mortal (newSVsv (sv))); |
381 | XPUSHs (sv_2mortal (newSVsv (sv))); |
|
|
382 | |