int hputnr8(hstring, keyword, ndec, dval)
char *hstring;
const char *keyword;
const int ndec;
const double dval;
{
  char value[30];
  char format[8];
  int i, lval;
  if (ndec < 0) {
    sprintf(format, "%%.%dg", -ndec);
    sprintf(value, format, dval);
    lval = (int)strlen(value);
    for (i = 0; i < lval; i++)
      if (value[i] == 'e')
        value[i] = 'E';
  } else {
    sprintf(format, "%%.%df", ndec);
    sprintf(value, format, dval);
  }
  fixnegzero(value);
  return (hputc(hstring, keyword, value));
}


x86 assembly (clang, -O0):
<hputnr8>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movsd  %xmm0,-0x20(%rbp)
cmpl   $0x0,-0x14(%rbp)
jge    11df <hputnr8+0x9f>
lea    -0x48(%rbp),%rdi
xor    %edx,%edx
sub    -0x14(%rbp),%edx
lea    0xe8e(%rip),%rsi
mov    $0x0,%al
call   1060 <sprintf@plt>
lea    -0x40(%rbp),%rdi
lea    -0x48(%rbp),%rsi
movsd  -0x20(%rbp),%xmm0
mov    $0x1,%al
call   1060 <sprintf@plt>
lea    -0x40(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x50(%rbp)
movl   $0x0,-0x4c(%rbp)
mov    -0x4c(%rbp),%eax
cmp    -0x50(%rbp),%eax
jge    11da <hputnr8+0x9a>
movslq -0x4c(%rbp),%rax
movsbl -0x40(%rbp,%rax,1),%eax
cmp    $0x65,%eax
jne    11c7 <hputnr8+0x87>
movslq -0x4c(%rbp),%rax
movb   $0x45,-0x40(%rbp,%rax,1)
jmp    11cc <hputnr8+0x8c>
mov    -0x4c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x4c(%rbp)
jmp    11a0 <hputnr8+0x60>
jmp    1208 <hputnr8+0xc8>
lea    -0x48(%rbp),%rdi
mov    -0x14(%rbp),%edx
lea    0xe1a(%rip),%rsi
mov    $0x0,%al
call   1060 <sprintf@plt>
lea    -0x40(%rbp),%rdi
lea    -0x48(%rbp),%rsi
movsd  -0x20(%rbp),%xmm0
mov    $0x1,%al
call   1060 <sprintf@plt>
lea    -0x40(%rbp),%rdi
mov    $0x0,%al
call   1050 <fixnegzero@plt>
mov    -0x8(%rbp),%rdi
mov    -0x10(%rbp),%rsi
lea    -0x40(%rbp),%rdx
mov    $0x0,%al
call   1040 <hputc@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<hputnr8>:
push   %r15
push   %r14
push   %r12
push   %rbx
sub    $0x38,%rsp
mov    %rsi,%r14
mov    %rdi,%r15
test   %edx,%edx
movsd  %xmm0,0x28(%rsp)
js     11ad <hputnr8+0x6d>
lea    0xec5(%rip),%rsi
lea    0x30(%rsp),%rbx
mov    %rbx,%rdi
xor    %eax,%eax
call   1060 <sprintf@plt>
mov    %rsp,%rdi
mov    %rbx,%rsi
movq   0x28(%rsp),%xmm0
mov    $0x1,%al
call   1060 <sprintf@plt>
mov    %rsp,%rbx
mov    %rbx,%rdi
xor    %eax,%eax
call   1050 <fixnegzero@plt>
mov    %r15,%rdi
mov    %r14,%rsi
mov    %rbx,%rdx
xor    %eax,%eax
call   1040 <hputc@plt>
add    $0x38,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret
neg    %edx
lea    0xe6a(%rip),%rsi
lea    0x30(%rsp),%r12
mov    %r12,%rdi
xor    %eax,%eax
call   1060 <sprintf@plt>
mov    %rsp,%rbx
mov    %rbx,%rdi
mov    %r12,%rsi
movq   0x28(%rsp),%xmm0
mov    $0x1,%al
call   1060 <sprintf@plt>
mov    %rbx,%rdi
call   1030 <strlen@plt>
test   %eax,%eax
jle    1184 <hputnr8+0x44>
mov    %eax,%ecx
cmp    $0x10,%rcx
jae    11f6 <hputnr8+0xb6>
xor    %edx,%edx
jmp    13cd <hputnr8+0x28d>
and    $0xf,%eax
mov    %rcx,%rdx
sub    %rax,%rdx
xor    %esi,%esi
movdqa 0xdf7(%rip),%xmm0
movdqa 0xdff(%rip),%xmm1
jmp    122d <hputnr8+0xed>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x10,%rsi
cmp    %rsi,%rdx
je     13b6 <hputnr8+0x276>
movq   (%rsp,%rsi,1),%xmm3
movdqa %xmm3,%xmm2
pcmpeqb %xmm0,%xmm2
movd   %xmm2,%edi
test   $0x1,%dil
je     1248 <hputnr8+0x108>
movb   $0x45,(%rsp,%rsi,1)
movdqa %xmm2,%xmm4
pslld  $0x8,%xmm4
movd   %xmm4,%edi
shr    $0x10,%edi
test   $0x1,%dil
je     1263 <hputnr8+0x123>
movb   $0x45,0x1(%rsp,%rsi,1)
pshuflw $0x55,%xmm3,%xmm4
pcmpeqb %xmm0,%xmm4
pextrw $0x2,%xmm4,%edi
test   $0x1,%dil
je     127c <hputnr8+0x13c>
movb   $0x45,0x2(%rsp,%rsi,1)
movdqa %xmm2,%xmm4
psllq  $0x18,%xmm4
pextrw $0x3,%xmm4,%edi
test   $0x1,%dil
je     1295 <hputnr8+0x155>
movb   $0x45,0x3(%rsp,%rsi,1)
pshufd $0x55,%xmm3,%xmm3
pcmpeqb %xmm1,%xmm3
pextrw $0x4,%xmm3,%edi
test   $0x1,%dil
je     12ae <hputnr8+0x16e>
movb   $0x45,0x4(%rsp,%rsi,1)
movdqa %xmm2,%xmm3
pslldq $0x5,%xmm3
pextrw $0x5,%xmm3,%edi
test   $0x1,%dil
je     12c7 <hputnr8+0x187>
movb   $0x45,0x5(%rsp,%rsi,1)
pextrw $0x3,%xmm2,%edi
test   $0x1,%dil
je     12d7 <hputnr8+0x197>
movb   $0x45,0x6(%rsp,%rsi,1)
pslldq $0x7,%xmm2
pextrw $0x7,%xmm2,%edi
test   $0x1,%dil
je     12ec <hputnr8+0x1ac>
movb   $0x45,0x7(%rsp,%rsi,1)
movq   0x8(%rsp,%rsi,1),%xmm3
movdqa %xmm3,%xmm2
pcmpeqb %xmm0,%xmm2
movd   %xmm2,%edi
test   $0x1,%dil
je     1309 <hputnr8+0x1c9>
movb   $0x45,0x8(%rsp,%rsi,1)
movdqa %xmm2,%xmm4
pslld  $0x8,%xmm4
movd   %xmm4,%edi
shr    $0x10,%edi
test   $0x1,%dil
je     1324 <hputnr8+0x1e4>
movb   $0x45,0x9(%rsp,%rsi,1)
pshuflw $0x55,%xmm3,%xmm4
pcmpeqb %xmm0,%xmm4
pextrw $0x2,%xmm4,%edi
test   $0x1,%dil
je     133d <hputnr8+0x1fd>
movb   $0x45,0xa(%rsp,%rsi,1)
movdqa %xmm2,%xmm4
psllq  $0x18,%xmm4
pextrw $0x3,%xmm4,%edi
test   $0x1,%dil
je     1356 <hputnr8+0x216>
movb   $0x45,0xb(%rsp,%rsi,1)
pshufd $0x55,%xmm3,%xmm3
pcmpeqb %xmm1,%xmm3
pextrw $0x4,%xmm3,%edi
test   $0x1,%dil
je     136f <hputnr8+0x22f>
movb   $0x45,0xc(%rsp,%rsi,1)
movdqa %xmm2,%xmm3
pslldq $0x5,%xmm3
pextrw $0x5,%xmm3,%edi
test   $0x1,%dil
je     1388 <hputnr8+0x248>
movb   $0x45,0xd(%rsp,%rsi,1)
pextrw $0x3,%xmm2,%edi
test   $0x1,%dil
je     1398 <hputnr8+0x258>
movb   $0x45,0xe(%rsp,%rsi,1)
pslldq $0x7,%xmm2
pextrw $0x7,%xmm2,%edi
test   $0x1,%dil
je     1220 <hputnr8+0xe0>
movb   $0x45,0xf(%rsp,%rsi,1)
jmp    1220 <hputnr8+0xe0>
test   %rax,%rax
jne    13cd <hputnr8+0x28d>
jmp    1184 <hputnr8+0x44>
add    $0x1,%rdx
cmp    %rdx,%rcx
je     1184 <hputnr8+0x44>
cmpb   $0x65,(%rsp,%rdx,1)
jne    13c0 <hputnr8+0x280>
movb   $0x45,(%rsp,%rdx,1)
jmp    13c0 <hputnr8+0x280>

LLVM IR (-O0):
@.str = [7 x i8] c"%%.%dg\00"
@.str.1 = [7 x i8] c"%%.%df\00"
define i32 @hputnr8(i8* %0, i8* %1, i32 %2, double %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca double
%9 = alloca [30 x i8]
%10 = alloca [8 x i8]
%11 = alloca i32
%12 = alloca i32
store i8* %0, i8** %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store double %3, double* %8
%13 = load i32, i32* %7
%14 = icmp slt i32 %13, 0
br i1 %14, label %15, label %47
15: ; preds = %4
%16 = getelementptr inbounds [8 x i8], [8 x i8]* %10, i64 0, i64 0
%17 = load i32, i32* %7
%18 = sub nsw i32 0, %17
%19 = call i32 (i8*, i8*, ...) @sprintf(i8* %16, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32 %18)
%20 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 0
%21 = getelementptr inbounds [8 x i8], [8 x i8]* %10, i64 0, i64 0
%22 = load double, double* %8
%23 = call i32 (i8*, i8*, ...) @sprintf(i8* %20, i8* %21, double %22)
%24 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 0
%25 = call i64 @strlen(i8* %24)
%26 = trunc i64 %25 to i32
store i32 %26, i32* %12
store i32 0, i32* %11
br label %27
27: ; preds = %43, %15
%28 = load i32, i32* %11
%29 = load i32, i32* %12
%30 = icmp slt i32 %28, %29
br i1 %30, label %31, label %46
31: ; preds = %27
%32 = load i32, i32* %11
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 %33
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = icmp eq i32 %36, 101
br i1 %37, label %38, label %42
38: ; preds = %31
%39 = load i32, i32* %11
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 %40
store i8 69, i8* %41
br label %42
42: ; preds = %38, %31
br label %43
43: ; preds = %42
%44 = load i32, i32* %11
%45 = add nsw i32 %44, 1
store i32 %45, i32* %11
br label %27
46: ; preds = %27
br label %55
47: ; preds = %4
%48 = getelementptr inbounds [8 x i8], [8 x i8]* %10, i64 0, i64 0
%49 = load i32, i32* %7
%50 = call i32 (i8*, i8*, ...) @sprintf(i8* %48, i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %49)
%51 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 0
%52 = getelementptr inbounds [8 x i8], [8 x i8]* %10, i64 0, i64 0
%53 = load double, double* %8
%54 = call i32 (i8*, i8*, ...) @sprintf(i8* %51, i8* %52, double %53)
br label %55
55: ; preds = %47, %46
%56 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 0
%57 = call i32 (i8*, ...) bitcast (i32 (...)* @fixnegzero to i32 (i8*, ...)*)(i8* %56)
%58 = load i8*, i8** %5
%59 = load i8*, i8** %6
%60 = getelementptr inbounds [30 x i8], [30 x i8]* %9, i64 0, i64 0
%61 = call i32 (i8*, i8*, i8*, ...) bitcast (i32 (...)* @hputc to i32 (i8*, i8*, i8*, ...)*)(i8* %58, i8* %59, i8* %60)
ret i32 %61
}

LLVM IR (-O2):
@.str = [7 x i8] c"%%.%dg\00"
@.str.1 = [7 x i8] c"%%.%df\00"
define i32 @hputnr8(i8* %0, i8* %1, i32 %2, double %3) {
%5 = alloca [30 x i8]
%6 = alloca [8 x i8]
%7 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 0
%8 = getelementptr inbounds [8 x i8], [8 x i8]* %6, i64 0, i64 0
%9 = icmp slt i32 %2, 0
br i1 %9, label %10, label %127
10: ; preds = %4
%11 = sub nsw i32 0, %2
%12 = call i32 (i8*, i8*, ...) @sprintf(i8* %8, i8* dereferenceable(1) getelementptr inbounds ([7 x i8], [7 x i8]* @.str, i64 0, i64 0), i32 %11)
%13 = call i32 (i8*, i8*, ...) @sprintf(i8* %7, i8* %8, double %3)
%14 = call i64 @strlen(i8* %7)
%15 = trunc i64 %14 to i32
%16 = icmp sgt i32 %15, 0
br i1 %16, label %17, label %130
17: ; preds = %10
%18 = and i64 %14, 4294967295
%19 = icmp ult i64 %18, 16
br i1 %19, label %116, label %20
20: ; preds = %17
%21 = and i64 %14, 15
%22 = sub nsw i64 %18, %21
br label %23
23: ; preds = %111, %20
%24 = phi i64 [ 0, %20 ], [ %112, %111 ]
%25 = or i64 %24, 8
%26 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %24
%27 = bitcast i8* %26 to <8 x i8>*
%28 = load <8 x i8>, <8 x i8>* %27
%29 = getelementptr inbounds i8, i8* %26, i64 8
%30 = bitcast i8* %29 to <8 x i8>*
%31 = load <8 x i8>, <8 x i8>* %30
%32 = icmp eq <8 x i8> %28, <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>
%33 = icmp eq <8 x i8> %31, <i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101, i8 101>
%34 = extractelement <8 x i1> %32, i64 0
br i1 %34, label %35, label %37
35: ; preds = %23
%36 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %24
store i8 69, i8* %36
br label %37
37: ; preds = %35, %23
%38 = extractelement <8 x i1> %32, i64 1
br i1 %38, label %39, label %42
39: ; preds = %37
%40 = or i64 %24, 1
%41 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %40
store i8 69, i8* %41
br label %42
42: ; preds = %39, %37
%43 = extractelement <8 x i1> %32, i64 2
br i1 %43, label %44, label %47
44: ; preds = %42
%45 = or i64 %24, 2
%46 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %45
store i8 69, i8* %46
br label %47
47: ; preds = %44, %42
%48 = extractelement <8 x i1> %32, i64 3
br i1 %48, label %49, label %52
49: ; preds = %47
%50 = or i64 %24, 3
%51 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %50
store i8 69, i8* %51
br label %52
52: ; preds = %49, %47
%53 = extractelement <8 x i1> %32, i64 4
br i1 %53, label %54, label %57
54: ; preds = %52
%55 = or i64 %24, 4
%56 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %55
store i8 69, i8* %56
br label %57
57: ; preds = %54, %52
%58 = extractelement <8 x i1> %32, i64 5
br i1 %58, label %59, label %62
59: ; preds = %57
%60 = or i64 %24, 5
%61 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %60
store i8 69, i8* %61
br label %62
62: ; preds = %59, %57
%63 = extractelement <8 x i1> %32, i64 6
br i1 %63, label %64, label %67
64: ; preds = %62
%65 = or i64 %24, 6
%66 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %65
store i8 69, i8* %66
br label %67
67: ; preds = %64, %62
%68 = extractelement <8 x i1> %32, i64 7
br i1 %68, label %69, label %72
69: ; preds = %67
%70 = or i64 %24, 7
%71 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %70
store i8 69, i8* %71
br label %72
72: ; preds = %69, %67
%73 = extractelement <8 x i1> %33, i64 0
br i1 %73, label %74, label %76
74: ; preds = %72
%75 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %25
store i8 69, i8* %75
br label %76
76: ; preds = %74, %72
%77 = extractelement <8 x i1> %33, i64 1
br i1 %77, label %78, label %81
78: ; preds = %76
%79 = or i64 %24, 9
%80 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %79
store i8 69, i8* %80
br label %81
81: ; preds = %78, %76
%82 = extractelement <8 x i1> %33, i64 2
br i1 %82, label %83, label %86
83: ; preds = %81
%84 = or i64 %24, 10
%85 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %84
store i8 69, i8* %85
br label %86
86: ; preds = %83, %81
%87 = extractelement <8 x i1> %33, i64 3
br i1 %87, label %88, label %91
88: ; preds = %86
%89 = or i64 %24, 11
%90 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %89
store i8 69, i8* %90
br label %91
91: ; preds = %88, %86
%92 = extractelement <8 x i1> %33, i64 4
br i1 %92, label %93, label %96
93: ; preds = %91
%94 = or i64 %24, 12
%95 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %94
store i8 69, i8* %95
br label %96
96: ; preds = %93, %91
%97 = extractelement <8 x i1> %33, i64 5
br i1 %97, label %98, label %101
98: ; preds = %96
%99 = or i64 %24, 13
%100 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %99
store i8 69, i8* %100
br label %101
101: ; preds = %98, %96
%102 = extractelement <8 x i1> %33, i64 6
br i1 %102, label %103, label %106
103: ; preds = %101
%104 = or i64 %24, 14
%105 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %104
store i8 69, i8* %105
br label %106
106: ; preds = %103, %101
%107 = extractelement <8 x i1> %33, i64 7
br i1 %107, label %108, label %111
108: ; preds = %106
%109 = or i64 %24, 15
%110 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %109
store i8 69, i8* %110
br label %111
111: ; preds = %108, %106
%112 = add nuw i64 %24, 16
%113 = icmp eq i64 %112, %22
br i1 %113, label %114, label %23
114: ; preds = %111
%115 = icmp eq i64 %21, 0
br i1 %115, label %130, label %116
116: ; preds = %17, %114
%117 = phi i64 [ 0, %17 ], [ %22, %114 ]
br label %118
118: ; preds = %116, %124
%119 = phi i64 [ %125, %124 ], [ %117, %116 ]
%120 = getelementptr inbounds [30 x i8], [30 x i8]* %5, i64 0, i64 %119
%121 = load i8, i8* %120
%122 = icmp eq i8 %121, 101
br i1 %122, label %123, label %124
123: ; preds = %118
store i8 69, i8* %120
br label %124
124: ; preds = %118, %123
%125 = add nuw nsw i64 %119, 1
%126 = icmp eq i64 %125, %18
br i1 %126, label %130, label %118
127: ; preds = %4
%128 = call i32 (i8*, i8*, ...) @sprintf(i8* %8, i8* dereferenceable(1) getelementptr inbounds ([7 x i8], [7 x i8]* @.str.1, i64 0, i64 0), i32 %2)
%129 = call i32 (i8*, i8*, ...) @sprintf(i8* %7, i8* %8, double %3)
br label %130
130: ; preds = %124, %114, %10, %127
%131 = call i32 (i8*, ...) bitcast (i32 (...)* @fixnegzero to i32 (i8*, ...)*)(i8* %7)
%132 = call i32 (i8*, i8*, i8*, ...) bitcast (i32 (...)* @hputc to i32 (i8*, i8*, i8*, ...)*)(i8* %0, i8* %1, i8* %7)
ret i32 %132
}