char *G_ListNameForPosition(const char *namesList, int position,
                            const char separator) {
  static char buf[1024];
  const char *s, *t;
  char *b;
  int count, len;
  if (!namesList)
    return ((void *)0);
  s = namesList;
  t = s;
  count = 0;
  buf[0] = 0;
  b = buf;
  while (*s && (s = strchr(s, separator))) {
    if (count == position) {
      len = s - t;
      if (len <= 0)
        G_Error("G_NameInStringList: empty name in list\n");
      if (len > 1024 - 1)
        G_Printf("WARNING: G_NameInStringList: name is too long\n");
      while (t <= s) {
        if (*t == separator || t == s) {
          *b = 0;
          break;
        }
        *b = *t;
        t++;
        b++;
      }
      break;
    }
    count++;
    s++;
    t = s;
  }
  if (buf[0] == 0)
    return ((void *)0);
  return buf;
}


x86 assembly (clang, -O0):
<G_ListNameForPosition>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %dl,%al
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %al,-0x15(%rbp)
cmpq   $0x0,-0x10(%rbp)
jne    115c <G_ListNameForPosition+0x2c>
movq   $0x0,-0x8(%rbp)
jmp    12ca <G_ListNameForPosition+0x19a>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x34(%rbp)
movb   $0x0,0x2ed6(%rip)
lea    0x2ecf(%rip),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x39(%rbp)
je     11b5 <G_ListNameForPosition+0x85>
mov    -0x20(%rbp),%rdi
movsbl -0x15(%rbp),%esi
call   1030 <strchr@plt>
mov    %rax,-0x20(%rbp)
cmp    $0x0,%rax
setne  %al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
test   $0x1,%al
jne    11c5 <G_ListNameForPosition+0x95>
jmp    12a2 <G_ListNameForPosition+0x172>
mov    -0x34(%rbp),%eax
cmp    -0x14(%rbp),%eax
jne    1280 <G_ListNameForPosition+0x150>
mov    -0x20(%rbp),%rax
mov    -0x28(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,-0x38(%rbp)
cmpl   $0x0,-0x38(%rbp)
jg     11f7 <G_ListNameForPosition+0xc7>
lea    0xe10(%rip),%rdi
mov    $0x0,%al
call   1050 <G_Error@plt>
cmpl   $0x3ff,-0x38(%rbp)
jle    1212 <G_ListNameForPosition+0xe2>
lea    0xe1d(%rip),%rdi
mov    $0x0,%al
call   1040 <G_Printf@plt>
jmp    1217 <G_ListNameForPosition+0xe7>
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
ja     127b <G_ListNameForPosition+0x14b>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x15(%rbp),%ecx
cmp    %ecx,%eax
je     1246 <G_ListNameForPosition+0x116>
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jne    1252 <G_ListNameForPosition+0x122>
mov    -0x30(%rbp),%rax
movb   $0x0,(%rax)
jmp    127b <G_ListNameForPosition+0x14b>
mov    -0x28(%rbp),%rax
mov    (%rax),%cl
mov    -0x30(%rbp),%rax
mov    %cl,(%rax)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1217 <G_ListNameForPosition+0xe7>
jmp    12a2 <G_ListNameForPosition+0x172>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    1185 <G_ListNameForPosition+0x55>
movsbl 0x2da7(%rip),%eax
cmp    $0x0,%eax
jne    12bf <G_ListNameForPosition+0x18f>
movq   $0x0,-0x8(%rbp)
jmp    12ca <G_ListNameForPosition+0x19a>
lea    0x2d8a(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<G_ListNameForPosition>:
test   %rdi,%rdi
je     118c <G_ListNameForPosition+0x5c>
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %rdi,%rbx
movb   $0x0,0x2f09(%rip)
cmpb   $0x0,(%rdi)
je     11fc <G_ListNameForPosition+0xcc>
mov    %edx,%r14d
mov    %esi,%ebp
movsbl %r14b,%r12d
add    $0x1,%ebp
nopl   0x0(%rax)
mov    %rbx,%rdi
mov    %r12d,%esi
call   1030 <strchr@plt>
test   %rax,%rax
je     11fc <G_ListNameForPosition+0xcc>
mov    %rax,%r15
add    $0xffffffff,%ebp
je     118f <G_ListNameForPosition+0x5f>
mov    %r15,%rbx
add    $0x1,%rbx
cmpb   $0x0,0x1(%r15)
jne    1160 <G_ListNameForPosition+0x30>
jmp    11fc <G_ListNameForPosition+0xcc>
xor    %eax,%eax
ret
mov    %r15d,%eax
sub    %ebx,%eax
test   %eax,%eax
jle    11af <G_ListNameForPosition+0x7f>
cmp    $0x400,%eax
jb     11bd <G_ListNameForPosition+0x8d>
lea    0xe82(%rip),%rdi
xor    %eax,%eax
call   1040 <G_Printf@plt>
jmp    11bd <G_ListNameForPosition+0x8d>
lea    0xe4a(%rip),%rdi
xor    %eax,%eax
call   1050 <G_Error@plt>
cmp    %r15,%rbx
ja     11fc <G_ListNameForPosition+0xcc>
xor    %eax,%eax
lea    0x2e85(%rip),%rcx
nopl   0x0(%rax,%rax,1)
movzbl (%rbx,%rax,1),%edx
cmp    %r14b,%dl
je     11f8 <G_ListNameForPosition+0xc8>
lea    (%rbx,%rax,1),%rsi
cmp    %r15,%rsi
je     11f8 <G_ListNameForPosition+0xc8>
mov    %dl,(%rax,%rcx,1)
lea    (%rbx,%rax,1),%rdx
add    $0x1,%rdx
add    $0x1,%rax
cmp    %r15,%rdx
jbe    11d0 <G_ListNameForPosition+0xa0>
jmp    11fc <G_ListNameForPosition+0xcc>
movb   $0x0,(%rax,%rcx,1)
lea    0x2e4d(%rip),%rcx
xor    %eax,%eax
cmpb   $0x0,0x2e44(%rip)
cmovne %rcx,%rax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@G_ListNameForPosition.buf = internal global [1024 x i8] zeroinitializer
@.str = [40 x i8] c"G_NameInStringList: empty name in list\0A\00"
@.str.1 = [47 x i8] c"WARNING: G_NameInStringList: name is too long\0A\00"
define i8* @G_ListNameForPosition(i8* %0, i32 %1, i8 signext %2) {
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i8
%8 = alloca i8*
%9 = alloca i8*
%10 = alloca i8*
%11 = alloca i32
%12 = alloca i32
store i8* %0, i8** %5
store i32 %1, i32* %6
store i8 %2, i8* %7
%13 = load i8*, i8** %5
%14 = icmp ne i8* %13, null
br i1 %14, label %16, label %15
15: ; preds = %3
store i8* null, i8** %4
br label %91
16: ; preds = %3
%17 = load i8*, i8** %5
store i8* %17, i8** %8
%18 = load i8*, i8** %8
store i8* %18, i8** %9
store i32 0, i32* %11
store i8 0, i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0)
store i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0), i8** %10
br label %19
19: ; preds = %79, %16
%20 = load i8*, i8** %8
%21 = load i8, i8* %20
%22 = sext i8 %21 to i32
%23 = icmp ne i32 %22, 0
br i1 %23, label %24, label %30
24: ; preds = %19
%25 = load i8*, i8** %8
%26 = load i8, i8* %7
%27 = sext i8 %26 to i32
%28 = call i8* @strchr(i8* %25, i32 %27)
store i8* %28, i8** %8
%29 = icmp ne i8* %28, null
br label %30
30: ; preds = %24, %19
%31 = phi i1 [ false, %19 ], [ %29, %24 ]
br i1 %31, label %32, label %85
32: ; preds = %30
%33 = load i32, i32* %11
%34 = load i32, i32* %6
%35 = icmp eq i32 %33, %34
br i1 %35, label %36, label %79
36: ; preds = %32
%37 = load i8*, i8** %8
%38 = load i8*, i8** %9
%39 = ptrtoint i8* %37 to i64
%40 = ptrtoint i8* %38 to i64
%41 = sub i64 %39, %40
%42 = trunc i64 %41 to i32
store i32 %42, i32* %12
%43 = load i32, i32* %12
%44 = icmp sle i32 %43, 0
br i1 %44, label %45, label %47
45: ; preds = %36
%46 = call i32 (i8*, ...) bitcast (i32 (...)* @G_Error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([40 x i8], [40 x i8]* @.str, i64 0, i64 0))
br label %47
47: ; preds = %45, %36
%48 = load i32, i32* %12
%49 = icmp sgt i32 %48, 1023
br i1 %49, label %50, label %52
50: ; preds = %47
%51 = call i32 (i8*, ...) bitcast (i32 (...)* @G_Printf to i32 (i8*, ...)*)(i8* getelementptr inbounds ([47 x i8], [47 x i8]* @.str.1, i64 0, i64 0))
br label %52
52: ; preds = %50, %47
br label %53
53: ; preds = %70, %52
%54 = load i8*, i8** %9
%55 = load i8*, i8** %8
%56 = icmp ule i8* %54, %55
br i1 %56, label %57, label %78
57: ; preds = %53
%58 = load i8*, i8** %9
%59 = load i8, i8* %58
%60 = sext i8 %59 to i32
%61 = load i8, i8* %7
%62 = sext i8 %61 to i32
%63 = icmp eq i32 %60, %62
br i1 %63, label %68, label %64
64: ; preds = %57
%65 = load i8*, i8** %9
%66 = load i8*, i8** %8
%67 = icmp eq i8* %65, %66
br i1 %67, label %68, label %70
68: ; preds = %64, %57
%69 = load i8*, i8** %10
store i8 0, i8* %69
br label %78
70: ; preds = %64
%71 = load i8*, i8** %9
%72 = load i8, i8* %71
%73 = load i8*, i8** %10
store i8 %72, i8* %73
%74 = load i8*, i8** %9
%75 = getelementptr inbounds i8, i8* %74, i32 1
store i8* %75, i8** %9
%76 = load i8*, i8** %10
%77 = getelementptr inbounds i8, i8* %76, i32 1
store i8* %77, i8** %10
br label %53
78: ; preds = %68, %53
br label %85
79: ; preds = %32
%80 = load i32, i32* %11
%81 = add nsw i32 %80, 1
store i32 %81, i32* %11
%82 = load i8*, i8** %8
%83 = getelementptr inbounds i8, i8* %82, i32 1
store i8* %83, i8** %8
%84 = load i8*, i8** %8
store i8* %84, i8** %9
br label %19
85: ; preds = %78, %30
%86 = load i8, i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0)
%87 = sext i8 %86 to i32
%88 = icmp eq i32 %87, 0
br i1 %88, label %89, label %90
89: ; preds = %85
store i8* null, i8** %4
br label %91
90: ; preds = %85
store i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0), i8** %4
br label %91
91: ; preds = %90, %89, %15
%92 = load i8*, i8** %4
ret i8* %92
}

