--- a/hedgewars/pas2cSystem.pas Tue May 03 19:06:09 2016 +0200
+++ b/hedgewars/pas2cSystem.pas Tue May 03 20:18:25 2016 +0300
@@ -14,6 +14,7 @@
Int64 = integer;
QWord = uinteger;
GLint = integer;
+ GLsizei = integer;
GLuint = integer;
GLenum = integer;
--- a/hedgewars/uRender.pas Tue May 03 19:06:09 2016 +0200
+++ b/hedgewars/uRender.pas Tue May 03 20:18:25 2016 +0300
@@ -257,7 +257,7 @@
var
shader: GLuint;
f: PFSFile;
- source, line: AnsiString;
+ source, line: ansistring;
sourceA: Pchar;
lengthA: GLint;
compileResult: GLint;
@@ -276,7 +276,7 @@
pfsClose(f);
- WriteLnToConsole('Compiling shader: ' + PathPrefix + cPathz[ptShaders] + '/' + shaderFile);
+ WriteLnToConsole('Compiling shader: ' + cPathz[ptShaders] + '/' + shaderFile);
sourceA:=PChar(source);
lengthA:=Length(source);