// File: /workspace/github_c_makefile_star2_O0/nimble-code[P]Uno/Src/uno_fcts.c
// Function: has_fct_match
static int
has_fct_match(Label *n, Label *m)
{	char *p, *q = (char *) 0, *r, *s = (char *) 0;
	char took = '(';
	char c = '\"';
	int t;

	if (strncmp((char *) n->label, "C ", strlen("C ")) == 0
	||  strncmp((char *) n->label, "c ", strlen("c ")) == 0)
	{	/* either: fct_call("qlock()") or fct_call("qlock") */
		p = strchr((char *) m->label, c);	/* start of fct name */

		if (p)
		{	q = strchr(p+1, '(');	/* has () */
		} else
		{	c = '\'';		/* single quotes? */
			p = strchr((char *) m->label, c);
			if (!p) return 0;	/* give up */
			q = strchr(p+1, '(');
		}

		if (!q)
		{	q = strchr(p+1, c);	/* no (), find closing quote */
			took = c;
		}
	
		r = (char *) &(n->label[2]);
		if (r) s = strchr(r+1, ' ');

		f2d_assert((int) (p && q && r && s && q > p+1), "bad fct_call() arg");

		*q = *s = '\0';
		t = (strcmp(p+1, r) == 0);
		*q = took; *s = ' ';	/* restore */
		if (t) return 1;
	}
	return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x50, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq $0x0, -0x28(%rbp)
movq $0x0, -0x38(%rbp)
movb $0x28, -0x39(%rbp)
movb $0x22, -0x3a(%rbp)
movq -0x10(%rbp), %rax
movq (%rax), %rdi
leaq 0x1592(%rip), %rsi      # 0x8128
movl $0x2, %edx
callq 0x1030
cmpl $0x0, %eax
je 0x6bc6
movq -0x10(%rbp), %rax
movq (%rax), %rdi
leaq 0x1578(%rip), %rsi      # 0x812b
movl $0x2, %edx
callq 0x1030
cmpl $0x0, %eax
jne 0x6d2f
movq -0x18(%rbp), %rax
movq (%rax), %rdi
movsbl -0x3a(%rbp), %esi
callq 0x1070
movq %rax, -0x20(%rbp)
cmpq $0x0, -0x20(%rbp)
je 0x6bf9
movq -0x20(%rbp), %rdi
addq $0x1, %rdi
movl $0x28, %esi
callq 0x1070
movq %rax, -0x28(%rbp)
jmp 0x6c3a
movb $0x27, -0x3a(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdi
movsbl -0x3a(%rbp), %esi
callq 0x1070
movq %rax, -0x20(%rbp)
cmpq $0x0, -0x20(%rbp)
jne 0x6c24
movl $0x0, -0x4(%rbp)
jmp 0x6d36
movq -0x20(%rbp), %rdi
addq $0x1, %rdi
movl $0x28, %esi
callq 0x1070
movq %rax, -0x28(%rbp)
cmpq $0x0, -0x28(%rbp)
jne 0x6c5c
movq -0x20(%rbp), %rdi
addq $0x1, %rdi
movsbl -0x3a(%rbp), %esi
callq 0x1070
movq %rax, -0x28(%rbp)
movb -0x3a(%rbp), %al
movb %al, -0x39(%rbp)
movq -0x10(%rbp), %rax
movq (%rax), %rax
addq $0x2, %rax
movq %rax, -0x30(%rbp)
cmpq $0x0, -0x30(%rbp)
je 0x6c88
movq -0x30(%rbp), %rdi
addq $0x1, %rdi
movl $0x20, %esi
callq 0x1070
movq %rax, -0x38(%rbp)
xorl %eax, %eax
cmpq $0x0, -0x20(%rbp)
movb %al, -0x41(%rbp)
je 0x6ccd
xorl %eax, %eax
cmpq $0x0, -0x28(%rbp)
movb %al, -0x41(%rbp)
je 0x6ccd
xorl %eax, %eax
cmpq $0x0, -0x30(%rbp)
movb %al, -0x41(%rbp)
je 0x6ccd
xorl %eax, %eax
cmpq $0x0, -0x38(%rbp)
movb %al, -0x41(%rbp)
je 0x6ccd
movq -0x28(%rbp), %rax
movq -0x20(%rbp), %rcx
addq $0x1, %rcx
cmpq %rcx, %rax
seta %al
movb %al, -0x41(%rbp)
movb -0x41(%rbp), %al
andb $0x1, %al
movzbl %al, %edi
leaq 0x1452(%rip), %rsi      # 0x812e
callq 0x6500
movq -0x38(%rbp), %rax
movb $0x0, (%rax)
movq -0x28(%rbp), %rax
movb $0x0, (%rax)
movq -0x20(%rbp), %rdi
addq $0x1, %rdi
movq -0x30(%rbp), %rsi
callq 0x10c0
cmpl $0x0, %eax
sete %al
andb $0x1, %al
movzbl %al, %eax
movl %eax, -0x40(%rbp)
movb -0x39(%rbp), %cl
movq -0x28(%rbp), %rax
movb %cl, (%rax)
movq -0x38(%rbp), %rax
movb $0x20, (%rax)
cmpl $0x0, -0x40(%rbp)
je 0x6d2d
movl $0x1, -0x4(%rbp)
jmp 0x6d36
jmp 0x6d2f
movl $0x0, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x50, %rsp
popq %rbp
retq
nop