diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-05-05 12:07:26 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-05-05 12:07:26 +0200 |
commit | 684fd1a0989e6daa3bc20ddba925481a4f2182bf (patch) | |
tree | 1c6275fd1c4b8af029561aa362034078b8c2cbba /cparser/Unblock.ml | |
parent | be6875023bc0b33701042cdf923cd9e07b4fb316 (diff) | |
parent | e9fa9cbdc761f8c033e9b702f7485982faed3f7d (diff) | |
download | compcert-684fd1a0989e6daa3bc20ddba925481a4f2182bf.tar.gz compcert-684fd1a0989e6daa3bc20ddba925481a4f2182bf.zip |
Merge branch 'master' into json_export
Diffstat (limited to 'cparser/Unblock.ml')
-rw-r--r-- | cparser/Unblock.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/cparser/Unblock.ml b/cparser/Unblock.ml index 4013db9b..91f50552 100644 --- a/cparser/Unblock.ml +++ b/cparser/Unblock.ml @@ -225,7 +225,13 @@ let rec unblock_stmt env s = {s with sdesc = Sreturn(Some (expand_expr true env e))} | Sblock sl -> unblock_block env sl | Sdecl d -> assert false - | Sasm _ -> s + | Sasm(attr, template, outputs, inputs, clob) -> + let expand_asm_operand (lbl, cstr, e) = + (lbl, cstr, expand_expr true env e) in + {s with sdesc = Sasm(attr, template, + List.map expand_asm_operand outputs, + List.map expand_asm_operand inputs, clob)} + and unblock_block env = function | [] -> sskip |