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 | 7ac81906eab84b0d7b0a778bc9e3565dcba7278c (patch) | |
| tree | c2d1e8f597a256eb0e553bcbbbad8f557aeed6d1 | |
| parent | 649a72b94e12091e5b202afe9dd190db6aac2bf8 (diff) | |
| download | bcm5719-llvm-7ac81906eab84b0d7b0a778bc9e3565dcba7278c.tar.gz bcm5719-llvm-7ac81906eab84b0d7b0a778bc9e3565dcba7278c.zip | |
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.
llvm-svn: 122020
| -rw-r--r-- | lldb/utils/emacs/gud.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lldb/utils/emacs/gud.el b/lldb/utils/emacs/gud.el index aff4a6ef614..c485589143f 100644 --- a/lldb/utils/emacs/gud.el +++ b/lldb/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))) |
