duskos

commit 868d5882832975d08ee21d4e4ec8ddda8c95c7ce
parent 78aae7ce65101e43bc1f46a5f58c546d572f9743
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sat,  3 Sep 2022 07:19:42 -0400

cc: run as many tests as possible on unsupported platforms

It will make development quicker.

Diffstat:
M
fs/cc/ast.fs
 | 
3
+++
M
fs/tests/cc/all.fs
 | 
2
+-
M
fs/tests/cc/ast.fs
 | 
2
+-

3 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/fs/cc/ast.fs b/fs/cc/ast.fs
@@ -7,6 +7,9 @@
 ?f<< cc/tree.fs
 ?f<< cc/type.fs
 
+: _err ( -- ) abort" ast error" ;
+: _assert ( f -- ) not if _err then ;
+
 \ Unary operators
 7 const UOPSCNT
 UOPSCNT stringlist UOPTlist "-" "~" "!" "&" "*" "++" "--"
diff --git a/fs/tests/cc/all.fs b/fs/tests/cc/all.fs
@@ -1,6 +1,6 @@
 \ Run all CC test suites
-HASCC not [if] \s [then]
 f<< tests/cc/tree.fs
 f<< tests/cc/ast.fs
+HASCC not [if] \s [then]
 f<< tests/cc/vm.fs
 f<< tests/cc/cc.fs
diff --git a/fs/tests/cc/ast.fs b/fs/tests/cc/ast.fs
@@ -1,5 +1,5 @@
 ?f<< tests/harness.fs
-?f<< cc/cc.fs
+?f<< cc/ast.fs
 testbegin
 \ Tests for the C compiler AST
 S" tests/cc/test.c" curpath :find# Path :open dup [f<] to stdin parseast