# Copyright (C) 2001, 2002, 2003, 2004, 2006,
|
# Copyright (C) 2001, 2002, 2003, 2004, 2006,
|
# 2008, 2010 Free Software Foundation, Inc.
|
# 2008, 2010 Free Software Foundation, Inc.
|
#
|
#
|
# This file is part of GCC.
|
# This file is part of GCC.
|
#
|
#
|
# GCC is free software; you can redistribute it and/or modify
|
# GCC is free software; you can redistribute it and/or modify
|
# it under the terms of the GNU General Public License as published by
|
# it under the terms of the GNU General Public License as published by
|
# the Free Software Foundation; either version 3, or (at your option)
|
# the Free Software Foundation; either version 3, or (at your option)
|
# any later version.
|
# any later version.
|
#
|
#
|
# GCC is distributed in the hope that it will be useful,
|
# GCC is distributed in the hope that it will be useful,
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
# GNU General Public License for more details.
|
# GNU General Public License for more details.
|
#
|
#
|
# You should have received a copy of the GNU General Public License
|
# You should have received a copy of the GNU General Public License
|
# along with GCC; see the file COPYING3. If not see
|
# along with GCC; see the file COPYING3. If not see
|
# .
|
# .
|
|
|
define pr
|
define pr
|
set debug_rtx ($)
|
set debug_rtx ($)
|
end
|
end
|
|
|
document pr
|
document pr
|
Print the full structure of the rtx that is $.
|
Print the full structure of the rtx that is $.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define prl
|
define prl
|
set debug_rtx_list ($, debug_rtx_count)
|
set debug_rtx_list ($, debug_rtx_count)
|
end
|
end
|
|
|
document prl
|
document prl
|
Print the full structure of all rtx insns beginning at $.
|
Print the full structure of all rtx insns beginning at $.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
Uses variable debug_rtx_count to control number of insns printed:
|
Uses variable debug_rtx_count to control number of insns printed:
|
debug_rtx_count > 0: print from $ on.
|
debug_rtx_count > 0: print from $ on.
|
debug_rtx_count < 0: print a window around $.
|
debug_rtx_count < 0: print a window around $.
|
|
|
There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print
|
There is also debug_rtx_find (rtx, uid) that will scan a list for UID and print
|
it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42)
|
it using debug_rtx_list. Usage example: set $foo=debug_rtx_find(first, 42)
|
end
|
end
|
|
|
define pt
|
define pt
|
set debug_tree ($)
|
set debug_tree ($)
|
end
|
end
|
|
|
document pt
|
document pt
|
Print the full structure of the tree that is $.
|
Print the full structure of the tree that is $.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define pct
|
define pct
|
set debug_c_tree ($)
|
set debug_c_tree ($)
|
end
|
end
|
|
|
document pct
|
document pct
|
Print the tree that is $ in C syntax.
|
Print the tree that is $ in C syntax.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define pgg
|
define pgg
|
set debug_gimple_stmt ($)
|
set debug_gimple_stmt ($)
|
end
|
end
|
|
|
document pgg
|
document pgg
|
Print the Gimple statement that is $ in C syntax.
|
Print the Gimple statement that is $ in C syntax.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define pgq
|
define pgq
|
set debug_gimple_seq ($)
|
set debug_gimple_seq ($)
|
end
|
end
|
|
|
document pgq
|
document pgq
|
Print the Gimple sequence that is $ in C syntax.
|
Print the Gimple sequence that is $ in C syntax.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define pgs
|
define pgs
|
set debug_generic_stmt ($)
|
set debug_generic_stmt ($)
|
end
|
end
|
|
|
document pgs
|
document pgs
|
Print the statement that is $ in C syntax.
|
Print the statement that is $ in C syntax.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define pge
|
define pge
|
set debug_generic_expr ($)
|
set debug_generic_expr ($)
|
end
|
end
|
|
|
document pge
|
document pge
|
Print the expression that is $ in C syntax.
|
Print the expression that is $ in C syntax.
|
Works only when an inferior is executing.
|
Works only when an inferior is executing.
|
end
|
end
|
|
|
define ptc
|
define ptc
|
output (enum tree_code) $.common.code
|
output (enum tree_code) $.common.code
|
echo \n
|
echo \n
|
end
|
end
|
|
|
document ptc
|
document ptc
|
Print the tree-code of the tree node that is $.
|
Print the tree-code of the tree node that is $.
|
end
|
end
|
|
|
define pdn
|
define pdn
|
output $.decl_minimal.name->identifier.id.str
|
output $.decl_minimal.name->identifier.id.str
|
echo \n
|
echo \n
|
end
|
end
|
|
|
document pdn
|
document pdn
|
Print the name of the decl-node that is $.
|
Print the name of the decl-node that is $.
|
end
|
end
|
|
|
define ptn
|
define ptn
|
output $.type.name->decl_minimal.name->identifier.id.str
|
output $.type.name->decl_minimal.name->identifier.id.str
|
echo \n
|
echo \n
|
end
|
end
|
|
|
document ptn
|
document ptn
|
Print the name of the type-node that is $.
|
Print the name of the type-node that is $.
|
end
|
end
|
|
|
define pvt
|
define pvt
|
set debug_vec_tree ($)
|
set debug_vec_tree ($)
|
end
|
end
|
|
|
document pvt
|
document pvt
|
Print the VEC(tree) that is in $.
|
Print the VEC(tree) that is in $.
|
end
|
end
|
|
|
define pdd
|
define pdd
|
set debug_dwarf_die ($)
|
set debug_dwarf_die ($)
|
end
|
end
|
|
|
document pdd
|
document pdd
|
Print the dw_die_ref that is in $.
|
Print the dw_die_ref that is in $.
|
end
|
end
|
|
|
define prc
|
define prc
|
output (enum rtx_code) $.code
|
output (enum rtx_code) $.code
|
echo \ (
|
echo \ (
|
output $.mode
|
output $.mode
|
echo )\n
|
echo )\n
|
end
|
end
|
|
|
document prc
|
document prc
|
Print the rtx-code and machine mode of the rtx that is $.
|
Print the rtx-code and machine mode of the rtx that is $.
|
end
|
end
|
|
|
define pi
|
define pi
|
print $.u.fld[0].rt_rtx@7
|
print $.u.fld[0].rt_rtx@7
|
end
|
end
|
|
|
document pi
|
document pi
|
Print the fields of an instruction that is $.
|
Print the fields of an instruction that is $.
|
end
|
end
|
|
|
define pbs
|
define pbs
|
set print_binding_stack ()
|
set print_binding_stack ()
|
end
|
end
|
|
|
document pbs
|
document pbs
|
In cc1plus, print the current binding stack, frame by frame, up to and
|
In cc1plus, print the current binding stack, frame by frame, up to and
|
including the global binding level.
|
including the global binding level.
|
end
|
end
|
|
|
define pbb
|
define pbb
|
set dump_bb ($, stderr, 0)
|
set dump_bb ($, stderr, 0)
|
end
|
end
|
|
|
document pbb
|
document pbb
|
Dump the basic block that is in $, including rtx.
|
Dump the basic block that is in $, including rtx.
|
end
|
end
|
|
|
define pbm
|
define pbm
|
set bitmap_print (stderr, $, "", "\n")
|
set bitmap_print (stderr, $, "", "\n")
|
end
|
end
|
|
|
document pbm
|
document pbm
|
Dump the bitmap that is in $ as a comma-separated list of numbers.
|
Dump the bitmap that is in $ as a comma-separated list of numbers.
|
end
|
end
|
|
|
# Put breakpoints at exit and fancy_abort in case abort is mapped
|
# Put breakpoints at exit and fancy_abort in case abort is mapped
|
# to either fprintf/exit or fancy_abort.
|
# to either fprintf/exit or fancy_abort.
|
b fancy_abort
|
b fancy_abort
|
|
|
# Put a breakpoint on internal_error to help with debugging ICEs.
|
# Put a breakpoint on internal_error to help with debugging ICEs.
|
b internal_error
|
b internal_error
|
|
|
set complaints 0
|
set complaints 0
|
# Don't let abort actually run, as it will make
|
# Don't let abort actually run, as it will make
|
# stdio stop working and therefore the `pr' command above as well.
|
# stdio stop working and therefore the `pr' command above as well.
|
# Put this last because gcc does not reference it any more unless
|
# Put this last because gcc does not reference it any more unless
|
# USE_SYSTEM_ABORT is defined, so gdb may complain and bail out.
|
# USE_SYSTEM_ABORT is defined, so gdb may complain and bail out.
|
b exit
|
b exit
|
b abort
|
b abort
|
|
|
