1
2 #include <stdio.h>
3 #include <stdlib.h>
4 #include "valgrind.h"
5
6 /* As wrap4.c, but also throw in various calls to another redirected
7 function (malloc) to check that that doesn't screw anything up.
8 */
9
10 typedef
11 struct _Lard {
12 struct _Lard* next;
13 char stuff[999];
14 }
15 Lard;
16
17 Lard* lard = NULL;
18 static int ctr = 0;
19
addMoreLard(void)20 void addMoreLard ( void )
21 {
22 Lard* p;
23 ctr++;
24 if ((ctr % 3) == 1) {
25 p = malloc(sizeof(Lard));
26 p->next = lard;
27 lard = p;
28 }
29 }
30
31
32 static int fact1 ( int n );
33 static int fact2 ( int n );
34
35 /* This is needed to stop gcc4 turning 'fact' into a loop */
36 __attribute__((noinline))
mul(int x,int y)37 int mul ( int x, int y ) { return x * y; }
38
fact1(int n)39 int fact1 ( int n )
40 {
41 addMoreLard();
42 if (n == 0) return 1; else return mul(n, fact2(n-1));
43 }
fact2(int n)44 int fact2 ( int n )
45 {
46 addMoreLard();
47 if (n == 0) return 1; else return mul(n, fact1(n-1));
48 }
49
50
I_WRAP_SONAME_FNNAME_ZU(NONE,fact1)51 int I_WRAP_SONAME_FNNAME_ZU(NONE,fact1) ( int n )
52 {
53 int r;
54 OrigFn fn;
55 VALGRIND_GET_ORIG_FN(fn);
56 printf("in wrapper1-pre: fact(%d)\n", n);
57 addMoreLard();
58 CALL_FN_W_W(r, fn, n);
59 addMoreLard();
60 printf("in wrapper1-post: fact(%d) = %d\n", n, r);
61 if (n >= 3) r += fact2(2);
62 return r;
63 }
64
I_WRAP_SONAME_FNNAME_ZU(NONE,fact2)65 int I_WRAP_SONAME_FNNAME_ZU(NONE,fact2) ( int n )
66 {
67 int r;
68 OrigFn fn;
69 VALGRIND_GET_ORIG_FN(fn);
70 printf("in wrapper2-pre: fact(%d)\n", n);
71 addMoreLard();
72 CALL_FN_W_W(r, fn, n);
73 addMoreLard();
74 printf("in wrapper2-post: fact(%d) = %d\n", n, r);
75 return r;
76 }
77
78 /* --------------- */
79
main(void)80 int main ( void )
81 {
82 int r;
83 Lard *p, *p_next;
84 printf("computing fact1(7)\n");
85 r = fact1(7);
86 printf("fact1(7) = %d\n", r);
87
88 printf("allocated %d Lards\n", ctr);
89 for (p = lard; p; p = p_next) {
90 p_next = p->next;
91 free(p);
92 }
93
94 return 0;
95 }
96