diff options
author | James Pollard <james@pollard.dev> | 2020-06-17 20:05:05 +0100 |
---|---|---|
committer | James Pollard <james@pollard.dev> | 2020-06-17 20:05:05 +0100 |
commit | 58f0022a8b5f9ab42e1a8515a77820a9d086ba76 (patch) | |
tree | 336644e59bdc3b678ef038a6028a90ef0cd2c708 /src/translation/HTLgenspec.v | |
parent | dfea5f0f6307177a9127ce29db496a819dcdb232 (diff) | |
download | vericert-58f0022a8b5f9ab42e1a8515a77820a9d086ba76.tar.gz vericert-58f0022a8b5f9ab42e1a8515a77820a9d086ba76.zip |
Use NBAs for loads and stores.
Diffstat (limited to 'src/translation/HTLgenspec.v')
-rw-r--r-- | src/translation/HTLgenspec.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/translation/HTLgenspec.v b/src/translation/HTLgenspec.v index 57d7d62..1a9144c 100644 --- a/src/translation/HTLgenspec.v +++ b/src/translation/HTLgenspec.v @@ -163,11 +163,11 @@ Inductive tr_instr (fin rtrn st stk : reg) : RTL.instruction -> stmnt -> stmnt - | tr_instr_Iload : forall mem addr args s s' i c dst n, translate_arr_access mem addr args stk s = OK c s' i -> - tr_instr fin rtrn st stk (RTL.Iload mem addr args dst n) (block dst c) (state_goto st n) + tr_instr fin rtrn st stk (RTL.Iload mem addr args dst n) (nonblock dst c) (state_goto st n) | tr_instr_Istore : forall mem addr args s s' i c src n, translate_arr_access mem addr args stk s = OK c s' i -> - tr_instr fin rtrn st stk (RTL.Istore mem addr args src n) (Vblock c (Vvar src)) + tr_instr fin rtrn st stk (RTL.Istore mem addr args src n) (Vnonblock c (Vvar src)) (state_goto st n). Hint Constructors tr_instr : htlspec. |