Integrate with Sarathy.
Jarkko Hietaniemi [Mon, 2 Aug 1999 14:18:03 +0000 (14:18 +0000)]
p4raw-id: //depot/cfgperl@3889

Changes
patchlevel.h
pod/perlhist.pod
pp_ctl.c
util.c
win32/Makefile
win32/config_H.bc
win32/config_H.gc
win32/config_H.vc
win32/makefile.mk
win32/win32.c

diff --git a/Changes b/Changes
index 2077661..771db28 100644 (file)
--- a/Changes
+++ b/Changes
@@ -79,6 +79,47 @@ Version 5.005_59        Development release working toward 5.006
 ----------------
 
 ____________________________________________________________________________
+[  3876] By: gsar                                  on 1999/08/02  07:51:18
+        Log: fix coredump under usethreads+debug
+     Branch: perl
+          ! util.c
+____________________________________________________________________________
+[  3875] By: jhi                                   on 1999/08/02  07:50:51
+        Log: d_bincompat5005 could be left empty.
+     Branch: cfgperl
+          ! Configure config_h.SH
+     Branch: metaconfig/U/perl
+          ! bincompat5005.U
+____________________________________________________________________________
+[  3874] By: jhi                                   on 1999/08/02  07:42:45
+        Log: Fix printf %d when IV is quad.
+     Branch: cfgperl
+          ! sv.c
+____________________________________________________________________________
+[  3873] By: gsar                                  on 1999/08/02  07:41:03
+        Log: fix d_bincompat5005='' junking config.h
+     Branch: perl
+          ! Configure
+____________________________________________________________________________
+[  3872] By: gsar                                  on 1999/08/02  07:38:48
+        Log: C needs parameter list, not merely type
+     Branch: perl
+          ! win32/win32.c
+____________________________________________________________________________
+[  3871] By: jhi                                   on 1999/08/02  07:20:51
+        Log: Integrate with Sarathy.
+     Branch: cfgperl
+         !> Changes ext/B/B/C.pm ext/B/B/CC.pm regexec.c
+____________________________________________________________________________
+[  3870] By: gsar                                  on 1999/08/02  07:12:18
+        Log: integrate cfgperl changes into mainline
+     Branch: perl
+          ! Changes
+         !> Configure Makefile.SH Porting/Glossary Porting/config.sh
+         !> Porting/config_H config_h.SH doio.c dump.c mg.c op.c perl.h
+         !> pp_ctl.c pp_hot.c pp_sys.c scope.c sv.c t/pragma/warn/sv
+         !> toke.c util.c
+____________________________________________________________________________
 [  3869] By: gsar                                  on 1999/08/02  06:59:09
         Log: From: "Vishal Bhatia" <vishalb@my-deja.com>
              Date: Sat, 31 Jul 1999 19:08:33 -0700
index f8da7c5..e1977b7 100644 (file)
@@ -5,7 +5,7 @@
 
 #define PERL_REVISION  5               /* age */
 #define PERL_VERSION   5               /* epoch */
-#define PERL_SUBVERSION        58              /* generation */
+#define PERL_SUBVERSION        59              /* generation */
 
 /*
        local_patches -- list of locally applied less-than-subversion patches.
index cf5a0e8..d7e2ab7 100644 (file)
@@ -325,6 +325,7 @@ the strings?).
           5.005_56      1999-Mar-01
           5.005_57      1999-May-25
          5.005_58      1999-Jul-27
+         5.005_59      1999-Aug-02
          5.6 beta      1999-***-**
 
 =head2 SELECTED RELEASE SIZES
index d88399e..2d29448 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1921,32 +1921,29 @@ S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit)
        *ops++ = cUNOPo->op_first;
        if (ops >= oplimit)
            Perl_croak(aTHX_ too_deep);
-       *ops = 0;
     }
+    *ops = 0;
     if (o->op_flags & OPf_KIDS) {
        dTHR;
        /* First try all the kids at this level, since that's likeliest. */
        for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
-           if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
-               && kCOP->cop_label && strEQ(kCOP->cop_label, label))
-           {
+           if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) &&
+                   kCOP->cop_label && strEQ(kCOP->cop_label, label))
                return kid;
-           }
        }
        for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
            if (kid == PL_lastgotoprobe)
                continue;
