summaryrefslogtreecommitdiffstats
path: root/asmrun/array.c
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>1997-09-02 12:55:01 +0000
committerXavier Leroy <xavier.leroy@inria.fr>1997-09-02 12:55:01 +0000
commit1517cea772058b0fcbe778d05b8b99c7e6f3b25f (patch)
treea2d817fe623f81b7729ed3cd2e128cad91eca02b /asmrun/array.c
parentd75918f7e459b507ac6b4b95f14df0a1eedd4937 (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.c8
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");
}