Changeset 14622


Ignore:
Timestamp:
Feb 1, 2011, 12:01:52 AM (9 years ago)
Author:
rme
Message:

Remove some left-over debugging stuff.

Location:
trunk/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-asm.lisp

    r14619 r14622  
    548548    :rex-prefix ,rex-prefix
    549549    :modrm-byte ,modrm-byte))
    550 
    551 ;;(ccl::pdbg "about to define *x86-opcode-templates*")
    552 ;;(ccl::dbg 1)
    553550
    554551(defparameter *x86-opcode-templates*
     
    34283425   ))
    34293426
    3430 ;;(ccl::pdbg "about to set ordinals")
    34313427
    34323428(dotimes (i (length *x86-opcode-templates*))
  • trunk/source/compiler/X86/x86-lap.lisp

    r14619 r14622  
    14541454          (let* ((ncode (- code-words nconstants)))
    14551455            (when (>= ncode #x8000)
    1456               ;;(break "hey, a big function!")
    14571456              (if (>= nconstants #x8000)
    14581457                (compiler-function-overflow)
  • trunk/source/level-0/nfasload.lisp

    r14619 r14622  
    428428    #+x8632-target
    429429    (%update-self-references vector)
    430     #+x8632-target
    431     (let* ((addr (%address-of vector))
    432            (insn (%get-unsigned-long (%int-to-ptr addr))))
    433       (when (eql insn #xbf)
    434         (pdbg "update-self-references blew it")
    435         (dbg vector)))
    436430    (do* ((numconst (- size-in-elements size-of-code))
    437431          (i 0 (1+ i))
Note: See TracChangeset for help on using the changeset viewer.