diff options
| author | Kim F. Storm | 2005-07-14 11:30:35 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-07-14 11:30:35 +0000 |
| commit | 501b66fa1c8d51e9252098d1dc19ce00de0ac94f (patch) | |
| tree | 57d33a941b1127b87b74882b4578910452f3448a /src | |
| parent | 7b9389b0d06567ff46a6b4ddc0b1f2f7a3300098 (diff) | |
| download | emacs-501b66fa1c8d51e9252098d1dc19ce00de0ac94f.tar.gz emacs-501b66fa1c8d51e9252098d1dc19ce00de0ac94f.zip | |
(pitx): Fix output format. Print string charpos.
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 8b1dcb4df5b..ea1ac2ef666 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -129,20 +129,24 @@ define pitx | |||
| 129 | end | 129 | end |
| 130 | if ($it->what == IT_CHARACTER) | 130 | if ($it->what == IT_CHARACTER) |
| 131 | if ($it->len == 1 && $it->c >= ' ' && it->c < 255) | 131 | if ($it->len == 1 && $it->c >= ' ' && it->c < 255) |
| 132 | printf "ch='%c'", $it->c | 132 | printf " ch='%c'", $it->c |
| 133 | else | 133 | else |
| 134 | printf "ch=[%d,%d]", $it->c, $it->len | 134 | printf " ch=[%d,%d]", $it->c, $it->len |
| 135 | end | 135 | end |
| 136 | else | 136 | else |
| 137 | if ($it->what == IT_IMAGE) | 137 | if ($it->what == IT_IMAGE) |
| 138 | printf "IMAGE=%d", $it->image_id | 138 | printf " IMAGE=%d", $it->image_id |
| 139 | else | 139 | else |
| 140 | printf " " | ||
| 140 | output $it->what | 141 | output $it->what |
| 141 | end | 142 | end |
| 142 | end | 143 | end |
| 143 | if ($it->method != GET_FROM_BUFFER) | 144 | if ($it->method != GET_FROM_BUFFER) |
| 144 | printf " next=" | 145 | printf " next=" |
| 145 | output $it->method | 146 | output $it->method |
| 147 | if ($it->method == GET_FROM_STRING) | ||
| 148 | printf "[%d]", $it->current.string_pos.charpos | ||
| 149 | end | ||
| 146 | end | 150 | end |
| 147 | printf "\n" | 151 | printf "\n" |
| 148 | if ($it->region_beg_charpos >= 0) | 152 | if ($it->region_beg_charpos >= 0) |