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

+ Added munmap call

Browse Source
This commit is contained in:
michael 2000-05-25 19:59:57 +00:00
parent e9ee3ce8ae
commit 75d0a262a9
3 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/bsdsysca.inc
View File

@ -628,9 +628,21 @@ begin
LinuxError:=Errno;
end;
function MUnMap (P : Pointer; Size : Longint) : Boolean;
Var
Sr : Syscallregs;
begin
Sr.reg2:=longint(P);
sr.reg3:=Size;
MUnMap:=syscall(syscall_nr_munmap,P,Size,0)=0;
LinuxError:=Errno;
end;
{
$Log$
Revision 1.2 2000-04-16 16:10:01 marco
Revision 1.3 2000-05-25 19:59:57 michael
+ Added munmap call
Revision 1.2 2000/04/16 16:10:01 marco
* Some procedure were forgotten. FIxed
}

9
rtl/linux/linsysca.inc
View File

@ -894,6 +894,15 @@ begin
LinuxError:=Errno;
end;
function MUnMap (P : Pointer; Size : Longint) : Boolean;
Var
Sr : Syscallregs;
begin
Sr.reg2:=longint(P);
sr.reg3:=Size;
MUnMap:=syscall(syscall_nr_munmap,sr)=0;
LinuxError:=Errno;
end;
{--------------------------------
Port IO functions

7
rtl/linux/linux.pp
View File

@ -794,7 +794,7 @@ type
end;
function MMap(const m:tmmapargs):longint;
function MUnMap (P : Pointer; Size : Longint) : Boolean;
{**************************
Port IO functions
@ -2931,7 +2931,10 @@ End.
{
$Log$
Revision 1.70 2000-05-21 17:10:13 michael
Revision 1.71 2000-05-25 19:59:57 michael
+ Added munmap call
Revision 1.70 2000/05/21 17:10:13 michael
+ AssignStream now always returns PID of spawned process
Revision 1.69 2000/05/17 17:11:44 peter