Changeset 14558 for trunk/source/level-1


Ignore:
Timestamp:
Jan 7, 2011, 12:46:44 AM (9 years ago)
Author:
gb
Message:

Change subprims origin to #x04002000 on Android.

Location:
trunk/source/level-1
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r14550 r14558  
    26172617  #+arm-target
    26182618  (gvector :function
    2619            arm::*function-initial-entrypoint*
     2619           #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    26202620           (uvref *reader-method-function-proto* 1)
    26212621           (ensure-slot-id (%slot-definition-name dslotd))
     
    26432643    #+arm-target
    26442644    (gvector :function
    2645              arm::*function-initial-entrypoint*
     2645             #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    26462646             (uvref *writer-method-function-proto* 1)
    26472647             (ensure-slot-id (%slot-definition-name dslotd))
  • trunk/source/level-1/l1-clos.lisp

    r14119 r14558  
    377377              #+arm-target
    378378              (gvector :function
    379                        arm::*function-initial-entrypoint*
     379                       #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    380380                       (%svref (if small
    381381                                 #'%small-map-slot-id-lookup
     
    409409              #+arm-target
    410410              (gvector :function
    411                        arm::*function-initial-entrypoint*
     411                       #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    412412                       (%svref (if small
    413413                                 #'%small-slot-id-value
     
    446446              #+arm-target
    447447              (gvector :function
    448                        arm::*function-initial-entrypoint*
     448                       #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    449449                       (%svref (if small
    450450                                 #'%small-set-slot-id-value
     
    16811681           #+arm-target
    16821682           (gvector :function
    1683                     arm::*function-initial-entrypoint*
     1683                    #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    16841684                    *unset-fin-code*
    16851685                    wrapper
  • trunk/source/level-1/l1-dcode.lisp

    r14119 r14558  
    428428                 (fn #+(or ppc-target arm-target)
    429429                   (gvector :function
    430                             #+arm-target arm::*function-initial-entrypoint*
     430                            #+arm-target #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    431431                              *gf-proto-code*
    432432                              wrapper
     
    476476  #+(or ppc-target arm-target)
    477477  (gvector :function
    478            #+arm-target arm::*function-initial-entrypoint*
     478           #+arm-target #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    479479           *cm-proto-code*
    480480           thing
  • trunk/source/level-1/l1-typesys.lisp

    r14119 r14558  
    43174317  #+arm-target
    43184318  (gvector :function
    4319            arm::*function-initial-entrypoint*
     4319           #.(ash (arm::arm-subprimitive-address '.SPfix-nfn-entrypoint) (- arm::fixnumshift))
    43204320           (uvref *simple-predicate-function-prototype* 1)
    43214321           datum
Note: See TracChangeset for help on using the changeset viewer.