On Fri, Jul 5, 2019 at 7:49 PM Ryan Joseph <generic...@gmail.com> wrote:
> Do you mean this? I still get an error without H+.
>
> {$mode objfpc}
>
> program test;
>
> var 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;
> }
> }
> }`;
>
Copy and paste this exact code into a file called test.pas:
{$mode objfpc}
{ explicitly set H- ! }
{$H-}
program test;
var 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;
}
}
}`;
begin
WriteLn(lines);
end.
With a build of my fork of the compiler as uploaded, compiling it with
simply "fpc ./test.pas" works without issues, and it runs like you'd
expect.
If that somehow is not the case for you, what is the *exact* error you're
getting?
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
