diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-01 15:03:02 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:20:12 +0000 |
| commit | 9d116dd7c895b17badf4ad422ae44da0c4df7bc2 (patch) | |
| tree | 6e0cd77e3539952c892983238473264f672472b9 /x2p | |
| parent | e6df7ed16ebd06f5315f3016c00996876580109c (diff) | |
| download | perl-9d116dd7c895b17badf4ad422ae44da0c4df7bc2.tar.gz | |
support OE/MVS
Message-Id: <199808010903.MAA09371@alpha.hut.fi>
Subject: [PATCH] 5.005_01: OE MVS
p4raw-id: //depot/maint-5.005/perl@1697
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/a2p.h | 4 | ||||
| -rw-r--r-- | x2p/a2py.c | 8 |
2 files changed, 10 insertions, 2 deletions
@@ -412,6 +412,10 @@ EXT int debug INIT(0); EXT int dlevel INIT(0); #define YYDEBUG 1 extern int yydebug; +#else +# ifndef YYDEBUG +# define YYDEBUG 0 +# endif #endif EXT STR *freestrroot INIT(Nullstr); diff --git a/x2p/a2py.c b/x2p/a2py.c index a4753ab864..8a6155f455 100644 --- a/x2p/a2py.c +++ b/x2p/a2py.c @@ -66,7 +66,7 @@ main(register int argc, register char **argv, register char **env) #ifdef DEBUGGING case 'D': debug = atoi(argv[0]+2); -#ifdef YYDEBUG +#if YYDEBUG yydebug = (debug & 1); #endif break; @@ -211,7 +211,7 @@ yylex(void) register int tmp; retry: -#ifdef YYDEBUG +#if YYDEBUG if (yydebug) if (strchr(s,'\n')) fprintf(stderr,"Tokener at %s",s); @@ -273,7 +273,11 @@ yylex(void) case ':': tmp = *s++; XOP(tmp); +#ifdef EBCDIC + case 7: +#else case 127: +#endif s++; XTERM('}'); case '}': |