equal
deleted
inserted
replaced
738 lengthA: GLint; |
738 lengthA: GLint; |
739 compileResult: GLint; |
739 compileResult: GLint; |
740 logLength: GLint; |
740 logLength: GLint; |
741 log: PChar; |
741 log: PChar; |
742 begin |
742 begin |
743 Assign(f, Pathz[ptShaders] + '/' + shaderFile); |
743 Assign(f, PathPrefix + cPathz[ptShaders] + '/' + shaderFile); |
744 filemode:= 0; // readonly |
744 filemode:= 0; // readonly |
745 Reset(f); |
745 Reset(f); |
746 if IOResult <> 0 then |
746 if IOResult <> 0 then |
747 begin |
747 begin |
748 AddFileLog('Unable to load ' + shaderFile); |
748 AddFileLog('Unable to load ' + shaderFile); |
756 source:= source + line + #10; |
756 source:= source + line + #10; |
757 end; |
757 end; |
758 |
758 |
759 Close(f); |
759 Close(f); |
760 |
760 |
761 WriteLnToConsole('Compiling shader: ' + Pathz[ptShaders] + '/' + shaderFile); |
761 WriteLnToConsole('Compiling shader: ' + PathPrefix + cPathz[ptShaders] + '/' + shaderFile); |
762 |
762 |
763 sourceA:=PChar(source); |
763 sourceA:=PChar(source); |
764 lengthA:=Length(source); |
764 lengthA:=Length(source); |
765 |
765 |
766 shader:=glCreateShader(shaderType); |
766 shader:=glCreateShader(shaderType); |