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