diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 22:01:51 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 22:01:51 +0200 |
commit | 06559e65f15b379949e14bb6ed1446b6fa10e9d7 (patch) | |
tree | c25e6e3a2d30225c143c79f663aba3e908a53301 /cfrontend/PrintCsyntax.ml | |
parent | 249482aed76d209ff203f9afeeb3f10db004e8c0 (diff) | |
download | compcert-kvx-06559e65f15b379949e14bb6ed1446b6fa10e9d7.tar.gz compcert-kvx-06559e65f15b379949e14bb6ed1446b6fa10e9d7.zip |
Oexpect in frontend
Diffstat (limited to 'cfrontend/PrintCsyntax.ml')
-rw-r--r-- | cfrontend/PrintCsyntax.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index 03dc5837..beca056f 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -30,6 +30,7 @@ let name_unop = function | Oabsfloat -> "__builtin_fabs" let name_binop = function + | Oexpect -> "expect" | Oadd -> "+" | Osub -> "-" | Omul -> "*" @@ -158,6 +159,7 @@ let rec precedence = function | Ebinop(Oand, _, _, _) -> (8, LtoR) | Ebinop(Oxor, _, _, _) -> (7, LtoR) | Ebinop(Oor, _, _, _) -> (6, LtoR) + | Ebinop(Oexpect, _, _, _) -> (5, LtoR) (* fixme *) | Eseqand _ -> (5, LtoR) | Eseqor _ -> (4, LtoR) | Econdition _ -> (3, RtoL) |