-           if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE)
-               && (ops == opstack || (ops[-1]->op_type != OP_NEXTSTATE
-                                      && ops[-1]->op_type != OP_DBSTATE)))
-           {
+           if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) &&
+               (ops == opstack ||
+                (ops[-1]->op_type != OP_NEXTSTATE &&
+                 ops[-1]->op_type != OP_DBSTATE)))
                *ops++ = kid;
-               *ops = 0;
-           }
            if (o = dofindlabel(kid, label, ops, oplimit))
                return o;
        }
     }
+    *ops = 0;
     return 0;
 }
 
diff --git a/util.c b/util.c
index a7c9530..132ec5e 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3408,6 +3408,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
     PL_screamnext = 0;
     PL_reg_start_tmp = 0;
     PL_reg_start_tmpl = 0;
+    PL_reg_poscache = Nullch;
 
     /* parent thread's data needs to be locked while we make copy */
     MUTEX_LOCK(&t->mutex);
index 8750f05..871e89f 100644 (file)
@@ -29,7 +29,7 @@ INST_TOP      = $(INST_DRV)\perl
 # versioned installation can be obtained by setting INST_TOP above to a
 # path that includes an arbitrary version string.
 #
-INST_VER       = \5.00558
+INST_VER       = \5.00559
 
 #
 # Comment this out if you DON'T want your perl installation to have
index 011add0..fc0eab7 100644 (file)
  *     This symbol contains the ~name expanded version of ARCHLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define ARCHLIB "c:\\perl\\5.00558\\lib\\MSWin32-x86"          /**/
+#define ARCHLIB "c:\\perl\\5.00559\\lib\\MSWin32-x86"          /**/
 /*#define ARCHLIB_EXP ""       /**/
 
 /* BIN:
  *     This symbol is the filename expanded version of the BIN symbol, for
  *     programs that do not want to deal with that at run-time.
  */
-#define BIN "c:\\perl\\5.00558\\bin\\MSWin32-x86"      /**/
-#define BIN_EXP "c:\\perl\\5.00558\\bin\\MSWin32-x86"  /**/
+#define BIN "c:\\perl\\5.00559\\bin\\MSWin32-x86"      /**/
+#define BIN_EXP "c:\\perl\\5.00559\\bin\\MSWin32-x86"  /**/
 
 /* INSTALL_USR_BIN_PERL:
  *     This symbol, if defined, indicates that Perl is to be installed
  *     This symbol contains the ~name expanded version of PRIVLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define PRIVLIB "c:\\perl\\5.00558\\lib"               /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00558"))     /**/
+#define PRIVLIB "c:\\perl\\5.00559\\lib"               /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00559"))     /**/
 
 /* SITEARCH:
  *     This symbol contains the name of the private library for this package.
  *     This symbol contains the ~name expanded version of SITEARCH, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITEARCH "c:\\perl\\site\\5.00558\\lib\\MSWin32-x86"           /**/
+#define SITEARCH "c:\\perl\\site\\5.00559\\lib\\MSWin32-x86"           /**/
 /*#define SITEARCH_EXP ""      /**/
 
 /* SITELIB:
  *     This symbol contains the ~name expanded version of SITELIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITELIB "c:\\perl\\site\\5.00558\\lib"         /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00558"))     /**/
+#define SITELIB "c:\\perl\\site\\5.00559\\lib"         /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00559"))     /**/
 
 /* PERL_VENDORLIB_EXP:
  *     This symbol contains the ~name expanded version of VENDORLIB, to be used
index 3acef75..0728c2d 100644 (file)
  *     This symbol contains the ~name expanded version of ARCHLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define ARCHLIB "c:\\perl\\5.00558\\lib\\MSWin32-x86"          /**/
+#define ARCHLIB "c:\\perl\\5.00559\\lib\\MSWin32-x86"          /**/
 /*#define ARCHLIB_EXP ""       /**/
 
 /* BIN:
  *     This symbol is the filename expanded version of the BIN symbol, for
  *     programs that do not want to deal with that at run-time.
  */
-#define BIN "c:\\perl\\5.00558\\bin\\MSWin32-x86"      /**/
-#define BIN_EXP "c:\\perl\\5.00558\\bin\\MSWin32-x86"  /**/
+#define BIN "c:\\perl\\5.00559\\bin\\MSWin32-x86"      /**/
+#define BIN_EXP "c:\\perl\\5.00559\\bin\\MSWin32-x86"  /**/
 
 /* INSTALL_USR_BIN_PERL:
  *     This symbol, if defined, indicates that Perl is to be installed
  *     This symbol contains the ~name expanded version of PRIVLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define PRIVLIB "c:\\perl\\5.00558\\lib"               /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00558"))     /**/
