From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Rob Browning Newsgroups: gmane.emacs.devel Subject: Re: m68k "Invalid character:" build failure look familiar to anyone? Date: Fri, 26 Sep 2003 09:17:15 -0500 Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <87pthn1vo4.fsf@raven.i.defaultvalue.org> References: <87smmmoilt.fsf@raven.i.defaultvalue.org> <87eky5ai0x.fsf@raven.i.defaultvalue.org> <87eky47umm.fsf@raven.i.defaultvalue.org> <87y8wc6ddu.fsf@raven.i.defaultvalue.org> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable X-Trace: sea.gmane.org 1064585897 18649 80.91.224.253 (26 Sep 2003 14:18:17 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 26 Sep 2003 14:18:17 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Fri Sep 26 16:18:15 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1A2tQF-0003pz-00 for ; Fri, 26 Sep 2003 16:18:15 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1A2tQF-0006SK-00 for ; Fri, 26 Sep 2003 16:18:15 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 1A2tPa-0004U9-MK for emacs-devel@quimby.gnus.org; Fri, 26 Sep 2003 10:17:34 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.22) id 1A2tPM-00049m-E4 for emacs-devel@gnu.org; Fri, 26 Sep 2003 10:17:20 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.22) id 1A2tPJ-00046R-RS for emacs-devel@gnu.org; Fri, 26 Sep 2003 10:17:18 -0400 Original-Received: from [66.93.216.237] (helo=defaultvalue.org) by monty-python.gnu.org with esmtp (Exim 4.22) id 1A2tPI-00044a-Uw for emacs-devel@gnu.org; Fri, 26 Sep 2003 10:17:17 -0400 Original-Received: from raven.i.defaultvalue.org (raven.i.defaultvalue.org [192.168.1.7]) by defaultvalue.org (Postfix) with ESMTP id 810583FC2; Fri, 26 Sep 2003 09:17:15 -0500 (CDT) Original-Received: by raven.i.defaultvalue.org (Postfix, from userid 1000) id 39FE6810FE; Fri, 26 Sep 2003 09:17:15 -0500 (CDT) Original-To: Andreas Schwab In-Reply-To: (Andreas Schwab's message of "Fri, 26 Sep 2003 11:16:50 +0200") User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.2 Precedence: list List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:16673 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:16673 Andreas Schwab writes: >>> Can you please print out the lisp expression that args points to at this >>> place? See etc/DEBUG for more information. >> >> Sure: > > I was rather referring to the args in Fprogn. Ah, ok. If you mean the next level Fprogn up, then it appears to be nil at the time of the error. I also included args from the Flet above it in case that's helpful. Thanks again. (gdb) up #4 0x800d326e in Feval (form=3D1350173948) at /home/rlb/tmp/emacs21-21.3+1/src/eval.c:1986 1986 val =3D (*XSUBR (fun)->function) (XINT (numargs), vals); (gdb) up #5 0x800d0d1a in Fprogn (args=3D274922548) at /home/rlb/tmp/emacs21-21.3+1/src/eval.c:431 431 val =3D Feval (Fcar (args_left)); (gdb) p args $5 =3D 274922548 (gdb) pr nil (gdb) up #6 0x800d1790 in Flet (args=3D1350170172) at /home/rlb/tmp/emacs21-21.3+1/src/eval.c:875 875 elt =3D Fprogn (Fcdr (args)); (gdb) p args $6 =3D 1350170172 (gdb) pr (((pc 0) op off (bytes (quote nil)) (patchlist nil) rest rel tmp) (while la= p (setq op (car (car lap)) off (cdr (car lap))) (cond ((not (symbolp op)) (= error "Non-symbolic opcode `%s'" op)) ((eq op (quote TAG)) (setcar off pc) = (setq patchlist (cons off patchlist))) ((memq op byte-goto-ops) (setq pc (+= pc 3)) (setq bytes (cons (cons pc (cdr off)) (cons nil (cons (symbol-value= op) bytes)))) (setq patchlist (cons bytes patchlist))) (t (setq bytes (con= d ((cond ((consp off) (setq off (cdr off)) (eq op (quote byte-constant)))) = (cond ((< off byte-constant-limit) (setq pc (1+ pc)) (cons (+ byte-constant= off) bytes)) (t (setq pc (+ 3 pc)) (cons (lsh off -8) (cons (logand off 25= 5) (cons byte-constant2 bytes)))))) ((<=3D byte-listN (symbol-value op)) (s= etq pc (+ 2 pc)) (cons off (cons (symbol-value op) bytes))) ((< off 6) (set= q pc (1+ pc)) (cons (+ (symbol-value op) off) bytes)) ((< off 256) (setq pc= (+ 2 pc)) (cons off (cons (+ (symbol-value op) 6) bytes))) (t (setq pc (+ = 3 pc)) (cons (lsh off -8) (cons (logand off 255) (cons (+ (symbol-value op)= 7) bytes)))))))) (setq lap (cdr lap))) (let (bytes) (while patchlist (setq= bytes (car patchlist)) (cond ((atom (car bytes))) (t (setq pc (car (cdr (c= ar bytes)))) (setcar (cdr bytes) (logand pc 255)) (setcar bytes (lsh pc -8)= ))) (setq patchlist (cdr patchlist)))) (concat (nreverse bytes))) --=20 Rob Browning rlb @defaultvalue.org and @debian.org; previously @cs.utexas.edu GPG starting 2002-11-03 =3D 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 7= 3A4