user: Translate the below assembly code into C programming language:

```asm
<fp_gamma>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  mov    %edi,-0x24(%rbp)
  mov    %esi,-0x28(%rbp)
  mov    %edx,-0x2c(%rbp)
  mov    -0x10(%rbp),%eax
  mov    %eax,%edi
  call   <mpf_init@plt>
  mov    -0x28(%rbp),%edx
  mov    -0x10(%rbp),%eax
  mov    %edx,%esi
  mov    %eax,%edi
  call   <mpf_set@plt>
  mov    -0x10(%rbp),%eax
  mov    %eax,%edi
  call   <mpf_get_d@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x8(%rbp)
  movsd  -0x8(%rbp),%xmm0
  comisd D10(%rip),%xmm0
  jbe    L30
  movsd  -0x8(%rbp),%xmm0
  movsd  D23(%rip),%xmm1
  subsd  %xmm1,%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <floor@plt>
  mov    %eax,-0x18(%rbp)
  mov    -0x18(%rbp),%eax
  test   %rax,%rax
  js     L73
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  jmp    L49
L73:
  mov    %rax,%rdx
  shr    %rdx
  and    $0x1,%eax
  or     %rax,%rdx
  pxor   %xmm0,%xmm0
  cvtsi2sd %rdx,%xmm0
  addsd  %xmm0,%xmm0
L49:
  movsd  -0x8(%rbp),%xmm1
  subsd  %xmm0,%xmm1
  movsd  D57(%rip),%xmm0
  comisd %xmm1,%xmm0
  jbe    L16
  subl   $0x1,-0x18(%rbp)
L16:
  mov    -0x18(%rbp),%edx
  mov    -0x10(%rbp),%ecx
  mov    -0x10(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <mpf_sub_ui@plt>
  mov    -0x18(%rbp),%edx
  mov    -0x10(%rbp),%ecx
  mov    -0x24(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <fp_poch_rising@plt>
  jmp    L98
L30:
  movsd  D57(%rip),%xmm0
  comisd -0x8(%rbp),%xmm0
  jbe    L25
  movsd  D55(%rip),%xmm0
  subsd  -0x8(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <floor@plt>
  mov    %eax,-0x14(%rbp)
  mov    -0x14(%rbp),%eax
  test   %rax,%rax
  js     L57
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  jmp    L17
L57:
  mov    %rax,%rdx
  shr    %rdx
  and    $0x1,%eax
  or     %rax,%rdx
  pxor   %xmm0,%xmm0
  cvtsi2sd %rdx,%xmm0
  addsd  %xmm0,%xmm0
L17:
  movapd %xmm0,%xmm1
  addsd  -0x8(%rbp),%xmm1
  movsd  D57(%rip),%xmm0
  comisd %xmm1,%xmm0
  jbe    L44
  addl   $0x1,-0x14(%rbp)
L44:
  mov    -0x14(%rbp),%edx
  mov    -0x10(%rbp),%ecx
  mov    -0x24(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <fp_poch_rising@plt>
  mov    -0x24(%rbp),%edx
  mov    -0x24(%rbp),%eax
  mov    $0x1,%esi
  mov    %eax,%edi
  call   <mpf_ui_div@plt>
  mov    -0x14(%rbp),%edx
  mov    -0x10(%rbp),%ecx
  mov    -0x10(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <mpf_add_ui@plt>
  jmp    L98
L25:
  mov    -0x24(%rbp),%eax
  mov    $0x1,%esi
  mov    %eax,%edi
  call   <mpf_set_ui@plt>
L98:
  mov    -0xc(%rbp),%eax
  mov    %eax,%edi
  call   <mpf_init@plt>
  mov    -0x2c(%rbp),%edx
  mov    -0x10(%rbp),%ecx
  mov    -0xc(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <reduced_gamma@plt>
  mov    -0xc(%rbp),%edx
  mov    -0x24(%rbp),%ecx
  mov    -0x24(%rbp),%eax
  mov    %ecx,%esi
  mov    %eax,%edi
  call   <mpf_mul@plt>
  mov    -0x10(%rbp),%eax
  mov    %eax,%edi
  call   <mpf_clear@plt>
  mov    -0xc(%rbp),%eax
  mov    %eax,%edi
  call   <mpf_clear@plt>
  nop
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_tag: D10
type_infered: f64[2]
name: parse_data
arguments: data_tag: D23
type_infered: f64
name: parse_data
arguments: data_tag: D57
type_infered: f64
name: parse_data
arguments: data_tag: D55
type_infered: f64

tool: {"D10": [2.5,1.0]}

tool: D23: 1

tool: D57: 1.5

tool: D55: 2

assistant: ```c
void fp_gamma(mpf_t gam, const mpf_t z, int prec) {
  mpf_t zee;
  mpf_init(zee);
  mpf_set(zee, z);
  double flo = mpf_get_d(zee);
  if (flo > 2.5) {
    unsigned int intpart = (unsigned int)floor(flo - 1.0);
    if (flo - intpart < 1.5)
      intpart--;
    mpf_sub_ui(zee, zee, intpart);
    fp_poch_rising(gam, zee, intpart);
  } else if (flo < 1.5) {
    unsigned int intpart = (unsigned int)floor(2.0 - flo);
    if (flo + intpart < 1.5)
      intpart++;
    fp_poch_rising(gam, zee, intpart);
    mpf_ui_div(gam, 1, gam);
    mpf_add_ui(zee, zee, intpart);
  } else {
    mpf_set_ui(gam, 1);
  }
  mpf_t rgamma;
  mpf_init(rgamma);
  reduced_gamma(rgamma, zee, prec);
  mpf_mul(gam, gam, rgamma);
  mpf_clear(zee);
  mpf_clear(rgamma);
}
```