mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-02 10:30:49 +02:00
+ Added munmap call
This commit is contained in:
parent
e9ee3ce8ae
commit
75d0a262a9
@ -628,9 +628,21 @@ begin
|
|||||||
LinuxError:=Errno;
|
LinuxError:=Errno;
|
||||||
end;
|
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$
|
$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
|
* Some procedure were forgotten. FIxed
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -894,6 +894,15 @@ begin
|
|||||||
LinuxError:=Errno;
|
LinuxError:=Errno;
|
||||||
end;
|
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
|
Port IO functions
|
||||||
|
@ -794,7 +794,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function MMap(const m:tmmapargs):longint;
|
function MMap(const m:tmmapargs):longint;
|
||||||
|
function MUnMap (P : Pointer; Size : Longint) : Boolean;
|
||||||
|
|
||||||
{**************************
|
{**************************
|
||||||
Port IO functions
|
Port IO functions
|
||||||
@ -2931,7 +2931,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$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
|
+ AssignStream now always returns PID of spawned process
|
||||||
|
|
||||||
Revision 1.69 2000/05/17 17:11:44 peter
|
Revision 1.69 2000/05/17 17:11:44 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user