}
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.LAES_Te:
___
___
}
$code.=<<___;
-.rodata
+.section .rodata
.align 64
K_XX_XX:
.long 0x5a827999,0x5a827999,0x5a827999,0x5a827999 # K_00_19
}
\f
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.Lbswap_mask:
.byte 15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
___
}
$code.=<<___;
-.rodata
+.section .rodata
.type _bsaes_const,\@object
.align 64
_bsaes_const:
## Constants ##
## ##
########################################################
-.rodata
+.section .rodata
.type _vpaes_consts,\@object
.align 64
_vpaes_consts:
___
}
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.Linc:
.long 0,0, 1,1
sub S3033 { my $i=shift; $i=@SBOX[$i]; $i=($i>>1|$i<<7)&0xff; $i=$i<<24|$i<<8|$i; sprintf("0x%08x",$i); }
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.LCamellia_SIGMA:
.long 0x3bcc908b, 0xa09e667f, 0x4caa73b2, 0xb67ae858
}
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.Lbswap_mask:
.byte 15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
{ push(@out,".data\n"); }
sub ::rodataseg
-{ push(@out,".rodata\n"); }
+{ push(@out,".section .rodata\n"); }
sub ::previous
{ push(@out,".previous\n"); }
add \$12,%rax
.Ldone:
ret
-.rodata
+.section .rodata
.align 64
.Lopts:
.asciz "rc4(8x,int)"
___
}
$code.=<<___;
-.rodata
+.section .rodata
.align 64
K_XX_XX:
.long 0x5a827999,0x5a827999,0x5a827999,0x5a827999 # K_00_19
$ST $H,`7*$SZ`($ctx)
bne Lsha2_block_private
blr
- .rodata
+ .section .rodata
Ltable:
___
$code.=<<___ if ($SZ==8);
if ($SZ==4) {
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.type $TABLE,\@object
$TABLE:
___
} else {
$code.=<<___;
-.rodata
+.section .rodata
.align 64
.type $TABLE,\@object
$TABLE:
ret
.size $func,.-$func
-.rodata
+.section .rodata
.align 64
.type $table,\@object
$table: