long char_d2a_e(number, nplace, sigdig, string, nchar)
double number;
long nplace;
long sigdig;
char string[];
long *nchar;
{
  long status;
  char *pstr, *pbuff, *d2a();
  pstr = string;
  pbuff = d2a(number, sigdig, 2, nchar, &status);
  if ((status != 1L) || (*nchar > nplace)) {
    *string = (char)'\0';
    *nchar = 0;
    return (4L);
  }
  for (; *pbuff != (char)'\0'; pstr++, pbuff++) {
    *pstr = *pbuff;
  }
  *pstr = (char)'\0';
  return (1L);
}


x86 assembly (clang, -O0):
<char_d2a_e>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
mov    %rsi,-0x20(%rbp)
mov    %rdx,-0x28(%rbp)
mov    %rcx,-0x30(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x40(%rbp)
movsd  -0x10(%rbp),%xmm0
mov    -0x20(%rbp),%rdi
mov    -0x30(%rbp),%rdx
mov    $0x2,%esi
lea    -0x38(%rbp),%rcx
mov    $0x1,%al
call   1030 <d2a@plt>
mov    %rax,-0x48(%rbp)
cmpq   $0x1,-0x38(%rbp)
jne    1172 <char_d2a_e+0x62>
mov    -0x30(%rbp),%rax
mov    (%rax),%rax
cmp    -0x18(%rbp),%rax
jle    1191 <char_d2a_e+0x81>
mov    -0x28(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x30(%rbp),%rax
movq   $0x0,(%rax)
movq   $0x4,-0x8(%rbp)
jmp    11de <char_d2a_e+0xce>
jmp    1196 <char_d2a_e+0x86>
mov    -0x48(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     11cf <char_d2a_e+0xbf>
mov    -0x48(%rbp),%rax
mov    (%rax),%cl
mov    -0x40(%rbp),%rax
mov    %cl,(%rax)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
mov    -0x48(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x48(%rbp)
jmp    1196 <char_d2a_e+0x86>
mov    -0x40(%rbp),%rax
movb   $0x0,(%rax)
movq   $0x1,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<char_d2a_e>:
push   %r15
push   %r14
push   %rbx
sub    $0x10,%rsp
mov    %rcx,%r14
mov    %rdx,%rbx
mov    %rdi,%r15
lea    0x8(%rsp),%rcx
mov    %rsi,%rdi
mov    $0x2,%esi
mov    %r14,%rdx
mov    $0x1,%al
call   1030 <d2a@plt>
cmpq   $0x1,0x8(%rsp)
jne    1146 <char_d2a_e+0x36>
cmp    %r15,(%r14)
jle    1157 <char_d2a_e+0x47>
movb   $0x0,(%rbx)
movq   $0x0,(%r14)
mov    $0x4,%eax
jmp    1189 <char_d2a_e+0x79>
mov    (%rax),%cl
test   %cl,%cl
je     1181 <char_d2a_e+0x71>
add    $0x1,%rax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %cl,(%rbx)
add    $0x1,%rbx
movzbl (%rax),%ecx
add    $0x1,%rax
test   %cl,%cl
jne    1170 <char_d2a_e+0x60>
movb   $0x0,(%rbx)
mov    $0x1,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

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

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