char *calloc(nelem, elsize)
unsigned int nelem, elsize;
{
  register char *p;
  register long *q;
  unsigned int size =
      ((((nelem * elsize) + (sizeof(long) - 1)) / sizeof(long)) * sizeof(long));
  extern char *malloc();
  p = malloc(size);
  if (p == 0)
    return 0;
  q = (long *)(p + size);
  while ((char *)q > p)
    *--q = 0;
  return p;
}


x86 assembly (clang, -O0):
<calloc>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0xc(%rbp)
mov    %esi,-0x10(%rbp)
mov    -0xc(%rbp),%eax
imul   -0x10(%rbp),%eax
mov    %eax,%eax
add    $0x7,%rax
shr    $0x3,%rax
shl    $0x3,%rax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%edi
mov    $0x0,%al
call   1030 <malloc@plt>
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jne    115c <calloc+0x4c>
movq   $0x0,-0x8(%rbp)
jmp    119c <calloc+0x8c>
mov    -0x18(%rbp),%rax
mov    -0x24(%rbp),%ecx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jbe    1194 <calloc+0x84>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffff8,%rcx
mov    %rcx,-0x20(%rbp)
movq   $0x0,-0x8(%rax)
jmp    116a <calloc+0x5a>
mov    -0x18(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<calloc>:
push   %rbx
mov    %edi,%ebx
imul   %esi,%ebx
add    $0x7,%ebx
and    $0xfffffff8,%ebx
mov    %ebx,%edi
xor    %eax,%eax
call   1030 <malloc@plt>
test   %rax,%rax
je     1151 <calloc+0x41>
test   %ebx,%ebx
je     1151 <calloc+0x41>
mov    %ebx,%ecx
add    %rax,%rcx
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movq   $0x0,-0x8(%rcx)
add    $0xfffffffffffffff8,%rcx
cmp    %rcx,%rax
jb     1140 <calloc+0x30>
pop    %rbx
ret

LLVM IR (-O0):
define i8* @calloc(i32 %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i64*
%8 = alloca i32
store i32 %0, i32* %4
store i32 %1, i32* %5
%9 = load i32, i32* %4
%10 = load i32, i32* %5
%11 = mul i32 %9, %10
%12 = zext i32 %11 to i64
%13 = add i64 %12, 7
%14 = udiv i64 %13, 8
%15 = mul i64 %14, 8
%16 = trunc i64 %15 to i32
store i32 %16, i32* %8
%17 = load i32, i32* %8
%18 = call i8* (i32, ...) bitcast (i8* (...)* @malloc to i8* (i32, ...)*)(i32 %17)
store i8* %18, i8** %6
%19 = load i8*, i8** %6
%20 = icmp eq i8* %19, null
br i1 %20, label %21, label %22
21: ; preds = %2
store i8* null, i8** %3
br label %38
22: ; preds = %2
%23 = load i8*, i8** %6
%24 = load i32, i32* %8
%25 = zext i32 %24 to i64
%26 = getelementptr inbounds i8, i8* %23, i64 %25
%27 = bitcast i8* %26 to i64*
store i64* %27, i64** %7
br label %28
28: ; preds = %33, %22
%29 = load i64*, i64** %7
%30 = bitcast i64* %29 to i8*
%31 = load i8*, i8** %6
%32 = icmp ugt i8* %30, %31
br i1 %32, label %33, label %36
33: ; preds = %28
%34 = load i64*, i64** %7
%35 = getelementptr inbounds i64, i64* %34, i32 -1
store i64* %35, i64** %7
store i64 0, i64* %35
br label %28
36: ; preds = %28
%37 = load i8*, i8** %6
store i8* %37, i8** %3
br label %38
38: ; preds = %36, %21
%39 = load i8*, i8** %3
ret i8* %39
}

LLVM IR (-O2):
define i8* @calloc(i32 %0, i32 %1) {
%3 = mul i32 %1, %0
%4 = add i32 %3, 7
%5 = and i32 %4, -8
%6 = tail call i8* (i32, ...) bitcast (i8* (...)* @malloc to i8* (i32, ...)*)(i32 %5)
%7 = icmp ne i8* %6, null
%8 = icmp ne i32 %5, 0
%9 = and i1 %7, %8
br i1 %9, label %10, label %19
10: ; preds = %2
%11 = zext i32 %5 to i64
%12 = getelementptr inbounds i8, i8* %6, i64 %11
%13 = bitcast i8* %12 to i64*
br label %14
14: ; preds = %10, %14
%15 = phi i64* [ %16, %14 ], [ %13, %10 ]
%16 = getelementptr inbounds i64, i64* %15, i64 -1
store i64 0, i64* %16
%17 = bitcast i64* %16 to i8*
%18 = icmp ult i8* %6, %17
br i1 %18, label %14, label %19
19: ; preds = %14, %2
ret i8* %6
}