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

* simulated support for new heap manager

Browse Source
This commit is contained in:
Tomas Hajny 2004-07-24 01:15:25 +00:00
parent b10198407e
commit dadda35ce2
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/emx/system.pas
View File

@ -333,6 +333,19 @@ asm
movl heap_brk,%eax movl heap_brk,%eax
end {['EAX']}; end {['EAX']};
function SysOSAlloc (Size: ptrint): pointer;
begin
SysOSAlloc := Sbrk (Size);
end;
{.$define HAS_SYSOSFREE}
procedure SysOSFree (P: pointer; Size: ptrint);
begin
end;
{$i heap.inc} {$i heap.inc}
{**************************************************************************** {****************************************************************************
@ -1319,7 +1332,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.25 2004-05-16 20:39:59 hajny Revision 1.26 2004-07-24 01:15:25 hajny
* simulated support for new heap manager
Revision 1.25 2004/05/16 20:39:59 hajny
* handle in do_* changed to THandle * handle in do_* changed to THandle
Revision 1.24 2004/04/22 21:10:56 peter Revision 1.24 2004/04/22 21:10:56 peter