… | |
… | |
3 | |
3 | |
4 | #include "EXTERN.h" |
4 | #include "EXTERN.h" |
5 | #include "perl.h" |
5 | #include "perl.h" |
6 | #include "XSUB.h" |
6 | #include "XSUB.h" |
7 | |
7 | |
|
|
8 | #ifndef pTHX_ |
|
|
9 | # define pTHX_ |
|
|
10 | # define aTHX_ |
|
|
11 | # define pTHX |
|
|
12 | # define aTHX |
|
|
13 | #endif |
|
|
14 | |
8 | /* perl-related */ |
15 | /* perl-related */ |
9 | #define TRANSFER_SAVE_DEFAV 0x00000001 |
16 | #define TRANSFER_SAVE_DEFAV 0x00000001 /* @_ */ |
10 | #define TRANSFER_SAVE_DEFSV 0x00000002 |
17 | #define TRANSFER_SAVE_DEFSV 0x00000002 /* $_ */ |
11 | #define TRANSFER_SAVE_ERRSV 0x00000004 |
18 | #define TRANSFER_SAVE_ERRSV 0x00000004 /* $@ */ |
12 | /* c-related */ |
19 | /* c-related */ |
13 | #define TRANSFER_SAVE_CCTXT 0x00000008 |
20 | #define TRANSFER_SAVE_CCTXT 0x00000100 |
14 | #ifdef CORO_LAZY_STACK |
21 | #ifdef CORO_LAZY_STACK |
15 | # define TRANSFER_LAZY_STACK 0x00000010 |
22 | # define TRANSFER_LAZY_STACK 0x00000200 |
16 | #else |
23 | #else |
17 | # define TRANSFER_LAZY_STACK 0x00000000 |
24 | # define TRANSFER_LAZY_STACK 0x00000000 |
18 | #endif |
25 | #endif |
19 | |
26 | |
20 | #define TRANSFER_SAVE_ALL (TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \ |
27 | #define TRANSFER_SAVE_ALL (TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \ |