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