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

```asm
<gfun_cpp>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x8,%rsp
  mov    %rdi,%rbx
  mov    %rsi,%rbp
  mov    %rdx,%r15
  mov    %rcx,%r12
  mov    %r8,%r13
  mov    %r8,%rdx
  mov    %rcx,%rsi
  mov    %rbp,%rdi
  call   <find_gct@plt>
  test   %rax,%rax
  je     L85
  mov    %rax,%r14
  mov    %r13,%r8
  mov    %r12,%rcx
  mov    %rbp,%rdx
  lea    D14(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  mov    %rbx,%rcx
  mov    $0x1e,%edx
  mov    $0x1,%esi
  lea    D176(%rip),%rdi
  call   <fwrite@plt>
  lea    D9(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L26
  lea    D45(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L26
  lea    D75(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L12
L26:
  mov    %r15,%rdx
  lea    D111(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  lea    D47(%rip),%rcx
  mov    %r12,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  mov    %rbx,%rcx
  mov    $0x2,%edx
  mov    $0x1,%esi
  lea    D163(%rip),%rdi
  call   <fwrite@plt>
  lea    D40(%rip),%rcx
  mov    %r13,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  mov    %rbx,%rsi
  mov    $0x29,%edi
  call   <fputc@plt>
L84:
  mov    %rbx,%rcx
  mov    $0x6,%edx
  mov    $0x1,%esi
  lea    D152(%rip),%rdi
  call   <fwrite@plt>
  mov    $0x0,%eax
L2:
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L12:
  lea    D58(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L5
  lea    D150(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L83
L5:
  lea    D47(%rip),%rcx
  mov    %r12,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  mov    %r15,%rdx
  lea    D46(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  lea    D40(%rip),%rcx
  mov    %r13,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  jmp    L84
L83:
  lea    D40(%rip),%rcx
  mov    %r13,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  mov    %r15,%rdx
  lea    D46(%rip),%rsi
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <fprintf@plt>
  lea    D47(%rip),%rcx
  mov    %r12,%rdx
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <generate_arg@plt>
  jmp    L84
L85:
  mov    $0xffffffff,%eax
  jmp    L2
```

tool_calls: name: unpack_data
arguments: label: D14
datatype: string
name: unpack_data
arguments: label: D176
datatype: string
name: unpack_data
arguments: label: D9
datatype: string
name: unpack_data
arguments: label: D45
datatype: string
name: unpack_data
arguments: label: D75
datatype: string
name: unpack_data
arguments: label: D111
datatype: string
name: unpack_data
arguments: label: D47
datatype: string
name: unpack_data
arguments: label: D163
datatype: string
name: unpack_data
arguments: label: D40
datatype: string
name: unpack_data
arguments: label: D152
datatype: string
name: unpack_data
arguments: label: D58
datatype: string
name: unpack_data
arguments: label: D150
datatype: string
name: unpack_data
arguments: label: D46
datatype: string

tool: D14: tuple_cell op_numeric_%s_%s_%s(const tuple_cell &a1, const tuple_cell &a2)
{


tool: D176:     return tuple_cell::atomic(

tool: D9: divide

tool: D45: integer_divide

tool: D75: mod

tool: D111: %s(

tool: D47: a1

tool: D163: , 

tool: D40: a2

tool: D152: );
}



tool: D58: equal

tool: D150: xs_double

tool: D46:  %s 

assistant: ```c
int gfun_cpp(FILE *f, const char *op, const char *ops, const char *type1, const char *type2) {
  const char *gct = find_gct(op, type1, type2);
  if (!gct)
    return -1;
  fprintf(f, "tuple_cell op_numeric_%s_%s_%s(const tuple_cell &a1, const tuple_cell &a2)\n{\n", op, type1, type2);
  fprintf(f, "    return tuple_cell::atomic(");
  if (!strcmp(op, "divide") || !strcmp(op, "integer_divide") || !strcmp(op, "mod")) {
    fprintf(f, "%s(", ops);
    generate_arg(f, gct, type1, "a1");
    fprintf(f, ", ");
    generate_arg(f, gct, type2, "a2");
    fprintf(f, ")");
  } else if (!strcmp(op, "equal") && !strcmp(type1, "xs_double")) {
    generate_arg(f, gct, type2, "a2");
    fprintf(f, " %s ", ops);
    generate_arg(f, gct, type1, "a1");
  } else {
    generate_arg(f, gct, type1, "a1");
    fprintf(f, " %s ", ops);
    generate_arg(f, gct, type2, "a2");
  }
  fprintf(f, ");\n}\n\n");
  return 0;
}
```