riscv
/
dejagnu
mirror of https://gitee.com/Nocallback/dejagnu.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

* lib/targetdb.exp (add_board_info): New procedure. 

* doc/ref.xml (Add_board_info Procedure): New section.
	(Set_board_info Procedure): Add description.
	(Unset_board_info Procedure): Likewise.
	* doc/user.xml (Board Config File Values): Add `add_board_info'
	reference.  Reorder `gdb_init_command' table rows and remove a
	duplicate entry, reusing it for `gdb_init_commands'.

Signed-off-by: Ben Elliston <bje@gnu.org>
dejagnu-1.5.2
Maciej W. Rozycki 12 years ago
committed by Ben Elliston
parent
f4d01a7e99
commit
f53d3dc51d
5 changed files with 119 additions and 23 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 11
      ChangeLog
  2. 56
      doc/dejagnu.texi
  3. 43
      doc/ref.xml
  4. 23
      doc/user.xml
  5. 9
      lib/targetdb.exp

11
ChangeLog
View File

@ -1,3 +1,14 @@
2014-07-15 Maciej W. Rozycki <macro@mips.com>
Maciej W. Rozycki <macro@codesourcery.com>
* lib/targetdb.exp (add_board_info): New procedure.
* doc/ref.xml (Add_board_info Procedure): New section.
(Set_board_info Procedure): Add description.
(Unset_board_info Procedure): Likewise.
* doc/user.xml (Board Config File Values): Add `add_board_info'
reference. Reorder `gdb_init_command' table rows and remove a
duplicate entry, reusing it for `gdb_init_commands'.
2014-06-06 Ben Elliston <bje@gnu.org>
* depcomp, install-sh, missing: Update to latest versions.

56
doc/dejagnu.texi
View File

@ -2871,10 +2871,11 @@ procedures are the ones in square braces
@node Board File Values, Writing A Test Case, Adding A New Board, Extending DejaGnu
@section Board Config File Values
These fields are all in the @code{board_info} These are
all set by using the @code{set_board_info} procedure. The
parameters are the field name, followed by the value to set the field
to.
These fields are all in the @code{board_info} array.
These are all set by using the @code{set_board_info}
and @code{add_board_info} procedures as required. The
parameters are the field name, followed by the value that the field
is set to or is added to the field, respectively.
@strong{Common Board Info Fields}
@ -2937,8 +2938,6 @@ gdb_sect_offset@tab "0x41000000";@tab
@item
gdb_stub_ldscript@tab "-Wl,-Teva-stub.ld"@tab The linker script to use with a GDB stub.
@item
gdb_init_command@tab "set mipsfpu none"@tab
@item
gdb,cannot_call_functions@tab 1@tab Whether GDB can call functions on the target,
@item
gdb,noargs@tab 1@tab Whether the target can take command line arguments.
@ -2953,7 +2952,11 @@ gdb,target_sim_options@tab "-sparclite"@tab Special options to pass to the simul
@item
gdb,timeout@tab 540@tab Timeout value to use for remote communication.
@item
gdb_init_command@tab "print/x \$fsr = 0x0"@tab
gdb_init_command@tab "set mipsfpu none"@tab A single command to send to GDB before the program being
debugged is started.
@item
gdb_init_commands@tab "print/x \$fsr = 0x0"@tab Same as @emph{gdb_init_command}, except
that this is a list, more commands can be added.
@item
gdb_load_offset@tab "0x12020000"@tab
@item
@ -5828,6 +5831,7 @@ download.
* Board_info Procedure: board_info procedure.
* Host_info Procedure: host_info procedure.
* Set_board_info Procedure: set_board_info procedure.
* Add_board_info Procedure: add_board_info procedure.
* Set_currtarget_info Procedure: set_currtarget_info procedure.
* Target_info Procedure: target_info procedure.
* Unset_board_info Procedure: unset_board_info procedure.
@ -5880,9 +5884,12 @@ download.
@item @code{args}
@end table
@node set_board_info procedure, set_currtarget_info procedure, host_info procedure, target database library file
@node set_board_info procedure, add_board_info procedure, host_info procedure, target database library file
@subsubsection Set_board_info Procedure
This checks if @code{board_info} array's field
@emph{entry} has been set already and if not, then
sets it to @emph{value}.
@quotation
@ -5893,11 +5900,37 @@ download.
@table @asis
@item @code{entry}
The name of a @code{board_info} field
to operate on.
@item @code{value}
The value to set the field to.
@end table
@node set_currtarget_info procedure, target_info procedure, set_board_info procedure, target database library file
@node add_board_info procedure, set_currtarget_info procedure, set_board_info procedure, target database library file
@subsubsection Add_board_info Procedure
This treats @code{board_info} array's field
@emph{entry} as a TCL list and adds
@emph{value} at the end.
@quotation
@t{@b{add_board_info}(@i{entry}
@i{value});}
@end quotation
@table @asis
@item @code{entry}
The name of a @code{board_info} field
to operate on.
@item @code{value}
The value to add to the field.
@end table
@node set_currtarget_info procedure, target_info procedure, add_board_info procedure, target database library file
@subsubsection Set_currtarget_info Procedure
@ -5934,6 +5967,9 @@ download.
@node unset_board_info procedure, unset_currtarget_info procedure, target_info procedure, target database library file
@subsubsection Unset_board_info Procedure
This checks if @code{board_info} array's field
@emph{entry} has been set and if so, then removes
it.
@quotation
@ -5943,6 +5979,8 @@ download.
@table @asis
@item @code{entry}
The name of a @code{board_info} field
to operate on.
@end table
@node unset_currtarget_info procedure, push_target procedure, unset_board_info procedure, target database library file

