OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

New proc _handle_attribute 

This patch is to move some code to a new procedure _handle_attribute,
which will be used in my following patches.

gdb/testsuite:

2014-11-14  Yao Qi  <yao@codesourcery.com>

	* lib/dwarf.exp (_handle_DW_TAG): Move some code to ...
	(_handle_attribute): New procedure.
This commit is contained in:
Yao Qi 2014-11-14 08:53:08 +08:00
parent a8719064e8
commit 02ad9cf101
2 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2014-11-14 Yao Qi <yao@codesourcery.com>
* lib/dwarf.exp (_handle_DW_TAG): Move some code to ...
(_handle_attribute): New procedure.
2014-11-13 Andreas Arnez <arnez@linux.vnet.ibm.com>
* gdb.ada/cond_lang/foo.c (callme): Add return type.

19
gdb/testsuite/lib/dwarf.exp
View File

@ -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 {