mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-02-23 14:42:15 +08:00
Code Issues Packages Projects Releases Wiki Activity

Bug fixes.

Browse Source
This commit is contained in:
Richard Levitte 2001-03-09 01:13:23 +00:00
parent 42909e3968
commit 754d494bef
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
crypto/bn/asm/vms.mar
View File

@ -261,6 +261,7 @@ d=12 ;(AP) d by value (input)
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)
@ -278,17 +279,17 @@ d=12 ;(AP) d by value (input)
xorl2 #^X80000000,r7 ; fixup a21 so highest bit is 1
2$:
tstl r9
bgeq 666$ ; Uh-oh, the divisor is 0...
beq 666$ ; Uh-oh, the divisor is 0...
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
bneq 4$ ; if b2 is 0, we know that bprim is 1
tstl r7
bneq 4$ ; if b2 is 0, we know that b' is 1
tstl r3
bneq 666$ ; if higher half isn't 0, we overflow
movl r0,r6 ; otherwise, we have our result
brb 42$
movl r2,r10 ; otherwise, we have our result
brb 42$ ; This is a success, really.
4$:
ediv r9,r6,r10,r11