Skip to content

fix for undump-pvs-files void variable overwrite issue #101

@tarball1024

Description

@tarball1024

The following patch fixes a small issue with undumping PVS files. Tested to work on emacs 29.1 and 30.1.

diff --git a/emacs/pvs-cmds.el b/emacs/pvs-cmds.el
index bf86536f..83d98f9b 100644
--- a/emacs/pvs-cmds.el
+++ b/emacs/pvs-cmds.el
@@ -87,6 +87,7 @@
 (defvar pvs-path)
 (defvar pvs-library-path)
 (defvar pvs-initialized)
+(defvar overwrite)

 (declare-function confirm-not-in-checker "pvs-eval")
 (declare-function current-line-number "pvs-mode")
@@ -1104,7 +1105,7 @@ e.g., C-u or M-0."
   (interactive "fUndump file: \nDInto directory: ")
   (let ((buf (find-file-noselect filename))
        (dname (file-name-as-directory directory))
-       ;; (overwrite nil)
+       (overwrite nil)
        )
     (unless (file-name-absolute-p dname)
       (error "Directory to undump into must be absolute, not relative"))
@@ -1134,6 +1135,7 @@ e.g., C-u or M-0."
       (let ((found-one (re-search-forward "^[$][$][$].*$" nil t)))
        (while found-one
          (forward-line)
+          (defvar filename)
          (let* ((fname (buffer-substring (+ (match-beginning 0) 3)
                                          (match-end 0)))
                 (ndir (pvs-get-dump-directory (or (file-name-directory fname)

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions