Dans GET_FIELD, ne pas prendre l'adresse de Double_field, qui n'est pas toujours une lvalue

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

1 files changed, 2 insertions, 1 deletions

diff --git a/byterun/debugger.c b/byterun/debugger.c
index bb467e48e..210cc1c90 100644
--- a/byterun/debugger.c
+++ b/byterun/debugger.c
@@ -306,8 +306,9 @@ void debugger(enum event_kind event)
         putch(dbg_out, 0);
         putval(dbg_out, Field(val, i));
       } else {
+        double d = Double_field(val, i);
         putch(dbg_out, 1);
-        really_putblock(dbg_out, (char *) &Double_field(val, i), 8);
+        really_putblock(dbg_out, (char *) &d, 8);
       }
       flush(dbg_out);
       break;