diff options
author | William Wilgus <me.theuser@yahoo.com> | 2019-01-04 02:01:18 -0600 |
---|---|---|
committer | Solomon Peachy <pizza@shaftnet.org> | 2021-04-23 14:23:04 +0000 |
commit | 14c6bb798d6bebc80f07e863236adbaf8d156a9c (patch) | |
tree | 551a4b641906c2626af844fa3239c1b2b1ff0ad3 /lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl | |
parent | 75d93937965ec4df70d37df6d4feea04577c996b (diff) | |
download | rockbox-14c6bb798d6bebc80f07e863236adbaf8d156a9c.tar.gz rockbox-14c6bb798d6bebc80f07e863236adbaf8d156a9c.zip |
Sync opus codec to upstream git
Change-Id: I0cfcc0005c4ad7bfbb1aaf454188ce70fb043dc1
Diffstat (limited to 'lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl')
-rwxr-xr-x | lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl | 353 |
1 files changed, 353 insertions, 0 deletions
diff --git a/lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl b/lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl new file mode 100755 index 0000000000..a2895f7445 --- /dev/null +++ b/lib/rbcodec/codecs/libopus/celt/arm/arm2gnu.pl | |||
@@ -0,0 +1,353 @@ | |||
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 = $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 | } | ||