From xemacs-m  Tue Jul  8 10:15:30 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id KAA11977
	for <xemacs-beta@xemacs.org>; Tue, 8 Jul 1997 10:15:29 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id RAA18713; Tue, 8 Jul 1997 17:15:29 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] disassembler broken by LOSING_BYTECODE
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Jul 1997 17:15:29 +0200
Message-ID: <kig67ulk226.fsf@jagor.srce.hr>
Lines: 26
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta11) - "Stockholm"

It seems that much more code is using LOSING_BYTECODE than we
imagined.  But this is as good a time as any to hash it out!  Here is
my contribution:

--- lisp/bytecomp/disass.el.orig	Tue Jul  8 17:06:54 1997
+++ lisp/bytecomp/disass.el	Tue Jul  8 17:13:42 1997
@@ -175,8 +175,8 @@
     (if (consp obj)
 	(setq bytes (car (cdr obj))		; the byte code
 	      constvec (car (cdr (cdr obj))))	; constant vector
-      (setq bytes (elt obj 1)
-	    constvec (elt obj 2)))
+      (setq bytes (compiled-function-instructions obj)
+	    constvec (compiled-function-constants obj)))
     (let ((lap (byte-decompile-bytecode bytes constvec))
 	  op arg opname pc-value)
       (let ((tagno 0)

P.S.
Other parts of disass.el already use the correct accessor functions.
This seems to be a leftover.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

