2011-03-10 16:45:12 +03:00
# Copyright (C) 2011 Red Hat, Inc. All rights reserved.
# This file is part of LVM2.
# This copyrighted material is made available to anyone wishing to use,
# modify, copy, or redistribute it subject to the terms and conditions
# of the GNU Lesser General Public License v.2.1.
# You should have received a copy of the GNU Lesser General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Author(s):
# Jonathan Brassow <jbrassow@redhat.com>
#
# Copy this file to ~/.gdbinit or <working_dir>/.gdbinit
printf "\n\n"
printf "Loading commands:\n"
printf " - first_seg <LV ptr>\n"
printf " - lv_status <LV ptr>\n"
printf " - lv_status_r <LV ptr>\n"
printf " - lv_is_mirrored <LV ptr>\n"
printf " - seg_item <seg ptr> <index>\n"
printf " - seg_status <seg ptr>\n"
printf " - segs_using_this_lv <seg ptr>\n"
printf " - \n"
printf "Use 'help <command>' for more info\n"
printf "\n\n"
printf "Popular breakpoints:\n"
printf "break lv_extend\n"
2011-03-11 21:22:39 +03:00
printf "run --type raid1 -L 200M -n lv vg\n"
2011-03-10 16:45:12 +03:00
printf "lv_status_r lv\n"
printf "\n\n"
set follow-fork-mode child
2011-03-12 01:16:38 +03:00
# Conventions:
# foo : function named 'foo' available to user
# __foo : an internal function
#
# External functions should have a corresponding 'document'
# section. Internal functions should have leading comments
#
# __first_seg <return> <LV>
define __first_seg
set $arg0 = 0x0
set $_lv = (struct logical_volume *)$arg1
if ($_lv->segments.n != &$_lv->segments)
set $arg0 = (struct lv_segment *)$_lv->segments.n
end
end
2011-03-10 16:45:12 +03:00
define first_seg
2011-03-12 01:16:38 +03:00
set $_seg = 0
set $_lv=(struct logical_volume *)$arg0
2011-03-10 16:45:12 +03:00
2011-03-12 01:16:38 +03:00
__first_seg $_seg $_lv
if ($_seg)
p $_seg
2011-03-10 16:45:12 +03:00
else
2011-03-12 01:16:38 +03:00
printf "No segments (list empty)\n"
2011-03-10 16:45:12 +03:00
end
end
document first_seg
Returns the pointer to the first segment of an LV
Usage: first_seg <LV ptr>
WARNING: If the list pointer in 'struct lv_segment' moves,
this function will be wrong.
end
2011-03-12 01:16:38 +03:00
#
# __seg_item <return> <seg> <index>
define __seg_type
set $arg0 = 0x0
set $_seg = (struct lv_segment *)$arg1
set $_index= $arg2
set $_area = $_seg->areas[$_index]
set $_type = $_area.type
set $arg0 = $_type
end
2011-03-10 16:45:12 +03:00
2011-03-12 01:16:38 +03:00
#
# __seg_item <return> <seg> <index>
define __seg_item
set $arg0 = 0x0
set $_seg = (struct lv_segment *)$arg1
set $_index= $arg2
if ($_index < $_seg->area_count)
set $_area = $_seg->areas[$_index]
set $_type = $_area.type
if ($_type == AREA_PV)
set $arg0 = $_area.u.pv.pvseg->pv
2011-03-10 16:45:12 +03:00
else
2011-03-12 01:16:38 +03:00
if ($_type == AREA_LV)
set $arg0 = $_area.u.lv.lv
end
2011-03-10 16:45:12 +03:00
end
end
end
2011-03-12 01:16:38 +03:00
define seg_item
set $_item = 0x0
__seg_item $_item $arg0 $arg1
if ($_item)
p $_item
else
printf "AREA_UNASSIGNED or invalid\n"
end
end
2011-03-10 16:45:12 +03:00
document seg_item
Returns the pointer to the LV or PV for the indexed area of a segment
Usage: seg_item <struct lv_segment *> <index>
Example - Getting to the sub-lv of a mirror:
(gdb) p lv->name
$1 = 0x712548 "lv"
(gdb) first_seg lv
$2 = (struct lv_segment *) 0x7128b8
(gdb) seg_item $2 0
$3 = (struct logical_volume *) 0x712688
(gdb) p $3->name
$4 = 0x712770 "lv_mimage_0"
end
define __status
# Constants defined in metadata-exported.h
# if ($arg0->status & VISIBLE_LV)
if ($arg0->status & 0x00000040U)
printf " VISIBLE_LV"
else
printf " *HIDDEN_LV*"
end
# if ($arg0->status & FIXED_MINOR)
if ($arg0->status & 0x00000080U)
printf " FIXED_MINOR"
end
# if ($arg0->status & SNAPSHOT)
if ($arg0->status & 0x00001000U)
printf " SNAPSHOT"
end
# if ($arg0->status & PVMOVE)
if ($arg0->status & 0x00002000U)
printf " PVMOVE"
end
# if ($arg0->status & LOCKED)
if ($arg0->status & 0x00004000U)
printf " LOCKED"
end
# if ($arg0->status & MIRRORED)
if ($arg0->status & 0x00008000U)
printf " MIRRORED"
end
# if ($arg0->status & MIRROR_LOG)
if ($arg0->status & 0x00020000U)
printf " MIRROR_LOG"
end
# if ($arg0->status & MIRROR_IMAGE)
if ($arg0->status & 0x00040000U)
printf " MIRROR_IMAGE"
end
2011-03-11 21:22:39 +03:00
# if ($arg0->status & RAID)
if ($arg0->status & 0x00000001U)
printf " RAID"
end
# if ($arg0->status & RAID_META)
if ($arg0->status & 0x00000002U)
printf " RAID_META"
end
# if ($arg0->status & RAID_IMAGE)
if ($arg0->status & 0x00000004U)
printf " RAID_IMAGE"
end
# if ($arg0->status & LV_NOTSYNCED)
2011-03-10 16:45:12 +03:00
if ($arg0->status & 0x00080000U)
2011-03-11 21:22:39 +03:00
printf " LV_NOTSYNCED"
2011-03-10 16:45:12 +03:00
end
# if ($arg0->status & CONVERTING)
if ($arg0->status & 0x00400000U)
printf " CONVERTING"
end
end
define lv_status
set $_lv=(struct logical_volume *)$arg0
printf "%s->status:", $_lv->name
__status $_lv
printf "\n"
end
document lv_status
Display the flags that are set on an LV.
Usage: lv_status <LV ptr>
end
define seg_status
set $_seg=(struct lv_segment *)$arg0
2011-03-12 01:16:38 +03:00
printf "[ (%s) seg->status:", $_seg->lv->name
2011-03-10 16:45:12 +03:00
__status $_seg
2011-03-12 01:16:38 +03:00
printf " ]\n"
2011-03-10 16:45:12 +03:00
end
document seg_status
Display the flags that are set on an lv_segment.
Usage: lv_status <(struct lv_segment *)>
end
2011-03-12 01:16:38 +03:00
#
# get_only_segment_using_this_lv <return> <LV>
define __get_only_segment_using_this_lv
set $arg0 = 0x0
set $_lv=(struct logical_volume *)$arg1
set $_seg_list_head = &$_lv->segs_using_this_lv
set $_s = $_lv->segs_using_this_lv.n
2011-03-10 16:45:12 +03:00
set $_i = 0
2011-03-12 01:16:38 +03:00
while (($_s != $_seg_list_head) && ($_i < 100))
set $_seg_list = (struct seg_list *)$_s
set $_seg = (struct lv_segment *)$_seg_list->seg
2011-03-10 16:45:12 +03:00
2011-03-12 01:16:38 +03:00
set $_i++
set $_s = $_s->n
2011-03-10 16:45:12 +03:00
end
2011-03-12 01:16:38 +03:00
if ($_i > 1)
printf "More than %s using %s\n", ($_i > 99) ? "100 segments" : "one segment", $_lv->name
end
if ($_i == 1)
set $arg0 = $_seg
end
2011-03-10 16:45:12 +03:00
end
define segs_using_this_lv
set $_lv=(struct logical_volume *)$arg0
set $_seg_list_head = &$_lv->segs_using_this_lv
set $_s = $_lv->segs_using_this_lv.n
set $_i = 0
if ($_s != $_seg_list_head)
printf "Segments using %s\n", $_lv->name
else
printf "No segments using %s\n", $_lv->name
end
while ($_s != $_seg_list_head)
set $_seg_list = (struct seg_list *)$_s
set $_seg = (struct lv_segment *)$_seg_list->seg
printf " %d) seg: %p", $_i, $_seg
if ($_seg->lv < 0x200)
printf " [BAD LV POINTER FROM THIS SEG]\n"
else
printf " [seg found in %s]\n", $_seg->lv->name
end
2011-03-12 01:16:38 +03:00
set $_i++
2011-03-10 16:45:12 +03:00
set $_s = $_s->n
end
end
document segs_using_this_lv
Display the segments (and their associated LV) using an LV
Usage: segs_using_this_lv <LV ptr>
Example:
(gdb) lv_is_mirrored lv
lv is mirrored ('core' log)
(gdb) segs_using_this_lv lv
No segments using lv
(gdb) first_seg lv
$1 = (struct lv_segment *) 0x92d360
(gdb) seg_item $1 0
$2 = (struct logical_volume *) 0x928f58
(gdb) segs_using_this_lv $2
Segments using lv_mimage_0
0) seg: 0x92d360 [seg found in lv]
end
2011-03-12 01:16:38 +03:00
#
# __next_area_index <return> <seg> <seg_item>
define __next_area_index
set $arg0 = 0x0
set $_seg = (struct lv_segment *)$arg1
set $_item = 0x0
set $_i = 0
__seg_item $_item $_seg $_i
while ($_item && ($_item != $arg2))
set $_i++
__seg_item $_item $_seg $_i
end
# $_i points to current, now get next (if there)
set $_i++
__seg_item $_item $_seg $_i
if ($_item)
set $arg0 = $_i
end
end
#
# __lv_status_r <LV>
# Decend tree, printing LV and seg status as we go. This
# performs a depth first approach (but can't come up)
# or
# __lv_status_r <sub_lv> <seg using sub_lv>
# Try continuing decent of tree by first shifting to the
# next 'area' in the seg ($arg1). If no more areas, then
# try going to the next segment.
define __lv_status_r
if ($argc == 1)
set $_lv=(struct logical_volume *)$arg0
set $_seg_list_head = &$_lv->segments
set $_s = $_lv->segments.n
set $_area_index = 0
printf "\n"
lv_status $_lv
else
set $_seg = (struct lv_segment *)$arg1
__next_area_index $_area_index $_seg $arg0
# Don't fuck this up. We need the next two lines here.
set $_lv=(struct logical_volume *)$_seg->lv
set $_seg_list_head = &$_lv->segments
set $_s = (struct dm_list *)$_seg
if (!$_area_index)
set $_s = $_s->n
end
end
if ($_s == $_seg_list_head)
if ($argc == 1)
printf "[ No segments for %s ]\n", $_lv->name
end
else
set $_seg = (struct lv_segment *)$_s
set $_type = 0x0
if (!$_area_index)
seg_status $_seg
end
__seg_type $_type $_seg $_area_index
if ($_type == AREA_LV)
__seg_item $_lv $_seg $_area_index
__lv_status_r $_lv
else
__get_only_segment_using_this_lv $_seg $_lv
if ($_seg)
__lv_status_r $_lv $_seg
end
end
end
end
define lv_status_r
__lv_status_r $arg0
end
document lv_status_r
Display the status flags of an LV and its sub_lvs.
Usage: lv_status_r <LV ptr>
This function is useful for checking that all the LVs that
compose a logical volume have the correct flags set (and also
their associated lv_segments)
end
2011-03-10 16:45:12 +03:00
define lv_is_mirrored
set $_lv=(struct logical_volume *)$arg0
set $_fs=(struct lv_segment *)$_lv->segments.n
set $_log_lv=(struct logical_volume *)$_fs->log_lv
# if ($_lv->status & MIRRORED)
if ($_lv->status & 0x00008000U)
printf "%s is mirrored (", $_lv->name
if ($_log_lv)
if ($_log_lv->status & 0x00008000U)
printf "'mirrored' log)\n"
else
printf "'disk' log)\n"
end
else
printf "'core' log)\n"
end
else
printf "%s is not mirrored\n", $_lv->name
end
end
document lv_is_mirrored
Report whether the given LV is mirrored (and its log type).
Usage: lv_is_mirrored <LV ptr>
end
