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"
33 #include "tui/tui-data.h"
34 #include "tui/tui-stack.h"
35 #include "tui/tui-win.h"
36 #include "tui/tui-wingeneral.h"
37 #include "tui/tui-winsource.h"
38 #include "tui/tui-source.h"
39 #include "tui/tui-disasm.h"
41 #include "gdb_string.h"
42 #include "gdb_curses.h"
43 #include "gdb_assert.h"
45 /* Function to display the "main" routine. */
47 tui_display_main (void)
49 if ((tui_source_windows ())->count
> 0)
51 struct gdbarch
*gdbarch
;
54 tui_get_begin_asm_address (&gdbarch
, &addr
);
55 if (addr
!= (CORE_ADDR
) 0)
57 struct symtab_and_line sal
;
59 tui_update_source_windows_with_addr (gdbarch
, addr
);
60 sal
= find_pc_line (addr
, 0);
62 tui_update_locator_filename (sal
.symtab
->filename
);
64 tui_update_locator_filename ("??");
71 /* Function to display source in the source window. This function
72 initializes the horizontal scroll to 0. */
74 tui_update_source_window (struct tui_win_info
*win_info
,
75 struct gdbarch
*gdbarch
,
77 struct tui_line_or_address line_or_addr
,
80 win_info
->detail
.source_info
.horizontal_offset
= 0;
81 tui_update_source_window_as_is (win_info
, gdbarch
, s
, line_or_addr
, noerror
);
87 /* Function to display source in the source/asm window. This function
88 shows the source as specified by the horizontal offset. */
90 tui_update_source_window_as_is (struct tui_win_info
*win_info
,
91 struct gdbarch
*gdbarch
,
93 struct tui_line_or_address line_or_addr
,
98 if (win_info
->generic
.type
== SRC_WIN
)
99 ret
= tui_set_source_content (s
, line_or_addr
.u
.line_no
, noerror
);
101 ret
= tui_set_disassem_content (gdbarch
, line_or_addr
.u
.addr
);
103 if (ret
== TUI_FAILURE
)
105 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
106 tui_clear_exec_info_content (win_info
);
110 tui_update_breakpoint_info (win_info
, 0);
111 tui_show_source_content (win_info
);
112 tui_update_exec_info (win_info
);
113 if (win_info
->generic
.type
== SRC_WIN
)
115 struct symtab_and_line sal
;
117 sal
.line
= line_or_addr
.u
.line_no
+
118 (win_info
->generic
.content_size
- 2);
120 set_current_source_symtab_and_line (&sal
);
121 /* If the focus was in the asm win, put it in the src win if
122 we don't have a split layout. */
123 if (tui_win_with_focus () == TUI_DISASM_WIN
124 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
125 tui_set_win_focus_to (TUI_SRC_WIN
);
134 /* Function to ensure that the source and/or disassemly windows
135 reflect the input address. */
137 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
141 struct symtab_and_line sal
;
142 struct tui_line_or_address l
;
144 switch (tui_current_layout ())
146 case DISASSEM_COMMAND
:
147 case DISASSEM_DATA_COMMAND
:
148 tui_show_disassem (gdbarch
, addr
);
150 case SRC_DISASSEM_COMMAND
:
151 tui_show_disassem_and_update_source (gdbarch
, addr
);
154 sal
= find_pc_line (addr
, 0);
156 l
.u
.line_no
= sal
.line
;
157 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
165 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
167 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
169 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
170 tui_clear_exec_info_content (win_info
);
175 /* Function to ensure that the source and/or disassemly windows
176 reflect the input address. */
178 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
180 struct gdbarch
*gdbarch
;
182 struct tui_line_or_address l
;
187 gdbarch
= get_objfile_arch (s
->objfile
);
189 switch (tui_current_layout ())
191 case DISASSEM_COMMAND
:
192 case DISASSEM_DATA_COMMAND
:
193 find_line_pc (s
, line
, &pc
);
194 tui_update_source_windows_with_addr (gdbarch
, pc
);
199 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
200 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
202 find_line_pc (s
, line
, &pc
);
203 tui_show_disassem (gdbarch
, pc
);
212 tui_clear_source_content (struct tui_win_info
*win_info
,
215 if (win_info
!= NULL
)
219 win_info
->generic
.content_in_use
= FALSE
;
220 tui_erase_source_content (win_info
, display_prompt
);
221 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
223 struct tui_win_element
*element
=
224 (struct tui_win_element
*) win_info
->generic
.content
[i
];
226 element
->which_element
.source
.has_break
= FALSE
;
227 element
->which_element
.source
.is_exec_point
= FALSE
;
234 tui_erase_source_content (struct tui_win_info
*win_info
,
238 int half_width
= (win_info
->generic
.width
- 2) / 2;
240 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
242 werase (win_info
->generic
.handle
);
243 tui_check_and_display_highlight_if_needed (win_info
);
244 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
248 if (win_info
->generic
.type
== SRC_WIN
)
249 no_src_str
= NO_SRC_STRING
;
251 no_src_str
= NO_DISASSEM_STRING
;
252 if (strlen (no_src_str
) >= half_width
)
255 x_pos
= half_width
- strlen (no_src_str
);
256 mvwaddstr (win_info
->generic
.handle
,
257 (win_info
->generic
.height
/ 2),
261 /* elz: Added this function call to set the real contents of
262 the window to what is on the screen, so that later calls
263 to refresh, do display the correct stuff, and not the old
266 tui_set_source_content_nil (win_info
, no_src_str
);
268 tui_refresh_win (&win_info
->generic
);
273 /* Redraw the complete line of a source or disassembly window. */
275 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
277 struct tui_win_element
*line
;
280 line
= (struct tui_win_element
*) win_info
->generic
.content
[lineno
- 1];
281 if (line
->which_element
.source
.is_exec_point
)
282 wattron (win_info
->generic
.handle
, A_STANDOUT
);
284 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
285 line
->which_element
.source
.line
);
286 if (line
->which_element
.source
.is_exec_point
)
287 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
289 /* Clear to end of line but stop before the border. */
290 getyx (win_info
->generic
.handle
, y
, x
);
291 while (x
+ 1 < win_info
->generic
.width
)
293 waddch (win_info
->generic
.handle
, ' ');
294 getyx (win_info
->generic
.handle
, y
, x
);
299 tui_show_source_content (struct tui_win_info
*win_info
)
301 if (win_info
->generic
.content_size
> 0)
305 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
306 tui_show_source_line (win_info
, lineno
);
309 tui_erase_source_content (win_info
, TRUE
);
311 tui_check_and_display_highlight_if_needed (win_info
);
312 tui_refresh_win (&win_info
->generic
);
313 win_info
->generic
.content_in_use
= TRUE
;
317 /* Scroll the source forward or backward horizontally. */
319 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
320 enum tui_scroll_direction direction
,
323 if (win_info
->generic
.content
!= NULL
)
325 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
327 struct symtab
*s
= NULL
;
329 if (win_info
->generic
.type
== SRC_WIN
)
331 struct symtab_and_line cursal
332 = get_current_source_symtab_and_line ();
334 if (cursal
.symtab
== NULL
)
335 s
= find_pc_symtab (get_frame_pc (get_selected_frame (NULL
)));
340 if (direction
== LEFT_SCROLL
)
341 offset
= win_info
->detail
.source_info
.horizontal_offset
345 offset
= win_info
->detail
.source_info
.horizontal_offset
350 win_info
->detail
.source_info
.horizontal_offset
= offset
;
351 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
352 ((struct tui_win_element
*)
353 win_info
->generic
.content
[0])->which_element
.source
.line_or_addr
,
361 /* Set or clear the has_break flag in the line whose line is
365 tui_set_is_exec_point_at (struct tui_line_or_address l
,
366 struct tui_win_info
*win_info
)
370 tui_win_content content
= (tui_win_content
) win_info
->generic
.content
;
373 while (i
< win_info
->generic
.content_size
)
376 struct tui_line_or_address content_loa
=
377 content
[i
]->which_element
.source
.line_or_addr
;
379 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
380 gdb_assert (content_loa
.loa
== LOA_LINE
381 || content_loa
.loa
== LOA_ADDRESS
);
382 if (content_loa
.loa
== l
.loa
383 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
384 || (content_loa
.u
.addr
== l
.u
.addr
)))
388 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
391 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
392 tui_show_source_line (win_info
, i
+ 1);
397 tui_refresh_win (&win_info
->generic
);
400 /* Update the execution windows to show the active breakpoints.
401 This is called whenever a breakpoint is inserted, removed or
402 has its state changed. */
404 tui_update_all_breakpoint_info (void)
406 struct tui_list
*list
= tui_source_windows ();
409 for (i
= 0; i
< list
->count
; i
++)
411 struct tui_win_info
*win
= list
->list
[i
];
413 if (tui_update_breakpoint_info (win
, FALSE
))
415 tui_update_exec_info (win
);
421 /* Scan the source window and the breakpoints to update the has_break
422 information for each line.
424 Returns 1 if something changed and the execution window must be
428 tui_update_breakpoint_info (struct tui_win_info
*win
,
432 int need_refresh
= 0;
433 struct tui_source_info
*src
= &win
->detail
.source_info
;
435 for (i
= 0; i
< win
->generic
.content_size
; i
++)
437 struct breakpoint
*bp
;
438 extern struct breakpoint
*breakpoint_chain
;
440 struct tui_source_element
*line
;
442 line
= &((struct tui_win_element
*)
443 win
->generic
.content
[i
])->which_element
.source
;
444 if (current_only
&& !line
->is_exec_point
)
447 /* Scan each breakpoint to see if the current line has something to
448 do with it. Identify enable/disabled breakpoints as well as
449 those that we already hit. */
451 for (bp
= breakpoint_chain
;
452 bp
!= (struct breakpoint
*) NULL
;
455 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
456 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
457 if ((win
== TUI_SRC_WIN
459 && (strcmp (src
->filename
, bp
->source_file
) == 0)
460 && line
->line_or_addr
.loa
== LOA_LINE
461 && bp
->line_number
== line
->line_or_addr
.u
.line_no
)
462 || (win
== TUI_DISASM_WIN
463 && line
->line_or_addr
.loa
== LOA_ADDRESS
465 && bp
->loc
->address
== line
->line_or_addr
.u
.addr
))
467 if (bp
->enable_state
== bp_disabled
)
468 mode
|= TUI_BP_DISABLED
;
470 mode
|= TUI_BP_ENABLED
;
474 mode
|= TUI_BP_CONDITIONAL
;
475 if (bp
->type
== bp_hardware_breakpoint
)
476 mode
|= TUI_BP_HARDWARE
;
479 if (line
->has_break
!= mode
)
481 line
->has_break
= mode
;
489 /* Function to initialize the content of the execution info window,
490 based upon the input window which is either the source or
491 disassembly window. */
493 tui_set_exec_info_content (struct tui_win_info
*win_info
)
495 enum tui_status ret
= TUI_SUCCESS
;
497 if (win_info
->detail
.source_info
.execution_info
498 != (struct tui_gen_win_info
*) NULL
)
500 struct tui_gen_win_info
*exec_info_ptr
501 = win_info
->detail
.source_info
.execution_info
;
503 if (exec_info_ptr
->content
== NULL
)
504 exec_info_ptr
->content
=
505 (void **) tui_alloc_content (win_info
->generic
.height
,
506 exec_info_ptr
->type
);
507 if (exec_info_ptr
->content
!= NULL
)
511 tui_update_breakpoint_info (win_info
, 1);
512 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
514 struct tui_win_element
*element
;
515 struct tui_win_element
*src_element
;
518 element
= (struct tui_win_element
*) exec_info_ptr
->content
[i
];
519 src_element
= (struct tui_win_element
*)
520 win_info
->generic
.content
[i
];
522 memset(element
->which_element
.simple_string
, ' ',
523 sizeof(element
->which_element
.simple_string
));
524 element
->which_element
.simple_string
[TUI_EXECINFO_SIZE
- 1] = 0;
526 /* Now update the exec info content based upon the state
527 of each line as indicated by the source content. */
528 mode
= src_element
->which_element
.source
.has_break
;
529 if (mode
& TUI_BP_HIT
)
530 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
531 (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
532 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
533 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
534 (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
536 if (mode
& TUI_BP_ENABLED
)
537 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '+';
538 else if (mode
& TUI_BP_DISABLED
)
539 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '-';
541 if (src_element
->which_element
.source
.is_exec_point
)
542 element
->which_element
.simple_string
[TUI_EXEC_POS
] = '>';
544 exec_info_ptr
->content_size
= win_info
->generic
.content_size
;
555 tui_show_exec_info_content (struct tui_win_info
*win_info
)
557 struct tui_gen_win_info
*exec_info
558 = win_info
->detail
.source_info
.execution_info
;
561 werase (exec_info
->handle
);
562 tui_refresh_win (exec_info
);
563 for (cur_line
= 1; (cur_line
<= exec_info
->content_size
); cur_line
++)
564 mvwaddstr (exec_info
->handle
,
567 ((struct tui_win_element
*)
568 exec_info
->content
[cur_line
- 1])->which_element
.simple_string
);
569 tui_refresh_win (exec_info
);
570 exec_info
->content_in_use
= TRUE
;
575 tui_erase_exec_info_content (struct tui_win_info
*win_info
)
577 struct tui_gen_win_info
*exec_info
578 = win_info
->detail
.source_info
.execution_info
;
580 werase (exec_info
->handle
);
581 tui_refresh_win (exec_info
);
585 tui_clear_exec_info_content (struct tui_win_info
*win_info
)
587 win_info
->detail
.source_info
.execution_info
->content_in_use
= FALSE
;
588 tui_erase_exec_info_content (win_info
);
593 /* Function to update the execution info window. */
595 tui_update_exec_info (struct tui_win_info
*win_info
)
597 tui_set_exec_info_content (win_info
);
598 tui_show_exec_info_content (win_info
);
602 tui_alloc_source_buffer (struct tui_win_info
*win_info
)
605 int i
, line_width
, max_lines
;
607 max_lines
= win_info
->generic
.height
; /* Less the highlight box. */
608 line_width
= win_info
->generic
.width
- 1;
610 * Allocate the buffer for the source lines. Do this only once
611 * since they will be re-used for all source displays. The only
612 * other time this will be done is when a window's size changes.
614 if (win_info
->generic
.content
== NULL
)
616 src_line_buf
= (char *)
617 xmalloc ((max_lines
* line_width
) * sizeof (char));
618 if (src_line_buf
== (char *) NULL
)
620 fputs_unfiltered ("Unable to Allocate Memory for "
621 "Source or Disassembly Display.\n",
625 /* Allocate the content list. */
626 if ((win_info
->generic
.content
=
627 (void **) tui_alloc_content (max_lines
, SRC_WIN
)) == NULL
)
629 xfree (src_line_buf
);
630 fputs_unfiltered ("Unable to Allocate Memory for "
631 "Source or Disassembly Display.\n",
635 for (i
= 0; i
< max_lines
; i
++)
636 ((struct tui_win_element
*)
637 win_info
->generic
.content
[i
])->which_element
.source
.line
=
638 src_line_buf
+ (line_width
* i
);
645 /* Answer whether a particular line number or address is displayed
646 in the current source window. */
648 tui_line_is_displayed (int line
,
649 struct tui_win_info
*win_info
,
652 int is_displayed
= FALSE
;
656 threshold
= SCROLL_THRESHOLD
;
660 while (i
< win_info
->generic
.content_size
- threshold
663 is_displayed
= (((struct tui_win_element
*)
664 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
666 && (((struct tui_win_element
*)
667 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.line_no
676 /* Answer whether a particular line number or address is displayed
677 in the current source window. */
679 tui_addr_is_displayed (CORE_ADDR addr
,
680 struct tui_win_info
*win_info
,
683 int is_displayed
= FALSE
;
687 threshold
= SCROLL_THRESHOLD
;
691 while (i
< win_info
->generic
.content_size
- threshold
694 is_displayed
= (((struct tui_win_element
*)
695 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
697 && (((struct tui_win_element
*)
698 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.addr
707 /*****************************************
708 ** STATIC LOCAL FUNCTIONS **
709 ******************************************/