diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-27 08:53:19 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-27 08:53:19 +0000 |
| commit | 6ee04b19dc6106932e7498e34c1b4938a94bf074 (patch) | |
| tree | ab13736cea1d59384199e457a3329f12c0524f84 | |
| parent | 726c815f2070e9ae40bdf6df1d4e63b4a60b6e09 (diff) | |
Rename "-fno-sse" into "-fno-fpu" and honor it on PowerPC as well.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2374 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
| -rw-r--r-- | driver/Clflags.ml | 2 | ||||
| -rw-r--r-- | driver/Driver.ml | 5 | ||||
| -rw-r--r-- | ia32/PrintAsm.ml | 2 | ||||
| -rw-r--r-- | powerpc/PrintAsm.ml | 2 |
4 files changed, 6 insertions, 5 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index 88983d1..4871222 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -20,7 +20,7 @@ let option_fstruct_return = ref false let option_fbitfields = ref false let option_fvararg_calls = ref true let option_fpacked_structs = ref false -let option_fsse = ref true +let option_ffpu = ref true let option_ffloatconstprop = ref 2 let option_ftailcalls = ref true let option_falignfunctions = ref (None: int option) diff --git a/driver/Driver.ml b/driver/Driver.ml index 4f5100e..5f0ae7e 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -387,7 +387,7 @@ Language support options (use -fno-<opt> to turn off -f<opt>) : -fall Activate all language support options above -fnone Turn off all language support options above Code generation options: (use -fno-<opt> to turn off -f<opt>) : - -fsse (IA32) Use SSE2 instructions for some integer operations [on] + -ffpu Use FP registers for some integer operations [on] -fsmall-data <n> Set maximal size <n> for allocation in small data area -fsmall-const <n> Set maximal size <n> for allocation in small constant area -ffloat-const-prop <n> Control constant propagation of floats @@ -508,7 +508,8 @@ let cmdline_actions = @ f_opt "vararg-calls" option_fvararg_calls @ f_opt "packed-structs" option_fpacked_structs @ f_opt "inline-asm" option_finline_asm - @ f_opt "sse" option_fsse + @ f_opt "fpu" option_ffpu + @ f_opt "sse" option_ffpu (* backward compatibility *) let _ = Gc.set { (Gc.get()) with Gc.minor_heap_size = 524288 }; diff --git a/ia32/PrintAsm.ml b/ia32/PrintAsm.ml index 5fb2568..4480f91 100644 --- a/ia32/PrintAsm.ml +++ b/ia32/PrintAsm.ml @@ -292,7 +292,7 @@ let print_annot_val oc txt args res = let print_builtin_memcpy_small oc sz al src dst = assert (src = EDX && dst = EAX); let rec copy ofs sz = - if sz >= 8 && !Clflags.option_fsse then begin + if sz >= 8 && !Clflags.option_ffpu then begin fprintf oc " movq %d(%a), %a\n" ofs ireg src freg XMM7; fprintf oc " movq %a, %d(%a)\n" freg XMM7 ofs ireg dst; copy (ofs + 8) (sz - 8) diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml index e720b6f..108dbaf 100644 --- a/powerpc/PrintAsm.ml +++ b/powerpc/PrintAsm.ml @@ -338,7 +338,7 @@ let print_annot_val oc txt args res = let print_builtin_memcpy_small oc sz al src dst = let rec copy ofs sz = - if sz >= 8 && al >= 4 then begin + if sz >= 8 && al >= 4 && !Clflags.option_ffpu then begin fprintf oc " lfd %a, %d(%a)\n" freg FPR13 ofs ireg src; fprintf oc " stfd %a, %d(%a)\n" freg FPR13 ofs ireg dst; copy (ofs + 8) (sz - 8) |