1# hints/dec_osf.sh 2 3# * If you want to debug perl or want to send a 4# stack trace for inclusion into an bug report, call 5# Configure with the additional argument -Doptimize=-g2 6# or uncomment this assignment to "optimize": 7# 8#optimize=-g2 9# 10# If you want both to optimise and debug with the DEC cc 11# you must have -g3, e.g. "-O4 -g3", and (re)run Configure. 12# 13# * gcc can always have both -g and optimisation on. 14# 15# * debugging optimised code, no matter what compiler 16# one is using, can be surprising and confusing because of 17# the optimisation tricks like code motion, code removal, 18# loop unrolling, and inlining. The source code and the 19# executable code simply do not agree any more while in 20# mid-execution, the optimiser only cares about the results. 21# 22# * Configure will automatically add the often quoted 23# -DDEBUGGING for you if the -g is specified. 24# 25# * There is even more optimisation available in the new 26# (GEM) DEC cc: -O5 and -fast. "man cc" will tell more about them. 27# The jury is still out whether either or neither help for Perl 28# and how much. Based on very quick testing, -fast boosts 29# raw data copy by about 5-15% (-fast brings in, among other 30# things, inlined, ahem, fast memcpy()), while on the other 31# hand searching things (index, m//, s///), seems to get slower. 32# Your mileage will vary. 33# 34# * The -std is needed because the following compiled 35# without the -std and linked with -lm 36# 37# #include <math.h> 38# #include <stdio.h> 39# int main(){short x=10,y=sqrt(x);printf("%d\n",y);} 40# 41# will in Digital UNIX 3.* and 4.0b print 0 -- and in Digital 42# UNIX 4.0{,a} dump core: Floating point exception in the printf(), 43# the y has become a signaling NaN. 44# 45# * Compilation warnings like: 46# 47# "Undefined the ANSI standard macro ..." 48# 49# can be ignored, at least while compiling the POSIX extension 50# and especially if using the sfio (the latter is not a standard 51# part of Perl, never mind if it says little to you). 52# 53 54# If using the DEC compiler we must find out the DEC compiler style: 55# the style changed between Digital UNIX (aka DEC OSF/1) 3 and 56# Digital UNIX 4. The old compiler was originally from Ultrix and 57# the MIPS company, the new compiler is originally from the VAX world 58# and it is called GEM. Many of the options we are going to use depend 59# on the compiler style. 60 61cc=${cc:-cc} 62 63# Intentional leading tabs. 64 myosvers="`/usr/sbin/sizer -v 2>/dev/null || uname -r`" 65 unamer="`uname -r`" 66 67# Fancy compiler suites use optimising linker as well as compiler. 68# <spider@Orb.Nashua.NH.US> 69case "$unamer" in 70*[123].*) # old loader 71 lddlflags="$lddlflags -O3" 72 ;; 73*) if $test "X$optimize" = "X$undef"; then 74 lddlflags="$lddlflags -msym" 75 else 76 case "$myosvers" in 77 *4.0D*) 78 # QAR 56761: -O4 + .so may produce broken code, 79 # fixed in 4.0E or better. 80 ;; 81 *) 82 lddlflags="$lddlflags $optimize" 83 ;; 84 esac 85 # -msym: If using a sufficiently recent /sbin/loader, 86 # keep the module symbols with the modules. 87 lddlflags="$lddlflags -msym $_lddlflags_strict_ansi" 88 fi 89 ;; 90esac 91# Yes, the above loses if gcc does not use the system linker. 92# If that happens, let me know about it. <jhi@iki.fi> 93 94# Because there is no other handy way to recognize 3.X. 95case "$unamer" in 96*3.*) ccflags="$ccflags -DDEC_OSF1_3_X" ;; 97esac 98 99case "`$cc -v 2>&1 | grep cc`" in 100*gcc*) isgcc=gcc ;; 101esac 102 103# do NOT, I repeat, *NOT* take away the leading tabs 104# Configure Black Magic (TM) 105 # reset 106 _DEC_cc_style= 107case "$isgcc" in 108gcc) if [ "X$gccversion" = "X" ]; then 109 # Done too late in Configure if hinted 110 gccversion=`$cc -dumpversion` 111 fi 112 set $gccversion 113 if test "$1" -lt 2 -o \( "$1" -eq 2 -a \( "$2" -lt 95 -o \( "$2" -eq 95 -a "$3" -lt 3 \) \) \); then 114 cat >&4 <<EOF 115 116*** Your cc seems to be gcc and its version ($gccversion) seems to be 117*** less than 2.95.3. This is not a good idea since old versions of gcc 118*** are known to produce buggy code when compiling Perl (and no doubt for 119*** other programs, too). 120*** 121*** Therefore, I strongly suggest upgrading your gcc. (Why don't you use 122*** the vendor cc is also a good question. It comes with the operating 123*** system, produces good code, and is very ANSI C fastidious.) 124 125Cannot continue, aborting. 126 127EOF 128 exit 1 129 fi 130 if test "$1" -eq 2 -a "$2" -eq 95 -a "$3" -le 2; then 131 cat >&4 <<EOF 132 133*** Note that as of gcc 2.95.2 (19991024) and Perl 5.6.0 (March 2000) 134*** if the said Perl is compiled with the said gcc the lib/sdbm test 135*** may dump core (meaning that the SDBM_File extension is unusable). 136*** As this core dump never happens with the vendor cc, this is most 137*** probably a lingering bug in gcc. Therefore unless you have a better 138*** gcc installation you are still better off using the vendor cc. 139 140Since you explicitly chose gcc, I assume that you know what are doing. 141 142EOF 143 fi 144 # -ansi is fine for gcc in Tru64 (-ansi is not universally so). 145 _ccflags_strict_ansi="-ansi" 146 ;; 147*) # compile something. 148 cat >try.c <<EOF 149int main() { return 0; } 150EOF 151 ccversion=`cc -V | awk '/(Compaq|DEC) C/ {print $3}' | grep '^V'` 152 # the main point is the '-v' flag of 'cc'. 153 case "`cc -v -c try.c 2>&1`" in 154 */gemc_cc*) # we have the new DEC GEM CC 155 _DEC_cc_style=new 156 ;; 157 *) # we have the old MIPS CC 158 _DEC_cc_style=old 159 ;; 160 esac 161 # We need to figure out whether -c99 is a valid flag to use. 162 # If it is, we can use it for being nauseatingly C99 ANSI -- 163 # but even then the lddlflags needs to stay -std1. 164 # If it is not, we must use -std1 for both flags. 165 # 166 case "`cc -c99 try.c 2>&1`" in 167 *"-c99: Unknown flag"*) 168 _ccflags_strict_ansi="-std1" 169 ;; 170 *) # However, use the -c99 only if compiling for 171 # -DPERL_MEM_LOG, where the C99 feature __func__ 172 # is useful to have. Otherwise use the good old 173 # -std1 so that we stay C89 strict, which the goal 174 # of the Perl C code base (no //, no code between 175 # declarations, etc). Moreover, the Tru64 cc is 176 # not fully C99, and most probably never will be. 177 # 178 # The -DPERL_MEM_LOG can be either in ccflags 179 # (if using an old config.sh) or in the command line 180 # (which has been stowed away in UU/cmdline.opt). 181 # 182 case "$ccflags `cat UU/cmdline.opt`" in 183 *-DPERL_MEM_LOG*) _ccflags_strict_ansi="-c99" ;; 184 *) _ccflags_strict_ansi="-std1" ;; 185 esac 186 ;; 187 esac 188 _lddlflags_strict_ansi="-std1" 189 # -no_ansi_alias because Perl code is not that strict 190 # (also gcc uses by default -fno-strict-aliasing). 191 case "$unamer" in 192 *[1234].*) ;; 193 *5.*) _ccflags_strict_ansi="$_ccflags_strict_ansi -no_ansi_alias" ;; 194 esac 195 # Cleanup. 196 rm -f try.c try.o 197 ;; 198esac 199 200# Be nauseatingly ANSI 201ccflags="$ccflags $_ccflags_strict_ansi" 202 203# g++ needs a lot of definitions to see the same set of 204# prototypes from <unistd.h> et alia as cxx/cc see. 205# Note that we cannot define _XOPEN_SOURCE_EXTENDED or 206# its moral equivalent, _XOPEN_SOURCE=500 (which would 207# define a lot of the required prototypes for us), because 208# the gcc-processed version of <sys/wait.h> contains fatally 209# conflicting prototypes for wait3(). The _SOCKADDR_LEN is 210# needed to get struct sockaddr and struct sockaddr_in to align. 211case "$cc" in 212*g++*) ccflags="$ccflags -D_XOPEN_SOURCE -D_OSF_SOURCE -D_AES_SOURCE -D_BSD -D_POSIX_C_SOURCE=199309L -D_POSIX_PII_SOCKET -D_SOCKADDR_LEN" ;; 213esac 214 215# for gcc the Configure knows about the -fpic: 216# position-independent code for dynamic loading 217 218# we want optimisation 219 220case "$optimize" in 221'') case "$isgcc" in 222 gcc) optimize='-O3' ;; 223 *) case "$_DEC_cc_style" in 224 new) optimize='-O4' ;; 225 old) optimize='-O2 -Olimit 3200' ;; 226 esac 227 ccflags="$ccflags -D_INTRINSICS" 228 ;; 229 esac 230 ;; 231esac 232 233case "$isgcc" in 234gcc) ;; 235*) case "$optimize" in 236 *-O*) # With both -O and -g, the -g must be -g3. 237 optimize="`echo $optimize | sed 's/-g[1-4]*/-g3/'`" 238 ;; 239 esac 240 ;; 241esac 242 243## Optimization limits 244case "$isgcc" in 245gcc) # gcc 3.2.1 wants a lot of memory for -O3'ing toke.c 246cat >try.c <<EOF 247#include <stdio.h> 248#include <sys/resource.h> 249 250int main () 251{ 252 struct rlimit rl; 253 int i = getrlimit (RLIMIT_DATA, &rl); 254 printf ("%d\n", rl.rlim_cur / (1024 * 1024)); 255 } /* main */ 256EOF 257$cc -o try $ccflags $ldflags try.c 258 maxdsiz=`./try` 259rm -f try try.c core 260if [ $maxdsiz -lt 256 ]; then 261 # less than 256 MB is probably not enough to optimize toke.c with gcc -O3 262 cat <<EOM >&4 263 264Your process datasize is limited to $maxdsiz MB, which is (sadly) not 265always enough to fully optimize some source code files of Perl, 266at least 256 MB seems to be necessary as of Perl 5.8.0. I'll try to 267use a lower optimization level for those parts. You could either try 268using your shell's ulimit/limit/limits command to raise your datasize 269(assuming the system-wide hard resource limits allow you to go higher), 270or if you can't go higher and if you are a sysadmin, and you *do* want 271the full optimization, you can tune the 'max_per_proc_data_size' 272kernel parameter: see man sysconfigtab, and man sys_attrs_proc. 273 274EOM 275toke_cflags='optimize=-O2' 276 fi 277;; 278esac 279 280# The patch 23787 281# http://public.activestate.com/cgi-bin/perlbrowse?patch=23787 282# broke things for gcc (at least gcc 3.3) so that many of the pack() 283# checksum tests for formats L, j, J, especially when combined 284# with the < and > specifiers, started to fail if compiled with plain -O3. 285case "$isgcc" in 286gcc) 287pp_pack_cflags='optimize="-O3 -fno-cse-skip-blocks"' 288;; 289esac 290 291# we want dynamic fp rounding mode, and we want ieee exception semantics 292case "$isgcc" in 293gcc) ccflags="$ccflags -mfp-rounding-mode=d -mieee" ;; 294*) case "$_DEC_cc_style" in 295 new) ccflags="$ccflags -fprm d -ieee" ;; 296 esac 297 ;; 298esac 299 300# Make glibpth agree with the compiler suite. Note that /shlib 301# is not here. That's on purpose. Even though that's where libc 302# really lives from V4.0 on, the linker (and /sbin/loader) won't 303# look there by default. The sharable /sbin utilities were all 304# built with "-Wl,-rpath,/shlib" to get around that. This makes 305# no attempt to figure out the additional location(s) searched by 306# gcc, since not all versions of gcc are easily coerced into 307# revealing that information. 308glibpth="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc" 309glibpth="$glibpth /usr/lib /usr/local/lib /var/shlib" 310 311# dlopen() is in libc 312libswanted="`echo $libswanted | sed -e 's/ dl / /'`" 313 314# libPW contains nothing useful for perl 315libswanted="`echo $libswanted | sed -e 's/ PW / /'`" 316 317# libnet contains nothing useful for perl here, and doesn't work 318libswanted="`echo $libswanted | sed -e 's/ net / /'`" 319 320# libbsd contains nothing used by perl that is not already in libc 321libswanted="`echo $libswanted | sed -e 's/ bsd / /'`" 322 323# libc need not be separately listed 324libswanted="`echo $libswanted | sed -e 's/ c / /'`" 325 326# ndbm is already in libc 327libswanted="`echo $libswanted | sed -e 's/ ndbm / /'`" 328 329# the basic lddlflags used always 330lddlflags='-shared -expect_unresolved "*"' 331 332# If debugging or (old systems and doing shared) 333# then do not strip the lib, otherwise, strip. 334# As noted above the -DDEBUGGING is added automagically by Configure if -g. 335case "$optimize" in 336 *-g*) ;; # left intentionally blank 337*) case "$unamer" in 338 *[123].*) 339 case "$useshrplib" in 340 false|undef|'') lddlflags="$lddlflags -s" ;; 341 esac 342 ;; 343 *) lddlflags="$lddlflags -s" 344 ;; 345 esac 346 ;; 347esac 348 349# 350# Make embedding in things like INN and Apache more memory friendly. 351# Keep it overridable on the Configure command line, though, so that 352# "-Uuseshrplib" prevents this default. 353# 354 355case "$_DEC_cc_style.$useshrplib" in 356 new.) useshrplib="$define" ;; 357esac 358 359# The EFF_ONLY_OK from <sys/access.h> is present but dysfunctional for 360# [RWX]_OK as of Digital UNIX 4.0[A-D]?. If and when this gets fixed, 361# please adjust this appropriately. See also pp_sys.c just before the 362# emulate_eaccess(). 363 364# Fixed in V5.0A. 365case "$myosvers" in 366*5.0[A-Z]*|*5.[1-9]*|*[6-9].[0-9]*) 367 : ok 368 ;; 369*) 370# V5.0 or previous 371pp_sys_cflags='ccflags="$ccflags -DNO_EFF_ONLY_OK"' 372 ;; 373esac 374 375# The off_t is already 8 bytes, so we do have largefileness. 376 377cat > UU/usethreads.cbu <<'EOCBU' 378# This script UU/usethreads.cbu will get 'called-back' by Configure 379# after it has prompted the user for whether to use threads. 380case "$usethreads" in 381$define|true|[yY]*) 382 # In Tru64 V5 (at least V5.1A, V5.1B) gcc (at least 3.2.2) 383 # cannot be used to compile a threaded Perl. 384 cat > pthread.c <<EOF 385#include <pthread.h> 386extern int foo; 387EOF 388 $cc -c pthread.c 2> pthread.err 389 if egrep -q "unrecognized compiler|syntax error" pthread.err; then 390 cat >&4 <<EOF 391*** 392*** I'm sorry but your C compiler ($cc) cannot be used to 393*** compile Perl with threads. The system C compiler should work. 394*** 395 396Cannot continue, aborting. 397 398EOF 399 rm -f pthread.* 400 exit 1 401 fi 402 rm -f pthread.* 403 # Threads interfaces changed with V4.0. 404 case "$isgcc" in 405 gcc) 406 ccflags="-D_REENTRANT $ccflags" 407 ;; 408 *) case "$unamer" in 409 *[123].*) ccflags="-threads $ccflags" ;; 410 *) ccflags="-pthread $ccflags" ;; 411 esac 412 ;; 413 esac 414 case "$unamer" in 415 *[123].*) libswanted="$libswanted pthreads mach exc c_r" ;; 416 *) libswanted="$libswanted pthread exc" ;; 417 esac 418 419 case "$usemymalloc" in 420 '') 421 usemymalloc='n' 422 ;; 423 esac 424 # These symbols are renamed in <time.h> so 425 # that the Configure hasproto doesn't see them. 426 d_asctime_r_proto="$define" 427 d_ctime_r_proto="$define" 428 d_gmtime_r_proto="$define" 429 d_localtime_r_proto="$define" 430 ;; 431esac 432EOCBU 433 434# malloc wrap works 435case "$usemallocwrap" in 436'') usemallocwrap='define' ;; 437esac 438 439cat > UU/uselongdouble.cbu <<'EOCBU' 440# This script UU/uselongdouble.cbu will get 'called-back' by Configure 441# after it has prompted the user for whether to use long doubles. 442case "$uselongdouble" in 443$define|true|[yY]*) 444 case "$myosvers" in 445 *[1-4].0*) cat >&4 <<EOF 446 447*** 448*** Sorry, you cannot use long doubles in pre-V5.0 releases of Tru64. 449*** 450 451Cannot continue, aborting. 452 453EOF 454 exit 1 455 ;; 456 *) 457 # Test whether libc's been fixed yet for long doubles. 458 cat >try.c <<\TRY 459#include <stdio.h> 460int main(int argc, char **argv) 461{ 462 unsigned long uvmax = ~0UL; 463 long double ld = uvmax + 0.0L; 464 char buf1[30], buf2[30]; 465 466 (void) sprintf(buf1, "%lu", uvmax); 467 (void) sprintf(buf2, "%.0Lf", ld); 468 return strcmp(buf1, buf2) != 0; 469} 470TRY 471 # Don't bother trying to work with Configure's idea of 472 # cc and the various flags. This might not work as-is 473 # with gcc -- but we're testing libc, not the compiler. 474 if cc -o try $_ccflags_strict_ansi try.c && ./try 475 then 476 : ok 477 else 478 cat <<\UGLY >&4 479! 480Warning! Your libc has not yet been patched so that its "%Lf" format for 481printing long doubles shows all the significant digits. You will get errors 482in the t/op/numconvert test because of this. (The data is still good 483internally, and the "%e" format of printf() or sprintf() in perl will still 484produce valid results.) See README.tru64 for additional details. 485 486Continuing anyway. 487! 488UGLY 489 fi 490 $rm -f try try.c 491 esac 492 ;; 493esac 494EOCBU 495 496case "$myosvers" in 497*[1-4].0*) d_modfl=undef ;; # must wait till 5.0 498esac 499 500# Keep that leading tab. 501 old_LD_LIBRARY_PATH=$LD_LIBRARY_PATH 502for p in $loclibpth 503do 504 if test -d $p; then 505 echo "Appending $p to LD_LIBRARY_PATH." >& 4 506 case "$LD_LIBRARY_PATH" in 507 '') LD_LIBRARY_PATH=$p ;; 508 *) LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$p ;; 509 esac 510 fi 511done 512case "$LD_LIBRARY_PATH" in 513"$old_LD_LIBRARY_PATH") ;; 514*) echo "LD_LIBRARY_PATH is now $LD_LIBRARY_PATH." >& 4 ;; 515esac 516case "$LD_LIBRARY_PATH" in 517'') ;; 518* ) export LD_LIBRARY_PATH ;; 519esac 520 521# Enforce strict data. 522case "$isgcc" in 523gcc) ;; 524*) # -trapuv poisons uninitialized stack with 525 # 0xfff58005fff58005 which is as a pointer a segmentation fault and 526 # as a floating point a signaling NaN. As integers/longs that causes 527 # no traps but at least it is not zero. 528 # -readonly_strings moves string constants into read-only section 529 # which hopefully means that modifying them leads into segmentation 530 # faults. 531 # 532 for i in -trapuv -readonly_strings 533 do 534 case "$ccflags" in 535 *$i*) ;; 536 *) ccflags="$ccflags $i" ;; 537 esac 538 done 539 ;; 540esac 541 542# 543# Unset temporary variables no more needed. 544# 545 546unset _DEC_cc_style 547 548# 549# History: 550# 551# perl5.005_51: 552# 553# September-1998 Jarkko Hietaniemi <jhi@iki.fi> 554# 555# * Added the -DNO_EFF_ONLY_OK flag ('use filetest;' support). 556# 557# perl5.004_57: 558# 559# 19-Dec-1997 Spider Boardman <spider@Orb.Nashua.NH.US> 560# 561# * Newer Digital UNIX compilers enforce signaling for NaN without 562# -ieee. Added -fprm d at the same time since it's friendlier for 563# embedding. 564# 565# * Fixed the library search path to match cc, ld, and /sbin/loader. 566# 567# * Default to building -Duseshrplib on newer systems. -Uuseshrplib 568# still overrides. 569# 570# * Fix -pthread additions for useshrplib. ld has no -pthread option. 571# 572# 573# perl5.004_04: 574# 575# 19-Sep-1997 Spider Boardman <spider@Orb.Nashua.NH.US> 576# 577# * libnet on Digital UNIX is for JAVA, not for sockets. 578# 579# 580# perl5.003_28: 581# 582# 22-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi> 583# 584# * Restructuring Spider's suggestions. 585# 586# * Older Digital UNIXes cannot handle -Olimit ... for $lddlflags. 587# 588# * ld -s cannot be used in older Digital UNIXes when doing shared. 589# 590# 591# 21-Feb-1997 Spider Boardman <spider@Orb.Nashua.NH.US> 592# 593# * -hidden removed. 594# 595# * -DSTANDARD_C removed. 596# 597# * -D_INTRINSICS added. (that -fast does not seem to buy much confirmed) 598# 599# * odbm not in libc, only ndbm. Therefore dbm back to $libswanted. 600# 601# * -msym for the newer runtime loaders. 602# 603# * $optimize also in $lddflags. 604# 605# 606# perl5.003_27: 607# 608# 18-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi> 609# 610# * unset _DEC_cc_style and more commentary on -std. 611# 612# 613# perl5.003_26: 614# 615# 15-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi> 616# 617# * -std and -ansi. 618# 619# 620# perl5.003_24: 621# 622# 30-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi> 623# 624# * Fixing the note on -DDEBUGGING. 625# 626# * Note on -O5 -fast. 627# 628# 629# perl5.003_23: 630# 631# 26-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi> 632# 633# * Notes on how to do both optimisation and debugging. 634# 635# 636# 25-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi> 637# 638# * Remove unneeded libraries from $libswanted: PW, bsd, c, dbm 639# 640# * Restructure the $lddlflags build. 641# 642# * $optimize based on which compiler we have. 643# 644# 645# perl5.003_22: 646# 647# 23-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de> 648# 649# * Added comments 'how to create a debugging version of perl' 650# 651# * Fixed logic of this script to prevent stripping of shared 652# objects by the loader (see ld man page for -s) is debugging 653# is set via the -g switch. 654# 655# 656# 21-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de> 657# 658# * now 'dl' is always removed from libswanted. Not only if 659# optimize is an empty string. 660# 661# 662# 17-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de> 663# 664# * Removed 'dl' from libswanted: When the FreePort binary 665# translator for Sun binaries is installed Configure concludes 666# that it should use libdl.x.yz.fpx.so :-( 667# Because the dlopen, dlclose,... calls are in the 668# C library it not necessary at all to check for the 669# dl library. Therefore dl is removed from libswanted. 670# 671# 672# 1-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de> 673# 674# * Set -Olimit to 3200 because perl_yylex.c got too big 675# for the optimizer. 676# 677 678