uStore.pas: Correctly point to shaders webgl
authorMichael Hartman <omh1280@gmail.com>
Sun, 30 Dec 2012 09:24:30 -0500
branchwebgl
changeset 8336 4877d7333818
parent 8334 abb48dd39e26
child 8338 cfad3738132c
uStore.pas: Correctly point to shaders
hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Sun Dec 30 09:23:30 2012 -0500
+++ b/hedgewars/uStore.pas	Sun Dec 30 09:24:30 2012 -0500
@@ -740,7 +740,7 @@
     logLength: GLint;
     log: PChar;
 begin
-    Assign(f, Pathz[ptShaders] + '/' + shaderFile);
+    Assign(f, PathPrefix + cPathz[ptShaders] + '/' + shaderFile);
     filemode:= 0; // readonly
     Reset(f);
     if IOResult <> 0 then
@@ -758,7 +758,7 @@
 
     Close(f);
 
-    WriteLnToConsole('Compiling shader: ' + Pathz[ptShaders] + '/' + shaderFile);
+    WriteLnToConsole('Compiling shader: ' + PathPrefix + cPathz[ptShaders] + '/' + shaderFile);
 
     sourceA:=PChar(source);
     lengthA:=Length(source);