Changeset 6620

Timestamp:

May 28, 2007, 12:44:49 AM (18 years ago)

Author:

Gary Byers

Message:

DISASSEMBLE-LIST works on x86-64, too.

File:

• branches/ide-1.0/ccl/lib/describe.lisp (modified) (1 diff)

branches/ide-1.0/ccl/lib/describe.lisp

@@ -1227 +1227 @@
 (defun compute-disassembly-lines (f &optional (function (inspector-object f)))
   (if (functionp function)
-    (let* ((info (and (disasm-p f) #+ppc-target (list-to-vector (ccl::disassemble-list function))))
+    (let* ((info (and (disasm-p f)  (list-to-vector (ccl::disassemble-list function))))
            (length (length info))
            (last-pc (if info (car (svref info (1- length))) 0)))