1 /* TUI display source/assembly window.
3 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007, 2008,
4 2009, 2010, 2011 Free Software Foundation, Inc.
6 Contributed by Hewlett-Packard Company.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program. If not, see <http://www.gnu.org/licenses/>. */
27 #include "breakpoint.h"
31 #include "filenames.h"
34 #include "tui/tui-data.h"
35 #include "tui/tui-stack.h"
36 #include "tui/tui-win.h"
37 #include "tui/tui-wingeneral.h"
38 #include "tui/tui-winsource.h"
39 #include "tui/tui-source.h"
40 #include "tui/tui-disasm.h"
42 #include "gdb_string.h"
43 #include "gdb_curses.h"
44 #include "gdb_assert.h"
46 /* Function to display the "main" routine. */
48 tui_display_main (void)
50 if ((tui_source_windows ())->count
> 0)
52 struct gdbarch
*gdbarch
;
55 tui_get_begin_asm_address (&gdbarch
, &addr
);
56 if (addr
!= (CORE_ADDR
) 0)
58 struct symtab_and_line sal
;
60 tui_update_source_windows_with_addr (gdbarch
, addr
);
61 sal
= find_pc_line (addr
, 0);
63 tui_update_locator_filename (sal
.symtab
->filename
);
65 tui_update_locator_filename ("??");
72 /* Function to display source in the source window. This function
73 initializes the horizontal scroll to 0. */
75 tui_update_source_window (struct tui_win_info
*win_info
,
76 struct gdbarch
*gdbarch
,
78 struct tui_line_or_address line_or_addr
,
81 win_info
->detail
.source_info
.horizontal_offset
= 0;
82 tui_update_source_window_as_is (win_info
, gdbarch
, s
, line_or_addr
, noerror
);
88 /* Function to display source in the source/asm window. This function
89 shows the source as specified by the horizontal offset. */
91 tui_update_source_window_as_is (struct tui_win_info
*win_info
,
92 struct gdbarch
*gdbarch
,
94 struct tui_line_or_address line_or_addr
,
99 if (win_info
->generic
.type
== SRC_WIN
)
100 ret
= tui_set_source_content (s
, line_or_addr
.u
.line_no
, noerror
);
102 ret
= tui_set_disassem_content (gdbarch
, line_or_addr
.u
.addr
);
104 if (ret
== TUI_FAILURE
)
106 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
107 tui_clear_exec_info_content (win_info
);
111 tui_update_breakpoint_info (win_info
, 0);
112 tui_show_source_content (win_info
);
113 tui_update_exec_info (win_info
);
114 if (win_info
->generic
.type
== SRC_WIN
)
116 struct symtab_and_line sal
;
119 sal
.line
= line_or_addr
.u
.line_no
+
120 (win_info
->generic
.content_size
- 2);
122 sal
.pspace
= s
->objfile
->pspace
;
123 set_current_source_symtab_and_line (&sal
);
124 /* If the focus was in the asm win, put it in the src win if
125 we don't have a split layout. */
126 if (tui_win_with_focus () == TUI_DISASM_WIN
127 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
128 tui_set_win_focus_to (TUI_SRC_WIN
);
137 /* Function to ensure that the source and/or disassemly windows
138 reflect the input address. */
140 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
144 struct symtab_and_line sal
;
145 struct tui_line_or_address l
;
147 switch (tui_current_layout ())
149 case DISASSEM_COMMAND
:
150 case DISASSEM_DATA_COMMAND
:
151 tui_show_disassem (gdbarch
, addr
);
153 case SRC_DISASSEM_COMMAND
:
154 tui_show_disassem_and_update_source (gdbarch
, addr
);
157 sal
= find_pc_line (addr
, 0);
159 l
.u
.line_no
= sal
.line
;
160 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
168 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
170 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
172 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
173 tui_clear_exec_info_content (win_info
);
178 /* Function to ensure that the source and/or disassemly windows
179 reflect the input address. */
181 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
183 struct gdbarch
*gdbarch
;
185 struct tui_line_or_address l
;
190 gdbarch
= get_objfile_arch (s
->objfile
);
192 switch (tui_current_layout ())
194 case DISASSEM_COMMAND
:
195 case DISASSEM_DATA_COMMAND
:
196 find_line_pc (s
, line
, &pc
);
197 tui_update_source_windows_with_addr (gdbarch
, pc
);
202 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
203 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
205 find_line_pc (s
, line
, &pc
);
206 tui_show_disassem (gdbarch
, pc
);
215 tui_clear_source_content (struct tui_win_info
*win_info
,
218 if (win_info
!= NULL
)
222 win_info
->generic
.content_in_use
= FALSE
;
223 tui_erase_source_content (win_info
, display_prompt
);
224 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
226 struct tui_win_element
*element
=
227 (struct tui_win_element
*) win_info
->generic
.content
[i
];
229 element
->which_element
.source
.has_break
= FALSE
;
230 element
->which_element
.source
.is_exec_point
= FALSE
;
237 tui_erase_source_content (struct tui_win_info
*win_info
,
241 int half_width
= (win_info
->generic
.width
- 2) / 2;
243 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
245 werase (win_info
->generic
.handle
);
246 tui_check_and_display_highlight_if_needed (win_info
);
247 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
251 if (win_info
->generic
.type
== SRC_WIN
)
252 no_src_str
= NO_SRC_STRING
;
254 no_src_str
= NO_DISASSEM_STRING
;
255 if (strlen (no_src_str
) >= half_width
)
258 x_pos
= half_width
- strlen (no_src_str
);
259 mvwaddstr (win_info
->generic
.handle
,
260 (win_info
->generic
.height
/ 2),
264 /* elz: Added this function call to set the real contents of
265 the window to what is on the screen, so that later calls
266 to refresh, do display the correct stuff, and not the old
269 tui_set_source_content_nil (win_info
, no_src_str
);
271 tui_refresh_win (&win_info
->generic
);
276 /* Redraw the complete line of a source or disassembly window. */
278 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
280 struct tui_win_element
*line
;
283 line
= (struct tui_win_element
*) win_info
->generic
.content
[lineno
- 1];
284 if (line
->which_element
.source
.is_exec_point
)
285 wattron (win_info
->generic
.handle
, A_STANDOUT
);
287 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
288 line
->which_element
.source
.line
);
289 if (line
->which_element
.source
.is_exec_point
)
290 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
292 /* Clear to end of line but stop before the border. */
293 getyx (win_info
->generic
.handle
, y
, x
);
294 while (x
+ 1 < win_info
->generic
.width
)
296 waddch (win_info
->generic
.handle
, ' ');
297 getyx (win_info
->generic
.handle
, y
, x
);
302 tui_show_source_content (struct tui_win_info
*win_info
)
304 if (win_info
->generic
.content_size
> 0)
308 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
309 tui_show_source_line (win_info
, lineno
);
312 tui_erase_source_content (win_info
, TRUE
);
314 tui_check_and_display_highlight_if_needed (win_info
);
315 tui_refresh_win (&win_info
->generic
);
316 win_info
->generic
.content_in_use
= TRUE
;
320 /* Scroll the source forward or backward horizontally. */
322 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
323 enum tui_scroll_direction direction
,
326 if (win_info
->generic
.content
!= NULL
)
328 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
330 struct symtab
*s
= NULL
;
332 if (win_info
->generic
.type
== SRC_WIN
)
334 struct symtab_and_line cursal
335 = get_current_source_symtab_and_line ();
337 if (cursal
.symtab
== NULL
)
338 s
= find_pc_symtab (get_frame_pc (get_selected_frame (NULL
)));
343 if (direction
== LEFT_SCROLL
)
344 offset
= win_info
->detail
.source_info
.horizontal_offset
348 offset
= win_info
->detail
.source_info
.horizontal_offset
353 win_info
->detail
.source_info
.horizontal_offset
= offset
;
354 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
355 ((struct tui_win_element
*)
356 win_info
->generic
.content
[0])->which_element
.source
.line_or_addr
,
364 /* Set or clear the has_break flag in the line whose line is
368 tui_set_is_exec_point_at (struct tui_line_or_address l
,
369 struct tui_win_info
*win_info
)
373 tui_win_content content
= (tui_win_content
) win_info
->generic
.content
;
376 while (i
< win_info
->generic
.content_size
)
379 struct tui_line_or_address content_loa
=
380 content
[i
]->which_element
.source
.line_or_addr
;
382 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
383 gdb_assert (content_loa
.loa
== LOA_LINE
384 || content_loa
.loa
== LOA_ADDRESS
);
385 if (content_loa
.loa
== l
.loa
386 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
387 || (content_loa
.u
.addr
== l
.u
.addr
)))
391 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
394 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
395 tui_show_source_line (win_info
, i
+ 1);
400 tui_refresh_win (&win_info
->generic
);
403 /* Update the execution windows to show the active breakpoints.
404 This is called whenever a breakpoint is inserted, removed or
405 has its state changed. */
407 tui_update_all_breakpoint_info (void)
409 struct tui_list
*list
= tui_source_windows ();
412 for (i
= 0; i
< list
->count
; i
++)
414 struct tui_win_info
*win
= list
->list
[i
];
416 if (tui_update_breakpoint_info (win
, FALSE
))
418 tui_update_exec_info (win
);
424 /* Scan the source window and the breakpoints to update the has_break
425 information for each line.
427 Returns 1 if something changed and the execution window must be
431 tui_update_breakpoint_info (struct tui_win_info
*win
,
435 int need_refresh
= 0;
436 struct tui_source_info
*src
= &win
->detail
.source_info
;
438 for (i
= 0; i
< win
->generic
.content_size
; i
++)
440 struct breakpoint
*bp
;
441 extern struct breakpoint
*breakpoint_chain
;
443 struct tui_source_element
*line
;
445 line
= &((struct tui_win_element
*)
446 win
->generic
.content
[i
])->which_element
.source
;
447 if (current_only
&& !line
->is_exec_point
)
450 /* Scan each breakpoint to see if the current line has something to
451 do with it. Identify enable/disabled breakpoints as well as
452 those that we already hit. */
454 for (bp
= breakpoint_chain
;
455 bp
!= (struct breakpoint
*) NULL
;
458 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
459 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
460 if ((win
== TUI_SRC_WIN
462 && (filename_cmp (src
->filename
, bp
->source_file
) == 0)
463 && line
->line_or_addr
.loa
== LOA_LINE
464 && bp
->line_number
== line
->line_or_addr
.u
.line_no
)
465 || (win
== TUI_DISASM_WIN
466 && line
->line_or_addr
.loa
== LOA_ADDRESS
468 && bp
->loc
->address
== line
->line_or_addr
.u
.addr
))
470 if (bp
->enable_state
== bp_disabled
)
471 mode
|= TUI_BP_DISABLED
;
473 mode
|= TUI_BP_ENABLED
;
477 mode
|= TUI_BP_CONDITIONAL
;
478 if (bp
->type
== bp_hardware_breakpoint
)
479 mode
|= TUI_BP_HARDWARE
;
482 if (line
->has_break
!= mode
)
484 line
->has_break
= mode
;
492 /* Function to initialize the content of the execution info window,
493 based upon the input window which is either the source or
494 disassembly window. */
496 tui_set_exec_info_content (struct tui_win_info
*win_info
)
498 enum tui_status ret
= TUI_SUCCESS
;
500 if (win_info
->detail
.source_info
.execution_info
501 != (struct tui_gen_win_info
*) NULL
)
503 struct tui_gen_win_info
*exec_info_ptr
504 = win_info
->detail
.source_info
.execution_info
;
506 if (exec_info_ptr
->content
== NULL
)
507 exec_info_ptr
->content
=
508 (void **) tui_alloc_content (win_info
->generic
.height
,
509 exec_info_ptr
->type
);
510 if (exec_info_ptr
->content
!= NULL
)
514 tui_update_breakpoint_info (win_info
, 1);
515 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
517 struct tui_win_element
*element
;
518 struct tui_win_element
*src_element
;
521 element
= (struct tui_win_element
*) exec_info_ptr
->content
[i
];
522 src_element
= (struct tui_win_element
*)
523 win_info
->generic
.content
[i
];
525 memset(element
->which_element
.simple_string
, ' ',
526 sizeof(element
->which_element
.simple_string
));
527 element
->which_element
.simple_string
[TUI_EXECINFO_SIZE
- 1] = 0;
529 /* Now update the exec info content based upon the state
530 of each line as indicated by the source content. */
531 mode
= src_element
->which_element
.source
.has_break
;
532 if (mode
& TUI_BP_HIT
)
533 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
534 (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
535 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
536 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
537 (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
539 if (mode
& TUI_BP_ENABLED
)
540 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '+';
541 else if (mode
& TUI_BP_DISABLED
)
542 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '-';
544 if (src_element
->which_element
.source
.is_exec_point
)
545 element
->which_element
.simple_string
[TUI_EXEC_POS
] = '>';
547 exec_info_ptr
->content_size
= win_info
->generic
.content_size
;
558 tui_show_exec_info_content (struct tui_win_info
*win_info
)
560 struct tui_gen_win_info
*exec_info
561 = win_info
->detail
.source_info
.execution_info
;
564 werase (exec_info
->handle
);
565 tui_refresh_win (exec_info
);
566 for (cur_line
= 1; (cur_line
<= exec_info
->content_size
); cur_line
++)
567 mvwaddstr (exec_info
->handle
,
570 ((struct tui_win_element
*)
571 exec_info
->content
[cur_line
- 1])->which_element
.simple_string
);
572 tui_refresh_win (exec_info
);
573 exec_info
->content_in_use
= TRUE
;
578 tui_erase_exec_info_content (struct tui_win_info
*win_info
)
580 struct tui_gen_win_info
*exec_info
581 = win_info
->detail
.source_info
.execution_info
;
583 werase (exec_info
->handle
);
584 tui_refresh_win (exec_info
);
588 tui_clear_exec_info_content (struct tui_win_info
*win_info
)
590 win_info
->detail
.source_info
.execution_info
->content_in_use
= FALSE
;
591 tui_erase_exec_info_content (win_info
);
596 /* Function to update the execution info window. */
598 tui_update_exec_info (struct tui_win_info
*win_info
)
600 tui_set_exec_info_content (win_info
);
601 tui_show_exec_info_content (win_info
);
605 tui_alloc_source_buffer (struct tui_win_info
*win_info
)
608 int i
, line_width
, max_lines
;
610 max_lines
= win_info
->generic
.height
; /* Less the highlight box. */
611 line_width
= win_info
->generic
.width
- 1;
613 * Allocate the buffer for the source lines. Do this only once
614 * since they will be re-used for all source displays. The only
615 * other time this will be done is when a window's size changes.
617 if (win_info
->generic
.content
== NULL
)
619 src_line_buf
= (char *)
620 xmalloc ((max_lines
* line_width
) * sizeof (char));
621 if (src_line_buf
== (char *) NULL
)
623 fputs_unfiltered ("Unable to Allocate Memory for "
624 "Source or Disassembly Display.\n",
628 /* Allocate the content list. */
629 if ((win_info
->generic
.content
=
630 (void **) tui_alloc_content (max_lines
, SRC_WIN
)) == NULL
)
632 xfree (src_line_buf
);
633 fputs_unfiltered ("Unable to Allocate Memory for "
634 "Source or Disassembly Display.\n",
638 for (i
= 0; i
< max_lines
; i
++)
639 ((struct tui_win_element
*)
640 win_info
->generic
.content
[i
])->which_element
.source
.line
=
641 src_line_buf
+ (line_width
* i
);
648 /* Answer whether a particular line number or address is displayed
649 in the current source window. */
651 tui_line_is_displayed (int line
,
652 struct tui_win_info
*win_info
,
655 int is_displayed
= FALSE
;
659 threshold
= SCROLL_THRESHOLD
;
663 while (i
< win_info
->generic
.content_size
- threshold
666 is_displayed
= (((struct tui_win_element
*)
667 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
669 && (((struct tui_win_element
*)
670 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.line_no
679 /* Answer whether a particular line number or address is displayed
680 in the current source window. */
682 tui_addr_is_displayed (CORE_ADDR addr
,
683 struct tui_win_info
*win_info
,
686 int is_displayed
= FALSE
;
690 threshold
= SCROLL_THRESHOLD
;
694 while (i
< win_info
->generic
.content_size
- threshold
697 is_displayed
= (((struct tui_win_element
*)
698 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
700 && (((struct tui_win_element
*)
701 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.addr
710 /*****************************************
711 ** STATIC LOCAL FUNCTIONS **
712 ******************************************/