git://git.onelab.eu
/
linux-2.6.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create tag
[linux-2.6.git]
/
arch
/
m68k
/
fpsp040
/
satan.S
diff --git
a/arch/m68k/fpsp040/satan.S
b/arch/m68k/fpsp040/satan.S
index
429b3c6
..
20dae22
100644
(file)
--- a/
arch/m68k/fpsp040/satan.S
+++ b/
arch/m68k/fpsp040/satan.S
@@
-43,8
+43,8
@@
| Copyright (C) Motorola, Inc. 1990
| All Rights Reserved
|
| 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.
|satan idnt 2,1 | Motorola 040 Floating Point Software Package
| actual or intended publication of such source code.
|satan idnt 2,1 | Motorola 040 Floating Point Software Package
@@
-52,7
+52,7
@@
|section 8
#include "fpsp.h"
|section 8
#include "fpsp.h"
-
+
BOUNDS1: .long 0x3FFB8000,0x4002FFFF
ONE: .long 0x3F800000
BOUNDS1: .long 0x3FFB8000,0x4002FFFF
ONE: .long 0x3F800000
@@
-322,7
+322,7
@@
ATANMAIN:
|--THE REASON FOR THIS REARRANGEMENT IS TO MAKE THE INDEPENDENT
|--PARTS A1*U*V AND (A2 + ... STUFF) MORE LOAD-BALANCED
|--THE REASON FOR THIS REARRANGEMENT IS TO MAKE THE INDEPENDENT
|--PARTS A1*U*V AND (A2 + ... STUFF) MORE LOAD-BALANCED
-
+
fmovex %fp0,%fp1
fmulx %fp1,%fp1
fmoved ATANA3,%fp2
fmovex %fp0,%fp1
fmulx %fp1,%fp1
fmoved ATANA3,%fp2
@@
-332,7
+332,7
@@
ATANMAIN:
faddd ATANA2,%fp2 | ...A2+V*(A3+V)
fmuld ATANA1,%fp1 | ...A1*U*V
fmulx %fp2,%fp1 | ...A1*U*V*(A2+V*(A3+V))
faddd ATANA2,%fp2 | ...A2+V*(A3+V)
fmuld ATANA1,%fp1 | ...A1*U*V
fmulx %fp2,%fp1 | ...A1*U*V*(A2+V*(A3+V))
-
+
faddx %fp1,%fp0 | ...ATAN(U), FP1 RELEASED
fmovel %d1,%FPCR |restore users exceptions
faddx ATANF(%a6),%fp0 | ...ATAN(X)
faddx %fp1,%fp0 | ...ATAN(U), FP1 RELEASED
fmovel %d1,%FPCR |restore users exceptions
faddx ATANF(%a6),%fp0 | ...ATAN(X)
@@
-356,7
+356,7
@@
ATANSM:
|--COMPUTE POLYNOMIAL
fmulx %fp0,%fp0 | ...FP0 IS Y = X*X
|--COMPUTE POLYNOMIAL
fmulx %fp0,%fp0 | ...FP0 IS Y = X*X
-
+
movew #0x0000,XDCARE(%a6)
fmovex %fp0,%fp1
movew #0x0000,XDCARE(%a6)
fmovex %fp0,%fp1
@@
-381,7
+381,7
@@
ATANSM:
fmulx X(%a6),%fp0 | ...X*Y
faddx %fp2,%fp1 | ...[B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))]
fmulx X(%a6),%fp0 | ...X*Y
faddx %fp2,%fp1 | ...[B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))]
-
+
fmulx %fp1,%fp0 | ...X*Y*([B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))])
fmulx %fp1,%fp0 | ...X*Y*([B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))])
@@
-413,7
+413,7
@@
ATANBIG:
fmoves #0xBF800000,%fp1 | ...LOAD -1
fdivx %fp0,%fp1 | ...FP1 IS -1/X
fmoves #0xBF800000,%fp1 | ...LOAD -1
fdivx %fp0,%fp1 | ...FP1 IS -1/X
-
+
|--DIVIDE IS STILL CRANKING
fmovex %fp1,%fp0 | ...FP0 IS X'
|--DIVIDE IS STILL CRANKING
fmovex %fp1,%fp0 | ...FP0 IS X'
@@
-439,14
+439,14
@@
ATANBIG:
fmulx X(%a6),%fp0 | ...X'*Y
faddx %fp2,%fp1 | ...[Y*(C2+Z*C4)]+[C1+Z*(C3+Z*C5)]
fmulx X(%a6),%fp0 | ...X'*Y
faddx %fp2,%fp1 | ...[Y*(C2+Z*C4)]+[C1+Z*(C3+Z*C5)]
-
+
fmulx %fp1,%fp0 | ...X'*Y*([B1+Z*(B3+Z*B5)]
| ... +[Y*(B2+Z*(B4+Z*B6))])
faddx X(%a6),%fp0
fmovel %d1,%FPCR |restore users exceptions
fmulx %fp1,%fp0 | ...X'*Y*([B1+Z*(B3+Z*B5)]
| ... +[Y*(B2+Z*(B4+Z*B6))])
faddx X(%a6),%fp0
fmovel %d1,%FPCR |restore users exceptions
-
+
btstb #7,(%a0)
beqs pos_big
btstb #7,(%a0)
beqs pos_big
@@
-474,5
+474,5
@@
pos_huge:
fmovel %d1,%fpcr
fsubx PTINY,%fp0
bra t_frcinx
fmovel %d1,%fpcr
fsubx PTINY,%fp0
bra t_frcinx
-
+
|end
|end