Imported Upstream version 0.7.2upstream/0.7.2

1 files changed, 166 insertions, 0 deletions

diff --git a/fetch.c b/fetch.c
new file mode 100644
index 0000000..88966a5
--- /dev/null
+++ b/fetch.c
@@ -0,0 +1,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);
+}