1ce0bb6e8Sragge/* 2ce0bb6e8Sragge * Copyright (c) 1983, 1993 3ce0bb6e8Sragge * The Regents of the University of California. All rights reserved. 4ce0bb6e8Sragge * 5ce0bb6e8Sragge * Redistribution and use in source and binary forms, with or without 6ce0bb6e8Sragge * modification, are permitted provided that the following conditions 7ce0bb6e8Sragge * are met: 8ce0bb6e8Sragge * 1. Redistributions of source code must retain the above copyright 9ce0bb6e8Sragge * notice, this list of conditions and the following disclaimer. 10ce0bb6e8Sragge * 2. Redistributions in binary form must reproduce the above copyright 11ce0bb6e8Sragge * notice, this list of conditions and the following disclaimer in the 12ce0bb6e8Sragge * documentation and/or other materials provided with the distribution. 13eb7c1594Sagc * 3. Neither the name of the University nor the names of its contributors 14ce0bb6e8Sragge * may be used to endorse or promote products derived from this software 15ce0bb6e8Sragge * without specific prior written permission. 16ce0bb6e8Sragge * 17ce0bb6e8Sragge * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 18ce0bb6e8Sragge * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 19ce0bb6e8Sragge * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 20ce0bb6e8Sragge * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 21ce0bb6e8Sragge * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 22ce0bb6e8Sragge * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 23ce0bb6e8Sragge * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 24ce0bb6e8Sragge * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 25ce0bb6e8Sragge * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 26ce0bb6e8Sragge * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 27ce0bb6e8Sragge * SUCH DAMAGE. 28ce0bb6e8Sragge */ 29ce0bb6e8Sragge 30*787e823fSmatt#include "DEFS.h" 31*787e823fSmatt 32ce0bb6e8Sragge#if defined(LIBC_SCCS) && !defined(lint) 33ce0bb6e8Sragge /* .asciz "@(#)modf.s 8.1 (Berkeley) 6/4/93" */ 34*787e823fSmattRCSID("$NetBSD: modf.S,v 1.5 2011/01/25 02:38:15 matt Exp $") 35ce0bb6e8Sragge#endif /* LIBC_SCCS and not lint */ 36ce0bb6e8Sragge 37ce0bb6e8Sragge/* 38ce0bb6e8Sragge * double modf (value, iptr) 39ce0bb6e8Sragge * double value, *iptr; 40ce0bb6e8Sragge * 41ce0bb6e8Sragge * Modf returns the fractional part of "value", 42ce0bb6e8Sragge * and stores the integer part indirectly through "iptr". 43ce0bb6e8Sragge */ 44ce0bb6e8Sragge 45ce0bb6e8SraggeENTRY(modf, 0) 460ce5ca14Smatt emodd 4(%ap),$0,$0f1.0,%r2,%r0 47ce0bb6e8Sragge jvs 1f # integer overflow 480ce5ca14Smatt cvtld %r2,*12(%ap) 49ce0bb6e8Sragge ret 50ce0bb6e8Sragge1: 510ce5ca14Smatt subd3 %r0,4(%ap),*12(%ap) 52ce0bb6e8Sragge ret 53*787e823fSmattEND(modf) 54471cb493Smatt 55471cb493SmattENTRY(modff, 0) 56471cb493Smatt emodf 4(%ap),$0,$0f1.0,%r2,%r0 57471cb493Smatt jvs 1f # integer overflow 58471cb493Smatt cvtlf %r2,*8(%ap) 59471cb493Smatt ret 60471cb493Smatt1: 61471cb493Smatt subf3 %r0,4(%ap),*8(%ap) 62471cb493Smatt ret 63*787e823fSmattEND(modff) 64