diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
| commit | 3de54dec267abf845ca32bd1f6026834cc04d853 (patch) | |
| tree | daa34de1fd38e86c2dd0c67896c3c5748511fe1c /otherlibs/threads/scheduler.c | |
| parent | 11524e2578b62fa30620121873aa372b180c0a74 (diff) | |
Remplacement long/unsigned long par intnat/uintnat
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/threads/scheduler.c')
| -rw-r--r-- | otherlibs/threads/scheduler.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/otherlibs/threads/scheduler.c b/otherlibs/threads/scheduler.c index fb62442d7..c73ac67e8 100644 --- a/otherlibs/threads/scheduler.c +++ b/otherlibs/threads/scheduler.c @@ -653,7 +653,7 @@ value thread_inchan_ready(value vchan) /* ML */ value thread_outchan_ready(value vchan, value vsize) /* ML */ { struct channel * chan = Channel(vchan); - long size = Long_val(vsize); + intnat size = Long_val(vsize); /* Negative size means we want to flush the buffer entirely */ if (size < 0) { return Val_bool(chan->curr == chan->buff); |