From f1ceca440c0322001abe6c5de79bd4bc309fc002 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Tue, 12 Feb 2013 15:17:33 +0000
Subject: Updated PowerPC port to new integers. Added options
 -falign-branch-targets and -falign-cond-branches (experimental).

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2113 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 driver/Clflags.ml | 2 ++
 driver/Driver.ml  | 6 +++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'driver')

diff --git a/driver/Clflags.ml b/driver/Clflags.ml
index d38a398..a433c59 100644
--- a/driver/Clflags.ml
+++ b/driver/Clflags.ml
@@ -24,6 +24,8 @@ let option_fpacked_structs = ref false
 let option_fsse = ref true
 let option_ffloatconstprop = ref 2
 let option_falignfunctions = ref (None: int option)
+let option_falignbranchtargets = ref 0
+let option_faligncondbranchs = ref 0
 let option_finline_asm = ref false
 let option_dparse = ref false
 let option_dcmedium = ref false
diff --git a/driver/Driver.ml b/driver/Driver.ml
index e0ed27f..3a5981e 100644
--- a/driver/Driver.ml
+++ b/driver/Driver.ml
@@ -391,7 +391,9 @@ Code generation options: (use -fno-<opt> to turn off -f<opt>) :
   -fsmall-const <n>  Set maximal size <n> for allocation in small constant area
   -ffloat-const-prop <n>  Control constant propagation of floats
                    (<n>=0: none, <n>=1: limited, <n>=2: full; default is full)
-  -falign_functions <n>  Set alignment (in bytes) of function entry points
+  -falign-functions <n>  Set alignment (in bytes) of function entry points
+  -falign-branch-targets <n>  Set alignment (in bytes) of branch targets
+  -falign-cond-branches <n>  Set alignment (in bytes) of conditional branches
   -Wa,<opt>      Pass option <opt> to the assembler
 Tracing options:
   -dparse        Save C file after parsing and elaboration in <file>.parse.c
@@ -485,6 +487,8 @@ let cmdline_actions =
   "-fsmall-const$", Integer(fun n -> option_small_const := n);
   "-ffloat-const-prop$", Integer(fun n -> option_ffloatconstprop := n);
   "-falign-functions$", Integer(fun n -> option_falignfunctions := Some n);
+  "-falign-branch-targets", Integer(fun n -> option_falignbranchtargets := n);
+  "-falign-cond-branches", Integer(fun n -> option_faligncondbranchs := n);
   "-fall$", Self (fun _ ->
               List.iter (fun r -> r := true) language_support_options);
   "-fnone$", Self (fun _ ->
-- 
cgit v1.2.3