#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 /*<<< orphan*/ gripe(char *, char *);
int chrtobin(char *cstring) {
  int sign;
  int base;
  int value;
  char *raw_cstring;
  sign = 1;
  base = 10;
  value = 0;
  raw_cstring = cstring;
  if (*cstring == '\0')
    gripe(cstring, "Null number.");
  if (*cstring == '-')
    sign = -1;
  if (*cstring == '-' || *cstring == '+')
    cstring++;
  if (*cstring == '\0')
    gripe(raw_cstring, "A naked sign is not a number!");
  if (*cstring == '0')
    base = 8;
  while (*cstring != '\0') {
    if (*cstring < '0' || *cstring >= '0' + base)
      gripe(raw_cstring, "Not an octal or decimal number.");
    value = base * value + (*cstring++) - '0';
  }
  return (sign * value);
}


x86 assembly (clang, -O0):
<chrtobin>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
movl   $0x1,-0xc(%rbp)
movl   $0xa,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1159 <chrtobin+0x49>
mov    -0x8(%rbp),%rdi
lea    0xeac(%rip),%rsi
call   1030 <gripe@plt>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    1170 <chrtobin+0x60>
movl   $0xffffffff,-0xc(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
je     1190 <chrtobin+0x80>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
jne    119c <chrtobin+0x8c>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11bc <chrtobin+0xac>
mov    -0x20(%rbp),%rdi
lea    0xe56(%rip),%rsi
call   1030 <gripe@plt>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jne    11d3 <chrtobin+0xc3>
movl   $0x8,-0x10(%rbp)
jmp    11d8 <chrtobin+0xc8>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     1243 <chrtobin+0x133>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jl     120d <chrtobin+0xfd>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
mov    -0x10(%rbp),%ecx
add    $0x30,%ecx
cmp    %ecx,%eax
jl     121d <chrtobin+0x10d>
mov    -0x20(%rbp),%rdi
lea    0xe13(%rip),%rsi
call   1030 <gripe@plt>
mov    -0x10(%rbp),%eax
imul   -0x14(%rbp),%eax
mov    -0x8(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x8(%rbp)
movsbl (%rcx),%ecx
add    %ecx,%eax
sub    $0x30,%eax
mov    %eax,-0x14(%rbp)
jmp    11d8 <chrtobin+0xc8>
mov    -0xc(%rbp),%eax
imul   -0x14(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<chrtobin>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r12
mov    (%rdi),%bpl
test   %bpl,%bpl
je     112e <chrtobin+0x1e>
cmp    $0x2d,%bpl
jne    1147 <chrtobin+0x37>
jmp    1152 <chrtobin+0x42>
lea    0xecb(%rip),%rsi
mov    %r12,%rdi
call   1030 <gripe@plt>
mov    (%r12),%bpl
cmp    $0x2d,%bpl
je     1152 <chrtobin+0x42>
mov    %ebp,%eax
mov    %r12,%rbx
cmp    $0x2b,%bpl
jne    115c <chrtobin+0x4c>
lea    0x1(%r12),%rbx
mov    0x1(%r12),%al
test   %al,%al
mov    %bpl,0x7(%rsp)
je     116e <chrtobin+0x5e>
xor    %ecx,%ecx
cmp    $0x30,%al
setne  %cl
jmp    118c <chrtobin+0x7c>
lea    0xe98(%rip),%rsi
mov    %r12,%rdi
call   1030 <gripe@plt>
mov    (%rbx),%al
xor    %ecx,%ecx
cmp    $0x30,%al
setne  %dl
test   %al,%al
je     11e1 <chrtobin+0xd1>
mov    %dl,%cl
lea    (%rcx,%rcx,1),%r13d
add    $0x8,%r13d
lea    0x30(%r13),%r15d
add    $0x1,%rbx
xor    %ebp,%ebp
lea    0xe86(%rip),%r14
jmp    11d3 <chrtobin+0xc3>
nopw   0x0(%rax,%rax,1)
mov    %r12,%rdi
mov    %r14,%rsi
call   1030 <gripe@plt>
movsbl -0x1(%rbx),%eax
imul   %r13d,%ebp
add    %eax,%ebp
add    $0xffffffd0,%ebp
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
je     11e3 <chrtobin+0xd3>
cmp    $0x30,%al
jl     11b0 <chrtobin+0xa0>
movsbl %al,%eax
cmp    %eax,%r15d
jg     11bf <chrtobin+0xaf>
jmp    11b0 <chrtobin+0xa0>
xor    %ebp,%ebp
mov    %ebp,%eax
neg    %eax
cmpb   $0x2d,0x7(%rsp)
cmovne %ebp,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [13 x i8] c"Null number.\00"
@.str.1 = [30 x i8] c"A naked sign is not a number!\00"
@.str.2 = [32 x i8] c"Not an octal or decimal number.\00"
define i32 @chrtobin(i8* %0) {
%2 = alloca i8*
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i8*
store i8* %0, i8** %2
store i32 1, i32* %3
store i32 10, i32* %4
store i32 0, i32* %5
%7 = load i8*, i8** %2
store i8* %7, i8** %6
%8 = load i8*, i8** %2
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %15
12: ; preds = %1
%13 = load i8*, i8** %2
%14 = call i32 @gripe(i8* %13, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0))
br label %15
15: ; preds = %12, %1
%16 = load i8*, i8** %2
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = icmp eq i32 %18, 45
br i1 %19, label %20, label %21
20: ; preds = %15
store i32 -1, i32* %3
br label %21
21: ; preds = %20, %15
%22 = load i8*, i8** %2
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 45
br i1 %25, label %31, label %26
26: ; preds = %21
%27 = load i8*, i8** %2
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = icmp eq i32 %29, 43
br i1 %30, label %31, label %34
31: ; preds = %26, %21
%32 = load i8*, i8** %2
%33 = getelementptr inbounds i8, i8* %32, i32 1
store i8* %33, i8** %2
br label %34
34: ; preds = %31, %26
%35 = load i8*, i8** %2
%36 = load i8, i8* %35
%37 = sext i8 %36 to i32
%38 = icmp eq i32 %37, 0
br i1 %38, label %39, label %42
39: ; preds = %34
%40 = load i8*, i8** %6
%41 = call i32 @gripe(i8* %40, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.1, i64 0, i64 0))
br label %42
42: ; preds = %39, %34
%43 = load i8*, i8** %2
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp eq i32 %45, 48
br i1 %46, label %47, label %48
47: ; preds = %42
store i32 8, i32* %4
br label %48
48: ; preds = %47, %42
br label %49
49: ; preds = %69, %48
%50 = load i8*, i8** %2
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = icmp ne i32 %52, 0
br i1 %53, label %54, label %79
54: ; preds = %49
%55 = load i8*, i8** %2
%56 = load i8, i8* %55
%57 = sext i8 %56 to i32
%58 = icmp slt i32 %57, 48
br i1 %58, label %66, label %59
59: ; preds = %54
%60 = load i8*, i8** %2
%61 = load i8, i8* %60
%62 = sext i8 %61 to i32
%63 = load i32, i32* %4
%64 = add nsw i32 48, %63
%65 = icmp sge i32 %62, %64
br i1 %65, label %66, label %69
66: ; preds = %59, %54
%67 = load i8*, i8** %6
%68 = call i32 @gripe(i8* %67, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.2, i64 0, i64 0))
br label %69
69: ; preds = %66, %59
%70 = load i32, i32* %4
%71 = load i32, i32* %5
%72 = mul nsw i32 %70, %71
%73 = load i8*, i8** %2
%74 = getelementptr inbounds i8, i8* %73, i32 1
store i8* %74, i8** %2
%75 = load i8, i8* %73
%76 = sext i8 %75 to i32
%77 = add nsw i32 %72, %76
%78 = sub nsw i32 %77, 48
store i32 %78, i32* %5
br label %49
79: ; preds = %49
%80 = load i32, i32* %3
%81 = load i32, i32* %5
%82 = mul nsw i32 %80, %81
ret i32 %82
}

