src/s390/ffi.c

108 ffi_check_struct_type (ffi_type *arg)
110   size_t size = arg->size;
114   while (arg->type == FFI_TYPE_STRUCT
115          && arg->elements[0] && !arg->elements[1])
116     arg = arg->elements[0];
129 	if (arg->type == FFI_TYPE_FLOAT)
135 	if (arg->type == FFI_TYPE_DOUBLE)
208       void *arg = *p_argv;
229 	      memcpy (p_struct, (char *)arg, (*ptr)->size);
230 	      arg = &p_struct;
239 	      p_fpr[n_fpr++] = *(unsigned long long *) arg;
242 	      p_ov[n_ov++] = *(unsigned long *) arg;
244 	      p_ov[n_ov++] = ((unsigned long *) arg)[0],
245 	      p_ov[n_ov++] = ((unsigned long *) arg)[1];
251 	      p_fpr[n_fpr++] = (long long) *(unsigned int *) arg << 32;
253 	      p_ov[n_ov++] = *(unsigned int *) arg;
258 	      p_gpr[n_gpr++] = (unsigned long)*(unsigned char **) arg;
260 	      p_ov[n_ov++] = (unsigned long)*(unsigned char **) arg;
267 	      p_gpr[n_gpr++] = *(unsigned long *) arg;
269 	      p_ov[n_ov++] = *(unsigned long *) arg;
274 	      p_gpr[n_gpr++] = ((unsigned long *) arg)[0],
275 	      p_gpr[n_gpr++] = ((unsigned long *) arg)[1];
277 	      p_ov[n_ov++] = ((unsigned long *) arg)[0],
278 	      p_ov[n_ov++] = ((unsigned long *) arg)[1];
284 	      p_gpr[n_gpr++] = *(unsigned int *) arg;
286 	      p_ov[n_ov++] = *(unsigned int *) arg;
292 	      p_gpr[n_gpr++] = *(signed int *) arg;
294 	      p_ov[n_ov++] = *(signed int *) arg;
299 	      p_gpr[n_gpr++] = *(unsigned short *) arg;
301 	      p_ov[n_ov++] = *(unsigned short *) arg;
306 	      p_gpr[n_gpr++] = *(signed short *) arg;
308 	      p_ov[n_ov++] = *(signed short *) arg;
313 	      p_gpr[n_gpr++] = *(unsigned char *) arg;
315 	      p_ov[n_ov++] = *(unsigned char *) arg;
320 	      p_gpr[n_gpr++] = *(signed char *) arg;
322 	      p_ov[n_ov++] = *(signed char *) arg;