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 12use FindBin; 13use lib $FindBin::Bin; 14use thumb; 15 16print "; This file was created from a .asm file\n"; 17print "; using the ads2armasm_ms.pl script.\n"; 18 19while (<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