// File: mh0fm4[P]SCDC/test/units/redirect/redirect_test.c
// Function: do_param_array
static void do_param_array(redirect_call_t *rc)
{
  TRACE_F("rc: %p", rc);

  REDIRECT_TEST_TIMING_INIT_();

  rdint_t in_n = 0;
  double *in_v = NULL;
  redirect_call_get_input_conf_rdint(rc, "in_n", &in_n);
  redirect_call_get_input_param_array_double(rc, "in_v", &in_v, &in_n);
  printf("in_v: %p, in_n: %" rdint_fmt "\n", in_v, in_n);
  redirect_call_print_param_array_double(in_v, in_n);

  rdint_t out_n = 0;
  double *out_v = NULL;
  redirect_call_get_input_conf_rdint(rc, "out_n", &out_n);
  redirect_call_get_output_param_array_double(rc, "out_v", &out_v, &out_n);
  printf("out_v: %p, out_n: %" rdint_fmt "\n", out_v, out_n);
  vector_init(out_v, out_n, 1, -1.0, NAN);
  redirect_call_print_param_array_double(out_v, out_n);
  redirect_call_put_output_param_array_double(rc, "out_v", out_v, out_n);

  redirect_call_set_result_str(rc, "OK");
  TRACE_F("result: '%s'", redirect_call_get_result_str(rc, NULL, 0));

  TRACE_F("return");
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
movq 0xc43cd(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x957eb(%rip), %rsi     # 0xa53d8
leaq 0x95954(%rip), %rdx     # 0xa5548
movb $0x0, %al
callq 0xc9a0
movq 0xc43ae(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
movq -0x8(%rbp), %rdx
leaq 0x958d4(%rip), %rsi     # 0xa54e4
movb $0x0, %al
callq 0xc9a0
movq 0xc4392(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x95c80(%rip), %rsi     # 0xa58a8
movb $0x0, %al
callq 0xc9a0
jmp 0xfc31
jmp 0xfc33
movq $0x0, -0x10(%rbp)
movq $0x0, -0x18(%rbp)
movq -0x8(%rbp), %rdi
leaq 0x955d4(%rip), %rsi     # 0xa5222
leaq -0x10(%rbp), %rdx
callq 0x13080
movq -0x8(%rbp), %rdi
leaq 0x955c5(%rip), %rsi     # 0xa5227
leaq -0x18(%rbp), %rdx
leaq -0x10(%rbp), %rcx
callq 0x14dd0
movq -0x18(%rbp), %rsi
movq -0x10(%rbp), %rdx
leaq 0x9558f(%rip), %rdi     # 0xa520d
movb $0x0, %al
callq 0xcd30
movq -0x18(%rbp), %rdi
movq -0x10(%rbp), %rsi
callq 0x14d30
movq $0x0, -0x20(%rbp)
movq $0x0, -0x28(%rbp)
movq -0x8(%rbp), %rdi
leaq 0x954fc(%rip), %rsi     # 0xa51a9
leaq -0x20(%rbp), %rdx
callq 0x13080
movq -0x8(%rbp), %rdi
leaq 0x954ee(%rip), %rsi     # 0xa51af
leaq -0x28(%rbp), %rdx
leaq -0x20(%rbp), %rcx
callq 0x14e50
movq -0x28(%rbp), %rsi
movq -0x20(%rbp), %rdx
leaq 0x954b5(%rip), %rdi     # 0xa5192
movb $0x0, %al
callq 0xcd30
movq -0x28(%rbp), %rdi
movq -0x20(%rbp), %rsi
movl $0x1, %edx
movsd 0x956b7(%rip), %xmm0    # 0xa53b0
movsd 0x95317(%rip), %xmm1    # 0xa5018
callq 0xedd0
movq -0x28(%rbp), %rdi
movq -0x20(%rbp), %rsi
callq 0x14d30
movq -0x8(%rbp), %rdi
movq -0x28(%rbp), %rdx
movq -0x20(%rbp), %rcx
leaq 0x95489(%rip), %rsi     # 0xa51af
callq 0x14e10
movq -0x8(%rbp), %rdi
leaq 0x95806(%rip), %rsi     # 0xa553c
callq 0x136d0
movq 0xc426e(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x9568c(%rip), %rsi     # 0xa53d8
leaq 0x957f5(%rip), %rdx     # 0xa5548
movb $0x0, %al
callq 0xc9a0
movq 0xc424f(%rip), %rax     # 0xd3fb0
movq (%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x8(%rbp), %rdi
xorl %eax, %eax
movl %eax, %edx
movq %rdx, %rsi
callq 0x13700
movq -0x30(%rbp), %rdi
movq %rax, %rdx
leaq 0x959d3(%rip), %rsi     # 0xa5759
movb $0x0, %al
callq 0xc9a0
movq 0xc421c(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x95b0a(%rip), %rsi     # 0xa58a8
movb $0x0, %al
callq 0xc9a0
jmp 0xfda7
movq 0xc4202(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x95620(%rip), %rsi     # 0xa53d8
leaq 0x95789(%rip), %rdx     # 0xa5548
movb $0x0, %al
callq 0xc9a0
movq 0xc41e3(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x9565f(%rip), %rsi     # 0xa5436
movb $0x0, %al
callq 0xc9a0
movq 0xc41cb(%rip), %rax     # 0xd3fb0
movq (%rax), %rdi
leaq 0x95ab9(%rip), %rsi     # 0xa58a8
movb $0x0, %al
callq 0xc9a0
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)