#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ ffpmsg(char *);
int /*<<< orphan*/ snprintf(char *, int, char *, ...);
size_t strlen(char const *);
char toupper(char const);
int fftkey(const char *keyword, int *status) {
  size_t maxchr, ii;
  int spaces = 0;
  char msg[81], testchar;
  if (*status > 0)
    return (*status);
  maxchr = strlen(keyword);
  if (maxchr > 8)
    maxchr = 8;
  for (ii = 0; ii < maxchr; ii++) {
    if (*status == 0)
      testchar = keyword[ii];
    else
      testchar = toupper(keyword[ii]);
    if ((testchar >= 'A' && testchar <= 'Z') ||
        (testchar >= '0' && testchar <= '9') || testchar == '-' ||
        testchar == '_') {
      if (spaces) {
        if (*status == 0) {
          snprintf(msg, 81, "Keyword name contains embedded space(s): %.8s",
                   keyword);
          ffpmsg(msg);
        }
        return (*status = 207);
      }
    } else if (keyword[ii] == ' ')
      spaces = 1;
    else {
      if (*status == 0) {
        snprintf(msg, 81, "Character %d in this keyword is illegal: %.8s",
                 (int)(ii + 1), keyword);
        ffpmsg(msg);
        if (keyword[ii] == 0)
          ffpmsg(" (This a NULL (0) character).");
        else if (keyword[ii] == 9)
          ffpmsg(" (This an ASCII TAB (9) character).");
      }
      return (*status = 207);
    }
  }
  return (*status);
}