LLVM IR (-O2):
@G_ListNameForPosition.buf = internal global [1024 x i8] zeroinitializer
@.str = [40 x i8] c"G_NameInStringList: empty name in list\0A\00"
@.str.1 = [47 x i8] c"WARNING: G_NameInStringList: name is too long\0A\00"
define i8* @G_ListNameForPosition(i8* %0, i32 %1, i8 signext %2) {
%4 = icmp eq i8* %0, null
br i1 %4, label %52, label %5
5: ; preds = %3
store i8 0, i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0)
%6 = load i8, i8* %0
%7 = icmp eq i8 %6, 0
br i1 %7, label %48, label %8
8: ; preds = %5
%9 = sext i8 %2 to i32
br label %10
10: ; preds = %8, %43
%11 = phi i32 [ 0, %8 ], [ %44, %43 ]
%12 = phi i8* [ %0, %8 ], [ %45, %43 ]
%13 = tail call i8* @strchr(i8* %12, i32 %9)
%14 = icmp eq i8* %13, null
br i1 %14, label %48, label %15
15: ; preds = %10
%16 = icmp eq i32 %11, %1
br i1 %16, label %17, label %43
17: ; preds = %15
%18 = ptrtoint i8* %13 to i64
%19 = ptrtoint i8* %12 to i64
%20 = sub i64 %18, %19
%21 = trunc i64 %20 to i32
%22 = icmp slt i32 %21, 1
br i1 %22, label %23, label %25
23: ; preds = %17
%24 = tail call i32 (i8*, ...) bitcast (i32 (...)* @G_Error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([40 x i8], [40 x i8]* @.str, i64 0, i64 0))
br label %29
25: ; preds = %17
%26 = icmp ugt i32 %21, 1023
br i1 %26, label %27, label %29
27: ; preds = %25
%28 = tail call i32 (i8*, ...) bitcast (i32 (...)* @G_Printf to i32 (i8*, ...)*)(i8* getelementptr inbounds ([47 x i8], [47 x i8]* @.str.1, i64 0, i64 0))
br label %29
29: ; preds = %23, %27, %25
%30 = icmp ugt i8* %12, %13
br i1 %30, label %48, label %31
31: ; preds = %29, %39
%32 = phi i8* [ %41, %39 ], [ getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0), %29 ]
%33 = phi i8* [ %40, %39 ], [ %12, %29 ]
%34 = load i8, i8* %33
%35 = icmp eq i8 %34, %2
%36 = icmp eq i8* %33, %13
%37 = select i1 %35, i1 true, i1 %36
br i1 %37, label %38, label %39
38: ; preds = %31
store i8 0, i8* %32
br label %48
39: ; preds = %31
store i8 %34, i8* %32
%40 = getelementptr inbounds i8, i8* %33, i64 1
%41 = getelementptr inbounds i8, i8* %32, i64 1
%42 = icmp ugt i8* %40, %13
br i1 %42, label %48, label %31
43: ; preds = %15
%44 = add nuw nsw i32 %11, 1
%45 = getelementptr inbounds i8, i8* %13, i64 1
%46 = load i8, i8* %45
%47 = icmp eq i8 %46, 0
br i1 %47, label %48, label %10
48: ; preds = %10, %43, %39, %5, %29, %38
%49 = load i8, i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0)
%50 = icmp eq i8 %49, 0
%51 = select i1 %50, i8* null, i8* getelementptr inbounds ([1024 x i8], [1024 x i8]* @G_ListNameForPosition.buf, i64 0, i64 0)
br label %52
52: ; preds = %48, %3
%53 = phi i8* [ null, %3 ], [ %51, %48 ]
ret i8* %53
}