From bb80bc5d196665498f7b365e9e26468ed5999ea9 Mon Sep 17 00:00:00 2001 From: James Pollard Date: Wed, 24 Jun 2020 20:09:13 +0100 Subject: HTLgenproof passing. --- src/translation/HTLgen.v | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/translation/HTLgen.v') diff --git a/src/translation/HTLgen.v b/src/translation/HTLgen.v index e637d6f..54ad77a 100644 --- a/src/translation/HTLgen.v +++ b/src/translation/HTLgen.v @@ -395,10 +395,6 @@ Definition translate_arr_access (mem : AST.memory_chunk) (addr : Op.addressing) if (check_address_parameter off) then ret (Vvari stack (Vbinop Vdiv (boplitz Vadd r1 off) (Vlit (ZToValue 32 4)))) else error (Errors.msg "HTLgen: translate_arr_access address misaligned") - | Mint32, Op.Ascaled scale offset, r1::nil => - if (check_address_parameter scale) && (check_address_parameter offset) - then ret (Vvari stack (Vbinop Vdiv (Vbinop Vadd (boplitz Vmul r1 scale) (Vlit (ZToValue 32 offset))) (Vlit (ZToValue 32 4)))) - else error (Errors.msg "HTLgen: translate_arr_access address misaligned") | Mint32, Op.Aindexed2scaled scale offset, r1::r2::nil => (* Typical for dynamic array addressing *) if (check_address_parameter scale) && (check_address_parameter offset) then ret (Vvari stack -- cgit