1 /* TUI display source/assembly window.
3 Copyright (C) 1998-2013 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"
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_fullname (symtab_to_fullname (sal
.symtab
));
64 tui_update_locator_fullname ("??");
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
;
118 sal
.line
= line_or_addr
.u
.line_no
+
119 (win_info
->generic
.content_size
- 2);
121 sal
.pspace
= s
->objfile
->pspace
;
122 set_current_source_symtab_and_line (&sal
);
123 /* If the focus was in the asm win, put it in the src win if
124 we don't have a split layout. */
125 if (tui_win_with_focus () == TUI_DISASM_WIN
126 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
127 tui_set_win_focus_to (TUI_SRC_WIN
);
136 /* Function to ensure that the source and/or disassemly windows
137 reflect the input address. */
139 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
143 struct symtab_and_line sal
;
144 struct tui_line_or_address l
;
146 switch (tui_current_layout ())
148 case DISASSEM_COMMAND
:
149 case DISASSEM_DATA_COMMAND
:
150 tui_show_disassem (gdbarch
, addr
);
152 case SRC_DISASSEM_COMMAND
:
153 tui_show_disassem_and_update_source (gdbarch
, addr
);
156 sal
= find_pc_line (addr
, 0);
158 l
.u
.line_no
= sal
.line
;
159 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
167 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
169 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
171 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
172 tui_clear_exec_info_content (win_info
);
177 /* Function to ensure that the source and/or disassemly windows
178 reflect the input address. */
180 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
182 struct gdbarch
*gdbarch
;
184 struct tui_line_or_address l
;
189 gdbarch
= get_objfile_arch (s
->objfile
);
191 switch (tui_current_layout ())
193 case DISASSEM_COMMAND
:
194 case DISASSEM_DATA_COMMAND
:
195 find_line_pc (s
, line
, &pc
);
196 tui_update_source_windows_with_addr (gdbarch
, pc
);
201 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
202 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
204 find_line_pc (s
, line
, &pc
);
205 tui_show_disassem (gdbarch
, pc
);
214 tui_clear_source_content (struct tui_win_info
*win_info
,
217 if (win_info
!= NULL
)
221 win_info
->generic
.content_in_use
= FALSE
;
222 tui_erase_source_content (win_info
, display_prompt
);
223 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
225 struct tui_win_element
*element
=
226 (struct tui_win_element
*) win_info
->generic
.content
[i
];
228 element
->which_element
.source
.has_break
= FALSE
;
229 element
->which_element
.source
.is_exec_point
= FALSE
;
236 tui_erase_source_content (struct tui_win_info
*win_info
,
240 int half_width
= (win_info
->generic
.width
- 2) / 2;
242 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
244 werase (win_info
->generic
.handle
);
245 tui_check_and_display_highlight_if_needed (win_info
);
246 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
250 if (win_info
->generic
.type
== SRC_WIN
)
251 no_src_str
= NO_SRC_STRING
;
253 no_src_str
= NO_DISASSEM_STRING
;
254 if (strlen (no_src_str
) >= half_width
)
257 x_pos
= half_width
- strlen (no_src_str
);
258 mvwaddstr (win_info
->generic
.handle
,
259 (win_info
->generic
.height
/ 2),
263 /* elz: Added this function call to set the real contents of
264 the window to what is on the screen, so that later calls
265 to refresh, do display the correct stuff, and not the old
268 tui_set_source_content_nil (win_info
, no_src_str
);
270 tui_refresh_win (&win_info
->generic
);
275 /* Redraw the complete line of a source or disassembly window. */
277 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
279 struct tui_win_element
*line
;
282 line
= (struct tui_win_element
*) win_info
->generic
.content
[lineno
- 1];
283 if (line
->which_element
.source
.is_exec_point
)
284 wattron (win_info
->generic
.handle
, A_STANDOUT
);
286 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
287 line
->which_element
.source
.line
);
288 if (line
->which_element
.source
.is_exec_point
)
289 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
291 /* Clear to end of line but stop before the border. */
292 getyx (win_info
->generic
.handle
, y
, x
);
293 while (x
+ 1 < win_info
->generic
.width
)
295 waddch (win_info
->generic
.handle
, ' ');
296 getyx (win_info
->generic
.handle
, y
, x
);
301 tui_show_source_content (struct tui_win_info
*win_info
)
303 if (win_info
->generic
.content_size
> 0)
307 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
308 tui_show_source_line (win_info
, lineno
);
311 tui_erase_source_content (win_info
, TRUE
);
313 tui_check_and_display_highlight_if_needed (win_info
);
314 tui_refresh_win (&win_info
->generic
);
315 win_info
->generic
.content_in_use
= TRUE
;
319 /* Scroll the source forward or backward horizontally. */
321 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
322 enum tui_scroll_direction direction
,
325 if (win_info
->generic
.content
!= NULL
)
327 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
329 struct symtab
*s
= NULL
;
331 if (win_info
->generic
.type
== SRC_WIN
)
333 struct symtab_and_line cursal
334 = get_current_source_symtab_and_line ();
336 if (cursal
.symtab
== NULL
)
337 s
= find_pc_symtab (get_frame_pc (get_selected_frame (NULL
)));
342 if (direction
== LEFT_SCROLL
)
343 offset
= win_info
->detail
.source_info
.horizontal_offset
347 offset
= win_info
->detail
.source_info
.horizontal_offset
352 win_info
->detail
.source_info
.horizontal_offset
= offset
;
353 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
354 ((struct tui_win_element
*)
355 win_info
->generic
.content
[0])->which_element
.source
.line_or_addr
,
363 /* Set or clear the has_break flag in the line whose line is
367 tui_set_is_exec_point_at (struct tui_line_or_address l
,
368 struct tui_win_info
*win_info
)
372 tui_win_content content
= (tui_win_content
) win_info
->generic
.content
;
375 while (i
< win_info
->generic
.content_size
)
378 struct tui_line_or_address content_loa
=
379 content
[i
]->which_element
.source
.line_or_addr
;
381 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
382 gdb_assert (content_loa
.loa
== LOA_LINE
383 || content_loa
.loa
== LOA_ADDRESS
);
384 if (content_loa
.loa
== l
.loa
385 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
386 || (content_loa
.u
.addr
== l
.u
.addr
)))
390 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
393 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
394 tui_show_source_line (win_info
, i
+ 1);
399 tui_refresh_win (&win_info
->generic
);
402 /* Update the execution windows to show the active breakpoints.
403 This is called whenever a breakpoint is inserted, removed or
404 has its state changed. */
406 tui_update_all_breakpoint_info (void)
408 struct tui_list
*list
= tui_source_windows ();
411 for (i
= 0; i
< list
->count
; i
++)
413 struct tui_win_info
*win
= list
->list
[i
];
415 if (tui_update_breakpoint_info (win
, FALSE
))
417 tui_update_exec_info (win
);
423 /* Scan the source window and the breakpoints to update the has_break
424 information for each line.
426 Returns 1 if something changed and the execution window must be
430 tui_update_breakpoint_info (struct tui_win_info
*win
,
434 int need_refresh
= 0;
435 struct tui_source_info
*src
= &win
->detail
.source_info
;
437 for (i
= 0; i
< win
->generic
.content_size
; i
++)
439 struct breakpoint
*bp
;
440 extern struct breakpoint
*breakpoint_chain
;
442 struct tui_source_element
*line
;
444 line
= &((struct tui_win_element
*)
445 win
->generic
.content
[i
])->which_element
.source
;
446 if (current_only
&& !line
->is_exec_point
)
449 /* Scan each breakpoint to see if the current line has something to
450 do with it. Identify enable/disabled breakpoints as well as
451 those that we already hit. */
453 for (bp
= breakpoint_chain
;
454 bp
!= (struct breakpoint
*) NULL
;
457 struct bp_location
*loc
;
459 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
460 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
462 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
464 if ((win
== TUI_SRC_WIN
465 && loc
->symtab
!= NULL
466 && filename_cmp (src
->fullname
,
467 symtab_to_fullname (loc
->symtab
)) == 0
468 && line
->line_or_addr
.loa
== LOA_LINE
469 && loc
->line_number
== line
->line_or_addr
.u
.line_no
)
470 || (win
== TUI_DISASM_WIN
471 && line
->line_or_addr
.loa
== LOA_ADDRESS
472 && loc
->address
== line
->line_or_addr
.u
.addr
))
474 if (bp
->enable_state
== bp_disabled
)
475 mode
|= TUI_BP_DISABLED
;
477 mode
|= TUI_BP_ENABLED
;
481 mode
|= TUI_BP_CONDITIONAL
;
482 if (bp
->type
== bp_hardware_breakpoint
)
483 mode
|= TUI_BP_HARDWARE
;
487 if (line
->has_break
!= mode
)
489 line
->has_break
= mode
;
497 /* Function to initialize the content of the execution info window,
498 based upon the input window which is either the source or
499 disassembly window. */
501 tui_set_exec_info_content (struct tui_win_info
*win_info
)
503 enum tui_status ret
= TUI_SUCCESS
;
505 if (win_info
->detail
.source_info
.execution_info
506 != (struct tui_gen_win_info
*) NULL
)
508 struct tui_gen_win_info
*exec_info_ptr
509 = win_info
->detail
.source_info
.execution_info
;
511 if (exec_info_ptr
->content
== NULL
)
512 exec_info_ptr
->content
=
513 (void **) tui_alloc_content (win_info
->generic
.height
,
514 exec_info_ptr
->type
);
515 if (exec_info_ptr
->content
!= NULL
)
519 tui_update_breakpoint_info (win_info
, 1);
520 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
522 struct tui_win_element
*element
;
523 struct tui_win_element
*src_element
;
526 element
= (struct tui_win_element
*) exec_info_ptr
->content
[i
];
527 src_element
= (struct tui_win_element
*)
528 win_info
->generic
.content
[i
];
530 memset(element
->which_element
.simple_string
, ' ',
531 sizeof(element
->which_element
.simple_string
));
532 element
->which_element
.simple_string
[TUI_EXECINFO_SIZE
- 1] = 0;
534 /* Now update the exec info content based upon the state
535 of each line as indicated by the source content. */
536 mode
= src_element
->which_element
.source
.has_break
;
537 if (mode
& TUI_BP_HIT
)
538 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
539 (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
540 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
541 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
542 (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
544 if (mode
& TUI_BP_ENABLED
)
545 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '+';
546 else if (mode
& TUI_BP_DISABLED
)
547 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '-';
549 if (src_element
->which_element
.source
.is_exec_point
)
550 element
->which_element
.simple_string
[TUI_EXEC_POS
] = '>';
552 exec_info_ptr
->content_size
= win_info
->generic
.content_size
;
563 tui_show_exec_info_content (struct tui_win_info
*win_info
)
565 struct tui_gen_win_info
*exec_info
566 = win_info
->detail
.source_info
.execution_info
;
569 werase (exec_info
->handle
);
570 tui_refresh_win (exec_info
);
571 for (cur_line
= 1; (cur_line
<= exec_info
->content_size
); cur_line
++)
572 mvwaddstr (exec_info
->handle
,
575 ((struct tui_win_element
*)
576 exec_info
->content
[cur_line
- 1])->which_element
.simple_string
);
577 tui_refresh_win (exec_info
);
578 exec_info
->content_in_use
= TRUE
;
583 tui_erase_exec_info_content (struct tui_win_info
*win_info
)
585 struct tui_gen_win_info
*exec_info
586 = win_info
->detail
.source_info
.execution_info
;
588 werase (exec_info
->handle
);
589 tui_refresh_win (exec_info
);
593 tui_clear_exec_info_content (struct tui_win_info
*win_info
)
595 win_info
->detail
.source_info
.execution_info
->content_in_use
= FALSE
;
596 tui_erase_exec_info_content (win_info
);
601 /* Function to update the execution info window. */
603 tui_update_exec_info (struct tui_win_info
*win_info
)
605 tui_set_exec_info_content (win_info
);
606 tui_show_exec_info_content (win_info
);
610 tui_alloc_source_buffer (struct tui_win_info
*win_info
)
613 int i
, line_width
, max_lines
;
615 max_lines
= win_info
->generic
.height
; /* Less the highlight box. */
616 line_width
= win_info
->generic
.width
- 1;
618 * Allocate the buffer for the source lines. Do this only once
619 * since they will be re-used for all source displays. The only
620 * other time this will be done is when a window's size changes.
622 if (win_info
->generic
.content
== NULL
)
624 src_line_buf
= (char *)
625 xmalloc ((max_lines
* line_width
) * sizeof (char));
626 if (src_line_buf
== (char *) NULL
)
628 fputs_unfiltered ("Unable to Allocate Memory for "
629 "Source or Disassembly Display.\n",
633 /* Allocate the content list. */
634 if ((win_info
->generic
.content
=
635 (void **) tui_alloc_content (max_lines
, SRC_WIN
)) == NULL
)
637 xfree (src_line_buf
);
638 fputs_unfiltered ("Unable to Allocate Memory for "
639 "Source or Disassembly Display.\n",
643 for (i
= 0; i
< max_lines
; i
++)
644 ((struct tui_win_element
*)
645 win_info
->generic
.content
[i
])->which_element
.source
.line
=
646 src_line_buf
+ (line_width
* i
);
653 /* Answer whether a particular line number or address is displayed
654 in the current source window. */
656 tui_line_is_displayed (int line
,
657 struct tui_win_info
*win_info
,
660 int is_displayed
= FALSE
;
664 threshold
= SCROLL_THRESHOLD
;
668 while (i
< win_info
->generic
.content_size
- threshold
671 is_displayed
= (((struct tui_win_element
*)
672 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
674 && (((struct tui_win_element
*)
675 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.line_no
684 /* Answer whether a particular line number or address is displayed
685 in the current source window. */
687 tui_addr_is_displayed (CORE_ADDR addr
,
688 struct tui_win_info
*win_info
,
691 int is_displayed
= FALSE
;
695 threshold
= SCROLL_THRESHOLD
;
699 while (i
< win_info
->generic
.content_size
- threshold
702 is_displayed
= (((struct tui_win_element
*)
703 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
705 && (((struct tui_win_element
*)
706 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.addr
715 /*****************************************
716 ** STATIC LOCAL FUNCTIONS **
717 ******************************************/