Changeset 13851
- Timestamp:
- Jun 17, 2010, 11:41:00 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/level-0/ARM/arm-clos.lisp
r13789 r13851 164 164 ) 165 165 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))))))) 167 192 168 193
Note: See TracChangeset
for help on using the changeset viewer.