> On Jul 6, 2019, at 8:07 AM, Ben Grasset <[email protected]> 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 - [email protected]
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
