← Back to branch summary

~ubuntu-branches/ubuntu/utopic/fftw3/utopic

« back to all changes in this revision

Viewing changes to genfft/gen_twiddle.ml

  • Committer: Package Import Robot
  • Author(s): Matthias Klose
  • Date: 2011-12-14 13:21:22 UTC
  • mfrom: (3.1.5 sid)
  • Revision ID: package-import@ubuntu.com-20111214132122-l4avyl2kkr7vq5aj
Tags: 3.3-1ubuntu1
* Merge with Debian; remaining changes:
  - Revert the ARM workaround.

Show diffs side-by-side

added added

removed removed

Lines of Context:
genfft/gen_twiddle.ml
1
1
(*
2
2
 * Copyright (c) 1997-1999 Massachusetts Institute of Technology
3
 
 * Copyright (c) 2003, 2007-8 Matteo Frigo
4
 
 * Copyright (c) 2003, 2007-8 Massachusetts Institute of Technology
 
3
 * Copyright (c) 2003, 2007-11 Matteo Frigo
 
4
 * Copyright (c) 2003, 2007-11 Massachusetts Institute of Technology
5
5
 *
6
6
 * This program is free software; you can redistribute it and/or modify
7
7
 * it under the terms of the GNU General Public License as published by
123
123
          Decl ("INT", mb);
124
124
          Decl ("INT", me);
125
125
          Decl ("INT", ms)],
126
 
         add_constants body)
 
126
         finalize_fcn body)
127
127
  in
128
128
  let twinstr = 
129
129
    Printf.sprintf "static const tw_instr twinstr[] = %s;\n\n" 
130
130
      (twinstr_to_string "(2 * VL)" (twdesc n))
131
131
  and desc = 
132
132
    Printf.sprintf
133
 
      "static const ct_desc desc = {%d, \"%s\", twinstr, &GENUS, %s, %s, %s, %s};\n\n"
134
 
      n name (flops_of tree) 
 
133
      "static const ct_desc desc = {%d, %s, twinstr, &GENUS, %s, %s, %s, %s};\n\n"
 
134
      n (stringify name) (flops_of tree) 
135
135
      (stride_to_solverparm !urs) "0"
136
136
      (stride_to_solverparm !ums) 
137
137
  and register =