diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/grt/grt-images.adb | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/src/grt/grt-images.adb b/src/grt/grt-images.adb index 342c98f..c085380 100644 --- a/src/grt/grt-images.adb +++ b/src/grt/grt-images.adb @@ -200,19 +200,23 @@ package body Grt.Images is Res_Len : constant Ghdl_Index_Type := (Len + Log_Base - 1) / Log_Base; Pos : Ghdl_Index_Type; V : Natural; - Sh : Natural range 0 .. 4; + Sh_Count : Natural range 0 .. 4; + Sh : Natural range 1 .. 16; begin Res.Base := To_Std_String_Basep (Ghdl_Stack2_Allocate (Res_Len)); V := 0; - Sh := 0; + Sh_Count := 0; + Sh := 1; Pos := Res_Len - 1; for I in reverse 1 .. Len loop - V := V + Std_Bit'Pos (Val (I - 1)) * (2 ** Sh); - Sh := Sh + 1; - if Sh = Natural (Log_Base) or else I = 1 then + V := V + Std_Bit'Pos (Val (I - 1)) * Sh; + Sh_Count := Sh_Count + 1; + Sh := Sh * 2; + if Sh_Count = Natural (Log_Base) or else I = 1 then Res.Base (Pos) := Hex_Chars (V); Pos := Pos - 1; - Sh := 0; + Sh_Count := 0; + Sh := 1; V := 0; end if; end loop; |