diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-06 22:33:46 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-06 22:33:46 +0200 |
| commit | e64b9464fb6662bf63ac255eca94d17d572c9d81 (patch) | |
| tree | 517819d4f4e29fbd3a68d6431dd471baf0d427b0 /backend/PrintLTL.ml | |
| parent | 8e03466a1a2e7bbc9057ac76ee18deda990dc884 (diff) | |
| download | compcert-kvx-e64b9464fb6662bf63ac255eca94d17d572c9d81.tar.gz compcert-kvx-e64b9464fb6662bf63ac255eca94d17d572c9d81.zip | |
ONE "admitted" and things compile
Diffstat (limited to 'backend/PrintLTL.ml')
| -rw-r--r-- | backend/PrintLTL.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/backend/PrintLTL.ml b/backend/PrintLTL.ml index 1c449e74..b309a9f2 100644 --- a/backend/PrintLTL.ml +++ b/backend/PrintLTL.ml @@ -61,9 +61,10 @@ let print_succ pp s dfl = let print_instruction pp succ = function | Lop(op, args, res) -> fprintf pp "%a = %a" mreg res (print_operation mreg) (op, args) - | Lload(chunk, addr, args, dst) -> - fprintf pp "%a = %s[%a]" - mreg dst (name_of_chunk chunk) (print_addressing mreg) (addr, args) + | Lload(trap,chunk, addr, args, dst) -> + fprintf pp "%a = %s[%a]%a" + mreg dst (name_of_chunk chunk) (print_addressing mreg) (addr, args) + print_trapping_mode trap | Lgetstack(sl, ofs, ty, dst) -> fprintf pp "%a = %a" mreg dst slot (sl, ofs, ty) | Lsetstack(src, sl, ofs, ty) -> |