From 9bdbad0c3934edd26da60d08cbf8bcd6e2d67505 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Sun, 9 Mar 2014 16:46:37 +0000
Subject: [PATCH] removed unnecessary MEMF_PUBLIC flag from several allocations

git-svn-id: trunk@27051 -
---
 rtl/morphos/dos.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/morphos/dos.pp b/rtl/morphos/dos.pp
index b8a8f74274..4691d9f2f2 100644
--- a/rtl/morphos/dos.pp
+++ b/rtl/morphos/dos.pp
@@ -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;