BSD 4_3 release

[unix-history] / usr / src / lib / libc / vax / gen / atof.s

diff --git a/usr/src/lib/libc/vax/gen/atof.s b/usr/src/lib/libc/vax/gen/atof.s
index 3860c1d..0734e27 100644 (file)
--- a/usr/src/lib/libc/vax/gen/atof.s
+++ b/usr/src/lib/libc/vax/gen/atof.s
@@ -1,4 +1,12 @@
-/*     atof.s  4.2     83/06/30        */
+/*
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifdef LIBC_SCCS
+       .asciz  "@(#)atof.s     5.3 (Berkeley) 3/9/86"
+#endif LIBC_SCCS

 
 #include "DEFS.h"
 
 
 #include "DEFS.h"
 


@@ -20,24 +28,12 @@
  *                     second section: scratch
  *             r5:     the decimal exponent
  *             r6-7:   scratch
  *                     second section: scratch
  *             r5:     the decimal exponent
  *             r6-7:   scratch

- *
- *     Flag definitions

  */
        .set    msign,0         # mantissa has negative sign
        .set    esign,1         # exponent has negative sign
        .set    decpt,2         # decimal point encountered
 
  */
        .set    msign,0         # mantissa has negative sign
        .set    esign,1         # exponent has negative sign
        .set    decpt,2         # decimal point encountered
 

-       .align  2
-two31: .word   0x5000          # 2 ** 31
-       .word   0               # (=2147483648)
-       .word   0               # in floating-point
-       .word   0               # (so atof doesn't have to convert it)
-/*
- *     Entry point
- */
-ENTRY(atof)
-       pushl   r6
-       pushl   r7
+ENTRY(atof, R6|R7)

 /*
  *     Initialization
  */
 /*
  *     Initialization
  */


@@ -319,8 +315,11 @@ cm2:       pushl   r2              # Put exponent in parameter list
        movd    r0,-(sp)        #    and also mantissa
        calls   $3,_ldexp       # go combine them
 
        movd    r0,-(sp)        #    and also mantissa
        calls   $3,_ldexp       # go combine them
 

-

 exit:
 exit:

-       movl    (sp)+,r7
-       movl    (sp)+,r6

        ret
        ret

+
+       .align  2
+two31: .word   0x5000          # 2 ** 31
+       .word   0               # (=2147483648)
+       .word   0               # in floating-point
+       .word   0               # (so atof doesn't have to convert it)