annotate test/thunk/test_thunk.c @ 32:f533c5ad1b6e

- added some exception handling to thunk test, to catch w^x tests, etc.
author cslag
date Fri, 27 Nov 2015 01:11:49 +0100
parents 3e629dc19168
children bbefb8b8e74c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: test
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: test/thunk/test_thunk.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
9 Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>,
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26 #include "../../dyncall/dyncall.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 #include "../../dyncallback/dyncall_thunk.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28 #include "../../dyncallback/dyncall_alloc_wx.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 #include "../common/platformInit.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 #include "../common/platformInit.c" /* Impl. for functions only used in this translation unit */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33 /**
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 ** test: thunks with several allocation modes
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 ** such as on stack, on heap and explicit wx
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 **
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 **/
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 #include <assert.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 #include <errno.h>
32
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
41 #include <signal.h>
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
42 #include <setjmp.h>
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
43
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
44 jmp_buf jbuf;
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
45
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
46
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
47 void segv_handler(int sig)
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
48 {
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
49 longjmp(jbuf, 1);
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
50 }
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 void my_entry(const char* text)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 printf("%s: 1\n", text);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57 typedef void (printfun)(const char*);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59 void test_stack()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
60 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 DCThunk t;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
62 printfun* fp;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
63 dcbInitThunk(&t, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
64 fp = (printfun*)&t;
32
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
65 if(setjmp(jbuf) != 0)
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
66 printf("sigsegv\n");
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
67 else
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
68 fp("stack");
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71 #include <stdlib.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73 void test_heap()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75 printfun* fp;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76 DCThunk* p = (DCThunk*)malloc(sizeof(DCThunk));
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
77 if(!p) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
78 printf("0\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79 return;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
80 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81 dcbInitThunk(p, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
82 fp = (printfun*)p;
32
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
83 if(setjmp(jbuf) != 0)
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
84 printf("sigsegv\n");
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
85 else
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
86 fp("heap");
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87 free(p);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90 void test_wx()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92 DCThunk* p;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
93 printfun* fp;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
94 int err = dcAllocWX(sizeof(DCThunk), (void**)&p);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
95 if(err || !p) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
96 printf("0\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97 return;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
98 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
99 dcbInitThunk(p, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
100 fp = (printfun*)p;
32
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
101 if(setjmp(jbuf) != 0)
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
102 printf("sigsegv\n");
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
103 else
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
104 fp("wx");
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
105 dcFreeWX((void*)p, sizeof(DCThunk));
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
106 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
107
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
108 int main()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
109 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
110 dcTest_initPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
111
32
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
112 signal(SIGSEGV, segv_handler);
f533c5ad1b6e - added some exception handling to thunk test, to catch w^x tests, etc.
cslag
parents: 0
diff changeset
113
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
114 printf("Allocating ...\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
115 printf("... W^X memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
116 test_wx();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
117 printf("... heap memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
118 test_heap();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
119 printf("... stack memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
120 test_stack();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
121
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
122 dcTest_deInitPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
123
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
124 return 0;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
125 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
126