This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH 5.005_03-MAINT-TRIAL1] some tweaks to the build process for OS/390
authorPeter Prymmer <PPrymmer@factset.com>
Fri, 4 Dec 1998 00:37:32 +0000 (16:37 -0800)
committerGraham Barr <gbarr@pobox.com>
Sun, 13 Dec 1998 15:30:58 +0000 (15:30 +0000)
Message-Id: <9812040837.AA10908@forte.com>

p4raw-id: //depot/maint-5.005/perl@2476

Makefile.SH
regcomp.c

index 9a2566b..da2afdc 100644 (file)
@@ -662,21 +662,8 @@ os390)
         echo "perly.y -> perly.c" >&2
         mv -f y.tab.c perly.c
         chmod u+w perly.c
-        sed -e '/^#include "perl\.h"/a\
-\
-#define yydebug    PL_yydebug\
-#define yynerrs    PL_yynerrs\
-#define yyerrflag  PL_yyerrflag\
-#define yychar     PL_yychar\
-#define yyval      PL_yyval\
-#define yylval     PL_yylval'                          \
-            -e '/YYSTYPE *yyval;/D'                    \
-            -e '/YYSTYPE *yylval;/D'                   \
-            -e '/int  yychar,/,/yynerrs;/D'            \
-            -e 's/int yydebug = 0;/yydebug = 0;/'      \
-            -e 's/[^_]realloc(/PerlMem_realloc(/g'     \
-            -e 's/fprintf *( *stderr *,/PerlIO_printf(Perl_debug_log,/g' \
-            -e 's/y\.tab/perly/g' perly.c >perly.tmp && mv perly.tmp perly.c
+       sed -e 's/fprintf *( *stderr *,/PerlIO_printf(Perl_debug_log,/g' \
+           -e 's/y\.tab/perly/g' perly.c >perly.tmp && mv perly.tmp perly.c
         xxx="$xxx perly.c"
     fi
     if cmp -s y.tab.h perly.h; then
index a09dc83..d26489c 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -2045,14 +2045,15 @@ regclass(void)
        }
        if (!SIZE_ONLY) {
 #ifndef ASCIIish
-           if ((isLOWER(lastvalue) && isLOWER(value)) ||
-               (isUPPER(lastvalue) && isUPPER(value))) {
-               if (isLOWER(lastvalue)) {
-                   for (i = lastvalue; i <= value; i++)
+           register I32 i;
+           if ((isLOWER(lastclass) && isLOWER(Class)) ||
+               (isUPPER(lastclass) && isUPPER(Class))) {
+               if (isLOWER(lastclass)) {
+                   for (i = lastclass; i <= Class; i++)
                        if (isLOWER(i))
                            ANYOF_SET(opnd, i);
                } else {
-                   for (i = lastvalue; i <= value; i++)
+                   for (i = lastclass; i <= Class; i++)
                        if (isUPPER(i))
                            ANYOF_SET(opnd, i);
                }