LLVM IR (-O2):
@.str = [13 x i8] c"Null number.\00"
@.str.1 = [30 x i8] c"A naked sign is not a number!\00"
@.str.2 = [32 x i8] c"Not an octal or decimal number.\00"
define i32 @chrtobin(i8* %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 0
br i1 %3, label %4, label %7
4: ; preds = %1
%5 = tail call i32 @gripe(i8* %0, i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0))
%6 = load i8, i8* %0
br label %7
7: ; preds = %4, %1
%8 = phi i8 [ %6, %4 ], [ %2, %1 ]
switch i8 %8, label %12 [
i8 45, label %9
i8 43, label %9
]
9: ; preds = %7, %7
%10 = getelementptr inbounds i8, i8* %0, i64 1
%11 = load i8, i8* %10
br label %12
12: ; preds = %7, %9
%13 = phi i8 [ %11, %9 ], [ %8, %7 ]
%14 = phi i8* [ %10, %9 ], [ %0, %7 ]
%15 = icmp eq i8 %13, 0
br i1 %15, label %19, label %16
16: ; preds = %12
%17 = icmp eq i8 %13, 48
%18 = select i1 %17, i32 8, i32 10
br label %25
19: ; preds = %12
%20 = tail call i32 @gripe(i8* %0, i8* getelementptr inbounds ([30 x i8], [30 x i8]* @.str.1, i64 0, i64 0))
%21 = load i8, i8* %14
%22 = icmp eq i8 %21, 48
%23 = select i1 %22, i32 8, i32 10
%24 = icmp eq i8 %21, 0
br i1 %24, label %49, label %25
25: ; preds = %16, %19
%26 = phi i32 [ %18, %16 ], [ %23, %19 ]
%27 = phi i8 [ %13, %16 ], [ %21, %19 ]
%28 = or i32 %26, 48
br label %29
29: ; preds = %25, %41
%30 = phi i8* [ %14, %25 ], [ %44, %41 ]
%31 = phi i32 [ 0, %25 ], [ %46, %41 ]
%32 = phi i8 [ %27, %25 ], [ %47, %41 ]
%33 = sext i8 %32 to i32
%34 = icmp sgt i8 %32, 47
%35 = icmp sgt i32 %28, %33
%36 = select i1 %34, i1 %35, i1 false
br i1 %36, label %41, label %37
37: ; preds = %29
%38 = tail call i32 @gripe(i8* %0, i8* getelementptr inbounds ([32 x i8], [32 x i8]* @.str.2, i64 0, i64 0))
%39 = load i8, i8* %30
%40 = sext i8 %39 to i32
br label %41
41: ; preds = %29, %37
%42 = phi i32 [ %33, %29 ], [ %40, %37 ]
%43 = mul nsw i32 %31, %26
%44 = getelementptr inbounds i8, i8* %30, i64 1
%45 = add i32 %43, -48
%46 = add i32 %45, %42
%47 = load i8, i8* %44
%48 = icmp eq i8 %47, 0
br i1 %48, label %49, label %29
49: ; preds = %41, %19
%50 = phi i32 [ 0, %19 ], [ %46, %41 ]
%51 = icmp eq i8 %8, 45
%52 = sub nsw i32 0, %50
%53 = select i1 %51, i32 %52, i32 %50
ret i32 %53
}