summaryrefslogtreecommitdiff
path: root/perlio.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-05-29 05:01:54 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-05-29 05:01:54 +0000
commit17c3b45099488fbc22dc1d4e0e4600c17bc12645 (patch)
treed3f866944ed1ba0c3b916fa245466d83f4e77fe8 /perlio.c
parent1d2dff63f533f62282a700198c67c41dcb6ad6df (diff)
downloadperl-17c3b45099488fbc22dc1d4e0e4600c17bc12645.tar.gz
[win32] misc changes
- remove code that works around lack of I_STDARG (we're a happy ANSI family) - leave dump_foo() stubs when not -DDEBUGGING for consistent symbol exports p4raw-id: //depot/win32/perl@1053
Diffstat (limited to 'perlio.c')
-rw-r--r--perlio.c35
1 files changed, 1 insertions, 34 deletions
diff --git a/perlio.c b/perlio.c
index 2ddc3f12d0..c293f540b6 100644
--- a/perlio.c
+++ b/perlio.c
@@ -76,7 +76,7 @@ PerlIO_init()
sfset(sfstdout,SF_SHARE,0);
}
-#else
+#else /* USE_SFIO */
/* Implement all the PerlIO interface using stdio.
- this should be only file to include <stdio.h>
@@ -445,22 +445,11 @@ PerlIO *f;
#undef PerlIO_printf
int
-#ifdef I_STDARG
PerlIO_printf(PerlIO *f,const char *fmt,...)
-#else
-PerlIO_printf(f,fmt,va_alist)
-PerlIO *f;
-const char *fmt;
-va_dcl
-#endif
{
va_list ap;
int result;
-#ifdef I_STDARG
va_start(ap,fmt);
-#else
- va_start(ap);
-#endif
result = vfprintf(f,fmt,ap);
va_end(ap);
return result;
@@ -468,21 +457,11 @@ va_dcl
#undef PerlIO_stdoutf
int
-#ifdef I_STDARG
PerlIO_stdoutf(const char *fmt,...)
-#else
-PerlIO_stdoutf(fmt, va_alist)
-const char *fmt;
-va_dcl
-#endif
{
va_list ap;
int result;
-#ifdef I_STDARG
va_start(ap,fmt);
-#else
- va_start(ap);
-#endif
result = PerlIO_vprintf(PerlIO_stdout(),fmt,ap);
va_end(ap);
return result;
@@ -627,23 +606,11 @@ PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
#ifndef PerlIO_sprintf
int
-#ifdef I_STDARG
PerlIO_sprintf(char *s, int n, const char *fmt,...)
-#else
-PerlIO_sprintf(s, n, fmt, va_alist)
-char *s;
-int n;
-const char *fmt;
-va_dcl
-#endif
{
va_list ap;
int result;
-#ifdef I_STDARG
va_start(ap,fmt);
-#else
- va_start(ap);
-#endif
result = PerlIO_vsprintf(s, n, fmt, ap);
va_end(ap);
return result;