diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 13 |
1 files changed, 3 insertions, 10 deletions
@@ -154,23 +154,16 @@ variable hld : .qword (.qword) say space ; : ? @ . ; -: .s sp 8 + ( skip sp itself ) begin dup s0 @ > while dup @ .qword 8 + repeat drop cr ; +: .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 - ; -\ there is some issue with ." that causes a segfault. strange -\ it seems to happen if multiple strings appear. -\ purrhaps something isn't being reset?? -\ it only seems to happen if the called word is a builtin or a number????? -\ : .free bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; \ segfaults +: .free bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; : >nfa ( lfa -- nfa ) 9 + ; : >ffa ( lfa -- ffa ) 8 + ; : (words) ( lfa -- ) >nfa dup w@ swap 2 + swap say 2 spaces ; : words latest @ begin ?dup 0<> while dup (words) @ repeat cr ; -\ .free bye -\ : t s" eue eu eo o eu" ; \ s" eue " [ HEREDUMP ] ; - -\ words +.free bye |