From 8b5e6dc2178814b2506793473347073061310ba7 Mon Sep 17 00:00:00 2001 From: Yao Qi Date: Mon, 26 Aug 2013 22:09:12 +0800 Subject: [PATCH] GDB perf test on disassemble This patch adds a test case to test the performance of GDB doing disassembly. gdb/testsuite/ 2013-11-28 Yao Qi * lib/gdb.exp (with_gdb_prompt): New proc. * gdb.perf/disassemble.exp: New. * gdb.perf/disassemble.py: New. --- gdb/testsuite/ChangeLog | 6 +++ gdb/testsuite/gdb.perf/disassemble.exp | 57 ++++++++++++++++++++++++++ gdb/testsuite/gdb.perf/disassemble.py | 38 +++++++++++++++++ gdb/testsuite/lib/gdb.exp | 26 ++++++++++++ 4 files changed, 127 insertions(+) create mode 100644 gdb/testsuite/gdb.perf/disassemble.exp create mode 100644 gdb/testsuite/gdb.perf/disassemble.py diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a778544810c..8697d639a99 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2013-11-28 Yao Qi + + * lib/gdb.exp (with_gdb_prompt): New proc. + * gdb.perf/disassemble.exp: New. + * gdb.perf/disassemble.py: New. + 2013-11-26 Luis Machado * gdb.base/callfuncs.c (main): Assign malloc's return value diff --git a/gdb/testsuite/gdb.perf/disassemble.exp b/gdb/testsuite/gdb.perf/disassemble.exp new file mode 100644 index 00000000000..8f07a5903bf --- /dev/null +++ b/gdb/testsuite/gdb.perf/disassemble.exp @@ -0,0 +1,57 @@ +# Copyright (C) 2013 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# This test case is to test the speed of GDB when it is doing disassemble +# some large functions in GDB. +load_lib perftest.exp + +if [skip_perf_tests] { + return 0 +} + +global GDB + +standard_testfile .c +# Overwrite $binfile +set binfile $GDB + +PerfTest::assemble { + # Don't have compilation step. + return 0 +} { + global srcdir subdir + global binfile + + gdb_exit + gdb_start + gdb_reinitialize_dir $srcdir/$subdir + + # When GDB is debugging GDB, the prompt is changed to "(top-gdb) ". + # In order to avoid the confusion of pattern matching, set the + # gdb_prompt to '(top-gdb)' temporarily. + with_gdb_prompt "\\(top-gdb\\)" { + gdb_load ${binfile} + } + + # The prompt of both parent GDB and child GDB is '(gdb)', but + # child GDB's prompt doesn't confuse pattern matching because but + # we only run to main function of child GDB, so child GDB's + # prompt can't be printed out. + if ![runto_main] { + return -1 + } +} { + gdb_test "python Disassemble\(\).run()" +} diff --git a/gdb/testsuite/gdb.perf/disassemble.py b/gdb/testsuite/gdb.perf/disassemble.py new file mode 100644 index 00000000000..da8079e8fcf --- /dev/null +++ b/gdb/testsuite/gdb.perf/disassemble.py @@ -0,0 +1,38 @@ +# Copyright (C) 2013 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +from perftest import perftest + +class Disassemble(perftest.TestCaseWithBasicMeasurements): + def __init__(self): + super (Disassemble, self).__init__ ("disassemble") + + def warm_up(self): + do_test_command = "disassemble ada_evaluate_subexp" + gdb.execute (do_test_command, False, True) + + def _do_test(self, c): + for func in ["evaluate_subexp_standard", "handle_inferior_event", "c_parse_internal"]: + do_test_command = "disassemble %s" % func + for _ in range(c+1): + gdb.execute (do_test_command, False, True) + + def execute_test(self): + for i in range(3): + # Flush code cache. + gdb.execute("set code-cache off"); + gdb.execute("set code-cache on"); + self.measure.measure(lambda: self._do_test(i), i) + diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index b8b21ab1398..2c1cf299f5f 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1716,6 +1716,32 @@ proc with_test_prefix { prefix body } { } } +# Run tests in BODY with GDB prompt and variable $gdb_prompt set to +# PROMPT. When BODY is finished, restore GDB prompt and variable +# $gdb_prompt. +# Returns the result of BODY. + +proc with_gdb_prompt { prompt body } { + global gdb_prompt + + set saved $gdb_prompt + + set gdb_prompt $prompt + gdb_test_no_output "set prompt $prompt " "" + + set code [catch {uplevel 1 $body} result] + + set gdb_prompt $saved + gdb_test_no_output "set prompt $saved " "" + + if {$code == 1} { + global errorInfo errorCode + return -code $code -errorinfo $errorInfo -errorcode $errorCode $result + } else { + return -code $code $result + } +} + # Return 1 if _Complex types are supported, otherwise, return 0. gdb_caching_proc support_complex_tests { -- 2.30.2