diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-07 06:29:39 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-07 06:31:58 +0200 |
| commit | 2886f0582984bc4948f716d82762c50fc3302064 (patch) | |
| tree | bde3fe6f5d0a6b7165886d10e642113d72bee30f /src/ortho/debug/ortho_debug-disp.adb | |
| parent | 2804d2726adbb6cca68731526a0df54ebd767beb (diff) | |
| download | ghdl-2886f0582984bc4948f716d82762c50fc3302064.tar.gz ghdl-2886f0582984bc4948f716d82762c50fc3302064.tar.bz2 ghdl-2886f0582984bc4948f716d82762c50fc3302064.zip | |
ortho/debug: handle aggregates of record-subtype
Diffstat (limited to 'src/ortho/debug/ortho_debug-disp.adb')
| -rw-r--r-- | src/ortho/debug/ortho_debug-disp.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/ortho/debug/ortho_debug-disp.adb b/src/ortho/debug/ortho_debug-disp.adb index 29d07fae4..0baf97f21 100644 --- a/src/ortho/debug/ortho_debug-disp.adb +++ b/src/ortho/debug/ortho_debug-disp.adb @@ -617,8 +617,7 @@ package body Ortho_Debug.Disp is begin Put ('{'); El := C.Rec_Els; - pragma Assert (C.Ctype.Kind = ON_Record_Type); - Field := C.Ctype.Rec_Elements; + Field := Get_Record_Elements (C.Ctype); if El /= null then loop Set_Mark; |