Attempt to enable better shader debugging.

Author: bryanedds

Nu/Nu/Core/Constants.fs

@@ -162,12 +162,13 @@ module Engine =
               "Light"
               "Optimized"],
              StringComparer.Ordinal)
-    let [<Literal>] BuildName =
+    let [<Literal>] EngineDebug =
 #if DEBUG
-        "Debug"
+        true
 #else
-        "Release"
+        false
 #endif
+    let [<Literal>] BuildName = if EngineDebug then "Debug" else "Release"
 
 [<RequireQualifiedAccess>]
 module Render =

Nu/Nu/Vulkan/VulkanHl.fs

@@ -710,8 +710,11 @@ module Hl =
         use shaderStream = new StreamReader (File.OpenRead shaderPath)
         let shaderStr = shaderStream.ReadToEnd ()
         use compiler = new Compiler ()
-        let options = CompilerOptions ()
-        options.ShaderStage <- shaderKind
+        let options =
+            CompilerOptions
+                (ShaderStage = shaderKind,
+                 OptimizationLevel = (if Constants.Render.RenderDebug then OptimizationLevel.Zero else OptimizationLevel.Performance),
+                 GeneratedDebug = Constants.Engine.EngineDebug)
         let result = compiler.Compile (shaderStr, shaderPath, options)
         if result.Status = CompilationStatus.Success
         then Right result.Bytecode