diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap4.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap4.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap4.ads b/src/vhdl/translate/trans-chap4.ads index 50fe23e69..cfc1917fe 100644 --- a/src/vhdl/translate/trans-chap4.ads +++ b/src/vhdl/translate/trans-chap4.ads @@ -100,7 +100,8 @@ package Trans.Chap4 is function Get_Scalar_Initial_Value (Atype : Iir) return O_Enode; -- Initialize NAME/OBJ with VALUE. - procedure Elab_Object_Init (Name : Mnode; Obj : Iir; Value : Iir); + procedure Elab_Object_Init + (Name : Mnode; Obj : Iir; Value : Iir; Alloc_Kind : Allocation_Kind); -- Get the ortho type for an object of type TINFO. function Get_Object_Type (Tinfo : Type_Info_Acc; Kind : Object_Kind_Type) |