1 /* TUI display source/assembly window.
3 Copyright (C) 1998-2015 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
)
112 struct symtab_and_line sal
;
115 sal
.line
= line_or_addr
.u
.line_no
+
116 (win_info
->generic
.content_size
- 2);
118 sal
.pspace
= SYMTAB_PSPACE (s
);
119 set_current_source_symtab_and_line (&sal
);
120 /* If the focus was in the asm win, put it in the src win if
121 we don't have a split layout. */
122 if (tui_win_with_focus () == TUI_DISASM_WIN
123 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
124 tui_set_win_focus_to (TUI_SRC_WIN
);
133 /* Function to ensure that the source and/or disassemly windows
134 reflect the input address. */
136 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
140 struct symtab_and_line sal
;
141 struct tui_line_or_address l
;
143 switch (tui_current_layout ())
145 case DISASSEM_COMMAND
:
146 case DISASSEM_DATA_COMMAND
:
147 tui_show_disassem (gdbarch
, addr
);
149 case SRC_DISASSEM_COMMAND
:
150 tui_show_disassem_and_update_source (gdbarch
, addr
);
153 sal
= find_pc_line (addr
, 0);
155 l
.u
.line_no
= sal
.line
;
156 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
164 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
166 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
168 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
169 tui_clear_exec_info_content (win_info
);
174 /* Function to ensure that the source and/or disassemly windows
175 reflect the input address. */
177 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
179 struct gdbarch
*gdbarch
;
181 struct tui_line_or_address l
;
186 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (s
));
188 switch (tui_current_layout ())
190 case DISASSEM_COMMAND
:
191 case DISASSEM_DATA_COMMAND
:
192 find_line_pc (s
, line
, &pc
);
193 tui_update_source_windows_with_addr (gdbarch
, pc
);
198 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
199 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
201 find_line_pc (s
, line
, &pc
);
202 tui_show_disassem (gdbarch
, pc
);
211 tui_clear_source_content (struct tui_win_info
*win_info
,
214 if (win_info
!= NULL
)
218 win_info
->generic
.content_in_use
= FALSE
;
219 tui_erase_source_content (win_info
, display_prompt
);
220 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
222 struct tui_win_element
*element
= win_info
->generic
.content
[i
];
224 element
->which_element
.source
.has_break
= FALSE
;
225 element
->which_element
.source
.is_exec_point
= FALSE
;
232 tui_erase_source_content (struct tui_win_info
*win_info
,
236 int half_width
= (win_info
->generic
.width
- 2) / 2;
238 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
240 werase (win_info
->generic
.handle
);
241 tui_check_and_display_highlight_if_needed (win_info
);
242 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
246 if (win_info
->generic
.type
== SRC_WIN
)
247 no_src_str
= NO_SRC_STRING
;
249 no_src_str
= NO_DISASSEM_STRING
;
250 if (strlen (no_src_str
) >= half_width
)
253 x_pos
= half_width
- strlen (no_src_str
);
254 mvwaddstr (win_info
->generic
.handle
,
255 (win_info
->generic
.height
/ 2),
259 /* elz: Added this function call to set the real contents of
260 the window to what is on the screen, so that later calls
261 to refresh, do display the correct stuff, and not the old
264 tui_set_source_content_nil (win_info
, no_src_str
);
266 tui_refresh_win (&win_info
->generic
);
271 /* Redraw the complete line of a source or disassembly window. */
273 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
275 struct tui_win_element
*line
;
278 line
= win_info
->generic
.content
[lineno
- 1];
279 if (line
->which_element
.source
.is_exec_point
)
280 wattron (win_info
->generic
.handle
, A_STANDOUT
);
282 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
283 line
->which_element
.source
.line
);
284 if (line
->which_element
.source
.is_exec_point
)
285 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
287 /* Clear to end of line but stop before the border. */
288 getyx (win_info
->generic
.handle
, y
, x
);
289 while (x
+ 1 < win_info
->generic
.width
)
291 waddch (win_info
->generic
.handle
, ' ');
292 getyx (win_info
->generic
.handle
, y
, x
);
297 tui_show_source_content (struct tui_win_info
*win_info
)
299 if (win_info
->generic
.content_size
> 0)
303 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
304 tui_show_source_line (win_info
, lineno
);
307 tui_erase_source_content (win_info
, TRUE
);
309 tui_check_and_display_highlight_if_needed (win_info
);
310 tui_refresh_win (&win_info
->generic
);
311 win_info
->generic
.content_in_use
= TRUE
;
315 /* Scroll the source forward or backward horizontally. */
317 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
318 enum tui_scroll_direction direction
,
321 if (win_info
->generic
.content
!= NULL
)
323 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
325 struct symtab
*s
= NULL
;
327 if (win_info
->generic
.type
== SRC_WIN
)
329 struct symtab_and_line cursal
330 = get_current_source_symtab_and_line ();
332 if (cursal
.symtab
== NULL
)
333 s
= find_pc_line_symtab (get_frame_pc (get_selected_frame (NULL
)));
338 if (direction
== LEFT_SCROLL
)
339 offset
= win_info
->detail
.source_info
.horizontal_offset
343 offset
= win_info
->detail
.source_info
.horizontal_offset
348 win_info
->detail
.source_info
.horizontal_offset
= offset
;
349 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
350 win_info
->generic
.content
[0]
351 ->which_element
.source
.line_or_addr
,
359 /* Set or clear the has_break flag in the line whose line is
363 tui_set_is_exec_point_at (struct tui_line_or_address l
,
364 struct tui_win_info
*win_info
)
368 tui_win_content content
= (tui_win_content
) win_info
->generic
.content
;
371 while (i
< win_info
->generic
.content_size
)
374 struct tui_line_or_address content_loa
=
375 content
[i
]->which_element
.source
.line_or_addr
;
377 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
378 gdb_assert (content_loa
.loa
== LOA_LINE
379 || content_loa
.loa
== LOA_ADDRESS
);
380 if (content_loa
.loa
== l
.loa
381 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
382 || (content_loa
.u
.addr
== l
.u
.addr
)))
386 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
389 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
390 tui_show_source_line (win_info
, i
+ 1);
395 tui_refresh_win (&win_info
->generic
);
398 /* Update the execution windows to show the active breakpoints.
399 This is called whenever a breakpoint is inserted, removed or
400 has its state changed. */
402 tui_update_all_breakpoint_info (void)
404 struct tui_list
*list
= tui_source_windows ();
407 for (i
= 0; i
< list
->count
; i
++)
409 struct tui_win_info
*win
= list
->list
[i
];
411 if (tui_update_breakpoint_info (win
, FALSE
))
413 tui_update_exec_info (win
);
419 /* Scan the source window and the breakpoints to update the has_break
420 information for each line.
422 Returns 1 if something changed and the execution window must be
426 tui_update_breakpoint_info (struct tui_win_info
*win
,
430 int need_refresh
= 0;
431 struct tui_source_info
*src
= &win
->detail
.source_info
;
433 for (i
= 0; i
< win
->generic
.content_size
; i
++)
435 struct breakpoint
*bp
;
436 extern struct breakpoint
*breakpoint_chain
;
438 struct tui_source_element
*line
;
440 line
= &win
->generic
.content
[i
]->which_element
.source
;
441 if (current_only
&& !line
->is_exec_point
)
444 /* Scan each breakpoint to see if the current line has something to
445 do with it. Identify enable/disabled breakpoints as well as
446 those that we already hit. */
448 for (bp
= breakpoint_chain
;
449 bp
!= (struct breakpoint
*) NULL
;
452 struct bp_location
*loc
;
454 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
455 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
457 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
459 if ((win
== TUI_SRC_WIN
460 && loc
->symtab
!= NULL
461 && filename_cmp (src
->fullname
,
462 symtab_to_fullname (loc
->symtab
)) == 0
463 && line
->line_or_addr
.loa
== LOA_LINE
464 && loc
->line_number
== line
->line_or_addr
.u
.line_no
)
465 || (win
== TUI_DISASM_WIN
466 && line
->line_or_addr
.loa
== LOA_ADDRESS
467 && loc
->address
== line
->line_or_addr
.u
.addr
))
469 if (bp
->enable_state
== bp_disabled
)
470 mode
|= TUI_BP_DISABLED
;
472 mode
|= TUI_BP_ENABLED
;
476 mode
|= TUI_BP_CONDITIONAL
;
477 if (bp
->type
== bp_hardware_breakpoint
)
478 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 tui_alloc_content (win_info
->generic
.height
, exec_info_ptr
->type
);
509 if (exec_info_ptr
->content
!= NULL
)
513 tui_update_breakpoint_info (win_info
, 1);
514 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
516 struct tui_win_element
*element
;
517 struct tui_win_element
*src_element
;
520 element
= exec_info_ptr
->content
[i
];
521 src_element
= win_info
->generic
.content
[i
];
523 memset(element
->which_element
.simple_string
, ' ',
524 sizeof(element
->which_element
.simple_string
));
525 element
->which_element
.simple_string
[TUI_EXECINFO_SIZE
- 1] = 0;
527 /* Now update the exec info content based upon the state
528 of each line as indicated by the source content. */
529 mode
= src_element
->which_element
.source
.has_break
;
530 if (mode
& TUI_BP_HIT
)
531 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
532 (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
533 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
534 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
535 (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
537 if (mode
& TUI_BP_ENABLED
)
538 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '+';
539 else if (mode
& TUI_BP_DISABLED
)
540 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '-';
542 if (src_element
->which_element
.source
.is_exec_point
)
543 element
->which_element
.simple_string
[TUI_EXEC_POS
] = '>';
545 exec_info_ptr
->content_size
= win_info
->generic
.content_size
;
556 tui_show_exec_info_content (struct tui_win_info
*win_info
)
558 struct tui_gen_win_info
*exec_info
559 = win_info
->detail
.source_info
.execution_info
;
562 werase (exec_info
->handle
);
563 tui_refresh_win (exec_info
);
564 for (cur_line
= 1; (cur_line
<= exec_info
->content_size
); cur_line
++)
565 mvwaddstr (exec_info
->handle
,
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 win_info
->generic
.content
= tui_alloc_content (max_lines
, SRC_WIN
);
627 if (win_info
->generic
.content
== 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 win_info
->generic
.content
[i
]->which_element
.source
.line
637 = src_line_buf
+ (line_width
* i
);
644 /* Answer whether a particular line number or address is displayed
645 in the current source window. */
647 tui_line_is_displayed (int line
,
648 struct tui_win_info
*win_info
,
651 int is_displayed
= FALSE
;
655 threshold
= SCROLL_THRESHOLD
;
659 while (i
< win_info
->generic
.content_size
- threshold
663 = win_info
->generic
.content
[i
]
664 ->which_element
.source
.line_or_addr
.loa
== LOA_LINE
665 && win_info
->generic
.content
[i
]
666 ->which_element
.source
.line_or_addr
.u
.line_no
== (int) line
;
674 /* Answer whether a particular line number or address is displayed
675 in the current source window. */
677 tui_addr_is_displayed (CORE_ADDR addr
,
678 struct tui_win_info
*win_info
,
681 int is_displayed
= FALSE
;
685 threshold
= SCROLL_THRESHOLD
;
689 while (i
< win_info
->generic
.content_size
- threshold
693 = win_info
->generic
.content
[i
]
694 ->which_element
.source
.line_or_addr
.loa
== LOA_ADDRESS
695 && win_info
->generic
.content
[i
]
696 ->which_element
.source
.line_or_addr
.u
.addr
== addr
;
704 /*****************************************
705 ** STATIC LOCAL FUNCTIONS **
706 ******************************************/