diff options
| -rw-r--r-- | translate/grt/grt-images.adb | 6 |
1 files changed, 3 insertions, 3 deletions
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; |