Artifact
d001d9cc70093f23f6a4a9b649227f3276542148:
0000: 2f 2a 20 54 72 61 6d 70 6f 6c 69 6e 65 20 61 63 /* Trampoline ac
0010: 63 65 73 73 6f 72 20 74 65 73 74 20 2a 2f 0a 0a cessor test */..
0020: 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 /*. * Copyright
0030: 31 39 39 35 2d 31 39 39 39 2c 20 32 30 30 32 2c 1995-1999, 2002,
0040: 20 32 30 30 35 20 42 72 75 6e 6f 20 48 61 69 62 2005 Bruno Haib
0050: 6c 65 2c 20 3c 62 72 75 6e 6f 40 63 6c 69 73 70 le, <bruno@clisp
0060: 2e 6f 72 67 3e 0a 20 2a 0a 20 2a 20 54 68 69 73 .org>. *. * This
0070: 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 is free softwar
0080: 65 20 64 69 73 74 72 69 62 75 74 65 64 20 75 6e e distributed un
0090: 64 65 72 20 74 68 65 20 47 4e 55 20 47 65 6e 65 der the GNU Gene
00a0: 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e ral Public Licen
00b0: 63 65 0a 20 2a 20 64 65 73 63 72 69 62 65 64 20 ce. * described
00c0: 69 6e 20 74 68 65 20 66 69 6c 65 20 43 4f 50 59 in the file COPY
00d0: 49 4e 47 2e 20 43 6f 6e 74 61 63 74 20 74 68 65 ING. Contact the
00e0: 20 61 75 74 68 6f 72 20 69 66 20 79 6f 75 20 64 author if you d
00f0: 6f 6e 27 74 20 68 61 76 65 20 74 68 69 73 0a 20 on't have this.
0100: 2a 20 6f 72 20 63 61 6e 27 74 20 6c 69 76 65 20 * or can't live
0110: 77 69 74 68 20 69 74 2e 20 54 68 65 72 65 20 69 with it. There i
0120: 73 20 41 42 53 4f 4c 55 54 45 4c 59 20 4e 4f 20 s ABSOLUTELY NO
0130: 57 41 52 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 WARRANTY, explic
0140: 69 74 20 6f 72 20 69 6d 70 6c 69 65 64 2c 0a 20 it or implied,.
0150: 2a 20 6f 6e 20 74 68 69 73 20 73 6f 66 74 77 61 * on this softwa
0160: 72 65 2e 0a 20 2a 2f 0a 0a 23 69 6e 63 6c 75 64 re.. */..#includ
0170: 65 20 3c 73 74 64 69 6f 2e 68 3e 0a 23 69 6e 63 e <stdio.h>.#inc
0180: 6c 75 64 65 20 3c 73 74 64 6c 69 62 2e 68 3e 0a lude <stdlib.h>.
0190: 0a 23 69 6e 63 6c 75 64 65 20 22 74 72 61 6d 70 .#include "tramp
01a0: 6f 6c 69 6e 65 2e 68 22 0a 0a 23 69 66 64 65 66 oline.h"..#ifdef
01b0: 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 74 79 70 __cplusplus.typ
01c0: 65 64 65 66 20 69 6e 74 20 28 2a 66 75 6e 63 74 edef int (*funct
01d0: 69 6f 6e 29 28 2e 2e 2e 29 3b 0a 23 65 6c 73 65 ion)(...);.#else
01e0: 0a 74 79 70 65 64 65 66 20 69 6e 74 20 28 2a 66 .typedef int (*f
01f0: 75 6e 63 74 69 6f 6e 29 28 29 3b 0a 23 65 6e 64 unction)();.#end
0200: 69 66 0a 0a 69 6e 74 20 66 20 28 69 6e 74 20 78 if..int f (int x
0210: 29 0a 7b 20 72 65 74 75 72 6e 20 78 3b 20 7d 0a ).{ return x; }.
0220: 0a 76 6f 69 64 2a 20 76 61 72 69 61 62 6c 65 3b .void* variable;
0230: 0a 0a 73 74 61 74 69 63 20 69 6e 74 20 64 61 74 ..static int dat
0240: 61 3b 0a 0a 69 6e 74 20 6d 61 69 6e 20 28 29 0a a;..int main ().
0250: 7b 0a 20 20 66 75 6e 63 74 69 6f 6e 20 63 66 20 {. function cf
0260: 3d 20 61 6c 6c 6f 63 5f 74 72 61 6d 70 6f 6c 69 = alloc_trampoli
0270: 6e 65 28 28 66 75 6e 63 74 69 6f 6e 29 26 66 2c ne((function)&f,
0280: 20 26 76 61 72 69 61 62 6c 65 2c 20 26 64 61 74 &variable, &dat
0290: 61 29 3b 0a 20 20 69 66 20 28 69 73 5f 74 72 61 a);. if (is_tra
02a0: 6d 70 6f 6c 69 6e 65 28 28 76 6f 69 64 2a 29 26 mpoline((void*)&
02b0: 6d 61 69 6e 29 29 0a 20 20 20 20 7b 20 70 72 69 main)). { pri
02c0: 6e 74 66 28 22 69 73 5f 74 72 61 6d 70 6f 6c 69 ntf("is_trampoli
02d0: 6e 65 28 26 6d 61 69 6e 29 20 72 65 74 75 72 6e ne(&main) return
02e0: 73 20 74 72 75 65 21 5c 6e 22 29 3b 20 65 78 69 s true!\n"); exi
02f0: 74 28 31 29 3b 20 7d 0a 20 20 69 66 20 28 21 69 t(1); }. if (!i
0300: 73 5f 74 72 61 6d 70 6f 6c 69 6e 65 28 28 76 6f s_trampoline((vo
0310: 69 64 2a 29 63 66 29 29 0a 20 20 20 20 7b 20 70 id*)cf)). { p
0320: 72 69 6e 74 66 28 22 69 73 5f 74 72 61 6d 70 6f rintf("is_trampo
0330: 6c 69 6e 65 28 29 20 72 65 74 75 72 6e 73 20 66 line() returns f
0340: 61 6c 73 65 21 5c 6e 22 29 3b 20 65 78 69 74 28 alse!\n"); exit(
0350: 31 29 3b 20 7d 0a 20 20 69 66 20 28 74 72 61 6d 1); }. if (tram
0360: 70 6f 6c 69 6e 65 5f 61 64 64 72 65 73 73 28 28 poline_address((
0370: 76 6f 69 64 2a 29 63 66 29 20 21 3d 20 28 66 75 void*)cf) != (fu
0380: 6e 63 74 69 6f 6e 29 26 66 29 0a 20 20 20 20 7b nction)&f). {
0390: 20 70 72 69 6e 74 66 28 22 74 72 61 6d 70 6f 6c printf("trampol
03a0: 69 6e 65 5f 61 64 64 72 65 73 73 28 29 20 64 6f ine_address() do
03b0: 65 73 6e 27 74 20 77 6f 72 6b 21 5c 6e 22 29 3b esn't work!\n");
03c0: 20 65 78 69 74 28 31 29 3b 20 7d 0a 20 20 69 66 exit(1); }. if
03d0: 20 28 74 72 61 6d 70 6f 6c 69 6e 65 5f 76 61 72 (trampoline_var
03e0: 69 61 62 6c 65 28 28 76 6f 69 64 2a 29 63 66 29 iable((void*)cf)
03f0: 20 21 3d 20 26 76 61 72 69 61 62 6c 65 29 0a 20 != &variable).
0400: 20 20 20 7b 20 70 72 69 6e 74 66 28 22 74 72 61 { printf("tra
0410: 6d 70 6f 6c 69 6e 65 5f 76 61 72 69 61 62 6c 65 mpoline_variable
0420: 28 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 6b 21 () doesn't work!
0430: 5c 6e 22 29 3b 20 65 78 69 74 28 31 29 3b 20 7d \n"); exit(1); }
0440: 0a 20 20 69 66 20 28 74 72 61 6d 70 6f 6c 69 6e . if (trampolin
0450: 65 5f 64 61 74 61 28 28 76 6f 69 64 2a 29 63 66 e_data((void*)cf
0460: 29 20 21 3d 20 26 64 61 74 61 29 0a 20 20 20 20 ) != &data).
0470: 7b 20 70 72 69 6e 74 66 28 22 74 72 61 6d 70 6f { printf("trampo
0480: 6c 69 6e 65 5f 64 61 74 61 28 29 20 64 6f 65 73 line_data() does
0490: 6e 27 74 20 77 6f 72 6b 21 5c 6e 22 29 3b 20 65 n't work!\n"); e
04a0: 78 69 74 28 31 29 3b 20 7d 0a 20 20 70 72 69 6e xit(1); }. prin
04b0: 74 66 28 22 74 65 73 74 32 20 70 61 73 73 65 64 tf("test2 passed
04c0: 2e 5c 6e 22 29 3b 0a 20 20 65 78 69 74 28 30 29 .\n");. exit(0)
04d0: 3b 0a 7d 0a ;.}.