paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mmap fix.

Browse Source
This commit is contained in:
marco 2003-09-20 17:27:05 +00:00
parent ad6e138a45
commit 60ef089bc6
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/unix/liunsysc.inc
View File

@ -63,7 +63,7 @@ Function WaitPid(Pid:longint;Status:pointer;Options:Longint):Longint;
be a longint. be a longint.
} }
begin begin
WaitPid:=fpWaitPid(pid,longint(status),options); WaitPid:=fpWaitPid(pid,pcint(status),options);
LinuxError:=fpgeterrno; LinuxError:=fpgeterrno;
end; end;
@ -439,7 +439,7 @@ begin
//SysCall (syscall_nr_close,sr); //SysCall (syscall_nr_close,sr);
{ closed our side, Now wait for the other - this appears to be needed ?? } { closed our side, Now wait for the other - this appears to be needed ?? }
pl:=@(textrec(f).userdata[2]); pl:=@(textrec(f).userdata[2]);
fpwaitpid(pl^,res,0); fpwaitpid(pl^,@res,0);
pclose:=res shr 8; pclose:=res shr 8;
end; end;
@ -453,7 +453,7 @@ begin
fpclose(FileRec(F).Handle); fpclose(FileRec(F).Handle);
{ closed our side, Now wait for the other - this appears to be needed ?? } { closed our side, Now wait for the other - this appears to be needed ?? }
pl:=@(filerec(f).userdata[2]); pl:=@(filerec(f).userdata[2]);
fpwaitpid(pl^,res,0); fpwaitpid(pl^,@res,0);
pclose:=res shr 8; pclose:=res shr 8;
end; end;
@ -589,7 +589,7 @@ begin
LinuxError:=fpgetErrno; LinuxError:=fpgetErrno;
end; end;
{
function MMap(const m:tmmapargs):pointer; function MMap(const m:tmmapargs):pointer;
begin begin
mmap:=fpmmap(pointer(m.address),m.size,m.prot, m.flags,m.fd, m.offset); mmap:=fpmmap(pointer(m.address),m.size,m.prot, m.flags,m.fd, m.offset);
@ -602,7 +602,7 @@ begin
MUnMap:=fpmunmap(p,size)=0; MUnMap:=fpmunmap(p,size)=0;
LinuxError:=fpgetErrno; LinuxError:=fpgetErrno;
end; end;
}
{-------------------------------- {--------------------------------
Port IO functions Port IO functions
@ -638,7 +638,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2003-09-16 20:52:24 marco Revision 1.5 2003-09-20 17:27:05 marco
* mmap fix.
Revision 1.4 2003/09/16 20:52:24 marco
* small cleanups. Mostly killing of already commented code in unix etc * small cleanups. Mostly killing of already commented code in unix etc
Revision 1.3 2003/09/16 16:06:02 peter Revision 1.3 2003/09/16 16:06:02 peter