checklink: fixed bits/bytes mistake

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1951 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e

1 files changed, 1 insertions, 1 deletions

diff --git a/checklink/Check.ml b/checklink/Check.ml
index 840c233..b5f1f3b 100644
--- a/checklink/Check.ml
+++ b/checklink/Check.ml
@@ -1819,7 +1819,7 @@ let rec compare_code ccode ecode pc: checker = fun fw ->
                   end
                 in
                 let continue = compare_code cs es (Int32.add 8l pc) in
-                begin match bitstring_at_vaddr elf vaddr 64l with
+                begin match bitstring_at_vaddr elf vaddr 8l with
                 | None ->
                     ERR("Floating point constant address is wrong")
                 | Some(bs, pofs, psize) ->