generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update perl asm scripts include paths for perlasm.

Browse Source
This commit is contained in:
Dr. Stephen Henson 2008-01-05 22:28:38 +00:00
parent aff686df91
commit 4d1f3f7a6c
10 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
crypto/bf/asm/bf-586.pl
View File

@ -1,6 +1,7 @@
#!/usr/local/bin/perl
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
require "cbc.pl";

3
crypto/bn/asm/bn-586.pl
View File

@ -1,6 +1,7 @@
#!/usr/local/bin/perl
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],$0);

3
crypto/bn/asm/co-586.pl
View File

@ -1,6 +1,7 @@
#!/usr/local/bin/perl
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],$0);

3
crypto/cast/asm/cast-586.pl
View File

@ -3,7 +3,8 @@
# define for pentium pro friendly version
$ppro=1;
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
require "cbc.pl";

3
crypto/des/asm/crypt586.pl
View File

@ -6,7 +6,8 @@
# things perfect.
#
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],"crypt586.pl");

3
crypto/des/asm/des-586.pl
View File

@ -4,7 +4,8 @@
# Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk>
#
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
require "cbc.pl";
require "desboth.pl";

3
crypto/md5/asm/md5-586.pl
View File

@ -7,7 +7,8 @@
$normal=0;
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],$0);

3
crypto/ripemd/asm/rmd-586.pl
View File

@ -5,7 +5,8 @@
$normal=0;
push(@INC,"perlasm","../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],$0);

3
crypto/whrlpool/asm/wp-mmx.pl
View File

@ -45,7 +45,8 @@
# non-MMX implementation would actually pay off, but till
# opposite is proved "unlikely" is assumed.
push(@INC,"../../perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC,"${dir}","${dir}../../perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],"wp-mmx.pl");

3
crypto/x86cpuid.pl
View File

@ -1,6 +1,7 @@
#!/usr/bin/env perl
push(@INC,"perlasm");
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC, "${dir}perlasm", "perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],"x86cpuid");