Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x86-disassemble.lisp

    r10972 r11089  
    26952695      (let* ((diff (- val (x86-ds-code-limit ds)))
    26962696             (constant (uvref (x86-ds-constants-vector ds)
    2697                               (1+ (ash diff (if (x86-ds-mode-64 ds)
     2697                              (1+ (ash diff (if (x86-ds-mode-64 ds)
    26982698                                              (- x8664::word-shift)
    26992699                                              (- x8632::word-shift)))))))
     
    27352735      else
    27362736        do (setf just-saw-space nil)
    2737         and do (write-char char sans-whitespace))))   
    2738    
     2737        and do (write-char char sans-whitespace))))
     2738
     2739
    27392740(defun x86-print-disassembled-instruction (ds instruction seq function)
    27402741  (declare (special *previous-instruction* *previous-block*))
     
    28802881
    28812882#+x8632-target
    2882 (defun x8664-xdisassemble (function
     2883(defun x8632-xdisassemble (function
    28832884                           &optional (collect-function #'x86-print-disassembled-instruction)
    28842885                                     (header-function #'x86-print-disassembled-function-header))
Note: See TracChangeset for help on using the changeset viewer.