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-values.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-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index b8bd2cfad..9e1aef9eb 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -39,7 +39,7 @@ package body Synth.Values is function To_Value_Array_Acc is new Ada.Unchecked_Conversion (System.Address, Values.Value_Array_Acc); - function Is_Const (Val : Value_Acc) return Boolean is + function Is_Static (Val : Value_Acc) return Boolean is begin case Val.Kind is when Value_Discrete @@ -58,7 +58,7 @@ package body Synth.Values is | Value_File => return False; when Value_Alias => - return Is_Const (Val.A_Obj); + return Is_Static (Val.A_Obj); when Value_Const => return True; when Value_Instance @@ -66,9 +66,9 @@ package body Synth.Values is -- Not really a value. raise Internal_Error; end case; - end Is_Const; + end Is_Static; - function Is_Const_Val (Val : Value_Acc) return Boolean is + function Is_Static_Val (Val : Value_Acc) return Boolean is begin case Val.Kind is when Value_Discrete @@ -96,7 +96,7 @@ package body Synth.Values is -- Not really a value. raise Internal_Error; end case; - end Is_Const_Val; + end Is_Static_Val; function Is_Bounded_Type (Typ : Type_Acc) return Boolean is begin |