diff options
author | Tristan Gingold <tgingold@free.fr> | 2022-10-05 20:47:16 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2022-10-05 20:47:16 +0200 |
commit | 04f4f5139962f51dd87e8ff5f497deef10caef17 (patch) | |
tree | 233dc3e72e82047c5cbac2e591b9071d5195dd30 /src/simul/simul-vhdl_simul.ads | |
parent | 2ae368913e5e000ab40f48468cbc6981217861cc (diff) | |
download | ghdl-04f4f5139962f51dd87e8ff5f497deef10caef17.tar.gz ghdl-04f4f5139962f51dd87e8ff5f497deef10caef17.tar.bz2 ghdl-04f4f5139962f51dd87e8ff5f497deef10caef17.zip |
simul: handle suspendable procedure call from sensitized process.
Diffstat (limited to 'src/simul/simul-vhdl_simul.ads')
-rw-r--r-- | src/simul/simul-vhdl_simul.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/simul/simul-vhdl_simul.ads b/src/simul/simul-vhdl_simul.ads index f2cf98212..66a032f22 100644 --- a/src/simul/simul-vhdl_simul.ads +++ b/src/simul/simul-vhdl_simul.ads @@ -48,6 +48,10 @@ package Simul.Vhdl_Simul is -- State associed with each process. type Process_State_Type (Kind : Process_Kind := Kind_Process) is record + -- True if the process has a suspend state. + -- (Used for procedure calls) + Has_State : Boolean; + -- The process instance. Top_Instance : Synth_Instance_Acc := null; Proc : Node := Null_Node; |