ansistring, not Ansistring
authorunc0rr
Tue, 03 May 2016 20:18:25 +0300
changeset 11800 6e6248c43942
parent 11799 bb745219d882
child 11801 ae58d7ad0d97
ansistring, not Ansistring
hedgewars/pas2cSystem.pas
hedgewars/uRender.pas
--- 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);