BSD 4_3_Net_2 release

[unix-history] / usr / src / sys / tahoe / math / Kldexpf.s

diff --git a/usr/src/sys/tahoe/math/Kldexpf.s b/usr/src/sys/tahoe/math/Kldexpf.s
index de823e1..dc23a88 100644 (file)
--- a/usr/src/sys/tahoe/math/Kldexpf.s
+++ b/usr/src/sys/tahoe/math/Kldexpf.s
@@ -1,41 +1,62 @@
+/*-
+ * Copyright (c) 1985 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ *
+ *     @(#)Kldexpf.s   7.1 (Berkeley) 12/6/90
+ */

 
 

-/* @(*)Kldexpf.s       4.2 (Berkeley) 12/21/80
-*      Tahoe           2/2/83
-*
-*      float Kldexpf (op_most, op_least, exp, hfs)
-*
-*      Ldexp returns value*2**exp, if that result is in range.
-*      If underflow occurs, it returns zero.  If overflow occurs,
-*      it returns a value of appropriate sign and largest
-*      possible magnitude.  In case of either overflow or underflow,
-*      the external int "errno" is set to ERANGE.  Note that errno is
-*      not modified if no error occurs, so if you intend to test it
-*      after you use Kldexpf, you had better set it to something
-*      other than ERANGE first (zero is a reasonable value to use).
-*
-*      Constants
-*/
-
-#include "../machine/fp_in_krnl.h"
-
-/*     Constants to be in a flt.h file . (?) */
+#include "../tahoe/SYS.h"
+#include "../math/fp.h"
+#include "../math/Kfp.h"

 
 

-       .set            EXPMASK,        0x7f800000
-       .set            SIGNBIT,        0x80000000
-       .set            EXPSHIFT,       23
-       .data
+/* @(*)Kldexpf.s       4.2 (Berkeley) 12/21/80
+ *     Tahoe           2/2/83
+ *
+ * float Kldexpf (op_most, op_least, exp, hfs)
+ *
+ * Ldexp returns value*2**exp, if that result is in range.
+ * If underflow occurs, it returns zero.  If overflow occurs,
+ * it returns a value of appropriate sign and largest
+ * possible magnitude.  In case of either overflow or underflow,
+ * the external int "errno" is set to ERANGE.  Note that errno is
+ * not modified if no error occurs, so if you intend to test it
+ * after you use Kldexpf, you had better set it to something
+ * other than ERANGE first (zero is a reasonable value to use).
+ */

 
 

-huge0: .word   0x7fff          /* The largest number that can */
-       .word   0xffff          /*   be represented in a long floating */
-huge1: .word   0xffff          /* The largest number that can */
-       .word   0xffff          /*   be represented in a long floating */
-/*
-*      Entry point
-*/

        .text
        .text

-       .globl  _Kldexpf
-_Kldexpf:      .word   0x0004          /* We use r2  */
-
+ENTRY(Kldexpf, R2)

        movl    4(fp),r0        /* Fetch "value" */
        movl    8(fp),r1
 
        movl    4(fp),r0        /* Fetch "value" */
        movl    8(fp),r1
 


@@ -48,22 +69,22 @@ _Kldexpf:   .word   0x0004          /* We use r2  */
        cmpl    r2,$256         /* Otherwise check if it's too big */
        jgeq    over            /* jump if overflow */
 /*
        cmpl    r2,$256         /* Otherwise check if it's too big */
        jgeq    over            /* jump if overflow */
 /*

-*      Construct the result and return
-*/
+ *     Construct the result and return
+ */

        andl2   $0!EXPMASK,r0   /* clear old exponent */
        shal    $EXPSHIFT,r2,r2 /* Put the exponent back in the result */
        orl2    r2,r0
 ld1:   ret
 /*
        andl2   $0!EXPMASK,r0   /* clear old exponent */
        shal    $EXPSHIFT,r2,r2 /* Put the exponent back in the result */
        orl2    r2,r0
 ld1:   ret
 /*

-*      Underflow
-*/
+ *     Underflow
+ */

 under: clrl    r0              /* Result is zero */
        clrl    r1
        orl2    $HFS_UNDF,*16(fp)
        jmp     err             /* Join general error code */
 /*
 under: clrl    r0              /* Result is zero */
        clrl    r1
        orl2    $HFS_UNDF,*16(fp)
        jmp     err             /* Join general error code */
 /*

-*      Overflow
-*/
+ *     Overflow
+ */

 over:  movl    huge0,r0        /* Largest possible floating magnitude */
        movl    huge1,r1
        orl2    $HFS_OVF,*16(fp)
 over:  movl    huge0,r0        /* Largest possible floating magnitude */
        movl    huge1,r1
        orl2    $HFS_OVF,*16(fp)


@@ -71,3 +92,7 @@ over: movl    huge0,r0        /* Largest possible floating magnitude */
 
 err:   orl2    $HFS_RANGE,*16(fp)      /* Indicate range error */
        ret
 
 err:   orl2    $HFS_RANGE,*16(fp)      /* Indicate range error */
        ret

+
+       .data
+huge0: .long   0x7fffffff
+huge1: .long   0xffffffff