paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 13:00:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix shmat from Nikolay Nikolov

Browse Source 
git-svn-id: trunk@1247 -
This commit is contained in:
peter 2005-10-01 20:54:11 +00:00
parent bd8db92094
commit e94b08ae68
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/linux/ipcsys.inc
View File

@ -32,14 +32,8 @@ begin
end; end;
function shmat (shmid:cint; shmaddr:pointer; shmflg:cint): pointer; function shmat (shmid:cint; shmaddr:pointer; shmflg:cint): pointer;
Var raddr : pointer;
error : ptrint;
begin begin
error:=do_syscall(syscall_nr_SHMAT,TSysParam(shmid),TSysParam(shmflg),TSysParam(@raddr),TSysParam(shmaddr)); shmat:=pointer(do_syscall(syscall_nr_SHMAT,TSysParam(shmid),TSysParam(shmaddr),TSysParam(shmflg)));
If Error<0 then
shmat:=pointer(error)
else
shmat:=raddr;
end; end;
function shmdt (shmaddr:pointer): cint; function shmdt (shmaddr:pointer): cint;