On 2014-01-03 18:42:10 +0200, Martin Storsjö wrote:
> The built-in arm assembler in clang doesn't support .dn/.qn
> aliases, even Apple's normal standalone binutils-derived as
> supports them.
> ---
> Updated to handle the .unreq before adding the case-insensitive unreq
> aliases (which shouldn't make much of a difference, but this way there's
> less chance of the two cases interfering).
>
> Also updated to handle [n] indexes, and to not require any type suffix,
> and reordered the checks, as suggested by Janne.
> ---
> gas-preprocessor.pl | 30 ++++++++++++++++++++++++++++++
> 1 file changed, 30 insertions(+)
>
> diff --git a/gas-preprocessor.pl b/gas-preprocessor.pl
> index 54694c5..8720a1c 100755
> --- a/gas-preprocessor.pl
> +++ b/gas-preprocessor.pl
> @@ -408,6 +408,9 @@ my %call_targets;
> my @irp_args;
> my $irp_param;
>
> +my %neon_alias_reg;
> +my %neon_alias_type;
> +
> # pass 2: parse .rept and .if variants
> foreach my $line (@pass1_lines) {
> # handle .previous (only with regard to .section not .subsection)
> @@ -474,6 +477,13 @@ foreach my $line (@pass1_lines) {
> }
> }
>
> + if ($line =~ /\.unreq\s+(.*)/) {
> + if (defined $neon_alias_reg{$1}) {
> + delete $neon_alias_reg{$1};
> + delete $neon_alias_type{$1};
> + next;
> + }
> + }
> # old gas versions store upper and lower case names on .req,
> # but they remove only one on .unreq
> if ($fix_unreq) {
> @@ -483,6 +493,26 @@ foreach my $line (@pass1_lines) {
> }
> }
>
> + if ($line =~ /(\w+)\s+\.(dn|qn)\s+(\w+)(?:\.(\w+))?(\[\d+\])?/) {
> + $neon_alias_reg{$1} = "$3$5";
> + $neon_alias_type{$1} = $4;
> + next;
> + }
> + if (scalar keys %neon_alias_reg > 0 && $line =~ /^\s+v\w+/) {
> + # This line seems to possibly have a neon instruction
> + foreach (keys %neon_alias_reg) {
> + my $alias = $_;
> + # Require the register alias to match as an invididual word, not
> as a substring
> + # of a larger word-token.
> + if ($line =~ /\b$alias\b/) {
> + $line =~ s/\b$alias\b/$neon_alias_reg{$alias}/g;
> + # Add the type suffix. If multiple aliases match on the same
> line,
> + # only do this replacement the first time (a vfoo.bar string
> won't match v\w+).
> + $line =~
> s/^(\s+)(v\w+)(\s+)/$1$2.$neon_alias_type{$alias}$3/;
> + }
> + }
> + }
> +
> if ($line =~ /\.rept\s+(.*)/) {
> $num_repts = $1;
> @rept_lines = ("\n");
ok
Janne
_______________________________________________
libav-devel mailing list
[email protected]
https://lists.libav.org/mailman/listinfo/libav-devel
