user: 请从给定的汇编指令推导出C源代码:

```asm
<input_double>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x60,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movq   $0x0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movq   $0x0,-0x40(%rbp)
  movq   $0x1,-0x38(%rbp)
  movq   $0xffffffffffffffff,-0x18(%rbp)
  movq   $0x0,-0x50(%rbp)
L295:
  movabs $0x100000200,%rax
  mov    (%rax),%rax
  mov    %rax,-0x48(%rbp)
  cmpq   $0xffffffffffffffff,-0x48(%rbp)
  je     L90
  cmpq   $0x2d,-0x48(%rbp)
  jne    L190
  movabs $0x100000200,%rax
  mov    (%rax),%rax
  mov    %rax,-0x48(%rbp)
  cmpq   $0x39,-0x48(%rbp)
  jg     L130
  cmpq   $0x2f,-0x48(%rbp)
  jle    L130
  movq   $0x1,-0x40(%rbp)
  movq   $0x0,-0x38(%rbp)
  movq   $0x0,-0x18(%rbp)
  jmp    L130
L190:
  cmpq   $0x39,-0x48(%rbp)
  jg     L130
  cmpq   $0x2f,-0x48(%rbp)
  jle    L130
  movq   $0x0,-0x38(%rbp)
  movq   $0x0,-0x18(%rbp)
L130:
  cmpq   $0x1,-0x38(%rbp)
  je     L295
  movq   $0x1,-0x38(%rbp)
L95:
  mov    -0x30(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  add    %rax,%rax
  mov    %rax,%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  sub    $0x30,%rax
  mov    %rax,-0x30(%rbp)
  movabs $0x100000200,%rax
  mov    (%rax),%rax
  mov    %rax,-0x48(%rbp)
  cmpq   $0xffffffffffffffff,-0x48(%rbp)
  je     L312
  cmpq   $0x2e,-0x48(%rbp)
  je     L29
  cmpq   $0x39,-0x48(%rbp)
  jle    L232
  movq   $0x0,-0x38(%rbp)
L232:
  cmpq   $0x2f,-0x48(%rbp)
  jg     L70
  movq   $0x0,-0x38(%rbp)
L70:
  cmpq   $0x1,-0x38(%rbp)
  je     L95
  jmp    L228
L29:
  nop
  movq   $0x1,-0x38(%rbp)
  movsd  D14(%rip),%xmm0
  movsd  %xmm0,-0x20(%rbp)
L186:
  movabs $0x100000200,%rax
  mov    (%rax),%rax
  mov    %rax,-0x48(%rbp)
  cmpq   $0xffffffffffffffff,-0x48(%rbp)
  je     L83
  cmpq   $0x39,-0x48(%rbp)
  jg     L116
  cmpq   $0x2f,-0x48(%rbp)
  jle    L91
  subq   $0x30,-0x48(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdq -0x48(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  movsd  -0x28(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x20(%rbp),%xmm0
  movsd  D7(%rip),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  jmp    L30
L91:
  movq   $0x0,-0x38(%rbp)
  jmp    L30
L116:
  movq   $0x0,-0x38(%rbp)
L30:
  cmpq   $0x1,-0x38(%rbp)
  je     L186
  jmp    L228
L90:
  nop
  jmp    L228
L312:
  nop
  jmp    L228
L83:
  nop
L228:
  pxor   %xmm0,%xmm0
  cvtsi2sdq -0x30(%rbp),%xmm0
  movsd  -0x28(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  cmpq   $0x45,-0x48(%rbp)
  jne    L82
  lea    -0x50(%rbp),%rax
  mov    %rax,%rdi
  call   <input_long@plt>
  mov    %rax,-0x10(%rbp)
  cmpq   $0x0,-0x10(%rbp)
  je     L82
  movq   $0x0,-0x50(%rbp)
L82:
  cmpq   $0x65,-0x48(%rbp)
  jne    L204
  lea    -0x50(%rbp),%rax
  mov    %rax,%rdi
  call   <input_long@plt>
  mov    %rax,-0x10(%rbp)
  cmpq   $0x0,-0x10(%rbp)
  je     L204
  movq   $0x0,-0x50(%rbp)
L204:
  mov    -0x50(%rbp),%rax
  test   %rax,%rax
  jle    L275
  mov    -0x50(%rbp),%rax
  mov    %rax,%rsi
  mov    $0xa,%edi
  call   <ipow@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  movsd  -0x28(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  jmp    L243
L275:
  mov    -0x50(%rbp),%rax
  test   %rax,%rax
  jns    L243
  mov    -0x50(%rbp),%rax
  mov    %rax,%rsi
  mov    $0xa,%edi
  call   <ipow@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %rax,%xmm1
  movsd  -0x28(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
L243:
  cmpq   $0x1,-0x40(%rbp)
  jne    L112
  pxor   %xmm0,%xmm0
  subsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,-0x28(%rbp)
L112:
  mov    -0x58(%rbp),%rax
  movsd  -0x28(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x18(%rbp),%rax
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L39
  call   <__stack_chk_fail@plt>
L39:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D14
datatype: f64
name: unpack_data
arguments: data_label: D7
datatype: f64

tool: D14: 0.1

tool: D7: 10

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;
}
```