summaryrefslogtreecommitdiff
path: root/gdb/reverse.c
blob: 29f7320c263f5aa93e61914d6edec4f493d15002 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
/* Reverse execution and reverse debugging.

   Copyright (C) 2006 Free Software Foundation, Inc.

   This file is part of GDB.

   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 2 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, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor,
   Boston, MA 02110-1301, USA.  */

#include "defs.h"
#include "gdb_string.h"
#include "target.h"
#include "top.h"
#include "cli/cli-cmds.h"
#include "cli/cli-decode.h"

/* User interface for reverse debugging:
   Set exec-direction / show exec-direction commands
   (returns error unles target implements to_set_execdir method).  */

static const char exec_forward[] = "forward";
static const char exec_reverse[] = "reverse";
static const char *exec_direction = exec_forward;
static const char *exec_direction_names[] = {
  exec_forward,
  exec_reverse,
  NULL
};

static void
set_exec_direction_func (char *args, int from_tty,
			 struct cmd_list_element *cmd)
{
  if (target_get_execution_direction () != EXEC_ERROR)
    {
      enum exec_direction_kind dir = EXEC_ERROR;

      if (!strcmp (exec_direction, exec_forward))
	dir = EXEC_FORWARD;
      else if (!strcmp (exec_direction, exec_reverse))
	dir = EXEC_REVERSE;

      if (target_set_execution_direction (dir) != EXEC_ERROR)
	return;
    }
  error (_("Target `%s' does not support execution-direction."),
	 target_shortname);
}

static void
show_exec_direction_func (struct ui_file *out, int from_tty,
			  struct cmd_list_element *cmd, const char *value)
{
  enum exec_direction_kind dir = target_get_execution_direction ();

  switch (dir) {
  case EXEC_FORWARD:
    fprintf_filtered (out, "Forward.\n");
    break;
  case EXEC_REVERSE:
    fprintf_filtered (out, "Reverse.\n");
    break;
  case EXEC_ERROR:
  default:
    error (_("Target `%s' does not support execution-direction."),
	   target_shortname);
    break;
  }
}

/* User interface:
   reverse-step, reverse-next etc.
   (returns error unles target implements to_set_execdir method).  */

static void execdir_default (void *notused)
{
  /* Return execution direction to default state.  */
  target_set_execution_direction (EXEC_FORWARD);
}

static void
exec_reverse_once (char *cmd, char *args, int from_tty)
{
  /* String buffer for command consing.  */
  char reverse_command[512];
  enum exec_direction_kind dir = target_get_execution_direction ();

  if (dir == EXEC_ERROR)
    error (_("Target %s does not support this command."), target_shortname);

  if (dir == EXEC_REVERSE)
    error (_("Already in reverse mode.  Use '%s' or 'set exec-dir forward'."),
	   cmd);

  if (target_set_execution_direction (EXEC_REVERSE) == EXEC_ERROR)
    error (_("Target %s does not support this command."), target_shortname);

  make_cleanup (execdir_default, NULL);
  sprintf (reverse_command, "%s %s", cmd, args ? args : "");
  execute_command (reverse_command, from_tty);
}

static void
reverse_step (char *args, int from_tty)
{
  exec_reverse_once ("step", args, from_tty);
}

static void
reverse_stepi (char *args, int from_tty)
{
  exec_reverse_once ("stepi", args, from_tty);
}

static void
reverse_next (char *args, int from_tty)
{
  exec_reverse_once ("next", args, from_tty);
}

static void
reverse_nexti (char *args, int from_tty)
{
  exec_reverse_once ("nexti", args, from_tty);
}

static void
reverse_continue (char *args, int from_tty)
{
  exec_reverse_once ("continue", args, from_tty);
}

static void
reverse_finish (char *args, int from_tty)
{
  exec_reverse_once ("finish", args, from_tty);
}

void
_initialize_reverse (void)
{
  add_setshow_enum_cmd ("exec-direction", class_run, exec_direction_names,
			&exec_direction, "Set direction of execution.\n\
Options are 'forward' or 'reverse'.",
			"Show direction of execution (forward/reverse).",
			"Tells gdb whether to execute forward or backward.",
			set_exec_direction_func, show_exec_direction_func,
			&setlist, &showlist);

  add_com ("reverse-step", class_run, reverse_step, _("\
Step program backward until it reaches the beginning of another source line.\n\
Argument N means do this N times (or till program stops for another reason).")
	   );
  add_com_alias ("rs", "reverse-step", class_alias, 1);

  add_com ("reverse-next", class_run, reverse_next, _("\
Step program backward, proceeding through subroutine calls.\n\
Like the \"reverse-step\" command as long as subroutine calls do not happen;\n\
when they do, the call is treated as one instruction.\n\
Argument N means do this N times (or till program stops for another reason).")
	   );
  add_com_alias ("rn", "reverse-next", class_alias, 1);

  add_com ("reverse-stepi", class_run, reverse_stepi, _("\
Step backward exactly one instruction.\n\
Argument N means do this N times (or till program stops for another reason).")
	   );
  add_com_alias ("rsi", "reverse-stepi", class_alias, 0);

  add_com ("reverse-nexti", class_run, reverse_nexti, _("\
Step backward one instruction, but proceed through called subroutines.\n\
Argument N means do this N times (or till program stops for another reason).")
	   );
  add_com_alias ("rni", "reverse-nexti", class_alias, 0);

  add_com ("reverse-continue", class_run, reverse_continue, _("\
Continue program being debugged, running in reverse.\n\
If proceeding from breakpoint, a number N may be used as an argument,\n\
which means to set the ignore count of that breakpoint to N - 1 (so that\n\
the breakpoint won't break until the Nth time it is reached)."));
  add_com_alias ("rc", "reverse-continue", class_alias, 0);

  add_com ("reverse-finish", class_run, reverse_finish, _("\
Execute backward until just before selected stack frame is called."));
}