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

palmos: implemented sysosalloc/free for the heap

Browse Source 
git-svn-id: trunk@37248 -
This commit is contained in:
Károly Balogh 2017-09-18 11:14:48 +00:00
parent e896c16b4f
commit 790c1f87f1
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/palmos/palmos.inc
View File

@ -65,4 +65,11 @@ const
procedure SndPlaySystemSound(beepID: Word); syscall sysTrapSndPlaySystemSound; procedure SndPlaySystemSound(beepID: Word); syscall sysTrapSndPlaySystemSound;
const
sysTrapMemChunkFree = $A012;
sysTrapMemPtrNew = $A013;
function MemPtrNew(size: UInt32): MemPtr; syscall sysTrapMemPtrNew;
function MemPtrFree(chunkDataP: MemPtr): Err; syscall sysTrapMemChunkFree;
{$PACKRECORDS DEFAULT} {$PACKRECORDS DEFAULT}

3
rtl/palmos/sysheap.inc
View File

@ -20,10 +20,13 @@
function SysOSAlloc(size: ptruint): pointer; function SysOSAlloc(size: ptruint): pointer;
begin begin
SysOSAlloc:=MemPtrNew(size);
end; end;
{$define HAS_SYSOSFREE} {$define HAS_SYSOSFREE}
procedure SysOSFree(p: pointer; size: ptruint); procedure SysOSFree(p: pointer; size: ptruint);
begin begin
if (p <> nil) then
MemPtrFree(p);
end; end;