+#define PRIVLIB "c:\\perl\\5.00559\\lib"               /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00559"))     /**/
 
 /* SITEARCH:
  *     This symbol contains the name of the private library for this package.
  *     This symbol contains the ~name expanded version of SITEARCH, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITEARCH "c:\\perl\\site\\5.00558\\lib\\MSWin32-x86"           /**/
+#define SITEARCH "c:\\perl\\site\\5.00559\\lib\\MSWin32-x86"           /**/
 /*#define SITEARCH_EXP ""      /**/
 
 /* SITELIB:
  *     This symbol contains the ~name expanded version of SITELIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITELIB "c:\\perl\\site\\5.00558\\lib"         /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00558"))     /**/
+#define SITELIB "c:\\perl\\site\\5.00559\\lib"         /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00559"))     /**/
 
 /* PERL_VENDORLIB_EXP:
  *     This symbol contains the ~name expanded version of VENDORLIB, to be used
index 48df497..86d8ae8 100644 (file)
  *     This symbol contains the ~name expanded version of ARCHLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define ARCHLIB "c:\\perl\\5.00558\\lib\\MSWin32-x86"          /**/
+#define ARCHLIB "c:\\perl\\5.00559\\lib\\MSWin32-x86"          /**/
 /*#define ARCHLIB_EXP ""       /**/
 
 /* BIN:
  *     This symbol is the filename expanded version of the BIN symbol, for
  *     programs that do not want to deal with that at run-time.
  */
-#define BIN "c:\\perl\\5.00558\\bin\\MSWin32-x86"      /**/
-#define BIN_EXP "c:\\perl\\5.00558\\bin\\MSWin32-x86"  /**/
+#define BIN "c:\\perl\\5.00559\\bin\\MSWin32-x86"      /**/
+#define BIN_EXP "c:\\perl\\5.00559\\bin\\MSWin32-x86"  /**/
 
 /* INSTALL_USR_BIN_PERL:
  *     This symbol, if defined, indicates that Perl is to be installed
  *     This symbol contains the ~name expanded version of PRIVLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define PRIVLIB "c:\\perl\\5.00558\\lib"               /**/
-#define PRIVLIB_EXP (win32_get_privlib("5.00558"))     /**/
+#define PRIVLIB "c:\\perl\\5.00559\\lib"               /**/
+#define PRIVLIB_EXP (win32_get_privlib("5.00559"))     /**/
 
 /* SITEARCH:
  *     This symbol contains the name of the private library for this package.
  *     This symbol contains the ~name expanded version of SITEARCH, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITEARCH "c:\\perl\\site\\5.00558\\lib\\MSWin32-x86"           /**/
+#define SITEARCH "c:\\perl\\site\\5.00559\\lib\\MSWin32-x86"           /**/
 /*#define SITEARCH_EXP ""      /**/
 
 /* SITELIB:
  *     This symbol contains the ~name expanded version of SITELIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define SITELIB "c:\\perl\\site\\5.00558\\lib"         /**/
-#define SITELIB_EXP (win32_get_sitelib("5.00558"))     /**/
+#define SITELIB "c:\\perl\\site\\5.00559\\lib"         /**/
+#define SITELIB_EXP (win32_get_sitelib("5.00559"))     /**/
 
 /* PERL_VENDORLIB_EXP:
  *     This symbol contains the ~name expanded version of VENDORLIB, to be used
index f2460a8..65416f7 100644 (file)
@@ -33,7 +33,7 @@ INST_TOP      *= $(INST_DRV)\perl
 # versioned installation can be obtained by setting INST_TOP above to a
 # path that includes an arbitrary version string.
 #
-INST_VER       *= \5.00558
+INST_VER       *= \5.00559
 
 #
 # Comment this out if you DON'T want your perl installation to have
index e705e4d..22b2c0a 100644 (file)
@@ -2488,7 +2488,7 @@ get_childenv(void)
 }
 
 void
-free_childenv(void*)
+free_childenv(void* d)
 {
 }
 
@@ -2499,7 +2499,7 @@ get_childdir(void)
 }
 
 void
-free_childdir(char*)
+free_childdir(char* d)
 {
 }