diff options
-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))) |