Changeset 12365


Ignore:
Timestamp:
Jul 6, 2009, 4:55:07 PM (10 years ago)
Author:
rme
Message:

%clone-x86-function and %copy-function: set 16-bit constant count.

Debugging code in l1-clos-boot.

Location:
branches/x8632-functions
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/x8632-functions/level-0/X86/X8632/x8632-def.lisp

    r12349 r12365  
    100100    (declare (fixnum code-words numimms))
    101101    (%copy-ivector-to-ivector protov 0 newv 0 (the fixnum (ash code-words target::word-shift)))
     102    ;; XXX bootstrapping
     103    (setf (ldb (byte 16 0) (uvref newv 0)) (logior #x8000 numimms))
    102104    (%update-self-references newv)
    103105    (do* ((k code-words (1+ k))
     
    122124    (loop for k fixnum from code-words below total-words
    123125      do (setf (%svref newv k) (%svref protov k)))
     126    (setf (ldb (byte 16 0) (uvref newv 0))
     127          (logior #x8000 (- total-words code-words)))
    124128    (%update-self-references (function-vector-to-function newv))))
    125129
  • branches/x8632-functions/level-1/l1-clos-boot.lisp

    r12357 r12365  
    25652565                         :lambda-list '(instance &rest initargs &key &allow-other-keys))
    25662566
    2567 (pdbg "*** before first defmethod")
    25682567
    25692568(defmethod find-method ((generic-function standard-generic-function)
     
    25912590              (return))))))))
    25922591
    2593 (pdbg "*** after first defmethod")
    25942592
    25952593(defmethod create-reader-method-function ((class slots-class)
     
    26462644  (declare (dynamic-extent initargs))
    26472645  (apply 'make-instance (find-class class) initargs))
    2648 
     2646(pdbg "*** after 1st make-instance defmethod")
    26492647
    26502648(defmethod make-instance ((class standard-class) &rest initargs &key &allow-other-keys)
    26512649  (declare (dynamic-extent initargs))
    26522650  (%make-std-instance class initargs))
     2651(pdbg "*** after 2nd make-instance defmethod")
    26532652
    26542653(defmethod make-instance ((class std-class) &rest initargs &key &allow-other-keys)
Note: See TracChangeset for help on using the changeset viewer.