paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 10:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed unnecessary MEMF_PUBLIC flag from several allocations

Browse Source 
git-svn-id: trunk@27051 -
This commit is contained in:
Károly Balogh 2014-03-09 16:46:37 +00:00
parent 5ac193dfc3
commit 9bdbad0c39
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/morphos/dos.pp
View File

@ -225,7 +225,7 @@ begin
IOReq := NIL;
if port <> NIL then
begin
IOReq := execAllocMem(size, MEMF_CLEAR or MEMF_PUBLIC);
IOReq := execAllocMem(size, MEMF_CLEAR);
if IOReq <> NIL then
begin
IOReq^.io_Message.mn_Node.ln_Type := 7;
@ -254,7 +254,7 @@ var
begin
sigbit := AllocSignal(-1);
if sigbit = -1 then CreatePort := nil;
port := execAllocMem(sizeof(tMsgPort),MEMF_CLEAR or MEMF_PUBLIC);
port := execAllocMem(sizeof(tMsgPort),MEMF_CLEAR);
if port = nil then begin
FreeSignal(sigbit);
CreatePort := nil;