x86 assembly (clang, -O0):
<fftkey>:
push   %rbp
mov    %rsp,%rbp
sub    $0x90,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jle    1175 <fftkey+0x35>
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x4(%rbp)
jmp    1382 <fftkey+0x242>
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %rax,-0x20(%rbp)
cmpq   $0x8,-0x20(%rbp)
jbe    1195 <fftkey+0x55>
movq   $0x8,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jae    1379 <fftkey+0x239>
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jne    11ce <fftkey+0x8e>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x81(%rbp)
jmp    11e5 <fftkey+0xa5>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <toupper@plt>
mov    %al,-0x81(%rbp)
movsbl -0x81(%rbp),%eax
cmp    $0x41,%eax
jl     1205 <fftkey+0xc5>
movsbl -0x81(%rbp),%eax
cmp    $0x5a,%eax
jle    1245 <fftkey+0x105>
movsbl -0x81(%rbp),%eax
cmp    $0x30,%eax
jl     1225 <fftkey+0xe5>
movsbl -0x81(%rbp),%eax
cmp    $0x39,%eax
jle    1245 <fftkey+0x105>
movsbl -0x81(%rbp),%eax
cmp    $0x2d,%eax
je     1245 <fftkey+0x105>
movsbl -0x81(%rbp),%eax
cmp    $0x5f,%eax
jne    129b <fftkey+0x15b>
cmpl   $0x0,-0x2c(%rbp)
je     1296 <fftkey+0x156>
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jne    1280 <fftkey+0x140>
lea    -0x80(%rbp),%rdi
mov    -0x10(%rbp),%rcx
mov    $0x51,%esi
lea    0xd90(%rip),%rdx
mov    $0x0,%al
call   1060 <snprintf@plt>
lea    -0x80(%rbp),%rdi
call   1050 <ffpmsg@plt>
mov    -0x18(%rbp),%rax
movl   $0xcf,(%rax)
movl   $0xcf,-0x4(%rbp)
jmp    1382 <fftkey+0x242>
jmp    1363 <fftkey+0x223>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x20,%eax
jne    12bc <fftkey+0x17c>
movl   $0x1,-0x2c(%rbp)
jmp    135e <fftkey+0x21e>
mov    -0x18(%rbp),%rax
cmpl   $0x0,(%rax)
jne    1348 <fftkey+0x208>
lea    -0x80(%rbp),%rdi
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %eax,%ecx
mov    -0x10(%rbp),%r8
mov    $0x51,%esi
lea    0xd47(%rip),%rdx
mov    $0x0,%al
call   1060 <snprintf@plt>
lea    -0x80(%rbp),%rdi
call   1050 <ffpmsg@plt>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
jne    131d <fftkey+0x1dd>
lea    0xd49(%rip),%rdi
call   1050 <ffpmsg@plt>
jmp    1343 <fftkey+0x203>
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x9,%eax
jne    133e <fftkey+0x1fe>
lea    0xd41(%rip),%rdi
call   1050 <ffpmsg@plt>
jmp    1343 <fftkey+0x203>
jmp    1348 <fftkey+0x208>
mov    -0x18(%rbp),%rax
movl   $0xcf,(%rax)
movl   $0xcf,-0x4(%rbp)
jmp    1382 <fftkey+0x242>
jmp    1363 <fftkey+0x223>
jmp    1368 <fftkey+0x228>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    119d <fftkey+0x5d>
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x90,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<fftkey>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x58,%rsp
mov    (%rsi),%ebp
test   %ebp,%ebp
jle    1165 <fftkey+0x25>
mov    %ebp,%eax
add    $0x58,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %rsi,%r14
mov    %rdi,%r15
call   1040 <strlen@plt>
cmp    $0x8,%rax
mov    $0x8,%r12d
cmovb  %rax,%r12
test   %r12,%r12
je     1154 <fftkey+0x14>
xor    %r13d,%r13d
xor    %ebx,%ebx
nopl   0x0(%rax,%rax,1)
movzbl (%r15,%rbx,1),%eax
test   %ebp,%ebp
je     11a1 <fftkey+0x61>
movsbl %al,%edi
call   1030 <toupper@plt>
lea    -0x41(%rax),%ecx
cmp    $0x1a,%cl
jb     11c0 <fftkey+0x80>
lea    -0x30(%rax),%ecx
cmp    $0xa,%cl
jb     11c0 <fftkey+0x80>
cmp    $0x5f,%al
je     11c0 <fftkey+0x80>
cmp    $0x2d,%al
jne    11db <fftkey+0x9b>
nopl   0x0(%rax)
xor    %eax,%eax
test   %r13d,%r13d
jne    1229 <fftkey+0xe9>
add    $0x1,%rbx
mov    (%r14),%ebp
mov    %eax,%r13d
cmp    %rbx,%r12
jne    1190 <fftkey+0x50>
jmp    1154 <fftkey+0x14>
mov    $0x1,%eax
cmpb   $0x20,(%r15,%rbx,1)
je     11c7 <fftkey+0x87>
cmpl   $0x0,(%r14)
jne    1253 <fftkey+0x113>
lea    0x1(%rbx),%ecx
lea    0xe37(%rip),%rdx
mov    %rsp,%rbp
mov    %rbp,%rdi
mov    $0x51,%esi
mov    %r15,%r8
xor    %eax,%eax
call   1060 <snprintf@plt>
mov    %rbp,%rdi
call   1050 <ffpmsg@plt>
mov    (%r15,%rbx,1),%al
test   %al,%al
je     1264 <fftkey+0x124>
cmp    $0x9,%al
jne    1253 <fftkey+0x113>
lea    0xe53(%rip),%rdi
jmp    124e <fftkey+0x10e>
cmpl   $0x0,(%r14)
jne    1253 <fftkey+0x113>
lea    0xdca(%rip),%rdx
mov    %rsp,%rbp
mov    %rbp,%rdi
mov    $0x51,%esi
mov    %r15,%rcx
xor    %eax,%eax
call   1060 <snprintf@plt>
mov    %rbp,%rdi
call   1050 <ffpmsg@plt>
movl   $0xcf,(%r14)
mov    $0xcf,%ebp
jmp    1154 <fftkey+0x14>
lea    0xdf1(%rip),%rdi
jmp    124e <fftkey+0x10e>

