cannam@95: (* cannam@95: * Copyright (c) 1997-1999 Massachusetts Institute of Technology cannam@95: * Copyright (c) 2003, 2007-11 Matteo Frigo cannam@95: * Copyright (c) 2003, 2007-11 Massachusetts Institute of Technology cannam@95: * cannam@95: * This program is free software; you can redistribute it and/or modify cannam@95: * it under the terms of the GNU General Public License as published by cannam@95: * the Free Software Foundation; either version 2 of the License, or cannam@95: * (at your option) any later version. cannam@95: * cannam@95: * This program is distributed in the hope that it will be useful, cannam@95: * but WITHOUT ANY WARRANTY; without even the implied warranty of cannam@95: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the cannam@95: * GNU General Public License for more details. cannam@95: * cannam@95: * You should have received a copy of the GNU General Public License cannam@95: * along with this program; if not, write to the Free Software cannam@95: * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA cannam@95: * cannam@95: *) cannam@95: cannam@95: (* magic parameters *) cannam@95: let verbose = ref false cannam@95: let vneg = ref false cannam@95: let karatsuba_min = ref 15 cannam@95: let karatsuba_variant = ref 2 cannam@95: let circular_min = ref 64 cannam@95: let rader_min = ref 13 cannam@95: let rader_list = ref [5] cannam@95: let alternate_convolution = ref 17 cannam@95: let threemult = ref false cannam@95: let inline_single = ref true cannam@95: let inline_loads = ref false cannam@95: let inline_loads_constants = ref false cannam@95: let inline_constants = ref true cannam@95: let trivial_stores = ref false cannam@95: let locations_are_special = ref false cannam@95: let strength_reduce_mul = ref false cannam@95: let number_of_variables = ref 4 cannam@95: let codelet_name = ref "unnamed" cannam@95: let randomized_cse = ref true cannam@95: let dif_split_radix = ref false cannam@95: let enable_fma = ref false cannam@95: let deep_collect_depth = ref 1 cannam@95: let schedule_type = ref 0 cannam@95: let compact = ref false cannam@95: let dag_dump_file = ref "" cannam@95: let alist_dump_file = ref "" cannam@95: let asched_dump_file = ref "" cannam@95: let lisp_syntax = ref false cannam@95: let network_transposition = ref true cannam@95: let inklude = ref "" cannam@95: let generic_arith = ref false cannam@95: let reorder_insns = ref false cannam@95: let reorder_loads = ref false cannam@95: let reorder_stores = ref false cannam@95: let precompute_twiddles = ref false cannam@95: let newsplit = ref false cannam@95: let standalone = ref false cannam@95: let pipeline_latency = ref 0 cannam@95: let schedule_for_pipeline = ref false cannam@95: let generate_bytw = ref true cannam@95: cannam@95: (* command-line parser for magic parameters *) cannam@95: let undocumented = " Undocumented voodoo parameter" cannam@95: cannam@95: let set_bool var = Arg.Unit (fun () -> var := true) cannam@95: let unset_bool var = Arg.Unit (fun () -> var := false) cannam@95: let set_int var = Arg.Int(fun i -> var := i) cannam@95: let set_string var = Arg.String(fun s -> var := s) cannam@95: cannam@95: let speclist = [ cannam@95: "-name", set_string codelet_name, " set codelet name"; cannam@95: "-standalone", set_bool standalone, " standalone codelet (no desc)"; cannam@95: "-include", set_string inklude, undocumented; cannam@95: cannam@95: "-verbose", set_bool verbose, " Enable verbose logging messages to stderr"; cannam@95: cannam@95: "-rader-min", set_int rader_min, cannam@95: " : Use Rader's algorithm for prime sizes >= "; cannam@95: cannam@95: "-threemult", set_bool threemult, cannam@95: " Use 3-multiply complex multiplications"; cannam@95: cannam@95: "-karatsuba-min", set_int karatsuba_min, undocumented; cannam@95: "-karatsuba-variant", set_int karatsuba_variant, undocumented; cannam@95: "-circular-min", set_int circular_min, undocumented; cannam@95: cannam@95: "-compact", set_bool compact, cannam@95: " Mangle variable names to reduce size of source code"; cannam@95: "-no-compact", unset_bool compact, cannam@95: " Disable -compact"; cannam@95: cannam@95: "-dump-dag", set_string dag_dump_file, undocumented; cannam@95: "-dump-alist", set_string alist_dump_file, undocumented; cannam@95: "-dump-asched", set_string asched_dump_file, undocumented; cannam@95: "-lisp-syntax", set_bool lisp_syntax, undocumented; cannam@95: cannam@95: "-alternate-convolution", set_int alternate_convolution, undocumented; cannam@95: "-deep-collect-depth", set_int deep_collect_depth, undocumented; cannam@95: "-schedule-type", set_int schedule_type, undocumented; cannam@95: "-pipeline-latency", set_int pipeline_latency, undocumented; cannam@95: "-schedule-for-pipeline", set_bool schedule_for_pipeline, undocumented; cannam@95: cannam@95: "-dif-split-radix", set_bool dif_split_radix, undocumented; cannam@95: "-dit-split-radix", unset_bool dif_split_radix, undocumented; cannam@95: cannam@95: "-generic-arith", set_bool generic_arith, undocumented; cannam@95: "-no-generic-arith", unset_bool generic_arith, undocumented; cannam@95: cannam@95: "-precompute-twiddles", set_bool precompute_twiddles, undocumented; cannam@95: "-no-precompute-twiddles", unset_bool precompute_twiddles, undocumented; cannam@95: cannam@95: "-inline-single", set_bool inline_single, undocumented; cannam@95: "-no-inline-single", unset_bool inline_single, undocumented; cannam@95: cannam@95: "-inline-loads", set_bool inline_loads, undocumented; cannam@95: "-no-inline-loads", unset_bool inline_loads, undocumented; cannam@95: cannam@95: "-inline-loads-constants", set_bool inline_loads_constants, undocumented; cannam@95: "-no-inline-loads-constants", cannam@95: unset_bool inline_loads_constants, undocumented; cannam@95: cannam@95: "-inline-constants", set_bool inline_constants, undocumented; cannam@95: "-no-inline-constants", unset_bool inline_constants, undocumented; cannam@95: cannam@95: "-trivial-stores", set_bool trivial_stores, undocumented; cannam@95: "-no-trivial-stores", unset_bool trivial_stores, undocumented; cannam@95: cannam@95: "-locations-are-special", set_bool locations_are_special, undocumented; cannam@95: "-no-locations-are-special", unset_bool locations_are_special, undocumented; cannam@95: cannam@95: "-randomized-cse", set_bool randomized_cse, undocumented; cannam@95: "-no-randomized-cse", unset_bool randomized_cse, undocumented; cannam@95: cannam@95: "-network-transposition", set_bool network_transposition, undocumented; cannam@95: "-no-network-transposition", unset_bool network_transposition, undocumented; cannam@95: cannam@95: "-reorder-insns", set_bool reorder_insns, undocumented; cannam@95: "-no-reorder-insns", unset_bool reorder_insns, undocumented; cannam@95: "-reorder-loads", set_bool reorder_loads, undocumented; cannam@95: "-no-reorder-loads", unset_bool reorder_loads, undocumented; cannam@95: "-reorder-stores", set_bool reorder_stores, undocumented; cannam@95: "-no-reorder-stores", unset_bool reorder_stores, undocumented; cannam@95: cannam@95: "-newsplit", set_bool newsplit, undocumented; cannam@95: cannam@95: "-vneg", set_bool vneg, undocumented; cannam@95: "-fma", set_bool enable_fma, undocumented; cannam@95: "-no-fma", unset_bool enable_fma, undocumented; cannam@95: cannam@95: "-variables", set_int number_of_variables, undocumented; cannam@95: cannam@95: "-strength-reduce-mul", set_bool strength_reduce_mul, undocumented; cannam@95: "-no-strength-reduce-mul", unset_bool strength_reduce_mul, undocumented; cannam@95: cannam@95: "-generate-bytw", set_bool generate_bytw, undocumented; cannam@95: "-no-generate-bytw", unset_bool generate_bytw, undocumented; cannam@95: ] cannam@95: cannam@95: