-#!/usr/bin/env perl
+#! /usr/bin/env perl
+# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the Apache License 2.0 (the "License"). You may not use
+# this file except in compliance with the License. You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
-# ARM assembler distiller by <appro>.
+use strict;
my $flavour = shift;
my $output = shift;
};
my $type = sub {
if ($flavour =~ /linux/) { ".type\t".join(',',@_); }
+ elsif ($flavour =~ /ios32/) { if (join(',',@_) =~ /(\w+),%function/) {
+ "#ifdef __thumb2__\n".
+ ".thumb_func $1\n".
+ "#endif";
+ }
+ }
else { ""; }
};
my $size = sub {
return $line;
}
-while($line=<>) {
+while(my $line=<>) {
if ($line =~ m/^\s*(#|@|\/\/)/) { print $line; next; }