remove_comments(char *s) {
  int inquote = -1;
  char quotes[(4 * 8192)];
  char *p;
  for (p = s; *p; p++) {
    if (*p == '\'' || *p == '"') {
      if (inquote >= 0) {
        if (quotes[inquote] == *p) {
          inquote--;
        } else {
          inquote++;
          quotes[inquote] = *p;
        }
      } else {
        inquote++;
        quotes[inquote] = *p;
      }
    }
    if (inquote < 0) {
      if (*p == '!') {
        *p = '\0';
        break;
      }
    }
  }
}


x86 assembly (clang, -O0):
<remove_comments>:
push   %rbp
mov    %rsp,%rbp
sub    $0x7fb0,%rsp
mov    %rdi,-0x10(%rbp)
movl   $0xffffffff,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x8028(%rbp)
mov    -0x8028(%rbp),%rax
cmpb   $0x0,(%rax)
je     121e <remove_comments+0x11e>
mov    -0x8028(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x27,%eax
je     1157 <remove_comments+0x57>
mov    -0x8028(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x22,%eax
jne    11d1 <remove_comments+0xd1>
cmpl   $0x0,-0x14(%rbp)
jl     11af <remove_comments+0xaf>
movslq -0x14(%rbp),%rax
movsbl -0x8020(%rbp,%rax,1),%eax
ff
mov    -0x8028(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
jne    118d <remove_comments+0x8d>
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
jmp    11aa <remove_comments+0xaa>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8028(%rbp),%rax
mov    (%rax),%cl
movslq -0x14(%rbp),%rax
mov    %cl,-0x8020(%rbp,%rax,1)
jmp    11cc <remove_comments+0xcc>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8028(%rbp),%rax
mov    (%rax),%cl
movslq -0x14(%rbp),%rax
mov    %cl,-0x8020(%rbp,%rax,1)
jmp    11d1 <remove_comments+0xd1>
cmpl   $0x0,-0x14(%rbp)
jge    1202 <remove_comments+0x102>
mov    -0x8028(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x21,%eax
jne    11fd <remove_comments+0xfd>
mov    -0x8028(%rbp),%rax
movb   $0x0,(%rax)
jmp    121e <remove_comments+0x11e>
jmp    1202 <remove_comments+0x102>
jmp    1207 <remove_comments+0x107>
mov    -0x8028(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8028(%rbp)
jmp    1121 <remove_comments+0x21>
mov    -0x4(%rbp),%eax
add    $0x7fb0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<remove_comments>:
sub    $0x7f88,%rsp
mov    $0xffffffff,%eax
jmp    111e <remove_comments+0x1e>
xchg   %ax,%ax
mov    %cl,-0x7f(%rsp,%rdx,1)
add    $0x1,%rdx
mov    %edx,%eax
add    $0x1,%rdi
movzbl (%rdi),%ecx
cmp    $0x22,%cl
je     1140 <remove_comments+0x40>
cmp    $0x27,%cl
je     1140 <remove_comments+0x40>
test   %cl,%cl
je     1173 <remove_comments+0x73>
test   %eax,%eax
jns    111a <remove_comments+0x1a>
cmp    $0x21,%cl
jne    111a <remove_comments+0x1a>
jmp    1170 <remove_comments+0x70>
nopw   0x0(%rax,%rax,1)
test   %eax,%eax
js     1160 <remove_comments+0x60>
mov    %eax,%edx
cmp    %cl,-0x80(%rsp,%rdx,1)
jne    1110 <remove_comments+0x10>
add    $0xffffffff,%eax
add    $0x1,%rdi
jmp    111e <remove_comments+0x1e>
cs nopw 0x0(%rax,%rax,1)
nop
cltq
mov    %cl,-0x7f(%rsp,%rax,1)
add    $0x1,%rax
add    $0x1,%rdi
jmp    111e <remove_comments+0x1e>
movb   $0x0,(%rdi)
add    $0x7f88,%rsp
ret

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

LLVM IR (-O2):
define i32 @remove_comments(i8* nocapture %0) {
%2 = alloca [32768 x i8]
%3 = getelementptr inbounds [32768 x i8], [32768 x i8]* %2, i64 0, i64 0
br label %4
4: ; preds = %30, %1
%5 = phi i32 [ -1, %1 ], [ %31, %30 ]
%6 = phi i8* [ %0, %1 ], [ %32, %30 ]
%7 = load i8, i8* %6
switch i8 %7, label %25 [
i8 0, label %33
i8 39, label %8
i8 34, label %8
]
8: ; preds = %4, %4
%9 = icmp sgt i32 %5, -1
br i1 %9, label %10, label %21
10: ; preds = %8
%11 = zext i32 %5 to i64
%12 = getelementptr inbounds [32768 x i8], [32768 x i8]* %2, i64 0, i64 %11
%13 = load i8, i8* %12
%14 = icmp eq i8 %13, %7
br i1 %14, label %15, label %17
15: ; preds = %10
%16 = add nsw i32 %5, -1
br label %30
17: ; preds = %10
%18 = add nuw nsw i32 %5, 1
%19 = zext i32 %18 to i64
%20 = getelementptr inbounds [32768 x i8], [32768 x i8]* %2, i64 0, i64 %19
store i8 %7, i8* %20
br label %30
21: ; preds = %8
%22 = add nsw i32 %5, 1
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds [32768 x i8], [32768 x i8]* %2, i64 0, i64 %23
store i8 %7, i8* %24
br label %30
25: ; preds = %4
%26 = icmp slt i32 %5, 0
%27 = icmp eq i8 %7, 33
%28 = select i1 %26, i1 %27, i1 false
br i1 %28, label %29, label %30
29: ; preds = %25
store i8 0, i8* %6
br label %33
30: ; preds = %15, %21, %17, %25
%31 = phi i32 [ %18, %17 ], [ %5, %25 ], [ %22, %21 ], [ %16, %15 ]
%32 = getelementptr inbounds i8, i8* %6, i64 1
br label %4
33: ; preds = %4, %29
ret i32 undef
}