projects
/
oweals
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright year
[oweals/openssl.git]
/
crypto
/
perlasm
/
arm-xlate.pl
diff --git
a/crypto/perlasm/arm-xlate.pl
b/crypto/perlasm/arm-xlate.pl
index b953f1fc19ef91bbf9141f67b01a4c31e78b6e59..f0e495d4269b985c8a715f0ae864accbb47123d6 100755
(executable)
--- a/
crypto/perlasm/arm-xlate.pl
+++ b/
crypto/perlasm/arm-xlate.pl
@@
-1,5
+1,5
@@
#! /usr/bin/env perl
#! /usr/bin/env perl
-# Copyright 2015-20
16
The OpenSSL Project Authors. All Rights Reserved.
+# Copyright 2015-20
20
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
#
# 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
@@
-103,6
+103,12
@@
my $asciz = sub {
{ ""; }
};
{ ""; }
};
+my $adrp = sub {
+ my ($args,$comment) = split(m|\s*//|,shift);
+ "\tadrp\t$args\@PAGE";
+} if ($flavour =~ /ios64/);
+
+
sub range {
my ($r,$sfx,$start,$end) = @_;
sub range {
my ($r,$sfx,$start,$end) = @_;
@@
-132,6
+138,10
@@
sub expand_line {
$line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
$line =~ s/\b(\w+)/$GLOBALS{$1} or $1/ge;
+ if ($flavour =~ /ios64/) {
+ $line =~ s/#:lo12:(\w+)/$1\@PAGEOFF/;
+ }
+
return $line;
}
return $line;
}
@@
-181,4
+191,4
@@
while(my $line=<>) {
print "\n";
}
print "\n";
}
-close STDOUT;
+close STDOUT
or die "error closing STDOUT: $!"
;