diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-09-30 03:50:47 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-09-30 03:50:47 -0400 |
| commit | 856d318a9f543d8a61fcf61caae7d07102586802 (patch) | |
| tree | 10bd99500c027bbd472253f6cc34f8b1b516d4a1 /benchmark-suite | |
| parent | f7582f9807d9a10fba86f54c4aeaa7444c51a315 (diff) | |
| parent | 3157d455039f137ca5dfa8b9fbc4a3404ce00606 (diff) | |
Merge branch 'stable-2.0'
Conflicts:
benchmark-suite/benchmarks/ports.bm
libguile/async.h
libguile/bytevectors.c
libguile/foreign.c
libguile/gsubr.c
libguile/srfi-1.c
libguile/vm-engine.h
libguile/vm-i-scheme.c
module/Makefile.am
module/language/tree-il/analyze.scm
module/language/tree-il/peval.scm
module/scripts/compile.scm
module/scripts/disassemble.scm
test-suite/tests/asm-to-bytecode.test
test-suite/tests/peval.test
test-suite/tests/rdelim.test
Diffstat (limited to 'benchmark-suite')
| -rw-r--r-- | benchmark-suite/benchmarks/ports.bm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/benchmark-suite/benchmarks/ports.bm b/benchmark-suite/benchmarks/ports.bm index 0b1d7f5f3..417725531 100644 --- a/benchmark-suite/benchmarks/ports.bm +++ b/benchmark-suite/benchmarks/ports.bm @@ -1,6 +1,6 @@ ;;; ports.bm --- Port I/O. -*- mode: scheme; coding: utf-8; -*- ;;; -;;; Copyright (C) 2010, 2011, 2012, 2013 Free Software Foundation, Inc. +;;; Copyright (C) 2010-2014 Free Software Foundation, Inc. ;;; ;;; This program is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public License @@ -87,4 +87,9 @@ (let ((str (string-concatenate (make-list 1000 "one line\n")))) (benchmark "read-line" 1000 (let ((port (open-input-string str))) - (sequence (read-line port) 1000))))) + (sequence (read-line port) 1000)))) + + (let ((str (large-string "Hello, world.\n"))) + (benchmark "read-string" 200 + (let ((port (open-input-string str))) + (read-string port))))) |