comparison lisp/progmodes/gdb-ui.el @ 68773:dc49655f57ae

Update copyright for 2006.

68772:57d1d56ae004

;; Author: Nick Roberts <[e-mail]>
;; Maintainer: FSF
;; Keywords: unix, tools

;; Copyright (C) 2002, 2003, 2004, 2005  Free Software Foundation, Inc.

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  (if (re-search-forward " source language \\(\\S-*\\)\." nil t)
      (setq gdb-current-language (match-string 1)))
  (gdb-invalidate-assembler))


;; Code specific to GDB 6.4
(defconst gdb-source-file-regexp-1 "fullname=\"\\(.*?\\)\"")

(defun gdb-set-gud-minor-mode-existing-buffers-1 ()
  "Create list of source files for current GDB session."

68773:dc49655f57ae

;; Author: Nick Roberts <[e-mail]>
;; Maintainer: FSF
;; Keywords: unix, tools

;; Copyright (C) 2002, 2003, 2004, 2005, 2006 
;; Free Software Foundation, Inc.

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  (if (re-search-forward " source language \\(\\S-*\\)\." nil t)
      (setq gdb-current-language (match-string 1)))
  (gdb-invalidate-assembler))


;; For debugging Emacs only (assumes that usual stack buffer already exists).
(defun gdb-xbacktrace ()
  "Generate a full lisp level backtrace with arguments."
  (interactive)
  (setq my-frames nil)
  (with-current-buffer (get-buffer-create "xbacktrace")
    (erase-buffer))
  (let (frame-number gdb-frame-number)
    (with-current-buffer (gdb-get-buffer 'gdb-stack-buffer)
      (save-excursion
	(goto-char (point-min))
	(while (search-forward "in Ffuncall " nil t)
	  (goto-char (line-beginning-position))
	  (looking-at "^#\\([0-9]+\\)")
	  (push (match-string-no-properties 1) my-frames)
	  (forward-line 1))))
    (dolist (frame my-frames)
      (gdb-enqueue-input (list (concat "server frame " frame "\n")
			       'ignore))
;    (gdb-enqueue-input (list "server ppargs\n" 'gdb-get-arguments))
      (gud-basic-call "server ppargs")
)
    (gdb-enqueue-input (list (concat "server frame " frame-number "\n")
			     'ignore))))
    
(defun gdb-get-arguments ()
  (with-current-buffer "xbacktrace"
    (insert-buffer-substring (gdb-get-buffer 'gdb-partial-output-buffer))))

;; Code specific to GDB 6.4
(defconst gdb-source-file-regexp-1 "fullname=\"\\(.*?\\)\"")

(defun gdb-set-gud-minor-mode-existing-buffers-1 ()
  "Create list of source files for current GDB session."