diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-19 16:45:50 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-11-19 16:45:50 +0100 |
| commit | 853a40b117495ebf883593633f680cd5c92f5951 (patch) | |
| tree | 34cf752d7ed478a1a67930788d3fc6b2bd69a6ad | |
| parent | 40b589ef8139944376825095eb8d6c634d7dcb83 (diff) | |
| parent | 6fb31c8a00e67f5a91983fe92f6df95d5f54a0c1 (diff) | |
| download | compcert-853a40b117495ebf883593633f680cd5c92f5951.tar.gz compcert-853a40b117495ebf883593633f680cd5c92f5951.zip | |
Merge branch 'master' into dwarf
| -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 |