From ad90a067e421076cf11b624f3c97d163c52be694 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 19 Oct 2018 23:31:30 +0200 Subject: [PATCH] mescc: Recognize U integer suffix. * module/mescc/compile.scm (cstring->int): Recognize U integer suffix. Thanks, Peter de Wachter! --- module/mescc/compile.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index b7bd406a..93f749e7 100644 --- a/module/mescc/compile.scm +++ b/module/mescc/compile.scm @@ -1546,6 +1546,7 @@ (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))))