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

mescc: Respect integer literal type suffixes.

Browse source 
* module/mescc/compile.scm (ast->type): Respect ULL, UL, U, LL, L suffix
on integer literals.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-01-01 10:28:24 +01:00
parent 8f67315eb6
commit da03a384c8
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
module/mescc/compile.scm
View file

@ -1,5 +1,5 @@
;;; GNU Mes --- Maxwell Equations of Software ;;; GNU Mes --- Maxwell Equations of Software
;;; Copyright © 2016,2017,2018,2019,2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016,2017,2018,2019,2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; ;;;
;;; This file is part of GNU Mes. ;;; This file is part of GNU Mes.
;;; ;;;
@ -116,7 +116,14 @@
((char ,value) (get-type "char" info)) ((char ,value) (get-type "char" info))
((enum-ref . _) (get-type "default" info)) ((enum-ref . _) (get-type "default" info))
((fixed ,value) (get-type "default" info)) ((fixed ,value)
(let ((type (cond ((string-suffix? "ULL"value) "unsigned long long")
((string-suffix? "UL" value) "unsigned long")
((string-suffix? "U" value) "unsigned")
((string-suffix? "LL" value) "long long")
((string-suffix? "L" value) "long")
(else "default"))))
(get-type type info)))
((float ,float) (get-type "float" info)) ((float ,float) (get-type "float" info))
((void) (get-type "void" info)) ((void) (get-type "void" info))