mescc: Tinycc support: workaround for tcc; this breaks: Structured type with char...

* module/language/c99/compiler.mes (int->bv): Always use 32bit byte
  vector.

diff --git a/build-aux/check-mescc.sh b/build-aux/check-mescc.sh
index 34242e2c58a4646128434d96bcce91b9a0e54df2..cb9e5add76841eb6c23b6a2f9c0e6cb8d46f3d03 100755 (executable)
--- 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 235eb254b9965fa63e2ca24f08240d0eadd6f6ab..3c146d590eec5fe8e2013ed6ff6a05885b1d9b7b 100644 (file)
--- 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)