// File: /workspace/github_c_makefile_star2_O0/darwin-on-arm[P]darwin-sdk/developer_cmds/ctags/fortran.c
// Function: PF_funcs
int
PF_funcs()
{
	bool	pfcnt;			/* pascal/fortran functions found */
	char	*cp;
	char	tok[MAXTOKEN];

	for (pfcnt = NO;;) {
		lineftell = ftell(inf);
		if (!fgets(lbuf, sizeof(lbuf), inf))
			return (pfcnt);
		++lineno;
		lbp = lbuf;
		if (*lbp == '%')	/* Ratfor escape to fortran */
			++lbp;
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		switch (*lbp | ' ') {	/* convert to lower-case */
		case 'c':
			if (cicmp("complex") || cicmp("character"))
				takeprec();
			break;
		case 'd':
			if (cicmp("double")) {
				for (; isspace(*lbp); ++lbp)
					continue;
				if (!*lbp)
					continue;
				if (cicmp("precision"))
					break;
				continue;
			}
			break;
		case 'i':
			if (cicmp("integer"))
				takeprec();
			break;
		case 'l':
			if (cicmp("logical"))
				takeprec();
			break;
		case 'r':
			if (cicmp("real"))
				takeprec();
			break;
		}
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		switch (*lbp | ' ') {
		case 'f':
			if (cicmp("function"))
				break;
			continue;
		case 'p':
			if (cicmp("program") || cicmp("procedure"))
				break;
			continue;
		case 's':
			if (cicmp("subroutine"))
				break;
		default:
			continue;
		}
		for (; isspace(*lbp); ++lbp)
			continue;
		if (!*lbp)
			continue;
		for (cp = lbp + 1; *cp && intoken(*cp); ++cp)
			continue;
		if ((cp = lbp + 1) != NULL)
			continue;
		*cp = EOS;
		(void)strcpy(tok, lbp);
		ct_getline();			/* process line for ex(1) */
		pfnote(tok, lineno);
		pfcnt = YES;
	}
	/*NOTREACHED*/
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x120, %rsp            # imm = 0x120
movb $0x0, -0x1(%rbp)
leaq 0x3a5a(%rip), %rax      # 0x6140
movq (%rax), %rdi
callq 0x1110
movq %rax, %rcx
leaq 0x4778(%rip), %rax      # 0x6e70
movq %rcx, (%rax)
leaq 0x3a3e(%rip), %rax      # 0x6140
movq (%rax), %rdx
leaq 0x3f64(%rip), %rdi      # 0x6670
movl $0x800, %esi            # imm = 0x800
callq 0x10e0
cmpq $0x0, %rax
jne 0x2729
movsbl -0x1(%rbp), %eax
addq $0x120, %rsp            # imm = 0x120
popq %rbp
retq
leaq 0x3f30(%rip), %rax      # 0x6660
movl (%rax), %ecx
addl $0x1, %ecx
leaq 0x3f24(%rip), %rax      # 0x6660
movl %ecx, (%rax)
leaq 0x3f2b(%rip), %rax      # 0x6670
movq %rax, 0x472c(%rip)      # 0x6e78
movq 0x4725(%rip), %rax      # 0x6e78
movsbl (%rax), %eax
cmpl $0x25, %eax
jne 0x276d
movq 0x4716(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, 0x470b(%rip)      # 0x6e78
jmp 0x276f
callq 0x11c0
movq (%rax), %rax
movq 0x46fa(%rip), %rcx      # 0x6e78
movsbl (%rcx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x2000, %eax           # imm = 0x2000
cmpl $0x0, %eax
je 0x27a8
jmp 0x2794
movq 0x46dd(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, 0x46d2(%rip)      # 0x6e78
jmp 0x276f
movq 0x46c9(%rip), %rax      # 0x6e78
cmpb $0x0, (%rax)
jne 0x27b9
jmp 0x26df
movq 0x46b8(%rip), %rax      # 0x6e78
movsbl (%rax), %eax
orl $0x20, %eax
addl $-0x63, %eax
movl %eax, %ecx
movq %rcx, -0x118(%rbp)
subl $0xf, %eax
ja 0x28dd
movq -0x118(%rbp), %rax
leaq 0x1afb(%rip), %rcx      # 0x42e4
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
leaq 0x1b2b(%rip), %rdi      # 0x4324
callq 0x2ac0
cmpl $0x0, %eax
jne 0x2814
leaq 0x1b22(%rip), %rdi      # 0x432c
callq 0x2ac0
cmpl $0x0, %eax
je 0x2819
callq 0x2b70
jmp 0x28dd
leaq 0x1b11(%rip), %rdi      # 0x4336
callq 0x2ac0
cmpl $0x0, %eax
je 0x2893
jmp 0x2831
callq 0x11c0
movq (%rax), %rax
movq 0x4638(%rip), %rcx      # 0x6e78
movsbl (%rcx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x2000, %eax           # imm = 0x2000
cmpl $0x0, %eax
je 0x286a
jmp 0x2856
movq 0x461b(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, 0x4610(%rip)      # 0x6e78
jmp 0x2831
movq 0x4607(%rip), %rax      # 0x6e78
cmpb $0x0, (%rax)
jne 0x287b
jmp 0x26df
leaq 0x1abb(%rip), %rdi      # 0x433d
callq 0x2ac0
cmpl $0x0, %eax
je 0x288e
jmp 0x28dd
jmp 0x26df
jmp 0x28dd
leaq 0x1aab(%rip), %rdi      # 0x4347
callq 0x2ac0
cmpl $0x0, %eax
je 0x28ab
callq 0x2b70
jmp 0x28dd
leaq 0x1a9b(%rip), %rdi      # 0x434f
callq 0x2ac0
cmpl $0x0, %eax
je 0x28c3
callq 0x2b70
jmp 0x28dd
leaq 0x1a8b(%rip), %rdi      # 0x4357
callq 0x2ac0
cmpl $0x0, %eax
je 0x28db
callq 0x2b70
jmp 0x28dd
jmp 0x28df
callq 0x11c0
movq (%rax), %rax
movq 0x458a(%rip), %rcx      # 0x6e78
movsbl (%rcx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x2000, %eax           # imm = 0x2000
cmpl $0x0, %eax
je 0x2918
jmp 0x2904
movq 0x456d(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, 0x4562(%rip)      # 0x6e78
jmp 0x28df
movq 0x4559(%rip), %rax      # 0x6e78
cmpb $0x0, (%rax)
jne 0x2929
jmp 0x26df
movq 0x4548(%rip), %rax      # 0x6e78
movsbl (%rax), %eax
orl $0x20, %eax
movl %eax, -0x11c(%rbp)
subl $0x66, %eax
je 0x295d
jmp 0x2943
movl -0x11c(%rbp), %eax
subl $0x70, %eax
je 0x2975
jmp 0x2950
movl -0x11c(%rbp), %eax
subl $0x73, %eax
je 0x299e
jmp 0x29b3
leaq 0x19f8(%rip), %rdi      # 0x435c
callq 0x2ac0
cmpl $0x0, %eax
je 0x2970
jmp 0x29b8
jmp 0x26df
leaq 0x19e9(%rip), %rdi      # 0x4365
callq 0x2ac0
cmpl $0x0, %eax
jne 0x2997
leaq 0x19e0(%rip), %rdi      # 0x436d
callq 0x2ac0
cmpl $0x0, %eax
je 0x2999
jmp 0x29b8
jmp 0x26df
leaq 0x19d2(%rip), %rdi      # 0x4377
callq 0x2ac0
cmpl $0x0, %eax
je 0x29b1
jmp 0x29b8
jmp 0x29b3
jmp 0x26df
jmp 0x29ba
callq 0x11c0
movq (%rax), %rax
movq 0x44af(%rip), %rcx      # 0x6e78
movsbl (%rcx), %ecx
movslq %ecx, %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x2000, %eax           # imm = 0x2000
cmpl $0x0, %eax
je 0x29f3
jmp 0x29df
movq 0x4492(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, 0x4487(%rip)      # 0x6e78
jmp 0x29ba
movq 0x447e(%rip), %rax      # 0x6e78
cmpb $0x0, (%rax)
jne 0x2a04
jmp 0x26df
movq 0x446d(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, -0x10(%rbp)
movq -0x10(%rbp), %rax
movsbl (%rax), %ecx
xorl %eax, %eax
cmpl $0x0, %ecx
movb %al, -0x11d(%rbp)
je 0x2a49
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
movl %eax, %eax
movl %eax, %ecx
leaq 0x3827(%rip), %rax      # 0x6260
movsbl (%rax,%rcx), %eax
cmpl $0x0, %eax
setne %al
movb %al, -0x11d(%rbp)
movb -0x11d(%rbp), %al
testb $0x1, %al
jne 0x2a55
jmp 0x2a65
jmp 0x2a57
movq -0x10(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x10(%rbp)
jmp 0x2a13
movq 0x440c(%rip), %rax      # 0x6e78
addq $0x1, %rax
movq %rax, -0x10(%rbp)
cmpq $0x0, %rax
je 0x2a7f
jmp 0x26df
movq -0x10(%rbp), %rax
movb $0x0, (%rax)
leaq -0x110(%rbp), %rdi
movq 0x43e4(%rip), %rsi      # 0x6e78
callq 0x1040
callq 0x3020
leaq -0x110(%rbp), %rdi
leaq 0x3bb4(%rip), %rax      # 0x6660
movl (%rax), %esi
callq 0x32f0
movb $0x1, -0x1(%rbp)
jmp 0x26df
nopl (%rax)