12fe8fb19SBen Gras/* 22fe8fb19SBen Gras * Copyright (c) 1983, 1993 32fe8fb19SBen Gras * The Regents of the University of California. All rights reserved. 42fe8fb19SBen Gras * 52fe8fb19SBen Gras * Redistribution and use in source and binary forms, with or without 62fe8fb19SBen Gras * modification, are permitted provided that the following conditions 72fe8fb19SBen Gras * are met: 82fe8fb19SBen Gras * 1. Redistributions of source code must retain the above copyright 92fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer. 102fe8fb19SBen Gras * 2. Redistributions in binary form must reproduce the above copyright 112fe8fb19SBen Gras * notice, this list of conditions and the following disclaimer in the 122fe8fb19SBen Gras * documentation and/or other materials provided with the distribution. 132fe8fb19SBen Gras * 3. Neither the name of the University nor the names of its contributors 142fe8fb19SBen Gras * may be used to endorse or promote products derived from this software 152fe8fb19SBen Gras * without specific prior written permission. 162fe8fb19SBen Gras * 172fe8fb19SBen Gras * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 182fe8fb19SBen Gras * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 192fe8fb19SBen Gras * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 202fe8fb19SBen Gras * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 212fe8fb19SBen Gras * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 222fe8fb19SBen Gras * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 232fe8fb19SBen Gras * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 242fe8fb19SBen Gras * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 252fe8fb19SBen Gras * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 262fe8fb19SBen Gras * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 272fe8fb19SBen Gras * SUCH DAMAGE. 282fe8fb19SBen Gras */ 292fe8fb19SBen Gras 30*e415d488SLionel Sambuc#include "DEFS.h" 31*e415d488SLionel Sambuc 322fe8fb19SBen Gras#if defined(LIBC_SCCS) && !defined(lint) 332fe8fb19SBen Gras /* .asciz "@(#)modf.s 8.1 (Berkeley) 6/4/93" */ 34*e415d488SLionel SambucRCSID("$NetBSD: modf.S,v 1.5 2011/01/25 02:38:15 matt Exp $") 352fe8fb19SBen Gras#endif /* LIBC_SCCS and not lint */ 362fe8fb19SBen Gras 372fe8fb19SBen Gras/* 382fe8fb19SBen Gras * double modf (value, iptr) 392fe8fb19SBen Gras * double value, *iptr; 402fe8fb19SBen Gras * 412fe8fb19SBen Gras * Modf returns the fractional part of "value", 422fe8fb19SBen Gras * and stores the integer part indirectly through "iptr". 432fe8fb19SBen Gras */ 442fe8fb19SBen Gras 452fe8fb19SBen GrasENTRY(modf, 0) 462fe8fb19SBen Gras emodd 4(%ap),$0,$0f1.0,%r2,%r0 472fe8fb19SBen Gras jvs 1f # integer overflow 482fe8fb19SBen Gras cvtld %r2,*12(%ap) 492fe8fb19SBen Gras ret 502fe8fb19SBen Gras1: 512fe8fb19SBen Gras subd3 %r0,4(%ap),*12(%ap) 522fe8fb19SBen Gras ret 53*e415d488SLionel SambucEND(modf) 542fe8fb19SBen Gras 552fe8fb19SBen GrasENTRY(modff, 0) 562fe8fb19SBen Gras emodf 4(%ap),$0,$0f1.0,%r2,%r0 572fe8fb19SBen Gras jvs 1f # integer overflow 582fe8fb19SBen Gras cvtlf %r2,*8(%ap) 592fe8fb19SBen Gras ret 602fe8fb19SBen Gras1: 612fe8fb19SBen Gras subf3 %r0,4(%ap),*8(%ap) 622fe8fb19SBen Gras ret 63*e415d488SLionel SambucEND(modff) 64