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
    No fields configured for issues without a type.

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions