// File: /workspace/github_c_makefile_star2_O0/rakitzis[P]rc/glom.c
// Function: concat
extern List *concat(List *s1, List *s2) {
	int n1, n2;
	List *r, *top;
	if (s1 == NULL)
		return s2;
	if (s2 == NULL)
		return s1;
	if ((n1 = listnel(s1)) != (n2 = listnel(s2)) && n1 != 1 && n2 != 1)
		rc_error("bad concatenation");
	for (r = top = nnew(List); 1; r = r->n = nnew(List)) {
		size_t x = strlen(s1->w);
		size_t y = strlen(s2->w);
		size_t z = x + y + 1;
		r->w = nalloc(z);
		strcpy(r->w, s1->w);
		strcat(r->w, s2->w);
		if (s1->m == NULL && s2->m == NULL) {
			r->m = NULL;
		} else {
			r->m = nalloc(z);
			if (s1->m == NULL)
				memzero(r->m, x);
			else
				memcpy(r->m, s1->m, x);
			if (s2->m == NULL)
				memzero(&r->m[x], y);
			else
				memcpy(&r->m[x], s2->m, y);
			r->m[z] = 0;
		}
		if (n1 > 1)
			s1 = s1->n;
		if (n2 > 1)
			s2 = s2->n;
		if (s1 == NULL || s2 == NULL || (n1 == 1 && n2 == 1))
			break;
	}
	r->n = NULL;
	return top;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x50, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
cmpq $0x0, -0x10(%rbp)
jne 0x8494
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x86a0
cmpq $0x0, -0x18(%rbp)
jne 0x84a8
movq -0x10(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0x86a0
movq -0x10(%rbp), %rdi
callq 0xca80
movl %eax, -0x4c(%rbp)
movl %eax, -0x1c(%rbp)
movq -0x18(%rbp), %rdi
callq 0xca80
movl %eax, %ecx
movl -0x4c(%rbp), %eax
movl %ecx, -0x20(%rbp)
cmpl %ecx, %eax
je 0x84e4
cmpl $0x1, -0x1c(%rbp)
je 0x84e4
cmpl $0x1, -0x20(%rbp)
je 0x84e4
leaq 0xd319(%rip), %rdi      # 0x157f8
callq 0x50d0
movl $0x18, %edi
callq 0xd4c0
movq %rax, -0x30(%rbp)
movq %rax, -0x28(%rbp)
movb $0x1, %al
testb $0x1, %al
jne 0x8501
jmp 0x868c
movq -0x10(%rbp), %rax
movq (%rax), %rdi
callq 0x30f0
movq %rax, -0x38(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdi
callq 0x30f0
movq %rax, -0x40(%rbp)
movq -0x38(%rbp), %rax
addq -0x40(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x48(%rbp)
movq -0x48(%rbp), %rdi
callq 0xd4c0
movq %rax, %rcx
movq -0x28(%rbp), %rax
movq %rcx, (%rax)
movq -0x28(%rbp), %rax
movq (%rax), %rdi
movq -0x10(%rbp), %rax
movq (%rax), %rsi
callq 0x3070
movq -0x28(%rbp), %rax
movq (%rax), %rdi
movq -0x18(%rbp), %rax
movq (%rax), %rsi
callq 0x3300
movq -0x10(%rbp), %rax
cmpq $0x0, 0x8(%rax)
jne 0x8591
movq -0x18(%rbp), %rax
cmpq $0x0, 0x8(%rax)
jne 0x8591
movq -0x28(%rbp), %rax
movq $0x0, 0x8(%rax)
jmp 0x862f
movq -0x48(%rbp), %rdi
callq 0xd4c0
movq %rax, %rcx
movq -0x28(%rbp), %rax
movq %rcx, 0x8(%rax)
movq -0x10(%rbp), %rax
cmpq $0x0, 0x8(%rax)
jne 0x85c5
movq -0x28(%rbp), %rax
movq 0x8(%rax), %rdi
movq -0x38(%rbp), %rdx
xorl %esi, %esi
callq 0x3150
jmp 0x85de
movq -0x28(%rbp), %rax
movq 0x8(%rax), %rdi
movq -0x10(%rbp), %rax
movq 0x8(%rax), %rsi
movq -0x38(%rbp), %rdx
callq 0x3220
movq -0x18(%rbp), %rax
cmpq $0x0, 0x8(%rax)
jne 0x8602
movq -0x28(%rbp), %rax
movq 0x8(%rax), %rdi
addq -0x38(%rbp), %rdi
movq -0x40(%rbp), %rdx
xorl %esi, %esi
callq 0x3150
jmp 0x861f
movq -0x28(%rbp), %rax
movq 0x8(%rax), %rdi
addq -0x38(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rsi
movq -0x40(%rbp), %rdx
callq 0x3220
movq -0x28(%rbp), %rax
movq 0x8(%rax), %rax
movq -0x48(%rbp), %rcx
movb $0x0, (%rax,%rcx)
cmpl $0x1, -0x1c(%rbp)
jle 0x8641
movq -0x10(%rbp), %rax
movq 0x10(%rax), %rax
movq %rax, -0x10(%rbp)
cmpl $0x1, -0x20(%rbp)
jle 0x8653
movq -0x18(%rbp), %rax
movq 0x10(%rax), %rax
movq %rax, -0x18(%rbp)
cmpq $0x0, -0x10(%rbp)
je 0x866d
cmpq $0x0, -0x18(%rbp)
je 0x866d
cmpl $0x1, -0x1c(%rbp)
jne 0x866f
cmpl $0x1, -0x20(%rbp)
jne 0x866f
jmp 0x868c
jmp 0x8671
movl $0x18, %edi
callq 0xd4c0
movq -0x28(%rbp), %rcx
movq %rax, 0x10(%rcx)
movq %rax, -0x28(%rbp)
jmp 0x84f6
movq -0x28(%rbp), %rax
movq $0x0, 0x10(%rax)
movq -0x30(%rbp), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x50, %rsp
popq %rbp
retq
nopw (%rax,%rax)