1*e0c4386eSCy Schubert#! /usr/bin/env perl 2*e0c4386eSCy Schubert# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved. 3*e0c4386eSCy Schubert# 4*e0c4386eSCy Schubert# Licensed under the Apache License 2.0 (the "License"). You may not use 5*e0c4386eSCy Schubert# this file except in compliance with the License. You can obtain a copy 6*e0c4386eSCy Schubert# in the file LICENSE in the source distribution or at 7*e0c4386eSCy Schubert# https://www.openssl.org/source/license.html 8*e0c4386eSCy Schubert 9*e0c4386eSCy Schubert# pull APPLINK_MAX value from applink.c... 10*e0c4386eSCy Schubert$applink_c=$0; 11*e0c4386eSCy Schubert$applink_c=~s|[^/\\]+$||g; 12*e0c4386eSCy Schubert$applink_c.="applink.c"; 13*e0c4386eSCy Schubertopen(INPUT,$applink_c) || die "can't open $applink_c: $!"; 14*e0c4386eSCy Schubert@max=grep {/APPLINK_MAX\s+(\d+)/} <INPUT>; 15*e0c4386eSCy Schubertclose(INPUT); 16*e0c4386eSCy Schubert($#max==0) or die "can't find APPLINK_MAX in $applink_c"; 17*e0c4386eSCy Schubert 18*e0c4386eSCy Schubert$max[0]=~/APPLINK_MAX\s+(\d+)/; 19*e0c4386eSCy Schubert$N=$1; # number of entries in OPENSSL_UplinkTable not including 20*e0c4386eSCy Schubert # OPENSSL_UplinkTable[0], which contains this value... 21*e0c4386eSCy Schubert 22*e0c4386eSCy Schubert1; 23*e0c4386eSCy Schubert 24*e0c4386eSCy Schubert# Idea is to fill the OPENSSL_UplinkTable with pointers to stubs 25*e0c4386eSCy Schubert# which invoke 'void OPENSSL_Uplink (ULONG_PTR *table,int index)'; 26*e0c4386eSCy Schubert# and then dereference themselves. Latter shall result in endless 27*e0c4386eSCy Schubert# loop *unless* OPENSSL_Uplink does not replace 'table[index]' with 28*e0c4386eSCy Schubert# something else, e.g. as 'table[index]=unimplemented;'... 29