void allpass_long(long prescale, long buflen, long l_gain, long l_delsamps,
                  const short *s_inbuf, short *s_outbuf, long *l_delbuf1,
                  short *s_delbuf2) {
  int i;
  static long db_p1 = 0;
  static long db_p2 = 0;
  for (i = 0; i < buflen; i++) {
    long lip, lop;
    lip = s_inbuf[i] * prescale;
    lop = (-l_gain) * (lip >> (16));
    lop += l_delbuf1[db_p1];
    lop += l_gain * s_delbuf2[db_p2];
    l_delbuf1[db_p1++] = lip;
    s_outbuf[i] = s_delbuf2[db_p2++] = (short)(lop >> (16));
    if (db_p1 >= l_delsamps)
      db_p1 = 0;
    if (db_p2 >= l_delsamps)
      db_p2 = 0;
  }
}


x86 assembly (clang, -O0):
<allpass_long>:
push   %rbp
mov    %rsp,%rbp
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
movl   $0x0,-0x34(%rbp)
movslq -0x34(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    123c <allpass_long+0x13c>
mov    -0x28(%rbp),%rax
movslq -0x34(%rbp),%rcx
movswq (%rax,%rcx,2),%rax
imul   -0x8(%rbp),%rax
mov    %rax,-0x40(%rbp)
xor    %eax,%eax
sub    -0x18(%rbp),%rax
mov    -0x40(%rbp),%rcx
sar    $0x10,%rcx
imul   %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    0x10(%rbp),%rax
mov    0x2eb8(%rip),%rcx
mov    (%rax,%rcx,8),%rax
add    -0x48(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x18(%rbp),%rax
mov    0x18(%rbp),%rcx
mov    0x2ea5(%rip),%rdx
movswq (%rcx,%rdx,2),%rcx
imul   %rcx,%rax
add    -0x48(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x40(%rbp),%rdx
mov    0x10(%rbp),%rax
mov    0x2e7d(%rip),%rcx
mov    %rcx,%rsi
add    $0x1,%rsi
mov    %rsi,0x2e6f(%rip)
mov    %rdx,(%rax,%rcx,8)
mov    -0x48(%rbp),%rax
sar    $0x10,%rax
mov    %ax,%dx
mov    0x18(%rbp),%rax
mov    0x2e5d(%rip),%rcx
mov    %rcx,%rsi
add    $0x1,%rsi
mov    %rsi,0x2e4f(%rip)
mov    %dx,(%rax,%rcx,2)
mov    -0x30(%rbp),%rax
movslq -0x34(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
mov    0x2e30(%rip),%rax
cmp    -0x20(%rbp),%rax
jl     120d <allpass_long+0x10d>
movq   $0x0,0x2e1b(%rip)
mov    0x2e1c(%rip),%rax
cmp    -0x20(%rbp),%rax
jl     1229 <allpass_long+0x129>
movq   $0x0,0x2e07(%rip)
jmp    122e <allpass_long+0x12e>
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    112b <allpass_long+0x2b>
pop    %rbp
ret

x86 assembly (clang, -O2):
<allpass_long>:
test   %rsi,%rsi
jle    11a7 <allpass_long+0xa7>
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    0x40(%rsp),%r10
mov    0x38(%rsp),%r11
mov    0x2f0c(%rip),%rax
mov    0x2efd(%rip),%rbx
xor    %r14d,%r14d
xor    %r15d,%r15d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movswq (%r8,%r15,2),%r12
imul   %rdi,%r12
mov    %r12,%r13
shr    $0x10,%r13
movswl (%r10,%rax,2),%ebp
sub    %r13d,%ebp
imul   %edx,%ebp
add    (%r11,%rbx,8),%ebp
shr    $0x10,%ebp
mov    %r12,(%r11,%rbx,8)
add    $0x1,%rbx
mov    %bp,(%r10,%rax,2)
add    $0x1,%rax
mov    %bp,(%r9,%r15,2)
cmp    %rcx,%rbx
cmovge %r14,%rbx
cmp    %rcx,%rax
cmovge %r14,%rax
add    $0x1,%r15
cmp    %r15,%rsi
jne    1140 <allpass_long+0x40>
mov    %rbx,0x2e92(%rip)
mov    %rax,0x2e93(%rip)
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@allpass_long.db_p1 = internal global i64 0
@allpass_long.db_p2 = internal global i64 0
define void @allpass_long(i64 %0, i64 %1, i64 %2, i64 %3, i16* %4, i16* %5, i64* %6, i16* %7) {
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca i64
%13 = alloca i16*
%14 = alloca i16*
%15 = alloca i64*
%16 = alloca i16*
%17 = alloca i32
%18 = alloca i64
%19 = alloca i64
store i64 %0, i64* %9
store i64 %1, i64* %10
store i64 %2, i64* %11
store i64 %3, i64* %12
store i16* %4, i16** %13
store i16* %5, i16** %14
store i64* %6, i64** %15
store i16* %7, i16** %16
store i32 0, i32* %17
br label %20
20: ; preds = %80, %8
%21 = load i32, i32* %17
%22 = sext i32 %21 to i64
%23 = load i64, i64* %10
%24 = icmp slt i64 %22, %23
br i1 %24, label %25, label %83
25: ; preds = %20
%26 = load i16*, i16** %13
%27 = load i32, i32* %17
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds i16, i16* %26, i64 %28
%30 = load i16, i16* %29
%31 = sext i16 %30 to i64
%32 = load i64, i64* %9
%33 = mul nsw i64 %31, %32
store i64 %33, i64* %18
%34 = load i64, i64* %11
%35 = sub nsw i64 0, %34
%36 = load i64, i64* %18
%37 = ashr i64 %36, 16
%38 = mul nsw i64 %35, %37
store i64 %38, i64* %19
%39 = load i64*, i64** %15
%40 = load i64, i64* @allpass_long.db_p1
%41 = getelementptr inbounds i64, i64* %39, i64 %40
%42 = load i64, i64* %41
%43 = load i64, i64* %19
%44 = add nsw i64 %43, %42
store i64 %44, i64* %19
%45 = load i64, i64* %11
%46 = load i16*, i16** %16
%47 = load i64, i64* @allpass_long.db_p2
%48 = getelementptr inbounds i16, i16* %46, i64 %47
%49 = load i16, i16* %48
%50 = sext i16 %49 to i64
%51 = mul nsw i64 %45, %50
%52 = load i64, i64* %19
%53 = add nsw i64 %52, %51
store i64 %53, i64* %19
%54 = load i64, i64* %18
%55 = load i64*, i64** %15
%56 = load i64, i64* @allpass_long.db_p1
%57 = add nsw i64 %56, 1
store i64 %57, i64* @allpass_long.db_p1
%58 = getelementptr inbounds i64, i64* %55, i64 %56
store i64 %54, i64* %58
%59 = load i64, i64* %19
%60 = ashr i64 %59, 16
%61 = trunc i64 %60 to i16
%62 = load i16*, i16** %16
%63 = load i64, i64* @allpass_long.db_p2
%64 = add nsw i64 %63, 1
store i64 %64, i64* @allpass_long.db_p2
%65 = getelementptr inbounds i16, i16* %62, i64 %63
store i16 %61, i16* %65
%66 = load i16*, i16** %14
%67 = load i32, i32* %17
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds i16, i16* %66, i64 %68
store i16 %61, i16* %69
%70 = load i64, i64* @allpass_long.db_p1
%71 = load i64, i64* %12
%72 = icmp sge i64 %70, %71
br i1 %72, label %73, label %74
73: ; preds = %25
store i64 0, i64* @allpass_long.db_p1
br label %74
74: ; preds = %73, %25
%75 = load i64, i64* @allpass_long.db_p2
%76 = load i64, i64* %12
%77 = icmp sge i64 %75, %76
br i1 %77, label %78, label %79
78: ; preds = %74
store i64 0, i64* @allpass_long.db_p2
br label %79
79: ; preds = %78, %74
br label %80
80: ; preds = %79
%81 = load i32, i32* %17
%82 = add nsw i32 %81, 1
store i32 %82, i32* %17
br label %20
83: ; preds = %20
ret void
}

LLVM IR (-O2):
@allpass_long.db_p1 = internal unnamed_addr global i64 0
@allpass_long.db_p2 = internal unnamed_addr global i64 0
define void @allpass_long(i64 %0, i64 %1, i64 %2, i64 %3, i16* nocapture %4, i16* nocapture writeonly %5, i64* nocapture %6, i16* nocapture %7) {
%9 = icmp sgt i64 %1, 0
br i1 %9, label %10, label %42
10: ; preds = %8
%11 = load i64, i64* @allpass_long.db_p2
%12 = load i64, i64* @allpass_long.db_p1
br label %13
13: ; preds = %10, %13
%14 = phi i64 [ 0, %10 ], [ %39, %13 ]
%15 = phi i64 [ %12, %10 ], [ %36, %13 ]
%16 = phi i64 [ %11, %10 ], [ %38, %13 ]
%17 = getelementptr inbounds i16, i16* %4, i64 %14
%18 = load i16, i16* %17
%19 = sext i16 %18 to i64
%20 = mul nsw i64 %19, %0
%21 = ashr i64 %20, 16
%22 = getelementptr inbounds i64, i64* %6, i64 %15
%23 = load i64, i64* %22
%24 = getelementptr inbounds i16, i16* %7, i64 %16
%25 = load i16, i16* %24
%26 = sext i16 %25 to i64
%27 = sub nsw i64 %26, %21
%28 = mul i64 %27, %2
%29 = add i64 %28, %23
%30 = add nsw i64 %15, 1
store i64 %20, i64* %22
%31 = lshr i64 %29, 16
%32 = trunc i64 %31 to i16
%33 = add nsw i64 %16, 1
store i16 %32, i16* %24
%34 = getelementptr inbounds i16, i16* %5, i64 %14
store i16 %32, i16* %34
%35 = icmp slt i64 %30, %3
%36 = select i1 %35, i64 %30, i64 0
%37 = icmp slt i64 %33, %3
%38 = select i1 %37, i64 %33, i64 0
%39 = add nuw nsw i64 %14, 1
%40 = icmp eq i64 %39, %1
br i1 %40, label %41, label %13
41: ; preds = %13
store i64 %36, i64* @allpass_long.db_p1
store i64 %38, i64* @allpass_long.db_p2
br label %42
42: ; preds = %41, %8
ret void
}