Skip to content
Browse files

fix bug in previous Val_unit initialization patch

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14725 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
  • Loading branch information...
1 parent b78b199 commit 2dd92969d254ddae7b49f1478a2ef69ccf70ad42 @mshinwell mshinwell committed May 2, 2014
Showing with 5 additions and 1 deletion.
  1. BIN boot/ocamlc
  2. BIN boot/ocamldep
  3. BIN boot/ocamllex
  4. +5 −1 byterun/memory.h
View
BIN boot/ocamlc
Binary file not shown.
View
BIN boot/ocamldep
Binary file not shown.
View
BIN boot/ocamllex
Binary file not shown.
View
6 byterun/memory.h
@@ -286,7 +286,11 @@ CAMLextern struct caml__roots_block *caml_local_roots; /* defined in roots.c */
CAMLxparam5 (x, y, z, t, u)
#define CAMLlocalN(x, size) \
- value x [(size)] = { Val_unit, /* Val_unit, Val_unit, ... */ }; \
+ value x [(size)]; \
+ int caml__i_##x; \
+ for (caml__i_##x = 0; caml__i_##x < size; caml__i_##x ++) { \
+ x[caml__i_##x] = Val_unit; \
+ } \
CAMLxparamN (x, (size))

0 comments on commit 2dd9296

Please sign in to comment.
Something went wrong with that request. Please try again.