diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 22:50:20 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-07 22:50:20 +0200 |
| commit | 3b15828ca868365b285ba611ba72177e90d0061b (patch) | |
| tree | bcb09967e10f5cf87048da412350316393b42c43 /cfrontend/C2C.ml | |
| parent | 06559e65f15b379949e14bb6ed1446b6fa10e9d7 (diff) | |
| download | compcert-kvx-3b15828ca868365b285ba611ba72177e90d0061b.tar.gz compcert-kvx-3b15828ca868365b285ba611ba72177e90d0061b.zip | |
expect operation
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index 9f2c4604..902a5c5d 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -900,6 +900,14 @@ let rec convertExpr env e = | C.ECompound(ty1, ie) -> unsupported "compound literals"; ezero + | C.ECall({edesc = C.EVar {name = "__builtin_expect"}}, args) -> + (match args with + | [e1; e2] -> + ewrap (Ctyping.ebinop Cop.Oexpect (convertExpr env e1) (convertExpr env e2)) + | _ -> + error "__builtin_expect wants two arguments"; + ezero) + | C.ECall({edesc = C.EVar {name = "__builtin_debug"}}, args) when List.length args < 2 -> error "too few arguments to function call, expected at least 2, have 0"; ezero |