diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2019-09-30 09:51:15 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2019-10-01 10:39:49 +0200 |
commit | 8caef13011cb21377b4f6d3734109fb41d1f81bd (patch) | |
tree | be37d3c0d017726b435b0a26a505124c84d64513 /cparser | |
parent | d09786a563c7cbea8aa27c0e7da0dff4231b9253 (diff) | |
download | compcert-8caef13011cb21377b4f6d3734109fb41d1f81bd.tar.gz compcert-8caef13011cb21377b4f6d3734109fb41d1f81bd.zip |
Use pointer type for evaluated constants.
Diffstat (limited to 'cparser')
-rw-r--r-- | cparser/Ceval.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cparser/Ceval.ml b/cparser/Ceval.ml index 58dea5f4..ecf83779 100644 --- a/cparser/Ceval.ml +++ b/cparser/Ceval.ml @@ -271,7 +271,7 @@ let constant_expr env ty e = try match unroll env ty, cast env ty (expr env e) with | TInt(ik, _), I n -> Some(CInt(n, ik, "")) - | TPtr(_, _), I n -> Some(CInt(n, IInt, "")) + | TPtr(_, _), I n -> Some(CInt(n, ptr_t_ikind (), "")) | (TArray(_, _, _) | TPtr(_, _)), S s -> Some(CStr s) | (TArray(_, _, _) | TPtr(_, _)), WS s -> Some(CWStr s) | TEnum(_, _), I n -> Some(CInt(n, enum_ikind, "")) |