LLVM IR (-O0):
@.str = [46 x i8] c"Keyword name contains embedded space(s): %.8s\00"
@.str.1 = [46 x i8] c"Character %d in this keyword is illegal: %.8s\00"
@.str.2 = [30 x i8] c" (This a NULL (0) character).\00"
@.str.3 = [36 x i8] c" (This an ASCII TAB (9) character).\00"
define i32 @fftkey(i8* %0, i32* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i32*
%6 = alloca i64
%7 = alloca i64
%8 = alloca i32
%9 = alloca [81 x i8]
%10 = alloca i8
store i8* %0, i8** %4
store i32* %1, i32** %5
store i32 0, i32* %8
%11 = load i32*, i32** %5
%12 = load i32, i32* %11
%13 = icmp sgt i32 %12, 0
br i1 %13, label %14, label %17
14: ; preds = %2
%15 = load i32*, i32** %5
%16 = load i32, i32* %15
store i32 %16, i32* %3
br label %133
17: ; preds = %2
%18 = load i8*, i8** %4
%19 = call i64 @strlen(i8* %18)
store i64 %19, i64* %6
%20 = load i64, i64* %6
%21 = icmp ugt i64 %20, 8
br i1 %21, label %22, label %23
22: ; preds = %17
store i64 8, i64* %6
br label %23
23: ; preds = %22, %17
store i64 0, i64* %7
br label %24
24: ; preds = %127, %23
%25 = load i64, i64* %7
%26 = load i64, i64* %6
%27 = icmp ult i64 %25, %26
br i1 %27, label %28, label %130
28: ; preds = %24
%29 = load i32*, i32** %5
%30 = load i32, i32* %29
%31 = icmp eq i32 %30, 0
br i1 %31, label %32, label %37
32: ; preds = %28
%33 = load i8*, i8** %4
%34 = load i64, i64* %7
%35 = getelementptr inbounds i8, i8* %33, i64 %34
%36 = load i8, i8* %35
store i8 %36, i8* %10
br label %43
37: ; preds = %28
%38 = load i8*, i8** %4
%39 = load i64, i64* %7
%40 = getelementptr inbounds i8, i8* %38, i64 %39
%41 = load i8, i8* %40
%42 = call signext i8 @toupper(i8 signext %41)
store i8 %42, i8* %10
br label %43
43: ; preds = %37, %32
%44 = load i8, i8* %10
%45 = sext i8 %44 to i32
%46 = icmp sge i32 %45, 65
br i1 %46, label %47, label %51
47: ; preds = %43
%48 = load i8, i8* %10
%49 = sext i8 %48 to i32
%50 = icmp sle i32 %49, 90
br i1 %50, label %67, label %51
51: ; preds = %47, %43
%52 = load i8, i8* %10
%53 = sext i8 %52 to i32
%54 = icmp sge i32 %53, 48
br i1 %54, label %55, label %59
55: ; preds = %51
%56 = load i8, i8* %10
%57 = sext i8 %56 to i32
%58 = icmp sle i32 %57, 57
br i1 %58, label %67, label %59
59: ; preds = %55, %51
%60 = load i8, i8* %10
%61 = sext i8 %60 to i32
%62 = icmp eq i32 %61, 45
br i1 %62, label %67, label %63
63: ; preds = %59
%64 = load i8, i8* %10
%65 = sext i8 %64 to i32
%66 = icmp eq i32 %65, 95
br i1 %66, label %67, label %83
67: ; preds = %63, %59, %55, %47
%68 = load i32, i32* %8
%69 = icmp ne i32 %68, 0
br i1 %69, label %70, label %82
70: ; preds = %67
%71 = load i32*, i32** %5
%72 = load i32, i32* %71
%73 = icmp eq i32 %72, 0
br i1 %73, label %74, label %80
74: ; preds = %70
%75 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%76 = load i8*, i8** %4
%77 = call i32 (i8*, i32, i8*, ...) @snprintf(i8* %75, i32 81, i8* getelementptr inbounds ([46 x i8], [46 x i8]* @.str, i64 0, i64 0), i8* %76)
%78 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%79 = call i32 @ffpmsg(i8* %78)
br label %80
80: ; preds = %74, %70
%81 = load i32*, i32** %5
store i32 207, i32* %81
store i32 207, i32* %3
br label %133
82: ; preds = %67
br label %126
83: ; preds = %63
%84 = load i8*, i8** %4
%85 = load i64, i64* %7
%86 = getelementptr inbounds i8, i8* %84, i64 %85
%87 = load i8, i8* %86
%88 = sext i8 %87 to i32
%89 = icmp eq i32 %88, 32
br i1 %89, label %90, label %91
90: ; preds = %83
store i32 1, i32* %8
br label %125
91: ; preds = %83
%92 = load i32*, i32** %5
%93 = load i32, i32* %92
%94 = icmp eq i32 %93, 0
br i1 %94, label %95, label %123
95: ; preds = %91
%96 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%97 = load i64, i64* %7
%98 = add i64 %97, 1
%99 = trunc i64 %98 to i32
%100 = load i8*, i8** %4
%101 = call i32 (i8*, i32, i8*, ...) @snprintf(i8* %96, i32 81, i8* getelementptr inbounds ([46 x i8], [46 x i8]* @.str.1, i64 0, i64 0), i32 %99, i8* %100)
%102 = getelementptr inbounds [81 x i8], [81 x i8]* %9, i64 0, i64 0
%103 = call i32 @ffpmsg(i8* %102)
%104 = load i8*, i8** %4
%105 = load i64, i64* %7
%106 = getelementptr inbounds i8, i8* %104, i64 %105
%107 = load i8, i8* %106
%108 = sext i8 %107 to i32
%109 = icmp eq i32 %108, 0
br i1 %109, label %110, label %112
110: ; preds = %95
%111 = call i32 @ffpmsg(i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.2, i64 0, i64 0))
br label %122
112: ; preds = %95
%113 = load i8*, i8** %4
%114 = load i64, i64* %7
%115 = getelementptr inbounds i8, i8* %113, i64 %114
%116 = load i8, i8* %115
%117 = sext i8 %116 to i32
%118 = icmp eq i32 %117, 9
br i1 %118, label %119, label %121
119: ; preds = %112
%120 = call i32 @ffpmsg(i8* getelementptr inbounds ([36 x i8], [36 x i8]* @.str.3, i64 0, i64 0))
br label %121
121: ; preds = %119, %112
br label %122
122: ; preds = %121, %110
br label %123
123: ; preds = %122, %91
%124 = load i32*, i32** %5
store i32 207, i32* %124
store i32 207, i32* %3
br label %133
125: ; preds = %90
br label %126
126: ; preds = %125, %82
br label %127
127: ; preds = %126
%128 = load i64, i64* %7
%129 = add i64 %128, 1
store i64 %129, i64* %7
br label %24
130: ; preds = %24
%131 = load i32*, i32** %5
%132 = load i32, i32* %131
store i32 %132, i32* %3
br label %133
133: ; preds = %130, %123, %80, %14
%134 = load i32, i32* %3
ret i32 %134
}

