Artifact
fa7ee057dd5997e904aae780b0f9b06c2457b385:
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 5f 72 2e 68 22 0a 0a 23 69 66 64 oline_r.h"..#ifd
01b0: 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 74 ef __cplusplus.t
01c0: 79 70 65 64 65 66 20 69 6e 74 20 28 2a 66 75 6e ypedef int (*fun
01d0: 63 74 69 6f 6e 29 28 2e 2e 2e 29 3b 0a 23 65 6c ction)(...);.#el
01e0: 73 65 0a 74 79 70 65 64 65 66 20 69 6e 74 20 28 se.typedef int (
01f0: 2a 66 75 6e 63 74 69 6f 6e 29 28 29 3b 0a 23 65 *function)();.#e
0200: 6e 64 69 66 0a 0a 69 6e 74 20 66 20 28 69 6e 74 ndif..int f (int
0210: 20 78 29 0a 7b 20 72 65 74 75 72 6e 20 78 3b 20 x).{ return x;
0220: 7d 0a 0a 23 64 65 66 69 6e 65 20 4d 41 47 49 43 }..#define MAGIC
0230: 31 20 20 30 78 39 64 62 39 61 66 34 32 0a 23 64 1 0x9db9af42.#d
0240: 65 66 69 6e 65 20 4d 41 47 49 43 32 20 20 30 78 efine MAGIC2 0x
0250: 36 31 34 61 31 33 63 39 0a 0a 69 6e 74 20 6d 61 614a13c9..int ma
0260: 69 6e 20 28 29 0a 7b 0a 20 20 66 75 6e 63 74 69 in ().{. functi
0270: 6f 6e 20 63 66 20 3d 20 61 6c 6c 6f 63 5f 74 72 on cf = alloc_tr
0280: 61 6d 70 6f 6c 69 6e 65 5f 72 28 28 66 75 6e 63 ampoline_r((func
0290: 74 69 6f 6e 29 26 66 2c 20 28 76 6f 69 64 2a 29 tion)&f, (void*)
02a0: 4d 41 47 49 43 31 2c 20 28 76 6f 69 64 2a 29 4d MAGIC1, (void*)M
02b0: 41 47 49 43 32 29 3b 0a 20 20 69 66 20 28 69 73 AGIC2);. if (is
02c0: 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 28 28 76 _trampoline_r((v
02d0: 6f 69 64 2a 29 26 6d 61 69 6e 29 29 0a 20 20 20 oid*)&main)).
02e0: 20 7b 20 70 72 69 6e 74 66 28 22 69 73 5f 74 72 { printf("is_tr
02f0: 61 6d 70 6f 6c 69 6e 65 5f 72 28 26 6d 61 69 6e ampoline_r(&main
0300: 29 20 72 65 74 75 72 6e 73 20 74 72 75 65 21 5c ) returns true!\
0310: 6e 22 29 3b 20 65 78 69 74 28 31 29 3b 20 7d 0a n"); exit(1); }.
0320: 20 20 69 66 20 28 21 69 73 5f 74 72 61 6d 70 6f if (!is_trampo
0330: 6c 69 6e 65 5f 72 28 28 76 6f 69 64 2a 29 63 66 line_r((void*)cf
0340: 29 29 0a 20 20 20 20 7b 20 70 72 69 6e 74 66 28 )). { printf(
0350: 22 69 73 5f 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 "is_trampoline_r
0360: 28 29 20 72 65 74 75 72 6e 73 20 66 61 6c 73 65 () returns false
0370: 21 5c 6e 22 29 3b 20 65 78 69 74 28 31 29 3b 20 !\n"); exit(1);
0380: 7d 0a 20 20 69 66 20 28 74 72 61 6d 70 6f 6c 69 }. if (trampoli
0390: 6e 65 5f 72 5f 61 64 64 72 65 73 73 28 28 76 6f ne_r_address((vo
03a0: 69 64 2a 29 63 66 29 20 21 3d 20 28 66 75 6e 63 id*)cf) != (func
03b0: 74 69 6f 6e 29 26 66 29 0a 20 20 20 20 7b 20 70 tion)&f). { p
03c0: 72 69 6e 74 66 28 22 74 72 61 6d 70 6f 6c 69 6e rintf("trampolin
03d0: 65 5f 72 5f 61 64 64 72 65 73 73 28 29 20 64 6f e_r_address() do
03e0: 65 73 6e 27 74 20 77 6f 72 6b 21 5c 6e 22 29 3b esn't work!\n");
03f0: 20 65 78 69 74 28 31 29 3b 20 7d 0a 20 20 69 66 exit(1); }. if
0400: 20 28 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 5f 64 (trampoline_r_d
0410: 61 74 61 30 28 28 76 6f 69 64 2a 29 63 66 29 20 ata0((void*)cf)
0420: 21 3d 20 28 76 6f 69 64 2a 29 4d 41 47 49 43 31 != (void*)MAGIC1
0430: 29 0a 20 20 20 20 7b 20 70 72 69 6e 74 66 28 22 ). { printf("
0440: 74 72 61 6d 70 6f 6c 69 6e 65 5f 72 5f 64 61 74 trampoline_r_dat
0450: 61 30 28 29 20 64 6f 65 73 6e 27 74 20 77 6f 72 a0() doesn't wor
0460: 6b 21 5c 6e 22 29 3b 20 65 78 69 74 28 31 29 3b k!\n"); exit(1);
0470: 20 7d 0a 20 20 69 66 20 28 74 72 61 6d 70 6f 6c }. if (trampol
0480: 69 6e 65 5f 72 5f 64 61 74 61 31 28 28 76 6f 69 ine_r_data1((voi
0490: 64 2a 29 63 66 29 20 21 3d 20 28 76 6f 69 64 2a d*)cf) != (void*
04a0: 29 4d 41 47 49 43 32 29 0a 20 20 20 20 7b 20 70 )MAGIC2). { p
04b0: 72 69 6e 74 66 28 22 74 72 61 6d 70 6f 6c 69 6e rintf("trampolin
04c0: 65 5f 72 5f 64 61 74 61 31 28 29 20 64 6f 65 73 e_r_data1() does
04d0: 6e 27 74 20 77 6f 72 6b 21 5c 6e 22 29 3b 20 65 n't work!\n"); e
04e0: 78 69 74 28 31 29 3b 20 7d 0a 20 20 70 72 69 6e xit(1); }. prin
04f0: 74 66 28 22 74 65 73 74 32 20 70 61 73 73 65 64 tf("test2 passed
0500: 2e 5c 6e 22 29 3b 0a 20 20 65 78 69 74 28 30 29 .\n");. exit(0)
0510: 3b 0a 7d 0a ;.}.