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