diff options
| author | Hans Mulder <hansmu@xs4all.nl> | 1998-03-18 01:36:32 -0800 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-04-02 14:26:52 +0000 |
| commit | 640cc98602a3b588e5db3488f51ab69f380b72f1 (patch) | |
| tree | f89f87e984c483b7a31135246573880b389cb926 | |
| parent | c6ed36e16dcdd4c25349e4f9d5c84061095ccffb (diff) | |
| download | perl-640cc98602a3b588e5db3488f51ab69f380b72f1.tar.gz | |
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
| -rw-r--r-- | ext/POSIX/POSIX.xs | 23 | ||||
| -rw-r--r-- | ext/Thread/Thread.xs | 2 | ||||
| -rw-r--r-- | vms/vms.c | 2 |
3 files changed, 19 insertions, 8 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 8807d68189..817ef1130b 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 b867fec72b..28583a19bd 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++) { @@ -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; |