summaryrefslogtreecommitdiff
path: root/runtime/minor_gc.c
diff options
context:
space:
mode:
authorSudha Parimala <sudharg247@gmail.com>2021-03-24 10:49:35 +0530
committerSudha Parimala <sudharg247@gmail.com>2021-03-24 10:49:35 +0530
commitad551ac31dde6c1fc29ea8fff454288f8e499d1c (patch)
treebdc1d414525cdcb637f91811c030f7de9e95401a /runtime/minor_gc.c
parentcc661c624957dee27263fc8be89ed3e771d22af8 (diff)
downloadocaml-ad551ac31dde6c1fc29ea8fff454288f8e499d1c.tar.gz
typo fixes and remove extra variable
Diffstat (limited to 'runtime/minor_gc.c')
-rw-r--r--runtime/minor_gc.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/runtime/minor_gc.c b/runtime/minor_gc.c
index 5bde57a8ca..0b1c06cebc 100644
--- a/runtime/minor_gc.c
+++ b/runtime/minor_gc.c
@@ -341,8 +341,7 @@ static void oldify_one (void* st_v, value v, value *p)
st->live_bytes += Bhsize_hd(hd);
result = alloc_shared(sz, tag);
for (i = 0; i < sz; i++) {
- value curr = Field(v, i);
- Field(result, i) = curr;
+ Field(result, i) = Field(v, i);
}
CAMLassert (infix_offset == 0);
if( !try_update_object_header(v, p, result, 0) ) {