long char_l2a(number, nplace, string, nchar)
long number;
long nplace;
char string[];
long *nchar;
{
  long status;
  char *pbuff, *pstr, *l2a();
  pstr = string;
  pbuff = l2a(number, (nplace - 1), 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_l2a>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rsi
sub    $0x1,%rsi
mov    -0x28(%rbp),%rdx
lea    -0x30(%rbp),%rcx
mov    $0x0,%al
call   1030 <l2a@plt>
mov    %rax,-0x38(%rbp)
cmpq   $0x1,-0x30(%rbp)
jne    116b <char_l2a+0x5b>
mov    -0x28(%rbp),%rax
mov    (%rax),%rax
cmp    -0x18(%rbp),%rax
jle    118a <char_l2a+0x7a>
mov    -0x20(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x28(%rbp),%rax
movq   $0x0,(%rax)
movq   $0x4,-0x8(%rbp)
jmp    11d7 <char_l2a+0xc7>
jmp    118f <char_l2a+0x7f>
mov    -0x38(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     11c8 <char_l2a+0xb8>
mov    -0x38(%rbp),%rax
mov    (%rax),%cl
mov    -0x40(%rbp),%rax
mov    %cl,(%rax)
mov    -0x40(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x40(%rbp)
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    118f <char_l2a+0x7f>
mov    -0x40(%rbp),%rax
movb   $0x0,(%rax)
movq   $0x1,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<char_l2a>:
push   %r15
push   %r14
push   %rbx
sub    $0x10,%rsp
mov    %rcx,%r14
mov    %rdx,%rbx
mov    %rsi,%r15
add    $0xffffffffffffffff,%rsi
lea    0x8(%rsp),%rcx
mov    %r14,%rdx
xor    %eax,%eax
call   1030 <l2a@plt>
cmpq   $0x1,0x8(%rsp)
jne    1142 <char_l2a+0x32>
cmp    %r15,(%r14)
jle    1153 <char_l2a+0x43>
movb   $0x0,(%rbx)
movq   $0x0,(%r14)
mov    $0x4,%eax
jmp    1179 <char_l2a+0x69>
mov    (%rax),%cl
test   %cl,%cl
je     1171 <char_l2a+0x61>
add    $0x1,%rax
nopl   (%rax)
mov    %cl,(%rbx)
add    $0x1,%rbx
movzbl (%rax),%ecx
add    $0x1,%rax
test   %cl,%cl
jne    1160 <char_l2a+0x50>
movb   $0x0,(%rbx)
mov    $0x1,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define i64 @char_l2a(i64 %0, i64 %1, i8* nocapture writeonly %2, i64* %3) {
%5 = alloca i64
%6 = bitcast i64* %5 to i8*
%7 = add nsw i64 %1, -1
%8 = call i8* (i64, i64, i64*, i64*, ...) bitcast (i8* (...)* @l2a to i8* (i64, i64, i64*, i64*, ...)*)(i64 %0, i64 %7, i64* %3, i64* %5)
%9 = load i64, i64* %5
%10 = icmp eq i64 %9, 1
br i1 %10, label %11, label %17
11: ; preds = %4
%12 = load i64, i64* %3
%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, %4
store i8 0, i8* %2
store i64 0, i64* %3
br label %28
18: ; preds = %14, %18
%19 = phi i8 [ %24, %18 ], [ %15, %14 ]
%20 = phi i8* [ %22, %18 ], [ %2, %14 ]
%21 = phi i8* [ %23, %18 ], [ %8, %14 ]
store i8 %19, i8* %20
%22 = getelementptr inbounds i8, i8* %20, i64 1
%23 = getelementptr inbounds i8, i8* %21, 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* [ %2, %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
}