|
@@ -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;
|
|
|
|
-
|
|
|
|
-
|
|
|