hedgewars/uRender.pas
changeset 10306 4fca8bcfaff0
parent 10304 7e40820b7ed6
child 10309 e338ccbbe100
--- a/hedgewars/uRender.pas	Sat Jun 14 23:59:20 2014 +0200
+++ b/hedgewars/uRender.pas	Sun Jun 15 00:02:25 2014 +0200
@@ -159,7 +159,7 @@
     if IOResult <> 0 then
     begin
         AddFileLog('Unable to load ' + shaderFile);
-        halt(-1);
+        halt(HaltStartupError);
     end;
 
     source:='';
@@ -195,7 +195,7 @@
     if compileResult <> GL_TRUE then
     begin
         WriteLnToConsole('Shader compilation failed, halting');
-        halt(-1);
+        halt(HaltStartupError);
     end;
 
     CompileShader:= shader;
@@ -239,7 +239,7 @@
     if linkResult <> GL_TRUE then
     begin
         WriteLnToConsole('Linking program failed, halting');
-        halt(-1);
+        halt(HaltStartupError);
     end;
 
     CompileProgram:= program_;
@@ -333,7 +333,7 @@
     if err <> GLEW_OK then
     begin
         WriteLnToConsole('Failed to initialize GLEW.');
-        halt;
+        halt(HaltStartupError);
     end;
 {$ENDIF}