summaryrefslogtreecommitdiff
path: root/perly.y
diff options
context:
space:
mode:
authorThomas Dorner <Thomas.Dorner@start.de>1998-09-29 14:29:36 +0100
committerJarkko Hietaniemi <jhi@iki.fi>1998-10-17 14:49:46 +0000
commita1a0e61e30ae0c76c1d9cbf46512c19c0a966791 (patch)
tree87df3aae4267240a5d481ebb6ffe2eb12fe14667 /perly.y
parent5b7e2fe55885acf170d7496132b9ef976ea5c02b (diff)
downloadperl-a1a0e61e30ae0c76c1d9cbf46512c19c0a966791.tar.gz
POSIX BC2000 port from perl-mvs:
Subject: Ported perl 5.005.02 to BS2000 / POSIX Message-ID: <9CE47B416A24D2118BC40000F84009B20B72C5@start.de> p4raw-id: //depot/cfgperl@2009
Diffstat (limited to 'perly.y')
-rw-r--r--perly.y9
1 files changed, 7 insertions, 2 deletions
diff --git a/perly.y b/perly.y
index 2c246fc228..78378b62be 100644
--- a/perly.y
+++ b/perly.y
@@ -27,7 +27,8 @@ dep(void)
%start prog
%{
-#if !defined(OEMVS) && !defined(__OPEN_VM)
+/* I sense a Big Blue pattern here... */
+#if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
%}
%union {
@@ -38,7 +39,11 @@ dep(void)
}
%{
-#endif /* !OEMVS && !__OPEN_VM*/
+#endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
+
+#ifdef USE_PURE_BISON
+#define YYLEX_PARAM (&yychar)
+#endif
%}
%token <ival> '{' ')'