summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOri Bernstein <ori@eigenstate.org>2019-10-30 05:01:32 +0000
committerOri Bernstein <ori@eigenstate.org>2019-10-30 05:01:32 +0000
commit0113cd12d5ce3faae500772c76018f0ad4dd776a (patch)
tree6bff91c3c8ba46b99676f4c9396de7a9d92da5a0
parent16b894430a5b71f4956ee305229bbbffd13605d0 (diff)
downloadmc-master.tar.gz
Fix build on 9front.HEADmaster
-rw-r--r--mi/Makefile.test7
-rw-r--r--mi/match.c1
-rw-r--r--test/matchctup.myr32
3 files changed, 1 insertions, 39 deletions
diff --git a/mi/Makefile.test b/mi/Makefile.test
deleted file mode 100644
index bcc6651..0000000
--- a/mi/Makefile.test
+++ /dev/null
@@ -1,7 +0,0 @@
-BIN=match_test
-OBJ=match.o match_test.o
-
-
-DEPS=../parse/libparse.a ../util/libutil.a
-
-include ../mk/c.mk
diff --git a/mi/match.c b/mi/match.c
index 94c6f8d..16fe04d 100644
--- a/mi/match.c
+++ b/mi/match.c
@@ -208,6 +208,7 @@ loadeq(Node *a, Node *b)
default:
die("unreachable");
}
+ return 0;
}
static int
diff --git a/test/matchctup.myr b/test/matchctup.myr
deleted file mode 100644
index 07d51e6..0000000
--- a/test/matchctup.myr
+++ /dev/null
@@ -1,32 +0,0 @@
-use std
-
-const main = {
- match (gen_a(), gen_b())
- | (`std.Err _, _): std.put("error case 1")
- | (_, `std.Err _): std.put("error case 2")
- | (`std.Ok L, `std.Ok N):
- std.put("l = {} n = {}\n", L, N)
- ;;
-}
-
-var gen_a : (-> std.result(byte[:][:], void)) = {
- var ret = [][:]
-
- for var j = 0; j < 4; ++j
- std.slpush(&ret, std.fmt("{}", j))
- ;;
-
- if 1 + 1 > 3
- -> `std.Err void
- ;;
-
- -> `std.Ok ret
-}
-
-var gen_b : (-> std.result(int, void)) = {
- if 1 + 1 > 3
- -> `std.Err void
- ;;
-
- -> `std.Ok 5
-}