diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-15 16:24:13 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-02-15 16:24:13 +0000 |
commit | f774d5f2d604f747e72e2d3bb56cc3f90090e2dd (patch) | |
tree | 05a5bcfc207c67f58575fa7b61787c0c9dbe8215 /backend/Inlining.v | |
parent | f1ceca440c0322001abe6c5de79bd4bc309fc002 (diff) | |
download | compcert-f774d5f2d604f747e72e2d3bb56cc3f90090e2dd.tar.gz compcert-f774d5f2d604f747e72e2d3bb56cc3f90090e2dd.zip |
Pointers one past
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2118 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Inlining.v')
-rw-r--r-- | backend/Inlining.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/Inlining.v b/backend/Inlining.v index 5075fd6f..a9b1e7ea 100644 --- a/backend/Inlining.v +++ b/backend/Inlining.v @@ -454,7 +454,7 @@ Local Open Scope string_scope. Definition transf_function (fenv: funenv) (f: function) : Errors.res function := let '(R ctx s _) := expand_function fenv f initstate in - if zle s.(st_stksize) Int.max_unsigned then + if zlt s.(st_stksize) Int.max_unsigned then OK (mkfunction f.(fn_sig) (sregs ctx f.(fn_params)) s.(st_stksize) |