From patchwork Sat Oct 25 00:12:43 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Yao Qi X-Patchwork-Id: 3363 Received: (qmail 18165 invoked by alias); 25 Oct 2014 00:17:58 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 18053 invoked by uid 89); 25 Oct 2014 00:17:57 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.7 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE autolearn=ham version=3.3.2 X-HELO: relay1.mentorg.com Received: from relay1.mentorg.com (HELO relay1.mentorg.com) (192.94.38.131) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sat, 25 Oct 2014 00:17:56 +0000 Received: from svr-orw-fem-06.mgc.mentorg.com ([147.34.97.120]) by relay1.mentorg.com with esmtp id 1Xhp3J-0004pc-5l from Yao_Qi@mentor.com for gdb-patches@sourceware.org; Fri, 24 Oct 2014 17:17:53 -0700 Received: from qiyao.dyndns.org.com (147.34.91.1) by SVR-ORW-FEM-06.mgc.mentorg.com (147.34.97.120) with Microsoft SMTP Server id 14.3.181.6; Fri, 24 Oct 2014 17:17:52 -0700 From: Yao Qi To: Subject: [PATCH 1/6] New proc _handle_attribute Date: Sat, 25 Oct 2014 08:12:43 +0800 Message-ID: <1414195968-3333-2-git-send-email-yao@codesourcery.com> In-Reply-To: <1414195968-3333-1-git-send-email-yao@codesourcery.com> References: <1414195968-3333-1-git-send-email-yao@codesourcery.com> MIME-Version: 1.0 X-IsSubscribed: yes This patch is to move some code to a new procedure _handle_attribute, which will be used in my following patches. gdb/testsuite: 2014-10-24 Yao Qi * lib/dwarf.exp (_handle_DW_TAG): Move some code to ... (_handle_attribute): New procedure. --- gdb/testsuite/lib/dwarf.exp | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp index 1483271..4986f83 100644 --- a/gdb/testsuite/lib/dwarf.exp +++ b/gdb/testsuite/lib/dwarf.exp @@ -461,6 +461,18 @@ namespace eval Dwarf { return $name } + proc _handle_attribute { attr_name attr_value attr_form } { + variable _abbrev_section + variable _constants + + _handle_DW_FORM $attr_form $attr_value + + _defer_output $_abbrev_section { + _op .uleb128 $_constants($attr_name) $attr_name + _op .uleb128 $_constants($attr_form) $attr_form + } + } + proc _handle_DW_TAG {tag_name {attrs {}} {children {}}} { variable _abbrev_section variable _abbrev_num @@ -489,12 +501,7 @@ namespace eval Dwarf { } set attr_form [_map_name $attr_form _FORM] - _handle_DW_FORM $attr_form $attr_value - - _defer_output $_abbrev_section { - _op .uleb128 $_constants($attr_name) $attr_name - _op .uleb128 $_constants($attr_form) $attr_form - } + _handle_attribute $attr_name $attr_value $attr_form } _defer_output $_abbrev_section {