From f8f0aacb6190728c8b09bf03df3ed34e3f076edb Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 20 May 2018 08:58:44 +0200 Subject: [PATCH] mescc: Tinycc support: workaround for tcc; this breaks: Structured type with char or short on heap. * module/language/c99/compiler.mes (int->bv): Always use 32bit byte vector. --- build-aux/check-mescc.sh | 1 + module/language/c99/compiler.mes | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/build-aux/check-mescc.sh b/build-aux/check-mescc.sh index 34242e2c..cb9e5add 100755 --- a/build-aux/check-mescc.sh +++ b/build-aux/check-mescc.sh @@ -126,6 +126,7 @@ t " broken="$broken +7s-struct-short " set +e diff --git a/module/language/c99/compiler.mes b/module/language/c99/compiler.mes index 235eb254..3c146d59 100644 --- a/module/language/c99/compiler.mes +++ b/module/language/c99/compiler.mes @@ -2276,8 +2276,8 @@ (define (int->bv type o) (let ((size (->size type))) (case size - ((1) (int->bv8 o)) - ((2) (int->bv16 o)) + ;;((1) (int->bv8 o)) + ;;((2) (int->bv16 o)) (else (int->bv32 o))))) (define (init->strings o info)