#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 Parrot_str_indexed(int, char *, size_t);
size_t structure_length(int interp, char *sig, size_t start,
                        size_t sig_length) {
  size_t len = 0;
  size_t i = start;
  int depth = 0;
  int c = Parrot_str_indexed(interp, sig, i);
  while (i < sig_length && depth != -1) {
    if ((c == '('))
      depth++;
    else if ((c == ')'))
      depth--;
    else if (depth == 0 &&
             ((c == 'i') || (c == 'v') || (c == 'l') || (c == 't') ||
              (c == 'c') || (c == 'b') || (c == 'f') || (c == 'd') ||
              (c == 'P') || (c == 'J') || (c == 'N') || (c == 'S') ||
              (c == 'O') || (c == '@') || (c == 'B') || (c == 'p') ||
              (c == '2') || (c == '3') || (c == '4') || (c == 'U')))
      len++;
    i++;
    c = Parrot_str_indexed(interp, sig, i);
  }
  return len;
}


x86 assembly (clang, -O0):
<structure_length>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
mov    -0x4(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    -0x30(%rbp),%rdx
call   1030 <Parrot_str_indexed@plt>
mov    %eax,-0x38(%rbp)
mov    -0x30(%rbp),%rcx
xor    %eax,%eax
cmp    -0x20(%rbp),%rcx
mov    %al,-0x39(%rbp)
jae    116e <structure_length+0x5e>
cmpl   $0xffffffff,-0x34(%rbp)
setne  %al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
test   $0x1,%al
jne    117e <structure_length+0x6e>
jmp    12ba <structure_length+0x1aa>
cmpl   $0x28,-0x38(%rbp)
jne    1196 <structure_length+0x86>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1296 <structure_length+0x186>
cmpl   $0x29,-0x38(%rbp)
jne    11ae <structure_length+0x9e>
mov    -0x34(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x34(%rbp)
jmp    1291 <structure_length+0x181>
cmpl   $0x0,-0x34(%rbp)
jne    128c <structure_length+0x17c>
cmpl   $0x69,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x76,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x6c,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x74,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x63,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x62,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x66,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x64,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x50,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x4a,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x4e,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x53,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x4f,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x40,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x42,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x70,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x32,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x33,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x34,-0x38(%rbp)
je     1280 <structure_length+0x170>
cmpl   $0x55,-0x38(%rbp)
jne    128c <structure_length+0x17c>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1291 <structure_length+0x181>
jmp    1296 <structure_length+0x186>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x4(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    -0x30(%rbp),%rdx
call   1030 <Parrot_str_indexed@plt>
mov    %eax,-0x38(%rbp)
jmp    1151 <structure_length+0x41>
mov    -0x28(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<structure_length>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rcx,%r14
mov    %rdx,%rbx
mov    %rsi,%r15
mov    %edi,%r13d
call   1030 <Parrot_str_indexed@plt>
xor    %ebp,%ebp
cmp    %r14,%rbx
jae    11ae <structure_length+0x9e>
add    $0x1,%rbx
xor    %r12d,%r12d
nopw   0x0(%rax,%rax,1)
cmp    $0x29,%eax
je     1150 <structure_length+0x40>
cmp    $0x28,%eax
jne    1160 <structure_length+0x50>
add    $0x1,%ebp
jmp    1190 <structure_length+0x80>
nop
add    $0xffffffff,%ebp
jmp    1190 <structure_length+0x80>
cs nopw 0x0(%rax,%rax,1)
nop
test   %ebp,%ebp
jne    1190 <structure_length+0x80>
xor    %ebp,%ebp
add    $0xffffffce,%eax
cmp    $0x44,%eax
ja     1190 <structure_length+0x80>
lea    0xe8b(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
add    $0x1,%r12
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r13d,%edi
mov    %r15,%rsi
mov    %rbx,%rdx
call   1030 <Parrot_str_indexed@plt>
cmp    %r14,%rbx
jae    11b1 <structure_length+0xa1>
add    $0x1,%rbx
cmp    $0xffffffff,%ebp
jne    1140 <structure_length+0x30>
jmp    11b1 <structure_length+0xa1>
xor    %r12d,%r12d
mov    %r12,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i64 @structure_length(i32 %0, i8* %1, i64 %2, i64 %3) {
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i32
%12 = alloca i32
store i32 %0, i32* %5
store i8* %1, i8** %6
store i64 %2, i64* %7
store i64 %3, i64* %8
store i64 0, i64* %9
%13 = load i64, i64* %7
store i64 %13, i64* %10
store i32 0, i32* %11
%14 = load i32, i32* %5
%15 = load i8*, i8** %6
%16 = load i64, i64* %10
%17 = call i32 @Parrot_str_indexed(i32 %14, i8* %15, i64 %16)
store i32 %17, i32* %12
br label %18
18: ; preds = %107, %4
%19 = load i64, i64* %10
%20 = load i64, i64* %8
%21 = icmp ult i64 %19, %20
br i1 %21, label %22, label %25
22: ; preds = %18
%23 = load i32, i32* %11
%24 = icmp ne i32 %23, -1
br label %25
25: ; preds = %22, %18
%26 = phi i1 [ false, %18 ], [ %24, %22 ]
br i1 %26, label %27, label %114
27: ; preds = %25
%28 = load i32, i32* %12
%29 = icmp eq i32 %28, 40
br i1 %29, label %30, label %33
30: ; preds = %27
%31 = load i32, i32* %11
%32 = add nsw i32 %31, 1
store i32 %32, i32* %11
br label %107
33: ; preds = %27
%34 = load i32, i32* %12
%35 = icmp eq i32 %34, 41
br i1 %35, label %36, label %39
36: ; preds = %33
%37 = load i32, i32* %11
%38 = add nsw i32 %37, -1
store i32 %38, i32* %11
br label %106
39: ; preds = %33
%40 = load i32, i32* %11
%41 = icmp eq i32 %40, 0
br i1 %41, label %42, label %105
42: ; preds = %39
%43 = load i32, i32* %12
%44 = icmp eq i32 %43, 105
br i1 %44, label %102, label %45
45: ; preds = %42
%46 = load i32, i32* %12
%47 = icmp eq i32 %46, 118
br i1 %47, label %102, label %48
48: ; preds = %45
%49 = load i32, i32* %12
%50 = icmp eq i32 %49, 108
br i1 %50, label %102, label %51
51: ; preds = %48
%52 = load i32, i32* %12
%53 = icmp eq i32 %52, 116
br i1 %53, label %102, label %54
54: ; preds = %51
%55 = load i32, i32* %12
%56 = icmp eq i32 %55, 99
br i1 %56, label %102, label %57
57: ; preds = %54
%58 = load i32, i32* %12
%59 = icmp eq i32 %58, 98
br i1 %59, label %102, label %60
60: ; preds = %57
%61 = load i32, i32* %12
%62 = icmp eq i32 %61, 102
br i1 %62, label %102, label %63
63: ; preds = %60
%64 = load i32, i32* %12
%65 = icmp eq i32 %64, 100
br i1 %65, label %102, label %66
66: ; preds = %63
%67 = load i32, i32* %12
%68 = icmp eq i32 %67, 80
br i1 %68, label %102, label %69
69: ; preds = %66
%70 = load i32, i32* %12
%71 = icmp eq i32 %70, 74
br i1 %71, label %102, label %72
72: ; preds = %69
%73 = load i32, i32* %12
%74 = icmp eq i32 %73, 78
br i1 %74, label %102, label %75
75: ; preds = %72
%76 = load i32, i32* %12
%77 = icmp eq i32 %76, 83
br i1 %77, label %102, label %78
78: ; preds = %75
%79 = load i32, i32* %12
%80 = icmp eq i32 %79, 79
br i1 %80, label %102, label %81
81: ; preds = %78
%82 = load i32, i32* %12
%83 = icmp eq i32 %82, 64
br i1 %83, label %102, label %84
84: ; preds = %81
%85 = load i32, i32* %12
%86 = icmp eq i32 %85, 66
br i1 %86, label %102, label %87
87: ; preds = %84
%88 = load i32, i32* %12
%89 = icmp eq i32 %88, 112
br i1 %89, label %102, label %90
90: ; preds = %87
%91 = load i32, i32* %12
%92 = icmp eq i32 %91, 50
br i1 %92, label %102, label %93
93: ; preds = %90
%94 = load i32, i32* %12
%95 = icmp eq i32 %94, 51
br i1 %95, label %102, label %96
96: ; preds = %93
%97 = load i32, i32* %12
%98 = icmp eq i32 %97, 52
br i1 %98, label %102, label %99
99: ; preds = %96
%100 = load i32, i32* %12
%101 = icmp eq i32 %100, 85
br i1 %101, label %102, label %105
102: ; preds = %99, %96, %93, %90, %87, %84, %81, %78, %75, %72, %69, %66, %63, %60, %57, %54, %51, %48, %45, %42
%103 = load i64, i64* %9
%104 = add i64 %103, 1
store i64 %104, i64* %9
br label %105
105: ; preds = %102, %99, %39
br label %106
106: ; preds = %105, %36
br label %107
107: ; preds = %106, %30
%108 = load i64, i64* %10
%109 = add i64 %108, 1
store i64 %109, i64* %10
%110 = load i32, i32* %5
%111 = load i8*, i8** %6
%112 = load i64, i64* %10
%113 = call i32 @Parrot_str_indexed(i32 %110, i8* %111, i64 %112)
store i32 %113, i32* %12
br label %18
114: ; preds = %25
%115 = load i64, i64* %9
ret i64 %115
}

LLVM IR (-O2):
define i64 @structure_length(i32 %0, i8* %1, i64 %2, i64 %3) {
%5 = tail call i32 @Parrot_str_indexed(i32 %0, i8* %1, i64 %2)
%6 = icmp ult i64 %2, %3
br i1 %6, label %7, label %29
7: ; preds = %4, %21
%8 = phi i32 [ %25, %21 ], [ %5, %4 ]
%9 = phi i32 [ %23, %21 ], [ 0, %4 ]
%10 = phi i64 [ %24, %21 ], [ %2, %4 ]
%11 = phi i64 [ %22, %21 ], [ 0, %4 ]
switch i32 %8, label %16 [
i32 40, label %12
i32 41, label %14
]
12: ; preds = %7
%13 = add nsw i32 %9, 1
br label %21
14: ; preds = %7
%15 = add nsw i32 %9, -1
br label %21
16: ; preds = %7
%17 = icmp eq i32 %9, 0
br i1 %17, label %18, label %21
18: ; preds = %16
switch i32 %8, label %21 [
i32 118, label %19
i32 116, label %19
i32 112, label %19
i32 108, label %19
i32 105, label %19
i32 102, label %19
i32 100, label %19
i32 99, label %19
i32 98, label %19
i32 85, label %19
i32 83, label %19
i32 80, label %19
i32 79, label %19
i32 78, label %19
i32 74, label %19
i32 66, label %19
i32 64, label %19
i32 52, label %19
i32 51, label %19
i32 50, label %19
]
19: ; preds = %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18, %18
%20 = add i64 %11, 1
br label %21
21: ; preds = %18, %14, %19, %16, %12
%22 = phi i64 [ %11, %12 ], [ %11, %14 ], [ %20, %19 ], [ %11, %18 ], [ %11, %16 ]
%23 = phi i32 [ %13, %12 ], [ %15, %14 ], [ 0, %19 ], [ 0, %18 ], [ %9, %16 ]
%24 = add nuw i64 %10, 1
%25 = tail call i32 @Parrot_str_indexed(i32 %0, i8* %1, i64 %24)
%26 = icmp ult i64 %24, %3
%27 = icmp ne i32 %23, -1
%28 = select i1 %26, i1 %27, i1 false
br i1 %28, label %7, label %29
29: ; preds = %21, %4
%30 = phi i64 [ 0, %4 ], [ %22, %21 ]
ret i64 %30
}