int tagged_strlen(const char *s) {
  const char *p;
  int k = 0, in_tag = 0;
  for (p = s; *p; p++) {
    if (*p == '<') {
      in_tag = -1;
      continue;
    } else if (*p == '>') {
      in_tag = 0;
      continue;
    }
    k += in_tag ? 0 : 1;
  }
  return k;
}


x86 assembly (clang, -O0):
<tagged_strlen>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     118f <tagged_strlen+0x8f>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3c,%eax
jne    1147 <tagged_strlen+0x47>
movl   $0xffffffff,-0x18(%rbp)
jmp    117e <tagged_strlen+0x7e>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3e,%eax
jne    1163 <tagged_strlen+0x63>
movl   $0x0,-0x18(%rbp)
jmp    117e <tagged_strlen+0x7e>
jmp    1168 <tagged_strlen+0x68>
mov    -0x18(%rbp),%edx
mov    $0x1,%eax
xor    %ecx,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    111e <tagged_strlen+0x1e>
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<tagged_strlen>:
xor    %eax,%eax
xor    %ecx,%ecx
jmp    1116 <tagged_strlen+0x16>
cs nopw 0x0(%rax,%rax,1)
xor    %ecx,%ecx
add    $0x1,%rdi
movzbl (%rdi),%edx
cmp    $0x3c,%dl
je     1140 <tagged_strlen+0x40>
cmp    $0x3e,%dl
je     1110 <tagged_strlen+0x10>
test   %dl,%dl
je     114b <tagged_strlen+0x4b>
cmp    $0x1,%ecx
adc    $0x0,%eax
add    $0x1,%rdi
jmp    1116 <tagged_strlen+0x16>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    $0xffffffff,%ecx
add    $0x1,%rdi
jmp    1116 <tagged_strlen+0x16>
ret

LLVM IR (-O0):
define i32 @tagged_strlen(i8* %0) {
%2 = alloca i8*
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
store i8* %0, i8** %2
store i32 0, i32* %4
store i32 0, i32* %5
%6 = load i8*, i8** %2
store i8* %6, i8** %3
br label %7
7: ; preds = %31, %1
%8 = load i8*, i8** %3
%9 = load i8, i8* %8
%10 = icmp ne i8 %9, 0
br i1 %10, label %11, label %34
11: ; preds = %7
%12 = load i8*, i8** %3
%13 = load i8, i8* %12
%14 = sext i8 %13 to i32
%15 = icmp eq i32 %14, 60
br i1 %15, label %16, label %17
16: ; preds = %11
store i32 -1, i32* %5
br label %31
17: ; preds = %11
%18 = load i8*, i8** %3
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %20, 62
br i1 %21, label %22, label %23
22: ; preds = %17
store i32 0, i32* %5
br label %31
23: ; preds = %17
br label %24
24: ; preds = %23
%25 = load i32, i32* %5
%26 = icmp ne i32 %25, 0
%27 = zext i1 %26 to i64
%28 = select i1 %26, i32 0, i32 1
%29 = load i32, i32* %4
%30 = add nsw i32 %29, %28
store i32 %30, i32* %4
br label %31
31: ; preds = %24, %22, %16
%32 = load i8*, i8** %3
%33 = getelementptr inbounds i8, i8* %32, i32 1
store i8* %33, i8** %3
br label %7
34: ; preds = %7
%35 = load i32, i32* %4
ret i32 %35
}

LLVM IR (-O2):
define i32 @tagged_strlen(i8* nocapture %0) {
br label %2
2: ; preds = %12, %1
%3 = phi i8* [ %0, %1 ], [ %15, %12 ]
%4 = phi i32 [ 0, %1 ], [ %13, %12 ]
%5 = phi i32 [ 0, %1 ], [ %14, %12 ]
%6 = load i8, i8* %3
switch i8 %6, label %8 [
i8 0, label %16
i8 60, label %12
i8 62, label %7
]
7: ; preds = %2
br label %12
8: ; preds = %2
%9 = icmp eq i32 %5, 0
%10 = zext i1 %9 to i32
%11 = add nsw i32 %4, %10
br label %12
12: ; preds = %2, %8, %7
%13 = phi i32 [ %4, %7 ], [ %11, %8 ], [ %4, %2 ]
%14 = phi i32 [ 0, %7 ], [ %5, %8 ], [ -1, %2 ]
%15 = getelementptr inbounds i8, i8* %3, i64 1
br label %2
16: ; preds = %2
ret i32 %4
}