diff options
author | Johnny Chen <johnny.chen@apple.com> | 2010-12-17 01:35:41 +0000 |
---|---|---|
committer | Johnny Chen <johnny.chen@apple.com> | 2010-12-17 01:35:41 +0000 |
commit | eb04783dc92ea73a66e59f17e12b89927ee9d6bb (patch) | |
tree | 96302d29d8111456429a3abfdd647356b03ebf31 /utils | |
parent | e01879abc1db997ea51f28072a5fcc765d1ff19c (diff) | |
download | lldb-eb04783dc92ea73a66e59f17e12b89927ee9d6bb.tar.gz |
Modify the regexp to match the debugger output of the 'Up Stack' and 'Down Stack'
gud commands in order to more reliably locate the program counter and to display
the file-and-line.
git-svn-id: https://llvm.org/svn/llvm-project/llvdb/trunk@122020 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'utils')
-rw-r--r-- | utils/emacs/gud.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/emacs/gud.el b/utils/emacs/gud.el index aff4a6ef6..c48558914 100644 --- a/utils/emacs/gud.el +++ b/utils/emacs/gud.el @@ -945,6 +945,7 @@ SKIP is the number of chars to skip on each line, it defaults to 0." (defun lldb-extract-breakpoint-id (string) ;; Search for "Breakpoint created: \\([^:\n]*\\):" pattern. + ;(message "gud-marker-acc string is: |%s|" string) (if (string-match "Breakpoint created: \\([^:\n]*\\):" string) (progn (setq gud-breakpoint-id (match-string 1 string)) @@ -966,8 +967,9 @@ SKIP is the number of chars to skip on each line, it defaults to 0." gud-marker-acc start) ;; (lldb) frame select -r 1 ;; frame #1: 0x0000000100000e09 a.out`main + 25 at main.c:44 - (string-match "\nframe.* at \\([^:\n]*\\):\\([0-9]*\\)\n" + (string-match "^frame.* at \\([^:\n]*\\):\\([0-9]*\\)\n" gud-marker-acc start)) + ;(message "gud-marker-acc matches our pattern....") (setq gud-last-frame (cons (match-string 1 gud-marker-acc) (string-to-number (match-string 2 gud-marker-acc))) |