Import gdb-7.0
[dragonfly.git] / contrib / gdb-6 / gdb / mi / mi-cmd-disas.c
1 /* MI Command Set - disassemble commands.
2    Copyright (C) 2000, 2001, 2002, 2007 Free Software Foundation, Inc.
3    Contributed by Cygnus Solutions (a Red Hat company).
4
5    This file is part of GDB.
6
7    This program is free software; you can redistribute it and/or modify
8    it under the terms of the GNU General Public License as published by
9    the Free Software Foundation; either version 3 of the License, or
10    (at your option) any later version.
11
12    This program is distributed in the hope that it will be useful,
13    but WITHOUT ANY WARRANTY; without even the implied warranty of
14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15    GNU General Public License for more details.
16
17    You should have received a copy of the GNU General Public License
18    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
19
20 #include "defs.h"
21 #include "target.h"
22 #include "value.h"
23 #include "mi-cmds.h"
24 #include "mi-getopt.h"
25 #include "gdb_string.h"
26 #include "ui-out.h"
27 #include "disasm.h"
28
29 /* The arguments to be passed on the command line and parsed here are:
30
31    either:
32
33    START-ADDRESS: address to start the disassembly at.
34    END-ADDRESS: address to end the disassembly at.
35
36    or:
37
38    FILENAME: The name of the file where we want disassemble from.
39    LINE: The line around which we want to disassemble. It will
40    disassemble the function that contins that line.
41    HOW_MANY: Number of disassembly lines to display. In mixed mode, it
42    is the number of disassembly lines only, not counting the source
43    lines.  
44
45    always required:
46
47    MODE: 0 or 1 for disassembly only, or mixed source and disassembly,
48    respectively. */
49 enum mi_cmd_result
50 mi_cmd_disassemble (char *command, char **argv, int argc)
51 {
52   enum mi_cmd_result retval;
53   CORE_ADDR start;
54
55   int mixed_source_and_assembly;
56   struct symtab *s;
57
58   /* Which options have we processed ... */
59   int file_seen = 0;
60   int line_seen = 0;
61   int num_seen = 0;
62   int start_seen = 0;
63   int end_seen = 0;
64
65   /* ... and their corresponding value. */
66   char *file_string = NULL;
67   int line_num = -1;
68   int how_many = -1;
69   CORE_ADDR low = 0;
70   CORE_ADDR high = 0;
71
72   /* Options processing stuff. */
73   int optind = 0;
74   char *optarg;
75   enum opt
76   {
77     FILE_OPT, LINE_OPT, NUM_OPT, START_OPT, END_OPT
78   };
79   static struct mi_opt opts[] = {
80     {"f", FILE_OPT, 1},
81     {"l", LINE_OPT, 1},
82     {"n", NUM_OPT, 1},
83     {"s", START_OPT, 1},
84     {"e", END_OPT, 1},
85     { 0, 0, 0 }
86   };
87
88   /* Get the options with their arguments. Keep track of what we
89      encountered. */
90   while (1)
91     {
92       int opt = mi_getopt ("mi_cmd_disassemble", argc, argv, opts,
93                            &optind, &optarg);
94       if (opt < 0)
95         break;
96       switch ((enum opt) opt)
97         {
98         case FILE_OPT:
99           file_string = xstrdup (optarg);
100           file_seen = 1;
101           break;
102         case LINE_OPT:
103           line_num = atoi (optarg);
104           line_seen = 1;
105           break;
106         case NUM_OPT:
107           how_many = atoi (optarg);
108           num_seen = 1;
109           break;
110         case START_OPT:
111           low = parse_and_eval_address (optarg);
112           start_seen = 1;
113           break;
114         case END_OPT:
115           high = parse_and_eval_address (optarg);
116           end_seen = 1;
117           break;
118         }
119     }
120   argv += optind;
121   argc -= optind;
122
123   /* Allow only filename + linenum (with how_many which is not
124      required) OR start_addr + and_addr */
125
126   if (!((line_seen && file_seen && num_seen && !start_seen && !end_seen)
127         || (line_seen && file_seen && !num_seen && !start_seen && !end_seen)
128         || (!line_seen && !file_seen && !num_seen && start_seen && end_seen)))
129     error
130       ("mi_cmd_disassemble: Usage: ( [-f filename -l linenum [-n howmany]] | [-s startaddr -e endaddr]) [--] mixed_mode.");
131
132   if (argc != 1)
133     error
134       ("mi_cmd_disassemble: Usage: [-f filename -l linenum [-n howmany]] [-s startaddr -e endaddr] [--] mixed_mode.");
135
136   mixed_source_and_assembly = atoi (argv[0]);
137   if ((mixed_source_and_assembly != 0) && (mixed_source_and_assembly != 1))
138     error (_("mi_cmd_disassemble: Mixed_mode argument must be 0 or 1."));
139
140
141   /* We must get the function beginning and end where line_num is
142      contained. */
143
144   if (line_seen && file_seen)
145     {
146       s = lookup_symtab (file_string);
147       if (s == NULL)
148         error (_("mi_cmd_disassemble: Invalid filename."));
149       if (!find_line_pc (s, line_num, &start))
150         error (_("mi_cmd_disassemble: Invalid line number"));
151       if (find_pc_partial_function (start, NULL, &low, &high) == 0)
152         error (_("mi_cmd_disassemble: No function contains specified address"));
153     }
154
155   gdb_disassembly (uiout,
156                    file_string,
157                    line_num,
158                    mixed_source_and_assembly, how_many, low, high);
159
160   return MI_CMD_DONE;
161 }