diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-17 13:48:23 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-17 13:48:23 +0100 |
commit | 6fb31c8a00e67f5a91983fe92f6df95d5f54a0c1 (patch) | |
tree | 17123565ff3023806a3a4161feff0918bc272aa2 | |
parent | bda5ee25ac991c38f5541a234936f1f6e2226072 (diff) | |
download | compcert-6fb31c8a00e67f5a91983fe92f6df95d5f54a0c1.tar.gz compcert-6fb31c8a00e67f5a91983fe92f6df95d5f54a0c1.zip |
Analysis of jump tables was using the wrong size.
-rw-r--r-- | checklink/Check.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checklink/Check.ml b/checklink/Check.ml index c9842f40..5213b266 100644 --- a/checklink/Check.ml +++ b/checklink/Check.ml @@ -961,7 +961,7 @@ let rec compare_code ccode ecode pc: checker = fun fw -> let tblvaddr = Int32.( add (shift_left (Safe32.of_int simm1) 16) (exts d2) ) in - let tblsize = Safe32.of_int (32 * List.length table) in + let tblsize = Safe32.of_int (4 * List.length table) in OK(fw) >>= match_iregs GPR12 rA0 >>= match_iregs reg rS0 |