target: fix error on TCL command "return" in target event handler 74/4974/3
authorAntonio Borneo <borneo.antonio@gmail.com>
Tue, 26 Feb 2019 08:57:14 +0000 (09:57 +0100)
committerTomas Vanek <vanekt@fbl.cz>
Thu, 13 Jun 2019 11:40:37 +0000 (12:40 +0100)
commit1af83682e0d7dbed0ba6db4b2bbf2542a4f9ab0d
treefdd273ada9c3a821241518722aa5683bbf436314
parente6990bdd00e80b48ba49e4b440c8d654a9431a34
target: fix error on TCL command "return" in target event handler

The TCL command "return" always returns error code JIM_RETURN, to
indicate that the effective error code and message are elsewhere.

In the current implementation, the caller of target's event only
checks for return code JIM_OK and considers any other value,
including JIM_RETURN, as an error condition, thus dumping the
call-trace. The execution is not stopped because the error is not
further propagated, but the error message is annoying and
misleading.

It can be tested running
openocd -f ./test.cfg
using the following script "test.cfg". You can replace the board
file in line 1, to use a board available in your lab:
  1 source [find board/st_nucleo_f4.cfg]
  2 [target current] configure -event reset-start {}
  3 [target current] configure -event reset-end {return}
  4 init
  5 proc a {} {[target current] invoke-event reset-start}
  6 proc b {} {[target current] invoke-event reset-end}
  7 proc c {} {a;b;echo "arrived at the end"}
  8 c
  9 shutdown
The execution produces:
./test.cfg:7: Error:
in procedure 'c' called at file "./test.cfg", line 8
in procedure 'b' called at file "./test.cfg", line 7

arrived at the end
that shows the call-trace but does not halt the execution.

The developer can avoid using the "return" command in the event
body by defining a TCL procedure that implements the handler and
that contains the "return" command, reducing the handler body to
a simple call to the procedure above. But this approach is either
not documented nor always intuitive while writing the handler,
causing waste of time to look for the false error.

Modify target_handle_event() to detect the specific return value
of the "return" command and to test the real error code that is,
eventually, specified to the TCL "return" command.

Change-Id: I2b860bab7233c6ed13ee4098e348d7533e1c4626
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Reviewed-on: http://openocd.zylin.com/4974
Tested-by: jenkins
Reviewed-by: Tomas Vanek <vanekt@fbl.cz>
src/target/target.c