user: 下面的汇编指令对应的C源代码是什么：

```asm
<input_double>:
  endbr64
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x10,%rsp
  mov    %rdi,%r12
  mov    %fs:0x28,%rax
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  movq   $0x0,(%rsp)
  movabs 0x100000200,%rax
  lea    -0x30(%rax),%rdx
  mov    $0xffffffffffffffff,%rbx
  mov    $0x0,%ecx
L83:
  cmp    $0xffffffffffffffff,%rax
  je     L92
  cmp    $0x9,%rdx
  cmovbe %rcx,%rbx
  ja     L83
  mov    $0x0,%ecx
L30:
  lea    (%rcx,%rcx,4),%rcx
  lea    -0x30(%rax,%rcx,2),%rcx
  cmp    $0x2e,%rax
  jne    L43
  pxor   %xmm0,%xmm0
  cvtsi2sd %rcx,%xmm0
  addsd  D28(%rip),%xmm0
  movq   %xmm0,%rbp
L40:
  cmp    $0x65,%rax
  jne    L101
  mov    %rsp,%rdi
  call   <input_long@plt>
  test   %rax,%rax
  jne    L101
  jmp    L9
L43:
  cmp    $0x9,%rdx
  jbe    L30
  pxor   %xmm0,%xmm0
  cvtsi2sd %rcx,%xmm0
  addsd  D28(%rip),%xmm0
  movq   %xmm0,%rbp
  cmp    $0x45,%rax
  jne    L40
  mov    %rsp,%rdi
  call   <input_long@plt>
  test   %rax,%rax
  jne    L101
L9:
  mov    (%rsp),%rsi
  test   %rsi,%rsi
  jle    L36
  mov    $0xa,%edi
  call   <ipow@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  movq   %rbp,%xmm1
  mulsd  %xmm0,%xmm1
  movq   %xmm1,%rbp
  jmp    L101
L36:
  jns    L101
  mov    $0xa,%edi
  call   <ipow@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  movq   %rbp,%xmm2
  divsd  %xmm0,%xmm2
  movq   %xmm2,%rbp
  jmp    L101
L92:
  mov    D28(%rip),%rbp
L101:
  mov    %rbp,(%r12)
  mov    0x8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L104
  mov    %rbx,%rax
  add    $0x10,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
L104:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: tag: D28
type_infered: f64

tool: D28: 0

assistant: ```c
long input_double(double *result) {
  long c;
  long is_neg;
  long is_checking;
  long n;
  double d;
  double scale;
  long rt;
  long ret;
  long e;
  n = 0;
  d = 0.0;
  is_neg = 0;
  is_checking = 1;
  ret = -1;
  e = 0;
  do {
    c = *(long *)0x100000200;
    if (c == (-1))
      goto input_double_exit;
    if (c == (long)'-') {
      c = *(long *)0x100000200;
      if (c <= (long)'9') {
        if (c >= (long)'0') {
          is_neg = 1;
          is_checking = 0;
          ret = 0;
        }
      }
    } else if (c <= (long)'9') {
      if (c >= (long)'0') {
        is_checking = 0;
        ret = 0;
      }
    }
  } while (is_checking == 1);
  is_checking = 1;
  do {
    n = n * 10 + (long)c - (long)'0';
    c = *(long *)0x100000200;
    if (c == (-1))
      goto input_double_exit;
    if (c == (long)'.')
      goto input_double_after_dot;
    if (c > (long)'9') {
      is_checking = 0;
    }
    if (c < (long)'0') {
      is_checking = 0;
    }
  } while (is_checking == 1);
  goto input_double_exit;
input_double_after_dot:
  is_checking = 1;
  scale = 0.1;
  do {
    c = *(long *)0x100000200;
    if (c == (-1))
      goto input_double_exit;
    if (c <= (long)'9') {
      if (c >= (long)'0') {
        c = (long)c - (long)'0';
        d = d + scale * (double)c;
        scale = scale / 10.0;
      } else {
        is_checking = 0;
      }
    } else {
      is_checking = 0;
    }
  } while (is_checking == 1);
input_double_exit:
  d = d + (double)n;
  if (c == 'E') {
    rt = input_long(&e);
    if (rt != 0)
      e = 0;
  }
  if (c == 'e') {
    rt = input_long(&e);
    if (rt != 0)
      e = 0;
  }
  if (e > 0) {
    d = d * (double)(ipow(10, e));
  } else if (e < 0) {
    d = d / (double)(ipow(10, e));
  }
  if (is_neg == 1) {
    d = 0.0 - d;
  }
  *result = d;
  return ret;
}
```