duskos

commit 3b9204ebe9a2dd94a28ade6ef27f43cca42770ae
parent 2bae736fd30d4b4ee186ac1b0b6cb830ed6afb7e
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Fri, 12 Aug 2022 13:50:30 -0400

fs/fat: rename FATFields to FAT

Diffstat:
M
fs/fs/fatlo.fs
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/fs/fs/fatlo.fs b/fs/fs/fatlo.fs
@@ -15,11 +15,11 @@
 
 \ See fs/fat.fs for complete implementation details.
 
-extends Filesystem struct[ FATFields
+extends Filesystem struct[ FAT
 sfield bufsec \ sector number of current buf
 sfield bufseccnt \ number of sectors ahead for sequential read
 
-' FATFields structsz const SZ
+' FAT structsz const SZ
 SZ &+ :hdr(
 SZ $0b + &+w@ secsz          \ in bytes
 SZ $0d + &+c@ secpercluster
@@ -82,11 +82,11 @@ $1000 const FATMAXSECSZ
 align4
 create _FATFS
   fatdrv , 0 , 0 , ' abort , 0 , 0 ,
-  FATFields HDRSZ allot
+  FAT HDRSZ allot
   \ Allocate buffer
   FATMAXSECSZ 1+ allot
   \ 1+ is for the extra byte for FAT12 cross-sector exception
-_FATFS structbind FATFields FATFS
+_FATFS structbind FAT FATFS
 
 : fatbuf( FATFS :buf( ;
 : )fatbuf FATFS :)buf ;
@@ -95,7 +95,7 @@ _FATFS structbind FATFields FATFS
 
 : readFATvolume ( -- )
   0 fatbuf( fatdrv Drive :sec@
-  fatbuf( FATFS :hdr( FATFields HDRSZ move
+  fatbuf( FATFS :hdr( FAT HDRSZ move
   FATFS secsz fatdrv Drive secsz = not if
     abort" Drive sector size not matching drive!" then ;
 readFATvolume