This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't attempt to define or use STANDARD_C
authorAaron Crane <arc@cpan.org>
Sat, 14 Oct 2017 12:43:38 +0000 (14:43 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:53:13 +0000 (16:53 +0100)
We rely on a C89 implementation anyway.

Makefile.micro
ext/SDBM_File/sdbm.h
hints/irix_4.sh
perl.c
perl.h
pod/perlembed.pod
win32/win32.h

index a697e16..e1e56b8 100644 (file)
@@ -1,7 +1,6 @@
 LD = $(CC)
 CCFLAGS = -c
-DEFINES = -DPERL_CORE -DPERL_MICRO -DSTANDARD_C -DPERL_USE_SAFE_PUTENV \
-         -DNO_MATHOMS
+DEFINES = -DPERL_CORE -DPERL_MICRO -DPERL_USE_SAFE_PUTENV -DNO_MATHOMS
 OPTIMIZE = 
 CFLAGS = $(DEFINES) $(OPTIMIZE)
 LDFLAGS = 
index cfb4552..ba001cf 100644 (file)
@@ -111,10 +111,6 @@ extern long sdbm_hash(const char *, int);
 #   endif
 #endif
 
-#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus)
-# define STANDARD_C 1
-#endif
-
 #include <stdio.h>
 #include <ctype.h>
 #include <setjmp.h>
index 5c5bdb2..26c2948 100644 (file)
@@ -19,7 +19,7 @@ esac
 #
 cat <<'EOM' >&4
 If you have problems, you might have try including
-       -DSTANDARD_C -cckr 
+       -cckr
 in ccflags.
 EOM
 
diff --git a/perl.c b/perl.c
index 0687421..96eaa98 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -62,10 +62,6 @@ union control_un {
 #  endif
 #endif
 
-#if !defined(STANDARD_C) && !defined(HAS_GETENV_PROTOTYPE) && !defined(PERL_MICRO)
-char *getenv (char *); /* Usually in <stdlib.h> */
-#endif
-
 static I32 read_e_script(pTHX_ int idx, SV *buf_sv, int maxlen);
 
 #ifdef SETUID_SCRIPTS_ARE_SECURE_NOW
diff --git a/perl.h b/perl.h
index 024b534..dca428b 100644 (file)
--- a/perl.h
+++ b/perl.h
 #define DOSISH 1
 #endif
 
-#if defined(__STDC__) || defined(_AIX) || defined(__stdc__) || defined(__cplusplus) || defined(NETWARE) || defined(__SYMBIAN32__)
-# define STANDARD_C 1
-#endif
-
 #if defined(__cplusplus) || defined(WIN32) || defined(__sgi) || defined(__EMX__) || defined(__QNX__) || defined(NETWARE) || defined(PERL_MICRO)
 # define DONT_DECLARE_STD 1
 #endif
@@ -4020,17 +4016,6 @@ double atof (const char*);
 #endif
 #endif
 
-#ifndef STANDARD_C
-/* All of these are in stdlib.h or time.h for ANSI C */
-Time_t time();
-struct tm *gmtime(), *localtime();
-#if defined(OEMVS)
-char *(strcpy)(), *(strcat)();
-#else
-char *strcpy(), *strcat();
-#endif
-#endif /* ! STANDARD_C */
-
 
 #ifdef I_MATH
 #    include <math.h>
index 70f8e0d..df7d0d1 100644 (file)
@@ -128,7 +128,7 @@ L</Adding a Perl interpreter to your C program>, on my Linux box:
 (That's all one line.)  On my DEC Alpha running old 5.003_05, the
 incantation is a bit different:
 
-    % cc -O2 -Olimit 2900 -DSTANDARD_C -I/usr/local/include
+    % cc -O2 -Olimit 2900 -I/usr/local/include
     -I/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE
     -L/usr/local/lib/perl5/alpha-dec_osf/5.00305/CORE -L/usr/local/lib
     -D__LANGUAGE_C__ -D_NO_PROTO -o interp interp.c -lperl -lm
index 6de9c9b..cdfadfe 100644 (file)
@@ -199,7 +199,6 @@ struct utsname {
 #endif
 #endif
 
-#define  STANDARD_C    1
 #define  DOSISH                1               /* no escaping our roots */
 #define  OP_BINARY     O_BINARY        /* mistake in in pp_sys.c? */