/*
 * Copyright (c) 1997-1999 Massachusetts Institute of Technology
 * Copyright (c) 2000-2001 Stefan Kral
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 */

/* This file was automatically generated --- DO NOT EDIT */
/* Generated on Tue Mar 25 06:39:33 EST 2003 */


/* fnset1/cheap-mode: VECTGRADE_FULL succeeded. (22 steps) */
.section .rodata
	.balign 64
	chs_lo: .double -1.0, +1.0

	

.text
	.balign 64
	.globl	fftwi_no_twiddle_4
	.type	fftwi_no_twiddle_4, @function
fftwi_no_twiddle_4:
	/* promise simd cell size = 16 */ 
	movl 12(%esp), %ecx
	movl 4(%esp), %eax
	sall $4, %ecx
	movapd (%eax), %xmm1
	leal (%ecx,%ecx,2), %edx
	movapd (%eax,%ecx), %xmm4
	movapd (%eax,%ecx,2), %xmm0
	movl 16(%esp), %ecx
	movapd (%eax,%edx), %xmm3
	movl 8(%esp), %edx
	/* simd data load/store barrier */ 
	movapd %xmm1, %xmm2
	sall $4, %ecx
	movapd %xmm4, %xmm5
	subpd %xmm0, %xmm1
	leal (%ecx,%ecx,2), %eax
	addpd %xmm0, %xmm2
	movapd %xmm1, %xmm7
	movapd %xmm2, %xmm6
	subpd %xmm3, %xmm5
	addpd %xmm3, %xmm4
	shufpd $9, %xmm5, %xmm5
	addpd %xmm4, %xmm6
	subpd %xmm4, %xmm2
	mulsd chs_lo, %xmm5
	movapd %xmm6, (%edx)
	movapd %xmm2, (%edx,%ecx,2)
	addpd %xmm5, %xmm7
	subpd %xmm5, %xmm1
	movapd %xmm7, (%edx,%ecx)
	movapd %xmm1, (%edx,%eax)
	ret 


.section .rodata

	.globl fftwi_no_twiddle_4_desc
	.balign 32
fftwi_no_twiddle_4_desc:
	/* descr_str_ptr */	.long .LC0
	/* codelet_ptr */	.long fftwi_no_twiddle_4
	/* n */			.long 4
	/* cdir_int */		.long 1
	/* ctype_int */		.long 0
	/* signature */		.long 100
	/* num_twiddles */	.long 0
	/* twiddle_order */	.long 0
.LC0:	.string "fftwi_no_twiddle_4"
