duskos

commit 80d9d192ca1e650d1d492317d3514f0509cf2924
parent 04cc8436486a42e870c09a18228fbd31a01e9432
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Fri, 20 Jan 2023 10:10:11 -0500

fs/fat: fix broken "fattruncate"

Another piece of work made within Dusk!

Diffstat:
M
fs/fs/fat.fs
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/fs/fs/fat.fs b/fs/fs/fat.fs
@@ -196,6 +196,7 @@ $e5 const DIRFREE
 \ TODO: deallocate truncated FATs if appropriate
 : fattruncate ( self -- )
   dup FATFile pos ( self pos )
+  2dup swap to FATFile size ( self pos )
   over FATFile :dirent to DirEntry filesize ( self )
   FATFile fat writecursector ;