> On Jul 6, 2019, at 8:07 AM, Ben Grasset <operato...@gmail.com> wrote: > > Everything he was talking about was clearly based on fundamentally not > understanding the basic differences between things like "const SomeString: > String = " and "var SomeString: AnsiString = ", and assuming that they were > somehow *supposed* to be affected the same way by {$H+}, and so on. > > Sorry for getting a bit frustrated everyone, but it's annoying to have this > long back and forth discussion about a vague "problem" that simply does not > exist. >
I got it now, using typed constants is the solution. I got confused with $H+ stuff and probably just wasn’t paying enough attention. Btw, here is the "Illegal expression” error which I mentioned before but lost track of. ========== {$mode objfpc} program test; const lines: ansistring = ` #version 150 uniform sampler2D textures[8]; in vec2 vertexTexCoord; in vec4 vertexColor; in float vertexUVMap; out vec4 fragColor; void main() { if (vertexUVMap == 255) { fragColor = vertexColor; } else { fragColor = texture(textures[int(vertexUVMap)], vertexTexCoord.st); if (vertexColor.a < fragColor.a) { fragColor.a = vertexColor.a; } } // TODO: testing fragColor = vec4(1,0,0,1); } `; var s: ansistring = lines; begin writeln(lines); end. Regards, Ryan Joseph _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel