1(* 2 * Copyright (c) 1997-1999, 2003 Massachusetts Institute of Technology 3 * 4 * This program is free software; you can redistribute it and/or modify 5 * it under the terms of the GNU General Public License as published by 6 * the Free Software Foundation; either version 2 of the License, or 7 * (at your option) any later version. 8 * 9 * This program is distributed in the hope that it will be useful, 10 * but WITHOUT ANY WARRANTY; without even the implied warranty of 11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12 * GNU General Public License for more details. 13 * 14 * You should have received a copy of the GNU General Public License 15 * along with this program; if not, write to the Free Software 16 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 17 * 18 *) 19 20(* $Id: magic.ml,v 1.30 2003/03/16 23:43:46 stevenj Exp $ *) 21 22(* magic parameters *) 23 24let window = ref 5 25 26let number_of_variables = ref 4 27 28let use_wsquare = ref false 29 30let inline_single = ref true 31 32type twiddle_policy = 33 TWIDDLE_LOAD_ALL 34 | TWIDDLE_ITER 35 | TWIDDLE_LOAD_ODD 36 | TWIDDLE_SQUARE1 37 | TWIDDLE_SQUARE2 38 | TWIDDLE_SQUARE3 39 40let twiddle_policy = ref TWIDDLE_LOAD_ALL 41 42let inline_konstants = ref false 43let inline_loads = ref false 44let loopo = ref false 45 46let rader_min = ref 13 47let rader_list = ref [5] 48 49let alternate_convolution = ref 17 50 51let alignment_check = ref false 52let times_3_3 = ref false 53 54let enable_fma = ref false 55let enable_fma_expansion = ref false 56 57let collect_common_twiddle = ref true 58let collect_common_inputs = ref true 59 60let verbose = ref false 61 62let athenafft = ref false 63