o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

libmp: no text jump labels for darwin

Browse source
This commit is contained in:
Russ Cox 2007-11-05 12:27:49 -05:00
parent 50808670fc
commit 88cf592723
5 changed files with 45 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/libmp/386/mpdigdiv-Darwin.s
View file

@ -1,5 +1,5 @@
.text .text
.p2align 2,0x90
.globl _mpdigdiv .globl _mpdigdiv
_mpdigdiv: _mpdigdiv:
/* Prelude */ /* Prelude */
@ -15,19 +15,19 @@ _mpdigdiv:
xorl %ecx, %ecx xorl %ecx, %ecx
cmpl %ebx, %edx /* dividend >= 2^32 * divisor */ cmpl %ebx, %edx /* dividend >= 2^32 * divisor */
jae divovfl jae 2f
cmpl %ecx, %ebx /* divisor == 1 */ cmpl %ecx, %ebx /* divisor == 1 */
je divovfl je 2f
divl %ebx /* AX = DX:AX/BX */ divl %ebx /* AX = DX:AX/BX */
movl %eax, (%ebp) movl %eax, (%ebp)
done: 1:
/* Postlude */ /* Postlude */
popl %ebx popl %ebx
popl %ebp popl %ebp
ret ret
/* return all 1's */ /* return all 1's */
divovfl: 2:
notl %ecx notl %ecx
movl %ecx, (%ebp) movl %ecx, (%ebp)
jmp done jmp 1b

28
src/libmp/386/mpvecadd-Darwin.s
View file

@ -26,42 +26,42 @@ _mpvecadd:
/* skip addition if b is zero */ /* skip addition if b is zero */
testl %ecx,%ecx testl %ecx,%ecx
je _add1 je 2f
/* sum[0:blen-1],carry = a[0:blen-1] + b[0:blen-1] */ /* sum[0:blen-1],carry = a[0:blen-1] + b[0:blen-1] */
_addloop1: 1:
movl (%esi, %ebp, 4), %eax movl (%esi, %ebp, 4), %eax
adcl (%ebx, %ebp, 4), %eax adcl (%ebx, %ebp, 4), %eax
movl %eax, (%edi, %ebp, 4) movl %eax, (%edi, %ebp, 4)
incl %ebp incl %ebp
loop _addloop1 loop 1b
_add1: 2:
/* jump if alen > blen */ /* jump if alen > blen */
incl %edx incl %edx
movl %edx, %ecx movl %edx, %ecx
loop _addloop2 loop 5f
/* sum[alen] = carry */ /* sum[alen] = carry */
_addend: 3:
jb _addcarry jb 4f
movl $0, (%edi, %ebp, 4) movl $0, (%edi, %ebp, 4)
jmp done jmp 6f
_addcarry: 4:
movl $1, (%edi, %ebp, 4) movl $1, (%edi, %ebp, 4)
jmp done jmp 6f
/* sum[blen:alen-1],carry = a[blen:alen-1] + 0 */ /* sum[blen:alen-1],carry = a[blen:alen-1] + 0 */
_addloop2: 5:
movl (%esi, %ebp, 4),%eax movl (%esi, %ebp, 4),%eax
adcl $0, %eax adcl $0, %eax
movl %eax, (%edi, %ebp, 4) movl %eax, (%edi, %ebp, 4)
incl %ebp incl %ebp
loop _addloop2 loop 5b
jmp _addend jmp 3b
done: 6:
/* Postlude */ /* Postlude */
popl %edi popl %edi
popl %esi popl %esi

13
src/libmp/386/mpvecdigmuladd-Darwin.s
View file

@ -22,7 +22,6 @@
*/ */
.text .text
.p2align 2,0x90
.globl _mpvecdigmuladd .globl _mpvecdigmuladd
_mpvecdigmuladd: _mpvecdigmuladd:
/* Prelude */ /* Prelude */
@ -42,20 +41,20 @@ _mpvecdigmuladd:
addl %ecx, %esi /* SI = b + n */ addl %ecx, %esi /* SI = b + n */
addl %ecx, %edi /* DI = p + n */ addl %ecx, %edi /* DI = p + n */
xorl %ecx, %ecx xorl %ecx, %ecx
_muladdloop: 1:
movl (%esi, %ebp, 4), %eax /* lo = b[i] */ movl (%esi, %ebp, 4), %eax /* lo = b[i] */
mull %ebx /* hi, lo = b[i] * m */ mull %ebx /* hi, lo = b[i] * m */
addl %ecx,%eax /* lo += oldhi */ addl %ecx,%eax /* lo += oldhi */
jae _muladdnocarry1 jae 2f
incl %edx /* hi += carry */ incl %edx /* hi += carry */
_muladdnocarry1: 2:
addl %eax, (%edi, %ebp, 4) /* p[i] += lo */ addl %eax, (%edi, %ebp, 4) /* p[i] += lo */
jae _muladdnocarry2 jae 3f
incl %edx /* hi += carry */ incl %edx /* hi += carry */
_muladdnocarry2: 3:
movl %edx, %ecx /* oldhi = hi */ movl %edx, %ecx /* oldhi = hi */
incl %ebp /* i++ */ incl %ebp /* i++ */
jnz _muladdloop jnz 1b
xorl %eax, %eax xorl %eax, %eax
addl %ecx, (%edi, %ebp, 4) /* p[n] + oldhi */ addl %ecx, (%edi, %ebp, 4) /* p[n] + oldhi */
adcl %eax, %eax /* return carry out of p[n] */ adcl %eax, %eax /* return carry out of p[n] */

