From 7eb71d12d9fc376926d1960457cdda7e0d54fcb4 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Mon, 30 Sep 2019 00:23:56 +0200 Subject: synth: refactoring of alias (allow alias of anything). --- src/synth/synth-values.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/synth/synth-values.adb') 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; -- cgit v1.2.3