mescc: Tinycc support: workaround lack of long long support.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 14 Nov 2017 18:39:46 +0000 (19:39 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 14 Nov 2017 18:39:46 +0000 (19:39 +0100)
* module/language/c99/compiler.mes (i386:type-alist): Use size=4 for
  long long as a workaround.

module/language/c99/compiler.mes

index 64c9e6b6a16ca5475b959c5e627d035759b7634e..3c7be560aab3fc3edd13e4192eedfad06518205f 100644 (file)
     ("short" . ,(make-type 'builtin 2 0 #f))
     ("int" . ,(make-type 'builtin 4 0 #f))
     ("long" . ,(make-type 'builtin 4 0 #f))
     ("short" . ,(make-type 'builtin 2 0 #f))
     ("int" . ,(make-type 'builtin 4 0 #f))
     ("long" . ,(make-type 'builtin 4 0 #f))
-    ("long long" . ,(make-type 'builtin 8 0 #f))
-    ("long long int" . ,(make-type 'builtin 8 0 #f))
+    ;;("long long" . ,(make-type 'builtin 8 0 #f))
+    ;;("long long int" . ,(make-type 'builtin 8 0 #f))
+
+    ("long long" . ,(make-type 'builtin 4 0 #f))  ;; FIXME
+    ("long long int" . ,(make-type 'builtin 4 0 #f))
+
     ("void" . ,(make-type 'builtin 1 0 #f))
     ;; FIXME sign
     ("unsigned char" . ,(make-type 'builtin 1 0 #f))
     ("void" . ,(make-type 'builtin 1 0 #f))
     ;; FIXME sign
     ("unsigned char" . ,(make-type 'builtin 1 0 #f))
     ("unsigned" . ,(make-type 'builtin 4 0 #f))
     ("unsigned int" . ,(make-type 'builtin 4 0 #f))
     ("unsigned long" . ,(make-type 'builtin 4 0 #f))
     ("unsigned" . ,(make-type 'builtin 4 0 #f))
     ("unsigned int" . ,(make-type 'builtin 4 0 #f))
     ("unsigned long" . ,(make-type 'builtin 4 0 #f))
-    ("unsigned long long" . ,(make-type 'builtin 8 0 #f))
-    ("unsigned long long int" . ,(make-type 'builtin 8 0 #f))))
+
+    ;; ("unsigned long long" . ,(make-type 'builtin 8 0 #f))
+    ;; ("unsigned long long int" . ,(make-type 'builtin 8 0 #f))
+    ("unsigned long long" . ,(make-type 'builtin 4 0 #f)) ;; FIXME
+    ("unsigned long long int" . ,(make-type 'builtin 4 0 #f))
+    ))
 
 (define (field:name o)
   (pmatch o
 
 (define (field:name o)
   (pmatch o