5 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
6 ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
7 ( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
8 die "can't locate ppc-xlate.pl";
10 open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
26 .globl .OPENSSL_ppc64_probe
33 .byte 0,12,0x14,0,0,0,0,0
34 .size .OPENSSL_ppc64_probe,.-.OPENSSL_ppc64_probe
36 .globl .OPENSSL_altivec_probe
38 .OPENSSL_altivec_probe:
39 .long 0x10000484 # vor v0,v0,v0
42 .byte 0,12,0x14,0,0,0,0,0
43 .size .OPENSSL_altivec_probe,.-..OPENSSL_altivec_probe
45 .globl .OPENSSL_wipe_cpu
75 .byte 0,12,0x14,0,0,0,0,0
76 .size .OPENSSL_wipe_cpu,.-.OPENSSL_wipe_cpu
78 .globl .OPENSSL_atomic_add
88 .byte 0,12,0x14,0,0,0,2,0
90 .size .OPENSSL_atomic_add,.-.OPENSSL_atomic_add
99 .byte 0,12,0x14,0,0,0,0,0
100 .size .OPENSSL_rdtsc,.-.OPENSSL_rdtsc
102 .globl .OPENSSL_cleanse
131 .byte 0,12,0x14,0,0,0,2,0
133 .size .OPENSSL_cleanse,.-.OPENSSL_cleanse
136 $code =~ s/\`([^\`]*)\`/eval $1/gem;