Author: wmb Date: 2008-09-15 23:16:42 +0200 (Mon, 15 Sep 2008) New Revision: 939
Modified: ofw/fs/fatfs/fdisk2.fth Log: fdisk2.fth - Fixed the disk partitioning/formatting utility to work with partitions larger than 2 GiB.
Modified: ofw/fs/fatfs/fdisk2.fth =================================================================== --- ofw/fs/fatfs/fdisk2.fth 2008-09-12 22:55:08 UTC (rev 938) +++ ofw/fs/fatfs/fdisk2.fth 2008-09-15 21:16:42 UTC (rev 939) @@ -149,7 +149,7 @@ fat32? to type32? dup type32? compute-cluster-size swap 2>r ( R: spc #mbytes ) 1 h# 40 h# 20 ( #hid-sec #heads sec/trk ) ( R: spc #mbytes ) - r> d# 1024 * d# 1024 * /sector / ( #hid-sec #heads sec/trk #secs ) ( R: spc ) + r> h# 10.0000 /sector /* ( #hid-sec #heads sec/trk #secs ) ( R: spc ) dup r@ / swap >r ( #hid-sec #heads sec/trk #clusters ) ( R: spc #secs ) type32? if 4 *