Changeset 8999


Ignore:
Timestamp:
Apr 4, 2008, 4:23:04 AM (11 years ago)
Author:
rme
Message:

compose-digit LAP macro for x8632

File:
1 edited

Legend:

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

    r8631 r8999  
    374374       (pushq (% rbp))
    375375       (movq (% rsp) (% rbp))))))
    376 
    377 ;;; need better understanding than just a vague notion
    378 ;;; of what is going on here
     376 
    379377(defx86lapmacro save-frame-variable-arg-count ()
    380378  (let* ((push (gensym))
     
    584582       (andb ($ (lognot ,bit)) (@ (% :rcontext) x8632::tcr.node-regs-mask)))))
    585583
     584(defx86lapmacro compose-digit (high low dest)
     585  (target-arch-case
     586   (:x8632
     587    `(progn
     588       (unbox-fixnum ,low ,dest)
     589       (andl ($ #xffff) (% ,dest))
     590       (shll ($ (- 16 x8632::fixnumshift)) (% ,high))
     591       (orl (% ,high) (% ,dest))))
     592   (:x8664
     593    (error "compose-digit on x8664?"))))
Note: See TracChangeset for help on using the changeset viewer.