This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
IRIX 64-bitness fixes.
[metaconfig.git] / U / modified / voidflags.U
CommitLineData
959f3c4c
JH
1?RCS: $Id: voidflags.U,v 3.0.1.2 1997/02/28 16:27:58 ram Exp $
2?RCS:
3?RCS: Copyright (c) 1991-1993, Raphael Manfredi
4?RCS:
5?RCS: You may redistribute only under the terms of the Artistic Licence,
6?RCS: as specified in the README file that comes with the distribution.
7?RCS: You may reuse parts of this distribution only within the terms of
8?RCS: that same Artistic Licence; a copy of which may be found at the root
9?RCS: of the source tree for dist 3.0.
10?RCS:
11?RCS: $Log: voidflags.U,v $
12?RCS: Revision 3.0.1.2 1997/02/28 16:27:58 ram
13?RCS: patch61: don't prompt them if the void support is high enough for us
14?RCS:
15?RCS: Revision 3.0.1.1 1995/01/11 15:37:44 ram
16?RCS: patch45: cosmetic change to avoid spurious blank lines when using -s
17?RCS:
18?RCS: Revision 3.0 1993/08/18 12:10:01 ram
19?RCS: Baseline for dist 3.0 netwide release.
20?RCS:
21?MAKE:voidflags defvoidused: cat rm contains +cc +ccflags package \
22 Oldconfig Myread
23?MAKE: -pick add $@ %<
24?S:voidflags:
25?S: This variable contains the eventual value of the VOIDFLAGS symbol,
26?S: which indicates how much support of the void type is given by this
27?S: compiler. See VOIDFLAGS for more info.
28?S:.
29?S:defvoidused:
30?S: This variable contains the default value of the VOIDUSED symbol (15).
31?S:.
32?X: Exceptionally, we have to explicitely alias the symbol name for
33?X: config_h.SH, otherwise the comment would not appear.
34?C:VOIDFLAGS ~ %<:
35?C: This symbol indicates how much support of the void type is given by this
36?C: compiler. What various bits mean:
37?C:
38?C: 1 = supports declaration of void
39?C: 2 = supports arrays of pointers to functions returning void
40?C: 4 = supports comparisons between pointers to void functions and
41?C: addresses of void functions
42?C: 8 = suports declaration of generic void pointers
43?C:
44?C: The package designer should define VOIDUSED to indicate the requirements
45?C: of the package. This can be done either by #defining VOIDUSED before
46?C: including config.h, or by defining defvoidused in Myinit.U. If the
47?C: latter approach is taken, only those flags will be tested. If the
48?C: level of void support necessary is not present, defines void to int.
49?C:.
50?H:?%<:#ifndef VOIDUSED
51?H:?%<:#define VOIDUSED $defvoidused
52?H:?%<:#endif
53?H:?%<:#define VOIDFLAGS $voidflags
54?H:?%<:#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
55?H:?%<:#define void int /* is void to be avoided? */
56?H:?%<:#define M_VOID /* Xenix strikes again */
57?H:?%<:#endif
58?H:.
59?W:%<:void
60?INIT:: full support for void wanted by default
61?INIT:defvoidused=15
62?INIT:
63?LINT:describe defvoidused
64?LINT:known void M_VOID VOIDUSED
65: check for void type
66echo " "
67echo "Checking to see how well your C compiler groks the void type..." >&4
68case "$voidflags" in
69'')
70 $cat >try.c <<'EOCP'
71#if TRY & 1
72void sub() {
73#else
74sub() {
75#endif
76 extern void moo(); /* function returning void */
77 void (*goo)(); /* ptr to func returning void */
78#if TRY & 8
79 void *hue; /* generic ptr */
80#endif
81#if TRY & 2
82 void (*foo[10])();
83#endif
84
85#if TRY & 4
86 if(goo == moo) {
87 exit(0);
88 }
89#endif
90 exit(0);
91}
92int main() { sub(); }
93EOCP
94?X: This unit used to use cc -S in those tests to try to speed up things, but
95?X: unfortunately, AIX 3.2 does not support this option.
96 if $cc $ccflags -c -DTRY=$defvoidused try.c >.out 2>&1 ; then
97 voidflags=$defvoidused
98 echo "Good. It appears to support void to the level $package wants.">&4
99 if $contains warning .out >/dev/null 2>&1; then
100 echo "However, you might get some warnings that look like this:"
101 $cat .out
102 fi
103 else
104echo "Hmm, your compiler has some difficulty with void. Checking further..." >&4
105 if $cc $ccflags -c -DTRY=1 try.c >/dev/null 2>&1; then
106 echo "It supports 1..."
107 if $cc $ccflags -c -DTRY=3 try.c >/dev/null 2>&1; then
108 echo "It also supports 2..."
109 if $cc $ccflags -c -DTRY=7 try.c >/dev/null 2>&1; then
110 voidflags=7
111 echo "And it supports 4 but not 8 definitely."
112 else
113 echo "It doesn't support 4..."
114 if $cc $ccflags -c -DTRY=11 try.c >/dev/null 2>&1; then
115 voidflags=11
116 echo "But it supports 8."
117 else
118 voidflags=3
119 echo "Neither does it support 8."
120 fi
121 fi
122 else
123 echo "It does not support 2..."
124 if $cc $ccflags -c -DTRY=13 try.c >/dev/null 2>&1; then
125 voidflags=13
126 echo "But it supports 4 and 8."
127 else
128 if $cc $ccflags -c -DTRY=5 try.c >/dev/null 2>&1; then
129 voidflags=5
130 echo "And it supports 4 but has not heard about 8."
131 else
132 echo "However it supports 8 but not 4."
133 fi
134 fi
135 fi
136 else
137 echo "There is no support at all for void."
138 voidflags=0
139 fi
140 fi
141esac
142?X: Only prompt user if support does not match the level we want
143case "$voidflags" in
144"$defvoidused") ;;
145*) $cat >&4 <<'EOM'
146 Support flag bits are:
147 1: basic void declarations.
148 2: arrays of pointers to functions returning void.
149 4: operations between pointers to and addresses of void functions.
150 8: generic void pointers.
151EOM
152 dflt="$voidflags";
153 rp="Your void support flags add up to what?"
154 . ./myread
155 voidflags="$ans"
156 ;;
157esac
158$rm -f try.* .out
159