glsl: Print out error message in apps/process.

diff --git a/src/glsl/apps/process.c b/src/glsl/apps/process.c
index abcf1a92b83b160f1a89db93f405ff1bef3cad75..d01294f34079e044bb4e4c874246a9261962721e 100644 (file)
--- a/src/glsl/apps/process.c
+++ b/src/glsl/apps/process.c
@@ -104,21 +104,24 @@ main(int argc,
       return -1;
    }
 
-   if (sl_pp_process(&context, &tokens[tokens_eaten], &outtokens)) {
+   out = fopen(argv[2], "wb");
+   if (!out) {
       sl_pp_context_destroy(&context);
       free(tokens);
-      return -1;
+      return 1;
    }
 
-   free(tokens);
+   if (sl_pp_process(&context, &tokens[tokens_eaten], &outtokens)) {
+      fprintf(out, "$ERROR: `%s'\n", context.error_msg);
 
-   out = fopen(argv[2], "wb");
-   if (!out) {
       sl_pp_context_destroy(&context);
-      free(outtokens);
-      return 1;
+      free(tokens);
+      fclose(out);
+      return -1;
    }
 
+   free(tokens);
+
    for (i = 0; outtokens[i].token != SL_PP_EOF; i++) {
       switch (outtokens[i].token) {
       case SL_PP_NEWLINE: