--- /dev/null
+#! /bin/sh
+
+# GNU Mes --- Maxwell Equations of Software
+# Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+#
+# 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 <http://www.gnu.org/licenses/>.
+
+set -e
+. ${srcdest}build-aux/config.sh
+. ${srcdest}build-aux/trace.sh
+
+MES_ARENA=100000000
+
+GUILE=${GUILE-$MES}
+DIFF=${DIFF-$(command -v diff)} || true
+[ -z "$DIFF" ] && DIFF="sh scripts/diff.scm"
+
+t=${1-scaffold/tests/t}
+o="$t"
+rm -f "$o".mes-out
+
+rm -f "$o".gcc-out
+if [ -n "$CC" ]; then
+ sh ${srcdest}build-aux/cc.sh "$t"
+
+ r=0
+ [ -f "$t".exit ] && r=$(cat "$t".exit)
+ set +e
+ "$o".gcc-out $ARGS > "$o".gcc-stdout
+ m=$?
+ cat "$o".gcc-stdout
+ set -e
+
+ [ $m = $r ]
+ if [ -f "$t".expect ]; then
+ $DIFF -ub "$t".expect "$o".gcc-stdout;
+ fi
+fi
+
+rm -f "$t".mes-gcc-out
+if [ -n "$CC64" ]; then
+ sh ${srcdest}build-aux/cc64-mes.sh "$t"
+
+ r=0
+ [ -f "$t".exit ] && r=$(cat "$t".exit)
+ set +e
+ "$o".x86_64-mes-gcc-out $ARGS > "$o".x86_64-mes-gcc-stdout
+ m=$?
+ cat "$t".x86_64-mes-gcc-stdout
+ set -e
+
+ [ $m = $r ]
+ if [ -f "$t".expect ]; then
+ $DIFF -ub "$t".expect "$o".x86_64-mes-gcc-stdout;
+ fi
+fi
+
+rm -f "$o".mes-out
+sh ${srcdest}build-aux/cc-x86_64-mes.sh "$t"
+
+r=0
+[ -f "$t".exit ] && r=$(cat "$t".exit)
+set +e
+"$o".x86_64-mes-out $ARGS > "$o".x86_64-mes-stdout
+m=$?
+cat "$o".x86_64-mes-stdout
+set -e
+
+[ $m = $r ]
+if [ -f "$t".expect ]; then
+ $DIFF -ub "$t".expect "$o".x86_64-mes-stdout;
+fi
DEFINE call32 e8
DEFINE hlt f4
DEFINE mov____$i32,%rax 48c7c0
+DEFINE mov____$i32,%rdi 48c7c7
DEFINE mov____$i32,0x8(%rbp) c745
DEFINE mov____$i64,%rax 48a1
DEFINE mov____%edi,0x8(%rbp) 897d
DEFINE sub____$i32,%rsp 4881ec
DEFINE syscall 0f05
DEFINE test___%rax,%rax 4885c0
+
+DEFINE SYS_exit 3c000000
/* -*-comment-start: "//";comment-end:""-*-
* GNU Mes --- Maxwell Equations of Software
- * Copyright © 2017 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
*
* This file is part of GNU Mes.
*
int
main ()
{
+#if __i386__
+
#if __MESC__
asm ("mov____$i32,%ebx %0");
asm ("mov____$i32,%eax SYS_exit");
asm ("int____$0x80");
-#else // !__MESC__
+#elif __TINYC__
asm ("mov $0,%ebx");
asm ("mov $1,%eax");
-#if !__TINYC__
- asm ("int $0x80");
-#else
asm ("int $128");
-#endif
-#endif
+#else // !__TINYC__
+ asm ("mov $0,%ebx");
+ asm ("mov $1,%eax");
+ asm ("int $0x80");
+#endif // !__TINYC__
+
+#elif __x86_64__
+
+#if __MESC__
+ asm ("mov____$i32,%rdi %0");
+ asm ("mov____$i32,%rax SYS_exit");
+ asm ("syscall");
+#elif __TINYC__
+ asm ("mov $0,%rdi");
+ asm ("mov $0x3c,%rax");
+ asm ("syscall");
+#else // !__TINYC__
+ asm ("mov $0,%rdi");
+ asm ("mov $60,%rax");
+ asm ("syscall");
+#endif // !__TINYC__
+
+#endif // ! __x86_64__
}