int Tcl_StrToLong(string, base, longPtr) const char *string;
int base;
long *longPtr;
{
  char *end;
  long num;
  num = strtol(string, &end, base);
  while ((*end != '\0') && isspace(*end)) {
    end++;
  }
  if ((end == string) || (*end != 0))
    return (0);
  *longPtr = num;
  return (1);
}


x86 assembly (clang, -O0):
<Tcl_StrToLong>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x14(%rbp),%edx
lea    -0x28(%rbp),%rsi
call   1040 <strtol@plt>
mov    %rax,-0x30(%rbp)
mov    -0x28(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x31(%rbp)
je     1171 <Tcl_StrToLong+0x51>
mov    -0x28(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isspace@plt>
cmp    $0x0,%eax
setne  %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    1181 <Tcl_StrToLong+0x61>
jmp    1192 <Tcl_StrToLong+0x72>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1147 <Tcl_StrToLong+0x27>
mov    -0x28(%rbp),%rax
cmp    -0x10(%rbp),%rax
je     11b0 <Tcl_StrToLong+0x90>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     11bc <Tcl_StrToLong+0x9c>
movl   $0x0,-0x4(%rbp)
jmp    11ce <Tcl_StrToLong+0xae>
mov    -0x30(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rcx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Tcl_StrToLong>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdx,%r14
mov    %esi,%edx
mov    %rdi,%r12
mov    %rsp,%rsi
call   1040 <strtol@plt>
mov    %rax,%r15
mov    (%rsp),%rbx
mov    (%rbx),%al
test   %al,%al
je     1168 <Tcl_StrToLong+0x48>
cs nopw 0x0(%rax,%rax,1)
nop
movsbl %al,%edi
call   1030 <isspace@plt>
test   %eax,%eax
je     1177 <Tcl_StrToLong+0x57>
movzbl 0x1(%rbx),%eax
add    $0x1,%rbx
test   %al,%al
jne    1150 <Tcl_StrToLong+0x30>
cmp    %r12,%rbx
je     1177 <Tcl_StrToLong+0x57>
mov    %r15,(%r14)
mov    $0x1,%eax
jmp    1179 <Tcl_StrToLong+0x59>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @Tcl_StrToLong(i8* %0, i32 %1, i64* %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i64*
%8 = alloca i8*
%9 = alloca i64
store i8* %0, i8** %5
store i32 %1, i32* %6
store i64* %2, i64** %7
%10 = load i8*, i8** %5
%11 = load i32, i32* %6
%12 = call i64 @strtol(i8* %10, i8** %8, i32 %11)
store i64 %12, i64* %9
br label %13
13: ; preds = %26, %3
%14 = load i8*, i8** %8
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = icmp ne i32 %16, 0
br i1 %17, label %18, label %24
18: ; preds = %13
%19 = load i8*, i8** %8
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = call i32 @isspace(i32 %21)
%23 = icmp ne i32 %22, 0
br label %24
24: ; preds = %18, %13
%25 = phi i1 [ false, %13 ], [ %23, %18 ]
br i1 %25, label %26, label %29
26: ; preds = %24
%27 = load i8*, i8** %8
%28 = getelementptr inbounds i8, i8* %27, i32 1
store i8* %28, i8** %8
br label %13
29: ; preds = %24
%30 = load i8*, i8** %8
%31 = load i8*, i8** %5
%32 = icmp eq i8* %30, %31
br i1 %32, label %38, label %33
33: ; preds = %29
%34 = load i8*, i8** %8
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = icmp ne i32 %36, 0
br i1 %37, label %38, label %39
38: ; preds = %33, %29
store i32 0, i32* %4
br label %42
39: ; preds = %33
%40 = load i64, i64* %9
%41 = load i64*, i64** %7
store i64 %40, i64* %41
store i32 1, i32* %4
br label %42
42: ; preds = %39, %38
%43 = load i32, i32* %4
ret i32 %43
}

LLVM IR (-O2):
define i32 @Tcl_StrToLong(i8* %0, i32 %1, i64* nocapture writeonly %2) {
%4 = alloca i8*
%5 = bitcast i8** %4 to i8*
%6 = call i64 @strtol(i8* %0, i8** %4, i32 %1)
%7 = load i8*, i8** %4
%8 = load i8, i8* %7
%9 = icmp eq i8 %8, 0
br i1 %9, label %20, label %10
10: ; preds = %3, %16
%11 = phi i8 [ %18, %16 ], [ %8, %3 ]
%12 = phi i8* [ %17, %16 ], [ %7, %3 ]
%13 = sext i8 %11 to i32
%14 = tail call i32 @isspace(i32 %13)
%15 = icmp eq i32 %14, 0
br i1 %15, label %24, label %16
16: ; preds = %10
%17 = getelementptr inbounds i8, i8* %12, i64 1
%18 = load i8, i8* %17
%19 = icmp eq i8 %18, 0
br i1 %19, label %20, label %10
20: ; preds = %16, %3
%21 = phi i8* [ %7, %3 ], [ %17, %16 ]
%22 = icmp eq i8* %21, %0
br i1 %22, label %24, label %23
23: ; preds = %20
store i64 %6, i64* %2
br label %24
24: ; preds = %10, %20, %23
%25 = phi i32 [ 1, %23 ], [ 0, %20 ], [ 0, %10 ]
ret i32 %25
}