user: 请将这段汇编代码片段转换成等效的C代码：

```asm
<rq_pricing_roll_geske_whaley>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xb0,%rsp
  movsd  %xmm0,-0x68(%rbp)
  movsd  %xmm1,-0x70(%rbp)
  movsd  %xmm2,-0x78(%rbp)
  movsd  %xmm3,-0x80(%rbp)
  movsd  %xmm4,-0x88(%rbp)
  movsd  %xmm5,-0x90(%rbp)
  movsd  %xmm6,-0x98(%rbp)
  movsd  -0x88(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x78(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm1
  mulsd  -0x90(%rbp),%xmm1
  movsd  -0x68(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
  movsd  D91(%rip),%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D20(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x88(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm0,%xmm1
  movsd  -0x80(%rbp),%xmm0
  subsd  -0x78(%rbp),%xmm0
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movapd %xmm0,%xmm1
  movsd  D114(%rip),%xmm0
  subsd  %xmm1,%xmm0
  mulsd  -0x70(%rbp),%xmm0
  comisd -0x90(%rbp),%xmm0
  jb     L53
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x80(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  mov    -0x38(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  jmp    L109
L53:
  movsd  -0x80(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x78(%rbp),%xmm1
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x70(%rbp),%xmm0
  mov    -0x68(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x40(%rbp)
  movsd  -0x68(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  jmp    L43
L94:
  movsd  -0x50(%rbp),%xmm0
  addsd  %xmm0,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x80(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x78(%rbp),%xmm1
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x70(%rbp),%xmm0
  mov    -0x50(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x40(%rbp)
L43:
  movsd  -0x40(%rbp),%xmm0
  subsd  -0x50(%rbp),%xmm0
  subsd  -0x90(%rbp),%xmm0
  addsd  -0x70(%rbp),%xmm0
  pxor   %xmm1,%xmm1
  comisd %xmm1,%xmm0
  jbe    L28
  movsd  -0x28(%rbp),%xmm0
  comisd -0x50(%rbp),%xmm0
  ja     L94
L28:
  movsd  -0x50(%rbp),%xmm0
  comisd -0x28(%rbp),%xmm0
  jbe    L31
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x80(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  mov    -0x38(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  jmp    L109
L31:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  movsd  -0x50(%rbp),%xmm1
  movsd  D124(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x80(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x78(%rbp),%xmm1
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x70(%rbp),%xmm0
  mov    -0x58(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x40(%rbp)
  jmp    L52
L93:
  movsd  -0x40(%rbp),%xmm0
  subsd  -0x58(%rbp),%xmm0
  subsd  -0x90(%rbp),%xmm0
  movapd %xmm0,%xmm1
  addsd  -0x70(%rbp),%xmm1
  pxor   %xmm0,%xmm0
  comisd %xmm1,%xmm0
  jbe    L83
  movsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,-0x50(%rbp)
  jmp    L74
L83:
  movsd  -0x58(%rbp),%xmm0
  movsd  %xmm0,-0x48(%rbp)
L74:
  movsd  -0x50(%rbp),%xmm0
  addsd  -0x48(%rbp),%xmm0
  movsd  D81(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movsd  -0x80(%rbp),%xmm0
  movapd %xmm0,%xmm1
  subsd  -0x78(%rbp),%xmm1
  movsd  -0x98(%rbp),%xmm3
  movsd  -0x88(%rbp),%xmm2
  movsd  -0x70(%rbp),%xmm0
  mov    -0x58(%rbp),%rax
  movapd %xmm3,%xmm4
  mov    $0x0,%esi
  movapd %xmm2,%xmm3
  movapd %xmm1,%xmm2
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x1,%edi
  call   <rq_pricing_blackscholes_gen@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x40(%rbp)
L52:
  movsd  -0x40(%rbp),%xmm0
  subsd  -0x58(%rbp),%xmm0
  subsd  -0x90(%rbp),%xmm0
  addsd  -0x70(%rbp),%xmm0
  movq   D107(%rip),%xmm1
  andpd  %xmm1,%xmm0
  comisd -0x30(%rbp),%xmm0
  jbe    L59
  movsd  -0x50(%rbp),%xmm0
  subsd  -0x48(%rbp),%xmm0
  comisd -0x30(%rbp),%xmm0
  ja     L93
L59:
  movsd  -0x38(%rbp),%xmm0
  divsd  -0x70(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movsd  %xmm0,-0xa0(%rbp)
  mov    -0x98(%rbp),%rax
  mov    $0x2,%edi
  movq   %rax,%xmm0
  call   <pow@plt>
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  -0x88(%rbp),%xmm0
  mulsd  -0x80(%rbp),%xmm0
  movapd %xmm0,%xmm5
  addsd  -0xa0(%rbp),%xmm5
  movsd  %xmm5,-0xa0(%rbp)
  mov    -0x80(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm1
  mulsd  -0x98(%rbp),%xmm1
  movsd  -0xa0(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x80(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm1
  mulsd  -0x98(%rbp),%xmm1
  movsd  -0x20(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x38(%rbp),%xmm0
  divsd  -0x58(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movsd  %xmm0,-0xa0(%rbp)
  mov    -0x98(%rbp),%rax
  mov    $0x2,%edi
  movq   %rax,%xmm0
  call   <pow@plt>
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  -0x88(%rbp),%xmm0
  mulsd  -0x78(%rbp),%xmm0
  movapd %xmm0,%xmm6
  addsd  -0xa0(%rbp),%xmm6
  movsd  %xmm6,-0xa0(%rbp)
  mov    -0x78(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm1
  mulsd  -0x98(%rbp),%xmm1
  movsd  -0xa0(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x78(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm1
  mulsd  -0x98(%rbp),%xmm1
  movsd  -0x10(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    -0x10(%rbp),%rax
  movq   %rax,%xmm0
  call   <rq_pricing_cumul_norm_dist@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm5
  mulsd  -0x38(%rbp),%xmm5
  movsd  %xmm5,-0xa0(%rbp)
  movsd  -0x78(%rbp),%xmm0
  divsd  -0x80(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   D95(%rip),%xmm0
  movq   %rax,%xmm2
  xorpd  %xmm0,%xmm2
  movsd  -0x10(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0x20(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <rq_pricing_cumul_bivar_norm_dist@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  mulsd  -0x38(%rbp),%xmm0
  addsd  -0xa0(%rbp),%xmm0
  movsd  %xmm0,-0xa0(%rbp)
  movsd  -0x88(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movapd %xmm0,%xmm6
  mulsd  -0x80(%rbp),%xmm6
  movq   %xmm6,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm4
  mulsd  -0x70(%rbp),%xmm4
  movsd  %xmm4,-0xa8(%rbp)
  movsd  -0x78(%rbp),%xmm0
  movapd %xmm0,%xmm6
  divsd  -0x80(%rbp),%xmm6
  movq   %xmm6,%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  movq   D95(%rip),%xmm0
  movq   %rax,%xmm2
  xorpd  %xmm0,%xmm2
  movsd  -0x8(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mov    -0x18(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <rq_pricing_cumul_bivar_norm_dist@plt>
  mulsd  -0xa8(%rbp),%xmm0
  movsd  -0xa0(%rbp),%xmm7
  subsd  %xmm0,%xmm7
  movsd  %xmm7,-0xa0(%rbp)
  movsd  -0x70(%rbp),%xmm0
  subsd  -0x90(%rbp),%xmm0
  movsd  %xmm0,-0xa8(%rbp)
  movsd  -0x88(%rbp),%xmm0
  movq   D95(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movapd %xmm0,%xmm6
  mulsd  -0x78(%rbp),%xmm6
  movq   %xmm6,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movapd %xmm0,%xmm4
  mulsd  -0xa8(%rbp),%xmm4
  movsd  %xmm4,-0xa8(%rbp)
  mov    -0x8(%rbp),%rax
  movq   %rax,%xmm0
  call   <rq_pricing_cumul_norm_dist@plt>
  mulsd  -0xa8(%rbp),%xmm0
  movsd  -0xa0(%rbp),%xmm7
  subsd  %xmm0,%xmm7
  movq   %xmm7,%rax
L109:
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: label: D95
type_infered: byte[8]
name: retrieve_data
arguments: label: D91
type_infered: f64
name: retrieve_data
arguments: label: D20
type_infered: f64
name: retrieve_data
arguments: label: D114
type_infered: f64
name: retrieve_data
arguments: label: D124
type_infered: f64
name: retrieve_data
arguments: label: D81
type_infered: byte[8]
name: retrieve_data
arguments: label: D107
type_infered: qword

tool: {"D95": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80]}

tool: D91: 1e-05

tool: D20: 100000000

tool: D114: 1

tool: D124: 0.5

tool: {"D81": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40]}

tool: D107: 9223372036854775807

assistant: ```c
double rq_pricing_roll_geske_whaley(double S, double X, double t1, double tau_e, double r, double d, double v) {
  double Sx = S - d * exp(-r * t1);
  double I;
  double a1;
  double a2;
  double b1;
  double b2;
  double high_S;
  double low_S;
  double epsilon = 0.00001;
  double ci;
  double infinity = 100000000;
  if (d <= X * (1.0 - exp(-r * (tau_e - t1))))
    return rq_pricing_blackscholes_gen(1, Sx, X, tau_e, r, 0, v);
  ci = rq_pricing_blackscholes_gen(1, S, X, tau_e - t1, r, 0, v);
  high_S = S;
  while ((ci - high_S - d + X) > 0 && high_S < infinity) {
    high_S = high_S * 2;
    ci = rq_pricing_blackscholes_gen(1, high_S, X, tau_e - t1, r, 0, v);
  }
  if (high_S > infinity)
    return rq_pricing_blackscholes_gen(1, Sx, X, tau_e, r, 0, v);
  low_S = 0;
  I = high_S * 0.5;
  ci = rq_pricing_blackscholes_gen(1, I, X, tau_e - t1, r, 0, v);
  while (fabs(ci - I - d + X) > epsilon && high_S - low_S > epsilon) {
    if ((ci - I - d + X) < 0)
      high_S = I;
    else
      low_S = I;
    I = (high_S + low_S) / 2;
    ci = rq_pricing_blackscholes_gen(1, I, X, tau_e - t1, r, 0, v);
  }
  a1 = (log(Sx / X) + (r + pow(v, 2) / 2) * tau_e) / (v * sqrt(tau_e));
  a2 = a1 - v * sqrt(tau_e);
  b1 = (log(Sx / I) + (r + pow(v, 2) / 2) * t1) / (v * sqrt(t1));
  b2 = b1 - v * sqrt(t1);
  return Sx * rq_pricing_cumul_norm_dist(b1) + Sx * rq_pricing_cumul_bivar_norm_dist(a1, -b1, -sqrt(t1 / tau_e)) - X * exp(-r * tau_e) * rq_pricing_cumul_bivar_norm_dist(a2, -b2, -sqrt(t1 / tau_e)) - (X - d) * exp(-r * t1) * rq_pricing_cumul_norm_dist(b2);
}
```