X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/a117c06f5ee62cbe7812769703eada01843f76ca..8c5956c14f5834a072e1a9345ae1f356b14164ca:/math/mpx-mul4-x86-sse2.S

diff --git a/math/mpx-mul4-x86-sse2.S b/math/mpx-mul4-x86-sse2.S
index 11aadc95..904c0d0a 100644
--- a/math/mpx-mul4-x86-sse2.S
+++ b/math/mpx-mul4-x86-sse2.S
@@ -24,15 +24,13 @@
 /// MA 02111-1307, USA.
 
 ///--------------------------------------------------------------------------
-/// External definitions.
+/// Preliminaries.
 
 #include "config.h"
 #include "asm-common.h"
 
-///--------------------------------------------------------------------------
-/// Prologue.
-
 	.arch	pentium4
+
 	.text
 
 ///--------------------------------------------------------------------------
@@ -707,7 +705,7 @@ FUNC(mpx_umul4_x86_sse2)
 	pushreg	ebx
 	pushreg	esi
 	pushreg	edi
-	setfp	ebp
+	setfp
 	and	esp, ~15
 	sub	esp, 32
   endprologue
@@ -822,7 +820,7 @@ FUNC(mpxmont_mul4_x86_sse2)
 	pushreg	ebx
 	pushreg	esi
 	pushreg	edi
-	setfp	ebp
+	setfp
 	and	esp, ~15
 	sub	esp, 112
   endprologue
@@ -968,7 +966,7 @@ FUNC(mpxmont_redc4_x86_sse2)
 	pushreg	ebx
 	pushreg	esi
 	pushreg	edi
-	setfp	ebp
+	setfp
 	and	esp, ~15
 	sub	esp, 76
   endprologue
@@ -1097,7 +1095,7 @@ ENDFUNC
 	pushreg	ebx
 	pushreg	esi
 	pushreg	edi
-	setfp	ebp
+	setfp
 	and	esp, ~15
 	sub	esp, 3*32 + 4*4
   endprologue
@@ -1214,6 +1212,18 @@ FUNC(test_mul4)
 	testepilogue
 ENDFUNC
 
+FUNC(test_mul4zc)
+	testprologue [ebp + 36]
+	testldcarry [ebp + 24]
+	testexpand nil, [ebp + 32]
+	mov	edi, [ebp + 20]
+	testtop	nil, [ebp + 28]
+	call	mul4zc
+	testtail [ebp + 40]
+	testcarryout [ebp + 24]
+	testepilogue
+ENDFUNC
+
 FUNC(test_mla4)
 	testprologue [ebp + 36]
 	testldcarry [ebp + 24]
@@ -1226,6 +1236,18 @@ FUNC(test_mla4)
 	testepilogue
 ENDFUNC
 
+FUNC(test_mla4zc)
+	testprologue [ebp + 36]
+	testldcarry [ebp + 24]
+	testexpand nil, [ebp + 32]
+	mov	edi, [ebp + 20]
+	testtop	nil, [ebp + 28]
+	call	mla4zc
+	testtail [ebp + 40]
+	testcarryout [ebp + 24]
+	testepilogue
+ENDFUNC
+
 FUNC(test_mmul4)
 	testprologue [ebp + 48]
 	testexpand [ebp + 40], [ebp + 44]