* bug#4555: bootstrap non-fatal args-out-of-range error making autoloads
@ 2009-09-24 22:38 ` Glenn Morris
2009-10-01 2:30 ` bug#4555: marked as done (bootstrap non-fatal args-out-of-range error making autoloads) Emacs bug Tracking System
0 siblings, 1 reply; 2+ messages in thread
From: Glenn Morris @ 2009-09-24 22:38 UTC (permalink / raw)
To: bug-gnu-emacs
When bootstrapping the current trunk, I see the following non-fatal
error during the build:
Generating autoloads for dired-aux.el...
Error: (args-out-of-range 0 0)
Generating autoloads for dired-x.el...
Turning on debug-on-error while making autoloads gives (after some
randomness) the following backtrace. (I don't know why it is
abbreviated, I am setting print-length and friends to nil). This is
from the point of the find-file-noselect call in
autoload-find-destination.
It looks like something is messing up the match-data in
vc-cvs-parse-entry. It's not obvious to me that requiring parse-time
and calling parse-time-string isn't going to change the match-data in
some way.
buffer-substring(0 0)
(if string (substring string (match-beginning num) (match-end num)) (buffer-substring (match-beginning num) (match-end num)))
(if (match-beginning num) (if string (substring string ... ...) (buffer-substring ... ...)))
match-string(2)
(string-match "\\+" (match-string 2))
(not (string-match "\\+" (match-string 2)))
(and (not (string-match "\\+" ...)) (car parsed-time) (equal mtime (apply ... parsed-time)))
(cond ((and ... ... ...) (vc-file-setprop file ... mtime) (if set-state ...)) (t (vc-file-setprop file ... 0) (if set-state ...)))
(let ((parsed-time ...)) (cond (... ... ...) (t ... ...)))
(let ((mtime ...)) (require (quote parse-time)) (let (...) (cond ... ...)))
(cond ((looking-at "/[^/]+/0/") (vc-file-setprop file ... 0) (vc-file-setprop file ... "0") (if set-state ...)) ((looking-at ...) (vc-file-setprop file ... ...) (vc-file-setprop file ... ...) (let ... ... ...)))
vc-cvs-parse-entry("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(cond ((re-search-forward ... nil t) (beginning-of-line) (vc-cvs-parse-entry file) t) (t nil))
(progn (vc-cvs-get-entries dirname) (goto-char (point-min)) (cond (... ... ... t) (t nil)))
(unwind-protect (progn (vc-cvs-get-entries dirname) (goto-char ...) (cond ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
(with-temp-buffer (vc-cvs-get-entries dirname) (goto-char (point-min)) (cond (... ... ... t) (t nil)))
(or (string= basename "") (with-temp-buffer (vc-cvs-get-entries dirname) (goto-char ...) (cond ... ...)))
(if (file-readable-p (expand-file-name "CVS/Entries" dirname)) (or (string= basename "") (with-temp-buffer ... ... ...)) nil)
(let ((dirname ...) (basename ...) (case-fold-search nil)) (if (file-readable-p ...) (or ... ...) nil))
vc-cvs-registered("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
apply(vc-cvs-registered "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(cond ((null f) (error "Sorry, %s is not implemented for %s" function-name backend)) ((consp f) (apply ... ... args)) (t (apply f args)))
(let ((f ...)) (if f (setq f ...) (setq f ...) (push ... ...)) (cond (... ...) (... ...) (t ...)))
vc-call-backend(CVS registered "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(and (vc-call-backend b (quote registered) file) (vc-file-setprop file (quote vc-backend) b) (throw (quote found) t))
(lambda (b) (and (vc-call-backend b ... file) (vc-file-setprop file ... b) (throw ... t)))(CVS)
mapc((lambda (b) (and (vc-call-backend b ... file) (vc-file-setprop file ... b) (throw ... t))) (RCS CVS SVN SCCS Bzr Git Hg Mtn Arch))
(let ((backend ...)) (mapc (lambda ... ...) (if ... vc-handled-backends ...)))
(catch (quote found) (let (...) (mapc ... ...)) (vc-file-setprop file (quote vc-backend) (quote none)) nil)
(cond ((and ... ...) nil) ((and ... ...) (funcall handler ... file)) (t (catch ... ... ... nil)))
(let (handler) (cond (... nil) (... ...) (t ...)))
vc-registered("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(if (vc-registered file-or-list) (vc-file-getprop file-or-list (quote vc-backend)) nil)
(cond ((eq property ...) nil) (property) (t (if ... ... nil)))
(let ((property ...)) (cond (... nil) (property) (t ...)))
(cond ((stringp file-or-list) (let ... ...)) ((and file-or-list ...) (vc-backend ...)) (t nil))
vc-backend("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(progn (vc-backend buffer-file-name))
(lambda nil (progn (vc-backend buffer-file-name)))()
funcall((lambda nil (progn (vc-backend buffer-file-name))))
(if debug-on-error (funcall body) (condition-case err (funcall body) (error ... nil)))
(let ((body ...)) (if debug-on-error (funcall body) (condition-case err ... ...)))
(condition-case-no-debug err (progn (vc-backend buffer-file-name)) (error (message "Error: %s" err) nil))
(with-demoted-errors (vc-backend buffer-file-name))
(setq backend (with-demoted-errors (vc-backend buffer-file-name)))
(cond ((setq backend ...) (vc-mode-line buffer-file-name backend) (unless vc-make-backup-files ...) (vc-call-backend backend ...)) ((let ... ...)))
(let (backend) (cond (... ... ... ...) (...)))
(progn (vc-file-clearprops buffer-file-name) (add-hook (quote mode-line-hook) (quote vc-mode-line) nil t) (let (backend) (cond ... ...)))
(if buffer-file-name (progn (vc-file-clearprops buffer-file-name) (add-hook ... ... nil t) (let ... ...)))
(when buffer-file-name (vc-file-clearprops buffer-file-name) (add-hook (quote mode-line-hook) (quote vc-mode-line) nil t) (let (backend) (cond ... ...)))
vc-find-file-hook()
run-hooks(find-file-hook)
(if nomodes nil (when (and view-read-only view-mode) (view-mode-disable)) (normal-mode t) (and (memq require-final-newline ...) (> ... ...) (/= ... 10) (not ...) (save-excursion ... ...)) (when (and buffer-read-only view-read-only ...) (view-mode-enter)) (run-hooks (quote find-file-hook)))
(unless nomodes (when (and view-read-only view-mode) (view-mode-disable)) (normal-mode t) (and (memq require-final-newline ...) (> ... ...) (/= ... 10) (not ...) (save-excursion ... ...)) (when (and buffer-read-only view-read-only ...) (view-mode-enter)) (run-hooks (quote find-file-hook)))
after-find-file(nil t)
(if rawfile (progn (set-buffer-multibyte nil) (setq buffer-file-coding-system ...) (set-buffer-major-mode buf) (make-local-variable ...) (setq find-file-literally t)) (after-find-file error (not nowarn)))
(save-current-buffer (set-buffer buf) (kill-local-variable (quote find-file-literally)) (kill-local-variable (quote buffer-file-coding-system)) (kill-local-variable (quote cursor-type)) (let (...) (erase-buffer)) (and (default-value ...) (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil ... ...) (condition-case nil ... ...)) (if (equal filename buffer-file-name) (setq buffer-file-truename truename) (setq buffer-file-truename ...)) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name ...)) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not ...) (progn ... ...)) (if rawfile (progn ... ... ... ... ...) (after-find-file error ...)) (current-buffer))
(with-current-buffer buf (kill-local-variable (quote find-file-literally)) (kill-local-variable (quote buffer-file-coding-system)) (kill-local-variable (quote cursor-type)) (let (...) (erase-buffer)) (and (default-value ...) (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil ... ...) (condition-case nil ... ...)) (if (equal filename buffer-file-name) (setq buffer-file-truename truename) (setq buffer-file-truename ...)) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name ...)) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not ...) (progn ... ...)) (if rawfile (progn ... ... ... ... ...) (after-find-file error ...)) (current-buffer))
(let (error) (with-current-buffer buf (kill-local-variable ...) (kill-local-variable ...) (kill-local-variable ...) (let ... ...) (and ... ... ...) (if rawfile ... ...) (if ... ... ...) (setq buffer-file-number number) (if find-file-visit-truename ...) (setq default-directory ...) (and backup-enable-predicate ... ...) (if rawfile ... ...) (current-buffer)))
find-file-noselect-1(#<buffer dired.el> "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el" nil nil "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el" (28542623 2053))
(if buf (let (nonexistent) (or nowarn ... ...) (with-current-buffer buf ... ...) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number))
(let* ((buf ...) (truename ...) (attributes ...) (number ...) (other ...)) (if other (progn ... ...)) (when (not ...) (abort-if-file-too-large ... "open" filename)) (if buf (let ... ... ... buf) (setq buf ...) (find-file-noselect-1 buf filename nowarn rawfile truename number)))
(if (and wildcards find-file-wildcards (not ...) (string-match "[[*?]" filename)) (let (... ...) (if ... ... ...)) (let* (... ... ... ... ...) (if other ...) (when ... ...) (if buf ... ... ...)))
(if (file-directory-p filename) (or (and find-file-run-dired ...) (error "%s is a directory" filename)) (if (and wildcards find-file-wildcards ... ...) (let ... ...) (let* ... ... ... ...)))
find-file-noselect("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
^ permalink raw reply [flat|nested] 2+ messages in thread
* bug#4555: marked as done (bootstrap non-fatal args-out-of-range error making autoloads)
2009-09-24 22:38 ` bug#4555: bootstrap non-fatal args-out-of-range error making autoloads Glenn Morris
@ 2009-10-01 2:30 ` Emacs bug Tracking System
0 siblings, 0 replies; 2+ messages in thread
From: Emacs bug Tracking System @ 2009-10-01 2:30 UTC (permalink / raw)
To: Glenn Morris
[-- Attachment #1: Type: text/plain, Size: 920 bytes --]
Your message dated Wed, 30 Sep 2009 22:23:51 -0400
with message-id <mkiqezq2bs.fsf@fencepost.gnu.org>
and subject line Re: bug#4555: bootstrap non-fatal args-out-of-range error making autoloads
has caused the Emacs bug report #4555,
regarding bootstrap non-fatal args-out-of-range error making autoloads
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact owner@emacsbugs.donarmstrong.com
immediately.)
--
4555: http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=4555
Emacs Bug Tracking System
Contact owner@emacsbugs.donarmstrong.com with problems
[-- Attachment #2: Type: message/rfc822, Size: 11541 bytes --]
From: Glenn Morris <rgm@gnu.org>
To: bug-gnu-emacs@gnu.org
Subject: bootstrap non-fatal args-out-of-range error making autoloads
Date: Thu, 24 Sep 2009 18:38:49 -0400
Message-ID: <qnab0kynly.fsf@fencepost.gnu.org>
When bootstrapping the current trunk, I see the following non-fatal
error during the build:
Generating autoloads for dired-aux.el...
Error: (args-out-of-range 0 0)
Generating autoloads for dired-x.el...
Turning on debug-on-error while making autoloads gives (after some
randomness) the following backtrace. (I don't know why it is
abbreviated, I am setting print-length and friends to nil). This is
from the point of the find-file-noselect call in
autoload-find-destination.
It looks like something is messing up the match-data in
vc-cvs-parse-entry. It's not obvious to me that requiring parse-time
and calling parse-time-string isn't going to change the match-data in
some way.
buffer-substring(0 0)
(if string (substring string (match-beginning num) (match-end num)) (buffer-substring (match-beginning num) (match-end num)))
(if (match-beginning num) (if string (substring string ... ...) (buffer-substring ... ...)))
match-string(2)
(string-match "\\+" (match-string 2))
(not (string-match "\\+" (match-string 2)))
(and (not (string-match "\\+" ...)) (car parsed-time) (equal mtime (apply ... parsed-time)))
(cond ((and ... ... ...) (vc-file-setprop file ... mtime) (if set-state ...)) (t (vc-file-setprop file ... 0) (if set-state ...)))
(let ((parsed-time ...)) (cond (... ... ...) (t ... ...)))
(let ((mtime ...)) (require (quote parse-time)) (let (...) (cond ... ...)))
(cond ((looking-at "/[^/]+/0/") (vc-file-setprop file ... 0) (vc-file-setprop file ... "0") (if set-state ...)) ((looking-at ...) (vc-file-setprop file ... ...) (vc-file-setprop file ... ...) (let ... ... ...)))
vc-cvs-parse-entry("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(cond ((re-search-forward ... nil t) (beginning-of-line) (vc-cvs-parse-entry file) t) (t nil))
(progn (vc-cvs-get-entries dirname) (goto-char (point-min)) (cond (... ... ... t) (t nil)))
(unwind-protect (progn (vc-cvs-get-entries dirname) (goto-char ...) (cond ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ... ...) (and ... ...)))
(with-current-buffer temp-buffer (unwind-protect (progn ... ... ...) (and ... ...)))
(let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-protect ... ...)))
(with-temp-buffer (vc-cvs-get-entries dirname) (goto-char (point-min)) (cond (... ... ... t) (t nil)))
(or (string= basename "") (with-temp-buffer (vc-cvs-get-entries dirname) (goto-char ...) (cond ... ...)))
(if (file-readable-p (expand-file-name "CVS/Entries" dirname)) (or (string= basename "") (with-temp-buffer ... ... ...)) nil)
(let ((dirname ...) (basename ...) (case-fold-search nil)) (if (file-readable-p ...) (or ... ...) nil))
vc-cvs-registered("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
apply(vc-cvs-registered "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(cond ((null f) (error "Sorry, %s is not implemented for %s" function-name backend)) ((consp f) (apply ... ... args)) (t (apply f args)))
(let ((f ...)) (if f (setq f ...) (setq f ...) (push ... ...)) (cond (... ...) (... ...) (t ...)))
vc-call-backend(CVS registered "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(and (vc-call-backend b (quote registered) file) (vc-file-setprop file (quote vc-backend) b) (throw (quote found) t))
(lambda (b) (and (vc-call-backend b ... file) (vc-file-setprop file ... b) (throw ... t)))(CVS)
mapc((lambda (b) (and (vc-call-backend b ... file) (vc-file-setprop file ... b) (throw ... t))) (RCS CVS SVN SCCS Bzr Git Hg Mtn Arch))
(let ((backend ...)) (mapc (lambda ... ...) (if ... vc-handled-backends ...)))
(catch (quote found) (let (...) (mapc ... ...)) (vc-file-setprop file (quote vc-backend) (quote none)) nil)
(cond ((and ... ...) nil) ((and ... ...) (funcall handler ... file)) (t (catch ... ... ... nil)))
(let (handler) (cond (... nil) (... ...) (t ...)))
vc-registered("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(if (vc-registered file-or-list) (vc-file-getprop file-or-list (quote vc-backend)) nil)
(cond ((eq property ...) nil) (property) (t (if ... ... nil)))
(let ((property ...)) (cond (... nil) (property) (t ...)))
(cond ((stringp file-or-list) (let ... ...)) ((and file-or-list ...) (vc-backend ...)) (t nil))
vc-backend("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
(progn (vc-backend buffer-file-name))
(lambda nil (progn (vc-backend buffer-file-name)))()
funcall((lambda nil (progn (vc-backend buffer-file-name))))
(if debug-on-error (funcall body) (condition-case err (funcall body) (error ... nil)))
(let ((body ...)) (if debug-on-error (funcall body) (condition-case err ... ...)))
(condition-case-no-debug err (progn (vc-backend buffer-file-name)) (error (message "Error: %s" err) nil))
(with-demoted-errors (vc-backend buffer-file-name))
(setq backend (with-demoted-errors (vc-backend buffer-file-name)))
(cond ((setq backend ...) (vc-mode-line buffer-file-name backend) (unless vc-make-backup-files ...) (vc-call-backend backend ...)) ((let ... ...)))
(let (backend) (cond (... ... ... ...) (...)))
(progn (vc-file-clearprops buffer-file-name) (add-hook (quote mode-line-hook) (quote vc-mode-line) nil t) (let (backend) (cond ... ...)))
(if buffer-file-name (progn (vc-file-clearprops buffer-file-name) (add-hook ... ... nil t) (let ... ...)))
(when buffer-file-name (vc-file-clearprops buffer-file-name) (add-hook (quote mode-line-hook) (quote vc-mode-line) nil t) (let (backend) (cond ... ...)))
vc-find-file-hook()
run-hooks(find-file-hook)
(if nomodes nil (when (and view-read-only view-mode) (view-mode-disable)) (normal-mode t) (and (memq require-final-newline ...) (> ... ...) (/= ... 10) (not ...) (save-excursion ... ...)) (when (and buffer-read-only view-read-only ...) (view-mode-enter)) (run-hooks (quote find-file-hook)))
(unless nomodes (when (and view-read-only view-mode) (view-mode-disable)) (normal-mode t) (and (memq require-final-newline ...) (> ... ...) (/= ... 10) (not ...) (save-excursion ... ...)) (when (and buffer-read-only view-read-only ...) (view-mode-enter)) (run-hooks (quote find-file-hook)))
after-find-file(nil t)
(if rawfile (progn (set-buffer-multibyte nil) (setq buffer-file-coding-system ...) (set-buffer-major-mode buf) (make-local-variable ...) (setq find-file-literally t)) (after-find-file error (not nowarn)))
(save-current-buffer (set-buffer buf) (kill-local-variable (quote find-file-literally)) (kill-local-variable (quote buffer-file-coding-system)) (kill-local-variable (quote cursor-type)) (let (...) (erase-buffer)) (and (default-value ...) (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil ... ...) (condition-case nil ... ...)) (if (equal filename buffer-file-name) (setq buffer-file-truename truename) (setq buffer-file-truename ...)) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name ...)) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not ...) (progn ... ...)) (if rawfile (progn ... ... ... ... ...) (after-find-file error ...)) (current-buffer))
(with-current-buffer buf (kill-local-variable (quote find-file-literally)) (kill-local-variable (quote buffer-file-coding-system)) (kill-local-variable (quote cursor-type)) (let (...) (erase-buffer)) (and (default-value ...) (not rawfile) (set-buffer-multibyte t)) (if rawfile (condition-case nil ... ...) (condition-case nil ... ...)) (if (equal filename buffer-file-name) (setq buffer-file-truename truename) (setq buffer-file-truename ...)) (setq buffer-file-number number) (if find-file-visit-truename (setq buffer-file-name ...)) (setq default-directory (file-name-directory buffer-file-name)) (and backup-enable-predicate (not ...) (progn ... ...)) (if rawfile (progn ... ... ... ... ...) (after-find-file error ...)) (current-buffer))
(let (error) (with-current-buffer buf (kill-local-variable ...) (kill-local-variable ...) (kill-local-variable ...) (let ... ...) (and ... ... ...) (if rawfile ... ...) (if ... ... ...) (setq buffer-file-number number) (if find-file-visit-truename ...) (setq default-directory ...) (and backup-enable-predicate ... ...) (if rawfile ... ...) (current-buffer)))
find-file-noselect-1(#<buffer dired.el> "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el" nil nil "/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el" (28542623 2053))
(if buf (let (nonexistent) (or nowarn ... ...) (with-current-buffer buf ... ...) buf) (setq buf (create-file-buffer filename)) (find-file-noselect-1 buf filename nowarn rawfile truename number))
(let* ((buf ...) (truename ...) (attributes ...) (number ...) (other ...)) (if other (progn ... ...)) (when (not ...) (abort-if-file-too-large ... "open" filename)) (if buf (let ... ... ... buf) (setq buf ...) (find-file-noselect-1 buf filename nowarn rawfile truename number)))
(if (and wildcards find-file-wildcards (not ...) (string-match "[[*?]" filename)) (let (... ...) (if ... ... ...)) (let* (... ... ... ... ...) (if other ...) (when ... ...) (if buf ... ... ...)))
(if (file-directory-p filename) (or (and find-file-run-dired ...) (error "%s is a directory" filename)) (if (and wildcards find-file-wildcards ... ...) (let ... ...) (let* ... ... ... ...)))
find-file-noselect("/scratch/gmorris/emacs/cvs/trunk-orig/lisp/dired.el")
[-- Attachment #3: Type: message/rfc822, Size: 1620 bytes --]
From: Glenn Morris <rgm@gnu.org>
To: 4555-done@emacsbugs.donarmstrong.com
Subject: Re: bug#4555: bootstrap non-fatal args-out-of-range error making autoloads
Date: Wed, 30 Sep 2009 22:23:51 -0400
Message-ID: <mkiqezq2bs.fsf@fencepost.gnu.org>
* vc-cvs.el (vc-cvs-parse-entry): Be more careful with the match-data.
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2009-10-01 2:30 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
[not found] <mkiqezq2bs.fsf@fencepost.gnu.org>
2009-09-24 22:38 ` bug#4555: bootstrap non-fatal args-out-of-range error making autoloads Glenn Morris
2009-10-01 2:30 ` bug#4555: marked as done (bootstrap non-fatal args-out-of-range error making autoloads) Emacs bug Tracking System
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).