Commit | Line | Data |
---|---|---|
1f00b0d6 S |
1 | #!/bin/sh |
2 | ||
cb9238a7 | 3 | # Generate the cflags script, which is used to determine what cflags |
ea14a82d JH |
4 | # to pass to the compiler for compiling the core perl. |
5 | # | |
6 | # This does NOT affect the XS compilation (ext, dist, cpan) | |
7 | # since that uses %Config values directly. | |
8 | # | |
9 | # For example, since -Wall adds -Wunused-*, a bare -Wall (without | |
10 | # amending that with -Wno-unused-..., or with the PERL_UNUSED_...) | |
11 | # would be too much for XS code because there are too many generated | |
12 | # but often unused things. | |
13 | # | |
14 | # We create a temporary test C program and repeatedly compile it with | |
cb9238a7 DM |
15 | # various candidate flags, and from the compiler output, determine what |
16 | # flags are supported. | |
ea14a82d | 17 | # |
cb9238a7 DM |
18 | # From this we initialise the following variables in the cflags script: |
19 | # | |
ea14a82d | 20 | # $myccflags (possibly edited version of $Config{ccflags}) |
cb9238a7 DM |
21 | # $warn |
22 | # $stdflags | |
23 | # $extra | |
24 | # $_exe | |
25 | ||
a02608de | 26 | case $PERL_CONFIG_SH in |
1c3d792e | 27 | '') |
a0d0e21e LW |
28 | if test -f config.sh; then TOP=.; |
29 | elif test -f ../config.sh; then TOP=..; | |
30 | elif test -f ../../config.sh; then TOP=../..; | |
31 | elif test -f ../../../config.sh; then TOP=../../..; | |
32 | elif test -f ../../../../config.sh; then TOP=../../../..; | |
33 | else | |
34 | echo "Can't find config.sh."; exit 1 | |
35 | fi | |
36 | . $TOP/config.sh | |
37 | ;; | |
1c3d792e | 38 | esac |
44213caa DM |
39 | # This forces SH files to create target in same directory as SH file. |
40 | # This is so that make depend always knows where to find SH derivatives. | |
1c3d792e LW |
41 | case "$0" in |
42 | */*) cd `expr X$0 : 'X\(.*\)/'` ;; | |
43 | esac | |
bc730b18 | 44 | |
37723ebb | 45 | if test -f config_h.SH -a ! -f config.h; then |
6ef8aa7c | 46 | . ./config_h.SH |
11e2f395 | 47 | CONFIG_H=already-done |
6ef8aa7c RGS |
48 | fi |
49 | ||
bc730b18 JH |
50 | warn='' |
51 | ||
52 | # Add -Wall for the core modules iff gcc and not already -Wall | |
53 | case "$gccversion" in | |
54 | '') ;; | |
55 | Intel*) ;; # The Intel C++ plays gcc on TV but is not really it. | |
56 | *) case "$ccflags" in | |
57 | *-Wall*) ;; | |
58 | *) warn="$warn -Wall" ;; | |
59 | esac | |
60 | ;; | |
61 | esac | |
62 | ||
a07cd53d JH |
63 | # Create a test source file for testing what options can be fed to |
64 | # gcc in this system; include a selection of most common and commonly | |
65 | # hairy include files. | |
66 | ||
67 | cat >_cflags.c <<__EOT__ | |
68 | #include "EXTERN.h" | |
69 | #include "perl.h" | |
70 | /* The stdio.h, errno.h, and setjmp.h should be there in any ANSI C89. */ | |
71 | #include <stdio.h> | |
72 | #include <errno.h> | |
73 | #include <setjmp.h> | |
74 | /* Just in case the inclusion of perl.h did not | |
75 | * pull in enough system headers, let's try again. */ | |
76 | #ifdef I_STDLIB | |
77 | #include <stdlib.h> | |
78 | #endif | |
79 | #ifdef I_STDDEF | |
80 | #include <stddef.h> | |
81 | #endif | |
82 | #ifdef I_STDARG | |
83 | #include <stdarg.h> | |
84 | #endif | |
85 | #ifdef I_LIMITS | |
86 | #include <limits.h> | |
87 | #endif | |
88 | #ifdef I_DIRENT | |
89 | #include <dirent.h> | |
90 | #endif | |
91 | #ifdef I_UNISTD | |
92 | #include <unistd.h> | |
93 | #endif | |
463bdbaf | 94 | #ifdef I_SYS_TYPES |
a07cd53d JH |
95 | #include <sys/types.h> |
96 | #endif | |
463bdbaf | 97 | #ifdef I_SYS_PARAM |
a07cd53d JH |
98 | #include <sys/param.h> |
99 | #endif | |
463bdbaf | 100 | #ifdef I_SYS_RESOURCE |
a07cd53d JH |
101 | #include <sys/resource.h> |
102 | #endif | |
463bdbaf | 103 | #ifdef I_SYS_SELECT |
a07cd53d JH |
104 | #include <sys/select.h> |
105 | #endif | |
106 | #if defined(HAS_SOCKET) && !defined(VMS) && !defined(WIN32) /* See perl.h. */ | |
107 | #include <sys/socket.h> | |
108 | #endif | |
463bdbaf | 109 | #ifdef I_SYS_STAT |
a07cd53d JH |
110 | #include <sys/stat.h> |
111 | #endif | |
463bdbaf | 112 | #ifdef I_SYS_TIME |
a07cd53d JH |
113 | #include <sys/time.h> |
114 | #endif | |
463bdbaf | 115 | #ifdef I_SYS_TIMES |
a07cd53d JH |
116 | #include <sys/times.h> |
117 | #endif | |
463bdbaf | 118 | #ifdef I_SYS_WAIT |
a07cd53d JH |
119 | #include <sys/wait.h> |
120 | #endif | |
121 | /* The gcc -ansi can cause a lot of noise in Solaris because of: | |
122 | /usr/include/sys/resource.h:148: warning: 'struct rlimit64' declared inside parameter list | |
123 | */ | |
124 | int main(int argc, char *argv[]) { | |
125 | ||
126 | /* Add here test code found to be problematic in some gcc platform. */ | |
127 | ||
128 | /* Off_t/off_t is a struct in Solaris with largefiles, and with gcc -ansi | |
129 | * that struct cannot be compared in some gcc releases with a flat | |
130 | * integer, such as a STRLEN. */ | |
131 | ||
215ed6ce | 132 | IV iv; |
a07cd53d JH |
133 | Off_t t0a = 2; |
134 | STRLEN t0b = 3; | |
f049db42 JH |
135 | int t0c = (STRLEN)t0a == t0b; |
136 | ||
137 | printf("%s: %d\n", argv[0], argc); | |
a07cd53d | 138 | |
215ed6ce AD |
139 | /* In FreeBSD 6.2 (and probably other releases too), with -Duse64bitint, |
140 | perl will use atoll(3). However, that declaration is hidden in <stdlib.h> | |
141 | if we force the compiler to use -std=c89 mode. | |
142 | */ | |
143 | iv = Atol("42"); | |
144 | ||
145 | return (!t0c && (iv == 42)) ? 0 : -1; /* Try to avoid 'unused' warnings. */ | |
a07cd53d JH |
146 | } |
147 | __EOT__ | |
148 | ||
149 | stdflags='' | |
bc730b18 | 150 | |
215ed6ce AD |
151 | # Further gcc warning options. Build up a list of options that work. |
152 | # Note that some problems may only show up with combinations of options, | |
153 | # e.g. a warning might show up only with -Wall -ansi, not with either | |
154 | # one individually. | |
813665af | 155 | # TODO: Ponder whether to migrate this back to Configure so hints files can |
215ed6ce | 156 | # tweak it. Also, be paranoid about whether results we've deduced in Configure |
813665af | 157 | # (especially about things like long long, which are not in C89) will still be |
215ed6ce AD |
158 | # valid if we now add flags like -std=c89. |
159 | ||
f049db42 JH |
160 | pedantic='' |
161 | case "$gccansipedantic" in | |
162 | define) pedantic='-pedantic' ;; | |
163 | esac | |
164 | ||
bc730b18 JH |
165 | case "$gccversion" in |
166 | '') ;; | |
a07cd53d JH |
167 | [12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this. |
168 | Intel*) ;; # # Is that you, Intel C++? | |
f049db42 | 169 | # |
0d55a45a JH |
170 | # NOTE 1: the -std=c89 without -pedantic is a bit pointless, |
171 | # so we will not add it here. You will have to use e.g. | |
172 | # Configure -Accflags=-std=c89 | |
173 | # | |
abf4b099 | 174 | # Just -std=c89 means "if there is room for interpretation, |
f049db42 JH |
175 | # interpret the C89 way." It does NOT mean "strict C89" on its own. |
176 | # You need to add the -pedantic for that. To do this with Configure, | |
177 | # do -Dgccansipedantic (note that the -ansi is included in any case, | |
178 | # the option is a bit oddly named, for historical reasons.) | |
179 | # | |
0d55a45a JH |
180 | # Furthermore, -std=c89 disables/hides/makes harder to use certain |
181 | # non-C89 features like long long. | |
182 | # | |
f049db42 JH |
183 | # NOTE 2: -pedantic necessitates adding a couple of flags: |
184 | # * -PERL_GCC_PEDANTIC so that the perl code can adapt: there's nothing | |
185 | # added by gcc itself to indicate pedanticness. | |
186 | # * -Wno-overlength-strings under -DDEBUGGING because quite many of | |
187 | # the LEAVE_with_name() and assert() calls generate string literals | |
188 | # longer then the ANSI minimum of 509 bytes. | |
189 | # | |
190 | # NOTE 3: the relative order of these options matters: | |
191 | # -Wextra before -W, and -pedantic* before -Werror=d-a-s. | |
abf4b099 | 192 | # |
0d55a45a | 193 | *) for opt in -ansi $pedantic \ |
d2d49204 | 194 | -Werror=declaration-after-statement \ |
f049db42 | 195 | -Wextra -W \ |
fae2e960 | 196 | -Wc++-compat -Wwrite-strings |
bc730b18 JH |
197 | do |
198 | case " $ccflags " in | |
a07cd53d JH |
199 | *" $opt "*) ;; # Skip if already there. |
200 | *) rm -f _cflags$_exe | |
f049db42 JH |
201 | flags="-DPERL_NO_INLINE_FUNCTIONS $ccflags $warn $stdflags $opt" |
202 | case "$opt" in | |
203 | *-pedantic*) flags="$flags -DPERL_GCC_PEDANTIC" ;; | |
204 | esac | |
205 | # echo "opt = $opt, flags = $flags" | |
206 | cmd="$cc $flags _cflags.c -o _cflags$_exe" | |
207 | out="`$cmd 2>&1`" | |
208 | # echo "$cmd --> $out" | |
209 | case "$out" in | |
bc730b18 | 210 | *"unrecognized"*) ;; |
d39195d4 | 211 | *"unknown"*) ;; |
215ed6ce | 212 | *"implicit declaration"*) ;; # Was something useful hidden? |
bc730b18 | 213 | *"Invalid"*) ;; |
9ac4c107 | 214 | *"is valid for C"*) ;; |
a07cd53d JH |
215 | *) if test -x _cflags$_exe |
216 | then | |
217 | case "$opt" in | |
be5a9ab8 JH |
218 | -std*) |
219 | echo "cflags.SH: Adding $opt." | |
220 | stdflags="$stdflags $opt" | |
221 | ;; | |
905ccdc7 JH |
222 | *) case "$opt" in |
223 | -W) | |
224 | # -Wextra is the modern form of -W, so add | |
225 | # -W only if -Wextra is not there already. | |
226 | case " $warn " in | |
227 | *-Wextra*) ;; | |
be5a9ab8 JH |
228 | *) |
229 | echo "cflags.SH: Adding $opt." | |
f049db42 | 230 | warn="$warn $opt" |
be5a9ab8 | 231 | ;; |
905ccdc7 JH |
232 | esac |
233 | ;; | |
f049db42 JH |
234 | -Werror=declaration-after-statement) |
235 | # -pedantic* (with -std=c89) covers -Werror=d-a-s. | |
236 | case "$stdflags$warn" in | |
237 | *-std=c89*-pedantic*|*-pedantic*-std=c89*) ;; | |
238 | *) | |
239 | echo "cflags.SH: Adding $opt." | |
240 | warn="$warn $opt" | |
241 | ;; | |
242 | esac | |
243 | ;; | |
be5a9ab8 JH |
244 | *) |
245 | echo "cflags.SH: Adding $opt." | |
246 | warn="$warn $opt" | |
247 | ;; | |
905ccdc7 | 248 | esac |
a07cd53d JH |
249 | esac |
250 | fi | |
251 | ;; | |
bc730b18 JH |
252 | esac |
253 | ;; | |
254 | esac | |
f049db42 JH |
255 | case "$ccflags$warn" in |
256 | *-pedantic*) | |
257 | overlength='' | |
258 | case "$ccflags$optimize" in | |
259 | *-DDEBUGGING*) overlength='-Wno-overlength-strings' ;; | |
260 | esac | |
261 | for opt2 in -DPERL_GCC_PEDANTIC $overlength | |
262 | do | |
263 | case "$ccflags$warn" in | |
264 | *"$opt2"*) ;; | |
265 | *) echo "cflags.SH: Adding $opt2 because of -pedantic." | |
266 | warn="$warn $opt2" ;; | |
267 | esac | |
268 | done | |
269 | ;; | |
270 | esac | |
bc730b18 JH |
271 | done |
272 | ;; | |
273 | esac | |
a07cd53d | 274 | rm -f _cflags.c _cflags$_exe |
bc730b18 | 275 | |
9ac4c107 JH |
276 | case "$gccversion" in |
277 | '') ;; | |
278 | *) | |
f049db42 JH |
279 | case "$warn$ccflags" in |
280 | *-pedantic*) | |
3e8416a3 | 281 | # If we have -Duse64bitint (or equivalent) in effect and the quadtype |
f049db42 JH |
282 | # has become 'long long', gcc -pedantic* becomes unbearable |
283 | # (moreso when combined with -Wall) because long long and LL and %lld|%Ld | |
3e8416a3 | 284 | # become warn-worthy. So let's drop the -pedantic in that case. |
f049db42 | 285 | # |
215ed6ce AD |
286 | # Similarly, since 'long long' isn't part of C89, FreeBSD 6.2 headers |
287 | # don't declare atoll() under -std=c89, but we need it. In general, | |
288 | # insisting on -std=c89 is inconsistent with insisting on using | |
813665af | 289 | # 'long long'. So drop -std=c89 and -ansi as well if we're using |
215ed6ce | 290 | # 'long long' as our main integral type. |
f049db42 JH |
291 | # |
292 | # usedtrace (DTrace) uses unportable features (dollars in identifiers, | |
293 | # and gcc statement expressions), it is just easier to turn off pedantic. | |
294 | remove='' | |
295 | case "$quadtype:$ivtype:$sPRId64:$usedtrace" in | |
296 | *"long long"*|*lld*|*Ld*) remove='long long' ;; | |
297 | *) case "$usedtrace" in | |
298 | define) remove='usedtrace' ;; | |
299 | esac | |
300 | ;; | |
301 | esac | |
302 | case "$remove" in | |
303 | '') ;; | |
304 | *) echo "cflags.SH: Removing -pedantic*, -std=c89, and -ansi because of $remove." | |
305 | ccflags=`echo $ccflags|sed -e 's/-pedantic-errors/ /' -e 's/-pedantic/ /' -e 's/-std=c89/ /' -e 's/-ansi/ /' -e 's/-DPERL_GCC_PEDANTIC/ /'` | |
306 | warn=`echo $warn|sed -e 's/-pedantic-errors/ /' -e 's/-pedantic/ /' -e 's/-ansi/ /' -e 's/-DPERL_GCC_PEDANTIC/ /'` | |
307 | stdflags=`echo $stdflags|sed -e 's/-std=c89/ /'` | |
308 | ;; | |
215ed6ce | 309 | esac |
5bd6d383 JH |
310 | ;; |
311 | esac | |
312 | ;; | |
313 | esac | |
314 | ||
c57c0df9 JH |
315 | # Older clang releases are not wise enough for -Wunused-value. |
316 | case "$gccversion" in | |
317 | *"Apple LLVM "[34]*|*"Apple LLVM version "[34]*) | |
318 | for f in -Wno-unused-value | |
319 | do | |
320 | echo "cflags.SH: Adding $f because clang version '$gccversion'" | |
321 | warn="$warn $f" | |
322 | done | |
323 | ;; | |
324 | esac | |
325 | ||
78e91e3f JH |
326 | # The quadmath Q format specifier will cause -Wformat to whine. |
327 | case "$gccversion" in | |
328 | '') ;; | |
329 | *) case "$usequadmath" in | |
330 | define) | |
331 | for f in -Wno-format | |
332 | do | |
333 | echo "cflags.SH: Adding $f because of usequadmath." | |
334 | warn="$warn $f" | |
335 | done | |
336 | ;; | |
337 | esac | |
338 | ;; | |
339 | esac | |
340 | ||
5bd6d383 JH |
341 | case "$cc" in |
342 | *g++*) | |
343 | # Extra paranoia in case people have bad canned ccflags: | |
344 | # bad in the sense that the flags are accepted by g++, | |
345 | # but then whined about. | |
d2d49204 JH |
346 | # |
347 | # -Werror=d-a-s option is valid for g++, by definition, | |
348 | # but we remove it just for cleanliness and shorter command lines. | |
349 | for f in -Wdeclaration-after-statement \ | |
350 | -Werror=declaration-after-statement \ | |
49c60343 | 351 | -Wc++-compat \ |
d2d49204 | 352 | -std=c89 |
5bd6d383 | 353 | do |
95f0c784 | 354 | case "$ccflags$warn" in |
5bd6d383 | 355 | *"$f"*) |
95f0c784 JH |
356 | echo "cflags.SH: Removing $f because of g++." |
357 | ccflags=`echo $ccflags|sed 's/$f/ /'` | |
358 | warn=`echo $warn|sed 's/$f/ /'` | |
359 | ;; | |
5bd6d383 JH |
360 | esac |
361 | done | |
362 | ;; | |
363 | esac | |
364 | ||
d2d49204 | 365 | for f in -Wdeclaration-after-statement -Werror=declaration-after-statement |
5bd6d383 JH |
366 | do |
367 | case "$cppflags" in | |
368 | *"$f"*) | |
369 | echo "cflags.SH: Removing $f from cppflags." | |
370 | cppflags=`echo $cppflags|sed 's/$f/ /'` ;; | |
371 | esac | |
372 | done | |
373 | ||
f049db42 JH |
374 | echo "cflags.SH: cc = $cc" |
375 | echo "cflags.SH: ccflags = $ccflags" | |
376 | echo "cflags.SH: stdflags = $stdflags" | |
377 | echo "cflags.SH: optimize = $optimize" | |
378 | echo "cflags.SH: warn = $warn" | |
379 | ||
10edeb5d | 380 | # Code to set any extra flags here. |
a07cd53d | 381 | extra='' |
11fcce85 | 382 | |
2b317908 | 383 | echo "Extracting cflags (with variable substitutions)" |
44213caa DM |
384 | # This section of the file will have variable substitutions done on it. |
385 | # Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!. | |
386 | # Protect any dollar signs and backticks that you do not want interpreted | |
387 | # by putting a backslash in front. You may delete these comments. | |
165b7424 | 388 | rm -f cflags |
2b317908 | 389 | $spitshell >cflags <<!GROK!THIS! |
ecfc5424 | 390 | $startsh |
bc730b18 | 391 | |
cb9238a7 DM |
392 | # !!!!!!! DO NOT EDIT THIS FILE !!!!!!! |
393 | ||
394 | # This file is generated by cflags.SH | |
395 | ||
5bd6d383 | 396 | # Used to restore possible edits by cflags.SH. |
57d2761b | 397 | myccflags="$ccflags" |
11fcce85 | 398 | # Extra warnings, used e.g. for gcc. |
bc730b18 | 399 | warn="$warn" |
11fcce85 JH |
400 | # Extra standardness. |
401 | stdflags="$stdflags" | |
b1e55cab JH |
402 | # Extra extra. |
403 | extra="$extra" | |
dcff826f YO |
404 | # what do executables look like? |
405 | _exe="$_exe" | |
bc730b18 | 406 | |
2b317908 LW |
407 | !GROK!THIS! |
408 | ||
44213caa | 409 | # In the following dollars and backticks do not need the extra backslash. |
2b317908 | 410 | $spitshell >>cflags <<'!NO!SUBS!' |
a02608de | 411 | case $PERL_CONFIG_SH in |
2b317908 | 412 | '') |
a0d0e21e LW |
413 | if test -f config.sh; then TOP=.; |
414 | elif test -f ../config.sh; then TOP=..; | |
415 | elif test -f ../../config.sh; then TOP=../..; | |
416 | elif test -f ../../../config.sh; then TOP=../../..; | |
417 | elif test -f ../../../../config.sh; then TOP=../../../..; | |
418 | else | |
419 | echo "Can't find config.sh."; exit 1 | |
420 | fi | |
421 | . $TOP/config.sh | |
57d2761b | 422 | ccflags="$myccflags" # Restore possible edits by cflags.SH. |
a0d0e21e LW |
423 | ;; |
424 | esac | |
425 | ||
ba0f5503 DM |
426 | # syntax: cflags [optimize=XXX] [file[.suffix]] ... |
427 | # displays the proposed compiler command line for each 'file' | |
428 | # | |
429 | # with no file, dispalys it for all *.c files. | |
430 | # The optimise=XXX arg (if present) is evalled, setting the default | |
431 | # value of the $optimise variable, which is output on the command line | |
432 | # (but which may be overridden for specific files below) | |
75550b4e | 433 | |
1167a30e | 434 | case "X$1" in |
26102cc7 | 435 | Xoptimize=*|X"optimize=*") |
1167a30e IZ |
436 | eval "$1" |
437 | shift | |
438 | ;; | |
439 | esac | |
440 | ||
1c3d792e LW |
441 | case $# in |
442 | 0) set *.c; echo "The current C flags are:" ;; | |
1c3d792e | 443 | esac |
2b317908 | 444 | |
578789a7 | 445 | set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"` |
2b317908 | 446 | |
1c3d792e LW |
447 | for file do |
448 | ||
449 | case "$#" in | |
450 | 1) ;; | |
2b317908 | 451 | *) echo $n " $file.c $c" ;; |
1c3d792e LW |
452 | esac |
453 | ||
44213caa | 454 | # allow variables like toke_cflags to be evaluated |
2b317908 | 455 | |
8736538c AS |
456 | if echo $file | grep -v / >/dev/null |
457 | then | |
458 | eval 'eval ${'"${file}_cflags"'-""}' | |
459 | fi | |
2b317908 | 460 | |
44213caa | 461 | # or customize here |
2b317908 | 462 | |
1c3d792e | 463 | case "$file" in |
1197364c NT |
464 | regcomp) : work around http://bugs.debian.org/754054 |
465 | case $archname in | |
466 | mips-*|mipsel-*) | |
467 | optimize="$optimize -fno-tree-vrp";; | |
468 | esac;; | |
1c3d792e | 469 | *) ;; |
5729ffdd | 470 | |
5bd6d383 JH |
471 | # Customization examples follow. |
472 | # | |
473 | # The examples are intentionally unreachable as the '*)' case above always | |
44213caa DM |
474 | # matches. To use them, move before the '*)' and edit as appropriate. |
475 | # It is not a good idea to set ccflags to an absolute value here, as it | |
476 | # often contains general -D defines which are needed for correct | |
477 | # compilation. It is better to edit ccflags as shown, using interpolation | |
478 | # to add flags, or sed to remove flags. | |
5729ffdd | 479 | |
5bd6d383 JH |
480 | av) ccflags=`echo $ccflags | sed -e s/-pipe//` ;; |
481 | deb) ccflags="$ccflags -fno-jump-tables" ;; | |
482 | hv) warn=`echo $warn | sed -e s/-Wextra//` ;; | |
483 | toke) optimize=-O0 ;; | |
7e827271 | 484 | esac |
666ea192 | 485 | |
44213caa | 486 | # Can we perhaps use $ansi2knr here |
b1e55cab | 487 | echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra" |
2b317908 | 488 | |
a0d0e21e | 489 | . $TOP/config.sh |
2b317908 | 490 | |
a7d59441 | 491 | # end per file behaviour |
1c3d792e | 492 | done |
2b317908 | 493 | !NO!SUBS! |
a0d0e21e | 494 | chmod 755 cflags |
2b317908 | 495 | $eunicefix cflags |