From f086eda9c075eda0d2fcd74183c019c4515a6c28 Mon Sep 17 00:00:00 2001
From: Damien Doligez <damien.doligez@inria.fr>
Date: Thu, 31 Aug 2017 15:25:15 +0200
Subject: add -no-flat-float-array configure option

---
 byterun/debugger.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'byterun/debugger.c')

diff --git a/byterun/debugger.c b/byterun/debugger.c
index 8cf3025855..a11939b31c 100644
--- a/byterun/debugger.c
+++ b/byterun/debugger.c
@@ -411,7 +411,7 @@ void caml_debugger(enum event_kind event)
         caml_putch(dbg_out, 0);
         putval(dbg_out, Field(val, i));
       } else {
-        double d = Double_field(val, i);
+        double d = Double_flat_field(val, i);
         caml_putch(dbg_out, 1);
         caml_really_putblock(dbg_out, (char *) &d, 8);
       }
-- 
cgit v1.2.1