Commit 4d1f3f7a authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

Update perl asm scripts include paths for perlasm.

parent aff686df

crypto/bf/asm/bf-586.pl

+2 −1
Original line number Diff line number Diff line 
#!/usr/local/bin/perl



push(@INC,"perlasm","../../perlasm");

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

push(@INC,"${dir}","${dir}../../perlasm");

require "x86asm.pl";

require "cbc.pl";

crypto/bn/asm/bn-586.pl

+2 −1
Original line number Diff line number Diff line 
#!/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);

crypto/bn/asm/co-586.pl

+2 −1
Original line number Diff line number Diff line 
#!/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);

crypto/cast/asm/cast-586.pl

+2 −1
Original line number Diff line number Diff line
@@ -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";

crypto/des/asm/crypt586.pl

+2 −1
Original line number Diff line number Diff line
@@ -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");