user: What is the c source code of the assembly code below:

```asm
<m_atof>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  mov    %rdi,-0x28(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movl   $0x0,-0x1c(%rbp)
  movl   $0x1,-0x14(%rbp)
  mov    -0x28(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x2d,%al
  jne    L154
  movl   $0xffffffff,-0x14(%rbp)
  addq   $0x1,-0x28(%rbp)
  jmp    L154
L61:
  movsd  -0x8(%rbp),%xmm1
  movsd  D37(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x18(%rbp),%eax
  sub    $0x30,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
L154:
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
  cmpl   $0x0,-0x18(%rbp)
  je     L125
  mov    -0x18(%rbp),%eax
  mov    %eax,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L61
L125:
  cmpl   $0x2e,-0x18(%rbp)
  jne    L115
  jmp    L108
L188:
  movsd  -0x8(%rbp),%xmm1
  movsd  D37(%rip),%xmm0
  mulsd  %xmm0,%xmm1
  mov    -0x18(%rbp),%eax
  sub    $0x30,%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  subl   $0x1,-0x1c(%rbp)
L108:
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
  cmpl   $0x0,-0x18(%rbp)
  je     L115
  mov    -0x18(%rbp),%eax
  mov    %eax,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L188
L115:
  cmpl   $0x65,-0x18(%rbp)
  je     L5
  cmpl   $0x45,-0x18(%rbp)
  jne    L132
L5:
  movl   $0x1,-0x10(%rbp)
  movl   $0x0,-0xc(%rbp)
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
  cmpl   $0x2b,-0x18(%rbp)
  jne    L60
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
  jmp    L17
L60:
  cmpl   $0x2d,-0x18(%rbp)
  jne    L17
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
  movl   $0xffffffff,-0x10(%rbp)
  jmp    L17
L47:
  mov    -0xc(%rbp),%edx
  mov    %edx,%eax
  shl    $0x2,%eax
  add    %edx,%eax
  add    %eax,%eax
  mov    %eax,%edx
  mov    -0x18(%rbp),%eax
  sub    $0x30,%eax
  add    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0x28(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x28(%rbp)
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,-0x18(%rbp)
L17:
  mov    -0x18(%rbp),%eax
  mov    %eax,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L47
  mov    -0xc(%rbp),%eax
  imul   -0x10(%rbp),%eax
  add    %eax,-0x1c(%rbp)
  jmp    L132
L78:
  movsd  -0x8(%rbp),%xmm1
  movsd  D37(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  subl   $0x1,-0x1c(%rbp)
L132:
  cmpl   $0x0,-0x1c(%rbp)
  jg     L78
  jmp    L9
L147:
  movsd  -0x8(%rbp),%xmm1
  movsd  D9(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  addl   $0x1,-0x1c(%rbp)
L9:
  cmpl   $0x0,-0x1c(%rbp)
  js     L147
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  mulsd  -0x8(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: read_data
arguments: label: D37
type_guessed: f64
name: read_data
arguments: label: D9
type_guessed: f64

tool: D37: 10

tool: D9: 0.1

assistant: ```c
double m_atof(char *s) {
  double a = 0.0;
  int e = 0;
  int c;
  int negative = 1;
  if (*s == '-') {
    negative = -1;
    s += 1;
  }
  while ((c = *s++) != '\0' && isdigit(c)) {
    a = a * 10.0 + (c - '0');
  }
  if (c == '.') {
    while ((c = *s++) != '\0' && isdigit(c)) {
      a = a * 10.0 + (c - '0');
      e = e - 1;
    }
  }
  if (c == 'e' || c == 'E') {
    int sign = 1;
    int i = 0;
    c = *s++;
    if (c == '+')
      c = *s++;
    else if (c == '-') {
      c = *s++;
      sign = -1;
    }
    while (isdigit(c)) {
      i = i * 10 + (c - '0');
      c = *s++;
    }
    e += i * sign;
  }
  while (e > 0) {
    a *= 10.0;
    e--;
  }
  while (e < 0) {
    a *= 0.1;
    e++;
  }
  return a * negative;
}
```