diff options
author | Linus Torvalds <torvalds@ppc970.osdl.org> | 2005-04-16 18:20:36 -0400 |
---|---|---|
committer | Linus Torvalds <torvalds@ppc970.osdl.org> | 2005-04-16 18:20:36 -0400 |
commit | 1da177e4c3f41524e886b7f1b8a0c1fc7321cac2 (patch) | |
tree | 0bba044c4ce775e45a88a51686b5d9f90697ea9d /arch/i386/math-emu/shr_Xsig.S |
Linux-2.6.12-rc2
Initial git repository build. I'm not bothering with the full history,
even though we have it. We can create a separate "historical" git
archive of that later if we want to, and in the meantime it's about
3.2GB when imported into git - space that would just make the early
git days unnecessarily complicated, when we don't have a lot of good
infrastructure for it.
Let it rip!
Diffstat (limited to 'arch/i386/math-emu/shr_Xsig.S')
-rw-r--r-- | arch/i386/math-emu/shr_Xsig.S | 87 |
1 files changed, 87 insertions, 0 deletions
diff --git a/arch/i386/math-emu/shr_Xsig.S b/arch/i386/math-emu/shr_Xsig.S new file mode 100644 index 00000000000..31cdd118e91 --- /dev/null +++ b/arch/i386/math-emu/shr_Xsig.S | |||
@@ -0,0 +1,87 @@ | |||
1 | .file "shr_Xsig.S" | ||
2 | /*---------------------------------------------------------------------------+ | ||
3 | | shr_Xsig.S | | ||
4 | | | | ||
5 | | 12 byte right shift function | | ||
6 | | | | ||
7 | | Copyright (C) 1992,1994,1995 | | ||
8 | | W. Metzenthen, 22 Parker St, Ormond, Vic 3163, | | ||
9 | | Australia. E-mail billm@jacobi.maths.monash.edu.au | | ||
10 | | | | ||
11 | | Call from C as: | | ||
12 | | void shr_Xsig(Xsig *arg, unsigned nr) | | ||
13 | | | | ||
14 | | Extended shift right function. | | ||
15 | | Fastest for small shifts. | | ||
16 | | Shifts the 12 byte quantity pointed to by the first arg (arg) | | ||
17 | | right by the number of bits specified by the second arg (nr). | | ||
18 | | | | ||
19 | +---------------------------------------------------------------------------*/ | ||
20 | |||
21 | #include "fpu_emu.h" | ||
22 | |||
23 | .text | ||
24 | ENTRY(shr_Xsig) | ||
25 | push %ebp | ||
26 | movl %esp,%ebp | ||
27 | pushl %esi | ||
28 | movl PARAM2,%ecx | ||
29 | movl PARAM1,%esi | ||
30 | cmpl $32,%ecx /* shrd only works for 0..31 bits */ | ||
31 | jnc L_more_than_31 | ||
32 | |||
33 | /* less than 32 bits */ | ||
34 | pushl %ebx | ||
35 | movl (%esi),%eax /* lsl */ | ||
36 | movl 4(%esi),%ebx /* midl */ | ||
37 | movl 8(%esi),%edx /* msl */ | ||
38 | shrd %cl,%ebx,%eax | ||
39 | shrd %cl,%edx,%ebx | ||
40 | shr %cl,%edx | ||
41 | movl %eax,(%esi) | ||
42 | movl %ebx,4(%esi) | ||
43 | movl %edx,8(%esi) | ||
44 | popl %ebx | ||
45 | popl %esi | ||
46 | leave | ||
47 | ret | ||
48 | |||
49 | L_more_than_31: | ||
50 | cmpl $64,%ecx | ||
51 | jnc L_more_than_63 | ||
52 | |||
53 | subb $32,%cl | ||
54 | movl 4(%esi),%eax /* midl */ | ||
55 | movl 8(%esi),%edx /* msl */ | ||
56 | shrd %cl,%edx,%eax | ||
57 | shr %cl,%edx | ||
58 | movl %eax,(%esi) | ||
59 | movl %edx,4(%esi) | ||
60 | movl $0,8(%esi) | ||
61 | popl %esi | ||
62 | leave | ||
63 | ret | ||
64 | |||
65 | L_more_than_63: | ||
66 | cmpl $96,%ecx | ||
67 | jnc L_more_than_95 | ||
68 | |||
69 | subb $64,%cl | ||
70 | movl 8(%esi),%eax /* msl */ | ||
71 | shr %cl,%eax | ||
72 | xorl %edx,%edx | ||
73 | movl %eax,(%esi) | ||
74 | movl %edx,4(%esi) | ||
75 | movl %edx,8(%esi) | ||
76 | popl %esi | ||
77 | leave | ||
78 | ret | ||
79 | |||
80 | L_more_than_95: | ||
81 | xorl %eax,%eax | ||
82 | movl %eax,(%esi) | ||
83 | movl %eax,4(%esi) | ||
84 | movl %eax,8(%esi) | ||
85 | popl %esi | ||
86 | leave | ||
87 | ret | ||