Prevoir d'avoir des options de ligne de commande specifiques a un processeur

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5304 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

asmcomp/alpha/arch.ml

@@ -17,6 +17,10 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
 (* Addressing modes *)
 
 type addressing_mode =

asmcomp/arm/arch.ml

@@ -17,6 +17,10 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
 (* Addressing modes *)
 
 type addressing_mode =

asmcomp/hppa/arch.ml

@@ -17,6 +17,12 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
+(* Specific operations *)
+
 type specific_operation =
     Ishift1add
   | Ishift2add

asmcomp/i386/arch.ml

@@ -12,6 +12,10 @@
 
 (* $Id$ *)
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
 (* Specific operations for the Intel 386 processor *)
 
 open Misc

asmcomp/ia64/arch.ml

@@ -17,6 +17,10 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
 (* Addressing modes -- only one! (register with no displacement) *)
 
 type addressing_mode = Iindexed

asmcomp/mips/arch.ml

@@ -17,6 +17,10 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
 (* Addressing modes *)
 
 type addressing_mode =

asmcomp/power/arch.ml

@@ -17,6 +17,12 @@
 open Misc
 open Format
 
+(* Machine-specific command-line options *)
+
+let command_line_options = []
+
+(* Specific operations *)
+
 type specific_operation =
     Imultaddf                           (* multiply and add *)
   | Imultsubf                           (* multiply and subtract *)

driver/optmain.ml

@@ -76,7 +76,7 @@ let main () =
   c_linker := Config.native_c_linker;
   let ppf = Format.err_formatter in
   try
-    Arg.parse [
+    Arg.parse (Arch.command_line_options @ [
        "-a", Arg.Set make_archive, " Build a library";
        "-c", Arg.Set compile_only, " Compile only (do not link)";
        "-cc", Arg.String(fun s -> c_compiler := s; c_linker := s),
@@ -176,7 +176,7 @@ let main () =
        "-dstartup", Arg.Set keep_startup_file, " (undocumented)";
        "-", Arg.String (process_file ppf),
             "<file>  Treat <file> as a file name (even if it starts with `-')"
-      ] (process_file ppf) usage;
+      ]) (process_file ppf) usage;
     if !make_archive then begin
       Optcompile.init_path();
       Asmlibrarian.create_archive (List.rev !objfiles)