diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-09-04 21:52:38 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-09-04 21:52:38 +0200 |
commit | 8520993b4d1eadefa488dfc96dff25333f1b19db (patch) | |
tree | 818d4fe917d3e6b765932ed3d1ab1ee70dc3c508 /src/grt/grt-unithread.adb | |
parent | 2d8f611cb63b72aa0373efe0ffa0df47e25519c9 (diff) | |
download | ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.tar.gz ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.tar.bz2 ghdl-8520993b4d1eadefa488dfc96dff25333f1b19db.zip |
Suppress stack switching; save process state in secondary stack.
Diffstat (limited to 'src/grt/grt-unithread.adb')
-rw-r--r-- | src/grt/grt-unithread.adb | 25 |
1 files changed, 4 insertions, 21 deletions
diff --git a/src/grt/grt-unithread.adb b/src/grt/grt-unithread.adb index 6acb52169..7e135339b 100644 --- a/src/grt/grt-unithread.adb +++ b/src/grt/grt-unithread.adb @@ -80,27 +80,10 @@ package body Grt.Unithread is return Current_Process; end Get_Current_Process; - Stack2 : Stack2_Ptr; + Common_Stack2 : constant Stack2_Ptr := Create; - function Get_Stack2 return Stack2_Ptr is + function Get_Common_Stack2 return Stack2_Ptr is begin - return Stack2; - end Get_Stack2; - - procedure Set_Stack2 (St : Stack2_Ptr) is - begin - Stack2 := St; - end Set_Stack2; - - Main_Stack : Stack_Type; - - function Get_Main_Stack return Stack_Type is - begin - return Main_Stack; - end Get_Main_Stack; - - procedure Set_Main_Stack (St : Stack_Type) is - begin - Main_Stack := St; - end Set_Main_Stack; + return Common_Stack2; + end Get_Common_Stack2; end Grt.Unithread; |