diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-11 12:27:07 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-11-11 12:27:07 +0100 |
commit | e4ccbbeb680b18a76ea7cbc2dc461f332b44554f (patch) | |
tree | 311cb22cf569ab8b7515a26f4e57434acf707362 | |
parent | 2e3e1c4e04e6baaf2dbed83a9606227275d9fcd2 (diff) |
disable DirectX11 HLSL codegen
-rw-r--r-- | src/LambdaCube/Compiler/CoreToIR.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/LambdaCube/Compiler/CoreToIR.hs b/src/LambdaCube/Compiler/CoreToIR.hs index 892eda2e..6eef4cc3 100644 --- a/src/LambdaCube/Compiler/CoreToIR.hs +++ b/src/LambdaCube/Compiler/CoreToIR.hs | |||
@@ -92,7 +92,8 @@ getCommands backend e = case e of | |||
92 | 92 | ||
93 | let | 93 | let |
94 | (vertexInput, pUniforms, vertSrc, fragSrc) = case backend of | 94 | (vertexInput, pUniforms, vertSrc, fragSrc) = case backend of |
95 | IR.DirectX11 -> genHLSLs backend (compRC' rctx) ints vert frag ffilter | 95 | -- disabled DX11 codegen, due to it's incomplete |
96 | --IR.DirectX11 -> genHLSLs backend (compRC' rctx) ints vert frag ffilter | ||
96 | _ -> genGLSLs backend (compRC' rctx) ints vert frag ffilter | 97 | _ -> genGLSLs backend (compRC' rctx) ints vert frag ffilter |
97 | 98 | ||
98 | pUniforms' = snd <$> Map.filter ((\case UTexture2D{} -> False; _ -> True) . fst) pUniforms | 99 | pUniforms' = snd <$> Map.filter ((\case UTexture2D{} -> False; _ -> True) . fst) pUniforms |