hints/dec_osf.sh

   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
  61 cc=${cc:-cc}
  62
  63 case "`$cc -v 2>&1 | grep cc`" in
  64 *gcc*) isgcc=gcc ;;
  65 esac
  66
  67 # do NOT, I repeat, *NOT* take away the leading tabs
  68 # Configure Black Magic (TM)
  69         # reset
  70         _DEC_cc_style=
  71 case "$isgcc" in
  72 gcc)    if [ "X$gccversion" = "X" ]; then
  73             # Done too late in Configure if hinted
  74             gccversion=`$cc --version | sed 's/.*(GCC) *//'`
  75         fi
  76         set $gccversion
  77         if test "$1" -lt 2 -o \( "$1" -eq 2 -a \( "$2" -lt 95 -o \( "$2" -eq 95 -a "$3" -lt 3 \) \) \); then
  78             cat >&4 <<EOF
  79
  80 *** Your cc seems to be gcc and its version ($gccversion) seems to be
  81 *** less than 2.95.3.  This is not a good idea since old versions of gcc
  82 *** are known to produce buggy code when compiling Perl (and no doubt for
  83 *** other programs, too).
  84 ***
  85 *** Therefore, I strongly suggest upgrading your gcc.  (Why don't you use
  86 *** the vendor cc is also a good question.  It comes with the operating
  87 *** system and produces good code.)
  88
  89 Cannot continue, aborting.
  90
  91 EOF
  92             exit 1
  93         fi
  94         if test "$1" -eq 2 -a "$2" -eq 95 -a "$3" -le 2; then
  95             cat >&4 <<EOF
  96
  97 *** Note that as of gcc 2.95.2 (19991024) and Perl 5.6.0 (March 2000)
  98 *** if the said Perl is compiled with the said gcc the lib/sdbm test
  99 *** may dump core (meaning that the SDBM_File extension is unusable).
 100 *** As this core dump never happens with the vendor cc, this is most
 101 *** probably a lingering bug in gcc.  Therefore unless you have a better
 102 *** gcc installation you are still better off using the vendor cc.
 103
 104 Since you explicitly chose gcc, I assume that you know what are doing.
 105
 106 EOF
 107         fi
 108         ;;
 109 *)      # compile something small: taint.c is fine for this.
 110         ccversion=`cc -V | awk '/(Compaq|DEC) C/ {print $3}' | grep '^V'`
 111         # the main point is the '-v' flag of 'cc'.
 112         case "`cc -v -I. -c taint.c -o taint$$.o 2>&1`" in
 113         */gemc_cc*)     # we have the new DEC GEM CC
 114                         _DEC_cc_style=new
 115                         ;;
 116         *)              # we have the old MIPS CC
 117                         _DEC_cc_style=old
 118                         ;;
 119         esac
 120         # cleanup
 121         rm -f taint$$.o
 122         ;;
 123 esac
 124
 125 # be nauseatingly ANSI
 126 case "$isgcc" in
 127 gcc)    ccflags="$ccflags -ansi"
 128         ;;
 129 *)      ccflags="$ccflags -std"
 130         ;;
 131 esac
 132
 133 # for gcc the Configure knows about the -fpic:
 134 # position-independent code for dynamic loading
 135
 136 # we want optimisation
 137
 138 case "$optimize" in
 139 '')     case "$isgcc" in
 140         gcc)    optimize='-O3'                          ;;
 141         *)      case "$_DEC_cc_style" in
 142                 new)    optimize='-O4'                  ;;
 143                 old)    optimize='-O2 -Olimit 3200'     ;;
 144                 esac
 145                 ccflags="$ccflags -D_INTRINSICS"
 146                 ;;
 147         esac
 148         ;;
 149 esac
 150
 151 ## Optimization limits
 152 case "$isgcc" in
 153 gcc) #  gcc 3.2.1 wants a lot of memory for -O3'ing toke.c
 154 cat >try.c <<EOF
 155 #include <sys/resource.h>
 156
 157 int main ()
 158 {
 159     struct rlimit rl;
 160     int i = getrlimit (RLIMIT_DATA, &rl);
 161     printf ("%d\n", rl.rlim_cur / (1024 * 1024));
 162     } /* main */
 163 EOF
 164 $cc -o try $ccflags $ldflags try.c
 165         maxdsiz=`./try`
 166 rm -f try try.c core
 167 if [ $maxdsiz -lt 256 ]; then
 168     # less than 256 MB is probably not enough to optimize toke.c with gcc -O3
 169     cat <<EOM >&4
 170
 171 Your process datasize is limited to $maxdsiz MB, which is (sadly) not
 172 always enough to fully optimize some source code files of Perl,
 173 at least 256 MB seems to be necessary as of Perl 5.8.0.  I'll try to
 174 use a lower optimization level for those parts.  You could either try
 175 using your shell's ulimit/limit/limits command to raise your datasize
 176 (assuming the system-wide hard resource limits allow you to go higher),
 177 or if you can't go higher and if you are a sysadmin, and you *do* want
 178 the full optimization, you can tune the 'max_per_proc_data_size'
 179 kernel parameter: see man sysconfigtab, and man sys_attrs_proc.
 180
 181 EOM
 182 toke_cflags='optimize=-O2'
 183     fi
 184 ;;
 185 esac
 186
 187 # The patch 23787
 188 # http://public.activestate.com/cgi-bin/perlbrowse?patch=23787
 189 # broke things for gcc (at least gcc 3.3) so that many of the
 190 # pack() checksum tests for formats L, j, J, especially when combined
 191 # with the < and > specifiers, started to fail if compiled with -O3.
 192 case "$isgcc" in
 193 gcc)
 194     cat <<EOM >&4
 195
 196 I'm lowering the optimisation level on pp_pack.c because gcc is known
 197 to misoptimise certain parts of it in Tru64.
 198
 199 EOM
 200 pp_pack_cflags='optimize=-O1'
 201 ;;
 202 esac
 203
 204 # we want dynamic fp rounding mode, and we want ieee exception semantics
 205 case "$isgcc" in
 206 gcc)    ;;
 207 *)      case "$_DEC_cc_style" in
 208         new)    ccflags="$ccflags -fprm d -ieee"        ;;
 209         esac
 210         ;;
 211 esac
 212
 213 # Make glibpth agree with the compiler suite.  Note that /shlib
 214 # is not here.  That's on purpose.  Even though that's where libc
 215 # really lives from V4.0 on, the linker (and /sbin/loader) won't
 216 # look there by default.  The sharable /sbin utilities were all
 217 # built with "-Wl,-rpath,/shlib" to get around that.  This makes
 218 # no attempt to figure out the additional location(s) searched by
 219 # gcc, since not all versions of gcc are easily coerced into
 220 # revealing that information.
 221 glibpth="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc"
 222 glibpth="$glibpth /usr/lib /usr/local/lib /var/shlib"
 223
 224 # dlopen() is in libc
 225 libswanted="`echo $libswanted | sed -e 's/ dl / /'`"
 226
 227 # libPW contains nothing useful for perl
 228 libswanted="`echo $libswanted | sed -e 's/ PW / /'`"
 229
 230 # libnet contains nothing useful for perl here, and doesn't work
 231 libswanted="`echo $libswanted | sed -e 's/ net / /'`"
 232
 233 # libbsd contains nothing used by perl that is not already in libc
 234 libswanted="`echo $libswanted | sed -e 's/ bsd / /'`"
 235
 236 # libc need not be separately listed
 237 libswanted="`echo $libswanted | sed -e 's/ c / /'`"
 238
 239 # ndbm is already in libc
 240 libswanted="`echo $libswanted | sed -e 's/ ndbm / /'`"
 241
 242 # the basic lddlflags used always
 243 lddlflags='-shared -expect_unresolved "*"'
 244
 245 # Intentional leading tab.
 246         myosvers="`/usr/sbin/sizer -v 2>/dev/null || uname -r`"
 247
 248 # Fancy compiler suites use optimising linker as well as compiler.
 249 # <spider@Orb.Nashua.NH.US>
 250 case "`uname -r`" in
 251 *[123].*)       # old loader
 252                 lddlflags="$lddlflags -O3"
 253                 ;;
 254 *)            if $test "X$optimize" = "X$undef"; then
 255                       lddlflags="$lddlflags -msym"
 256               else
 257                   case "$myosvers" in
 258                   *4.0D*)
 259                       # QAR 56761: -O4 + .so may produce broken code,
 260                       # fixed in 4.0E or better.
 261                       ;;
 262                   *)
 263                       lddlflags="$lddlflags $optimize"
 264                       ;;
 265                   esac
 266                   # -msym: If using a sufficiently recent /sbin/loader,
 267                   # keep the module symbols with the modules.
 268                   lddlflags="$lddlflags -msym -std"
 269               fi
 270                 ;;
 271 esac
 272 # Yes, the above loses if gcc does not use the system linker.
 273 # If that happens, let me know about it. <jhi@iki.fi>
 274
 275 # Because there is no other handy way to recognize 3.X.
 276 case "`uname -r`" in
 277 *3.*)   ccflags="$ccflags -DDEC_OSF1_3_X" ;;
 278 esac
 279
 280 # If debugging or (old systems and doing shared)
 281 # then do not strip the lib, otherwise, strip.
 282 # As noted above the -DDEBUGGING is added automagically by Configure if -g.
 283 case "$optimize" in
 284         *-g*) ;; # left intentionally blank
 285 *)      case "`uname -r`" in
 286         *[123].*)
 287                 case "$useshrplib" in
 288                 false|undef|'') lddlflags="$lddlflags -s"       ;;
 289                 esac
 290                 ;;
 291         *) lddlflags="$lddlflags -s"
 292                 ;;
 293         esac
 294         ;;
 295 esac
 296
 297 #
 298 # Make embedding in things like INN and Apache more memory friendly.
 299 # Keep it overridable on the Configure command line, though, so that
 300 # "-Uuseshrplib" prevents this default.
 301 #
 302
 303 case "$_DEC_cc_style.$useshrplib" in
 304         new.)   useshrplib="$define"    ;;
 305 esac
 306
 307 # The EFF_ONLY_OK from <sys/access.h> is present but dysfunctional for
 308 # [RWX]_OK as of Digital UNIX 4.0[A-D]?.  If and when this gets fixed,
 309 # please adjust this appropriately.  See also pp_sys.c just before the
 310 # emulate_eaccess().
 311
 312 # Fixed in V5.0A.
 313 case "$myosvers" in
 314 *5.0[A-Z]*|*5.[1-9]*|*[6-9].[0-9]*)
 315         : ok
 316         ;;
 317 *)
 318 # V5.0 or previous
 319 pp_sys_cflags='ccflags="$ccflags -DNO_EFF_ONLY_OK"'
 320         ;;
 321 esac
 322
 323 # The off_t is already 8 bytes, so we do have largefileness.
 324
 325 cat > UU/usethreads.cbu <<'EOCBU'
 326 # This script UU/usethreads.cbu will get 'called-back' by Configure
 327 # after it has prompted the user for whether to use threads.
 328 case "$usethreads" in
 329 $define|true|[yY]*)
 330         # In Tru64 V5 (at least V5.1A, V5.1B) gcc (at least 3.2.2)
 331         # cannot be used to compile a threaded Perl.
 332         cat > pthread.c <<EOF
 333 #include <pthread.h>
 334 extern int foo;
 335 EOF
 336         $cc -c pthread.c 2> pthread.err
 337         if grep -q "unrecognized compiler" pthread.err; then
 338             cat >&4 <<EOF
 339 ***
 340 *** I'm sorry but your C compiler ($cc) cannot be used to
 341 *** compile Perl with threads.  The system C compiler should work.
 342 ***
 343
 344 Cannot continue, aborting.
 345
 346 EOF
 347             rm -f pthread.*
 348             exit 1
 349         fi
 350         rm -f pthread.*
 351         # Threads interfaces changed with V4.0.
 352         case "$isgcc" in
 353         gcc)
 354             ccflags="-D_REENTRANT $ccflags"
 355             ;;
 356         *)  case "`uname -r`" in
 357             *[123].*)   ccflags="-threads $ccflags" ;;
 358             *)          ccflags="-pthread $ccflags" ;;
 359             esac
 360             ;;
 361         esac
 362         case "`uname -r`" in
 363         *[123].*) libswanted="$libswanted pthreads mach exc c_r" ;;
 364         *)        libswanted="$libswanted pthread exc" ;;
 365         esac
 366
 367         case "$usemymalloc" in
 368         '')
 369                 usemymalloc='n'
 370                 ;;
 371         esac
 372         # These symbols are renamed in <time.h> so
 373         # that the Configure hasproto doesn't see them.
 374         d_asctime_r_proto="$define"
 375         d_ctime_r_proto="$define"
 376         d_gmtime_r_proto="$define"
 377         d_localtime_r_proto="$define"
 378         ;;
 379 esac
 380 EOCBU
 381
 382 # malloc wrap works
 383 case "$usemallocwrap" in
 384 '') usemallocwrap='define' ;;
 385 esac
 386
 387 cat > UU/uselongdouble.cbu <<'EOCBU'
 388 # This script UU/uselongdouble.cbu will get 'called-back' by Configure
 389 # after it has prompted the user for whether to use long doubles.
 390 case "$uselongdouble" in
 391 $define|true|[yY]*)
 392         case "$myosvers" in
 393         *[1-4].0*)      cat >&4 <<EOF
 394
 395 ***
 396 *** Sorry, you cannot use long doubles in pre-V5.0 releases of Tru64.
 397 ***
 398
 399 Cannot continue, aborting.
 400
 401 EOF
 402                 exit 1
 403                 ;;
 404         *)
 405                 # Test whether libc's been fixed yet.
 406                 cat >try.c <<\TRY
 407 #include <stdio.h>
 408 int main(int argc, char **argv)
 409 {
 410         unsigned long uvmax = ~0UL;
 411         long double ld = uvmax + 0.0L;
 412         char buf1[30], buf2[30];
 413
 414         (void) sprintf(buf1, "%lu", uvmax);
 415         (void) sprintf(buf2, "%.0Lf", ld);
 416         return strcmp(buf1, buf2) != 0;
 417 }
 418 TRY
 419                 # Don't bother trying to work with Configure's idea of
 420                 # cc and the various flags.  This might not work as-is
 421                 # with gcc -- but we're testing libc, not the compiler.
 422                 if cc -o try -std try.c && ./try
 423                 then
 424                         : ok
 425                 else
 426                         cat <<\UGLY >&4
 427 !
 428 Warning!  Your libc has not yet been patched so that its "%Lf" format for
 429 printing long doubles shows all the significant digits.  You will get errors
 430 in the t/op/numconvert test because of this.  (The data is still good
 431 internally, and the "%e" format of printf() or sprintf() in perl will still
 432 produce valid results.)  See README.tru64 for additional details.
 433
 434 Continuing anyway.
 435 !
 436 UGLY
 437                 fi
 438                 $rm -f try try.c
 439         esac
 440         ;;
 441 esac
 442 EOCBU
 443
 444 case "$myosvers" in
 445 *[1-4].0*) d_modfl=undef ;; # must wait till 5.0
 446 esac
 447
 448 # Keep that leading tab.
 449         old_LD_LIBRARY_PATH=$LD_LIBRARY_PATH
 450 for p in $loclibpth
 451 do
 452         if test -d $p; then
 453             echo "Appending $p to LD_LIBRARY_PATH." >& 4
 454             case "$LD_LIBRARY_PATH" in
 455             '') LD_LIBRARY_PATH=$p                  ;;
 456             *)  LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$p ;;
 457             esac
 458         fi
 459 done
 460 case "$LD_LIBRARY_PATH" in
 461 "$old_LD_LIBRARY_PATH") ;;
 462 *) echo "LD_LIBRARY_PATH is now $LD_LIBRARY_PATH." >& 4 ;;
 463 esac
 464 case "$LD_LIBRARY_PATH" in
 465 '') ;;
 466 * ) export LD_LIBRARY_PATH ;;
 467 esac
 468
 469 #
 470 # Unset temporary variables no more needed.
 471 #
 472
 473 unset _DEC_cc_style
 474
 475 #
 476 # History:
 477 #
 478 # perl5.005_51:
 479 #
 480 #       September-1998 Jarkko Hietaniemi <jhi@iki.fi>
 481 #
 482 #       * Added the -DNO_EFF_ONLY_OK flag ('use filetest;' support).
 483 #
 484 # perl5.004_57:
 485 #
 486 #       19-Dec-1997 Spider Boardman <spider@Orb.Nashua.NH.US>
 487 #
 488 #       * Newer Digital UNIX compilers enforce signaling for NaN without
 489 #         -ieee.  Added -fprm d at the same time since it's friendlier for
 490 #         embedding.
 491 #
 492 #       * Fixed the library search path to match cc, ld, and /sbin/loader.
 493 #
 494 #       * Default to building -Duseshrplib on newer systems.  -Uuseshrplib
 495 #         still overrides.
 496 #
 497 #       * Fix -pthread additions for useshrplib.  ld has no -pthread option.
 498 #
 499 #
 500 # perl5.004_04:
 501 #
 502 #       19-Sep-1997 Spider Boardman <spider@Orb.Nashua.NH.US>
 503 #
 504 #       * libnet on Digital UNIX is for JAVA, not for sockets.
 505 #
 506 #
 507 # perl5.003_28:
 508 #
 509 #       22-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi>
 510 #
 511 #       * Restructuring Spider's suggestions.
 512 #
 513 #       * Older Digital UNIXes cannot handle -Olimit ... for $lddlflags.
 514 #
 515 #       * ld -s cannot be used in older Digital UNIXes when doing shared.
 516 #
 517 #
 518 #       21-Feb-1997 Spider Boardman <spider@Orb.Nashua.NH.US>
 519 #
 520 #       * -hidden removed.
 521 #
 522 #       * -DSTANDARD_C removed.
 523 #
 524 #       * -D_INTRINSICS added. (that -fast does not seem to buy much confirmed)
 525 #
 526 #       * odbm not in libc, only ndbm. Therefore dbm back to $libswanted.
 527 #
 528 #       * -msym for the newer runtime loaders.
 529 #
 530 #       * $optimize also in $lddflags.
 531 #
 532 #
 533 # perl5.003_27:
 534 #
 535 #       18-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi>
 536 #
 537 #       * unset _DEC_cc_style and more commentary on -std.
 538 #
 539 #
 540 # perl5.003_26:
 541 #
 542 #       15-Feb-1997 Jarkko Hietaniemi <jhi@iki.fi>
 543 #
 544 #       * -std and -ansi.
 545 #
 546 #
 547 # perl5.003_24:
 548 #
 549 #       30-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi>
 550 #
 551 #       * Fixing the note on -DDEBUGGING.
 552 #
 553 #       * Note on -O5 -fast.
 554 #
 555 #
 556 # perl5.003_23:
 557 #
 558 #       26-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi>
 559 #
 560 #       * Notes on how to do both optimisation and debugging.
 561 #
 562 #
 563 #       25-Jan-1997 Jarkko Hietaniemi <jhi@iki.fi>
 564 #
 565 #       * Remove unneeded libraries from $libswanted: PW, bsd, c, dbm
 566 #
 567 #       * Restructure the $lddlflags build.
 568 #
 569 #       * $optimize based on which compiler we have.
 570 #
 571 #
 572 # perl5.003_22:
 573 #
 574 #       23-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
 575 #
 576 #       * Added comments 'how to create a debugging version of perl'
 577 #
 578 #       * Fixed logic of this script to prevent stripping of shared
 579 #         objects by the loader (see ld man page for -s) is debugging
 580 #         is set via the -g switch.
 581 #
 582 #
 583 #       21-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
 584 #
 585 #       * now 'dl' is always removed from libswanted. Not only if
 586 #         optimize is an empty string.
 587 #
 588 #
 589 #       17-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
 590 #
 591 #       * Removed 'dl' from libswanted: When the FreePort binary
 592 #         translator for Sun binaries is installed Configure concludes
 593 #         that it should use libdl.x.yz.fpx.so :-(
 594 #         Because the dlopen, dlclose,... calls are in the
 595 #         C library it not necessary at all to check for the
 596 #         dl library.  Therefore dl is removed from libswanted.
 597 #
 598 #
 599 #       1-Jan-1997 Achim Bohnet <ach@rosat.mpe-garching.mpg.de>
 600 #
 601 #       * Set -Olimit to 3200 because perl_yylex.c got too big
 602 #         for the optimizer.
 603 #