mescc: Recognize U integer suffix.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 19 Oct 2018 21:31:30 +0000 (23:31 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 19 Oct 2018 21:31:30 +0000 (23:31 +0200)
* module/mescc/compile.scm (cstring->int): Recognize U integer
suffix.  Thanks, Peter de Wachter!

module/mescc/compile.scm

index b7bd406a7cc65c891fb2fb0e0d1ed52ed0d94ab6..93f749e78660f3a9a3f9b72483349536ef3ec391 100644 (file)
 (define (cstring->int o)
   (let ((o (cond ((string-suffix? "ULL" o) (string-drop-right o 3))
                  ((string-suffix? "UL" o) (string-drop-right o 2))
+                 ((string-suffix? "U" o) (string-drop-right o 1))
                  ((string-suffix? "LL" o) (string-drop-right o 2))
                  ((string-suffix? "L" o) (string-drop-right o 1))
                  (else o))))