forked from dkogan/ltrace
-
Notifications
You must be signed in to change notification settings - Fork 0
/
fetch.c
166 lines (140 loc) · 4.17 KB
/
fetch.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
/*
* This file is part of ltrace.
* Copyright (C) 2011,2012 Petr Machata, Red Hat Inc.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
* 02110-1301 USA
*/
#include <stdlib.h>
#include <string.h>
#include "fetch.h"
#include "sysdep.h"
#include "value.h"
#include "type.h"
#ifdef ARCH_HAVE_FETCH_ARG
struct fetch_context *arch_fetch_arg_init(enum tof type, struct process *proc,
struct arg_type_info *ret_info);
struct fetch_context *arch_fetch_arg_clone(struct process *proc,
struct fetch_context *context);
int arch_fetch_arg_next(struct fetch_context *ctx, enum tof type,
struct process *proc, struct arg_type_info *info,
struct value *valuep);
int arch_fetch_retval(struct fetch_context *ctx, enum tof type,
struct process *proc, struct arg_type_info *info,
struct value *valuep);
void arch_fetch_arg_done(struct fetch_context *context);
# ifdef ARCH_HAVE_FETCH_PACK
int arch_fetch_param_pack_start(struct fetch_context *context,
enum param_pack_flavor ppflavor);
void arch_fetch_param_pack_end(struct fetch_context *context);
# endif
#else
/* Fall back to gimme_arg. */
long gimme_arg(enum tof type, struct process *proc, int arg_num,
struct arg_type_info *info);
struct fetch_context {
int argnum;
};
struct fetch_context *
arch_fetch_arg_init(enum tof type, struct process *proc,
struct arg_type_info *ret_info)
{
return calloc(sizeof(struct fetch_context), 1);
}
struct fetch_context *
arch_fetch_arg_clone(struct process *proc, struct fetch_context *context)
{
struct fetch_context *ret = malloc(sizeof(*ret));
if (ret == NULL)
return NULL;
return memcpy(ret, context, sizeof(*ret));
}
int
arch_fetch_arg_next(struct fetch_context *context, enum tof type,
struct process *proc,
struct arg_type_info *info, struct value *valuep)
{
long l = gimme_arg(type, proc, context->argnum++, info);
value_set_word(valuep, l);
return 0;
}
int
arch_fetch_retval(struct fetch_context *context, enum tof type,
struct process *proc,
struct arg_type_info *info, struct value *valuep)
{
long l = gimme_arg(type, proc, -1, info);
value_set_word(valuep, l);
return 0;
}
void
arch_fetch_arg_done(struct fetch_context *context)
{
free(context);
}
#endif
#if !defined(ARCH_HAVE_FETCH_ARG) || !defined(ARCH_HAVE_FETCH_PACK)
int
arch_fetch_param_pack_start(struct fetch_context *context,
enum param_pack_flavor ppflavor)
{
return 0;
}
void
arch_fetch_param_pack_end(struct fetch_context *context)
{
}
#endif
struct fetch_context *
fetch_arg_init(enum tof type, struct process *proc,
struct arg_type_info *ret_info)
{
return arch_fetch_arg_init(type, proc, ret_info);
}
struct fetch_context *
fetch_arg_clone(struct process *proc, struct fetch_context *context)
{
return arch_fetch_arg_clone(proc, context);
}
int
fetch_arg_next(struct fetch_context *context, enum tof type,
struct process *proc,
struct arg_type_info *info, struct value *valuep)
{
return arch_fetch_arg_next(context, type, proc, info, valuep);
}
int
fetch_retval(struct fetch_context *context, enum tof type,
struct process *proc,
struct arg_type_info *info, struct value *valuep)
{
return arch_fetch_retval(context, type, proc, info, valuep);
}
void
fetch_arg_done(struct fetch_context *context)
{
return arch_fetch_arg_done(context);
}
int
fetch_param_pack_start(struct fetch_context *context,
enum param_pack_flavor ppflavor)
{
return arch_fetch_param_pack_start(context, ppflavor);
}
void
fetch_param_pack_end(struct fetch_context *context)
{
return arch_fetch_param_pack_end(context);
}