Changeset 10494


Ignore:
Timestamp:
Aug 19, 2008, 11:13:30 AM (11 years ago)
Author:
gb
Message:

Add *MODE-SPECIFIER-TYPES* and MODE-SPECIFIER-TYPE: map a backend
mode name to a ctype.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/backend.lisp

    r5345 r10494  
    103103      (error "Unknown gpr mode name: ~s" name)))
    104104
     105(defparameter *mode-specifier-types*
     106  (vector
     107   (specifier-type t)                   ;:lisp
     108   (specifier-type '(unsigned-byte 32)) ;:u32
     109   (specifier-type '(signed-byte 32))   ;:s32
     110   (specifier-type '(unsigned-byte 16)) ;:u16
     111   (specifier-type '(signed-byte 16))   ;:s16
     112   (specifier-type '(unsigned-byte 8))  ;:u8
     113   (specifier-type '(signed-byte 8))    ;:s8
     114   (specifier-type 'macptr)             ;:address
     115   (specifier-type '(unsigned-byte 64)) ;:u64
     116   (specifier-type '(signed-byte 64)))) ;:s64
     117
     118(defun mode-specifier-type (mode-name)
     119  (svref *mode-specifier-types* (gpr-mode-name-value mode-name)))
     120   
     121
    105122(defun use-node-temp (n)
    106123  (declare (fixnum n))
Note: See TracChangeset for help on using the changeset viewer.