This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ANSI-C headers in test snippets to please g++ (and the rest)
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 31 Jul 2006 23:44:55 +0000 (02:44 +0300)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Tue, 1 Aug 2006 08:43:21 +0000 (08:43 +0000)
Subject: [PATCH]  (back) towards g++ compilation (in Tru64, and elsewhere)
Message-ID: <44CE6BC7.8060805@iki.fi>

p4raw-id: //depot/metaconfig@28636

U/compline/d_casti32.U
U/compline/d_castneg.U
U/compline/nblock_io.U
U/perl/d_fcntl_can_lock.U
U/perl/d_u32align.U
U/perl/perlxv.U
U/perl/selectminbits.U

index f1b325b..9c94dea 100644 (file)
@@ -53,7 +53,7 @@ $cat >try.c <<EOCP
 #endif
 #include <sys/types.h>
 #include <signal.h>
-$signal_t blech(s) int s; { exit(3); }
+$signal_t blech(int s) { exit(3); }
 int main()
 {
        $xxx i32;
index 6b59361..8093bf0 100644 (file)
@@ -64,11 +64,11 @@ $cat >try.c <<EOCP
 #endif
 #include <sys/types.h>
 #include <signal.h>
-$signal_t blech(s) int s; { exit(7); }
-$signal_t blech_in_list(s) int s; { exit(4); }
-unsigned long dummy_long(p) unsigned long p; { return p; }
-unsigned int dummy_int(p) unsigned int p; { return p; }
-unsigned short dummy_short(p) unsigned short p; { return p; }
+$signal_t blech(int s) { exit(7); }
+$signal_t blech_in_list(int s) { exit(4); }
+unsigned long dummy_long(unsigned long p) { return p; }
+unsigned int dummy_int(unsigned int p) { return p; }
+unsigned short dummy_short(unsigned short p) { return p; }
 int main()
 {
        double f;
index e4b4781..269796c 100644 (file)
@@ -166,7 +166,7 @@ extern int errno;
 #else
 #include <strings.h>
 #endif
-$signal_t blech(x) int x; { exit(3); }
+$signal_t blech(int x) { exit(3); }
 EOCP
        $cat >> try.c <<'EOCP'
 int main()
index e77a3af..25d2d3d 100644 (file)
@@ -34,7 +34,7 @@ $cat >try.c <<EOCP
 #include <unistd.h>
 #include <fcntl.h>
 #include <signal.h>
-$signal_t blech(x) int x; { exit(3); }
+$signal_t blech(int x) { exit(3); }
 int main() {
 #if defined(F_SETLK) && defined(F_SETLKW)
      struct flock flock;
index 3237a9b..6a47c91 100644 (file)
@@ -39,7 +39,7 @@ case "$d_u32align" in
 #define U8 $u8type
 #include <signal.h>
 #ifdef SIGBUS
-$signal_t bletch(s) int s; { exit(4); }
+$signal_t bletch(int s) { exit(4); }
 #endif
 int main() {
 #if BYTEORDER == 0x1234 || BYTEORDER == 0x4321
index 376f923..4fdbd5e 100644 (file)
@@ -409,7 +409,7 @@ $cat <<EOP >try.c
 #include <signal.h>
 #ifdef SIGFPE
 $volatile int bletched = 0;
-$signal_t blech(s) int s; { bletched = 1; }
+$signal_t blech(int s) { bletched = 1; }
 #endif
 int main() {
     $uvtype u = 0;
@@ -481,7 +481,7 @@ $cat <<EOP >try.c
 #include <signal.h>
 #ifdef SIGFPE
 $volatile int bletched = 0;
-$signal_t blech(s) int s; { bletched = 1; }
+$signal_t blech(int s) { bletched = 1; }
 #endif
 
 int checkit($nvtype d, char *where) {
index a1252c8..55fb003 100644 (file)
@@ -75,7 +75,7 @@ $selecttype b;
 #define NBYTES (S * 8 > MINBITS ? S : MINBITS/8)
 #define NBITS  (NBYTES * 8)
 int main() {
-    char *s = malloc(NBYTES);
+    char *s = (char *)malloc(NBYTES);
     struct timeval t;
     int i;
     FILE* fp;