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


x86 assembly (clang, -O0):
<hgetr8c>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %dl,%al
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %al,-0x19(%rbp)
mov    %rcx,-0x28(%rbp)
movzbl -0x19(%rbp),%eax
cmp    $0x40,%eax
jge    1171 <hgetr8c+0x41>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x28(%rbp),%rdx
mov    $0x0,%al
call   1040 <hgetr8@plt>
mov    %eax,-0x4(%rbp)
jmp    11b8 <hgetr8c+0x88>
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    -0x19(%rbp),%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    %edx,%ebp
mov    %rsi,%rbx
mov    %rdi,%r15
test   $0xc0,%bpl
je     118f <hgetr8c+0x5f>
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
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>

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

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