Changeset 13832


Ignore:
Timestamp:
Jun 16, 2010, 1:47:17 AM (9 years ago)
Author:
gb
Message:

%GET-KERNEL-GLOBAL, %GET-KERNEL-GLOBAL-MACPTR changes. (Might be
able to ref from 0, but need to use (- arm::nil arm::fulltag-nil.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-arch.lisp

    r13815 r13832  
    12621262;;;
    12631263(defarmarchmacro ccl::%get-kernel-global (name)
    1264   `(ccl::%fixnum-ref 0 (+ ,(ccl::target-nil-value)
    1265                         ,(%kernel-global
    1266                           (if (ccl::quoted-form-p name)
    1267                             (cadr name)
    1268                             name)))))
     1264  `(ccl::%fixnum-ref (ash (+ (- nil-value fulltag-nil)
     1265                           ,(%kernel-global
     1266                             (if (ccl::quoted-form-p name)
     1267                               (cadr name)
     1268                               name)))
     1269                      (- fixnumshift))))
     1270   
    12691271
    12701272(defarmarchmacro ccl::%get-kernel-global-ptr (name dest)
    12711273  `(ccl::%setf-macptr
    12721274    ,dest
    1273     (ccl::%fixnum-ref-macptr 0 (+ ,(ccl::target-nil-value)
    1274                                 ,(%kernel-global
    1275                                   (if (ccl::quoted-form-p name)
    1276                                     (cadr name)
    1277                                     name))))))
     1275    (ccl::%fixnum-ref-macptr (ash (+ (- nil-value fulltag-nil)
     1276                                     ,(%kernel-global
     1277                                       (if (ccl::quoted-form-p name)
     1278                                         (cadr name)
     1279                                         name)))
     1280                              (- fixnumshift)))))
    12781281
    12791282(defarmarchmacro ccl::%target-kernel-global (name)
Note: See TracChangeset for help on using the changeset viewer.