paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-21 06:36:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphos: use MEMF_SEM_PROTECTED flag for semaphore protect our memory pool. this is required for the future threading (concurrent accesses to the same pool from separate threads).

Browse Source 
git-svn-id: trunk@30355 -
This commit is contained in:
Károly Balogh 2015-03-28 22:58:49 +00:00
parent 6b0a19c0ab
commit 0bccf5f09f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/morphos/system.pp
View File

@ -365,7 +365,7 @@ begin
if MOS_UtilityBase=nil then Halt(1); if MOS_UtilityBase=nil then Halt(1);
{ Creating the memory pool for growing heap } { Creating the memory pool for growing heap }
ASYS_heapPool:=CreatePool(MEMF_FAST,growheapsize2,growheapsize1); ASYS_heapPool:=CreatePool(MEMF_FAST or MEMF_SEM_PROTECTED,growheapsize2,growheapsize1);
if ASYS_heapPool=nil then Halt(1); if ASYS_heapPool=nil then Halt(1);
if MOS_ambMsg=nil then begin if MOS_ambMsg=nil then begin