annotate test/thunk/test_thunk.c @ 0:3e629dc19168

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:24:28 +0100
parents
children f533c5ad1b6e
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>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 void my_entry(const char* text)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44 printf("%s: 1\n", text);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
47 typedef void (printfun)(const char*);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
48
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
49 void test_stack()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
50 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
51 DCThunk t;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
52 printfun* fp;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
53 dcbInitThunk(&t, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54 fp = (printfun*)&t;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
55 fp("stack");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
56 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
57
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
58 #include <stdlib.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
59
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
60 void test_heap()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
61 {
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 DCThunk* p = (DCThunk*)malloc(sizeof(DCThunk));
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
64 if(!p) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
65 printf("0\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
66 return;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
67 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
68 dcbInitThunk(p, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 fp = (printfun*)p;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70 fp("heap");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71 free(p);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 void test_wx()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76 DCThunk* p;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
77 printfun* fp;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
78 int err = dcAllocWX(sizeof(DCThunk), (void**)&p);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79 if(err || !p) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
80 printf("0\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81 return;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
82 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
83 dcbInitThunk(p, &my_entry);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
84 fp = (printfun*)p;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
85 fp("wx");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
86 dcFreeWX((void*)p, sizeof(DCThunk));
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89 int main()
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91 dcTest_initPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
93 printf("Allocating ...\n");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
94 printf("... W^X memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
95 test_wx();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
96 printf("... heap memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97 test_heap();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
98 printf("... stack memory: ");
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
99 test_stack();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
100
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
101 dcTest_deInitPlatform();
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
102
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
103 return 0;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
104 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
105