diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-02 16:20:07 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-03-02 16:20:07 +0000 |
commit | 1e70094155a23207b191e4f20e5b05f485fbf654 (patch) | |
tree | e4d02c2cf10dc6670269a7167bb01d2224cbc7c8 /cfrontend/Csem.v | |
parent | 28e4632d36d175ac9da0befa1a727a58604031e1 (diff) | |
download | compcert-kvx-1e70094155a23207b191e4f20e5b05f485fbf654.tar.gz compcert-kvx-1e70094155a23207b191e4f20e5b05f485fbf654.zip |
Function types didn't always degrade to pointers like they should. Introduced and used Csyntax.typeconv to address this issue and reduce the number of cases in the classify functions
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1266 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/Csem.v')
-rw-r--r-- | cfrontend/Csem.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/Csem.v b/cfrontend/Csem.v index 62e9dc70..f352df70 100644 --- a/cfrontend/Csem.v +++ b/cfrontend/Csem.v @@ -96,7 +96,7 @@ Function sem_notint (v: val) : option val := end. Function sem_notbool (v: val) (ty: type) : option val := - match ty with + match typeconv ty with | Tint _ _ => match v with | Vint n => Some (Val.of_bool (Int.eq n Int.zero)) |