hedgewars/uRender.pas
changeset 13536 282218ab1b28
parent 13511 36f3f77e9b1b
child 13577 a71e6856ffab
--- a/hedgewars/uRender.pas	Sat Jul 21 02:19:32 2018 +0300
+++ b/hedgewars/uRender.pas	Fri Jul 20 20:00:52 2018 -0400
@@ -527,7 +527,10 @@
 
 {$IFNDEF PAS2C}
     if not Load_GL_VERSION_2_0 then
-        halt;
+        begin
+        WriteLnToConsole('Load_GL_VERSION_2_0 returned false!');
+        halt(HaltStartupError);
+        end;
 {$ENDIF}
 
     shaderWater:= CompileProgram('water');
@@ -718,7 +721,7 @@
 end;
 
 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline;
-{ workaround for pascal bug http://bugs.freepascal.org/view.php?id=27222 }
+{ workaround for pascal bug https://bugs.freepascal.org/view.php?id=27222 }
 var tmpdir: LongInt;
 begin
 tmpdir:=dir;