int scan(length, tst, ch, src)
int length;
char tst, ch;
register char *src;
{
  register inc, l;
  if (length < 0)
    inc = -1;
  else
    inc = 1;
  if (tst == '!') {
    for (l = ((int)inc) * length; l > 0; l--, src += (long)inc)
      if (*src != ch)
        break;
  } else {
    for (l = ((int)inc) * length; l > 0; l--, src += (long)inc)
      if (*src == ch)
        break;
  }
  return length - (inc * l);
}


x86 assembly (clang, -O0):
<scan>:
push   %rbp
mov    %rsp,%rbp
mov    %edx,%eax
mov    %sil,%dl
mov    %edi,-0x4(%rbp)
mov    %dl,-0x5(%rbp)
mov    %al,-0x6(%rbp)
mov    %rcx,-0x10(%rbp)
cmpl   $0x0,-0x4(%rbp)
jge    112c <scan+0x2c>
movl   $0xffffffff,-0x14(%rbp)
jmp    1133 <scan+0x33>
movl   $0x1,-0x14(%rbp)
movsbl -0x5(%rbp),%eax
cmp    $0x21,%eax
jne    1190 <scan+0x90>
mov    -0x14(%rbp),%eax
imul   -0x4(%rbp),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jle    118b <scan+0x8b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x6(%rbp),%ecx
cmp    %ecx,%eax
je     116c <scan+0x6c>
jmp    118b <scan+0x8b>
jmp    1171 <scan+0x71>
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
movslq -0x14(%rbp),%rax
add    -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
jmp    114a <scan+0x4a>
jmp    11e0 <scan+0xe0>
mov    -0x14(%rbp),%eax
imul   -0x4(%rbp),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x18(%rbp)
jle    11db <scan+0xdb>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x6(%rbp),%ecx
cmp    %ecx,%eax
jne    11bc <scan+0xbc>
jmp    11db <scan+0xdb>
jmp    11c1 <scan+0xc1>
mov    -0x18(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x18(%rbp)
movslq -0x14(%rbp),%rax
add    -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
jmp    119a <scan+0x9a>
jmp    11e0 <scan+0xe0>
mov    -0x4(%rbp),%eax
mov    -0x14(%rbp),%ecx
imul   -0x18(%rbp),%ecx
sub    %ecx,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<scan>:
mov    %edi,%eax
mov    %edi,%r8d
sar    $0x1f,%r8d
or     $0x1,%r8d
mov    %r8d,%edi
imul   %eax,%edi
cmp    $0x21,%sil
jne    1146 <scan+0x46>
test   %edi,%edi
jle    1166 <scan+0x66>
movsbl %dl,%edx
movslq %r8d,%r9
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsbl (%rcx),%esi
cmp    %esi,%edx
jne    1166 <scan+0x66>
lea    -0x1(%rdi),%esi
add    %r9,%rcx
cmp    $0x1,%edi
mov    %esi,%edi
jg     1130 <scan+0x30>
jmp    1164 <scan+0x64>
test   %edi,%edi
jle    1166 <scan+0x66>
movsbl %dl,%edx
movslq %r8d,%r9
movsbl (%rcx),%esi
cmp    %esi,%edx
je     1166 <scan+0x66>
lea    -0x1(%rdi),%esi
add    %r9,%rcx
cmp    $0x1,%edi
mov    %esi,%edi
jg     1150 <scan+0x50>
xor    %edi,%edi
imul   %r8d,%edi
sub    %edi,%eax
ret

LLVM IR (-O0):
define i32 @scan(i32 %0, i32 %1, i32 %2, i8* %3) {
%5 = alloca i32
%6 = alloca i8
%7 = alloca i8
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i32
%11 = trunc i32 %1 to i8
%12 = trunc i32 %2 to i8
store i32 %0, i32* %5
store i8 %11, i8* %6
store i8 %12, i8* %7
store i8* %3, i8** %8
%13 = load i32, i32* %5
%14 = icmp slt i32 %13, 0
br i1 %14, label %15, label %16
15: ; preds = %4
store i32 -1, i32* %9
br label %17
16: ; preds = %4
store i32 1, i32* %9
br label %17
17: ; preds = %16, %15
%18 = load i8, i8* %6
%19 = sext i8 %18 to i32
%20 = icmp eq i32 %19, 33
br i1 %20, label %21, label %45
21: ; preds = %17
%22 = load i32, i32* %9
%23 = load i32, i32* %5
%24 = mul nsw i32 %22, %23
store i32 %24, i32* %10
br label %25
25: ; preds = %37, %21
%26 = load i32, i32* %10
%27 = icmp sgt i32 %26, 0
br i1 %27, label %28, label %44
28: ; preds = %25
%29 = load i8*, i8** %8
%30 = load i8, i8* %29
%31 = sext i8 %30 to i32
%32 = load i8, i8* %7
%33 = sext i8 %32 to i32
%34 = icmp ne i32 %31, %33
br i1 %34, label %35, label %36
35: ; preds = %28
br label %44
36: ; preds = %28
br label %37
37: ; preds = %36
%38 = load i32, i32* %10
%39 = add nsw i32 %38, -1
store i32 %39, i32* %10
%40 = load i32, i32* %9
%41 = sext i32 %40 to i64
%42 = load i8*, i8** %8
%43 = getelementptr inbounds i8, i8* %42, i64 %41
store i8* %43, i8** %8
br label %25
44: ; preds = %35, %25
br label %69
45: ; preds = %17
%46 = load i32, i32* %9
%47 = load i32, i32* %5
%48 = mul nsw i32 %46, %47
store i32 %48, i32* %10
br label %49
49: ; preds = %61, %45
%50 = load i32, i32* %10
%51 = icmp sgt i32 %50, 0
br i1 %51, label %52, label %68
52: ; preds = %49
%53 = load i8*, i8** %8
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
%56 = load i8, i8* %7
%57 = sext i8 %56 to i32
%58 = icmp eq i32 %55, %57
br i1 %58, label %59, label %60
59: ; preds = %52
br label %68
60: ; preds = %52
br label %61
61: ; preds = %60
%62 = load i32, i32* %10
%63 = add nsw i32 %62, -1
store i32 %63, i32* %10
%64 = load i32, i32* %9
%65 = sext i32 %64 to i64
%66 = load i8*, i8** %8
%67 = getelementptr inbounds i8, i8* %66, i64 %65
store i8* %67, i8** %8
br label %49
68: ; preds = %59, %49
br label %69
69: ; preds = %68, %44
%70 = load i32, i32* %5
%71 = load i32, i32* %9
%72 = load i32, i32* %10
%73 = mul nsw i32 %71, %72
%74 = sub nsw i32 %70, %73
ret i32 %74
}

LLVM IR (-O2):
define i32 @scan(i32 %0, i32 %1, i32 %2, i8* nocapture %3) {
%5 = icmp sgt i32 %0, -1
%6 = select i1 %5, i32 1, i32 -1
%7 = and i32 %1, 255
%8 = icmp eq i32 %7, 33
%9 = mul nsw i32 %6, %0
%10 = icmp sgt i32 %9, 0
br i1 %8, label %11, label %26
11: ; preds = %4
br i1 %10, label %12, label %41
12: ; preds = %11
%13 = shl i32 %2, 24
%14 = ashr exact i32 %13, 24
%15 = sext i32 %6 to i64
br label %16
16: ; preds = %12, %22
%17 = phi i32 [ %9, %12 ], [ %23, %22 ]
%18 = phi i8* [ %3, %12 ], [ %24, %22 ]
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = icmp eq i32 %14, %20
br i1 %21, label %22, label %41
22: ; preds = %16
%23 = add nsw i32 %17, -1
%24 = getelementptr inbounds i8, i8* %18, i64 %15
%25 = icmp sgt i32 %17, 1
br i1 %25, label %16, label %41
26: ; preds = %4
br i1 %10, label %27, label %41
27: ; preds = %26
%28 = shl i32 %2, 24
%29 = ashr exact i32 %28, 24
%30 = sext i32 %6 to i64
br label %31
31: ; preds = %27, %37
%32 = phi i32 [ %9, %27 ], [ %38, %37 ]
%33 = phi i8* [ %3, %27 ], [ %39, %37 ]
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = icmp eq i32 %29, %35
br i1 %36, label %41, label %37
37: ; preds = %31
%38 = add nsw i32 %32, -1
%39 = getelementptr inbounds i8, i8* %33, i64 %30
%40 = icmp sgt i32 %32, 1
br i1 %40, label %31, label %41
41: ; preds = %31, %37, %16, %22, %26, %11
%42 = phi i32 [ %9, %11 ], [ %9, %26 ], [ %17, %16 ], [ 0, %22 ], [ %32, %31 ], [ 0, %37 ]
%43 = mul nsw i32 %42, %6
%44 = sub nsw i32 %0, %43
ret i32 %44
}