int hgetr8c(hstring, keyword, wchar, dval) const char *hstring;
const char *keyword;
const char *wchar;
double *dval;
{
  char keyword1[16];
  int lkey;
  if (wchar[0] < (char)64)
    return (hgetr8(hstring, keyword, dval));
  else {
    strcpy(keyword1, keyword);
    lkey = strlen(keyword);
    keyword1[lkey] = wchar[0];
    keyword1[lkey + 1] = (char)0;
    return (hgetr8(hstring, keyword1, dval));
  }
}


x86 assembly (clang, -O0):
<hgetr8c>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x40,%eax
jge    1173 <hgetr8c+0x43>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x28(%rbp),%rdx
mov    $0x0,%al
call   1040 <hgetr8@plt>
mov    %eax,-0x4(%rbp)
jmp    11bd <hgetr8c+0x8d>
lea    -0x40(%rbp),%rdi
mov    -0x18(%rbp),%rsi
call   1030 <strcpy@plt>
mov    -0x18(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x44(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%cl
movslq -0x44(%rbp),%rax
mov    %cl,-0x40(%rbp,%rax,1)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
cltq
movb   $0x0,-0x40(%rbp,%rax,1)
mov    -0x10(%rbp),%rdi
lea    -0x40(%rbp),%rsi
mov    -0x28(%rbp),%rdx
mov    $0x0,%al
call   1040 <hgetr8@plt>
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hgetr8c>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x10,%rsp
mov    %rcx,%r14
mov    %rsi,%rbx
mov    %rdi,%r15
mov    (%rdx),%bpl
cmp    $0x3f,%bpl
jg     116a <hgetr8c+0x3a>
mov    %r15,%rdi
mov    %rbx,%rsi
mov    %r14,%rdx
xor    %eax,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
jmp    1040 <hgetr8@plt>
mov    %rsp,%r12
mov    %r12,%rdi
mov    %rbx,%rsi
call   1030 <strcpy@plt>
mov    %rbx,%rdi
call   1050 <strlen@plt>
cltq
mov    %bpl,(%rsp,%rax,1)
add    $0x1,%eax
cltq
movb   $0x0,(%rsp,%rax,1)
mov    %r15,%rdi
mov    %r12,%rsi
mov    %r14,%rdx
xor    %eax,%eax
call   1040 <hgetr8@plt>
add    $0x10,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @hgetr8c(i8* %0, i8* %1, i8* %2, double* %3) {
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca double*
%10 = alloca [16 x i8]
%11 = alloca i32
store i8* %0, i8** %6
store i8* %1, i8** %7
store i8* %2, i8** %8
store double* %3, double** %9
%12 = load i8*, i8** %8
%13 = getelementptr inbounds i8, i8* %12, i64 0
%14 = load i8, i8* %13
%15 = sext i8 %14 to i32
%16 = icmp slt i32 %15, 64
br i1 %16, label %17, label %22
17: ; preds = %4
%18 = load i8*, i8** %6
%19 = load i8*, i8** %7
%20 = load double*, double** %9
%21 = call i32 (i8*, i8*, double*, ...) bitcast (i32 (...)* @hgetr8 to i32 (i8*, i8*, double*, ...)*)(i8* %18, i8* %19, double* %20)
store i32 %21, i32* %5
br label %43
22: ; preds = %4
%23 = getelementptr inbounds [16 x i8], [16 x i8]* %10, i64 0, i64 0
%24 = load i8*, i8** %7
%25 = call i8* @strcpy(i8* %23, i8* %24)
%26 = load i8*, i8** %7
%27 = call i64 @strlen(i8* %26)
%28 = trunc i64 %27 to i32
store i32 %28, i32* %11
%29 = load i8*, i8** %8
%30 = getelementptr inbounds i8, i8* %29, i64 0
%31 = load i8, i8* %30
%32 = load i32, i32* %11
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds [16 x i8], [16 x i8]* %10, i64 0, i64 %33
store i8 %31, i8* %34
%35 = load i32, i32* %11
%36 = add nsw i32 %35, 1
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds [16 x i8], [16 x i8]* %10, i64 0, i64 %37
store i8 0, i8* %38
%39 = load i8*, i8** %6
%40 = getelementptr inbounds [16 x i8], [16 x i8]* %10, i64 0, i64 0
%41 = load double*, double** %9
%42 = call i32 (i8*, i8*, double*, ...) bitcast (i32 (...)* @hgetr8 to i32 (i8*, i8*, double*, ...)*)(i8* %39, i8* %40, double* %41)
store i32 %42, i32* %5
br label %43
43: ; preds = %22, %17
%44 = load i32, i32* %5
ret i32 %44
}

LLVM IR (-O2):
define i32 @hgetr8c(i8* %0, i8* %1, i8* nocapture %2, double* %3) {
%5 = alloca [16 x i8]
%6 = getelementptr inbounds [16 x i8], [16 x i8]* %5, i64 0, i64 0
%7 = load i8, i8* %2
%8 = icmp slt i8 %7, 64
br i1 %8, label %9, label %11
9: ; preds = %4
%10 = tail call i32 (i8*, i8*, double*, ...) bitcast (i32 (...)* @hgetr8 to i32 (i8*, i8*, double*, ...)*)(i8* %0, i8* %1, double* %3)
br label %21
11: ; preds = %4
%12 = call i8* @strcpy(i8* %6, i8* dereferenceable(1) %1)
%13 = call i64 @strlen(i8* dereferenceable(1) %1)
%14 = shl i64 %13, 32
%15 = ashr exact i64 %14, 32
%16 = getelementptr inbounds [16 x i8], [16 x i8]* %5, i64 0, i64 %15
store i8 %7, i8* %16
%17 = add i64 %14, 4294967296
%18 = ashr exact i64 %17, 32
%19 = getelementptr inbounds [16 x i8], [16 x i8]* %5, i64 0, i64 %18
store i8 0, i8* %19
%20 = call i32 (i8*, i8*, double*, ...) bitcast (i32 (...)* @hgetr8 to i32 (i8*, i8*, double*, ...)*)(i8* %0, i8* %6, double* %3)
br label %21
21: ; preds = %11, %9
%22 = phi i32 [ %10, %9 ], [ %20, %11 ]
ret i32 %22
}