diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-12-12 20:36:38 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-12-12 20:36:38 +0000 |
| commit | 4ed054ad8c1877c1bd620014cfe8a36979c5aa54 (patch) | |
| tree | 4b7aded5e77583a179c9d2cecdfb6e746d71e000 | |
| parent | e7e0d55f0c8ab261859a3d57c7119bc30d8e5148 (diff) | |
| download | ghdl-4ed054ad8c1877c1bd620014cfe8a36979c5aa54.tar.gz ghdl-4ed054ad8c1877c1bd620014cfe8a36979c5aa54.tar.bz2 ghdl-4ed054ad8c1877c1bd620014cfe8a36979c5aa54.zip | |
typo fixes
| -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; |