r939 - ofw/fs/fatfs

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 *