diff --git a/build-aux/check-mescc.sh b/build-aux/check-mescc.sh index c745b33f..cdd5f060 100755 --- a/build-aux/check-mescc.sh +++ b/build-aux/check-mescc.sh @@ -181,6 +181,7 @@ lib/tests/scaffold/7u-struct-func.c lib/tests/scaffold/7u-struct-size10.c lib/tests/scaffold/7u-vstack.c lib/tests/scaffold/70-array-in-struct-init.c +lib/tests/scaffold/70-struct-short-enum-init.c lib/tests/setjmp/80-setjmp.c lib/tests/stdio/80-sscanf.c lib/tests/stdlib/80-qsort.c diff --git a/lib/tests/scaffold/70-struct-short-enum-init.c b/lib/tests/scaffold/70-struct-short-enum-init.c new file mode 100644 index 00000000..95447df8 --- /dev/null +++ b/lib/tests/scaffold/70-struct-short-enum-init.c @@ -0,0 +1,46 @@ +/* -*-comment-start: "//";comment-end:""-*- + * GNU Mes --- Maxwell Equations of Software + * Copyright © 2019 Jan (janneke) Nieuwenhuizen + * + * This file is part of GNU Mes. + * + * GNU Mes is free software; you can redistribute it and/or modify it + * under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 3 of the License, or (at + * your option) any later version. + * + * GNU Mes is distributed in the hope that it will be useful, but + * WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with GNU Mes. If not, see . + */ + +#include + +struct foo +{ + short one; + short two; +}; + +enum bar + { + baz = 22 + }; + +struct foo foe = { baz, 33 }; + +int +main () +{ + oputs ("struct foo foe = {"); + oputs (itoa (foe.one)); + oputs (","); + oputs (itoa (foe.two)); + oputs ("};"); + oputs ("\n"); + return 0; +} diff --git a/lib/tests/scaffold/70-struct-short-enum-init.stdout b/lib/tests/scaffold/70-struct-short-enum-init.stdout new file mode 100644 index 00000000..5b5a06b1 --- /dev/null +++ b/lib/tests/scaffold/70-struct-short-enum-init.stdout @@ -0,0 +1 @@ +struct foo foe = {22,33}; diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm index a7362f77..4a5907ea 100644 --- a/module/mescc/compile.scm +++ b/module/mescc/compile.scm @@ -2402,7 +2402,8 @@ (if (= reg-size 8) `((#:string ,(string-join strings "")) "%0") `((#:string ,(string-join strings "")))))) ((ident ,name) (let ((var (ident->variable info name))) - `((#:address ,var)))) + (if (number? var) (int->bv type var info) + `((#:address ,var))))) ((initzer-list . ,inits) (cond ((structured-type? type) (map (cut init->data <> <> info) (map cdr (struct->init-fields type)) inits))