diff options
Diffstat (limited to 'translate/grt/grt-vcd.adb')
| -rw-r--r-- | translate/grt/grt-vcd.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/translate/grt/grt-vcd.adb b/translate/grt/grt-vcd.adb index b262560..aa7f352 100644 --- a/translate/grt/grt-vcd.adb +++ b/translate/grt/grt-vcd.adb @@ -604,7 +604,9 @@ package body Grt.Vcd is Fact := 0.1; Delta_Exp := 1; end if; - while 1 = 1 loop -- Seek the first digit + + -- Seek the first digit + loop Digit := Digit_Floor(Val_tmp); if Digit > 0 then exit; |