diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-09-30 00:23:56 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-09-30 00:23:56 +0200 |
commit | 7eb71d12d9fc376926d1960457cdda7e0d54fcb4 (patch) | |
tree | f97c169db84ccd0eed4a0e26b17448da8a82bf53 /src/synth/synth-values.adb | |
parent | dd6c67ac12d1371b4bc7b1a5570f9522d32a647a (diff) | |
download | ghdl-7eb71d12d9fc376926d1960457cdda7e0d54fcb4.tar.gz ghdl-7eb71d12d9fc376926d1960457cdda7e0d54fcb4.tar.bz2 ghdl-7eb71d12d9fc376926d1960457cdda7e0d54fcb4.zip |
synth: refactoring of alias (allow alias of anything).
Diffstat (limited to 'src/synth/synth-values.adb')
-rw-r--r-- | src/synth/synth-values.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-values.adb b/src/synth/synth-values.adb index 166bd9e43..030ceec81 100644 --- a/src/synth/synth-values.adb +++ b/src/synth/synth-values.adb @@ -548,7 +548,7 @@ package body Synth.Values is (Kind => Value_Subtype, Typ => Typ))); end Create_Value_Subtype; - function Create_Value_Alias (Wid : Wire_Id; Off : Uns32; Typ : Type_Acc) + function Create_Value_Alias (Obj : Value_Acc; Off : Uns32; Typ : Type_Acc) return Value_Acc is subtype Value_Type_Alias is Value_Type (Value_Alias); @@ -556,7 +556,7 @@ package body Synth.Values is begin return To_Value_Acc (Alloc (Current_Pool, (Kind => Value_Alias, - A_Wid => Wid, + A_Obj => Obj, A_Off => Off, Typ => Typ))); end Create_Value_Alias; |