[openfirmware] r939 - ofw/fs/fatfs
svn at openfirmware.info
svn at openfirmware.info
Mon Sep 15 23:16:42 CEST 2008
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 *
More information about the openfirmware
mailing list