OLD | NEW |
1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
2 ## | 2 ## |
3 ## Copyright (c) 2013 The WebM project authors. All Rights Reserved. | 3 ## Copyright (c) 2013 The WebM project authors. All Rights Reserved. |
4 ## | 4 ## |
5 ## Use of this source code is governed by a BSD-style license | 5 ## Use of this source code is governed by a BSD-style license |
6 ## that can be found in the LICENSE file in the root of the source | 6 ## that can be found in the LICENSE file in the root of the source |
7 ## tree. An additional intellectual property rights grant can be found | 7 ## tree. An additional intellectual property rights grant can be found |
8 ## in the file PATENTS. All contributing project authors may | 8 ## in the file PATENTS. All contributing project authors may |
9 ## be found in the AUTHORS file in the root of the source tree. | 9 ## be found in the AUTHORS file in the root of the source tree. |
10 ## | 10 ## |
11 | 11 |
12 package thumb; | 12 package thumb; |
13 | 13 |
14 sub FixThumbInstructions($$) | 14 sub FixThumbInstructions($$) |
15 { | 15 { |
16 my $short_branches = $_[1]; | 16 my $short_branches = $_[1]; |
17 my $branch_shift_offset = $short_branches ? 1 : 0; | 17 my $branch_shift_offset = $short_branches ? 1 : 0; |
18 | 18 |
19 # Write additions with shifts, such as "add r10, r11, lsl #8", | 19 # Write additions with shifts, such as "add r10, r11, lsl #8", |
20 # in three operand form, "add r10, r10, r11, lsl #8". | 20 # in three operand form, "add r10, r10, r11, lsl #8". |
21 s/(add\s+)(r\d+),\s*(r\d+),\s*(lsl #\d+)/$1$2, $2, $3, $4/g; | 21 s/(add\s+)(r\d+),\s*(r\d+),\s*(lsl #\d+)/$1$2, $2, $3, $4/g; |
22 | 22 |
23 # Convert additions with a non-constant shift into a sequence | 23 # Convert additions with a non-constant shift into a sequence |
24 # with left shift, addition and a right shift (to restore the | 24 # with left shift, addition and a right shift (to restore the |
25 # register to the original value). Currently the right shift | 25 # register to the original value). Currently the right shift |
26 # isn't necessary in the code base since the values in these | 26 # isn't necessary in the code base since the values in these |
27 # registers aren't used, but doing the shift for consitency. | 27 # registers aren't used, but doing the shift for consistency. |
28 # This converts instructions such as "add r12, r12, r5, lsl r4" | 28 # This converts instructions such as "add r12, r12, r5, lsl r4" |
29 # into the sequence "lsl r5, r4", "add r12, r12, r5", "lsr r5, r4". | 29 # into the sequence "lsl r5, r4", "add r12, r12, r5", "lsr r5, r4". |
30 s/^(\s*)(add)(\s+)(r\d+),\s*(r\d+),\s*(r\d+),\s*lsl (r\d+)/$1lsl$3$6, $7\n$1
$2$3$4, $5, $6\n$1lsr$3$6, $7/g; | 30 s/^(\s*)(add)(\s+)(r\d+),\s*(r\d+),\s*(r\d+),\s*lsl (r\d+)/$1lsl$3$6, $7\n$1
$2$3$4, $5, $6\n$1lsr$3$6, $7/g; |
31 | 31 |
32 # Convert loads with right shifts in the indexing into a | 32 # Convert loads with right shifts in the indexing into a |
33 # sequence of an add, load and sub. This converts | 33 # sequence of an add, load and sub. This converts |
34 # "ldrb r4, [r9, lr, asr #1]" into "add r9, r9, lr, asr #1", | 34 # "ldrb r4, [r9, lr, asr #1]" into "add r9, r9, lr, asr #1", |
35 # "ldrb r9, [r9]", "sub r9, r9, lr, asr #1". | 35 # "ldrb r9, [r9]", "sub r9, r9, lr, asr #1". |
36 s/^(\s*)(ldrb)(\s+)(r\d+),\s*\[(\w+),\s*(\w+),\s*(asr #\d+)\]/$1add $3$5, $5
, $6, $7\n$1$2$3$4, [$5]\n$1sub $3$5, $5, $6, $7/g; | 36 s/^(\s*)(ldrb)(\s+)(r\d+),\s*\[(\w+),\s*(\w+),\s*(asr #\d+)\]/$1add $3$5, $5
, $6, $7\n$1$2$3$4, [$5]\n$1sub $3$5, $5, $6, $7/g; |
37 | 37 |
(...skipping 23 matching lines...) Expand all Loading... |
61 # This assumes that r12 is free at this point. | 61 # This assumes that r12 is free at this point. |
62 s/^(\s*)addlt(\s+)pc,\s*pc,\s*(\w+),\s*lsl\s*#(\d+)/$1itttt$2lt\n$1movlt.n$2
r12, pc\n$1addlt.w$2r12, #12\n$1addlt.w$2r12, r12, $3, lsl #($4-$branch_shift_of
fset)\n$1movlt.n$2pc, r12/g; | 62 s/^(\s*)addlt(\s+)pc,\s*pc,\s*(\w+),\s*lsl\s*#(\d+)/$1itttt$2lt\n$1movlt.n$2
r12, pc\n$1addlt.w$2r12, #12\n$1addlt.w$2r12, r12, $3, lsl #($4-$branch_shift_of
fset)\n$1movlt.n$2pc, r12/g; |
63 | 63 |
64 # Convert "mov pc, lr" into "bx lr", since the former only works | 64 # Convert "mov pc, lr" into "bx lr", since the former only works |
65 # for switching from arm to thumb (and only in armv7), but not | 65 # for switching from arm to thumb (and only in armv7), but not |
66 # from thumb to arm. | 66 # from thumb to arm. |
67 s/mov(\s*)pc\s*,\s*lr/bx$1lr/g; | 67 s/mov(\s*)pc\s*,\s*lr/bx$1lr/g; |
68 } | 68 } |
69 | 69 |
70 1; | 70 1; |
OLD | NEW |