mescc: M4 support: scaffold/tests/82-define.c.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 4 Dec 2017 22:19:32 +0000 (23:19 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 4 Dec 2017 22:19:32 +0000 (23:19 +0100)
* scaffold/tests/82-define.c: New file; inspired by M4.  Thanks, Ricardo!
* make.scm ("82-define"): Build it.
* check-mescc.sh: Add 82-define.

check-mescc.sh
make.scm
scaffold/tests/82-define.c [new file with mode: 0644]

index fc6a20459564d6030ea517774bf5d815500f92fd..3fba6974c6956a9c5145f4a1073d16ae762af7c0 100755 (executable)
@@ -76,10 +76,13 @@ t
 7l-struct-any-size-array
 7m-struct-char-array-assign
 7n-struct-struct-array
+80-setjmp
+81-qsort
+82-define
 "
 
 if [ ! -x ./i686-unknown-linux-gnu-tcc ]; then
-    tests=$(echo "$tests" | grep -Ev "02-return-1|05-call-1")
+    tests=$(echo "$tests" | grep -Ev "02-return-1|05-call-1|80-setjmp|81-qsort")
 fi
 
 set +e
index 4dc4c2e308d490b53801361799ee317eb026baa8..4e3f403ff5000fa993b19741b9eff0848e88059d 100755 (executable)
--- a/make.scm
+++ b/make.scm
@@ -260,7 +260,8 @@ exec ${GUILE-guile} --no-auto-compile -L . -L guile -C . -C guile -s "$0" ${1+"$
 (for-each
  (cut add-scaffold-test <> #:libc libc+tcc-mes.hex2 #:libc-gcc libc+tcc-gcc.mlibc-o)
  '("80-setjmp"
-   "81-qsort"))
+   "81-qsort"
+   "82-define"))
 
 (add-target (group "check-scaffold-tests/8" #:dependencies (filter (target-prefix? "check-scaffold/tests/8") %targets)))
 
diff --git a/scaffold/tests/82-define.c b/scaffold/tests/82-define.c
new file mode 100644 (file)
index 0000000..735fb17
--- /dev/null
@@ -0,0 +1,2 @@
+#define A AA AB AC AD AE AF AG AH AI AJ AK AL AM AN AO AP AQ AR AS AT AU AV AW AX AY AZ BA BB BC BD BE BF BG BH BI BJ BK BL BM BN BO BP BQ BR BS BT BU BV BW BX BY BZ CA CB CC CD CE CF CG CH CI CJ CK CL CM CN CO CP CQ CR CS CT CU CV CW CX CY CZ DA DB DC DD DE DF DG DH DI DJ DK DL DM DN DO DP
+int main () { return 0; }