From 7b2efa2e7878baf9048068cb2015e269eefdc9eb Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 15 Jul 2012 16:14:20 -0400
Subject: [PATCH] Fix for gigabyte calculation

---
 mystic/bbs_filebase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mystic/bbs_filebase.pas b/mystic/bbs_filebase.pas
index e3223bb..12f9597 100644
--- a/mystic/bbs_filebase.pas
+++ b/mystic/bbs_filebase.pas
@@ -1781,7 +1781,7 @@ Var
     If FDir.Flags And FDirInvalid <> 0 Then
       GetFileListSize := strWordGet(3, SizeInfo, ' ')
     Else
-    If FDir.Size >= 10240000 Then Begin
+    If FDir.Size >= 1024000000 Then Begin
       A := (FDir.Size DIV 1024) DIV 1024;
       GetFileListSize := strI2S(A DIV 1000) + '.' + Copy(strI2S(A MOD 1000), 1, 2) + strWordGet(4, SizeInfo, ' ')
     End Else