diff options
Diffstat (limited to 'src/synth/synth-context.adb')
| -rw-r--r-- | src/synth/synth-context.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-context.adb b/src/synth/synth-context.adb index d7af882b5..12ad60ed4 100644 --- a/src/synth/synth-context.adb +++ b/src/synth/synth-context.adb @@ -290,7 +290,7 @@ package body Synth.Context is Off := Off + 1; end; when Type_Discrete => - for I in reverse 0 .. Val.Typ.Drange.W - 1 loop + for I in reverse 0 .. Val.Typ.W - 1 loop declare B : constant Uns32 := Uns32 (Shift_Right (To_Uns64 (Val.Scal), Natural (I))) @@ -381,9 +381,9 @@ package body Synth.Context is Value2net (Val, 1, V, Res); return Res; end; - elsif Val.Typ.Drange.W <= 32 then + elsif Val.Typ.W <= 32 then return Build_Const_UB32 - (Build_Context, Uns32 (Val.Scal), Val.Typ.Drange.W); + (Build_Context, Uns32 (Val.Scal), Val.Typ.W); else raise Internal_Error; end if; |