]> git.proxmox.com Git - mirror_zfs.git/blob - scripts/common.sh.in
Fix zconfig.sh non-optimal alignment
[mirror_zfs.git] / scripts / common.sh.in
1 #!/bin/bash
2 #
3 # Common support functions for testing scripts. If a script-config
4 # files is available it will be sourced so in-tree kernel modules and
5 # utilities will be used. If no script-config can be found then the
6 # installed kernel modules and utilities will be used.
7
8 basedir="$(dirname $0)"
9
10 SCRIPT_CONFIG=zfs-script-config.sh
11 if [ -f "${basedir}/../${SCRIPT_CONFIG}" ]; then
12 . "${basedir}/../${SCRIPT_CONFIG}"
13 else
14 KERNEL_MODULES=(zlib_deflate zlib_inflate)
15 MODULES=(spl splat zavl znvpair zunicode zcommon zfs)
16 fi
17
18 PROG="<define PROG>"
19 CLEANUP=
20 VERBOSE=
21 VERBOSE_FLAG=
22 FORCE=
23 FORCE_FLAG=
24 DUMP_LOG=
25 ERROR=
26 RAID0S=()
27 RAID10S=()
28 RAIDZS=()
29 RAIDZ2S=()
30 TESTS_RUN=${TESTS_RUN:-'*'}
31 TESTS_SKIP=${TESTS_SKIP:-}
32
33 prefix=@prefix@
34 exec_prefix=@exec_prefix@
35 libexecdir=@libexecdir@
36 pkglibexecdir=${libexecdir}/@PACKAGE@
37 bindir=@bindir@
38 sbindir=@sbindir@
39 udevdir=@udevdir@
40 udevruledir=@udevruledir@
41 sysconfdir=@sysconfdir@
42
43 ETCDIR=${ETCDIR:-/etc}
44 DEVDIR=${DEVDIR:-/dev/disk/zpool}
45 ZPOOLDIR=${ZPOOLDIR:-${pkglibexecdir}/zpool-config}
46 ZPIOSDIR=${ZPIOSDIR:-${pkglibexecdir}/zpios-test}
47 ZPIOSPROFILEDIR=${ZPIOSPROFILEDIR:-${pkglibexecdir}/zpios-profile}
48
49 ZDB=${ZDB:-${sbindir}/zdb}
50 ZFS=${ZFS:-${sbindir}/zfs}
51 ZINJECT=${ZINJECT:-${sbindir}/zinject}
52 ZPOOL=${ZPOOL:-${sbindir}/zpool}
53 ZPOOL_ID=${ZPOOL_ID:-${bindir}/zpool_id}
54 ZTEST=${ZTEST:-${sbindir}/ztest}
55 ZPIOS=${ZPIOS:-${sbindir}/zpios}
56
57 COMMON_SH=${COMMON_SH:-${pkglibexecdir}/common.sh}
58 ZFS_SH=${ZFS_SH:-${pkglibexecdir}/zfs.sh}
59 ZPOOL_CREATE_SH=${ZPOOL_CREATE_SH:-${pkglibexecdir}/zpool-create.sh}
60 ZPIOS_SH=${ZPIOS_SH:-${pkglibexecdir}/zpios.sh}
61 ZPIOS_SURVEY_SH=${ZPIOS_SURVEY_SH:-${pkglibexecdir}/zpios-survey.sh}
62
63 LDMOD=${LDMOD:-/sbin/modprobe}
64 LSMOD=${LSMOD:-/sbin/lsmod}
65 RMMOD=${RMMOD:-/sbin/rmmod}
66 INFOMOD=${INFOMOD:-/sbin/modinfo}
67 LOSETUP=${LOSETUP:-/sbin/losetup}
68 MDADM=${MDADM:-/sbin/mdadm}
69 PARTED=${PARTED:-/sbin/parted}
70 BLOCKDEV=${BLOCKDEV:-/sbin/blockdev}
71 LSSCSI=${LSSCSI:-/usr/bin/lsscsi}
72 SCSIRESCAN=${SCSIRESCAN:-/usr/bin/scsi-rescan}
73 SYSCTL=${SYSCTL:-/sbin/sysctl}
74 UDEVADM=${UDEVADM:-/sbin/udevadm}
75 AWK=${AWK:-/usr/bin/awk}
76
77 COLOR_BLACK="\033[0;30m"
78 COLOR_DK_GRAY="\033[1;30m"
79 COLOR_BLUE="\033[0;34m"
80 COLOR_LT_BLUE="\033[1;34m"
81 COLOR_GREEN="\033[0;32m"
82 COLOR_LT_GREEN="\033[1;32m"
83 COLOR_CYAN="\033[0;36m"
84 COLOR_LT_CYAN="\033[1;36m"
85 COLOR_RED="\033[0;31m"
86 COLOR_LT_RED="\033[1;31m"
87 COLOR_PURPLE="\033[0;35m"
88 COLOR_LT_PURPLE="\033[1;35m"
89 COLOR_BROWN="\033[0;33m"
90 COLOR_YELLOW="\033[1;33m"
91 COLOR_LT_GRAY="\033[0;37m"
92 COLOR_WHITE="\033[1;37m"
93 COLOR_RESET="\033[0m"
94
95 die() {
96 echo -e "${PROG}: $1" >&2
97 exit 1
98 }
99
100 msg() {
101 if [ ${VERBOSE} ]; then
102 echo "$@"
103 fi
104 }
105
106 pass() {
107 echo -e "${COLOR_GREEN}Pass${COLOR_RESET}"
108 }
109
110 fail() {
111 echo -e "${COLOR_RED}Fail${COLOR_RESET} ($1)"
112 exit $1
113 }
114
115 skip() {
116 echo -e "${COLOR_BROWN}Skip${COLOR_RESET}"
117 }
118
119 init() {
120 # Disable the udev rule 90-zfs.rules to prevent the zfs module
121 # stack from being loaded due to the detection of a zfs device.
122 # This is important because the test scripts require full control
123 # over when and how the modules are loaded/unloaded. A trap is
124 # set to ensure the udev rule is correctly replaced on exit.
125 local RULE=${udevruledir}/90-zfs.rules
126 if test -e ${RULE}; then
127 trap "mv ${RULE}.disabled ${RULE}; exit $?" INT TERM EXIT
128 mv ${RULE} ${RULE}.disabled
129 fi
130 }
131
132 spl_dump_log() {
133 ${SYSCTL} -w kernel.spl.debug.dump=1 &>/dev/null
134 local NAME=`dmesg | tail -n 1 | cut -f5 -d' '`
135 ${SPLBUILD}/cmd/spl ${NAME} >${NAME}.log
136 echo
137 echo "Dumped debug log: ${NAME}.log"
138 tail -n1 ${NAME}.log
139 echo
140 return 0
141 }
142
143 check_modules() {
144 local LOADED_MODULES=()
145 local MISSING_MODULES=()
146
147 for MOD in ${MODULES[*]}; do
148 local NAME=`basename $MOD .ko`
149
150 if ${LSMOD} | egrep -q "^${NAME}"; then
151 LOADED_MODULES=(${NAME} ${LOADED_MODULES[*]})
152 fi
153
154 if [ ${INFOMOD} ${MOD} 2>/dev/null ]; then
155 MISSING_MODULES=("\t${MOD}\n" ${MISSING_MODULES[*]})
156 fi
157 done
158
159 if [ ${#LOADED_MODULES[*]} -gt 0 ]; then
160 ERROR="Unload these modules with '${PROG} -u':\n"
161 ERROR="${ERROR}${LOADED_MODULES[*]}"
162 return 1
163 fi
164
165 if [ ${#MISSING_MODULES[*]} -gt 0 ]; then
166 ERROR="The following modules can not be found,"
167 ERROR="${ERROR} ensure your source trees are built:\n"
168 ERROR="${ERROR}${MISSING_MODULES[*]}"
169 return 1
170 fi
171
172 return 0
173 }
174
175 load_module() {
176 local NAME=`basename $1 .ko`
177
178 if [ ${VERBOSE} ]; then
179 echo "Loading ${NAME} ($@)"
180 fi
181
182 ${LDMOD} $* &>/dev/null || ERROR="Failed to load $1" return 1
183
184 return 0
185 }
186
187 load_modules() {
188 mkdir -p /etc/zfs
189
190 for MOD in ${KERNEL_MODULES[*]}; do
191 load_module ${MOD}
192 done
193
194 for MOD in ${MODULES[*]}; do
195 local NAME=`basename ${MOD} .ko`
196 local VALUE=
197
198 for OPT in "$@"; do
199 OPT_NAME=`echo ${OPT} | cut -f1 -d'='`
200
201 if [ ${NAME} = "${OPT_NAME}" ]; then
202 VALUE=`echo ${OPT} | cut -f2- -d'='`
203 fi
204 done
205
206 load_module ${MOD} ${VALUE} || return 1
207 done
208
209 if [ ${VERBOSE} ]; then
210 echo "Successfully loaded ZFS module stack"
211 fi
212
213 return 0
214 }
215
216 unload_module() {
217 local NAME=`basename $1 .ko`
218
219 if [ ${VERBOSE} ]; then
220 echo "Unloading ${NAME} ($@)"
221 fi
222
223 ${RMMOD} ${NAME} || ERROR="Failed to unload ${NAME}" return 1
224
225 return 0
226 }
227
228 unload_modules() {
229 local MODULES_REVERSE=( $(echo ${MODULES[@]} |
230 ${AWK} '{for (i=NF;i>=1;i--) printf $i" "} END{print ""}') )
231
232 for MOD in ${MODULES_REVERSE[*]}; do
233 local NAME=`basename ${MOD} .ko`
234 local USE_COUNT=`${LSMOD} |
235 egrep "^${NAME} "| ${AWK} '{print $3}'`
236
237 if [ "${USE_COUNT}" = 0 ] ; then
238
239 if [ "${DUMP_LOG}" -a ${NAME} = "spl" ]; then
240 spl_dump_log
241 fi
242
243 unload_module ${MOD} || return 1
244 fi
245 done
246
247 if [ ${VERBOSE} ]; then
248 echo "Successfully unloaded ZFS module stack"
249 fi
250
251 return 0
252 }
253
254 #
255 # Check that the mdadm utilities are installed.
256 #
257 check_loop_utils() {
258 test -f ${LOSETUP} || die "${LOSETUP} utility must be installed"
259 }
260
261
262 #
263 # Find and return an unused loopback device.
264 #
265 unused_loop_device() {
266 for DEVICE in `ls -1 /dev/loop* 2>/dev/null`; do
267 ${LOSETUP} ${DEVICE} &>/dev/null
268 if [ $? -ne 0 ]; then
269 echo ${DEVICE}
270 return
271 fi
272 done
273
274 die "Error: Unable to find unused loopback device"
275 }
276
277 #
278 # This can be slightly dangerous because the loop devices we are
279 # cleaning up may not be ours. However, if the devices are currently
280 # in use we will not be able to remove them, and we only remove
281 # devices which include 'zpool' in the name. So any damage we might
282 # do should be limited to other zfs related testing.
283 #
284 cleanup_loop_devices() {
285 local TMP_FILE=`mktemp`
286
287 ${LOSETUP} -a | tr -d '()' >${TMP_FILE}
288 ${AWK} -F":" -v losetup="$LOSETUP" \
289 '/zpool/ { system("losetup -d "$1) }' ${TMP_FILE}
290 ${AWK} -F" " '/zpool/ { system("rm -f "$3) }' ${TMP_FILE}
291
292 rm -f ${TMP_FILE}
293 }
294
295 #
296 # Destroy the passed loopback devices, this is used when you know
297 # the names of the loopback devices.
298 #
299 destroy_loop_devices() {
300 local LODEVICES="$1"
301
302 msg "Destroying ${LODEVICES}"
303 ${LOSETUP} -d ${LODEVICES} || \
304 die "Error $? destroying ${FILE} -> ${DEVICE} loopback"
305
306 rm -f ${FILES}
307 return 0
308 }
309
310 #
311 # Create a device label.
312 #
313 label() {
314 local DEVICE=$1
315 local LABEL=$2
316
317 ${PARTED} ${DEVICE} --script -- mklabel ${LABEL} || return 1
318
319 return 0
320 }
321
322 #
323 # Create a primary partition on a block device.
324 #
325 partition() {
326 local DEVICE=$1
327 local TYPE=$2
328 local START=$3
329 local END=$4
330
331 ${PARTED} --align optimal ${DEVICE} --script -- \
332 mkpart ${TYPE} ${START} ${END} || return 1
333 udev_trigger
334
335 return 0
336 }
337
338 #
339 # Create a filesystem on the block device
340 #
341 format() {
342 local DEVICE=$1
343 local FSTYPE=$2
344
345 /sbin/mkfs.${FSTYPE} -q ${DEVICE} || return 1
346
347 return 0
348 }
349
350 #
351 # Check that the mdadm utilities are installed.
352 #
353 check_md_utils() {
354 test -f ${MDADM} || die "${MDADM} utility must be installed"
355 test -f ${PARTED} || die "${PARTED} utility must be installed"
356 }
357
358 check_md_partitionable() {
359 local LOFILE=`mktemp -p /tmp zpool-lo.XXXXXXXX`
360 local LODEVICE=`unused_loop_device`
361 local MDDEVICE=`unused_md_device`
362 local RESULT=1
363
364 check_md_utils
365
366 rm -f ${LOFILE}
367 dd if=/dev/zero of=${LOFILE} bs=1M count=0 seek=16 \
368 &>/dev/null || return ${RESULT}
369
370 msg "Creating ${LODEVICE} using ${LOFILE}"
371 ${LOSETUP} ${LODEVICE} ${LOFILE}
372 if [ $? -ne 0 ]; then
373 rm -f ${LOFILE}
374 return ${RESULT}
375 fi
376
377 msg "Creating ${MDDEVICE} using ${LODEVICE}"
378 ${MDADM} --build ${MDDEVICE} --level=faulty \
379 --raid-devices=1 ${LODEVICE} &>/dev/null
380 if [ $? -ne 0 ]; then
381 destroy_loop_devices ${LODEVICE}
382 rm -f ${LOFILE}
383 return ${RESULT}
384 fi
385 wait_udev ${MDDEVICE} 30
386
387 ${BLOCKDEV} --rereadpt ${MDDEVICE} 2>/dev/null
388 RESULT=$?
389
390 destroy_md_devices ${MDDEVICE}
391 destroy_loop_devices ${LODEVICE}
392 rm -f ${LOFILE}
393
394 return ${RESULT}
395 }
396
397 #
398 # Find and return an unused md device.
399 #
400 unused_md_device() {
401 for (( i=0; i<32; i++ )); do
402 MDDEVICE=md${i}
403
404 # Skip active devicesudo in /proc/mdstat.
405 grep -q "${MDDEVICE} " /proc/mdstat && continue
406
407 # Device doesn't exist, use it.
408 if [ ! -e $/dev/{MDDEVICE} ]; then
409 echo /dev/${MDDEVICE}
410 return
411 fi
412
413 # Device exists but may not be in use.
414 if [ -b /dev/${MDDEVICE} ]; then
415 ${MDADM} --detail /dev/${MDDEVICE} &>/dev/null
416 if [ $? -eq 1 ]; then
417 echo /dev/${MDDEVICE}
418 return
419 fi
420 fi
421 done
422
423 die "Error: Unable to find unused md device"
424 }
425
426 #
427 # This can be slightly dangerous because it is possible the md devices
428 # we are cleaning up may not be ours. However, if the devices are
429 # currently in use we will not be able to remove them, and even if
430 # we remove devices which were not out we do not zero the super block
431 # so you should be able to reconstruct them.
432 #
433 cleanup_md_devices() {
434 destroy_md_devices "`ls /dev/md* 2>/dev/null | grep -v p`"
435 udev_trigger
436 }
437
438 #
439 # Destroy the passed md devices, this is used when you know
440 # the names of the md devices.
441 #
442 destroy_md_devices() {
443 local MDDEVICES="$1"
444
445 msg "Destroying ${MDDEVICES}"
446 for MDDEVICE in ${MDDEVICES}; do
447 ${MDADM} --stop ${MDDEVICE} &>/dev/null
448 ${MDADM} --remove ${MDDEVICE} &>/dev/null
449 ${MDADM} --detail ${MDDEVICE} &>/dev/null
450 done
451
452 return 0
453 }
454
455 #
456 # Check that the scsi utilities are installed.
457 #
458 check_sd_utils() {
459 ${INFOMOD} scsi_debug &>/dev/null || die "scsi_debug module required"
460 test -f ${LSSCSI} || die "${LSSCSI} utility must be installed"
461 }
462
463 #
464 # Rescan the scsi bus for scsi_debug devices. It is preferable to use the
465 # scsi-rescan tool if it is installed, but if it's not we can fall back to
466 # removing and readding the device manually. This rescan will only effect
467 # the first scsi_debug device if scsi-rescan is missing.
468 #
469 scsi_rescan() {
470 local AWK_SCRIPT="/scsi_debug/ { print \$1; exit }"
471
472 if [ -f ${SCSIRESCAN} ]; then
473 ${SCSIRESCAN} --forcerescan --remove &>/dev/null
474 else
475 local SCSIID=`${LSSCSI} | ${AWK} "${AWK_SCRIPT}" | tr -d '[]'`
476 local SCSIHOST=`echo ${SCSIID} | cut -f1 -d':'`
477 echo 1 >"/sys/class/scsi_device/${SCSIID}/device/delete"
478 udev_trigger
479 echo "- - -" >/sys/class/scsi_host/host${SCSIHOST}/scan
480 udev_trigger
481 fi
482 }
483
484 #
485 # Trigger udev and wait for it to settle.
486 #
487 udev_trigger() {
488 if [ -f ${UDEVADM} ]; then
489 ${UDEVADM} trigger --action=change --subsystem-match=block
490 ${UDEVADM} settle
491 else
492 /sbin/udevtrigger
493 /sbin/udevsettle
494 fi
495 }
496
497 #
498 # The following udev helper functions assume that the provided
499 # udev rules file will create a /dev/disk/zpool/<CHANNEL><RANK>
500 # disk mapping. In this mapping each CHANNEL is represented by
501 # the letters a-z, and the RANK is represented by the numbers
502 # 1-n. A CHANNEL should identify a group of RANKS which are all
503 # attached to a single controller, each RANK represents a disk.
504 # This provides a simply mechanism to locate a specific drive
505 # given a known hardware configuration.
506 #
507 udev_setup() {
508 local SRC_PATH=$1
509
510 # When running in tree manually contruct symlinks in tree to
511 # the proper devices. Symlinks are installed for all entires
512 # in the config file regardless of if that device actually
513 # exists. When installed as a package udev can be relied on for
514 # this and it will only create links for devices which exist.
515 if [ ${INTREE} ]; then
516 PWD=`pwd`
517 mkdir -p ${DEVDIR}/
518 cd ${DEVDIR}/
519 ${AWK} '!/^#/ && /./ { system( \
520 "ln -f -s /dev/disk/by-path/"$2" "$1";" \
521 "ln -f -s /dev/disk/by-path/"$2"-part1 "$1"p1;" \
522 "ln -f -s /dev/disk/by-path/"$2"-part9 "$1"p9;" \
523 ) }' $SRC_PATH
524 cd ${PWD}
525 else
526 DST_FILE=`basename ${SRC_PATH} | cut -f1-2 -d'.'`
527 DST_PATH=/etc/zfs/${DST_FILE}
528
529 if [ -e ${DST_PATH} ]; then
530 die "Error: Config ${DST_PATH} already exists"
531 fi
532
533 cp ${SRC_PATH} ${DST_PATH}
534 udev_trigger
535 fi
536
537 return 0
538 }
539
540 udev_cleanup() {
541 local SRC_PATH=$1
542
543 if [ ${INTREE} ]; then
544 PWD=`pwd`
545 cd ${DEVDIR}/
546 ${AWK} '!/^#/ && /./ { system( \
547 "rm -f "$1" "$1"p1 "$1"p9") }' $SRC_PATH
548 cd ${PWD}
549 fi
550
551 return 0
552 }
553
554 udev_cr2d() {
555 local CHANNEL=`echo "obase=16; $1+96" | bc`
556 local RANK=$2
557
558 printf "\x${CHANNEL}${RANK}"
559 }
560
561 udev_raid0_setup() {
562 local RANKS=$1
563 local CHANNELS=$2
564 local IDX=0
565
566 RAID0S=()
567 for RANK in `seq 1 ${RANKS}`; do
568 for CHANNEL in `seq 1 ${CHANNELS}`; do
569 DISK=`udev_cr2d ${CHANNEL} ${RANK}`
570 RAID0S[${IDX}]="${DEVDIR}/${DISK}"
571 let IDX=IDX+1
572 done
573 done
574
575 return 0
576 }
577
578 udev_raid10_setup() {
579 local RANKS=$1
580 local CHANNELS=$2
581 local IDX=0
582
583 RAID10S=()
584 for RANK in `seq 1 ${RANKS}`; do
585 for CHANNEL1 in `seq 1 2 ${CHANNELS}`; do
586 let CHANNEL2=CHANNEL1+1
587 DISK1=`udev_cr2d ${CHANNEL1} ${RANK}`
588 DISK2=`udev_cr2d ${CHANNEL2} ${RANK}`
589 GROUP="${DEVDIR}/${DISK1} ${DEVDIR}/${DISK2}"
590 RAID10S[${IDX}]="mirror ${GROUP}"
591 let IDX=IDX+1
592 done
593 done
594
595 return 0
596 }
597
598 udev_raidz_setup() {
599 local RANKS=$1
600 local CHANNELS=$2
601
602 RAIDZS=()
603 for RANK in `seq 1 ${RANKS}`; do
604 RAIDZ=("raidz")
605
606 for CHANNEL in `seq 1 ${CHANNELS}`; do
607 DISK=`udev_cr2d ${CHANNEL} ${RANK}`
608 RAIDZ[${CHANNEL}]="${DEVDIR}/${DISK}"
609 done
610
611 RAIDZS[${RANK}]="${RAIDZ[*]}"
612 done
613
614 return 0
615 }
616
617 udev_raidz2_setup() {
618 local RANKS=$1
619 local CHANNELS=$2
620
621 RAIDZ2S=()
622 for RANK in `seq 1 ${RANKS}`; do
623 RAIDZ2=("raidz2")
624
625 for CHANNEL in `seq 1 ${CHANNELS}`; do
626 DISK=`udev_cr2d ${CHANNEL} ${RANK}`
627 RAIDZ2[${CHANNEL}]="${DEVDIR}/${DISK}"
628 done
629
630 RAIDZ2S[${RANK}]="${RAIDZ2[*]}"
631 done
632
633 return 0
634 }
635
636 run_one_test() {
637 local TEST_NUM=$1
638 local TEST_NAME=$2
639
640 printf "%-4d %-34s " ${TEST_NUM} "${TEST_NAME}"
641 test_${TEST_NUM}
642 }
643
644 skip_one_test() {
645 local TEST_NUM=$1
646 local TEST_NAME=$2
647
648 printf "%-4d %-34s " ${TEST_NUM} "${TEST_NAME}"
649 skip
650 }
651
652 run_test() {
653 local TEST_NUM=$1
654 local TEST_NAME=$2
655
656 for i in ${TESTS_SKIP[@]}; do
657 if [[ $i == ${TEST_NUM} ]] ; then
658 skip_one_test ${TEST_NUM} "${TEST_NAME}"
659 return 0
660 fi
661 done
662
663 if [ "${TESTS_RUN[0]}" = "*" ]; then
664 run_one_test ${TEST_NUM} "${TEST_NAME}"
665 else
666 for i in ${TESTS_RUN[@]}; do
667 if [[ $i == ${TEST_NUM} ]] ; then
668 run_one_test ${TEST_NUM} "${TEST_NAME}"
669 return 0
670 fi
671 done
672
673 skip_one_test ${TEST_NUM} "${TEST_NAME}"
674 fi
675 }
676
677 wait_udev() {
678 local DEVICE=$1
679 local DELAY=$2
680 local COUNT=0
681
682 udev_trigger
683 while [ ! -e ${DEVICE} ]; do
684 if [ ${COUNT} -gt ${DELAY} ]; then
685 return 1
686 fi
687
688 let COUNT=${COUNT}+1
689 sleep 1
690 done
691
692 return 0
693 }
694
695 stack_clear() {
696 local STACK_MAX_SIZE=/sys/kernel/debug/tracing/stack_max_size
697 local STACK_TRACER_ENABLED=/proc/sys/kernel/stack_tracer_enabled
698
699 if [ -e $STACK_MAX_SIZE ]; then
700 echo 1 >$STACK_TRACER_ENABLED
701 echo 0 >$STACK_MAX_SIZE
702 fi
703 }
704
705 stack_check() {
706 local STACK_MAX_SIZE=/sys/kernel/debug/tracing/stack_max_size
707 local STACK_TRACE=/sys/kernel/debug/tracing/stack_trace
708 local STACK_LIMIT=7000
709
710 if [ -e $STACK_MAX_SIZE ]; then
711 STACK_SIZE=`cat $STACK_MAX_SIZE`
712
713 if [ $STACK_SIZE -ge $STACK_LIMIT ]; then
714 echo
715 echo "Warning: max stack size $STACK_SIZE bytes"
716 cat $STACK_TRACE
717 fi
718 fi
719 }