comparison libtommath/dep.pl @ 1436:60fc6476e044

Update to libtommath v1.0
author Matt Johnston <matt@ucc.asn.au>
date Sat, 24 Jun 2017 22:37:14 +0800
parents eed26cff980b
children 8bba51a55704
comparison
equal deleted inserted replaced
1435:f849a5ca2efc 1436:60fc6476e044
66 my $line = $_; 66 my $line = $_;
67 while ($line =~ m/(fast_)*(s_)*mp\_[a-z_0-9]*/) { 67 while ($line =~ m/(fast_)*(s_)*mp\_[a-z_0-9]*/) {
68 $line = $'; 68 $line = $';
69 # now $& is the match, we want to skip over LTM keywords like 69 # now $& is the match, we want to skip over LTM keywords like
70 # mp_int, mp_word, mp_digit 70 # mp_int, mp_word, mp_digit
71 if (!($& eq "mp_digit") && !($& eq "mp_word") && !($& eq "mp_int")) { 71 if (!($& eq "mp_digit") && !($& eq "mp_word") && !($& eq "mp_int") && !($& eq "mp_min_u32")) {
72 my $a = $&; 72 my $a = $&;
73 $a =~ tr/[a-z]/[A-Z]/; 73 $a =~ tr/[a-z]/[A-Z]/;
74 $a = "BN_" . $a . "_C"; 74 $a = "BN_" . $a . "_C";
75 if (!($list =~ /$a/)) { 75 if (!($list =~ /$a/)) {
76 print CLASS " #define $a\n"; 76 print CLASS " #define $a\n";