1 #!/usr/bin/env perl 2 ## 3 ## Copyright (c) 2013 The WebM project authors. All Rights Reserved. 4 ## 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 7 ## tree. An additional intellectual property rights grant can be found 8 ## in the file PATENTS. All contributing project authors may 9 ## be found in the AUTHORS file in the root of the source tree. 10 ## 11 12 use FindBin; 13 use lib $FindBin::Bin; 14 use thumb; 15 16 print "; This file was created from a .asm file\n"; 17 print "; using the ads2armasm_ms.pl script.\n"; 18 19 while (<STDIN>) 20 { 21 undef $comment; 22 undef $line; 23 24 s/REQUIRE8//; 25 s/PRESERVE8//; 26 s/^\s*ARM\s*$//; 27 s/AREA\s+\|\|(.*)\|\|/AREA |$1|/; 28 s/qsubaddx/qsax/i; 29 s/qaddsubx/qasx/i; 30 31 thumb::FixThumbInstructions($_, 1); 32 33 s/ldrneb/ldrbne/i; 34 s/ldrneh/ldrhne/i; 35 s/^(\s*)ENDP.*/$&\n$1ALIGN 4/; 36 37 print; 38 } 39 40
