diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-09-16 19:55:00 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-09-16 19:55:00 +0200 |
commit | 2a51f0c5c65d5d71c5abbd0631a0ec5660678520 (patch) | |
tree | a3f077806dced3a7106bf990f589184fbde30d62 /src/synth/synth-vhdl_stmts.ads | |
parent | 7f411fd357bc9a17dc3d0593b86f4b8412a94632 (diff) | |
download | ghdl-2a51f0c5c65d5d71c5abbd0631a0ec5660678520.tar.gz ghdl-2a51f0c5c65d5d71c5abbd0631a0ec5660678520.tar.bz2 ghdl-2a51f0c5c65d5d71c5abbd0631a0ec5660678520.zip |
synth: preliminary work to factorize code
Diffstat (limited to 'src/synth/synth-vhdl_stmts.ads')
-rw-r--r-- | src/synth/synth-vhdl_stmts.ads | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/synth/synth-vhdl_stmts.ads b/src/synth/synth-vhdl_stmts.ads index 092249225..fde8fd8cd 100644 --- a/src/synth/synth-vhdl_stmts.ads +++ b/src/synth/synth-vhdl_stmts.ads @@ -75,13 +75,23 @@ package Synth.Vhdl_Stmts is -- DEST_TYP is the type of the result. -- DEST_OFF is the offset, within DEST_DYN. -- DEST_DYN is set (Voff field set) when there is a non-static index. + -- SYN_INST is used for all parts except when PFX is an interface. In the + -- latter, INTER_INST is used. procedure Synth_Assignment_Prefix (Syn_Inst : Synth_Instance_Acc; + Inter_Inst : Synth_Instance_Acc; Pfx : Node; Dest_Base : out Valtyp; Dest_Typ : out Type_Acc; Dest_Off : out Value_Offsets; Dest_Dyn : out Dyn_Name); + -- Simplified version. No dynamic offset expected. + procedure Synth_Assignment_Prefix (Syn_Inst : Synth_Instance_Acc; + Pfx : Node; + Dest_Base : out Valtyp; + Dest_Typ : out Type_Acc; + Dest_Off : out Value_Offsets); + procedure Synth_Assignment (Syn_Inst : Synth_Instance_Acc; Target : Node; Val : Valtyp; |