21
src/libmp/386/mpvecdigmulsub-Darwin.s
View file

@ -23,7 +23,6 @@
*/ */
.text .text
.p2align 2,0x90
.globl _mpvecdigmulsub .globl _mpvecdigmulsub
_mpvecdigmulsub: _mpvecdigmulsub:
/* Prelude */ /* Prelude */
@ -39,28 +38,28 @@ _mpvecdigmulsub:
movl 12(%ebp), %edi /* p */ movl 12(%ebp), %edi /* p */
xorl %ebp, %ebp xorl %ebp, %ebp
pushl %ebp pushl %ebp
_mulsubloop: 1:
movl (%esi, %ebp, 4),%eax /* lo = b[i] */ movl (%esi, %ebp, 4),%eax /* lo = b[i] */
mull %ebx /* hi, lo = b[i] * m */ mull %ebx /* hi, lo = b[i] * m */
addl 0(%esp), %eax /* lo += oldhi */ addl 0(%esp), %eax /* lo += oldhi */
jae _mulsubnocarry1 jae 2f
incl %edx /* hi += carry */ incl %edx /* hi += carry */
_mulsubnocarry1: 2:
subl %eax, (%edi, %ebp, 4) subl %eax, (%edi, %ebp, 4)
jae _mulsubnocarry2 jae 3f
incl %edx /* hi += carry */ incl %edx /* hi += carry */
_mulsubnocarry2: 3:
movl %edx, 0(%esp) movl %edx, 0(%esp)
incl %ebp incl %ebp
loop _mulsubloop loop 1b
popl %eax popl %eax
subl %eax, (%edi, %ebp, 4) subl %eax, (%edi, %ebp, 4)
jae _mulsubnocarry3 jae 4f
movl $-1, %eax movl $-1, %eax
jmp done jmp 5f
_mulsubnocarry3: 4:
movl $1, %eax movl $1, %eax
done: 5:
/* Postlude */ /* Postlude */
popl %edi popl %edi
popl %esi popl %esi

18
src/libmp/386/mpvecsub-Darwin.s
View file

@ -26,31 +26,31 @@ _mpvecsub:
/* skip subraction if b is zero */ /* skip subraction if b is zero */
testl %ecx,%ecx testl %ecx,%ecx
jz _sub1 jz 2f
/* diff[0:blen-1],borrow = a[0:blen-1] - b[0:blen-1] */ /* diff[0:blen-1],borrow = a[0:blen-1] - b[0:blen-1] */
_subloop1: 1:
movl (%esi, %ebp, 4), %eax movl (%esi, %ebp, 4), %eax
sbbl (%ebx, %ebp, 4), %eax sbbl (%ebx, %ebp, 4), %eax
movl %eax, (%edi, %ebp, 4) movl %eax, (%edi, %ebp, 4)
incl %ebp incl %ebp
loop _subloop1 loop 1b
_sub1: 2:
incl %edx incl %edx
movl %edx,%ecx movl %edx,%ecx
loop _subloop2 loop 3f
jmp done jmp 4f
/* diff[blen:alen-1] = a[blen:alen-1] - 0 */ /* diff[blen:alen-1] = a[blen:alen-1] - 0 */
_subloop2: 3:
movl (%esi, %ebp, 4), %eax movl (%esi, %ebp, 4), %eax
sbbl $0, %eax sbbl $0, %eax
movl %eax, (%edi, %ebp, 4) movl %eax, (%edi, %ebp, 4)
incl %ebp incl %ebp
loop _subloop2 loop 3b
done: 4:
/* Postlude */ /* Postlude */
popl %edi popl %edi
popl %esi popl %esi