andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mescc: Tinycc support: workaround lack of long long support. 

* module/language/c99/compiler.mes (i386:type-alist): Use size=4 for
  long long as a workaround.
This commit is contained in:
Jan Nieuwenhuizen 2017-11-14 19:39:46 +01:00
parent dc65de59ce
commit b24fcbad60
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
module/language/c99/compiler.mes
View File

@ -176,8 +176,12 @@
("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))
@ -186,8 +190,12 @@
("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