| 1 | case $PERL_CONFIG_SH in |
| 2 | '') |
| 3 | if test -f config.sh; then TOP=.; |
| 4 | elif test -f ../config.sh; then TOP=..; |
| 5 | elif test -f ../../config.sh; then TOP=../..; |
| 6 | elif test -f ../../../config.sh; then TOP=../../..; |
| 7 | elif test -f ../../../../config.sh; then TOP=../../../..; |
| 8 | else |
| 9 | echo "Can't find config.sh."; exit 1 |
| 10 | fi |
| 11 | . $TOP/config.sh |
| 12 | ;; |
| 13 | esac |
| 14 | : This forces SH files to create target in same directory as SH file. |
| 15 | : This is so that make depend always knows where to find SH derivatives. |
| 16 | case "$0" in |
| 17 | */*) cd `expr X$0 : 'X\(.*\)/'` ;; |
| 18 | esac |
| 19 | |
| 20 | if test -f config_h.SH -a ! -f config.h; then |
| 21 | . ./config_h.SH |
| 22 | CONFIG_H=already-done |
| 23 | fi |
| 24 | |
| 25 | warn='' |
| 26 | |
| 27 | # Add -Wall for the core modules iff gcc and not already -Wall |
| 28 | case "$gccversion" in |
| 29 | '') ;; |
| 30 | Intel*) ;; # The Intel C++ plays gcc on TV but is not really it. |
| 31 | *) case "$ccflags" in |
| 32 | *-Wall*) ;; |
| 33 | *) warn="$warn -Wall" ;; |
| 34 | esac |
| 35 | ;; |
| 36 | esac |
| 37 | |
| 38 | # Create a test source file for testing what options can be fed to |
| 39 | # gcc in this system; include a selection of most common and commonly |
| 40 | # hairy include files. |
| 41 | |
| 42 | cat >_cflags.c <<__EOT__ |
| 43 | #include "EXTERN.h" |
| 44 | #include "perl.h" |
| 45 | /* The stdio.h, errno.h, and setjmp.h should be there in any ANSI C89. */ |
| 46 | #include <stdio.h> |
| 47 | #include <errno.h> |
| 48 | #include <setjmp.h> |
| 49 | /* Just in case the inclusion of perl.h did not |
| 50 | * pull in enough system headers, let's try again. */ |
| 51 | #ifdef I_STDLIB |
| 52 | #include <stdlib.h> |
| 53 | #endif |
| 54 | #ifdef I_STDDEF |
| 55 | #include <stddef.h> |
| 56 | #endif |
| 57 | #ifdef I_STDARG |
| 58 | #include <stdarg.h> |
| 59 | #endif |
| 60 | #ifdef I_LIMITS |
| 61 | #include <limits.h> |
| 62 | #endif |
| 63 | #ifdef I_DIRENT |
| 64 | #include <dirent.h> |
| 65 | #endif |
| 66 | #ifdef I_UNISTD |
| 67 | #include <unistd.h> |
| 68 | #endif |
| 69 | #ifdef I_SYS_TYPES |
| 70 | #include <sys/types.h> |
| 71 | #endif |
| 72 | #ifdef I_SYS_PARAM |
| 73 | #include <sys/param.h> |
| 74 | #endif |
| 75 | #ifdef I_SYS_RESOURCE |
| 76 | #include <sys/resource.h> |
| 77 | #endif |
| 78 | #ifdef I_SYS_SELECT |
| 79 | #include <sys/select.h> |
| 80 | #endif |
| 81 | #if defined(HAS_SOCKET) && !defined(VMS) && !defined(WIN32) /* See perl.h. */ |
| 82 | #include <sys/socket.h> |
| 83 | #endif |
| 84 | #ifdef I_SYS_STAT |
| 85 | #include <sys/stat.h> |
| 86 | #endif |
| 87 | #ifdef I_SYS_TIME |
| 88 | #include <sys/time.h> |
| 89 | #endif |
| 90 | #ifdef I_SYS_TIMES |
| 91 | #include <sys/times.h> |
| 92 | #endif |
| 93 | #ifdef I_SYS_WAIT |
| 94 | #include <sys/wait.h> |
| 95 | #endif |
| 96 | /* The gcc -ansi can cause a lot of noise in Solaris because of: |
| 97 | /usr/include/sys/resource.h:148: warning: 'struct rlimit64' declared inside parameter list |
| 98 | */ |
| 99 | int main(int argc, char *argv[]) { |
| 100 | |
| 101 | /* Add here test code found to be problematic in some gcc platform. */ |
| 102 | |
| 103 | /* Off_t/off_t is a struct in Solaris with largefiles, and with gcc -ansi |
| 104 | * that struct cannot be compared in some gcc releases with a flat |
| 105 | * integer, such as a STRLEN. */ |
| 106 | |
| 107 | IV iv; |
| 108 | Off_t t0a = 2; |
| 109 | STRLEN t0b = 3; |
| 110 | int t0c = t0a == t0b; |
| 111 | |
| 112 | /* In FreeBSD 6.2 (and probably other releases too), with -Duse64bitint, |
| 113 | perl will use atoll(3). However, that declaration is hidden in <stdlib.h> |
| 114 | if we force the compiler to use -std=c89 mode. |
| 115 | */ |
| 116 | iv = Atol("42"); |
| 117 | |
| 118 | return (!t0c && (iv == 42)) ? 0 : -1; /* Try to avoid 'unused' warnings. */ |
| 119 | } |
| 120 | __EOT__ |
| 121 | |
| 122 | stdflags='' |
| 123 | |
| 124 | # Further gcc warning options. Build up a list of options that work. |
| 125 | # Note that some problems may only show up with combinations of options, |
| 126 | # e.g. a warning might show up only with -Wall -ansi, not with either |
| 127 | # one individually. |
| 128 | # TODO: Ponder whether to migrate this back to Configure so hints files can |
| 129 | # tweak it. Also, be paranoid about whether results we've deduced in Configure |
| 130 | # (especially about things like long long, which are not in C89) will still be |
| 131 | # valid if we now add flags like -std=c89. |
| 132 | |
| 133 | case "$gccversion" in |
| 134 | '') ;; |
| 135 | [12]*) ;; # gcc versions 1 (gasp!) and 2 are not good for this. |
| 136 | Intel*) ;; # # Is that you, Intel C++? |
| 137 | *) for opt in -ansi -std=c89 -W -Wextra -Wdeclaration-after-statement -Wendif-labels -Wc++-compat |
| 138 | do |
| 139 | case " $ccflags " in |
| 140 | *" $opt "*) ;; # Skip if already there. |
| 141 | *) rm -f _cflags$_exe |
| 142 | case "`$cc $cflags $warn $stdflags $opt _cflags.c -o _cflags$_exe 2>&1`" in |
| 143 | *"unrecognized"*) ;; |
| 144 | *"implicit declaration"*) ;; # Was something useful hidden? |
| 145 | *"Invalid"*) ;; |
| 146 | *"is valid for C"*) ;; |
| 147 | *) if test -x _cflags$_exe |
| 148 | then |
| 149 | case "$opt" in |
| 150 | -std*) stdflags="$stdflags $opt" ;; |
| 151 | *) warn="$warn $opt" ;; |
| 152 | esac |
| 153 | fi |
| 154 | ;; |
| 155 | esac |
| 156 | ;; |
| 157 | esac |
| 158 | done |
| 159 | ;; |
| 160 | esac |
| 161 | rm -f _cflags.c _cflags$_exe |
| 162 | |
| 163 | case "$gccversion" in |
| 164 | '') ;; |
| 165 | *) |
| 166 | if [ "$gccansipedantic" = "" ]; then |
| 167 | # If we have -Duse64bitint (or equivalent) in effect and the quadtype |
| 168 | # has become 'long long', gcc -pedantic becomes unbearable (moreso |
| 169 | # when combined with -Wall) because long long and LL and %lld|%Ld |
| 170 | # become warn-worthy. So let's drop the -pedantic in that case. |
| 171 | case "$quadtype:$sPRId64" in |
| 172 | "long long"*|*lld*|*Ld*) |
| 173 | ccflags="`echo $ccflags|sed 's/-pedantic/ /'`" |
| 174 | warn="`echo $warn|sed 's/-pedantic/ /'`" |
| 175 | ;; |
| 176 | esac |
| 177 | # Similarly, since 'long long' isn't part of C89, FreeBSD 6.2 headers |
| 178 | # don't declare atoll() under -std=c89, but we need it. In general, |
| 179 | # insisting on -std=c89 is inconsistent with insisting on using |
| 180 | # 'long long'. So drop -std=c89 and -ansi as well if we're using |
| 181 | # 'long long' as our main integral type. |
| 182 | case "$ivtype" in |
| 183 | "long long") |
| 184 | ccflags=`echo $ccflags|sed -e 's/-pedantic/ /' -e 's/-std=c89/ /' -e 's/-ansi/ /'` |
| 185 | warn=`echo $warn|sed -e 's/-pedantic/ /' -e 's/-ansi/ /'` |
| 186 | stdflags=`echo $stdflags|sed -e 's/-std=c89/ /'` |
| 187 | ;; |
| 188 | esac |
| 189 | fi |
| 190 | # Using certain features (like the gcc statement expressions) |
| 191 | # requires knowing whether -pedantic has been specified. |
| 192 | case "$warn$ccflags" in |
| 193 | *-pedantic*) warn="$warn -DPERL_GCC_PEDANTIC" ;; |
| 194 | esac |
| 195 | ;; |
| 196 | esac |
| 197 | |
| 198 | # Code to set any extra flags here. |
| 199 | extra='' |
| 200 | |
| 201 | echo "Extracting cflags (with variable substitutions)" |
| 202 | : This section of the file will have variable substitutions done on it. |
| 203 | : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!. |
| 204 | : Protect any dollar signs and backticks that you do not want interpreted |
| 205 | : by putting a backslash in front. You may delete these comments. |
| 206 | rm -f cflags |
| 207 | $spitshell >cflags <<!GROK!THIS! |
| 208 | $startsh |
| 209 | |
| 210 | # Extra warnings, used e.g. for gcc. |
| 211 | warn="$warn" |
| 212 | # Extra standardness. |
| 213 | stdflags="$stdflags" |
| 214 | # Extra extra. |
| 215 | extra="$extra" |
| 216 | # what do executables look like? |
| 217 | _exe="$_exe" |
| 218 | |
| 219 | !GROK!THIS! |
| 220 | |
| 221 | : In the following dollars and backticks do not need the extra backslash. |
| 222 | $spitshell >>cflags <<'!NO!SUBS!' |
| 223 | case $PERL_CONFIG_SH in |
| 224 | '') |
| 225 | if test -f config.sh; then TOP=.; |
| 226 | elif test -f ../config.sh; then TOP=..; |
| 227 | elif test -f ../../config.sh; then TOP=../..; |
| 228 | elif test -f ../../../config.sh; then TOP=../../..; |
| 229 | elif test -f ../../../../config.sh; then TOP=../../../..; |
| 230 | else |
| 231 | echo "Can't find config.sh."; exit 1 |
| 232 | fi |
| 233 | . $TOP/config.sh |
| 234 | ;; |
| 235 | esac |
| 236 | |
| 237 | : syntax: cflags [optimize=XXX] [file[.suffix]] |
| 238 | : displays the compiler command line for file |
| 239 | |
| 240 | case "X$1" in |
| 241 | Xoptimize=*|X"optimize=*") |
| 242 | eval "$1" |
| 243 | shift |
| 244 | ;; |
| 245 | esac |
| 246 | |
| 247 | also=': ' |
| 248 | case $# in |
| 249 | 1) also='echo 1>&2 " CCCMD = "' |
| 250 | esac |
| 251 | |
| 252 | case $# in |
| 253 | 0) set *.c; echo "The current C flags are:" ;; |
| 254 | esac |
| 255 | |
| 256 | set `echo "$* " | sed -e 's/\.[oc] / /g' -e 's/\.obj / /g' -e "s/\\$obj_ext / /g"` |
| 257 | |
| 258 | for file do |
| 259 | |
| 260 | case "$#" in |
| 261 | 1) ;; |
| 262 | *) echo $n " $file.c $c" ;; |
| 263 | esac |
| 264 | |
| 265 | : allow variables like toke_cflags to be evaluated |
| 266 | |
| 267 | if echo $file | grep -v / >/dev/null |
| 268 | then |
| 269 | eval 'eval ${'"${file}_cflags"'-""}' |
| 270 | fi |
| 271 | |
| 272 | : or customize here |
| 273 | |
| 274 | case "$file" in |
| 275 | DB_File) ;; |
| 276 | GDBM_File) ;; |
| 277 | NDBM_File) ;; |
| 278 | ODBM_File) ;; |
| 279 | POSIX) ;; |
| 280 | SDBM_File) ;; |
| 281 | av) ;; |
| 282 | byterun) ;; |
| 283 | deb) ;; |
| 284 | dl) ;; |
| 285 | doio) ;; |
| 286 | doop) ;; |
| 287 | dump) ;; |
| 288 | globals) ;; |
| 289 | gv) ;; |
| 290 | hv) ;; |
| 291 | locale) ;; |
| 292 | madly) ;; |
| 293 | main) ;; |
| 294 | malloc) ;; |
| 295 | mg) ;; |
| 296 | miniperlmain) ;; |
| 297 | numeric) ;; |
| 298 | op) ;; |
| 299 | opmini) ;; |
| 300 | pad) ;; |
| 301 | perl) ;; |
| 302 | perlapi) ;; |
| 303 | perlmain) ;; |
| 304 | perly) ;; |
| 305 | pp) ;; |
| 306 | pp_ctl) ;; |
| 307 | pp_hot) ;; |
| 308 | pp_pack) ;; |
| 309 | pp_sort) ;; |
| 310 | pp_sys) ;; |
| 311 | regcomp) ;; |
| 312 | regexec) ;; |
| 313 | run) ;; |
| 314 | scope) ;; |
| 315 | sv) ;; |
| 316 | taint) ;; |
| 317 | toke) ;; |
| 318 | universal) ;; |
| 319 | usersub) ;; |
| 320 | utf8) ;; |
| 321 | util) ;; |
| 322 | *) ;; |
| 323 | esac |
| 324 | |
| 325 | case "$cc" in |
| 326 | *g++*) |
| 327 | # Extra paranoia in case people have bad canned ccflags: |
| 328 | # bad in the sense that the flags are accepted by g++, |
| 329 | # but then whined about. |
| 330 | for f in -Wdeclaration-after-statement -std=c89 |
| 331 | do |
| 332 | ccflags=`echo $ccflags|sed 's/$f/ /'` |
| 333 | done |
| 334 | ;; |
| 335 | esac |
| 336 | cppflags=`echo $cppflags|sed 's/-Wdeclaration-after-statement/ /'` |
| 337 | |
| 338 | case "$cc" in |
| 339 | *g++*) |
| 340 | # Without -Wno-unused-variable g++ 4.x compiles are rather unwatchable |
| 341 | # because of all the warnings about Perl___notused, and g++ doesn't do |
| 342 | # __attribute__((unused)) (and even if at some stage it may, people do |
| 343 | # have older gcc installations), and ((void)x) isn't enough to silence |
| 344 | # the noises about XS functions not using their cv parameter, so we need |
| 345 | # the -Wno-unused-parameter too. |
| 346 | # Yes, we lose some valid warnings, but hopefully other compilers |
| 347 | # (like gcc) will still pick up those warnings. |
| 348 | for o in -Wno-unused-variable -Wno-unused-parameter |
| 349 | do |
| 350 | case "$warn" in |
| 351 | *$o*) ;; |
| 352 | *) warn="$warn $o" ;; |
| 353 | esac |
| 354 | done |
| 355 | ;; |
| 356 | esac |
| 357 | |
| 358 | |
| 359 | : Can we perhaps use $ansi2knr here |
| 360 | echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra" |
| 361 | eval "$also "'"$cc -DPERL_CORE -c $ccflags $stdflags $optimize $warn $extra"' |
| 362 | |
| 363 | . $TOP/config.sh |
| 364 | |
| 365 | # end per file behaviour |
| 366 | done |
| 367 | !NO!SUBS! |
| 368 | chmod 755 cflags |
| 369 | $eunicefix cflags |