diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-09-13 21:51:43 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-09-14 04:16:51 +0200 |
commit | 77476d6ecc45f1761125524cbdeddfe74e3b157a (patch) | |
tree | f6107b185b8c92f28e99d129e839a0c28fbe211e /src/ortho/debug | |
parent | 95cbcc921d92d58dbd25d328de60c18976083d2a (diff) | |
download | ghdl-77476d6ecc45f1761125524cbdeddfe74e3b157a.tar.gz ghdl-77476d6ecc45f1761125524cbdeddfe74e3b157a.tar.bz2 ghdl-77476d6ecc45f1761125524cbdeddfe74e3b157a.zip |
ortho: for slices, get element size from the result type
and not from the object type.
Fix #1862
Diffstat (limited to 'src/ortho/debug')
-rw-r--r-- | src/ortho/debug/ortho_debug.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ortho/debug/ortho_debug.adb b/src/ortho/debug/ortho_debug.adb index 9961fd2e0..2feda5932 100644 --- a/src/ortho/debug/ortho_debug.adb +++ b/src/ortho/debug/ortho_debug.adb @@ -1122,7 +1122,7 @@ package body Ortho_Debug is raise Type_Error; end if; -- The element type of ARR must be constrained. - Check_Constrained_Type (Get_Array_El_Type (Arr.Rtype)); + Check_Constrained_Type (Get_Array_El_Type (Res_Type)); -- The result is an array. if Res_Type.Kind not in ON_Array_Kinds then raise Type_Error; |