[openssl-dev] [openssl.org #4020] #3759: [PATCH] crypto: use bigint in x86-64 perl
Jean FONGANG DASSI via RT
rt at openssl.org
Tue Aug 25 16:42:43 UTC 2015
On Solaris 10u10 X86_64, I had to do the bellow instead:
$ cat src/x86_64-xlate.pl_patch
--- openssl-1.0.2d/crypto/modes/asm/../../perlasm/x86_64-xlate.pl Thu Jul 9 13:57:15 2015
+++ ./x86_64-xlate.pl_new Tue Aug 25 18:17:20 2015
@@ -194,17 +194,17 @@
}
sub out {
my $self = shift;
-
+ use bigint;
if ($gas) {
# Solaris /usr/ccs/bin/as can't handle multiplications
# in $self->{value}
$self->{value} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;
$self->{value} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
- sprintf "\$%s",$self->{value};
+ sprintf "\$%20.0f",$self->{value};
} else {
$self->{value} =~ s/(0b[0-1]+)/oct($1)/eig;
$self->{value} =~ s/0x([0-9a-f]+)/0$1h/ig if ($masm);
- sprintf "%s",$self->{value};
+ sprintf "%20.0f",$self->{value};
}
}
}
$
Not actually safe how it is: there seems to be some number truncation in $self->{value} ...
Kind Regards,
Jean Fongang
Systems Integration Specialist
m. +27 (0)XXXXXXXX e. jeanf [our domain is: } concurrent.co.za
t. +27 (0)11 253 3660 f. +27 (0)11 656 3795
www.concurrent.co.za
Block E, Morningside Close Office Park, 222 Rivonia Road
Morningside, Sandton, South Africa PO Box 5224, Cresta 2118
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mta.openssl.org/pipermail/openssl-dev/attachments/20150825/16363593/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Concurrent-Logo-Horizontal_Web_2.jpg
Type: image/jpeg
Size: 7653 bytes
Desc: not available
URL: <http://mta.openssl.org/pipermail/openssl-dev/attachments/20150825/16363593/attachment-0001.jpg>
-------------- next part --------------
_______________________________________________
openssl-bugs-mod mailing list
openssl-bugs-mod at openssl.org
https://mta.openssl.org/mailman/listinfo/openssl-bugs-mod
More information about the openssl-dev
mailing list