diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-29 14:54:06 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-29 14:54:06 +0200 |
| commit | 5cf814404cec9a8702e4bfa88e0f9176fa04ecfb (patch) | |
| tree | fabd44046e3e5b9aaac7f33b9e4dddaa8d3f06e8 /cfrontend/C2C.ml | |
| parent | 3208e22ea89c459a5a7944ad8e82511d4a5328fa (diff) | |
| parent | 477f73ef96d957de5a896a05175ceaab7e0dce03 (diff) | |
| download | compcert-5cf814404cec9a8702e4bfa88e0f9176fa04ecfb.tar.gz compcert-5cf814404cec9a8702e4bfa88e0f9176fa04ecfb.zip | |
Merge branch 'master' into advanced-diagnostics
Diffstat (limited to 'cfrontend/C2C.ml')
| -rw-r--r-- | cfrontend/C2C.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/C2C.ml b/cfrontend/C2C.ml index c33449e4..4049907e 100644 --- a/cfrontend/C2C.ml +++ b/cfrontend/C2C.ml @@ -758,7 +758,7 @@ let rec convertExpr env e = let (kind, args1) = match args with | {edesc = C.EConst(CInt(n,_,_))} :: args1 -> (n, args1) - | _ -> error "argument 1 of '__builtin_debug' must be constant"; (0L, args) in + | _ -> error "argument 1 of '__builtin_debug' must be constant"; (1L, args) in let (text, args2) = match args1 with | {edesc = C.EConst(CStr(txt))} :: args2 -> (txt, args2) |