Mercurial > hg > sv-dependency-builds

annotate src/fftw-3.3.5/genfft/magic.ml @ 83:ae30d91d2ffe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace these with versions built using an older toolset (so as to avoid ABI compatibilities when linking on Ubuntu 14.04 for packaging purposes)
author Chris Cannam
date Fri, 07 Feb 2020 11:51:13 +0000
parents 2cd0e3b3e1fd
children
rev   line source
Chris@42 1 (*
Chris@42 2 * Copyright (c) 1997-1999 Massachusetts Institute of Technology
Chris@42 3 * Copyright (c) 2003, 2007-14 Matteo Frigo
Chris@42 4 * Copyright (c) 2003, 2007-14 Massachusetts Institute of Technology
Chris@42 5 *
Chris@42 6 * This program is free software; you can redistribute it and/or modify
Chris@42 7 * it under the terms of the GNU General Public License as published by
Chris@42 8 * the Free Software Foundation; either version 2 of the License, or
Chris@42 9 * (at your option) any later version.
Chris@42 10 *
Chris@42 11 * This program is distributed in the hope that it will be useful,
Chris@42 12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@42 13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Chris@42 14 * GNU General Public License for more details.
Chris@42 15 *
Chris@42 16 * You should have received a copy of the GNU General Public License
Chris@42 17 * along with this program; if not, write to the Free Software
Chris@42 18 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
Chris@42 19 *
Chris@42 20 *)
Chris@42 21
Chris@42 22 (* magic parameters *)
Chris@42 23 let verbose = ref false
Chris@42 24 let vneg = ref false
Chris@42 25 let karatsuba_min = ref 15
Chris@42 26 let karatsuba_variant = ref 2
Chris@42 27 let circular_min = ref 64
Chris@42 28 let rader_min = ref 13
Chris@42 29 let rader_list = ref [5]
Chris@42 30 let alternate_convolution = ref 17
Chris@42 31 let threemult = ref false
Chris@42 32 let inline_single = ref true
Chris@42 33 let inline_loads = ref false
Chris@42 34 let inline_loads_constants = ref false
Chris@42 35 let inline_constants = ref true
Chris@42 36 let trivial_stores = ref false
Chris@42 37 let locations_are_special = ref false
Chris@42 38 let strength_reduce_mul = ref false
Chris@42 39 let number_of_variables = ref 4
Chris@42 40 let codelet_name = ref "unnamed"
Chris@42 41 let randomized_cse = ref true
Chris@42 42 let dif_split_radix = ref false
Chris@42 43 let enable_fma = ref false
Chris@42 44 let deep_collect_depth = ref 1
Chris@42 45 let schedule_type = ref 0
Chris@42 46 let compact = ref false
Chris@42 47 let dag_dump_file = ref ""
Chris@42 48 let alist_dump_file = ref ""
Chris@42 49 let asched_dump_file = ref ""
Chris@42 50 let lisp_syntax = ref false
Chris@42 51 let network_transposition = ref true
Chris@42 52 let inklude = ref ""
Chris@42 53 let generic_arith = ref false
Chris@42 54 let reorder_insns = ref false
Chris@42 55 let reorder_loads = ref false
Chris@42 56 let reorder_stores = ref false
Chris@42 57 let precompute_twiddles = ref false
Chris@42 58 let newsplit = ref false
Chris@42 59 let standalone = ref false
Chris@42 60 let pipeline_latency = ref 0
Chris@42 61 let schedule_for_pipeline = ref false
Chris@42 62 let generate_bytw = ref true
Chris@42 63
Chris@42 64 (* command-line parser for magic parameters *)
Chris@42 65 let undocumented = " Undocumented voodoo parameter"
Chris@42 66
Chris@42 67 let set_bool var = Arg.Unit (fun () -> var := true)
Chris@42 68 let unset_bool var = Arg.Unit (fun () -> var := false)
Chris@42 69 let set_int var = Arg.Int(fun i -> var := i)
Chris@42 70 let set_string var = Arg.String(fun s -> var := s)
Chris@42 71
Chris@42 72 let speclist = [
Chris@42 73 "-name", set_string codelet_name, " set codelet name";
Chris@42 74 "-standalone", set_bool standalone, " standalone codelet (no desc)";
Chris@42 75 "-include", set_string inklude, undocumented;
Chris@42 76
Chris@42 77 "-verbose", set_bool verbose, " Enable verbose logging messages to stderr";
Chris@42 78
Chris@42 79 "-rader-min", set_int rader_min,
Chris@42 80 "<n> : Use Rader's algorithm for prime sizes >= <n>";
Chris@42 81
Chris@42 82 "-threemult", set_bool threemult,
Chris@42 83 " Use 3-multiply complex multiplications";
Chris@42 84
Chris@42 85 "-karatsuba-min", set_int karatsuba_min, undocumented;
Chris@42 86 "-karatsuba-variant", set_int karatsuba_variant, undocumented;
Chris@42 87 "-circular-min", set_int circular_min, undocumented;
Chris@42 88
Chris@42 89 "-compact", set_bool compact,
Chris@42 90 " Mangle variable names to reduce size of source code";
Chris@42 91 "-no-compact", unset_bool compact,
Chris@42 92 " Disable -compact";
Chris@42 93
Chris@42 94 "-dump-dag", set_string dag_dump_file, undocumented;
Chris@42 95 "-dump-alist", set_string alist_dump_file, undocumented;
Chris@42 96 "-dump-asched", set_string asched_dump_file, undocumented;
Chris@42 97 "-lisp-syntax", set_bool lisp_syntax, undocumented;
Chris@42 98
Chris@42 99 "-alternate-convolution", set_int alternate_convolution, undocumented;
Chris@42 100 "-deep-collect-depth", set_int deep_collect_depth, undocumented;
Chris@42 101 "-schedule-type", set_int schedule_type, undocumented;
Chris@42 102 "-pipeline-latency", set_int pipeline_latency, undocumented;
Chris@42 103 "-schedule-for-pipeline", set_bool schedule_for_pipeline, undocumented;
Chris@42 104
Chris@42 105 "-dif-split-radix", set_bool dif_split_radix, undocumented;
Chris@42 106 "-dit-split-radix", unset_bool dif_split_radix, undocumented;
Chris@42 107
Chris@42 108 "-generic-arith", set_bool generic_arith, undocumented;
Chris@42 109 "-no-generic-arith", unset_bool generic_arith, undocumented;
Chris@42 110
Chris@42 111 "-precompute-twiddles", set_bool precompute_twiddles, undocumented;
Chris@42 112 "-no-precompute-twiddles", unset_bool precompute_twiddles, undocumented;
Chris@42 113
Chris@42 114 "-inline-single", set_bool inline_single, undocumented;
Chris@42 115 "-no-inline-single", unset_bool inline_single, undocumented;
Chris@42 116
Chris@42 117 "-inline-loads", set_bool inline_loads, undocumented;
Chris@42 118 "-no-inline-loads", unset_bool inline_loads, undocumented;
Chris@42 119
Chris@42 120 "-inline-loads-constants", set_bool inline_loads_constants, undocumented;
Chris@42 121 "-no-inline-loads-constants",
Chris@42 122 unset_bool inline_loads_constants, undocumented;
Chris@42 123
Chris@42 124 "-inline-constants", set_bool inline_constants, undocumented;
Chris@42 125 "-no-inline-constants", unset_bool inline_constants, undocumented;
Chris@42 126
Chris@42 127 "-trivial-stores", set_bool trivial_stores, undocumented;
Chris@42 128 "-no-trivial-stores", unset_bool trivial_stores, undocumented;
Chris@42 129
Chris@42 130 "-locations-are-special", set_bool locations_are_special, undocumented;
Chris@42 131 "-no-locations-are-special", unset_bool locations_are_special, undocumented;
Chris@42 132
Chris@42 133 "-randomized-cse", set_bool randomized_cse, undocumented;
Chris@42 134 "-no-randomized-cse", unset_bool randomized_cse, undocumented;
Chris@42 135
Chris@42 136 "-network-transposition", set_bool network_transposition, undocumented;
Chris@42 137 "-no-network-transposition", unset_bool network_transposition, undocumented;
Chris@42 138
Chris@42 139 "-reorder-insns", set_bool reorder_insns, undocumented;
Chris@42 140 "-no-reorder-insns", unset_bool reorder_insns, undocumented;
Chris@42 141 "-reorder-loads", set_bool reorder_loads, undocumented;
Chris@42 142 "-no-reorder-loads", unset_bool reorder_loads, undocumented;
Chris@42 143 "-reorder-stores", set_bool reorder_stores, undocumented;
Chris@42 144 "-no-reorder-stores", unset_bool reorder_stores, undocumented;
Chris@42 145
Chris@42 146 "-newsplit", set_bool newsplit, undocumented;
Chris@42 147
Chris@42 148 "-vneg", set_bool vneg, undocumented;
Chris@42 149 "-fma", set_bool enable_fma, undocumented;
Chris@42 150 "-no-fma", unset_bool enable_fma, undocumented;
Chris@42 151
Chris@42 152 "-variables", set_int number_of_variables, undocumented;
Chris@42 153
Chris@42 154 "-strength-reduce-mul", set_bool strength_reduce_mul, undocumented;
Chris@42 155 "-no-strength-reduce-mul", unset_bool strength_reduce_mul, undocumented;
Chris@42 156
Chris@42 157 "-generate-bytw", set_bool generate_bytw, undocumented;
Chris@42 158 "-no-generate-bytw", unset_bool generate_bytw, undocumented;
Chris@42 159 ]
Chris@42 160
Chris@42 161