#ifdef EBCDIC
#undef YYDEBUG
#endif
-#define dep() deprecate("\"do\" to call subroutines")
+#define dep() deprecate_old("\"do\" to call subroutines")
/* stuff included here to make perly_c.diff apply better */
YYSTYPE oldyylval;
};
-static void yydestruct(pTHXo_ void *ptr);
+static void yydestruct(pTHX_ void *ptr);
#line 51 "perly.y"
#if 0 /* get this from perly.h instead */
ysave->oldyylval = yylval;
#if YYDEBUG
+ {
+ register int saved_errno = errno;
+#ifdef VMS
+ register int saved_vaxc_errno = vaxc$errno;
+#else
+ register int saved_vaxc_errno = 0;
+#endif
if ((yys = getenv("YYDEBUG")))
{
yyn = *yys;
if (yyn >= '0' && yyn <= '9')
yydebug = yyn - '0';
}
- else SETERRNO(0,SS$_NORMAL);
+ else SETERRNO(saved_errno,saved_vaxc_errno);
+ }
#endif
yynerrs = 0;
return retval;
}
-#ifdef PERL_OBJECT
-#include "XSUB.h"
-#endif
-
static void
-yydestruct(pTHXo_ void *ptr)
+yydestruct(pTHX_ void *ptr)
{
struct ysv* ysave = (struct ysv*)ptr;
if (ysave->yyss) Safefree(ysave->yyss);