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

--- Merging r34200 into '.':

Browse Source 
D    rtl/haiku/sysheap.inc
--- Recording mergeinfo for merge of r34200 into '.':
 U   .

# revisions: 34200

git-svn-id: branches/fixes_3_0@34274 -
This commit is contained in:
marco 2016-08-11 10:37:26 +00:00
parent c58755d18d
commit 7c679050de
2 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8548,7 +8548,6 @@ rtl/haiku/suuid.inc svneol=native#text/plain
rtl/haiku/syscall.inc svneol=native#text/plain rtl/haiku/syscall.inc svneol=native#text/plain
rtl/haiku/syscallh.inc svneol=native#text/plain rtl/haiku/syscallh.inc svneol=native#text/plain
rtl/haiku/sysconst.inc svneol=native#text/plain rtl/haiku/sysconst.inc svneol=native#text/plain
rtl/haiku/sysheap.inc svneol=native#text/plain
rtl/haiku/sysnr.inc svneol=native#text/plain rtl/haiku/sysnr.inc svneol=native#text/plain
rtl/haiku/sysos.inc svneol=native#text/plain rtl/haiku/sysos.inc svneol=native#text/plain
rtl/haiku/sysosh.inc svneol=native#text/plain rtl/haiku/sysosh.inc svneol=native#text/plain

36
rtl/haiku/sysheap.inc
View File

@ -1,36 +0,0 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2001 by Free Pascal development team
This file implements all the base types and limits required
for a minimal POSIX compliant subset required to port the compiler
to a new OS.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
function sbrk2 (size : longint):pointer; cdecl; external name 'sbrk';
function SysOSAlloc(size: ptruint): pointer;
begin
{ result:=Fpmmap(nil,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);}
result := sbrk2(size);
if result=pointer(-1) then
result:=nil
else
seterrno(0);
end;
{ $ define HAS_SYSOSFREE}
procedure SysOSFree(p: pointer; size: ptruint);
begin
// fpmunmap(p, size);
end;