#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 find_matching(int, char *, size_t, size_t, char, char);
size_t count_args(int interp, char *sig, size_t start, size_t sig_length) {
  size_t length = 0;
  size_t i = start;
  while (i < sig_length) {
    const int c = Parrot_str_indexed(interp, sig, i);
    if ((c == '(')) {
      i = find_matching(interp, sig, i + 1, sig_length, '(', ')');
      length++;
    } else if ((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')) {
      length++;
    }
    i++;
  }
  return length;
}


x86 assembly (clang, -O0):
<count_args>:
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)
mov    -0x30(%rbp),%rax
cmp    -0x20(%rbp),%rax
jae    1295 <count_args+0x175>
mov    -0x4(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    -0x30(%rbp),%rdx
call   1030 <Parrot_str_indexed@plt>
mov    %eax,-0x34(%rbp)
cmpl   $0x28,-0x34(%rbp)
jne    11ab <count_args+0x8b>
mov    -0x4(%rbp),%edi
mov    -0x10(%rbp),%rsi
mov    -0x30(%rbp),%rdx
add    $0x1,%rdx
mov    -0x20(%rbp),%rcx
mov    $0x28,%r8d
mov    $0x29,%r9d
call   1040 <find_matching@plt>
mov    %rax,-0x30(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1284 <count_args+0x164>
cmpl   $0x69,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x76,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x6c,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x74,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x63,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x62,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x66,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x64,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x50,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x4a,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x4e,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x53,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x4f,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x40,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x42,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x70,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x32,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x33,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x34,-0x34(%rbp)
je     1273 <count_args+0x153>
cmpl   $0x55,-0x34(%rbp)
jne    127f <count_args+0x15f>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1284 <count_args+0x164>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1147 <count_args+0x27>
mov    -0x28(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<count_args>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
cmp    %rcx,%rdx
jae    11a5 <count_args+0x85>
mov    %rcx,%r14
mov    %rdx,%rbp
mov    %rsi,%r15
mov    %edi,%r12d
xor    %ebx,%ebx
lea    0xebb(%rip),%r13
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r12d,%edi
mov    %r15,%rsi
mov    %rbp,%rdx
call   1030 <Parrot_str_indexed@plt>
add    $0xffffffd8,%eax
cmp    $0x4e,%eax
ja     1174 <count_args+0x54>
movslq 0x0(%r13,%rax,4),%rax
add    %r13,%rax
jmp    *%rax
add    $0x1,%rbx
add    $0x1,%rbp
cmp    %r14,%rbp
jb     1150 <count_args+0x30>
jmp    11a7 <count_args+0x87>
add    $0x1,%rbp
mov    %r12d,%edi
mov    %r15,%rsi
mov    %rbp,%rdx
mov    %r14,%rcx
mov    $0x28,%r8d
mov    $0x29,%r9d
call   1040 <find_matching@plt>
mov    %rax,%rbp
jmp    1170 <count_args+0x50>
xor    %ebx,%ebx
mov    %rbx,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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