diff options
author | Andy Polyakov <appro@openssl.org> | 2007-03-20 08:55:58 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2007-03-20 08:55:58 +0000 |
commit | 8b71d354587351af20d9726177636f7b4b7fec78 (patch) | |
tree | a3994d8d5f67815888f156c8bc11c9aa0299f466 /crypto | |
parent | 760e3535282fda7751b222b2d82012e0e616ddeb (diff) |
nasm fixes.
Diffstat (limited to 'crypto')
-rw-r--r-- | crypto/bn/asm/bn-586.pl | 2 | ||||
-rwxr-xr-x | crypto/bn/asm/x86-mont.pl | 10 | ||||
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 3 |
3 files changed, 8 insertions, 7 deletions
diff --git a/crypto/bn/asm/bn-586.pl b/crypto/bn/asm/bn-586.pl index 3651c0d818..1468906be1 100644 --- a/crypto/bn/asm/bn-586.pl +++ b/crypto/bn/asm/bn-586.pl @@ -340,7 +340,7 @@ sub bn_sqr_words &movd("mm0",&DWP(0,$a)); # mm0 = a[i] &pmuludq("mm0","mm0"); # a[i] *= a[i] &lea($a,&DWP(4,$a)); # a++ - &movq(&DWP(0,$r),"mm0"); # r[i] = a[i]*a[i] + &movq(&QWP(0,$r),"mm0"); # r[i] = a[i]*a[i] &sub($c,1); &lea($r,&DWP(8,$r)); # r += 2 &jnz(&label("sqr_sse2_loop")); diff --git a/crypto/bn/asm/x86-mont.pl b/crypto/bn/asm/x86-mont.pl index 81ab77dbb2..319c17de65 100755 --- a/crypto/bn/asm/x86-mont.pl +++ b/crypto/bn/asm/x86-mont.pl @@ -51,7 +51,7 @@ $_rp=&DWP(4*1,"esp"); $_ap=&DWP(4*2,"esp"); $_bp=&DWP(4*3,"esp"); $_np=&DWP(4*4,"esp"); -$_n0=&DWP(4*5,"esp"); +$_n0=&DWP(4*5,"esp"); $_n0q=&QWP(4*5,"esp"); $_sp=&DWP(4*6,"esp"); $_bpend=&DWP(4*7,"esp"); $frame=32; # size of above frame rounded up to 16n @@ -136,7 +136,7 @@ $mask="mm7"; &movq ($acc0,$mul1); # I wish movd worked for &pand ($acc0,$mask); # inter-register transfers - &pmuludq($mul1,$_n0); # *=n0 + &pmuludq($mul1,$_n0q); # *=n0 &pmuludq($car1,$mul1); # "t[0]"*np[0]*n0 &paddq ($car1,$acc0); @@ -181,7 +181,7 @@ $mask="mm7"; &psrlq ($car1,32); &paddq ($car1,$car0); - &movq (&DWP($frame,"esp",$num,4),$car1); # tp[num].tp[num-1] + &movq (&QWP($frame,"esp",$num,4),$car1); # tp[num].tp[num-1] &inc ($i); # i++ &set_label("outer"); @@ -198,7 +198,7 @@ $mask="mm7"; &movq ($car0,$mul1); &pand ($acc0,$mask); - &pmuludq($mul1,$_n0); # *=n0 + &pmuludq($mul1,$_n0q); # *=n0 &pmuludq($car1,$mul1); &paddq ($car1,$acc0); @@ -250,7 +250,7 @@ $mask="mm7"; &movd ($temp,&DWP($frame+4,"esp",$num,4)); # += tp[num] &paddq ($car1,$car0); &paddq ($car1,$temp); - &movq (&DWP($frame,"esp",$num,4),$car1); # tp[num].tp[num-1] + &movq (&QWP($frame,"esp",$num,4),$car1); # tp[num].tp[num-1] &lea ($i,&DWP(1,$i)); # i++ &cmp ($i,$num); diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index be439f44e9..9969012e21 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -81,7 +81,7 @@ sub get_mem } sub ::BP { &get_mem("BYTE",@_); } sub ::DWP { &get_mem("DWORD",@_); } -sub ::QWP { &get_mem("QWORD",@_); } +sub ::QWP { &get_mem("",@_); } sub ::BC { (($::mwerks)?"":"BYTE ")."@_"; } sub ::DWC { (($::mwerks)?"":"DWORD ")."@_"; } @@ -160,6 +160,7 @@ dd ${lprfx}OPENSSL_ia32cap_init segment .bss common ${under}OPENSSL_ia32cap_P 4 ___ + grep {s/(^extern\s+${under}OPENSSL_ia32cap_P)/\;$1/} @out; push (@out,$tmp); } } |