1 /* TUI display source/assembly window.
3 Copyright (C) 1998-2018 Free Software Foundation, Inc.
5 Contributed by Hewlett-Packard Company.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "breakpoint.h"
30 #include "filenames.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"
40 #include "gdb_curses.h"
42 /* Function to display the "main" routine. */
44 tui_display_main (void)
46 if ((tui_source_windows ())->count
> 0)
48 struct gdbarch
*gdbarch
;
51 tui_get_begin_asm_address (&gdbarch
, &addr
);
52 if (addr
!= (CORE_ADDR
) 0)
56 tui_update_source_windows_with_addr (gdbarch
, addr
);
57 s
= find_pc_line_symtab (addr
);
59 tui_update_locator_fullname (symtab_to_fullname (s
));
61 tui_update_locator_fullname ("??");
68 /* Function to display source in the source window. This function
69 initializes the horizontal scroll to 0. */
71 tui_update_source_window (struct tui_win_info
*win_info
,
72 struct gdbarch
*gdbarch
,
74 struct tui_line_or_address line_or_addr
,
77 win_info
->detail
.source_info
.horizontal_offset
= 0;
78 tui_update_source_window_as_is (win_info
, gdbarch
, s
, line_or_addr
, noerror
);
84 /* Function to display source in the source/asm window. This function
85 shows the source as specified by the horizontal offset. */
87 tui_update_source_window_as_is (struct tui_win_info
*win_info
,
88 struct gdbarch
*gdbarch
,
90 struct tui_line_or_address line_or_addr
,
95 if (win_info
->generic
.type
== SRC_WIN
)
96 ret
= tui_set_source_content (s
, line_or_addr
.u
.line_no
, noerror
);
98 ret
= tui_set_disassem_content (gdbarch
, line_or_addr
.u
.addr
);
100 if (ret
== TUI_FAILURE
)
102 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
103 tui_clear_exec_info_content (win_info
);
107 tui_update_breakpoint_info (win_info
, 0);
108 tui_show_source_content (win_info
);
109 tui_update_exec_info (win_info
);
110 if (win_info
->generic
.type
== SRC_WIN
)
114 sal
.line
= line_or_addr
.u
.line_no
+
115 (win_info
->generic
.content_size
- 2);
117 sal
.pspace
= SYMTAB_PSPACE (s
);
118 set_current_source_symtab_and_line (sal
);
119 /* If the focus was in the asm win, put it in the src win if
120 we don't have a split layout. */
121 if (tui_win_with_focus () == TUI_DISASM_WIN
122 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
123 tui_set_win_focus_to (TUI_SRC_WIN
);
132 /* Function to ensure that the source and/or disassemly windows
133 reflect the input address. */
135 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
139 struct symtab_and_line sal
;
140 struct tui_line_or_address l
;
142 switch (tui_current_layout ())
144 case DISASSEM_COMMAND
:
145 case DISASSEM_DATA_COMMAND
:
146 tui_show_disassem (gdbarch
, addr
);
148 case SRC_DISASSEM_COMMAND
:
149 tui_show_disassem_and_update_source (gdbarch
, addr
);
152 sal
= find_pc_line (addr
, 0);
154 l
.u
.line_no
= sal
.line
;
155 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
163 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
165 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
167 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
168 tui_clear_exec_info_content (win_info
);
173 /* Function to ensure that the source and/or disassemly windows
174 reflect the input address. */
176 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
178 struct gdbarch
*gdbarch
;
180 struct tui_line_or_address l
;
185 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (s
));
187 switch (tui_current_layout ())
189 case DISASSEM_COMMAND
:
190 case DISASSEM_DATA_COMMAND
:
191 find_line_pc (s
, line
, &pc
);
192 tui_update_source_windows_with_addr (gdbarch
, pc
);
197 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
198 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
200 find_line_pc (s
, line
, &pc
);
201 tui_show_disassem (gdbarch
, pc
);
210 tui_clear_source_content (struct tui_win_info
*win_info
,
213 if (win_info
!= NULL
)
217 win_info
->generic
.content_in_use
= FALSE
;
218 tui_erase_source_content (win_info
, display_prompt
);
219 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
221 struct tui_win_element
*element
= win_info
->generic
.content
[i
];
223 element
->which_element
.source
.has_break
= FALSE
;
224 element
->which_element
.source
.is_exec_point
= FALSE
;
231 tui_erase_source_content (struct tui_win_info
*win_info
,
235 int half_width
= (win_info
->generic
.width
- 2) / 2;
237 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
239 werase (win_info
->generic
.handle
);
240 tui_check_and_display_highlight_if_needed (win_info
);
241 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
243 const char *no_src_str
;
245 if (win_info
->generic
.type
== SRC_WIN
)
246 no_src_str
= NO_SRC_STRING
;
248 no_src_str
= NO_DISASSEM_STRING
;
249 if (strlen (no_src_str
) >= half_width
)
252 x_pos
= half_width
- strlen (no_src_str
);
253 mvwaddstr (win_info
->generic
.handle
,
254 (win_info
->generic
.height
/ 2),
256 (char *) no_src_str
);
258 /* elz: Added this function call to set the real contents of
259 the window to what is on the screen, so that later calls
260 to refresh, do display the correct stuff, and not the old
263 tui_set_source_content_nil (win_info
, no_src_str
);
265 tui_refresh_win (&win_info
->generic
);
270 /* Redraw the complete line of a source or disassembly window. */
272 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
274 struct tui_win_element
*line
;
277 line
= win_info
->generic
.content
[lineno
- 1];
278 if (line
->which_element
.source
.is_exec_point
)
279 wattron (win_info
->generic
.handle
, A_STANDOUT
);
281 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
282 line
->which_element
.source
.line
);
283 if (line
->which_element
.source
.is_exec_point
)
284 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
286 /* Clear to end of line but stop before the border. */
287 x
= getcurx (win_info
->generic
.handle
);
288 while (x
+ 1 < win_info
->generic
.width
)
290 waddch (win_info
->generic
.handle
, ' ');
291 x
= getcurx (win_info
->generic
.handle
);
296 tui_show_source_content (struct tui_win_info
*win_info
)
298 if (win_info
->generic
.content_size
> 0)
302 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
303 tui_show_source_line (win_info
, lineno
);
306 tui_erase_source_content (win_info
, TRUE
);
308 tui_check_and_display_highlight_if_needed (win_info
);
309 tui_refresh_win (&win_info
->generic
);
310 win_info
->generic
.content_in_use
= TRUE
;
314 /* Scroll the source forward or backward horizontally. */
316 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
317 enum tui_scroll_direction direction
,
320 if (win_info
->generic
.content
!= NULL
)
322 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
324 struct symtab
*s
= NULL
;
326 if (win_info
->generic
.type
== SRC_WIN
)
328 struct symtab_and_line cursal
329 = get_current_source_symtab_and_line ();
331 if (cursal
.symtab
== NULL
)
332 s
= find_pc_line_symtab (get_frame_pc (get_selected_frame (NULL
)));
337 if (direction
== LEFT_SCROLL
)
338 offset
= win_info
->detail
.source_info
.horizontal_offset
342 offset
= win_info
->detail
.source_info
.horizontal_offset
347 win_info
->detail
.source_info
.horizontal_offset
= offset
;
348 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
349 win_info
->generic
.content
[0]
350 ->which_element
.source
.line_or_addr
,
358 /* Set or clear the has_break flag in the line whose line is
362 tui_set_is_exec_point_at (struct tui_line_or_address l
,
363 struct tui_win_info
*win_info
)
367 tui_win_content content
= win_info
->generic
.content
;
370 while (i
< win_info
->generic
.content_size
)
373 struct tui_line_or_address content_loa
=
374 content
[i
]->which_element
.source
.line_or_addr
;
376 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
377 gdb_assert (content_loa
.loa
== LOA_LINE
378 || content_loa
.loa
== LOA_ADDRESS
);
379 if (content_loa
.loa
== l
.loa
380 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
381 || (content_loa
.u
.addr
== l
.u
.addr
)))
385 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
388 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
389 tui_show_source_line (win_info
, i
+ 1);
394 tui_refresh_win (&win_info
->generic
);
397 /* Update the execution windows to show the active breakpoints.
398 This is called whenever a breakpoint is inserted, removed or
399 has its state changed. */
401 tui_update_all_breakpoint_info (void)
403 struct tui_list
*list
= tui_source_windows ();
406 for (i
= 0; i
< list
->count
; i
++)
408 struct tui_win_info
*win
= list
->list
[i
];
410 if (tui_update_breakpoint_info (win
, FALSE
))
412 tui_update_exec_info (win
);
418 /* Scan the source window and the breakpoints to update the has_break
419 information for each line.
421 Returns 1 if something changed and the execution window must be
425 tui_update_breakpoint_info (struct tui_win_info
*win
,
429 int need_refresh
= 0;
430 struct tui_source_info
*src
= &win
->detail
.source_info
;
432 for (i
= 0; i
< win
->generic
.content_size
; i
++)
434 struct breakpoint
*bp
;
435 extern struct breakpoint
*breakpoint_chain
;
437 struct tui_source_element
*line
;
439 line
= &win
->generic
.content
[i
]->which_element
.source
;
440 if (current_only
&& !line
->is_exec_point
)
443 /* Scan each breakpoint to see if the current line has something to
444 do with it. Identify enable/disabled breakpoints as well as
445 those that we already hit. */
447 for (bp
= breakpoint_chain
;
448 bp
!= (struct breakpoint
*) NULL
;
451 struct bp_location
*loc
;
453 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
454 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
456 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
458 if ((win
== TUI_SRC_WIN
459 && loc
->symtab
!= NULL
460 && filename_cmp (src
->fullname
,
461 symtab_to_fullname (loc
->symtab
)) == 0
462 && line
->line_or_addr
.loa
== LOA_LINE
463 && loc
->line_number
== line
->line_or_addr
.u
.line_no
)
464 || (win
== TUI_DISASM_WIN
465 && line
->line_or_addr
.loa
== LOA_ADDRESS
466 && loc
->address
== line
->line_or_addr
.u
.addr
))
468 if (bp
->enable_state
== bp_disabled
)
469 mode
|= TUI_BP_DISABLED
;
471 mode
|= TUI_BP_ENABLED
;
475 mode
|= TUI_BP_CONDITIONAL
;
476 if (bp
->type
== bp_hardware_breakpoint
)
477 mode
|= TUI_BP_HARDWARE
;
481 if (line
->has_break
!= mode
)
483 line
->has_break
= mode
;
491 /* Function to initialize the content of the execution info window,
492 based upon the input window which is either the source or
493 disassembly window. */
495 tui_set_exec_info_content (struct tui_win_info
*win_info
)
497 enum tui_status ret
= TUI_SUCCESS
;
499 if (win_info
->detail
.source_info
.execution_info
500 != (struct tui_gen_win_info
*) NULL
)
502 struct tui_gen_win_info
*exec_info_ptr
503 = win_info
->detail
.source_info
.execution_info
;
505 if (exec_info_ptr
->content
== NULL
)
506 exec_info_ptr
->content
=
507 tui_alloc_content (win_info
->generic
.height
, exec_info_ptr
->type
);
508 if (exec_info_ptr
->content
!= NULL
)
512 tui_update_breakpoint_info (win_info
, 1);
513 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
515 struct tui_win_element
*element
;
516 struct tui_win_element
*src_element
;
519 element
= exec_info_ptr
->content
[i
];
520 src_element
= 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 (char *) exec_info
->content
[cur_line
- 1]
568 ->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 /* The window width/height includes the highlight box. Determine actual
608 content dimensions, including string null-terminators. */
609 max_lines
= win_info
->generic
.height
- 2;
610 line_width
= win_info
->generic
.width
- 2 + 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 /* Allocate the content list. */
622 win_info
->generic
.content
= tui_alloc_content (max_lines
, SRC_WIN
);
623 for (i
= 0; i
< max_lines
; i
++)
624 win_info
->generic
.content
[i
]->which_element
.source
.line
625 = src_line_buf
+ (line_width
* i
);
632 /* Answer whether a particular line number or address is displayed
633 in the current source window. */
635 tui_line_is_displayed (int line
,
636 struct tui_win_info
*win_info
,
639 int is_displayed
= FALSE
;
643 threshold
= SCROLL_THRESHOLD
;
647 while (i
< win_info
->generic
.content_size
- threshold
651 = win_info
->generic
.content
[i
]
652 ->which_element
.source
.line_or_addr
.loa
== LOA_LINE
653 && win_info
->generic
.content
[i
]
654 ->which_element
.source
.line_or_addr
.u
.line_no
== line
;
662 /* Answer whether a particular line number or address is displayed
663 in the current source window. */
665 tui_addr_is_displayed (CORE_ADDR addr
,
666 struct tui_win_info
*win_info
,
669 int is_displayed
= FALSE
;
673 threshold
= SCROLL_THRESHOLD
;
677 while (i
< win_info
->generic
.content_size
- threshold
681 = win_info
->generic
.content
[i
]
682 ->which_element
.source
.line_or_addr
.loa
== LOA_ADDRESS
683 && win_info
->generic
.content
[i
]
684 ->which_element
.source
.line_or_addr
.u
.addr
== addr
;
692 /*****************************************
693 ** STATIC LOCAL FUNCTIONS **
694 ******************************************/