Browse Source

amiga/morphos: fix freepooled(), it has no return value

git-svn-id: trunk@44426 -
Károly Balogh 5 years ago
parent
commit
f69c099cfe
3 changed files with 9 additions and 9 deletions
  1. 3 3
      packages/morphunits/src/exec.pas
  2. 3 3
      rtl/amiga/m68k/execf.inc
  3. 3 3
      rtl/morphos/execf.inc

+ 3 - 3
packages/morphunits/src/exec.pas

@@ -2136,9 +2136,9 @@ function AllocPooled(poolHeader: Pointer  location 'a0';
                      memSize   : Cardinal location 'd0'): Pointer;
                      memSize   : Cardinal location 'd0'): Pointer;
 SysCall MOS_ExecBase 708;
 SysCall MOS_ExecBase 708;
 
 
-function FreePooled(poolHeader: Pointer  location 'a0';
-                    memory    : Pointer  location 'a1';
-                    memSize   : Cardinal location 'd0'): Pointer;
+procedure FreePooled(poolHeader: Pointer  location 'a0';
+                     memory    : Pointer  location 'a1';
+                     memSize   : Cardinal location 'd0');
 SysCall MOS_ExecBase 714;
 SysCall MOS_ExecBase 714;
 
 
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;

+ 3 - 3
rtl/amiga/m68k/execf.inc

@@ -406,9 +406,9 @@ function AllocPooled(poolHeader: Pointer  location 'a0';
                      memSize   : Cardinal location 'd0'): Pointer;
                      memSize   : Cardinal location 'd0'): Pointer;
 SysCall AOS_ExecBase 708;
 SysCall AOS_ExecBase 708;
 
 
-function FreePooled(poolHeader: Pointer  location 'a0';
-                    memory    : Pointer  location 'a1';
-                    memSize   : Cardinal location 'd0'): Pointer;
+procedure FreePooled(poolHeader: Pointer  location 'a0';
+                      memory    : Pointer  location 'a1';
+                      memSize   : Cardinal location 'd0');
 SysCall AOS_ExecBase 714;
 SysCall AOS_ExecBase 714;
 
 
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;

+ 3 - 3
rtl/morphos/execf.inc

@@ -403,9 +403,9 @@ function AllocPooled(poolHeader: Pointer  location 'a0';
                      memSize   : Cardinal location 'd0'): Pointer;
                      memSize   : Cardinal location 'd0'): Pointer;
 SysCall MOS_ExecBase 708;
 SysCall MOS_ExecBase 708;
 
 
-function FreePooled(poolHeader: Pointer  location 'a0';
-                    memory    : Pointer  location 'a1';
-                    memSize   : Cardinal location 'd0'): Pointer;
+procedure FreePooled(poolHeader: Pointer  location 'a0';
+                     memory    : Pointer  location 'a1';
+                     memSize   : Cardinal location 'd0');
 SysCall MOS_ExecBase 714;
 SysCall MOS_ExecBase 714;
 
 
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;
 function AttemptSemaphoreShared(sigSem: pSignalSemaphore location 'a0'): Cardinal;