diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-17 11:37:39 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-17 11:37:39 +0000 |
commit | a3f1744823d6dbeaf400812de86263fb615bbbba (patch) | |
tree | ff1ed0a68fe2dceb19bb768cec89912344ea1ef6 /ia32/PrintAsm.ml | |
parent | 61f6aed04b846b174126d4b1cec28f6f1da20e52 (diff) | |
download | compcert-a3f1744823d6dbeaf400812de86263fb615bbbba.tar.gz compcert-a3f1744823d6dbeaf400812de86263fb615bbbba.zip |
Add option -fno-tailcalls to turn off tailcall elimination (causes problem with some static analysis tools).
*/PrintAsm.ml: don't cfa_adjust at Pfreeframe, as more code from the function can appear after (in case of tailcalls).
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2256 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'ia32/PrintAsm.ml')
-rw-r--r-- | ia32/PrintAsm.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index 12f6691e..5ee4d010 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -716,8 +716,7 @@ let print_instruction oc = function fprintf oc " movl %%edx, %ld(%%esp)\n" ofs_link | Pfreeframe(sz, ofs_ra, ofs_link) -> let sz = sp_adjustment sz in - fprintf oc " addl $%ld, %%esp\n" sz; - cfi_adjust oc (Int32.neg sz) + fprintf oc " addl $%ld, %%esp\n" sz | Pbuiltin(ef, args, res) -> begin match ef with | EF_builtin(name, sg) -> |