diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 07:45:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-01 07:45:06 +0000 |
| commit | 20b634c2cddd73f32cb58e435a5061f5c6e53570 (patch) | |
| tree | e6566daa2c22e5601fe014122612ccfc19caf9cb /handy.h | |
| parent | 0f5d0394b2f5b3a7ac4dba1b324a4ccfb7799a4b (diff) | |
| download | perl-20b634c2cddd73f32cb58e435a5061f5c6e53570.tar.gz | |
z/OS: More threaded build tweaks from Brian De Pradine--
apparently now it works!
p4raw-id: //depot/perl@19368
Diffstat (limited to 'handy.h')
| -rw-r--r-- | handy.h | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -502,7 +502,11 @@ Converts the specified character to lowercase. #define isBLANK_LC_utf8(c) isBLANK(c) /* could be wrong */ #ifdef EBCDIC -# define toCTRL(c) Perl_ebcdic_control(c) +# ifdef PERL_IMPLICIT_CONTEXT +# define toCTRL(c) Perl_ebcdic_control(aTHX_ c) +# else +# define toCTRL Perl_ebcdic_control +# endif #else /* This conversion works both ways, strangely enough. */ # define toCTRL(c) (toUPPER(c) ^ 64) |