artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Support verbose int types.

Browse source 
* module/mescc/compile.scm (i386:type-alist): Support verbose int types.
This commit is contained in:
Jan Nieuwenhuizen 2018-07-21 12:02:16 +02:00
parent 542289a3c6
commit d9df00290c
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
module/mescc/compile.scm
View file

@ -90,7 +90,6 @@
;; FIXME sign ;; FIXME sign
("unsigned char" . ,(make-type 'unsigned 1 #f)) ("unsigned char" . ,(make-type 'unsigned 1 #f))
("unsigned short" . ,(make-type 'unsigned 2 #f)) ("unsigned short" . ,(make-type 'unsigned 2 #f))
("unsigned short int" . ,(make-type 'unsigned 2 #f))
("unsigned" . ,(make-type 'unsigned 4 #f)) ("unsigned" . ,(make-type 'unsigned 4 #f))
("unsigned int" . ,(make-type 'unsigned 4 #f)) ("unsigned int" . ,(make-type 'unsigned 4 #f))
("unsigned long" . ,(make-type 'unsigned 4 #f)) ("unsigned long" . ,(make-type 'unsigned 4 #f))
@ -102,7 +101,13 @@
("float" . ,(make-type 'float 4 #f)) ("float" . ,(make-type 'float 4 #f))
("double" . ,(make-type 'float 8 #f)) ("double" . ,(make-type 'float 8 #f))
("long double" . ,(make-type 'float 16 #f)))) ("long double" . ,(make-type 'float 16 #f))
;;
("short int" . ,(make-type 'signed 2 #f))
("unsigned short int" . ,(make-type 'unsigned 2 #f))
("long int" . ,(make-type 'signed 4 #f))
("unsigned long int" . ,(make-type 'unsigned 4 #f))))
(define (signed? o) (define (signed? o)
(eq? ((compose type:type ->type) o) 'signed)) (eq? ((compose type:type ->type) o) 'signed))