diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-05-27 09:03:30 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-05-27 09:03:30 +0200 |
| commit | 5087ec788016b719b4038be08cd55bccc22b3619 (patch) | |
| tree | 58f0a26f4b02364c0823ba64a2de2df1a073e0a4 /cfrontend | |
| parent | b45cdb9dce7df376fd3cb27a32863af90b847b78 (diff) | |
| parent | 8d3dbd3636fbb6a056f5506be8ee2d8839c1aea2 (diff) | |
| download | compcert-5087ec788016b719b4038be08cd55bccc22b3619.tar.gz compcert-5087ec788016b719b4038be08cd55bccc22b3619.zip | |
Merge pull request #99 from AbsInt/register-pairs
Introduce register pairs to describe calling conventions more precisely
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/PrintClight.ml | 2 | ||||
| -rw-r--r-- | cfrontend/PrintCsyntax.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml index e08411a5..7fa35f16 100644 --- a/cfrontend/PrintClight.ml +++ b/cfrontend/PrintClight.ml @@ -50,7 +50,7 @@ let precedence = function | Ebinop((Oadd|Osub), _, _, _) -> (12, LtoR) | Ebinop((Oshl|Oshr), _, _, _) -> (11, LtoR) | Ebinop((Olt|Ogt|Ole|Oge), _, _, _) -> (10, LtoR) - | Ebinop((Oeq|One), _, _, _) -> (9, LtoR) + | Ebinop((Oeq|Cop.One), _, _, _) -> (9, LtoR) | Ebinop(Oand, _, _, _) -> (8, LtoR) | Ebinop(Oxor, _, _, _) -> (7, LtoR) | Ebinop(Oor, _, _, _) -> (6, LtoR) diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index 4287f7f9..9a6107ff 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -41,7 +41,7 @@ let name_binop = function | Oshl -> "<<" | Oshr -> ">>" | Oeq -> "==" - | One -> "!=" + | Cop.One -> "!=" | Olt -> "<" | Ogt -> ">" | Ole -> "<=" @@ -154,7 +154,7 @@ let rec precedence = function | Ebinop((Oadd|Osub), _, _, _) -> (12, LtoR) | Ebinop((Oshl|Oshr), _, _, _) -> (11, LtoR) | Ebinop((Olt|Ogt|Ole|Oge), _, _, _) -> (10, LtoR) - | Ebinop((Oeq|One), _, _, _) -> (9, LtoR) + | Ebinop((Oeq|Cop.One), _, _, _) -> (9, LtoR) | Ebinop(Oand, _, _, _) -> (8, LtoR) | Ebinop(Oxor, _, _, _) -> (7, LtoR) | Ebinop(Oor, _, _, _) -> (6, LtoR) |