int xscale(short *p, int nr, int xs) {
  int inlen = 0, outlen = 0;
  for (; nr-- > 0; p++) {
    inlen += *p;
    *p = ((inlen * xs + 128) >> 8) - outlen;
    outlen += *p;
  }
  return outlen;
}


x86 assembly (clang, -O0):
<xscale>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0xc(%rbp)
cmp    $0x0,%eax
jle    1177 <xscale+0x77>
mov    -0x8(%rbp),%rax
movswl (%rax),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x14(%rbp),%eax
imul   -0x10(%rbp),%eax
add    $0x80,%eax
sar    $0x8,%eax
sub    -0x18(%rbp),%eax
mov    %ax,%cx
mov    -0x8(%rbp),%rax
mov    %cx,(%rax)
mov    -0x8(%rbp),%rax
movswl (%rax),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x8(%rbp)
jmp    111c <xscale+0x1c>
mov    -0x18(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<xscale>:
test   %esi,%esi
jle    110f <xscale+0xf>
cmp    $0x1,%esi
jne    1112 <xscale+0x12>
xor    %eax,%eax
xor    %ecx,%ecx
jmp    1166 <xscale+0x66>
xor    %eax,%eax
ret
mov    %esi,%r8d
and    $0xfffffffe,%r8d
xor    %eax,%eax
xor    %ecx,%ecx
nopl   (%rax)
movswl (%rdi),%r9d
add    %ecx,%r9d
mov    %r9d,%ecx
imul   %edx,%ecx
sub    $0xffffff80,%ecx
shr    $0x8,%ecx
sub    %eax,%ecx
mov    %cx,(%rdi)
movswl %cx,%r10d
add    %eax,%r10d
movswl 0x2(%rdi),%ecx
add    %r9d,%ecx
mov    %ecx,%eax
imul   %edx,%eax
sub    $0xffffff80,%eax
shr    $0x8,%eax
sub    %r10d,%eax
mov    %ax,0x2(%rdi)
cwtl
add    %r10d,%eax
add    $0x4,%rdi
add    $0xfffffffe,%r8d
jne    1120 <xscale+0x20>
test   $0x1,%sil
je     1184 <xscale+0x84>
movswl (%rdi),%esi
add    %esi,%ecx
imul   %edx,%ecx
sub    $0xffffff80,%ecx
shr    $0x8,%ecx
sub    %eax,%ecx
mov    %cx,(%rdi)
movswl %cx,%ecx
add    %ecx,%eax
ret

LLVM IR (-O0):
define i32 @xscale(i16* %0, i32 %1, i32 %2) {
%4 = alloca i16*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
store i16* %0, i16** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store i32 0, i32* %7
store i32 0, i32* %8
br label %9
9: ; preds = %33, %3
%10 = load i32, i32* %5
%11 = add nsw i32 %10, -1
store i32 %11, i32* %5
%12 = icmp sgt i32 %10, 0
br i1 %12, label %13, label %36
13: ; preds = %9
%14 = load i16*, i16** %4
%15 = load i16, i16* %14
%16 = sext i16 %15 to i32
%17 = load i32, i32* %7
%18 = add nsw i32 %17, %16
store i32 %18, i32* %7
%19 = load i32, i32* %7
%20 = load i32, i32* %6
%21 = mul nsw i32 %19, %20
%22 = add nsw i32 %21, 128
%23 = ashr i32 %22, 8
%24 = load i32, i32* %8
%25 = sub nsw i32 %23, %24
%26 = trunc i32 %25 to i16
%27 = load i16*, i16** %4
store i16 %26, i16* %27
%28 = load i16*, i16** %4
%29 = load i16, i16* %28
%30 = sext i16 %29 to i32
%31 = load i32, i32* %8
%32 = add nsw i32 %31, %30
store i32 %32, i32* %8
br label %33
33: ; preds = %13
%34 = load i16*, i16** %4
%35 = getelementptr inbounds i16, i16* %34, i32 1
store i16* %35, i16** %4
br label %9
36: ; preds = %9
%37 = load i32, i32* %8
ret i32 %37
}

LLVM IR (-O2):
define i32 @xscale(i16* nocapture %0, i32 %1, i32 %2) {
%4 = icmp sgt i32 %1, 0
br i1 %4, label %5, label %59
5: ; preds = %3
%6 = and i32 %1, 1
%7 = icmp eq i32 %1, 1
br i1 %7, label %41, label %8
8: ; preds = %5
%9 = and i32 %1, -2
br label %10
10: ; preds = %10, %8
%11 = phi i32 [ 0, %8 ], [ %37, %10 ]
%12 = phi i32 [ 0, %8 ], [ %29, %10 ]
%13 = phi i16* [ %0, %8 ], [ %38, %10 ]
%14 = phi i32 [ 0, %8 ], [ %39, %10 ]
%15 = load i16, i16* %13
%16 = sext i16 %15 to i32
%17 = add nsw i32 %12, %16
%18 = mul nsw i32 %17, %2
%19 = add nsw i32 %18, 128
%20 = lshr i32 %19, 8
%21 = sub i32 %20, %11
%22 = trunc i32 %21 to i16
store i16 %22, i16* %13
%23 = shl i32 %21, 16
%24 = ashr exact i32 %23, 16
%25 = add nsw i32 %24, %11
%26 = getelementptr inbounds i16, i16* %13, i64 1
%27 = load i16, i16* %26
%28 = sext i16 %27 to i32
%29 = add nsw i32 %17, %28
%30 = mul nsw i32 %29, %2
%31 = add nsw i32 %30, 128
%32 = lshr i32 %31, 8
%33 = sub i32 %32, %25
%34 = trunc i32 %33 to i16
store i16 %34, i16* %26
%35 = shl i32 %33, 16
%36 = ashr exact i32 %35, 16
%37 = add nsw i32 %36, %25
%38 = getelementptr inbounds i16, i16* %13, i64 2
%39 = add i32 %14, 2
%40 = icmp eq i32 %39, %9
br i1 %40, label %41, label %10
41: ; preds = %10, %5
%42 = phi i32 [ undef, %5 ], [ %37, %10 ]
%43 = phi i32 [ 0, %5 ], [ %37, %10 ]
%44 = phi i32 [ 0, %5 ], [ %29, %10 ]
%45 = phi i16* [ %0, %5 ], [ %38, %10 ]
%46 = icmp eq i32 %6, 0
br i1 %46, label %59, label %47
47: ; preds = %41
%48 = load i16, i16* %45
%49 = sext i16 %48 to i32
%50 = add nsw i32 %44, %49
%51 = mul nsw i32 %50, %2
%52 = add nsw i32 %51, 128
%53 = lshr i32 %52, 8
%54 = sub i32 %53, %43
%55 = trunc i32 %54 to i16
store i16 %55, i16* %45
%56 = shl i32 %54, 16
%57 = ashr exact i32 %56, 16
%58 = add nsw i32 %57, %43
br label %59
59: ; preds = %47, %41, %3
%60 = phi i32 [ 0, %3 ], [ %42, %41 ], [ %58, %47 ]
ret i32 %60
}