diff options
Diffstat (limited to 'otherlibs/unix/lockf.c')
| -rw-r--r-- | otherlibs/unix/lockf.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/unix/lockf.c b/otherlibs/unix/lockf.c index 5a8ea4369..aed8710f7 100644 --- a/otherlibs/unix/lockf.c +++ b/otherlibs/unix/lockf.c @@ -19,7 +19,7 @@ #if defined(F_GETLK) && defined(F_SETLK) && defined(F_SETLKW) -value unix_lockf(value fd, value cmd, value span) /* ML */ +CAMLprim value unix_lockf(value fd, value cmd, value span) { struct flock l; int ret; @@ -93,7 +93,7 @@ static int lock_command_table[] = { F_ULOCK, F_LOCK, F_TLOCK, F_TEST, F_LOCK, F_TLOCK }; -value unix_lockf(value fd, value cmd, value span) +CAMLprim value unix_lockf(value fd, value cmd, value span) { if (lockf(Int_val(fd), lock_command_table[Int_val(cmd)], Long_val(span)) == -1) uerror("lockf", Nothing); @@ -102,7 +102,7 @@ value unix_lockf(value fd, value cmd, value span) #else -value unix_lockf(value fd, value cmd, value span) +CAMLprim value unix_lockf(value fd, value cmd, value span) { invalid_argument("lockf not implemented"); } #endif |