Mercurial > dropbear
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"; |