diff options
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 465fa3af5..345081b43 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -3753,7 +3753,7 @@ package body Trans.Chap8 is if Sensitivity = Null_Iir_List and Cond /= Null_Iir then -- Extract sensitivity from condition. Sensitivity := Create_Iir_List; - Vhdl.Canon.Canon_Extract_Sensitivity (Cond, Sensitivity); + Vhdl.Canon.Canon_Extract_Sensitivity_Expression (Cond, Sensitivity); Set_Sensitivity_List (Stmt, Sensitivity); end if; diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index caec91cfa..16394a1b1 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1784,7 +1784,7 @@ package body Trans.Chap9 is if Is_Sensitized then List_Orig := Get_Sensitivity_List (Proc); if List_Orig = Iir_List_All then - List := Vhdl.Canon.Canon_Extract_Process_Sensitivity (Proc); + List := Vhdl.Canon.Canon_Extract_Sensitivity_Process (Proc); else List := List_Orig; end if; |