diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-09-02 12:55:01 +0000 |
commit | 1517cea772058b0fcbe778d05b8b99c7e6f3b25f (patch) | |
tree | a2d817fe623f81b7729ed3cd2e128cad91eca02b /asmrun/array.c | |
parent | d75918f7e459b507ac6b4b95f14df0a1eedd4937 (diff) |
Sources C convertis en ANSI C
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1696 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/array.c')
-rw-r--r-- | asmrun/array.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/asmrun/array.c b/asmrun/array.c index 45b0e30a0..6218039f8 100644 --- a/asmrun/array.c +++ b/asmrun/array.c @@ -19,8 +19,7 @@ #include "misc.h" #include "mlvalues.h" -value make_vect(len, init) - value len, init; +value make_vect(value len, value init) { value res; mlsize_t size, wsize, i; @@ -66,8 +65,7 @@ value make_vect(len, init) return res; } -value make_array(init) - value init; +value make_array(value init) { mlsize_t wsize, size, i; value v, res; @@ -98,7 +96,7 @@ value make_array(init) } } -void array_bound_error() +void array_bound_error(void) { fatal_error("Fatal error: out-of-bound access in array or string\n"); } |