Fix RTCD on ARM with Neon Intrinsics but not ASM.
[opus.git] / celt / arm / arm2gnu.pl
1 #!/usr/bin/perl
2 # Copyright (C) 2002-2013 Xiph.org Foundation
3 #
4 # Redistribution and use in source and binary forms, with or without
5 # modification, are permitted provided that the following conditions
6 # are met:
7 #
8 # - Redistributions of source code must retain the above copyright
9 # notice, this list of conditions and the following disclaimer.
10 #
11 # - Redistributions in binary form must reproduce the above copyright
12 # notice, this list of conditions and the following disclaimer in the
13 # documentation and/or other materials provided with the distribution.
14 #
15 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
16 # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
17 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
18 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
19 # OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
20 # EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
21 # PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
22 # PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
23 # LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
24 # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
25 # SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26
27 my $bigend;  # little/big endian
28 my $nxstack;
29 my $apple = 0;
30 my $symprefix = "";
31
32 $nxstack = 0;
33
34 eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
35     if $running_under_some_shell;
36
37 while ($ARGV[0] =~ /^-/) {
38     $_ = shift;
39   last if /^--$/;
40     if (/^-n$/) {
41     $nflag++;
42     next;
43     }
44     if (/^--apple$/) {
45         $apple = 1;
46         $symprefix = "_";
47         next;
48     }
49     die "I don't recognize this switch: $_\\n";
50 }
51 $printit++ unless $nflag;
52
53 $\ = "\n";      # automatically add newline on print
54 $n=0;
55
56 $thumb = 0;     # ARM mode by default, not Thumb.
57 @proc_stack = ();
58
59 printf ("    .syntax unified\n");
60
61 LINE:
62 while (<>) {
63
64     # For ADRLs we need to add a new line after the substituted one.
65     $addPadding = 0;
66
67     # First, we do not dare to touch *anything* inside double quotes, do we?
68     # Second, if you want a dollar character in the string,
69     # insert two of them -- that's how ARM C and assembler treat strings.
70     s/^([A-Za-z_]\w*)[ \t]+DCB[ \t]*\"/$1:   .ascii \"/   && do { s/\$\$/\$/g; next };
71     s/\bDCB\b[ \t]*\"/.ascii \"/                          && do { s/\$\$/\$/g; next };
72     s/^(\S+)\s+RN\s+(\S+)/$1 .req r$2/                    && do { s/\$\$/\$/g; next };
73     # If there's nothing on a line but a comment, don't try to apply any further
74     #  substitutions (this is a cheap hack to avoid mucking up the license header)
75     s/^([ \t]*);/$1@/                                     && do { s/\$\$/\$/g; next };
76     # If substituted -- leave immediately !
77
78     s/@/,:/;
79     s/;/@/;
80     while ( /@.*'/ ) {
81       s/(@.*)'/$1/g;
82     }
83     s/\{FALSE\}/0/g;
84     s/\{TRUE\}/1/g;
85     s/\{(\w\w\w\w+)\}/$1/g;
86     s/\bINCLUDE[ \t]*([^ \t\n]+)/.include \"$1\"/;
87     s/\bGET[ \t]*([^ \t\n]+)/.include \"${ my $x=$1; $x =~ s|\.s|-gnu.S|; \$x }\"/;
88     s/\bIMPORT\b/.extern/;
89     s/\bEXPORT\b\s*/.global $symprefix/;
90     s/^(\s+)\[/$1IF/;
91     s/^(\s+)\|/$1ELSE/;
92     s/^(\s+)\]/$1ENDIF/;
93     s/IF *:DEF:/ .ifdef/;
94     s/IF *:LNOT: *:DEF:/ .ifndef/;
95     s/ELSE/ .else/;
96     s/ENDIF/ .endif/;
97
98     if( /\bIF\b/ ) {
99       s/\bIF\b/ .if/;
100       s/=/==/;
101     }
102     if ( $n == 2) {
103         s/\$/\\/g;
104     }
105     if ($n == 1) {
106         s/\$//g;
107         s/label//g;
108     $n = 2;
109       }
110     if ( /MACRO/ ) {
111       s/MACRO *\n/.macro/;
112       $n=1;
113     }
114     if ( /\bMEND\b/ ) {
115       s/\bMEND\b/.endm/;
116       $n=0;
117     }
118
119     # ".rdata" doesn't work in 'as' version 2.13.2, as it is ".rodata" there.
120     #
121     if ( /\bAREA\b/ ) {
122         my $align;
123         $align = "2";
124         if ( /ALIGN=(\d+)/ ) {
125             $align = $1;
126         }
127         if ( /CODE/ ) {
128             $nxstack = 1;
129         }
130         s/^(.+)CODE(.+)READONLY(.*)/    .text/;
131         s/^(.+)DATA(.+)READONLY(.*)/    .section .rdata/;
132         s/^(.+)\|\|\.data\|\|(.+)/    .data/;
133         s/^(.+)\|\|\.bss\|\|(.+)/    .bss/;
134         s/$/;   .p2align $align/;
135         # Enable NEON instructions but don't produce a binary that requires
136         # ARMv7. RVCT does not have equivalent directives, so we just do this
137         # for all CODE areas.
138         if ( /.text/ ) {
139             # Separating .arch, .fpu, etc., by semicolons does not work (gas
140             # thinks the semicolon is part of the arch name, even when there's
141             # whitespace separating them). Sadly this means our line numbers
142             # won't match the original source file (we could use the .line
143             # directive, which is documented to be obsolete, but then gdb will
144             # show the wrong line in the translated source file).
145             s/$/;   .arch armv7-a\n   .fpu neon\n   .object_arch armv4t/ unless ($apple);
146         }
147     }
148
149     s/\|\|\.constdata\$(\d+)\|\|/.L_CONST$1/;       # ||.constdata$3||
150     s/\|\|\.bss\$(\d+)\|\|/.L_BSS$1/;               # ||.bss$2||
151     s/\|\|\.data\$(\d+)\|\|/.L_DATA$1/;             # ||.data$2||
152     s/\|\|([a-zA-Z0-9_]+)\@([a-zA-Z0-9_]+)\|\|/@ $&/;
153     s/^(\s+)\%(\s)/    .space $1/;
154
155     s/\|(.+)\.(\d+)\|/\.$1_$2/;                     # |L80.123| -> .L80_123
156     s/\bCODE32\b/.code 32/ && do {$thumb = 0};
157     s/\bCODE16\b/.code 16/ && do {$thumb = 1};
158     if (/\bPROC\b/)
159     {
160         my $prefix;
161         my $proc;
162         /^([A-Za-z_\.]\w+)\b/;
163         $proc = $1;
164         $prefix = "";
165         if ($proc)
166         {
167             $prefix = $prefix.sprintf("\t.type\t%s, %%function; ",$proc) unless ($apple);
168             # Make sure we $prefix isn't empty here (for the $apple case).
169             # We handle mangling the label here, make sure it doesn't match
170             # the label handling below (if $prefix would be empty).
171             $prefix = "; ";
172             push(@proc_stack, $proc);
173             s/^[A-Za-z_\.]\w+/$symprefix$&:/;
174         }
175         $prefix = $prefix."\t.thumb_func; " if ($thumb);
176         s/\bPROC\b/@ $&/;
177         $_ = $prefix.$_;
178     }
179     s/^(\s*)(S|Q|SH|U|UQ|UH)ASX\b/$1$2ADDSUBX/;
180     s/^(\s*)(S|Q|SH|U|UQ|UH)SAX\b/$1$2SUBADDX/;
181     if (/\bENDP\b/)
182     {
183         my $proc;
184         s/\bENDP\b/@ $&/;
185         $proc = pop(@proc_stack);
186         $_ = "\t.size $proc, .-$proc".$_ if ($proc && !$apple);
187     }
188     s/\bSUBT\b/@ $&/;
189     s/\bDATA\b/@ $&/;   # DATA directive is deprecated -- Asm guide, p.7-25
190     s/\bKEEP\b/@ $&/;
191     s/\bEXPORTAS\b/@ $&/;
192     s/\|\|(.)+\bEQU\b/@ $&/;
193     s/\|\|([\w\$]+)\|\|/$1/;
194     s/\bENTRY\b/@ $&/;
195     s/\bASSERT\b/@ $&/;
196     s/\bGBLL\b/@ $&/;
197     s/\bGBLA\b/@ $&/;
198     s/^\W+OPT\b/@ $&/;
199     s/:OR:/|/g;
200     s/:SHL:/<</g;
201     s/:SHR:/>>/g;
202     s/:AND:/&/g;
203     s/:LAND:/&&/g;
204     s/CPSR/cpsr/;
205     s/SPSR/spsr/;
206     s/ALIGN$/.balign 4/;
207     s/ALIGN\s+([0-9x]+)$/.balign $1/;
208     s/psr_cxsf/psr_all/;
209     s/LTORG/.ltorg/;
210     s/^([A-Za-z_]\w*)[ \t]+EQU/ .set $1,/;
211     s/^([A-Za-z_]\w*)[ \t]+SETL/ .set $1,/;
212     s/^([A-Za-z_]\w*)[ \t]+SETA/ .set $1,/;
213     s/^([A-Za-z_]\w*)[ \t]+\*/ .set $1,/;
214
215     #  {PC} + 0xdeadfeed  -->  . + 0xdeadfeed
216     s/\{PC\} \+/ \. +/;
217
218     # Single hex constant on the line !
219     #
220     # >>> NOTE <<<
221     #   Double-precision floats in gcc are always mixed-endian, which means
222     #   bytes in two words are little-endian, but words are big-endian.
223     #   So, 0x0000deadfeed0000 would be stored as 0x0000dead at low address
224     #   and 0xfeed0000 at high address.
225     #
226     s/\bDCFD\b[ \t]+0x([a-fA-F0-9]{8})([a-fA-F0-9]{8})/.long 0x$1, 0x$2/;
227     # Only decimal constants on the line, no hex !
228     s/\bDCFD\b[ \t]+([0-9\.\-]+)/.double $1/;
229
230     # Single hex constant on the line !
231 #    s/\bDCFS\b[ \t]+0x([a-f0-9]{8})([a-f0-9]{8})/.long 0x$1, 0x$2/;
232     # Only decimal constants on the line, no hex !
233 #    s/\bDCFS\b[ \t]+([0-9\.\-]+)/.double $1/;
234     s/\bDCFS[ \t]+0x/.word 0x/;
235     s/\bDCFS\b/.float/;
236
237     s/^([A-Za-z_]\w*)[ \t]+DCD/$1 .word/;
238     s/\bDCD\b/.word/;
239     s/^([A-Za-z_]\w*)[ \t]+DCW/$1 .short/;
240     s/\bDCW\b/.short/;
241     s/^([A-Za-z_]\w*)[ \t]+DCB/$1 .byte/;
242     s/\bDCB\b/.byte/;
243     s/^([A-Za-z_]\w*)[ \t]+\%/.comm $1,/;
244     s/^[A-Za-z_\.]\w+/$&:/;
245     s/^(\d+)/$1:/;
246     s/\%(\d+)/$1b_or_f/;
247     s/\%[Bb](\d+)/$1b/;
248     s/\%[Ff](\d+)/$1f/;
249     s/\%[Ff][Tt](\d+)/$1f/;
250     s/&([\dA-Fa-f]+)/0x$1/;
251     if ( /\b2_[01]+\b/ ) {
252       s/\b2_([01]+)\b/conv$1&&&&/g;
253       while ( /[01][01][01][01]&&&&/ ) {
254         s/0000&&&&/&&&&0/g;
255         s/0001&&&&/&&&&1/g;
256         s/0010&&&&/&&&&2/g;
257         s/0011&&&&/&&&&3/g;
258         s/0100&&&&/&&&&4/g;
259         s/0101&&&&/&&&&5/g;
260         s/0110&&&&/&&&&6/g;
261         s/0111&&&&/&&&&7/g;
262         s/1000&&&&/&&&&8/g;
263         s/1001&&&&/&&&&9/g;
264         s/1010&&&&/&&&&A/g;
265         s/1011&&&&/&&&&B/g;
266         s/1100&&&&/&&&&C/g;
267         s/1101&&&&/&&&&D/g;
268         s/1110&&&&/&&&&E/g;
269         s/1111&&&&/&&&&F/g;
270       }
271       s/000&&&&/&&&&0/g;
272       s/001&&&&/&&&&1/g;
273       s/010&&&&/&&&&2/g;
274       s/011&&&&/&&&&3/g;
275       s/100&&&&/&&&&4/g;
276       s/101&&&&/&&&&5/g;
277       s/110&&&&/&&&&6/g;
278       s/111&&&&/&&&&7/g;
279       s/00&&&&/&&&&0/g;
280       s/01&&&&/&&&&1/g;
281       s/10&&&&/&&&&2/g;
282       s/11&&&&/&&&&3/g;
283       s/0&&&&/&&&&0/g;
284       s/1&&&&/&&&&1/g;
285       s/conv&&&&/0x/g;
286     }
287
288     if ( /commandline/)
289     {
290         if( /-bigend/)
291         {
292             $bigend=1;
293         }
294     }
295
296     if ( /\bDCDU\b/ )
297     {
298         my $cmd=$_;
299         my $value;
300         my $prefix;
301         my $w1;
302         my $w2;
303         my $w3;
304         my $w4;
305
306         s/\s+DCDU\b/@ $&/;
307
308         $cmd =~ /\bDCDU\b\s+0x(\d+)/;
309         $value = $1;
310         $value =~ /(\w\w)(\w\w)(\w\w)(\w\w)/;
311         $w1 = $1;
312         $w2 = $2;
313         $w3 = $3;
314         $w4 = $4;
315
316         if( $bigend ne "")
317         {
318             # big endian
319             $prefix = "\t.byte\t0x".$w1.";".
320                       "\t.byte\t0x".$w2.";".
321                       "\t.byte\t0x".$w3.";".
322                       "\t.byte\t0x".$w4."; ";
323         }
324         else
325         {
326             # little endian
327             $prefix = "\t.byte\t0x".$w4.";".
328                       "\t.byte\t0x".$w3.";".
329                       "\t.byte\t0x".$w2.";".
330                       "\t.byte\t0x".$w1."; ";
331         }
332         $_=$prefix.$_;
333     }
334
335     if ( /\badrl\b/i )
336     {
337         s/\badrl\s+(\w+)\s*,\s*(\w+)/ldr $1,=$2/i;
338         $addPadding = 1;
339     }
340     s/\bEND\b/@ END/;
341 } continue {
342     printf ("%s", $_) if $printit;
343     if ($addPadding != 0)
344     {
345         printf ("   mov r0,r0\n");
346         $addPadding = 0;
347     }
348 }
349 #If we had a code section, mark that this object doesn't need an executable
350 # stack.
351 if ($nxstack && !$apple) {
352     printf ("    .section\t.note.GNU-stack,\"\",\%\%progbits\n");
353 }