Nouvelle syntaxe des classes

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

1 files changed, 18 insertions, 0 deletions

diff --git a/byterun/obj.c b/byterun/obj.c
index 47bc34b506..9ccb0eb76e 100644
--- a/byterun/obj.c
+++ b/byterun/obj.c
@@ -63,3 +63,21 @@ value obj_block(value tag, value size) /* ML */
   return res;
 }
 
+value obj_dup(value arg) /* ML */
+{
+  value res;
+  mlsize_t sz, i;
+  tag_t tg;
+
+  sz = Wosize_val(arg);
+  if (sz == 0) return arg;
+
+  Begin_root(arg);
+  tg = Tag_val(arg);
+  res = alloc(sz, tg);
+  for (i = 0; i < sz; i++)
+    Field(res, i) = Field(arg, i);
+  End_roots();
+
+  return res;
+}