void mat4_frustum(float *dst, float left, float right, float bottom, float top,
                  float near, float far) {
  float rl = 1 / (right - left);
  float tb = 1 / (top - bottom);
  float nf = 1 / (near - far);
  dst[0] = (near * 2) * rl;
  dst[1] = 0;
  dst[2] = 0;
  dst[3] = 0;
  dst[4] = 0;
  dst[5] = (near * 2) * tb;
  dst[6] = 0;
  dst[7] = 0;
  dst[8] = (right + left) * rl;
  dst[9] = (top + bottom) * tb;
  dst[10] = (far + near) * nf;
  dst[11] = -1;
  dst[12] = 0;
  dst[13] = 0;
  dst[14] = (far * near * 2) * nf;
  dst[15] = 0;
}


x86 assembly (clang, -O0):
<mat4_frustum>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
movss  %xmm0,-0xc(%rbp)
movss  %xmm1,-0x10(%rbp)
movss  %xmm2,-0x14(%rbp)
movss  %xmm3,-0x18(%rbp)
movss  %xmm4,-0x1c(%rbp)
movss  %xmm5,-0x20(%rbp)
movss  -0x10(%rbp),%xmm1
subss  -0xc(%rbp),%xmm1
movss  0xed0(%rip),%xmm0
divss  %xmm1,%xmm0
movss  %xmm0,-0x24(%rbp)
movss  -0x18(%rbp),%xmm1
subss  -0x14(%rbp),%xmm1
movss  0xeb5(%rip),%xmm0
divss  %xmm1,%xmm0
movss  %xmm0,-0x28(%rbp)
movss  -0x1c(%rbp),%xmm1
subss  -0x20(%rbp),%xmm1
movss  0xe9a(%rip),%xmm0
divss  %xmm1,%xmm0
movss  %xmm0,-0x2c(%rbp)
movss  0xe81(%rip),%xmm0
mulss  -0x1c(%rbp),%xmm0
mulss  -0x24(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x4(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x8(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0xc(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x10(%rax)
movss  0xe37(%rip),%xmm0
mulss  -0x1c(%rbp),%xmm0
mulss  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x14(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x18(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x1c(%rax)
movss  -0x10(%rbp),%xmm0
addss  -0xc(%rbp),%xmm0
mulss  -0x24(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x20(%rax)
movss  -0x18(%rbp),%xmm0
addss  -0x14(%rbp),%xmm0
mulss  -0x28(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x24(%rax)
movss  -0x20(%rbp),%xmm0
addss  -0x1c(%rbp),%xmm0
mulss  -0x2c(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x28(%rax)
mov    -0x8(%rbp),%rax
movss  0xdbc(%rip),%xmm0
movss  %xmm0,0x2c(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x30(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x34(%rax)
movss  -0x20(%rbp),%xmm0
mulss  -0x1c(%rbp),%xmm0
movss  0xd89(%rip),%xmm1
mulss  %xmm1,%xmm0
mulss  -0x2c(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x38(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x3c(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<mat4_frustum>:
movaps %xmm1,%xmm7
subss  %xmm0,%xmm7
movss  0xef0(%rip),%xmm8
movaps %xmm8,%xmm6
divss  %xmm7,%xmm6
movaps %xmm3,%xmm7
subss  %xmm2,%xmm7
movaps %xmm8,%xmm9
divss  %xmm7,%xmm9
movaps %xmm4,%xmm7
subss  %xmm5,%xmm7
divss  %xmm7,%xmm8
movaps %xmm4,%xmm7
addss  %xmm4,%xmm7
addss  %xmm1,%xmm0
mulss  %xmm6,%xmm0
mulss  %xmm7,%xmm6
movss  %xmm6,(%rdi)
mulss  %xmm9,%xmm7
xorps  %xmm1,%xmm1
movups %xmm1,0x4(%rdi)
movss  %xmm7,0x14(%rdi)
movq   $0x0,0x18(%rdi)
movss  %xmm0,0x20(%rdi)
addss  %xmm3,%xmm2
mulss  %xmm9,%xmm2
movss  %xmm2,0x24(%rdi)
movaps %xmm4,%xmm0
addss  %xmm5,%xmm0
mulss  %xmm8,%xmm0
movss  %xmm0,0x28(%rdi)
mov    $0xbf800000,%eax
mov    %rax,0x2c(%rdi)
movl   $0x0,0x34(%rdi)
mulss  %xmm5,%xmm4
addss  %xmm4,%xmm4
mulss  %xmm8,%xmm4
movss  %xmm4,0x38(%rdi)
movl   $0x0,0x3c(%rdi)
ret

LLVM IR (-O0):
define void @mat4_frustum(float* %0, float %1, float %2, float %3, float %4, float %5, float %6) {
%8 = alloca float*
%9 = alloca float
%10 = alloca float
%11 = alloca float
%12 = alloca float
%13 = alloca float
%14 = alloca float
%15 = alloca float
%16 = alloca float
%17 = alloca float
store float* %0, float** %8
store float %1, float* %9
store float %2, float* %10
store float %3, float* %11
store float %4, float* %12
store float %5, float* %13
store float %6, float* %14
%18 = load float, float* %10
%19 = load float, float* %9
%20 = fsub float %18, %19
%21 = fdiv float 1.000000e+00, %20
store float %21, float* %15
%22 = load float, float* %12
%23 = load float, float* %11
%24 = fsub float %22, %23
%25 = fdiv float 1.000000e+00, %24
store float %25, float* %16
%26 = load float, float* %13
%27 = load float, float* %14
%28 = fsub float %26, %27
%29 = fdiv float 1.000000e+00, %28
store float %29, float* %17
%30 = load float, float* %13
%31 = fmul float %30, 2.000000e+00
%32 = load float, float* %15
%33 = fmul float %31, %32
%34 = load float*, float** %8
%35 = getelementptr inbounds float, float* %34, i64 0
store float %33, float* %35
%36 = load float*, float** %8
%37 = getelementptr inbounds float, float* %36, i64 1
store float 0.000000e+00, float* %37
%38 = load float*, float** %8
%39 = getelementptr inbounds float, float* %38, i64 2
store float 0.000000e+00, float* %39
%40 = load float*, float** %8
%41 = getelementptr inbounds float, float* %40, i64 3
store float 0.000000e+00, float* %41
%42 = load float*, float** %8
%43 = getelementptr inbounds float, float* %42, i64 4
store float 0.000000e+00, float* %43
%44 = load float, float* %13
%45 = fmul float %44, 2.000000e+00
%46 = load float, float* %16
%47 = fmul float %45, %46
%48 = load float*, float** %8
%49 = getelementptr inbounds float, float* %48, i64 5
store float %47, float* %49
%50 = load float*, float** %8
%51 = getelementptr inbounds float, float* %50, i64 6
store float 0.000000e+00, float* %51
%52 = load float*, float** %8
%53 = getelementptr inbounds float, float* %52, i64 7
store float 0.000000e+00, float* %53
%54 = load float, float* %10
%55 = load float, float* %9
%56 = fadd float %54, %55
%57 = load float, float* %15
%58 = fmul float %56, %57
%59 = load float*, float** %8
%60 = getelementptr inbounds float, float* %59, i64 8
store float %58, float* %60
%61 = load float, float* %12
%62 = load float, float* %11
%63 = fadd float %61, %62
%64 = load float, float* %16
%65 = fmul float %63, %64
%66 = load float*, float** %8
%67 = getelementptr inbounds float, float* %66, i64 9
store float %65, float* %67
%68 = load float, float* %14
%69 = load float, float* %13
%70 = fadd float %68, %69
%71 = load float, float* %17
%72 = fmul float %70, %71
%73 = load float*, float** %8
%74 = getelementptr inbounds float, float* %73, i64 10
store float %72, float* %74
%75 = load float*, float** %8
%76 = getelementptr inbounds float, float* %75, i64 11
store float -1.000000e+00, float* %76
%77 = load float*, float** %8
%78 = getelementptr inbounds float, float* %77, i64 12
store float 0.000000e+00, float* %78
%79 = load float*, float** %8
%80 = getelementptr inbounds float, float* %79, i64 13
store float 0.000000e+00, float* %80
%81 = load float, float* %14
%82 = load float, float* %13
%83 = fmul float %81, %82
%84 = fmul float %83, 2.000000e+00
%85 = load float, float* %17
%86 = fmul float %84, %85
%87 = load float*, float** %8
%88 = getelementptr inbounds float, float* %87, i64 14
store float %86, float* %88
%89 = load float*, float** %8
%90 = getelementptr inbounds float, float* %89, i64 15
store float 0.000000e+00, float* %90
ret void
}

LLVM IR (-O2):
define void @mat4_frustum(float* nocapture writeonly %0, float %1, float %2, float %3, float %4, float %5, float %6) {
%8 = fsub float %2, %1
%9 = fdiv float 1.000000e+00, %8
%10 = fsub float %4, %3
%11 = fdiv float 1.000000e+00, %10
%12 = fsub float %5, %6
%13 = fdiv float 1.000000e+00, %12
%14 = fmul float %5, 2.000000e+00
%15 = fmul float %9, %14
store float %15, float* %0
%16 = getelementptr inbounds float, float* %0, i64 1
%17 = fmul float %14, %11
%18 = getelementptr inbounds float, float* %0, i64 5
%19 = bitcast float* %16 to i8*
store float %17, float* %18
%20 = getelementptr inbounds float, float* %0, i64 6
store float 0.000000e+00, float* %20
%21 = getelementptr inbounds float, float* %0, i64 7
store float 0.000000e+00, float* %21
%22 = fadd float %1, %2
%23 = fmul float %22, %9
%24 = getelementptr inbounds float, float* %0, i64 8
store float %23, float* %24
%25 = fadd float %3, %4
%26 = fmul float %25, %11
%27 = getelementptr inbounds float, float* %0, i64 9
store float %26, float* %27
%28 = fadd float %5, %6
%29 = fmul float %28, %13
%30 = getelementptr inbounds float, float* %0, i64 10
store float %29, float* %30
%31 = getelementptr inbounds float, float* %0, i64 11
store float -1.000000e+00, float* %31
%32 = getelementptr inbounds float, float* %0, i64 12
store float 0.000000e+00, float* %32
%33 = getelementptr inbounds float, float* %0, i64 13
store float 0.000000e+00, float* %33
%34 = fmul float %5, %6
%35 = fmul float %34, 2.000000e+00
%36 = fmul float %35, %13
%37 = getelementptr inbounds float, float* %0, i64 14
store float %36, float* %37
%38 = getelementptr inbounds float, float* %0, i64 15
store float 0.000000e+00, float* %38
ret void
}