diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-11-13 19:47:50 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-11-13 19:47:50 +0100 |
| commit | 320a18c681edd29d8f58bd7f3109ae6ee1faffca (patch) | |
| tree | 63a9957904cc22fb965d7555e3a6f8fed8c52b1b /src/synth/synth-static_oper.adb | |
| parent | 444fb962c6612f9c68d5211ab0fabb1d2aac854e (diff) | |
| download | ghdl-320a18c681edd29d8f58bd7f3109ae6ee1faffca.tar.gz ghdl-320a18c681edd29d8f58bd7f3109ae6ee1faffca.tar.bz2 ghdl-320a18c681edd29d8f58bd7f3109ae6ee1faffca.zip | |
synth: renames Is_Const to Is_Static.
Diffstat (limited to 'src/synth/synth-static_oper.adb')
| -rw-r--r-- | src/synth/synth-static_oper.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/synth/synth-static_oper.adb b/src/synth/synth-static_oper.adb index 5626427c6..4b301b128 100644 --- a/src/synth/synth-static_oper.adb +++ b/src/synth/synth-static_oper.adb @@ -129,15 +129,15 @@ package body Synth.Static_Oper is when Iir_Predefined_Integer_Plus => return Create_Value_Discrete - (Get_Const_Discrete (Left) + Get_Const_Discrete (Right), + (Get_Static_Discrete (Left) + Get_Static_Discrete (Right), Res_Typ); when Iir_Predefined_Integer_Minus => return Create_Value_Discrete - (Get_Const_Discrete (Left) - Get_Const_Discrete (Right), + (Get_Static_Discrete (Left) - Get_Static_Discrete (Right), Res_Typ); when Iir_Predefined_Integer_Mul => return Create_Value_Discrete - (Get_Const_Discrete (Left) * Get_Const_Discrete (Right), + (Get_Static_Discrete (Left) * Get_Static_Discrete (Right), Res_Typ); when Iir_Predefined_Integer_Div => return Create_Value_Discrete @@ -165,12 +165,12 @@ package body Synth.Static_Oper is (Boolean'Pos (Left.Scal > Right.Scal), Boolean_Type); when Iir_Predefined_Integer_Equality => return Create_Value_Discrete - (Boolean'Pos (Get_Const_Discrete (Left) - = Get_Const_Discrete (Right)), Boolean_Type); + (Boolean'Pos (Get_Static_Discrete (Left) + = Get_Static_Discrete (Right)), Boolean_Type); when Iir_Predefined_Integer_Inequality => return Create_Value_Discrete - (Boolean'Pos (Get_Const_Discrete (Left) - /= Get_Const_Discrete (Right)), Boolean_Type); + (Boolean'Pos (Get_Static_Discrete (Left) + /= Get_Static_Discrete (Right)), Boolean_Type); when Iir_Predefined_Physical_Physical_Div => return Create_Value_Discrete (Left.Scal / Right.Scal, Res_Typ); |