43
doc/ref.xml
View File

@ -3104,7 +3104,9 @@
<sect4 id="setboardinfo" xreflabel="set_board_info procedure">
<title>Set_board_info Procedure</title>
<para></para>
<para>This checks if <symbol>board_info</symbol> array's field
<emphasis>entry</emphasis> has been set already and if not, then
sets it to <emphasis>value</emphasis>.</para>
<funcsynopsis role="tcl">
<funcprototype>
@ -3116,15 +3118,43 @@
<variablelist>
<varlistentry>
<term><parameter>entry</parameter></term>
<listitem><para></para></listitem>
<listitem><para>The name of a <symbol>board_info</symbol> field
to operate on.</para></listitem>
</varlistentry>
<varlistentry>
<term><parameter>value</parameter></term>
<listitem><para></para></listitem>
<listitem><para>The value to set the field to.</para></listitem>
</varlistentry>
</variablelist>
</sect4>
<sect4 id="addboardinfo" xreflabel="add_board_info procedure">
<title>Add_board_info Procedure</title>
<para>This treats <symbol>board_info</symbol> array's field
<emphasis>entry</emphasis> as a TCL list and adds
<emphasis>value</emphasis> at the end.</para>
<funcsynopsis role="tcl">
<funcprototype>
<funcdef><function>add_board_info</function></funcdef>
<paramdef><parameter>entry</parameter>
<parameter>value</parameter></paramdef>
</funcprototype>
</funcsynopsis>
<variablelist>
<varlistentry>
<term><parameter>entry</parameter></term>
<listitem><para>The name of a <symbol>board_info</symbol> field
to operate on.</para></listitem>
</varlistentry>
<varlistentry>
<term><parameter>value</parameter></term>
<listitem><para>The value to add to the field.</para></listitem>
</varlistentry>
</variablelist>
</sect4>
<sect4 id="setcurrtargetinfo" xreflabel="set_currtarget_info
procedure">
<title>Set_currtarget_info Procedure</title>
@ -3177,7 +3207,9 @@
<sect4 id="unsetboardinfo" xreflabel="unset_board_info procedure">
<title>Unset_board_info Procedure</title>
<para></para>
<para>This checks if <symbol>board_info</symbol> array's field
<emphasis>entry</emphasis> has been set and if so, then removes
it.</para>
<funcsynopsis role="tcl">
<funcprototype>
@ -3188,7 +3220,8 @@
<variablelist>
<varlistentry>
<term><parameter>entry</parameter></term>
<listitem><para></para></listitem>
<listitem><para>The name of a <symbol>board_info</symbol> field
to operate on.</para></listitem>
</varlistentry>
</variablelist>
</sect4>

23
doc/user.xml
View File

@ -2505,10 +2505,11 @@ powerpc-linux-gcc -g -O2 -o calc calc.o
<sect2 id="boarddefs" xreflabel="Board File Values">
<title>Board Config File Values</title>
<para>These fields are all in the <symbol>board_info</symbol> These are
all set by using the <function>set_board_info</function> procedure. The
parameters are the field name, followed by the value to set the field
to.</para>
<para>These fields are all in the <symbol>board_info</symbol> array.
These are all set by using the <function>set_board_info</function>
and <function>add_board_info</function> procedures as required. The
parameters are the field name, followed by the value that the field
is set to or is added to the field, respectively.</para>
<table frame="all" rowsep="0" colsep="0">
<title>Common Board Info Fields</title>
@ -2666,11 +2667,6 @@ powerpc-linux-gcc -g -O2 -o calc calc.o
<entry>The linker script to use with a GDB stub.</entry>
</row>
<row>
<entry>gdb_init_command</entry>
<entry>"set mipsfpu none"</entry>
</row>
<row>
<entry>gdb,cannot_call_functions</entry>
<entry>1</entry>
@ -2714,7 +2710,16 @@ powerpc-linux-gcc -g -O2 -o calc calc.o
<row>
<entry>gdb_init_command</entry>
<entry>"set mipsfpu none"</entry>
<entry>A single command to send to GDB before the program being
debugged is started.</entry>
</row>
<row>
<entry>gdb_init_commands</entry>
<entry>"print/x \$fsr = 0x0"</entry>
<entry>Same as <emphasis>gdb_init_command</emphasis>, except
that this is a list, more commands can be added.</entry>
</row>
<row>

9
lib/targetdb.exp
View File

@ -73,6 +73,15 @@ proc set_board_info { entry value } {
}
}
#
# Add VALUE to ENTRY for the current board being defined.
#
proc add_board_info { entry value } {
global board_info board
lappend board_info($board,$entry) $value
}
# Fill in ENTRY with VALUE for the current target.
#
proc set_currtarget_info { entry value } {

Write Preview
Loading…
Cancel
Save