Remplacement long/unsigned long par intnat/uintnat

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 2 insertions, 2 deletions

diff --git a/byterun/str.c b/byterun/str.c
index 8151fa37c..79e4ef81b 100644
--- a/byterun/str.c
+++ b/byterun/str.c
@@ -52,14 +52,14 @@ CAMLprim value caml_create_string(value len)
 
 CAMLprim value caml_string_get(value str, value index)
 {
-  long idx = Long_val(index);
+  intnat idx = Long_val(index);
   if (idx < 0 || idx >= caml_string_length(str)) caml_array_bound_error();
   return Val_int(Byte_u(str, idx));
 }
 
 CAMLprim value caml_string_set(value str, value index, value newval)
 {
-  long idx = Long_val(index);
+  intnat idx = Long_val(index);
   if (idx < 0 || idx >= caml_string_length(str)) caml_array_bound_error();
   Byte_u(str, idx) = Int_val(newval);
   return Val_unit;