From 4b4c00e3b768305220a26ef8912cfeddd771e1b6 Mon Sep 17 00:00:00 2001 From: kitty Date: Sun, 22 Feb 2026 21:55:36 +1100 Subject: broken, segfaulting .free seems to be string handling issue somehow the actual text of the next word ends up on the stack --- jefs.fs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'jefs.fs') diff --git a/jefs.fs b/jefs.fs index faf96ae..8a5c2d5 100644 --- a/jefs.fs +++ b/jefs.fs @@ -153,5 +153,9 @@ variable hld : ? @ . ; : .s sp 8 + ( skip sp itself ) begin dup s0 @ >= while dup @ .qword 8 + repeat drop cr ; +: bytes-allocated hend @ h0 @ - ; +: bytes-used here @ h0 @ - ; +: bytes-free bytes-allocated bytes-used - ; +: .free bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; \ segfaults -bye +.free bye -- cgit v1.2.3