From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: jpff Newsgroups: gmane.emacs.bugs,gmane.emacs.pretest.bugs Subject: bug#4264: 23.1.50; byte-compile-lapcode broken Date: Wed, 26 Aug 2009 06:01:52 +0100 Message-ID: <4701-Wed26Aug2009060152+0100-jpff@codemist.co.uk> Reply-To: jpff , 4264@emacsbugs.donarmstrong.com NNTP-Posting-Host: lo.gmane.org X-Trace: ger.gmane.org 1251264441 14959 80.91.229.12 (26 Aug 2009 05:27:21 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 26 Aug 2009 05:27:21 +0000 (UTC) To: emacs-pretest-bug@gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Aug 26 07:27:14 2009 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1MgB2M-0000X7-HN for geb-bug-gnu-emacs@m.gmane.org; Wed, 26 Aug 2009 07:27:11 +0200 Original-Received: from localhost ([127.0.0.1]:51258 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MgB2L-0006jc-RK for geb-bug-gnu-emacs@m.gmane.org; Wed, 26 Aug 2009 01:27:09 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MgB2C-0006iq-1v for bug-gnu-emacs@gnu.org; Wed, 26 Aug 2009 01:27:00 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MgB27-0006ho-FI for bug-gnu-emacs@gnu.org; Wed, 26 Aug 2009 01:26:59 -0400 Original-Received: from [199.232.76.173] (port=34944 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MgB27-0006ha-8G for bug-gnu-emacs@gnu.org; Wed, 26 Aug 2009 01:26:55 -0400 Original-Received: from rzlab.ucr.edu ([138.23.92.77]:54653) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1MgB26-0006kJ-Ma for bug-gnu-emacs@gnu.org; Wed, 26 Aug 2009 01:26:55 -0400 Original-Received: from rzlab.ucr.edu (rzlab.ucr.edu [127.0.0.1]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n7Q5Qq7G027780; Tue, 25 Aug 2009 22:26:52 -0700 Original-Received: (from debbugs@localhost) by rzlab.ucr.edu (8.14.3/8.14.3/Submit) id n7Q5A5wk024954; Tue, 25 Aug 2009 22:10:05 -0700 Resent-Date: Tue, 25 Aug 2009 22:10:05 -0700 X-Loop: owner@emacsbugs.donarmstrong.com Resent-From: jpff Resent-To: bug-submit-list@donarmstrong.com Resent-CC: Emacs Bugs 2Resent-Date: Wed, 26 Aug 2009 05:10:05 +0000 Resent-Message-ID: Resent-Sender: owner@emacsbugs.donarmstrong.com X-Emacs-PR-Message: report 4264 X-Emacs-PR-Package: emacs X-Emacs-PR-Keywords: Original-Received: via spool by submit@emacsbugs.donarmstrong.com id=B.125126293122907 (code B ref -1); Wed, 26 Aug 2009 05:10:05 +0000 Original-Received: (at submit) by emacsbugs.donarmstrong.com; 26 Aug 2009 05:02:11 +0000 X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. Original-Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n7Q528hs022903 for ; Tue, 25 Aug 2009 22:02:10 -0700 Original-Received: from mx10.gnu.org ([199.232.76.166]:41744) by fencepost.gnu.org with esmtp (Exim 4.67) (envelope-from ) id 1MgAe8-00077X-Bm for emacs-pretest-bug@gnu.org; Wed, 26 Aug 2009 01:02:08 -0400 Original-Received: from Debian-exim by monty-python.gnu.org with spam-scanned (Exim 4.60) (envelope-from ) id 1MgAe6-0003nZ-Nj for emacs-pretest-bug@gnu.org; Wed, 26 Aug 2009 01:02:07 -0400 Original-Received: from smarthost01.mail.zen.net.uk ([212.23.3.140]:39167) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MgAe5-0003mI-LJ for emacs-pretest-bug@gnu.org; Wed, 26 Aug 2009 01:02:05 -0400 Original-Received: from [217.155.197.248] (helo=codemist.co.uk) by smarthost01.mail.zen.net.uk with esmtp (Exim 4.63) (envelope-from ) id 1MgAdx-0001a3-Nu for emacs-pretest-bug@gnu.org; Wed, 26 Aug 2009 05:01:57 +0000 Original-Received: from harvey.codemist.co.uk ([172.16.4.19]) by codemist.co.uk with esmtp (Exim 4.69) (envelope-from ) id 1MgAdx-00022Q-Ek; Wed, 26 Aug 2009 06:01:57 +0100 Original-Received: from jpff by harvey.codemist.co.uk with local (Exim 4.69) (envelope-from ) id 1MgAds-0001B2-37; Wed, 26 Aug 2009 06:01:52 +0100 X-Mailer: emacs 23.1.50.54 (via feedmail 8 I) X-Originating-Smarthost01-IP: [217.155.197.248] X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 3) X-detected-operating-system: by monty-python.gnu.org: GNU/Linux 2.6 (newer, 2) Resent-Date: Wed, 26 Aug 2009 01:26:59 -0400 X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:30581 gmane.emacs.pretest.bugs:24984 Archived-At: if lisp/emacs-lisp/bytecomp.el, function (defun byte-compile-lapcode (lap) has its brackets all wrong, leading to bytes falling out of scope I think it should read (let (bytes) (while patchlist (setq bytes (car patchlist)) (cond ((atom (car bytes))) ; Tag (t ; Absolute jump (setq pc (car (cdr (car bytes)))) ; Pick PC from tag (setcar (cdr bytes) (logand pc 255)) (setcar bytes (lsh pc -8)) ;; FIXME: Replace this by some workaround. (if (> (car bytes) 255) (error "Bytecode overflow"))))) (setq patchlist (cdr patchlist)) (apply 'unibyte-string (nreverse bytes))))) but I am having trouble checking In GNU Emacs 23.1.50.54 (x86_64-unknown-linux-gnu, GTK+ Version 2.14.4) of 2009-08-26 on harvey Windowing system distributor `The X.Org Foundation', version 11.0.10502000 configured using `configure '--with-gif=no'' Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: en_GB.UTF-8 value of $XMODIFIERS: @im=local locale-coding-system: utf-8-unix default-enable-multibyte-characters: t Major mode: Emacs-Lisp Minor modes in effect: eldoc-mode: t auto-image-file-mode: t show-paren-mode: t display-time-mode: t tooltip-mode: t mouse-wheel-mode: t menu-bar-mode: t file-name-shadow-mode: t global-font-lock-mode: t font-lock-mode: t global-auto-composition-mode: t auto-composition-mode: t auto-encryption-mode: t auto-compression-mode: t line-number-mode: t transient-mark-mode: t Recent input: C-x C-f G N U e m a c s - 2 2 l i s / e m a i b y t e c C-u 8 6 0 C-n C-f C-b q C-e C-b C-f C-d C-x C-s y C-s C-w C-l C-l C-l C-s 1 C-x 1 C-l C-l C-x C-x C-a C-l C-l C-l ) ) C-x C-s y M-v M-v M-m r C-g C-x k M-x r e p o r t Recent messages: Mark saved where search started [2 times] Saving file /home/jpff/GNU_21/emacs-22.0.50/lisp/emacs-lisp/bytecomp.el... Wrote /home/jpff/GNU_21/emacs-22.0.50/lisp/emacs-lisp/bytecomp.el Byte-compile /home/jpff/GNU_21/emacs-22.0.50/lisp/emacs-lisp/bytecomp.el? (y or n) Compiling /home/jpff/GNU_21/emacs-22.0.50/lisp/emacs-lisp/bytecomp.el...done Wrote /home/jpff/GNU_21/emacs-22.0.50/lisp/emacs-lisp/bytecomp.elc Loading mail-extr...done Parsing /home/jpff/.mailrc... done Quit Making completion list... [2 times] Load-path shadows: /home/jpff/GNU_21/local-lisp/t-mouse hides /home/jpff/GNU_21/emacs-22.0.50/lisp/t-mouse /home/jpff/GNU_21/local-lisp/emerge hides /home/jpff/GNU_21/emacs-22.0.50/lisp/emerge /home/jpff/GNU_21/local-lisp/scroll-lock hides /home/jpff/GNU_21/emacs-22.0.50/lisp/scroll-lock /home/jpff/GNU_21/local-lisp/ruler-mode hides /home/jpff/GNU_21/emacs-22.0.50/lisp/ruler-mode /home/jpff/GNU_21/local-lisp/url hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url /home/jpff/GNU_21/local-lisp/url-parse hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-parse /home/jpff/GNU_21/local-lisp/url-cache hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-cache /home/jpff/GNU_21/local-lisp/url-file hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-file /home/jpff/GNU_21/local-lisp/url-misc hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-misc /home/jpff/GNU_21/local-lisp/url-vars hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-vars /home/jpff/GNU_21/local-lisp/url-ns hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-ns /home/jpff/GNU_21/local-lisp/url-cookie hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-cookie /home/jpff/GNU_21/local-lisp/url-irc hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-irc /home/jpff/GNU_21/local-lisp/url-gw hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-gw /home/jpff/GNU_21/local-lisp/url-ldap hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-ldap /home/jpff/GNU_21/local-lisp/url-http hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-http /home/jpff/GNU_21/local-lisp/url-nfs hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-nfs /home/jpff/GNU_21/local-lisp/url-auth hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-auth /home/jpff/GNU_21/local-lisp/url-cid hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-cid /home/jpff/GNU_21/local-lisp/url-news hides /home/jpff/GNU_21/emacs-22.0.50/lisp/url/url-news /home/jpff/GNU_21/local-lisp/remember hides /home/jpff/GNU_21/emacs-22.0.50/lisp/textmodes/remember /home/jpff/GNU_21/local-lisp/socks hides /home/jpff/GNU_21/emacs-22.0.50/lisp/net/socks /home/jpff/GNU_21/emacs-22.0.50/lisp/vc-mcvs hides /home/jpff/GNU_21/emacs-22.0.50/lisp/obsolete/vc-mcvs /home/jpff/GNU_21/emacs-22.0.50/lisp/resume hides /home/jpff/GNU_21/emacs-22.0.50/lisp/obsolete/resume ==John ffitch