diff --git a/extra/gdb/gdbhelpers b/maint/gdb/gdbhelpers similarity index 86% rename from extra/gdb/gdbhelpers rename to maint/gdb/gdbhelpers index e013e5d153..8e6f1b50aa 100644 --- a/extra/gdb/gdbhelpers +++ b/maint/gdb/gdbhelpers @@ -1,52 +1,51 @@ -# Copyright 2018 the Pacemaker project contributors +# Copyright 2018-2019 the Pacemaker project contributors # # The version control history for this file may have further details. -# Author: Jan Pokorny -# Part of pacemaker project -# SPDX-License-Identifier: GPL-2.0-or-later +# +# SPDX-License-Identifier: FSFAP define pcmk # shelling avoids necessity to have an inferior around shell printf '%s %s\n' 'Available commands' \ '(all require an inferior, just break on main or so):\n' shell printf '%s\t%s\n' pcmk-follow-daemon \ 'Convenient pacemakerd to particular daemon descent' end document pcmk Show possible pcmk namespace rooted user-defined convenience commands. end # XXX one would expect that order of pcmk_children naturally matches # the actual sequential ordering, but that's governed with start_seq define pcmk-follow-daemon dont-repeat set $d = $arg0 eval "set $d_alt = \"pacemaker-%s\"", $d set $cont = 1 break start_child cont while ($cont) - if (!strcmp(child->name, $d) || !strcmp(child->name, $d_alt)) + if (!(int)strcmp(child->name, $d) || !(int)strcmp(child->name, $d_alt)) set $cont = 0 set follow-fork-mode child break getrlimit continue set follow-fork-mode parent # restore else if (child->start_seq == sizeof(pcmk_children)/sizeof(*pcmk_children) - 1) set $cont = 0 printf "no such daemon: %s (%s)\n", $d, $d_alt set follow-fork-mode parent # restore else continue end end end end document pcmk-follow-daemon Convenient way to follow into particular daemon when starting debugging from the master control process of pacemaker (pacemakerd). For "pacemaker-" prefixed daemons, this very prefix is not needed. Example: pcmk-follow-daemon "controld" end