diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-09-02 10:30:32 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-09-13 21:14:00 -0600 |
| commit | ec34087a0a7a2c973993150137f0f8428541e7a0 (patch) | |
| tree | 4ed5dcda5a79d227c7b8d03d67e7a406671db2a3 /x2p | |
| parent | 1b0f46bfdeb9373b604bc2b77173cd26c0d37ecc (diff) | |
| download | perl-ec34087a0a7a2c973993150137f0f8428541e7a0.tar.gz | |
Remove some EBCDIC dependencies
A new regen'd header file has been created that contains the native
values for certain characters. By using those macros, we can eliminate
EBCDIC dependencies.
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/a2py.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/x2p/a2py.c b/x2p/a2py.c index 2f41ca86ec..aa48daa60c 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -17,6 +17,8 @@ #include "../patchlevel.h" #endif #include "util.h" +#include "../unicode_constants.h" +#define DELETE_CHAR DELETE_NATIVE const char *filename; const char *myname; @@ -289,11 +291,7 @@ yylex(void) case ':': tmp = *s++; XOP(tmp); -#ifdef EBCDIC - case 7: -#else - case 127: -#endif + case DELETE_CHAR: s++; XTERM('}'); case '}': |