summary refs log tree commit diff
path: root/lisc/tools/abitest.sh
blob: 164aff2fcb39ff8db41328714db57ce6b243dbcf (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#!/bin/sh

OCAML=/usr/bin/ocaml
QBE=lisc
TMP=`mktemp -d abifuzz.XXXXXX`

failure() {
	echo "Failure at stage:" $1 >&2
	exit 1
}

if ! test -x $QBE
then
	echo "error: I must run in the directory containing $QBE." >&2
	exit 1
fi

	$OCAML tools/abi.ml $TMP c ssa
	./$QBE -o $TMP/callee.s $TMP/callee.ssa         || failure "qbe"
	c99 -o $TMP/abitest $TMP/caller.c $TMP/callee.s || failure "cc + linking"
	$TMP/abitest                                    || failure "runtime"

rm -fr $TMP