From bdacf3abbea236a33b687008d5d954585612d32f Mon Sep 17 00:00:00 2001 From: varobert Date: Wed, 4 Jul 2012 08:48:16 +0000 Subject: checklink: fixed bits/bytes mistake git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1951 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Check.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'checklink') 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) -> -- cgit v1.2.3