Changeset 13851


Ignore:
Timestamp:
Jun 17, 2010, 11:41:00 AM (9 years ago)
Author:
gb
Message:

Add missing *GF-PROTO*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/ARM/arm-clos.lisp

    r13789 r13851  
    164164)
    165165
    166 
     166(defparameter *gf-proto*
     167  (nfunction
     168   gag
     169   (lambda (&lap &lexpr args)
     170     (arm-lap-function
     171      gag
     172      ()
     173      (vpush-argregs)
     174      (vpush1 nargs)
     175      (ref-global arg_x ret1valaddr)
     176      (add imm1 vsp nargs)
     177      (add imm1 imm1 (:$ arm::node-size))                  ; caller's vsp
     178      (cmp lr arg_x)
     179      (build-lisp-frame imm0 imm1)
     180      (mov fn (:$ 0))
     181      (moveq lr (:$ (- arm::nil-value arm::fulltag-nil)))
     182      (ldreq lr (:@ lr (:$ (arm::%kernel-global 'arm::lexpr-return))))
     183      (stmdbeq (:! vsp) (imm0 imm1 fn lr))
     184      (moveq lr arg_x)
     185      (movne lr (:$ (- arm::nil-value arm::fulltag-nil)))
     186      (ldrne lr (:@ lr (:$ (arm::%kernel-global 'arm::lexpr-return1v))))
     187      (mov arg_z vsp)
     188      (svref arg_y gf.dispatch-table nfn) ; dispatch-table
     189      (set-nargs 2)
     190      (svref nfn gf.dcode nfn) ; dcode function
     191      (ldr pc (:@ nfn (:$ arm::function.entrypoint)))))))
    167192
    168193
Note: See TracChangeset for help on using the changeset viewer.