diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-08 16:44:49 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-08 16:44:49 +0000 |
| commit | 71f3ecc437f3147e7cf3490f14a78901cb344dc8 (patch) | |
| tree | 2911eb5f980269e55f881e5cd445b4ebbc159eda /caml | |
| parent | e045d5bdab06b3605135998420623639815a96df (diff) | |
| download | compcert-71f3ecc437f3147e7cf3490f14a78901cb344dc8.tar.gz compcert-71f3ecc437f3147e7cf3490f14a78901cb344dc8.zip | |
Traiter les initialisations x = NULL
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@89 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'caml')
| -rw-r--r-- | caml/Cil2Csyntax.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/caml/Cil2Csyntax.ml b/caml/Cil2Csyntax.ml index eb9252e6..779929cf 100644 --- a/caml/Cil2Csyntax.ml +++ b/caml/Cil2Csyntax.ml @@ -711,6 +711,8 @@ let rec extract_constant e = ICfloat(n, sz) | ICint(n, _), Tfloat sz -> ICfloat(Int64.to_float n, sz) + | ICint(n, sz), Tpointer _ -> + ICint(n, sz) | _, _ -> ICnone end |