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