diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-08-08 13:37:34 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-08-08 13:37:34 +0000 |
| commit | 414572e80b2a90bfa3294a04a84706800e8d087a (patch) | |
| tree | 075cf12077ce090d90af984646eb432a19d3df66 /otherlibs/unix/ioctl.c | |
| parent | e2b3ef318dcfd5be17b1304d93533ebd4cde3359 (diff) | |
MAJ par-rapport a Caml Light 0.7
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@182 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/ioctl.c')
| -rw-r--r-- | otherlibs/unix/ioctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/unix/ioctl.c b/otherlibs/unix/ioctl.c index e4d2e5e6d..024178544 100644 --- a/otherlibs/unix/ioctl.c +++ b/otherlibs/unix/ioctl.c @@ -5,7 +5,7 @@ value unix_ioctl_int(fd, request, arg) value fd, request, arg; { int retcode; - retcode = ioctl(Int_val(fd), Int_val(request), (char *) Int_val(arg)); + retcode = ioctl(Int_val(fd), Int_val(request), (char *) Long_val(arg)); if (retcode == -1) uerror("ioctl_int", Nothing); return Val_int(retcode); } |