From: Andy Dougherty Date: Fri, 31 Mar 1995 00:56:10 +0000 (+0000) Subject: perl5.001 patch.1b: [byacc deps fix, set*id fixes, x2p/walk.c emit_split() X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56febc5ef28a2ff414c466231d08046390ce0f59;p=p5sagit%2Fp5-mst-13.2.git perl5.001 patch.1b: [byacc deps fix, set*id fixes, x2p/walk.c emit_split() fix] This is my patch patch.1b for perl5.001. [Actually, that's a lie. This is just a reposting of two of my patches (removing some byacc dependencies and fixing some set*id stuff) + one version of the x2p/walk.c emit_split() patch. I've just usurped the letter 'b' to fit in my patch sequence. You probably have already applied these as well, but again here they are all packaged up nice and neatly for storage on ftp sites.] Here's one possible solution to the byacc problem. Short summary: make will think your perly.[ch] are out of date because perly.c.diff has changed. They aren't really out of date, but the ordering of the timestamps in the distribution fools make. I had put some traps in perly.fixer to check to make sure that everything got run only if you ran the same version of byacc (1.8) as Larry, but the traps aren't good enough: There's a Cygnus version of byacc out there that also calls itself 1.8 (with a +Cygnus xxx note attached). I don't think I'll ever be able to reliably detect all mutant byacc's, so the safest course of action seems to be to never run byacc. (Yes, the perly.fixer check could be a _lot_ smarter. Volunteers?) This simple-minded fix just puts in a perly.c: perly.y - touch perly.c perly.h: perly.y - touch perly.h to bring perly.[ch] up to date, if needed. The '-' are in case your source is read-only. It also does the same trick in x2p/Makefile.SH. WARNING! Danger! Larry, if you do this, it means you have to explicitly call make run_byacc whenever you change perly.y, perly.c.diff, or cd x2p; make run_byacc if you change x2p/a2p.y. However, it might be worth it. I leave it up to you. --- diff --git a/Makefile.SH b/Makefile.SH index 9de1de7..3613c46 100644 --- a/Makefile.SH +++ b/Makefile.SH @@ -273,42 +273,30 @@ lib/ExtUtils/Miniperl.pm: miniperlmain.c miniperl minimod.PL lib/Config.pm install: all ./perl installperl -!NO!SUBS! - -: Only print out the rules for running byacc if the user _has_ byacc. -: Otherwise, comment them out. Users who really know what they are -: doing can uncomment them and run yacc or bison or whatever. -case "$d_byacc" in -'define') - comment1='' - comment2='#' ;; -*) comment1='#' - comment2='' ;; -esac - -$spitshell >>Makefile <>perly.h + +# We don't want to regenerate perly.c and perly.h, but they might +# appear out-of-date after a patch is applied or a new distribution is +# made. +perly.c: perly.y + - touch perly.c + +perly.h: perly.y + - touch perly.h -${comment1}perly.c: perly.y perly.c.diff -${comment1} @ echo 'Expect' 109 shift/reduce and 1 reduce/reduce conflict -${comment1} \$(BYACC) -d perly.y -${comment1} sh \$(shellflags) ./perly.fixer y.tab.c perly.c -${comment1} mv y.tab.h perly.h -${comment1} echo 'extern YYSTYPE yylval;' >>perly.h - -# This version is used if you do not have byacc. -${comment2}perly.c: perly.y -${comment2} touch perly.c - -!GROK!THIS! - -$spitshell >>Makefile <<'!NO!SUBS!' # Extensions: # Names added to $(dynamic_ext) or $(static_ext) will automatically # get built. There should ordinarily be no need to change any of @@ -374,9 +362,7 @@ config.h: config.sh # When done, touch perlmain.c so that it doesn't get remade each time. depend: makedepend - - test -f perly.h || cp /dev/null perly.h ./makedepend - - test -s perly.h || /bin/rm -f perly.h - test -s perlmain.c && touch perlmain.c cd x2p; $(MAKE) depend diff --git a/pp_hot.c b/pp_hot.c index dedb217..45a4432 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -571,62 +571,58 @@ PP(pp_aassign) if (delaymagic & DM_UID) { #ifdef HAS_SETRESUID (void)setresuid(uid,euid,(Uid_t)-1); -#else /* not HAS_SETRESUID */ -#ifdef HAS_SETREUID +#else +# ifdef HAS_SETREUID (void)setreuid(uid,euid); -#else /* not HAS_SETREUID */ -#ifdef HAS_SETRUID +# else +# ifdef HAS_SETRUID if ((delaymagic & DM_UID) == DM_RUID) { (void)setruid(uid); delaymagic &= ~DM_RUID; } -#endif /* HAS_SETRUID */ -#endif /* HAS_SETRESUID */ -#ifdef HAS_SETEUID +# endif /* HAS_SETRUID */ +# ifdef HAS_SETEUID if ((delaymagic & DM_UID) == DM_EUID) { (void)seteuid(uid); delaymagic &= ~DM_EUID; } -#endif /* HAS_SETEUID */ +# endif /* HAS_SETEUID */ if (delaymagic & DM_UID) { if (uid != euid) DIE("No setreuid available"); (void)setuid(uid); } -#endif /* not HAS_SETREUID */ +# endif /* HAS_SETREUID */ +#endif /* HAS_SETRESUID */ uid = (int)getuid(); euid = (int)geteuid(); } if (delaymagic & DM_GID) { #ifdef HAS_SETRESGID (void)setresgid(gid,egid,(Gid_t)-1); -#else /* not HAS_SETREGID */ -#ifdef HAS_SETREGID +#else +# ifdef HAS_SETREGID (void)setregid(gid,egid); -#else /* not HAS_SETREGID */ -#endif /* not HAS_SETRESGID */ -#ifdef HAS_SETRGID +# else +# ifdef HAS_SETRGID if ((delaymagic & DM_GID) == DM_RGID) { (void)setrgid(gid); delaymagic &= ~DM_RGID; } -#endif /* HAS_SETRGID */ -#ifdef HAS_SETRESGID - (void)setresgid(gid,egid,(Gid_t)-1); -#else /* not HAS_SETREGID */ -#ifdef HAS_SETEGID +# endif /* HAS_SETRGID */ +# ifdef HAS_SETEGID if ((delaymagic & DM_GID) == DM_EGID) { (void)setegid(gid); delaymagic &= ~DM_EGID; } -#endif /* HAS_SETEGID */ +# endif /* HAS_SETEGID */ if (delaymagic & DM_GID) { if (gid != egid) DIE("No setregid available"); (void)setgid(gid); } -#endif /* not HAS_SETRESGID */ -#endif /* not HAS_SETREGID */ +# endif /* HAS_SETREGID */ +#endif /* HAS_SETRESGID */ gid = (int)getgid(); egid = (int)getegid(); } diff --git a/x2p/Makefile.SH b/x2p/Makefile.SH index 393a335..19d4205 100755 --- a/x2p/Makefile.SH +++ b/x2p/Makefile.SH @@ -17,11 +17,6 @@ case "$0" in */*) cd `expr X$0 : 'X\(.*\)/'` ;; esac -: Configure sets byacc=byacc if byacc is not found. We reset it to '' -case "$byacc" in -'byacc') byacc='';; -esac - echo "Extracting x2p/Makefile (with variable substitutions)" rm -f Makefile cat >Makefile <>Makefile <>Makefile <<'!NO!SUBS!' +# used only if you force byacc to run by saying +# make run_byacc + +run_byacc: + @ echo Expect many shift/reduce and reduce/reduce conflicts + $(BYACC) a2p.y + mv y.tab.c a2p.c + +# We don't want to regenerate a2p.c, but it might appear out-of-date +# after a patch is applied or a new distribution is made. +a2p.c: a2p.y + - touch a2p.c a2p.o: a2p.c a2py.c a2p.h EXTERN.h util.h INTERN.h handy.h ../config.h str.h hash.h $(CCCMD) $(LARGE) a2p.c diff --git a/x2p/walk.c b/x2p/walk.c index 6f425a4..403d686 100644 --- a/x2p/walk.c +++ b/x2p/walk.c @@ -12,12 +12,6 @@ #include "a2p.h" #include "util.h" -static void tab(); -static void fixtab(); -static void addsemi(); -static void emit_split(); -static void numericize(); - bool exitval = FALSE; bool realexit = FALSE; bool saw_getline = FALSE; @@ -32,12 +26,13 @@ char *limit; STR *subs; STR *curargs = Nullstr; -void addsemi _(( STR *str )); -void emit_split _(( STR *str, int level )); -void fixtab _(( STR *str, int lvl )); -void numericize _(( int node )); +static void addsemi _(( STR *str )); +static void emit_split _(( STR *str, int level )); +static void fixtab _(( STR *str, int lvl )); +static void numericize _(( int node )); +static void tab _(( STR *str, int lvl )); + int prewalk _(( int numit, int level, int node, int *numericptr )); -void tab _(( STR *str, int lvl )); STR * walk _(( int useval, int level, int node, int *numericptr, int minprec )); @@ -1606,7 +1601,7 @@ register STR *str; str_cat(str,";"); } -void +static void emit_split(str,level) register STR *str; int level;