diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-03-25 12:39:53 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-03-25 12:39:53 +0100 |
commit | 60a469e6b5f3a6df29558e8e98fdc5510886dee3 (patch) | |
tree | 15a0b0999c931b927006d97c9a19ec8dc00c19ef /src/synth/synth-values.ads | |
parent | 88430d7566d72714268f6be31e542600745a1036 (diff) | |
download | ghdl-60a469e6b5f3a6df29558e8e98fdc5510886dee3.tar.gz ghdl-60a469e6b5f3a6df29558e8e98fdc5510886dee3.tar.bz2 ghdl-60a469e6b5f3a6df29558e8e98fdc5510886dee3.zip |
synth: improve propagation of errors.
Diffstat (limited to 'src/synth/synth-values.ads')
-rw-r--r-- | src/synth/synth-values.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/synth/synth-values.ads b/src/synth/synth-values.ads index 416f2729d..7c4ec8b7c 100644 --- a/src/synth/synth-values.ads +++ b/src/synth/synth-values.ads @@ -335,6 +335,11 @@ package Synth.Values is procedure Strip_Const (Val : in out Value_Acc); function Strip_Const (Val : Value_Acc) return Value_Acc; + -- If VAL is a const or an alias, replace it by its value. + -- Used to extract the real data of a static value. Note that the type + -- is not correct anymore. + function Strip_Alias_Const (V : Value_Acc) return Value_Acc; + function Unshare (Src : Value_Acc; Pool : Areapool_Acc) return Value_Acc; |