| # Copyright 2008-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 |
| $output = pop and open STDOUT,">$output"; |
| $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| require "uplink-common.pl"; |
| local $V=8; # max number of args uplink functions may accept... |
| .type OPENSSL_Uplink#,\@function |
| { .mii; .save ar.pfs,$loc0 |
| alloc loc0=ar.pfs,$V,3,2,0 |
| addl loc2=\@ltoff(OPENSSL_UplinkTable#),gp };; |
| { .mib; add loc2=8*$i,out0 |
| br.call.sptk.many b0=OPENSSL_Uplink# };; |
| .global OPENSSL_UplinkTable# |
| OPENSSL_UplinkTable: data8 $N // amount of following entries |
| for ($i=1;$i<=$N;$i++) { print " data8 \@fptr(lazy$i#)\n"; } |
| .size OPENSSL_UplinkTable,.-OPENSSL_UplinkTable# |