From d9df00290cab6f7efe4f36d58b96c0758a2fcfbc Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 21 Jul 2018 12:02:16 +0200 Subject: [PATCH] mescc: Support verbose int types. * module/mescc/compile.scm (i386:type-alist): Support verbose int types. --- module/mescc/compile.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index b2e04a6f..fc9ac628 100644 --- a/module/mescc/compile.scm +++ b/module/mescc/compile.scm @@ -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)) @@ -102,7 +101,13 @@ ("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))