/* DBCServer_Release_x64.exe sha256 d9e4fccdf3482e50247686d4452c0b13c75a53efc4bd7320668eece8d1ce828c
 * Ghidra 12.1.2 decompiler output for 0x1401f61d0 FUN_1401f61d0
 * Pseudocode, not original source. */

void FUN_1401f61d0(longlong param_1,int param_2,undefined8 param_3,undefined8 param_4)

{
  longlong *plVar1;
  undefined8 uVar2;
  undefined8 *puVar3;
  int iVar4;
  int iVar5;
  int iVar6;
  longlong lVar7;
  longlong lVar8;
  undefined1 local_a0 [152];
  
  lVar7 = (longlong)param_2;
  if (param_2 < 0) {
                    /* WARNING: Subroutine does not return */
    FUN_14016d6b0();
  }
  iVar5 = *(int *)(param_1 + 0x18);
  if (param_2 != iVar5) {
    if (*(int *)(param_1 + 0x1c) < param_2) {
      iVar5 = FUN_14016f8a0(param_1,param_2,param_3,param_4,0xfffffffffffffffe);
      lVar8 = (longlong)iVar5;
      plVar1 = *(longlong **)(param_1 + 8);
      if (*(int *)(param_1 + 0x1c) == 0) {
        if (plVar1 == (longlong *)0x0) {
          puVar3 = (undefined8 *)FUN_14016d940(lVar8 << 3);
        }
        else {
          puVar3 = (undefined8 *)(**(code **)(*plVar1 + 8))(plVar1,lVar8 << 3);
        }
        *(undefined8 **)(param_1 + 0x10) = puVar3;
        if (0 < param_2) {
          do {
            if (puVar3 != (undefined8 *)0x0) {
              *puVar3 = 0;
            }
            puVar3 = puVar3 + 1;
            lVar7 = lVar7 + -1;
          } while (lVar7 != 0);
        }
      }
      else {
        uVar2 = *(undefined8 *)(param_1 + 0x10);
        if (plVar1 == (longlong *)0x0) {
          lVar7 = FUN_14016d940(lVar8 << 3);
        }
        else {
          lVar7 = (**(code **)(*plVar1 + 8))(plVar1,lVar8 << 3);
        }
        FUN_1401f5120(lVar7,uVar2);
        iVar4 = param_2 - *(int *)(param_1 + 0x18);
        puVar3 = (undefined8 *)(lVar7 + (longlong)*(int *)(param_1 + 0x18) * 8);
        iVar6 = 0;
        if (0 < iVar4) {
          do {
            if (puVar3 != (undefined8 *)0x0) {
              *puVar3 = 0;
            }
            iVar6 = iVar6 + 1;
            puVar3 = puVar3 + 1;
          } while (iVar6 < iVar4);
        }
        if (lVar7 == 0) {
          FUN_14016d300(local_a0,L"Memory allocation failure!");
                    /* WARNING: Subroutine does not return */
          _CxxThrowException(local_a0,(ThrowInfo *)&DAT_1403417f8);
        }
        FUN_140178c80(uVar2,(longlong)*(int *)(param_1 + 0x18));
        plVar1 = *(longlong **)(param_1 + 8);
        if (plVar1 == (longlong *)0x0) {
          FUN_14016d970(uVar2);
        }
        else {
          (**(code **)(*plVar1 + 0x18))(plVar1,uVar2);
        }
        *(longlong *)(param_1 + 0x10) = lVar7;
      }
      *(int *)(param_1 + 0x1c) = iVar5;
    }
    else if (iVar5 - param_2 < 1) {
      iVar4 = param_2 - iVar5;
      if (0 < iVar4) {
        puVar3 = (undefined8 *)(*(longlong *)(param_1 + 0x10) + (longlong)iVar5 * 8);
        iVar5 = 0;
        if (0 < iVar4) {
          do {
            if (puVar3 != (undefined8 *)0x0) {
              *puVar3 = 0;
            }
            iVar5 = iVar5 + 1;
            puVar3 = puVar3 + 1;
          } while (iVar5 < iVar4);
        }
      }
    }
    else {
      FUN_140178c80(*(longlong *)(param_1 + 0x10) + lVar7 * 8,(longlong)(iVar5 - param_2));
    }
    *(int *)(param_1 + 0x18) = param_2;
  }
  return;
}