src/third_party/libvpx/source/libvpx/build/make/ads2armasm_ms.pl

   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