This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
5.004_63 picky compiler fixes [PATCH]
authorHans Mulder <hansmu@xs4all.nl>
Wed, 18 Mar 1998 09:36:32 +0000 (01:36 -0800)
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>
Thu, 2 Apr 1998 14:26:52 +0000 (14:26 +0000)
Date: Wed, 18 Mar 1998 09:36:32 -0800
Subject: [PATCH 5.004_63] Fix function prototype with long doubles
Date: Wed, 18 Mar 1998 14:48:19 -0800

p4raw-id: //depot/perl@843

ext/POSIX/POSIX.xs
ext/Thread/Thread.xs
vms/vms.c

index 8807d68..817ef11 100644 (file)
@@ -287,7 +287,12 @@ not_here(char *s)
     return -1;
 }
 
-static double
+static
+#ifdef HAS_LONG_DOUBLE
+long double
+#else
+double
+#endif
 constant(char *name, int arg)
 {
     errno = 0;
@@ -2549,6 +2554,7 @@ new(packname = "POSIX::Termios", ...)
            RETVAL = (struct termios*)safemalloc(sizeof(struct termios));
 #else
            not_here("termios");
+        RETVAL = 0;
 #endif
        }
     OUTPUT:
@@ -2598,7 +2604,8 @@ getiflag(termios_ref)
 #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
        RETVAL = termios_ref->c_iflag;
 #else
-           not_here("getiflag");
+     not_here("getiflag");
+     RETVAL = 0;
 #endif
     OUTPUT:
        RETVAL
@@ -2610,7 +2617,8 @@ getoflag(termios_ref)
 #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
        RETVAL = termios_ref->c_oflag;
 #else
-           not_here("getoflag");
+     not_here("getoflag");
+     RETVAL = 0;
 #endif
     OUTPUT:
        RETVAL
@@ -2622,7 +2630,8 @@ getcflag(termios_ref)
 #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
        RETVAL = termios_ref->c_cflag;
 #else
-           not_here("getcflag");
+     not_here("getcflag");
+     RETVAL = 0;
 #endif
     OUTPUT:
        RETVAL
@@ -2634,7 +2643,8 @@ getlflag(termios_ref)
 #ifdef I_TERMIOS /* References a termios structure member so ifdef it out. */
        RETVAL = termios_ref->c_lflag;
 #else
-           not_here("getlflag");
+     not_here("getlflag");
+     RETVAL = 0;
 #endif
     OUTPUT:
        RETVAL
@@ -2649,7 +2659,8 @@ getcc(termios_ref, ccix)
            croak("Bad getcc subscript");
        RETVAL = termios_ref->c_cc[ccix];
 #else
-           not_here("getcc");
+     not_here("getcc");
+     RETVAL = 0;
 #endif
     OUTPUT:
        RETVAL
index b867fec..28583a1 100644 (file)
@@ -126,7 +126,7 @@ threadstart(void *arg)
        av_store(av, 0, &sv_no);
        av_store(av, 1, newSVsv(thr->errsv));
        DEBUG_L(PerlIO_printf(PerlIO_stderr(), "%p died: %s\n",
-                             SvPV(thr->errsv, na)));
+                             thr, SvPV(thr->errsv, na)));
     } else {
        DEBUG_L(STMT_START {
            for (i = 1; i <= retval; i++) {
index 1183a83..91ec8af 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2441,7 +2441,7 @@ trim_unixpath(char *fspec, char *wildspec, int opts)
       for (front = end ; front >= base; front--)
          if (*front == '/' && !dirs--) { front++; break; }
     }
-    for (cp1=template,cp2=lcres; *cp1 && cp2 <= lcend + sizeof lcend
+    for (cp1=template,cp2=lcres; *cp1; 
          cp1++,cp2++) *cp2 = _tolower(*cp1);  /* Make lc copy for match */
     if (cp1 != '\0') return 0;  /* Path too long. */
     lcend = cp2;