From c5c4fc5d8ff9ea0676aa2398e7358059e020dd81 Mon Sep 17 00:00:00 2001
From: Bernd Paysan <bernd.paysan@gmx.de>
Date: Sun, 16 Jul 2017 00:54:51 +0200
Subject: [PATCH] cross.fs needs $@

---
 cross.fs | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/cross.fs b/cross.fs
index 7b9c5b94..ea66d37d 100644
--- a/cross.fs
+++ b/cross.fs
@@ -215,6 +215,35 @@ Create bases   10 ,   2 ,   A , 100 ,
 [IFUNDEF] $@
     : $@ @ dup IF  dup cell+ swap @  ELSE  0  THEN ;
 [THEN]
+[IFUNDEF] >stack
+    : $@len ( $addr -- u ) \ gforth-string string-fetch-len
+	\G returns the length of the stored string.
+	@ dup IF  @  THEN ;
+    : >pow2 ( n -- pow2 )
+	1-
+	dup 2/ or \ next power of 2
+	dup 2 rshift or
+	dup 4 rshift or
+	dup 8 rshift or
+	dup #16 rshift or
+	[ cell 8 = [IF] ]
+	    dup #32 rshift or
+	    [ [THEN] ] 1+ ;
+    : $padding ( n -- n' ) \ gforth-string
+	[ 6 cells ] Literal +  >pow2  [ -4 cells ] Literal and ;
+    : $!len ( u $addr -- ) \ gforth-string string-store-len
+	\G changes the length of the stored string.  Therefore we must
+	\G change the memory area and adjust address and count cell as
+	\G well.
+	over $padding  over @ IF  \ fast path for unneeded size change
+	    over @ @ $padding over = IF  drop @ !  EXIT  THEN
+	THEN
+	over @ swap resize throw over ! @ ! ;
+    : >stack ( x stack -- )
+	\G push to top of stack
+	>r r@ $@len cell+ r@ $!len
+	r> $@ + cell- ! ;
+[THEN]
 
 >CROSS
 
-- 
2.26.2