浏览代码

* fix type of fourth parameter of msgrcv function

git-svn-id: trunk@16409 -
pierre 14 年之前
父节点
当前提交
889caf5911
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/bsd/ipcbsd.inc

+ 1 - 1
rtl/bsd/ipcbsd.inc

@@ -80,7 +80,7 @@ begin
   msgsnd:=do_syscall(syscall_nr_msgsys,2, msqid, TSysParam(msgp), TSysParam(msgsz), msgflg);
   msgsnd:=do_syscall(syscall_nr_msgsys,2, msqid, TSysParam(msgp), TSysParam(msgsz), msgflg);
 end;
 end;
 
 
-Function msgrcv(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgtyp:cint; msgflg:cint):cint;
+Function msgrcv(msqid:cint; msgp: PMSGBuf; msgsz: size_t; msgtyp:clong; msgflg:cint):cint;
 begin
 begin
   msgrcv:=(do_syscall(syscall_nr_msgsys,3, msqid, TSysParam(msgp), msgsz, msgtyp, msgflg));
   msgrcv:=(do_syscall(syscall_nr_msgsys,3, msqid, TSysParam(msgp), msgsz, msgtyp, msgflg));
 end;
 end;