Test that discard only appears in the fragment shader.

Fixes fragmentOnly4.vert.

diff --git a/ast_to_hir.cpp b/ast_to_hir.cpp
index a0fe37b..f66c029 100644 (file)
--- a/ast_to_hir.cpp
+++ b/ast_to_hir.cpp
@@ -1591,6 +1591,16 @@ ast_jump_statement::hir(exec_list *instructions,
       instructions->push_tail(inst);
    }
 
+   if (mode == ast_discard) {
+      /* FINISHME: discard support */
+      if (state->target != fragment_shader) {
+        YYLTYPE loc = this->get_location();
+
+        _mesa_glsl_error(& loc, state,
+                         "`discard' may only appear in a fragment shader");
+      }
+   }
+
    /* Jump instructions do not have r-values.
     */
    return NULL;