G
authormalc <av1474@comtv.ru>
Mon, 3 Dec 2012 13:59:35 +0000 (3 17:59 +0400)
committermalc <av1474@comtv.ru>
Mon, 3 Dec 2012 13:59:35 +0000 (3 17:59 +0400)
main.ml

diff --git a/main.ml b/main.ml
index 3b447e1..12725e4 100644 (file)
--- 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 =