branch on equal is beql, not beq...

[openssl.git] / crypto / bn / asm / vms.mar

diff --git a/crypto/bn/asm/vms.mar b/crypto/bn/asm/vms.mar
index 5eab24270668307ccf8e0747cefdfb0dbe13a79d..465f2774b6267e0b6dd4e983bfc35926860e7d31 100644 (file)
--- a/crypto/bn/asm/vms.mar
+++ b/crypto/bn/asm/vms.mar
@@ -279,7 +279,7 @@ d=12 ;(AP)  d       by value (input)
        xorl2   #^X80000000,r7  ; fixup a21 so highest bit is 1
 2$:
        tstl    r9
-       beq     666$            ; Uh-oh, the divisor is 0...
+       beql    666$            ; Uh-oh, the divisor is 0...
        bgtr    3$
        xorl2   #^X80000000,r9  ; fixup b2 so highest bit is 0
        incl    r8              ; b' = 1