fetch.c

/*
 * 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 "value.h"
#include "arch.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);

#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

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);
}