// File: /workspace/github_c_makefile_star2_O0/tabemann[P]attoforth/src/runtime/prim.c
// Function: af_prim_task_local
void af_prim_task_local(af_task_t* task) {
  af_global_t* global = task->global;
  void* default_data;
  af_cell_t size;
  af_cell_t allocated_size;
  af_task_t* current_task;
  AF_VERIFY_DATA_STACK_READ(task, 2);
  default_data = (void*)(*(task->data_stack_current + 1));
  size = *task->data_stack_current;
  allocated_size = global->task_local_space_size_allocated;
  if(allocated_size + size > global->task_local_space_size) {
    af_cell_t new_space_size = global->task_local_space_size * 2;
    current_task = global->first_task;
    if(new_space_size < allocated_size + size) {
      new_space_size = allocated_size + size;
    }
    global->default_task_local_space_base =
      realloc(global->default_task_local_space_base, new_space_size);
    while(current_task) {
      current_task->task_local_space_base =
	realloc(current_task->task_local_space_base, new_space_size);
      current_task = current_task->next_task;
    }
    global->task_local_space_size = new_space_size;
  }
  memcpy(global->default_task_local_space_base + allocated_size,
	 default_data, size);
  current_task = global->first_task;
  while(current_task) {
    memcpy(current_task->task_local_space_base + allocated_size,
	   default_data, size);
    current_task = current_task->next_task;
  }
  *(++task->data_stack_current) = allocated_size;
  global->task_local_space_size_allocated += size;
  AF_ADVANCE_IP(task, 1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x50, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq 0x60(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rax
movq 0x60(%rax), %rax
movq (%rax), %rax
movq %rax, -0x20(%rbp)
movq -0x10(%rbp), %rax
movq 0x1e0(%rax), %rax
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
addq -0x20(%rbp), %rax
movq -0x10(%rbp), %rcx
cmpq 0x1d8(%rcx), %rax
jbe 0x103b0
movq -0x10(%rbp), %rax
movq 0x1d8(%rax), %rax
shlq %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x38(%rbp), %rax
movq -0x28(%rbp), %rcx
addq -0x20(%rbp), %rcx
cmpq %rcx, %rax
jae 0x10348
movq -0x28(%rbp), %rax
addq -0x20(%rbp), %rax
movq %rax, -0x38(%rbp)
movq -0x10(%rbp), %rax
movq 0x1e8(%rax), %rdi
movq -0x38(%rbp), %rsi
callq 0x2200
movq %rax, %rcx
movq -0x10(%rbp), %rax
movq %rcx, 0x1e8(%rax)
cmpq $0x0, -0x30(%rbp)
je 0x103a1
movq -0x30(%rbp), %rax
movq 0x120(%rax), %rdi
movq -0x38(%rbp), %rsi
callq 0x2200
movq %rax, %rcx
movq -0x30(%rbp), %rax
movq %rcx, 0x120(%rax)
movq -0x30(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x30(%rbp)
jmp 0x1036a
movq -0x38(%rbp), %rcx
movq -0x10(%rbp), %rax
movq %rcx, 0x1d8(%rax)
movq -0x10(%rbp), %rax
movq 0x1e8(%rax), %rdi
addq -0x28(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x20(%rbp), %rdx
callq 0x21c0
movq -0x10(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x30(%rbp)
cmpq $0x0, -0x30(%rbp)
je 0x10408
movq -0x30(%rbp), %rax
movq 0x120(%rax), %rdi
addq -0x28(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x20(%rbp), %rdx
callq 0x21c0
movq -0x30(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x30(%rbp)
jmp 0x103d7
movq -0x28(%rbp), %rcx
movq -0x8(%rbp), %rdx
movq 0x60(%rdx), %rax
movq %rax, %rsi
addq $0x8, %rsi
movq %rsi, 0x60(%rdx)
movq %rcx, 0x8(%rax)
movq -0x20(%rbp), %rcx
movq -0x10(%rbp), %rax
addq 0x1e0(%rax), %rcx
movq %rcx, 0x1e0(%rax)
movq -0x8(%rbp), %rax
movq %rax, -0x40(%rbp)
movq -0x40(%rbp), %rax
cmpq $0x0, 0x58(%rax)
je 0x1045e
movq -0x40(%rbp), %rax
movq 0x58(%rax), %rax
addq $0x8, %rax
movq %rax, -0x48(%rbp)
jmp 0x10466
xorl %eax, %eax
movq %rax, -0x48(%rbp)
jmp 0x10466
movq -0x48(%rbp), %rcx
movq -0x40(%rbp), %rax
movq %rcx, 0x58(%rax)
addq $0x50, %rsp
popq %rbp
retq
nopl (%rax,%rax)