void gfks_set_projection_matrix(float matrix[], float left, float right,
                                float top, float bottom, float near,
                                float far) {
  float r_width = 1 / (right - left);
  float r_height = 1 / (top - bottom);
  float r_depth = 1 / (near - far);
  float x = 2 * (near * r_width);
  float y = 2 * (near * r_height);
  float A = (right + left) * r_width;
  float B = (top + bottom) * r_height;
  float C = (far + near) * r_depth;
  float D = 2 * (far * near * r_depth);
  matrix[0] = x;
  matrix[1] = 0;
  matrix[2] = 0;
  matrix[3] = 0;
  matrix[4] = 0;
  matrix[5] = y;
  matrix[6] = 0;
  matrix[7] = 0;
  matrix[8] = A;
  matrix[9] = B;
  matrix[10] = C;
  matrix[11] = -1;
  matrix[12] = 0;
  matrix[13] = 0;
  matrix[14] = D;
  matrix[15] = 0;
}


x86 assembly (clang, -O0):
<gfks_set_projection_matrix>:
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  -0x14(%rbp),%xmm1
subss  -0x18(%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  -0x1c(%rbp),%xmm1
mulss  -0x24(%rbp),%xmm1
movss  0xe7b(%rip),%xmm0
mulss  %xmm1,%xmm0
movss  %xmm0,-0x30(%rbp)
movss  -0x1c(%rbp),%xmm1
mulss  -0x28(%rbp),%xmm1
movss  0xe60(%rip),%xmm0
mulss  %xmm1,%xmm0
movss  %xmm0,-0x34(%rbp)
movss  -0x10(%rbp),%xmm0
addss  -0xc(%rbp),%xmm0
mulss  -0x24(%rbp),%xmm0
movss  %xmm0,-0x38(%rbp)
movss  -0x14(%rbp),%xmm0
addss  -0x18(%rbp),%xmm0
mulss  -0x28(%rbp),%xmm0
movss  %xmm0,-0x3c(%rbp)
movss  -0x20(%rbp),%xmm0
addss  -0x1c(%rbp),%xmm0
mulss  -0x2c(%rbp),%xmm0
movss  %xmm0,-0x40(%rbp)
movss  -0x20(%rbp),%xmm1
mulss  -0x1c(%rbp),%xmm1
mulss  -0x2c(%rbp),%xmm1
movss  0xe04(%rip),%xmm0
mulss  %xmm1,%xmm0
movss  %xmm0,-0x44(%rbp)
movss  -0x30(%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  -0x34(%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  -0x38(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x20(%rax)
movss  -0x3c(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x24(%rax)
movss  -0x40(%rbp),%xmm0
mov    -0x8(%rbp),%rax
movss  %xmm0,0x28(%rax)
mov    -0x8(%rbp),%rax
movss  0xd5e(%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  -0x44(%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):
<gfks_set_projection_matrix>:
movaps %xmm1,%xmm7
subss  %xmm0,%xmm7
movss  0xef1(%rip),%xmm6
movaps %xmm6,%xmm8
divss  %xmm7,%xmm8
movaps %xmm2,%xmm7
subss  %xmm3,%xmm7
movaps %xmm6,%xmm9
divss  %xmm7,%xmm9
movaps %xmm4,%xmm7
subss  %xmm5,%xmm7
divss  %xmm7,%xmm6
addss  %xmm1,%xmm0
mulss  %xmm8,%xmm0
mulss  %xmm4,%xmm8
addss  %xmm8,%xmm8
addss  %xmm3,%xmm2
mulss  %xmm9,%xmm2
mulss  %xmm4,%xmm9
addss  %xmm9,%xmm9
movaps %xmm4,%xmm1
addss  %xmm5,%xmm1
mulss  %xmm6,%xmm1
mulss  %xmm5,%xmm4
mulss  %xmm6,%xmm4
addss  %xmm4,%xmm4
movss  %xmm8,(%rdi)
xorps  %xmm3,%xmm3
movups %xmm3,0x4(%rdi)
movss  %xmm9,0x14(%rdi)
movq   $0x0,0x18(%rdi)
movss  %xmm0,0x20(%rdi)
movss  %xmm2,0x24(%rdi)
movss  %xmm1,0x28(%rdi)
mov    $0xbf800000,%eax
mov    %rax,0x2c(%rdi)
movl   $0x0,0x34(%rdi)
movss  %xmm4,0x38(%rdi)
movl   $0x0,0x3c(%rdi)
ret

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

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