float *mat4_ortho(float *result, float l, float r, float b, float t, float n,
                  float f) {
  result[0] = 2.0f / (r - l);
  result[1] = 0.0f;
  result[2] = 0.0f;
  result[3] = 0.0f;
  result[4] = 0.0f;
  result[5] = 2.0f / (t - b);
  result[6] = 0.0f;
  result[7] = 0.0f;
  result[8] = 0.0f;
  result[9] = 0.0f;
  result[10] = -2.0f / (f - n);
  result[11] = 0.0f;
  result[12] = -((r + l) / (r - l));
  result[13] = -((t + b) / (t - b));
  result[14] = -((f + n) / (f - n));
  result[15] = 1.0f;
  return result;
}


x86 assembly (clang, -O0):
<mat4_ortho>:
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
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  -0x18(%rbp),%xmm1
subss  -0x14(%rbp),%xmm1
movss  0xe82(%rip),%xmm0
divss  %xmm1,%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)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x20(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x24(%rax)
movss  -0x20(%rbp),%xmm1
subss  -0x1c(%rbp),%xmm1
movss  0xe2f(%rip),%xmm0
divss  %xmm1,%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x28(%rax)
mov    -0x8(%rbp),%rax
xorps  %xmm0,%xmm0
movss  %xmm0,0x2c(%rax)
movss  -0x10(%rbp),%xmm0
addss  -0xc(%rbp),%xmm0
movss  -0x10(%rbp),%xmm1
subss  -0xc(%rbp),%xmm1
divss  %xmm1,%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x30(%rax)
movss  -0x18(%rbp),%xmm0
addss  -0x14(%rbp),%xmm0
movss  -0x18(%rbp),%xmm1
subss  -0x14(%rbp),%xmm1
divss  %xmm1,%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x34(%rax)
movss  -0x20(%rbp),%xmm0
addss  -0x1c(%rbp),%xmm0
movss  -0x20(%rbp),%xmm1
subss  -0x1c(%rbp),%xmm1
divss  %xmm1,%xmm0
movd   %xmm0,%eax
xor    $0x80000000,%eax
movd   %eax,%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x38(%rax)
mov    -0x8(%rbp),%rax
movss  0xd7c(%rip),%xmm0
movss  %xmm0,0x3c(%rax)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<mat4_ortho>:
mov    %rdi,%rax
movaps %xmm1,%xmm8
subss  %xmm0,%xmm8
movss  0xeec(%rip),%xmm6
movaps %xmm6,%xmm7
divss  %xmm8,%xmm7
movss  %xmm7,(%rdi)
movaps %xmm3,%xmm7
subss  %xmm2,%xmm7
divss  %xmm7,%xmm6
xorps  %xmm9,%xmm9
movups %xmm9,0x4(%rdi)
movss  %xmm6,0x14(%rdi)
movaps %xmm5,%xmm10
subss  %xmm4,%xmm10
movss  0xeba(%rip),%xmm6
divss  %xmm10,%xmm6
movups %xmm9,0x18(%rdi)
movss  %xmm6,0x28(%rdi)
movl   $0x0,0x2c(%rdi)
addss  %xmm1,%xmm0
movaps 0xea5(%rip),%xmm1
xorps  %xmm1,%xmm0
divss  %xmm8,%xmm0
movss  %xmm0,0x30(%rdi)
addss  %xmm3,%xmm2
xorps  %xmm1,%xmm2
divss  %xmm7,%xmm2
movss  %xmm2,0x34(%rdi)
addss  %xmm5,%xmm4
xorps  %xmm1,%xmm4
divss  %xmm10,%xmm4
movss  %xmm4,0x38(%rdi)
movl   $0x3f800000,0x3c(%rdi)
ret

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

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