diff options
| -rw-r--r-- | runtime/floats.c | 4 | ||||
| -rw-r--r-- | runtime/minor_gc.c | 3 |
2 files changed, 3 insertions, 4 deletions
diff --git a/runtime/floats.c b/runtime/floats.c index a161fea1b3..fbad379f41 100644 --- a/runtime/floats.c +++ b/runtime/floats.c @@ -83,7 +83,7 @@ CAMLexport double caml_Double_val(value val) CAMLassert(sizeof(double) == 2 * sizeof(value)); buffer.v[0] = Field(val, 0); - buffer.v[1] = Field(val, 0); + buffer.v[1] = Field(val, 1); return buffer.d; } @@ -94,7 +94,7 @@ CAMLexport void caml_Store_double_val(value val, double dbl) CAMLassert(sizeof(double) == 2 * sizeof(value)); buffer.d = dbl; Field(val, 0) = buffer.v[0]; - Field(val, 0) = buffer.v[1]; + Field(val, 1) = buffer.v[1]; } #endif 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) ) { |