Changeset 16014


Ignore:
Timestamp:
Jan 23, 2014, 6:23:13 AM (6 years ago)
Author:
gb
Message:

FPR-MASK function in x86 arch structures,

Location:
branches/acode-rewrite/source/compiler/X86
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/acode-rewrite/source/compiler/X86/X8632/x8632-arch.lisp

    r16000 r16014  
    12041204                          :t-offset t-offset
    12051205                          :array-data-size-function #'x8632-misc-byte-count
    1206                           :numeric-type-name-to-typecode-function
    1207                           #'(lambda (type-name)
    1208                               (ecase type-name
    1209                                 (fixnum tag-fixnum)
    1210                                 (bignum subtag-bignum)
    1211                                 ((short-float single-float) subtag-single-float)
    1212                                 ((long-float double-float) subtag-double-float)
    1213                                 (ratio subtag-ratio)
    1214                                 (ccl::complex-single-float subtag-complex-single-float)
    1215                                 (ccl::complex-double-float subtag-complex-double-float)
    1216                                 (complex subtag-complex)))
     1206                          :fpr-mask-function 'x86::fpr-mask
     1207
    12171208                          :subprims-base x8632-subprims-base
    12181209                          :subprims-shift x8632::*x8632-subprims-shift*
  • branches/acode-rewrite/source/compiler/X86/X8664/x8664-arch.lisp

    r15999 r16014  
    12121212                          :t-offset t-offset
    12131213                          :array-data-size-function #'x8664-misc-byte-count
    1214                           :numeric-type-name-to-typecode-function
    1215                           #'(lambda (type-name)
    1216                               (ecase type-name
    1217                                 (fixnum tag-fixnum)
    1218                                 (bignum subtag-bignum)
    1219                                 ((short-float single-float) subtag-single-float)
    1220                                 ((long-float double-float) subtag-double-float)
    1221                                 (ratio subtag-ratio)
    1222                                 (complex subtag-complex)
    1223                                 (ccl::complex-single-float subtag-complex-single-float)
    1224                                 (ccl::complex-double-float subtag-complex-double-float)))
     1214                          :fpr-mask-function 'x86::fpr-mask
    12251215                          :subprims-base x8664-subprims-base
    12261216                          :subprims-shift x8664::*x8664-subprims-shift*
  • branches/acode-rewrite/source/compiler/X86/x86-arch.lisp

    r15204 r16014  
    200200(defconstant x86-overflow-flag-bit 11)
    201201
     202;;; We can use SSE2/XMM registers to represent scalars or vectors
     203;;; of up to 2 elements.
     204(defun fpr-mask (regno mode)
     205  (declare (ignore mode))
     206  (ash 1 regno))
     207
    202208
    203209(provide "X86-ARCH")
     210
Note: See TracChangeset for help on using the changeset viewer.