Changeset 7881


Ignore:
Timestamp:
Dec 11, 2007, 4:46:08 AM (13 years ago)
Author:
rme
Message:

To avoid confusion, treat defx86lapfunction as an x86-64 thing,
and create a new defx8632lapfunction macro.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-lap.lisp

    r7830 r7881  
    14131413          constants-vector)))))
    14141414
    1415 #+x86-target
     1415#+x8664-target
    14161416(defun create-x86-function (name frag-list constants bits debug-info)
    14171417  (unless name (setq bits (logior bits (ash -1 $lfbits-noname-bit))))
     
    14981498         (instruction (x86::make-x86-instruction))
    14991499         (frag-list (make-frag-list)))
     1500    (make-x86-lap-label entry-code-tag)
     1501    (make-x86-lap-label srt-tag)
    15001502    (make-x86-lap-label end-code-tag)
    1501     (make-x86-lap-label entry-code-tag)
    15021503    ;; count of 32-bit words between header and function boundary
    15031504    ;; marker, inclusive.
     
    15421543            (incf srt-index 4)))))
    15431544    (show-frag-bytes frag-list)
    1544     (cross-create-x86-function name frag-list *x86-lap-constants* *x86-lap-lfun-bits* nil)))
     1545    (funcall #-x8632-target #'cross-create-x86-function
     1546             #+x8632-target (if (eq *target-backend* *host-backend*)
     1547                              #'create-x86-function
     1548                              #'cross-create-x86-function)
     1549             name frag-list *x86-lap-constants* *x86-lap-lfun-bits* nil)))
    15451550
    15461551(defmacro defx86lapfunction (&environment env name arglist &body body
     
    15541559     (eval-when (:compile-toplevel)
    15551560       (note-function-info ',name t ,env))
    1556      #-x86-target
     1561     #-x8664-target
    15571562     (progn
    15581563       (eval-when (:load-toplevel)
     
    15601565       (eval-when (:execute)
    15611566         (%define-x86-lap-function ',name '((let ,arglist ,@body)))))
    1562      #+x86-target       ; just shorthand for defun
     1567     #+x8664-target     ; just shorthand for defun
    15631568     (%defun (nfunction ,name (lambda (&lap 0) (x86-lap-function ,name ,arglist ,@body))) ,doc)))
    15641569
     
    15731578     (eval-when (:compile-toplevel)
    15741579       (note-function-info ',name t ,env))
     1580     #-x8632-target
    15751581     (progn
    15761582       (eval-when (:load-toplevel)
     
    15781584       (eval-when (:execute)
    15791585         (%define-x8632-lap-function ',name '((let ,arglist ,@body)))))
    1580      ))
     1586     #+x8632-target
     1587     (%defun (nfunction ,name (lambda (&lap 0) (x86-lap-function ,name ,arglist ,@body))) ,doc)))
Note: See TracChangeset for help on using the changeset viewer.