From: Hans Mulder <hansmu@xs4all.nl>
Date: Wed, 18 Mar 1998 09:36:32 +0000 (-0800)
Subject: 5.004_63 picky compiler fixes [PATCH]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=640cc98602a3b588e5db3488f51ab69f380b72f1;p=p5sagit%2Fp5-mst-13.2.git

5.004_63 picky compiler fixes [PATCH]
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
---

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 8807d68..817ef11 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -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
diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index b867fec..28583a1 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -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++) {
diff --git a/vms/vms.c b/vms/vms.c
index 1183a83..91ec8af 100644
--- 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;