mescc: Support verbose int types.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jul 2018 10:02:16 +0000 (12:02 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 21 Jul 2018 10:02:16 +0000 (12:02 +0200)
* module/mescc/compile.scm (i386:type-alist): Support verbose int types.

module/mescc/compile.scm

index b2e04a6fc5c4af00133d5376858f10f1a7b5fa4d..fc9ac628cce833ebb7cf3ffa77bf85c757b95940 100644 (file)
@@ -90,7 +90,6 @@
     ;; FIXME sign
     ("unsigned char" . ,(make-type 'unsigned 1 #f))
     ("unsigned short" . ,(make-type 'unsigned 2 #f))
-    ("unsigned short int" . ,(make-type 'unsigned 2 #f))
     ("unsigned" . ,(make-type 'unsigned 4 #f))
     ("unsigned int" . ,(make-type 'unsigned 4 #f))
     ("unsigned long" . ,(make-type 'unsigned 4 #f))
 
     ("float" . ,(make-type 'float 4 #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)
   (eq? ((compose type:type ->type) o) 'signed))