duskos

commit 2ec1bcd4bf3e584eb5f462ae664b8e2864ca5165
parent deebce937fe6ad1d06fe832e7829fa7d4733a217
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Thu,  9 Jun 2022 07:13:11 -0400

cc: fix PS leak at compilation time

Diffstat:
M
fs/cc/map.fs
 | 
2
+-
M
tests/testcc.fs
 | 
3
+--
M
tests/testccast.fs
 | 
3
+--

3 files changed, 3 insertions(+), 5 deletions(-)
diff --git a/fs/cc/map.fs b/fs/cc/map.fs
@@ -50,7 +50,7 @@ MAPIDCNT wordtbl mapdatatbl ( node -- node )
   dup nodeid MAP_FUNCTION = not if _err then
   firstchild dup if begin ( name node )
     2dup data1 s= if nip exit then nextsibling dup not
-  until ( name node ) nip ;
+  until then ( name node ) nip ;
 
 : mapfunction ( astfunction -- )
   dup Function activenode over data2! dup begin ( astfunc astfunc )
diff --git a/tests/testcc.fs b/tests/testcc.fs
@@ -11,5 +11,4 @@ bwnot $ffffffd5 #eq
 exprbinops 7 #eq
 boolops 0 #eq
 variables 42 #eq
-\ TODO: leak here
-\ #psempty
+#psempty
diff --git a/tests/testccast.fs b/tests/testccast.fs
@@ -13,5 +13,4 @@ firstchild dup astid AST_RETURN #eq ( rnode )
 firstchild ( expr ) firstchild ( factor )
 firstchild dup astid AST_CONSTANT #eq ( cnode )
 data1 42 #eq
-\ TODO: leak here
-\ #psempty
+#psempty