1*41042Swilliam/*- 2*41042Swilliam * Copyright (c) 1990 The Regents of the University of California. 3*41042Swilliam * All rights reserved. 4*41042Swilliam * 5*41042Swilliam * This code is derived from software contributed to Berkeley by 6*41042Swilliam * William Jolitz. 7*41042Swilliam * 8*41042Swilliam * %sccs.include.redist.c% 9*41042Swilliam */ 10*41042Swilliam 11*41042Swilliam#if defined(LIBC_SCCS) && !defined(lint) 12*41042Swilliamstatic char sccsid[] = "@(#)fixdfsi.s 5.1 (Berkeley) 04/23/90"; 13*41042Swilliam#endif /* LIBC_SCCS and not lint */ 14*41042Swilliam 15*41042Swilliam__fixdfsi(d) 16*41042Swilliamdouble d; 17*41042Swilliam{ 18*41042Swilliam int val; 19*41042Swilliam asm("fistl %0" : "=g" (val) : "f" (d) ); 20*41042Swilliam return(val); 21*41042Swilliam} 22