diff options
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; |