Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/compiler/X86/x86-lap.lisp

    r13192 r14259  
    11441144                               *x86-lap-entry-offset*)
    11451145                            255))
    1146            (first-frag (frag-list-succ frag-list)))
     1146           (first-frag (dll-header-succ frag-list)))
    11471147      (setf (frag-ref first-frag 4) label-diff
    11481148            (frag-ref first-frag 5) regsave-addr
  • branches/qres/ccl/compiler/nx-basic.lisp

    r14172 r14259  
    709709      (cdr (assq name (defenv.structrefs defenv))))))
    710710
     711 ;; can be removed once new images are checked in
     712#-BOOTSTRAPPED
     713(unless (fboundp 'structref-info)
     714  (fset 'structref-info
     715        (nlambda boostrapping-structref-info (sym &optional env)
     716                 (or (and env (environment-structref-info sym env))
     717                     (gethash sym %structure-refs%)))))
     718
    711719;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    712720;;
  • branches/qres/ccl/compiler/nx0.lisp

    r14058 r14259  
    24702470             (go START)))
    24712471         (unless macro-function
    2472            (when (setq transforms (or (environment-structref-info sym environment)
    2473                                       (and (boundp '%structure-refs%)
    2474                                            (gethash sym %structure-refs%))))
     2472           (when (setq transforms (structref-info sym environment))
    24752473             (setq form (defstruct-ref-transform transforms (%cdr form) environment))
    24762474             (form-changed form)
  • branches/qres/ccl/compiler/subprims.lisp

    r13070 r14259  
    4444
    4545(defun subprim-name->offset (name &optional (backend *target-backend*))
     46  ;; Don't care about speed, but for bootstrapping reasons avoid typechecking
     47  ;; against symbols in the arch package.
     48  (declare (optimize (speed 3) (safety 0)))
    4649  (+ (backend-lowmem-bias backend)
    4750     (%subprim-name->offset name  (arch::target-subprims-table
  • branches/qres/ccl/compiler/vinsn.lisp

    r13070 r14259  
    476476  (let* ((gprs-set 0)
    477477         (fprs-set 0))
    478     (do* ((element (vinsn-succ start) (vinsn-succ element)))
     478    (do* ((element (dll-node-succ start) (dll-node-succ element)))
    479479         ((eq element end) (values gprs-set fprs-set))n
    480480      (if (typep element 'vinsn)
     
    486486;;; Return T if any vinsn between START and END (exclusive) sets REG.
    487487(defun vinsn-sequence-sets-reg-p (start end reg)
    488   (do* ((element (vinsn-succ start) (vinsn-succ element)))
     488  (do* ((element (dll-node-succ start) (dll-node-succ element)))
    489489       ((eq element end))
    490490    (if (vinsn-sets-reg-p element reg)
     
    495495;;; attributes set in MASK set.
    496496(defun %vinsn-sequence-has-attribute-p (start end attr)
    497   (do* ((element (vinsn-succ start) (vinsn-succ element)))
     497  (do* ((element (dll-node-succ start) (dll-node-succ element)))
    498498       ((eq element end))
    499499    (when (typep element 'vinsn)
Note: See TracChangeset for help on using the changeset viewer.