diff options
author | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-11 15:03:59 +0000 |
---|---|---|
committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-11 15:03:59 +0000 |
commit | 1f9096fcc8f9dc71f7b4576818c29d2ae6a5dd5f (patch) | |
tree | 6892a519124226aa934197f7af49007997e8d52c /checklink/Library.ml | |
parent | 99b02bd388f2b84acf9c2c226bf2ac7703c03ba8 (diff) | |
download | compcert-1f9096fcc8f9dc71f7b4576818c29d2ae6a5dd5f.tar.gz compcert-1f9096fcc8f9dc71f7b4576818c29d2ae6a5dd5f.zip |
checklink: more stringent compilation
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1968 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Library.ml')
-rw-r--r-- | checklink/Library.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checklink/Library.ml b/checklink/Library.ml index e6f1e2cb..2c7a3377 100644 --- a/checklink/Library.ml +++ b/checklink/Library.ml @@ -105,7 +105,7 @@ let z_int32 = function let z_int32_lax = function | Z0 -> 0l | Zpos(p) -> positive_int32_lax p -| Zneg(p) -> raise Int32Overflow +| Zneg(_) -> raise Int32Overflow let z_int z = Safe32.to_int (z_int32 z) |