mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(byte-compile-output-as-comment):

Browse Source 
Use the size in bytes for the #@ size integer.
This commit is contained in:
Richard M. Stallman 1998-02-05 03:25:11 +00:00
parent 4fb1703731
commit 17ceb934e4
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/bytecomp.el
View File

@ -9,7 +9,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.36 $")
(defconst byte-compile-version "$Revision: 2.37 $")
;; This file is part of GNU Emacs.
@ -1836,7 +1836,8 @@ list that represents a doc string reference.
;; and return the file position it will have.
;; If QUOTED is non-nil, print with quoting; otherwise, print without quoting.
(defun byte-compile-output-as-comment (exp quoted)
(let ((position (point)))
(let ((position (point))
total-bytes)
(set-buffer
(prog1 (current-buffer)
(set-buffer outbuffer)
@ -1860,7 +1861,12 @@ list that represents a doc string reference.
(goto-char (point-max))
(insert "\037")
(goto-char position)
(insert "#@" (format "%d" (- (point-max) position)))
(setq total-bytes 0)
(while (not (eobp))
(setq total-bytes (+ total-bytes (char-bytes (char-after (point)))))
(forward-char 1))
(goto-char position)
(insert "#@" (format "%d" total-bytes))
;; Save the file position of the object.
;; Note we should add 1 to skip the space