From 6f38a592f368736524794434c5b97eca8fba7964 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 3 Dec 2012 17:59:35 +0400
Subject: [PATCH] G

---
 main.ml | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/main.ml b/main.ml
index 3b447e1..12725e4 100644
--- a/main.ml
+++ b/main.ml
@@ -3891,12 +3891,16 @@ let string_with_suffix_of_int n =
   then "0"
   else
     let n, s =
-      if n land ((1 lsl 20) - 1) = 0
-      then n lsr 20, "M"
+      if n land ((1 lsl 30) - 1) = 0
+      then n lsr 30, "G"
       else (
-        if n land ((1 lsl 10) - 1) = 0
-        then n lsr 10, "K"
-        else n, ""
+        if n land ((1 lsl 20) - 1) = 0
+        then n lsr 20, "M"
+        else (
+          if n land ((1 lsl 10) - 1) = 0
+          then n lsr 10, "K"
+          else n, ""
+        )
       )
     in
     let rec loop s n =
-- 
2.11.4.GIT