Changeset 13760


Ignore:
Timestamp:
Jun 1, 2010, 11:19:32 AM (9 years ago)
Author:
gb
Message:

Handle ARM LAP function definition.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/nx1.lisp

    r13488 r13760  
    20772077                                    (dpb (length bindings) $lfbits-numreq 0))))
    20782078
     2079(defnx1 nx1-arm-lap-function (arm-lap-function) (name bindings &body body)
     2080  (require "ARM-LAP")
     2081  (setf (afunc-lfun *nx-current-function*)
     2082        (%define-arm-lap-function name `((let ,bindings ,@body))
     2083                                    (dpb (length bindings) $lfbits-numreq 0))))
     2084
     2085                   
     2086
    20792087
    20802088
Note: See TracChangeset for help on using the changeset viewer.