projects
/
openssl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
42909e3
)
Bug fixes.
author
Richard Levitte
<levitte@openssl.org>
Fri, 9 Mar 2001 01:13:23 +0000
(
01:13
+0000)
committer
Richard Levitte
<levitte@openssl.org>
Fri, 9 Mar 2001 01:13:23 +0000
(
01:13
+0000)
crypto/bn/asm/vms.mar
patch
|
blob
|
history
diff --git
a/crypto/bn/asm/vms.mar
b/crypto/bn/asm/vms.mar
index 754ab5347a47839dd985b27385712d668fbdce0f..5eab24270668307ccf8e0747cefdfb0dbe13a79d 100644
(file)
--- a/
crypto/bn/asm/vms.mar
+++ b/
crypto/bn/asm/vms.mar
@@
-261,6
+261,7
@@
d=12 ;(AP) d by value (input)
movl #0,r5
movl #0,r8
movl #0,r0
movl #0,r5
movl #0,r8
movl #0,r0
+; movl #0,r1
rotl #-1,r2,r6 ; a20 = l >> 1 (almost)
rotl #-1,r3,r7 ; a21 = h >> 1 (almost)
rotl #-1,r2,r6 ; a20 = l >> 1 (almost)
rotl #-1,r3,r7 ; a21 = h >> 1 (almost)
@@
-278,17
+279,17
@@
d=12 ;(AP) d by value (input)
xorl2 #^X80000000,r7 ; fixup a21 so highest bit is 1
2$:
tstl r9
xorl2 #^X80000000,r7 ; fixup a21 so highest bit is 1
2$:
tstl r9
- b
geq
666$ ; Uh-oh, the divisor is 0...
+ b
eq
666$ ; Uh-oh, the divisor is 0...
bgtr 3$
bgtr 3$
- xorl2 #^X80000000,r9 ; fixup b2 so highest bit is
1
- incl r8
+ xorl2 #^X80000000,r9 ; fixup b2 so highest bit is
0
+ incl r8
; b' = 1
3$:
tstl r9
3$:
tstl r9
- bneq 4$ ; if b2 is 0, we know that b
prim
is 1
- tstl r
7
+ bneq 4$ ; if b2 is 0, we know that b
'
is 1
+ tstl r
3
bneq 666$ ; if higher half isn't 0, we overflow
bneq 666$ ; if higher half isn't 0, we overflow
- movl r
0,r6
; otherwise, we have our result
- brb 42$
+ movl r
2,r10
; otherwise, we have our result
+ brb 42$
; This is a success, really.
4$:
ediv r9,r6,r10,r11
4$:
ediv r9,r6,r10,r11