LLVM IR (-O2):
@.str = [46 x i8] c"Keyword name contains embedded space(s): %.8s\00"
@.str.1 = [46 x i8] c"Character %d in this keyword is illegal: %.8s\00"
@.str.2 = [30 x i8] c" (This a NULL (0) character).\00"
@.str.3 = [36 x i8] c" (This an ASCII TAB (9) character).\00"
define i32 @fftkey(i8* %0, i32* nocapture %1) {
%3 = alloca [81 x i8]
%4 = getelementptr inbounds [81 x i8], [81 x i8]* %3, i64 0, i64 0
%5 = load i32, i32* %1
%6 = icmp sgt i32 %5, 0
br i1 %6, label %62, label %7
7: ; preds = %2
%8 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%9 = icmp ult i64 %8, 8
%10 = select i1 %9, i64 %8, i64 8
%11 = icmp eq i64 %10, 0
br i1 %11, label %62, label %12
12: ; preds = %7, %56
%13 = phi i32 [ %60, %56 ], [ %5, %7 ]
%14 = phi i32 [ %57, %56 ], [ 0, %7 ]
%15 = phi i64 [ %58, %56 ], [ 0, %7 ]
%16 = icmp eq i32 %13, 0
%17 = getelementptr inbounds i8, i8* %0, i64 %15
%18 = load i8, i8* %17
br i1 %16, label %21, label %19
19: ; preds = %12
%20 = tail call signext i8 @toupper(i8 signext %18)
br label %21
21: ; preds = %12, %19
%22 = phi i8 [ %20, %19 ], [ %18, %12 ]
%23 = add i8 %22, -65
%24 = icmp ult i8 %23, 26
br i1 %24, label %30, label %25
25: ; preds = %21
%26 = freeze i8 %22
%27 = add i8 %26, -48
%28 = icmp ult i8 %27, 10
br i1 %28, label %30, label %29
29: ; preds = %25
switch i8 %26, label %38 [
i8 95, label %30
i8 45, label %30
]
30: ; preds = %29, %29, %25, %21
%31 = icmp eq i32 %14, 0
br i1 %31, label %56, label %32
32: ; preds = %30
%33 = load i32, i32* %1
%34 = icmp eq i32 %33, 0
br i1 %34, label %35, label %61
35: ; preds = %32
%36 = call i32 (i8*, i32, i8*, ...) @snprintf(i8* %4, i32 81, i8* getelementptr inbounds ([46 x i8], [46 x i8]* @.str, i64 0, i64 0), i8* %0)
%37 = call i32 @ffpmsg(i8* %4)
br label %61
38: ; preds = %29
%39 = getelementptr inbounds i8, i8* %0, i64 %15
%40 = load i8, i8* %39
%41 = icmp eq i8 %40, 32
br i1 %41, label %56, label %42
42: ; preds = %38
%43 = load i32, i32* %1
%44 = icmp eq i32 %43, 0
br i1 %44, label %45, label %61
45: ; preds = %42
%46 = getelementptr inbounds i8, i8* %0, i64 %15
%47 = trunc i64 %15 to i32
%48 = add i32 %47, 1
%49 = call i32 (i8*, i32, i8*, ...) @snprintf(i8* %4, i32 81, i8* getelementptr inbounds ([46 x i8], [46 x i8]* @.str.1, i64 0, i64 0), i32 %48, i8* %0)
%50 = call i32 @ffpmsg(i8* %4)
%51 = load i8, i8* %46
switch i8 %51, label %61 [
i8 0, label %53
i8 9, label %52
]
52: ; preds = %45
br label %53
53: ; preds = %45, %52
%54 = phi i8* [ getelementptr inbounds ([36 x i8], [36 x i8]* @.str.3, i64 0, i64 0), %52 ], [ getelementptr inbounds ([30 x i8], [30 x i8]* @.str.2, i64 0, i64 0), %45 ]
%55 = call i32 @ffpmsg(i8* %54)
br label %61
56: ; preds = %38, %30
%57 = phi i32 [ 0, %30 ], [ 1, %38 ]
%58 = add nuw nsw i64 %15, 1
%59 = icmp eq i64 %58, %10
%60 = load i32, i32* %1
br i1 %59, label %62, label %12
61: ; preds = %42, %45, %53, %32, %35
store i32 207, i32* %1
br label %62
62: ; preds = %56, %61, %7, %2
%63 = phi i32 [ %5, %2 ], [ %5, %7 ], [ 207, %61 ], [ %60, %56 ]
ret i32 %63
}