1 | #!/usr/bin/env bash
|
2 | #
|
3 | # Usage:
|
4 | # benchmarks/gc.sh <function name>
|
5 |
|
6 | set -o nounset
|
7 | set -o pipefail
|
8 | set -o errexit
|
9 |
|
10 | REPO_ROOT=$(cd "$(dirname $0)/.."; pwd)
|
11 |
|
12 | source benchmarks/common.sh # benchmark-html-head
|
13 | source benchmarks/cachegrind.sh # with-cachegrind
|
14 | source build/dev-shell.sh # R_LIBS_USER
|
15 | source test/tsv-lib.sh
|
16 |
|
17 | readonly BASE_DIR=_tmp/gc
|
18 |
|
19 | # duplicated in benchmarks/gc-cachegrind.sh
|
20 | readonly BASE_DIR_CACHEGRIND=_tmp/gc-cachegrind
|
21 |
|
22 | # See benchmarks/gperftools.sh. I think the Ubuntu package is very old
|
23 |
|
24 | download-tcmalloc() {
|
25 | # TODO: move this to ../oil_DEPS ?
|
26 | wget --directory _deps \
|
27 | https://github.com/gperftools/gperftools/releases/download/gperftools-2.10/gperftools-2.10.tar.gz
|
28 |
|
29 | # Then ./configure; make; sudo make install
|
30 | # installs in /usr/local/lib
|
31 |
|
32 | # Note: there's a warning about libunwind -- maybe install that first. Does
|
33 | # it only apply to CPU profiles?
|
34 | }
|
35 |
|
36 | debug-tcmalloc() {
|
37 | touch mycpp/marksweep_heap.cc
|
38 |
|
39 | # No evidence of difference
|
40 | for bin in _bin/cxx-{opt,opt+tcmalloc}/osh; do
|
41 | echo $bin
|
42 | ninja $bin
|
43 |
|
44 | ldd $bin
|
45 | echo
|
46 |
|
47 | ls -l $bin
|
48 | echo
|
49 |
|
50 | # Check what we're linking against
|
51 | nm $bin | egrep -i 'malloc|calloc'
|
52 | #wc -l
|
53 | echo
|
54 | done
|
55 | }
|
56 |
|
57 | install-m32() {
|
58 | # needed to compile with -m32
|
59 | sudo apt-get install gcc-multilib g++-multilib
|
60 | }
|
61 |
|
62 | max-rss() {
|
63 | # %e is real time
|
64 | /usr/bin/time --format '%e %M' -- "$@"
|
65 | }
|
66 |
|
67 | compare-m32() {
|
68 | for bin in _bin/cxx-opt{,32}/osh; do
|
69 | echo $bin
|
70 | ninja $bin
|
71 |
|
72 | ldd $bin
|
73 | echo
|
74 |
|
75 | file $bin
|
76 | echo
|
77 |
|
78 | ls -l $bin
|
79 | echo
|
80 |
|
81 | # 141136 KiB vs. 110924 KiB. Significant savings, but it's slower.
|
82 | max-rss $bin --ast-format none -n benchmarks/testdata/configure-coreutils
|
83 |
|
84 | done
|
85 | }
|
86 |
|
87 | banner() {
|
88 | echo -----
|
89 | echo "$@"
|
90 | }
|
91 |
|
92 | print-tasks() {
|
93 | local -a workloads=(
|
94 | parse.configure-coreutils
|
95 | parse.configure-cpython
|
96 | parse.abuild
|
97 | ex.bashcomp-parse-help # only runs with bash
|
98 | ex.abuild-print-help # bash / dash / zsh
|
99 | ex.compute-fib # bash / dash / zsh
|
100 | )
|
101 |
|
102 | local -a shells=(
|
103 | "bash$TAB-"
|
104 | "dash$TAB-"
|
105 | "zsh$TAB-"
|
106 |
|
107 | "_bin/cxx-opt+bumpleak/osh${TAB}mut"
|
108 | "_bin/cxx-opt+bumproot/osh${TAB}mut"
|
109 |
|
110 | "_bin/cxx-opt+bumpsmall/osh${TAB}mut+alloc"
|
111 | "_bin/cxx-opt+nopool/osh${TAB}mut+alloc"
|
112 | "_bin/cxx-opt+nopool/osh${TAB}mut+alloc+free+gc"
|
113 |
|
114 | # these have trivial GC stats
|
115 | "_bin/cxx-opt/osh${TAB}mut+alloc"
|
116 | "_bin/cxx-opt/osh${TAB}mut+alloc+free"
|
117 | # good GC stats
|
118 | "_bin/cxx-opt/osh${TAB}mut+alloc+free+gc"
|
119 | "_bin/cxx-opt/osh${TAB}mut+alloc+free+gc+exit"
|
120 | )
|
121 |
|
122 | if test -n "${TCMALLOC:-}"; then
|
123 | shells+=(
|
124 | "_bin/cxx-opt+tcmalloc/osh${TAB}mut+alloc"
|
125 | "_bin/cxx-opt+tcmalloc/osh${TAB}mut+alloc+free"
|
126 | "_bin/cxx-opt+tcmalloc/osh${TAB}mut+alloc+free+gc"
|
127 | )
|
128 | fi
|
129 |
|
130 | local id=0
|
131 |
|
132 | for workload in "${workloads[@]}"; do
|
133 | for shell in "${shells[@]}"; do
|
134 | local row_part="$workload${TAB}$shell"
|
135 |
|
136 | # Skip these rows
|
137 | case $row_part in
|
138 | "ex.bashcomp-parse-help${TAB}dash"*)
|
139 | continue
|
140 | ;;
|
141 | "ex.bashcomp-parse-help${TAB}zsh"*)
|
142 | continue
|
143 | ;;
|
144 | esac
|
145 |
|
146 | local join_id="gc-$id"
|
147 | local row="$join_id${TAB}$row_part"
|
148 | echo "$row"
|
149 |
|
150 | id=$((id + 1))
|
151 |
|
152 | done
|
153 |
|
154 | # Run a quick 10 tasks
|
155 | if test -n "${QUICKLY:-}" && test $id -gt 10; then
|
156 | break
|
157 | fi
|
158 | done
|
159 | }
|
160 |
|
161 | print-cachegrind-tasks() {
|
162 | local -a workloads=(
|
163 | # coreutils is on osh-parser
|
164 | #parse.configure-coreutils
|
165 |
|
166 | #parse.configure-cpython
|
167 |
|
168 | # Faster tasks, like benchmarks/uftrace, which is instrumented
|
169 | parse.abuild
|
170 | ex.compute-fib
|
171 | )
|
172 |
|
173 | local -a shells=(
|
174 | "bash${TAB}-"
|
175 | "_bin/cxx-opt+bumpleak/osh${TAB}mut"
|
176 | "_bin/cxx-opt+bumproot/osh${TAB}mut"
|
177 |
|
178 | "_bin/cxx-opt+bumpsmall/osh${TAB}mut+alloc"
|
179 | "_bin/cxx-opt+nopool/osh${TAB}mut+alloc"
|
180 | "_bin/cxx-opt+nopool/osh${TAB}mut+alloc+free+gc"
|
181 |
|
182 | "_bin/cxx-opt/osh${TAB}mut+alloc"
|
183 | "_bin/cxx-opt/osh${TAB}mut+alloc+free"
|
184 | "_bin/cxx-opt/osh${TAB}mut+alloc+free+gc"
|
185 | "_bin/cxx-opt/osh${TAB}mut+alloc+free+gc+exit"
|
186 | )
|
187 |
|
188 | local id=0
|
189 | for workload in "${workloads[@]}"; do
|
190 | for shell in "${shells[@]}"; do
|
191 | local row_part="$workload${TAB}$shell"
|
192 |
|
193 | local join_id="cachegrind-$id"
|
194 | local row="$join_id${TAB}$row_part"
|
195 | echo "$row"
|
196 |
|
197 | id=$((id + 1))
|
198 | done
|
199 | done
|
200 | #print-tasks | egrep 'configure-coreutils' | egrep osh
|
201 | }
|
202 |
|
203 |
|
204 | readonly BIG_THRESHOLD=$(( 1 * 1000 * 1000 * 1000 )) # 1 B
|
205 |
|
206 | run-tasks() {
|
207 | local tsv_out=$1
|
208 | local mode=${2:-time}
|
209 |
|
210 | while read -r join_id task sh_path shell_runtime_opts; do
|
211 |
|
212 | # Parse different files
|
213 | case $task in
|
214 | parse.configure-coreutils)
|
215 | data_file='benchmarks/testdata/configure-coreutils'
|
216 | ;;
|
217 | parse.configure-cpython)
|
218 | data_file='Python-2.7.13/configure'
|
219 | ;;
|
220 | parse.abuild)
|
221 | data_file='benchmarks/testdata/abuild'
|
222 | ;;
|
223 | esac
|
224 |
|
225 | # Construct argv for each task
|
226 | local -a argv
|
227 | case $task in
|
228 | parse.*)
|
229 | argv=( -n $data_file )
|
230 |
|
231 | case $sh_path in
|
232 | _bin/*/osh)
|
233 | argv=( --ast-format none "${argv[@]}" )
|
234 | ;;
|
235 | esac
|
236 | ;;
|
237 |
|
238 | ex.bashcomp-parse-help)
|
239 | argv=( benchmarks/parse-help/pure-excerpt.sh parse_help_file
|
240 | benchmarks/parse-help/clang.txt )
|
241 | ;;
|
242 |
|
243 | ex.abuild-print-help)
|
244 | argv=( testdata/osh-runtime/abuild -h )
|
245 | ;;
|
246 |
|
247 | ex.compute-fib)
|
248 | # fewer iterations when instrumented
|
249 | local iters
|
250 | if test $mode = time; then
|
251 | iters=100
|
252 | else
|
253 | iters=10
|
254 | fi
|
255 |
|
256 | argv=( benchmarks/compute/fib.sh $iters 44 )
|
257 | ;;
|
258 |
|
259 | *)
|
260 | die "Invalid task $task"
|
261 | ;;
|
262 | esac
|
263 |
|
264 | echo $join_id $task $sh_path $shell_runtime_opts
|
265 |
|
266 | argv=( $sh_path "${argv[@]}" )
|
267 | #echo + "${argv[@]}"
|
268 | #set -x
|
269 |
|
270 | if test $mode = cachegrind; then
|
271 | # Add prefix
|
272 | argv=( $0 with-cachegrind $BASE_DIR_CACHEGRIND/raw/$join_id.txt "${argv[@]}" )
|
273 | fi
|
274 |
|
275 | # Wrap in a command that writes one row of a TSV
|
276 | # Note: for cachegrind, we need the join ID, but the --rusage is meaningless
|
277 | local -a instrumented=(
|
278 | time-tsv -o $tsv_out --append
|
279 | --rusage
|
280 | --field "$join_id" --field "$task" --field "$sh_path"
|
281 | --field "$shell_runtime_opts"
|
282 | -- "${argv[@]}"
|
283 | )
|
284 |
|
285 | # Run with the right environment variables
|
286 |
|
287 | case $shell_runtime_opts in
|
288 | -)
|
289 | "${instrumented[@]}" > /dev/null
|
290 | ;;
|
291 | mut)
|
292 | OILS_GC_STATS=1 \
|
293 | "${instrumented[@]}" > /dev/null
|
294 | ;;
|
295 | mut+alloc)
|
296 | # disable GC with big threshold
|
297 | OILS_GC_STATS=1 OILS_GC_THRESHOLD=$BIG_THRESHOLD \
|
298 | "${instrumented[@]}" > /dev/null
|
299 | ;;
|
300 | mut+alloc+free)
|
301 | # do a single GC on exit
|
302 | OILS_GC_STATS=1 OILS_GC_THRESHOLD=$BIG_THRESHOLD OILS_GC_ON_EXIT=1 \
|
303 | "${instrumented[@]}" > /dev/null
|
304 | ;;
|
305 | mut+alloc+free+gc)
|
306 | # Default configuration
|
307 | #
|
308 | # Save the GC stats here. None of the other runtime options are that
|
309 | # interesting.
|
310 |
|
311 | if test $mode = 'time' && test $sh_path != _bin/cxx-opt+nopool/osh; then
|
312 | OILS_GC_STATS_FD=99 \
|
313 | "${instrumented[@]}" > /dev/null 99>$BASE_DIR/raw/$join_id.txt
|
314 | else
|
315 | "${instrumented[@]}" > /dev/null
|
316 | fi
|
317 | ;;
|
318 | mut+alloc+free+gc+exit)
|
319 | # also GC on exit
|
320 | OILS_GC_STATS=1 OILS_GC_ON_EXIT=1 \
|
321 | "${instrumented[@]}" > /dev/null
|
322 | ;;
|
323 |
|
324 | *)
|
325 | die "Invalid shell runtime opts $shell_runtime_opts"
|
326 | ;;
|
327 | esac
|
328 |
|
329 | done
|
330 |
|
331 | # TODO: OILS_GC_STATS_FD and tsv_column_from_files.py
|
332 | }
|
333 |
|
334 | fd-demo() {
|
335 | local out=_tmp/gc/demo.txt
|
336 |
|
337 | local bin=_bin/cxx-dbg/oils-for-unix
|
338 | ninja $bin
|
339 |
|
340 | # Hm you can't do $fd>out.txt, but that's OK
|
341 | local fd=99
|
342 |
|
343 | OILS_GC_STATS_FD=$fd 99>$out \
|
344 | $bin --ast-format none -n benchmarks/testdata/configure
|
345 |
|
346 | ls -l $out
|
347 | cat $out
|
348 | }
|
349 |
|
350 | more-variants() {
|
351 | # TODO: could revive this
|
352 |
|
353 | case $compare_more in
|
354 | (*m32*)
|
355 | # Surprisingly, -m32 is SLOWER, even though it allocates less.
|
356 | # My guess is because less work is going into maintaining this code path in
|
357 | # GCC.
|
358 |
|
359 | # 223 ms
|
360 | # 61.9 MB bytes allocated
|
361 | local bin=_bin/cxx-opt32/oils-for-unix
|
362 | OILS_GC_THRESHOLD=$big_threshold \
|
363 | run-osh $tsv_out $bin 'm32 mutator+malloc' $file
|
364 |
|
365 | # 280 ms
|
366 | OILS_GC_STATS=1 \
|
367 | run-osh $tsv_out $bin 'm32 mutator+malloc+free+gc' $file
|
368 | ;;
|
369 | esac
|
370 |
|
371 | # Show log of GC
|
372 | case $compare_more in
|
373 | (*gcverbose*)
|
374 | local bin=_bin/cxx-gcverbose/oils-for-unix
|
375 | # 280 ms
|
376 | OILS_GC_STATS=1 OILS_GC_ON_EXIT=1 \
|
377 | run-osh $tsv_out $bin 'gcverbose mutator+malloc+free+gc' $file
|
378 | ;;
|
379 | esac
|
380 |
|
381 | if command -v pretty-tsv; then
|
382 | pretty-tsv $tsv_out
|
383 | fi
|
384 | }
|
385 |
|
386 | build-binaries() {
|
387 | if true; then
|
388 |
|
389 | soil/cpp-tarball.sh build-like-ninja \
|
390 | opt{,+bumpleak,+bumproot,+bumpsmall,+nopool}
|
391 |
|
392 | else
|
393 |
|
394 | # Old Ninja build
|
395 | local -a bin=( _bin/cxx-opt{,+bumpleak,+bumproot,+bumpsmall,+nopool}/osh )
|
396 |
|
397 | if test -n "${TCMALLOC:-}"; then
|
398 | bin+=( _bin/cxx-opt+tcmalloc/osh )
|
399 | fi
|
400 | ninja "${bin[@]}"
|
401 | fi
|
402 | }
|
403 |
|
404 | measure-all() {
|
405 | build-binaries
|
406 |
|
407 | local tsv_out=${1:-$BASE_DIR/raw/times.tsv}
|
408 | mkdir -p $(dirname $tsv_out)
|
409 |
|
410 | # Make the header
|
411 | time-tsv -o $tsv_out --print-header \
|
412 | --rusage --field join_id --field task --field sh_path --field shell_runtime_opts
|
413 |
|
414 | time print-tasks | run-tasks $tsv_out
|
415 |
|
416 | if command -v pretty-tsv; then
|
417 | pretty-tsv $tsv_out
|
418 | fi
|
419 | }
|
420 |
|
421 | measure-cachegrind() {
|
422 | build-binaries
|
423 |
|
424 | local tsv_out=${1:-$BASE_DIR_CACHEGRIND/raw/times.tsv}
|
425 |
|
426 | mkdir -p $(dirname $tsv_out)
|
427 |
|
428 | # Make the header
|
429 | time-tsv -o $tsv_out --print-header \
|
430 | --rusage --field join_id --field task --field sh_path --field shell_runtime_opts
|
431 |
|
432 | print-cachegrind-tasks | run-tasks $tsv_out cachegrind
|
433 |
|
434 | # TODO: join cachegrind columns
|
435 |
|
436 | if command -v pretty-tsv; then
|
437 | pretty-tsv $tsv_out
|
438 | fi
|
439 | }
|
440 |
|
441 | print-report() {
|
442 | local in_dir=$1
|
443 |
|
444 | benchmark-html-head 'Memory Management Overhead'
|
445 |
|
446 | cat <<EOF
|
447 | <body class="width60">
|
448 | <p id="home-link">
|
449 | <a href="/">oilshell.org</a>
|
450 | </p>
|
451 | EOF
|
452 |
|
453 | cmark << 'EOF'
|
454 | ## Memory Management Overhead
|
455 |
|
456 | Source code: [oil/benchmarks/gc.sh](https://github.com/oilshell/oil/tree/master/benchmarks/gc.sh)
|
457 | EOF
|
458 |
|
459 | cmark << 'EOF'
|
460 | ### GC Stats
|
461 |
|
462 | EOF
|
463 |
|
464 | tsv2html $in_dir/gc_stats.tsv
|
465 |
|
466 | cmark << 'EOF'
|
467 |
|
468 | - Underlying data: [stage2/gc_stats.tsv](stage2/gc_stats.tsv)
|
469 | - More columns: [stage1/gc_stats.tsv](stage1/gc_stats.tsv)
|
470 |
|
471 | ### Resource Usage
|
472 |
|
473 | #### parse.configure-cpython
|
474 |
|
475 | EOF
|
476 |
|
477 | tsv2html $in_dir/parse.configure-cpython.tsv
|
478 |
|
479 | cmark << 'EOF'
|
480 | #### parse.configure-coreutils
|
481 |
|
482 | Parsing the autoconf-generated `configure` script from GNU coreutils.
|
483 |
|
484 | Note that unlike other shells, `osh -n` retains all nodes on purpose. (See the
|
485 | [parser benchmark](../osh-parser/index.html)).
|
486 |
|
487 | EOF
|
488 |
|
489 | tsv2html $in_dir/parse.configure-coreutils.tsv
|
490 |
|
491 | cmark <<'EOF'
|
492 | #### parse.abuild
|
493 |
|
494 | Parsing `abuild` from Alpine Linux.
|
495 | EOF
|
496 |
|
497 | tsv2html $in_dir/parse.abuild.tsv
|
498 |
|
499 | cmark <<'EOF'
|
500 | #### ex.compute-fib
|
501 |
|
502 | A synthetic benchmark for POSIX shell arithmetic.
|
503 | EOF
|
504 |
|
505 | tsv2html $in_dir/ex.compute-fib.tsv
|
506 |
|
507 | cmark <<'EOF'
|
508 | #### ex.bashcomp-parse-help
|
509 |
|
510 | A realistic `bash-completion` workload.
|
511 | EOF
|
512 |
|
513 | tsv2html $in_dir/ex.bashcomp-parse-help.tsv
|
514 |
|
515 | cmark <<'EOF'
|
516 | #### ex.abuild-print-help
|
517 |
|
518 | Running `abuild -h` from Alpine Linux.
|
519 |
|
520 | EOF
|
521 |
|
522 | tsv2html $in_dir/ex.abuild-print-help.tsv
|
523 |
|
524 | cmark << 'EOF'
|
525 | - Underlying data: [stage2/times.tsv](stage2/times.tsv)
|
526 | EOF
|
527 |
|
528 | cat <<EOF
|
529 |
|
530 | </body>
|
531 | </html>
|
532 | EOF
|
533 | }
|
534 |
|
535 | make-report() {
|
536 | mkdir -p $BASE_DIR/{stage1,stage2}
|
537 |
|
538 | # Concatenate tiny files
|
539 | benchmarks/gc_stats_to_tsv.py $BASE_DIR/raw/gc-*.txt \
|
540 | > $BASE_DIR/stage1/gc_stats.tsv
|
541 |
|
542 | # Make TSV files
|
543 | benchmarks/report.R gc $BASE_DIR $BASE_DIR/stage2
|
544 |
|
545 | # Make HTML
|
546 | benchmarks/report.sh stage3 $BASE_DIR
|
547 | }
|
548 |
|
549 | soil-run() {
|
550 | ### Run in soil/benchmarks
|
551 |
|
552 | measure-all
|
553 |
|
554 | make-report
|
555 | }
|
556 |
|
557 | #
|
558 | # Misc Tests
|
559 | #
|
560 |
|
561 | gc-parse-smoke() {
|
562 | local variant=${1:-opt}
|
563 | local file=${2:-configure}
|
564 |
|
565 | local bin=_bin/cxx-$variant/osh
|
566 | ninja $bin
|
567 |
|
568 | # OILS_GC_THRESHOLD=1000 OILS_GC_ON_EXIT=1 \
|
569 | time _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 \
|
570 | $bin --ast-format none -n $file
|
571 |
|
572 | # No leaks
|
573 | # OILS_GC_STATS=1 OILS_GC_THRESHOLD=1000 OILS_GC_ON_EXIT=1 $bin -n -c '('
|
574 | }
|
575 |
|
576 | gc-parse-big() {
|
577 | local variant=${1:-opt}
|
578 |
|
579 | gc-parse-smoke $variant benchmarks/testdata/configure-coreutils
|
580 | }
|
581 |
|
582 | gc-run-smoke() {
|
583 | local variant=${1:-opt}
|
584 |
|
585 | local bin=_bin/cxx-$variant/oils-for-unix
|
586 | ninja $bin
|
587 |
|
588 | # expose a bug with printf
|
589 | _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 OILS_GC_THRESHOLD=500 OILS_GC_ON_EXIT=1 \
|
590 | $bin -c 'for i in $(seq 100); do printf "%s\\n" "-- $i"; done'
|
591 | }
|
592 |
|
593 | gc-run-oil() {
|
594 | ### Run some scripts from the repo
|
595 |
|
596 | local variant=${1:-opt}
|
597 |
|
598 | local bin=_bin/cxx-$variant/oils-for-unix
|
599 | ninja $bin
|
600 |
|
601 | local i=0
|
602 | for script in */*.sh; do
|
603 | case $script in
|
604 | (build/clean.sh|build/common.sh|build/dev.sh)
|
605 | # Top level does something!
|
606 | echo "=== SKIP $script"
|
607 | continue
|
608 | ;;
|
609 | esac
|
610 |
|
611 | echo
|
612 | echo "=== ($i) $script"
|
613 |
|
614 | # Just run the top level, which (hopefully) does nothing
|
615 | _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 OILS_GC_THRESHOLD=1000 OILS_GC_ON_EXIT=1 \
|
616 | $bin $script
|
617 |
|
618 | i=$((i + 1))
|
619 | if test $i -gt 60; then
|
620 | break
|
621 | fi
|
622 | done
|
623 | }
|
624 |
|
625 | gc-run-big() {
|
626 | local variant=${1:-opt}
|
627 |
|
628 | local target=_bin/cxx-$variant/oils-for-unix
|
629 | ninja $target
|
630 |
|
631 | local osh=$REPO_ROOT/$target
|
632 |
|
633 | local dir=_tmp/gc-run-big
|
634 | rm -r -f -v $dir
|
635 | mkdir -v -p $dir
|
636 |
|
637 | pushd $dir
|
638 | time _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 OILS_GC_THRESHOLD=100000 OILS_GC_ON_EXIT=1 \
|
639 | $osh ../../Python-2.7.13/configure
|
640 | popd
|
641 | }
|
642 |
|
643 | run-verbose() {
|
644 | _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 \
|
645 | /usr/bin/time --format '*** MAX RSS KiB = %M' -- \
|
646 | "$@"
|
647 | }
|
648 |
|
649 | # This hit the 24-bit object ID limitation in 2.5 seconds
|
650 | # Should be able to run indefinitely.
|
651 | run-for-a-long-time() {
|
652 | local bin=_bin/cxx-opt/osh
|
653 | ninja $bin
|
654 | run-verbose $bin benchmarks/compute/fib.sh 10000
|
655 |
|
656 | # time _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 _bin/cxx-opt/osh benchmarks/compute/fib.sh 10000
|
657 | }
|
658 |
|
659 | while-loop() {
|
660 | local i=0
|
661 | while test $i -lt 10000; do
|
662 | if ((i % 1000 == 0)) ; then
|
663 | echo $i
|
664 | fi
|
665 | i=$((i + 1))
|
666 | continue # BUG: skipped GC point
|
667 | done
|
668 | }
|
669 |
|
670 | for-loop() {
|
671 | for i in $(seq 10000); do
|
672 | if ((i % 1000 == 0)) ; then
|
673 | echo $i
|
674 | fi
|
675 | continue
|
676 | done
|
677 | }
|
678 |
|
679 | recurse() {
|
680 | local n=${1:-3000}
|
681 |
|
682 | if ((n % 100 == 0)) ; then
|
683 | echo $n
|
684 | fi
|
685 |
|
686 | if test $n = 0; then
|
687 | return
|
688 | fi
|
689 |
|
690 | recurse $((n - 1))
|
691 | }
|
692 |
|
693 | test-loops() {
|
694 | ### Regression for leak
|
695 |
|
696 | local bin=_bin/cxx-opt/osh
|
697 | ninja $bin
|
698 |
|
699 | run-verbose $bin $0 recurse
|
700 | echo
|
701 |
|
702 | run-verbose $bin $0 while-loop
|
703 | echo
|
704 |
|
705 | run-verbose $bin $0 for-loop
|
706 | }
|
707 |
|
708 | expand-loop() {
|
709 | local n=$1
|
710 |
|
711 | local bin=_bin/cxx-opt/osh
|
712 | ninja $bin
|
713 |
|
714 | set -x
|
715 | time _OILS_GC_VERBOSE=1 OILS_GC_STATS=1 \
|
716 | $bin -c "for i in {1..$n}; do echo \$i; done > /dev/null"
|
717 | set +x
|
718 | }
|
719 |
|
720 | test-brace-exp() {
|
721 | expand-loop 330000
|
722 | expand-loop 340000
|
723 | }
|
724 |
|
725 | "$@"
|