diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
| commit | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (patch) | |
| tree | ed7d40115bd74b0c4216a94bfc21d5af0837ce4f /sem_types.adb | |
| parent | 5edf93b87e8f3528d9063df08bf70bf538d72545 (diff) | |
| download | ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.gz ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.bz2 ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.zip | |
Add a python script to automatically generate disp_tree.
Diffstat (limited to 'sem_types.adb')
| -rw-r--r-- | sem_types.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sem_types.adb b/sem_types.adb index 7a2cb6828..8c4c5a48e 100644 --- a/sem_types.adb +++ b/sem_types.adb @@ -373,6 +373,9 @@ package body Sem_Types is Set_Range_Constraint (Sub_Type, Phys_Range); -- This must be locally... Set_Type_Staticness (Sub_Type, Get_Expr_Staticness (Range_Expr1)); + + -- FIXME: the original range is not used. Reuse it ? + Free_Iir (Range_Expr); end; end if; Set_Resolved_Flag (Sub_Type, False); |