summaryrefslogtreecommitdiffstats
path: root/c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S
diff options
context:
space:
mode:
authorRalf Corsepius <ralf.corsepius@rtems.org>2009-12-04 04:27:21 +0000
committerRalf Corsepius <ralf.corsepius@rtems.org>2009-12-04 04:27:21 +0000
commit42e243eeef1dd20a5053dbe53ed9ef5eebd7d181 (patch)
treecc00b82136f3cb923861f051c40d3dd978d89feb /c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S
parent2009-12-03 Joel Sherrill <joel.sherrill@oarcorp.com> (diff)
downloadrtems-42e243eeef1dd20a5053dbe53ed9ef5eebd7d181.tar.bz2
Whitespace removal.
Diffstat (limited to 'c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S')
-rw-r--r--c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S18
1 files changed, 9 insertions, 9 deletions
diff --git a/c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S b/c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S
index 45f2ad52f7..45833e0801 100644
--- a/c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S
+++ b/c/src/lib/libcpu/m68k/m68040/fpsp/stwotox.S
@@ -78,8 +78,8 @@
// Copyright (C) Motorola, Inc. 1990
// All Rights Reserved
//
-// THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
-// The copyright notice above does not evidence any
+// THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF MOTOROLA
+// The copyright notice above does not evidence any
// actual or intended publication of such source code.
//STWOTOX idnt 2,1 | Motorola 040 Floating Point Software Package
@@ -224,14 +224,14 @@ TWOOK1:
cmpil #0x400D80C0,%d0 // ...|X| > 16480?
bles TWOMAIN
bra EXPBORS
-
+
TWOMAIN:
//--USUAL CASE, 2^(-70) <= |X| <= 16480
fmovex %fp0,%fp1
fmuls #0x42800000,%fp1 // ...64 * X
-
+
fmovel %fp1,N(%a6) // ...N = ROUND-TO-INT(64 X)
movel %d2,-(%sp)
lea EXPTBL,%a1 // ...LOAD ADDRESS OF TABLE OF 2^(J/64)
@@ -266,7 +266,7 @@ TWOMAIN:
clrw FACT2HI+2(%a6)
clrl FACT2LOW(%a6)
addw %d0,FACT1(%a6)
-
+
fmulx LOG2,%fp0 // ...FP0 IS R
addw %d0,FACT2(%a6)
@@ -334,7 +334,7 @@ TENMAIN:
fmovex %fp0,%fp1
fmuld L2TEN64,%fp1 // ...X*64*LOG10/LOG2
-
+
fmovel %fp1,N(%a6) // ...N=INT(X*64*LOG10/LOG2)
movel %d2,-(%sp)
lea EXPTBL,%a1 // ...LOAD ADDRESS OF TABLE OF 2^(J/64)
@@ -377,7 +377,7 @@ TENMAIN:
clrl FACT2LOW(%a6)
fmulx LOG10,%fp0 // ...FP0 IS R
-
+
addw %d0,FACT1(%a6)
addw %d0,FACT2(%a6)
@@ -407,9 +407,9 @@ expr:
fmulx %fp1,%fp2 // ...FP2 IS S*(A1+S*(A3+S*A5))
faddx %fp3,%fp0 // ...FP0 IS R+R*S*(A2+S*A4)
-
+
faddx %fp2,%fp0 // ...FP0 IS EXP(R) - 1
-
+
//--FINAL RECONSTRUCTION PROCESS
//--EXP(X) = 2^M*2^(J/64) + 2^M*2^(J/64)*(EXP(R)-1) - (1 OR 0)