unsigned long lib$mult_delta_time(const long *multiple, void *timadr) {
  unsigned count = 8, carry = 0;
  long factor = *multiple;
  unsigned char *ptr = (unsigned char *)timadr;
  if (ptr[7] & 0x80) {
    if (factor < 0)
      factor = -factor;
    do {
      carry += *ptr * factor;
      *ptr++ = carry;
      carry = (carry >> 8);
    } while (--count > 0);
    return 1;
  } else {
    return 0x0184;
  }
}


x86 assembly (clang, -O0):
<lib$mult_delta_time>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x8,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
movzbl 0x7(%rax),%eax
and    $0x80,%eax
cmp    $0x0,%eax
je     11b2 <lib$mult_delta_time+0xb2>
cmpq   $0x0,-0x28(%rbp)
jge    1158 <lib$mult_delta_time+0x58>
xor    %eax,%eax
sub    -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
jmp    115d <lib$mult_delta_time+0x5d>
mov    -0x30(%rbp),%rax
movzbl (%rax),%eax
mov    %eax,%ecx
imul   -0x28(%rbp),%rcx
mov    -0x20(%rbp),%eax
add    %rcx,%rax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
mov    %al,%cl
mov    -0x30(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x30(%rbp)
mov    %cl,(%rax)
mov    -0x20(%rbp),%eax
shr    $0x8,%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
cmp    $0x0,%eax
ja     115d <lib$mult_delta_time+0x5d>
movq   $0x1,-0x8(%rbp)
jmp    11ba <lib$mult_delta_time+0xba>
movq   $0x184,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lib$mult_delta_time>:
mov    $0x184,%eax
cmpb   $0x0,0x7(%rsi)
js     110c <lib$mult_delta_time+0xc>
ret
mov    (%rdi),%rcx
mov    %rcx,%rax
neg    %rax
cmovs  %rcx,%rax
movzbl (%rsi),%ecx
imul   %rax,%rcx
mov    %cl,(%rsi)
shr    $0x8,%ecx
movzbl 0x1(%rsi),%edx
imul   %eax,%edx
add    %ecx,%edx
mov    %dl,0x1(%rsi)
shr    $0x8,%edx
movzbl 0x2(%rsi),%ecx
imul   %eax,%ecx
add    %edx,%ecx
mov    %cl,0x2(%rsi)
shr    $0x8,%ecx
movzbl 0x3(%rsi),%edx
imul   %eax,%edx
add    %ecx,%edx
mov    %dl,0x3(%rsi)
shr    $0x8,%edx
movzbl 0x4(%rsi),%ecx
imul   %eax,%ecx
add    %edx,%ecx
mov    %cl,0x4(%rsi)
shr    $0x8,%ecx
movzbl 0x5(%rsi),%edx
imul   %eax,%edx
add    %ecx,%edx
mov    %dl,0x5(%rsi)
shr    $0x8,%edx
movzbl 0x6(%rsi),%ecx
imul   %eax,%ecx
add    %edx,%ecx
mov    %cl,0x6(%rsi)
shr    $0x8,%ecx
movzbl 0x7(%rsi),%edx
imul   %eax,%edx
add    %ecx,%edx
mov    %dl,0x7(%rsi)
mov    $0x1,%eax
ret

LLVM IR (-O0):
define i64 @"lib$mult_delta_time"(i64* %0, i8* %1) {
%3 = alloca i64
%4 = alloca i64*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i64
%9 = alloca i8*
store i64* %0, i64** %4
store i8* %1, i8** %5
store i32 8, i32* %6
store i32 0, i32* %7
%10 = load i64*, i64** %4
%11 = load i64, i64* %10
store i64 %11, i64* %8
%12 = load i8*, i8** %5
store i8* %12, i8** %9
%13 = load i8*, i8** %9
%14 = getelementptr inbounds i8, i8* %13, i64 7
%15 = load i8, i8* %14
%16 = zext i8 %15 to i32
%17 = and i32 %16, 128
%18 = icmp ne i32 %17, 0
br i1 %18, label %19, label %47
19: ; preds = %2
%20 = load i64, i64* %8
%21 = icmp slt i64 %20, 0
br i1 %21, label %22, label %25
22: ; preds = %19
%23 = load i64, i64* %8
%24 = sub nsw i64 0, %23
store i64 %24, i64* %8
br label %25
25: ; preds = %22, %19
br label %26
26: ; preds = %42, %25
%27 = load i8*, i8** %9
%28 = load i8, i8* %27
%29 = zext i8 %28 to i64
%30 = load i64, i64* %8
%31 = mul nsw i64 %29, %30
%32 = load i32, i32* %7
%33 = zext i32 %32 to i64
%34 = add nsw i64 %33, %31
%35 = trunc i64 %34 to i32
store i32 %35, i32* %7
%36 = load i32, i32* %7
%37 = trunc i32 %36 to i8
%38 = load i8*, i8** %9
%39 = getelementptr inbounds i8, i8* %38, i32 1
store i8* %39, i8** %9
store i8 %37, i8* %38
%40 = load i32, i32* %7
%41 = lshr i32 %40, 8
store i32 %41, i32* %7
br label %42
42: ; preds = %26
%43 = load i32, i32* %6
%44 = add i32 %43, -1
store i32 %44, i32* %6
%45 = icmp ugt i32 %44, 0
br i1 %45, label %26, label %46
46: ; preds = %42
store i64 1, i64* %3
br label %48
47: ; preds = %2
store i64 388, i64* %3
br label %48
48: ; preds = %47, %46
%49 = load i64, i64* %3
ret i64 %49
}

LLVM IR (-O2):
define i64 @"lib$mult_delta_time"(i64* nocapture %0, i8* nocapture %1) {
%3 = getelementptr inbounds i8, i8* %1, i64 7
%4 = load i8, i8* %3
%5 = icmp sgt i8 %4, -1
br i1 %5, label %70, label %6
6: ; preds = %2
%7 = load i64, i64* %0
%8 = tail call i64 @llvm.abs.i64(i64 %7, i1 true)
%9 = load i8, i8* %1
%10 = zext i8 %9 to i64
%11 = mul nsw i64 %8, %10
%12 = trunc i64 %11 to i32
%13 = trunc i64 %11 to i8
%14 = getelementptr inbounds i8, i8* %1, i64 1
store i8 %13, i8* %1
%15 = lshr i32 %12, 8
%16 = load i8, i8* %14
%17 = zext i8 %16 to i64
%18 = mul nsw i64 %8, %17
%19 = trunc i64 %18 to i32
%20 = add i32 %15, %19
%21 = trunc i32 %20 to i8
%22 = getelementptr inbounds i8, i8* %1, i64 2
store i8 %21, i8* %14
%23 = lshr i32 %20, 8
%24 = load i8, i8* %22
%25 = zext i8 %24 to i64
%26 = mul nsw i64 %8, %25
%27 = trunc i64 %26 to i32
%28 = add i32 %23, %27
%29 = trunc i32 %28 to i8
%30 = getelementptr inbounds i8, i8* %1, i64 3
store i8 %29, i8* %22
%31 = lshr i32 %28, 8
%32 = load i8, i8* %30
%33 = zext i8 %32 to i64
%34 = mul nsw i64 %8, %33
%35 = trunc i64 %34 to i32
%36 = add i32 %31, %35
%37 = trunc i32 %36 to i8
%38 = getelementptr inbounds i8, i8* %1, i64 4
store i8 %37, i8* %30
%39 = lshr i32 %36, 8
%40 = load i8, i8* %38
%41 = zext i8 %40 to i64
%42 = mul nsw i64 %8, %41
%43 = trunc i64 %42 to i32
%44 = add i32 %39, %43
%45 = trunc i32 %44 to i8
%46 = getelementptr inbounds i8, i8* %1, i64 5
store i8 %45, i8* %38
%47 = lshr i32 %44, 8
%48 = load i8, i8* %46
%49 = zext i8 %48 to i64
%50 = mul nsw i64 %8, %49
%51 = trunc i64 %50 to i32
%52 = add i32 %47, %51
%53 = trunc i32 %52 to i8
%54 = getelementptr inbounds i8, i8* %1, i64 6
store i8 %53, i8* %46
%55 = lshr i32 %52, 8
%56 = load i8, i8* %54
%57 = zext i8 %56 to i64
%58 = mul nsw i64 %8, %57
%59 = trunc i64 %58 to i32
%60 = add i32 %55, %59
%61 = trunc i32 %60 to i8
%62 = getelementptr inbounds i8, i8* %1, i64 7
store i8 %61, i8* %54
%63 = lshr i32 %60, 8
%64 = load i8, i8* %62
%65 = zext i8 %64 to i64
%66 = mul nsw i64 %8, %65
%67 = trunc i64 %66 to i32
%68 = add i32 %63, %67
%69 = trunc i32 %68 to i8
store i8 %69, i8* %62
br label %70
70: ; preds = %6, %2
%71 = phi i64 [ 388, %2 ], [ 1, %6 ]
ret i64 %71
}