From 4ed054ad8c1877c1bd620014cfe8a36979c5aa54 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Mon, 12 Dec 2005 20:36:38 +0000
Subject: typo fixes

---
 translate/grt/grt-images.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'translate')

diff --git a/translate/grt/grt-images.adb b/translate/grt/grt-images.adb
index fc5d17492..396a0eade 100644
--- a/translate/grt/grt-images.adb
+++ b/translate/grt/grt-images.adb
@@ -157,18 +157,18 @@ package body Grt.Images is
       if V  = 0.0 then
          Exp := 0;
       elsif V < 1.0 then
-         Exp := -1;
+         Exp := 0;
          loop
             exit when V >= 1.0;
             Exp := Exp - 1;
-            V := V / 10.0;
+            V := V * 10.0;
          end loop;
       else
          Exp := 0;
          loop
             exit when V < 10.0;
             Exp := Exp + 1;
-            V := V * 10.0;
+            V := V / 10.0;
          end loop;
       end if;
 
-- 
cgit v1.2.3