administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #2586

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2021-12-25 22:08:55 +03:00
parent 7d9786564d
commit 0f25d86303
15 changed files with 6719 additions and 7289 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "8";
public const string Build = "2";
public const string Revision = "3041";
public const string Revision = "3044";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=8
%REVISION%=3041
%COREVERSION%=2
%REVISION%=3044
%MINOR%=8
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

6
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -1,9 +1,9 @@
//
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: DESKTOP-2BJCJ7I
// DateTime: 24.12.2021 14:49:33
// UserName: ibond
// Machine: DESKTOP-G8V08V4
// DateTime: 25.12.2021 20:53:32
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>
//

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.y
View file

@ -2794,6 +2794,8 @@ var_stmt
assignment
: var_reference assign_operator expr_with_func_decl_lambda
{
if (!($1 is addressed_value))
parsertools.AddErrorFromResource("LEFT_SIDE_CANNOT_BE_ASSIGNED_TO",@$);
$$ = new assign($1 as addressed_value, $3, $2.type, @$);
}
| tkRoundOpen variable tkComma variable_list tkRoundClose assign_operator expr

8
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -1,9 +1,9 @@
// (see accompanying GPPGcopyright.rtf)
// GPPG version 1.3.6
// Machine: DESKTOP-2BJCJ7I
// DateTime: 24.12.2021 14:49:34
// UserName: ibond
// Machine: DESKTOP-G8V08V4
// DateTime: 25.12.2021 20:53:33
// UserName: ?????????
// Input file <ABCPascal.y>
// options: no-lines gplex
@ -5322,6 +5322,8 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
break;
case 514: // assignment -> var_reference, assign_operator, expr_with_func_decl_lambda
{
if (!(ValueStack[ValueStack.Depth-3].ex is addressed_value))
parsertools.AddErrorFromResource("LEFT_SIDE_CANNOT_BE_ASSIGNED_TO",CurrentLocationSpan);
CurrentSemanticValue.stn = new assign(ValueStack[ValueStack.Depth-3].ex as addressed_value, ValueStack[ValueStack.Depth-1].ex, ValueStack[ValueStack.Depth-2].op.type, CurrentLocationSpan);
}
break;

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -351,5 +351,6 @@ script=

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.8.2.3041
3.8.2.3044

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.8.2.3041'
!define VERSION '3.8.2.3044'

7291
TestSuite/CompilationSamples/OpenCL.pas
View file

File diff suppressed because it is too large Load diff

6379
TestSuite/CompilationSamples/OpenCLABC.pas
View file

File diff suppressed because it is too large Load diff

301
TestSuite/CompilationSamples/OpenGL.pas
View file

@ -1968,6 +1968,13 @@ type
public static property FRAGMENT_LIGHT5_SGIX: EnableCap read new EnableCap($8411);
public static property FRAGMENT_LIGHT6_SGIX: EnableCap read new EnableCap($8412);
public static property FRAGMENT_LIGHT7_SGIX: EnableCap read new EnableCap($8413);
public static property TEXTURE_RECTANGLE: EnableCap read new EnableCap($84F5);
public static property TEXTURE_RECTANGLE_ARB: EnableCap read new EnableCap($84F5);
public static property TEXTURE_RECTANGLE_NV: EnableCap read new EnableCap($84F5);
public static property TEXTURE_CUBE_MAP: EnableCap read new EnableCap($8513);
public static property TEXTURE_CUBE_MAP_ARB: EnableCap read new EnableCap($8513);
public static property TEXTURE_CUBE_MAP_EXT: EnableCap read new EnableCap($8513);
public static property TEXTURE_CUBE_MAP_OES: EnableCap read new EnableCap($8513);
public static property PROGRAM_POINT_SIZE: EnableCap read new EnableCap($8642);
public static property DEPTH_CLAMP: EnableCap read new EnableCap($864F);
public static property TEXTURE_CUBE_MAP_SEAMLESS: EnableCap read new EnableCap($884F);
@ -2106,6 +2113,13 @@ type
if self.val = UInt32($8411) then Result := 'FRAGMENT_LIGHT5_SGIX' else
if self.val = UInt32($8412) then Result := 'FRAGMENT_LIGHT6_SGIX' else
if self.val = UInt32($8413) then Result := 'FRAGMENT_LIGHT7_SGIX' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE_ARB' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE_NV' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_ARB' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_EXT' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_OES' else
if self.val = UInt32($8642) then Result := 'PROGRAM_POINT_SIZE' else
if self.val = UInt32($864F) then Result := 'DEPTH_CLAMP' else
if self.val = UInt32($884F) then Result := 'TEXTURE_CUBE_MAP_SEAMLESS' else
@ -2282,43 +2296,45 @@ type
public val: UInt32;
public constructor(val: UInt32) := self.val := val;
public static property COLOR_ATTACHMENT0: FramebufferAttachment read new FramebufferAttachment($8CE0);
public static property COLOR_ATTACHMENT1: FramebufferAttachment read new FramebufferAttachment($8CE1);
public static property COLOR_ATTACHMENT2: FramebufferAttachment read new FramebufferAttachment($8CE2);
public static property COLOR_ATTACHMENT3: FramebufferAttachment read new FramebufferAttachment($8CE3);
public static property COLOR_ATTACHMENT4: FramebufferAttachment read new FramebufferAttachment($8CE4);
public static property COLOR_ATTACHMENT5: FramebufferAttachment read new FramebufferAttachment($8CE5);
public static property COLOR_ATTACHMENT6: FramebufferAttachment read new FramebufferAttachment($8CE6);
public static property COLOR_ATTACHMENT7: FramebufferAttachment read new FramebufferAttachment($8CE7);
public static property COLOR_ATTACHMENT8: FramebufferAttachment read new FramebufferAttachment($8CE8);
public static property COLOR_ATTACHMENT9: FramebufferAttachment read new FramebufferAttachment($8CE9);
public static property COLOR_ATTACHMENT10: FramebufferAttachment read new FramebufferAttachment($8CEA);
public static property COLOR_ATTACHMENT11: FramebufferAttachment read new FramebufferAttachment($8CEB);
public static property COLOR_ATTACHMENT12: FramebufferAttachment read new FramebufferAttachment($8CEC);
public static property COLOR_ATTACHMENT13: FramebufferAttachment read new FramebufferAttachment($8CED);
public static property COLOR_ATTACHMENT14: FramebufferAttachment read new FramebufferAttachment($8CEE);
public static property COLOR_ATTACHMENT15: FramebufferAttachment read new FramebufferAttachment($8CEF);
public static property COLOR_ATTACHMENT16: FramebufferAttachment read new FramebufferAttachment($8CF0);
public static property COLOR_ATTACHMENT17: FramebufferAttachment read new FramebufferAttachment($8CF1);
public static property COLOR_ATTACHMENT18: FramebufferAttachment read new FramebufferAttachment($8CF2);
public static property COLOR_ATTACHMENT19: FramebufferAttachment read new FramebufferAttachment($8CF3);
public static property COLOR_ATTACHMENT20: FramebufferAttachment read new FramebufferAttachment($8CF4);
public static property COLOR_ATTACHMENT21: FramebufferAttachment read new FramebufferAttachment($8CF5);
public static property COLOR_ATTACHMENT22: FramebufferAttachment read new FramebufferAttachment($8CF6);
public static property COLOR_ATTACHMENT23: FramebufferAttachment read new FramebufferAttachment($8CF7);
public static property COLOR_ATTACHMENT24: FramebufferAttachment read new FramebufferAttachment($8CF8);
public static property COLOR_ATTACHMENT25: FramebufferAttachment read new FramebufferAttachment($8CF9);
public static property COLOR_ATTACHMENT26: FramebufferAttachment read new FramebufferAttachment($8CFA);
public static property COLOR_ATTACHMENT27: FramebufferAttachment read new FramebufferAttachment($8CFB);
public static property COLOR_ATTACHMENT28: FramebufferAttachment read new FramebufferAttachment($8CFC);
public static property COLOR_ATTACHMENT29: FramebufferAttachment read new FramebufferAttachment($8CFD);
public static property COLOR_ATTACHMENT30: FramebufferAttachment read new FramebufferAttachment($8CFE);
public static property COLOR_ATTACHMENT31: FramebufferAttachment read new FramebufferAttachment($8CFF);
public static property DEPTH_ATTACHMENT: FramebufferAttachment read new FramebufferAttachment($8D00);
public static property STENCIL_ATTACHMENT: FramebufferAttachment read new FramebufferAttachment($8D20);
public static property DEPTH_STENCIL_ATTACHMENT: FramebufferAttachment read new FramebufferAttachment($821A);
public static property COLOR_ATTACHMENT0: FramebufferAttachment read new FramebufferAttachment($8CE0);
public static property COLOR_ATTACHMENT1: FramebufferAttachment read new FramebufferAttachment($8CE1);
public static property COLOR_ATTACHMENT2: FramebufferAttachment read new FramebufferAttachment($8CE2);
public static property COLOR_ATTACHMENT3: FramebufferAttachment read new FramebufferAttachment($8CE3);
public static property COLOR_ATTACHMENT4: FramebufferAttachment read new FramebufferAttachment($8CE4);
public static property COLOR_ATTACHMENT5: FramebufferAttachment read new FramebufferAttachment($8CE5);
public static property COLOR_ATTACHMENT6: FramebufferAttachment read new FramebufferAttachment($8CE6);
public static property COLOR_ATTACHMENT7: FramebufferAttachment read new FramebufferAttachment($8CE7);
public static property COLOR_ATTACHMENT8: FramebufferAttachment read new FramebufferAttachment($8CE8);
public static property COLOR_ATTACHMENT9: FramebufferAttachment read new FramebufferAttachment($8CE9);
public static property COLOR_ATTACHMENT10: FramebufferAttachment read new FramebufferAttachment($8CEA);
public static property COLOR_ATTACHMENT11: FramebufferAttachment read new FramebufferAttachment($8CEB);
public static property COLOR_ATTACHMENT12: FramebufferAttachment read new FramebufferAttachment($8CEC);
public static property COLOR_ATTACHMENT13: FramebufferAttachment read new FramebufferAttachment($8CED);
public static property COLOR_ATTACHMENT14: FramebufferAttachment read new FramebufferAttachment($8CEE);
public static property COLOR_ATTACHMENT15: FramebufferAttachment read new FramebufferAttachment($8CEF);
public static property COLOR_ATTACHMENT16: FramebufferAttachment read new FramebufferAttachment($8CF0);
public static property COLOR_ATTACHMENT17: FramebufferAttachment read new FramebufferAttachment($8CF1);
public static property COLOR_ATTACHMENT18: FramebufferAttachment read new FramebufferAttachment($8CF2);
public static property COLOR_ATTACHMENT19: FramebufferAttachment read new FramebufferAttachment($8CF3);
public static property COLOR_ATTACHMENT20: FramebufferAttachment read new FramebufferAttachment($8CF4);
public static property COLOR_ATTACHMENT21: FramebufferAttachment read new FramebufferAttachment($8CF5);
public static property COLOR_ATTACHMENT22: FramebufferAttachment read new FramebufferAttachment($8CF6);
public static property COLOR_ATTACHMENT23: FramebufferAttachment read new FramebufferAttachment($8CF7);
public static property COLOR_ATTACHMENT24: FramebufferAttachment read new FramebufferAttachment($8CF8);
public static property COLOR_ATTACHMENT25: FramebufferAttachment read new FramebufferAttachment($8CF9);
public static property COLOR_ATTACHMENT26: FramebufferAttachment read new FramebufferAttachment($8CFA);
public static property COLOR_ATTACHMENT27: FramebufferAttachment read new FramebufferAttachment($8CFB);
public static property COLOR_ATTACHMENT28: FramebufferAttachment read new FramebufferAttachment($8CFC);
public static property COLOR_ATTACHMENT29: FramebufferAttachment read new FramebufferAttachment($8CFD);
public static property COLOR_ATTACHMENT30: FramebufferAttachment read new FramebufferAttachment($8CFE);
public static property COLOR_ATTACHMENT31: FramebufferAttachment read new FramebufferAttachment($8CFF);
public static property DEPTH_ATTACHMENT: FramebufferAttachment read new FramebufferAttachment($8D00);
public static property STENCIL_ATTACHMENT: FramebufferAttachment read new FramebufferAttachment($8D20);
public function ToString: string; override;
begin
if self.val = UInt32($821A) then Result := 'DEPTH_STENCIL_ATTACHMENT' else
if self.val = UInt32($8CE0) then Result := 'COLOR_ATTACHMENT0' else
if self.val = UInt32($8CE1) then Result := 'COLOR_ATTACHMENT1' else
if self.val = UInt32($8CE2) then Result := 'COLOR_ATTACHMENT2' else
@ -3153,9 +3169,14 @@ type
public static property MAX_RENDERBUFFER_SIZE: GetPName read new GetPName($84E8);
public static property TEXTURE_COMPRESSION_HINT: GetPName read new GetPName($84EF);
public static property TEXTURE_BINDING_RECTANGLE: GetPName read new GetPName($84F6);
public static property TEXTURE_BINDING_RECTANGLE_ARB: GetPName read new GetPName($84F6);
public static property TEXTURE_BINDING_RECTANGLE_NV: GetPName read new GetPName($84F6);
public static property MAX_RECTANGLE_TEXTURE_SIZE: GetPName read new GetPName($84F8);
public static property MAX_TEXTURE_LOD_BIAS: GetPName read new GetPName($84FD);
public static property TEXTURE_BINDING_CUBE_MAP: GetPName read new GetPName($8514);
public static property TEXTURE_BINDING_CUBE_MAP_ARB: GetPName read new GetPName($8514);
public static property TEXTURE_BINDING_CUBE_MAP_EXT: GetPName read new GetPName($8514);
public static property TEXTURE_BINDING_CUBE_MAP_OES: GetPName read new GetPName($8514);
public static property MAX_CUBE_MAP_TEXTURE_SIZE: GetPName read new GetPName($851C);
public static property PACK_SUBSAMPLE_RATE_SGIX: GetPName read new GetPName($85A0);
public static property UNPACK_SUBSAMPLE_RATE_SGIX: GetPName read new GetPName($85A1);
@ -3221,6 +3242,9 @@ type
public static property DRAW_FRAMEBUFFER_BINDING: GetPName read new GetPName($8CA6);
public static property RENDERBUFFER_BINDING: GetPName read new GetPName($8CA7);
public static property READ_FRAMEBUFFER_BINDING: GetPName read new GetPName($8CAA);
public static property MAX_COLOR_ATTACHMENTS: GetPName read new GetPName($8CDF);
public static property MAX_COLOR_ATTACHMENTS_EXT: GetPName read new GetPName($8CDF);
public static property MAX_COLOR_ATTACHMENTS_NV: GetPName read new GetPName($8CDF);
public static property MAX_ELEMENT_INDEX: GetPName read new GetPName($8D6B);
public static property MAX_GEOMETRY_UNIFORM_COMPONENTS: GetPName read new GetPName($8DDF);
public static property SHADER_BINARY_FORMATS: GetPName read new GetPName($8DF8);
@ -3720,9 +3744,14 @@ type
if self.val = UInt32($84E8) then Result := 'MAX_RENDERBUFFER_SIZE' else
if self.val = UInt32($84EF) then Result := 'TEXTURE_COMPRESSION_HINT' else
if self.val = UInt32($84F6) then Result := 'TEXTURE_BINDING_RECTANGLE' else
if self.val = UInt32($84F6) then Result := 'TEXTURE_BINDING_RECTANGLE_ARB' else
if self.val = UInt32($84F6) then Result := 'TEXTURE_BINDING_RECTANGLE_NV' else
if self.val = UInt32($84F8) then Result := 'MAX_RECTANGLE_TEXTURE_SIZE' else
if self.val = UInt32($84FD) then Result := 'MAX_TEXTURE_LOD_BIAS' else
if self.val = UInt32($8514) then Result := 'TEXTURE_BINDING_CUBE_MAP' else
if self.val = UInt32($8514) then Result := 'TEXTURE_BINDING_CUBE_MAP_ARB' else
if self.val = UInt32($8514) then Result := 'TEXTURE_BINDING_CUBE_MAP_EXT' else
if self.val = UInt32($8514) then Result := 'TEXTURE_BINDING_CUBE_MAP_OES' else
if self.val = UInt32($851C) then Result := 'MAX_CUBE_MAP_TEXTURE_SIZE' else
if self.val = UInt32($85A0) then Result := 'PACK_SUBSAMPLE_RATE_SGIX' else
if self.val = UInt32($85A1) then Result := 'UNPACK_SUBSAMPLE_RATE_SGIX' else
@ -3788,6 +3817,9 @@ type
if self.val = UInt32($8CA6) then Result := 'DRAW_FRAMEBUFFER_BINDING' else
if self.val = UInt32($8CA7) then Result := 'RENDERBUFFER_BINDING' else
if self.val = UInt32($8CAA) then Result := 'READ_FRAMEBUFFER_BINDING' else
if self.val = UInt32($8CDF) then Result := 'MAX_COLOR_ATTACHMENTS' else
if self.val = UInt32($8CDF) then Result := 'MAX_COLOR_ATTACHMENTS_EXT' else
if self.val = UInt32($8CDF) then Result := 'MAX_COLOR_ATTACHMENTS_NV' else
if self.val = UInt32($8D6B) then Result := 'MAX_ELEMENT_INDEX' else
if self.val = UInt32($8DDF) then Result := 'MAX_GEOMETRY_UNIFORM_COMPONENTS' else
if self.val = UInt32($8DF8) then Result := 'SHADER_BINARY_FORMATS' else
@ -3964,6 +3996,7 @@ type
public static property TEXTURE_MAX_CLAMP_T_SGIX: GetTextureParameter read new GetTextureParameter($836A);
public static property TEXTURE_MAX_CLAMP_R_SGIX: GetTextureParameter read new GetTextureParameter($836B);
public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: GetTextureParameter read new GetTextureParameter($8F6A);
public static property SURFACE_COMPRESSION_EXT: GetTextureParameter read new GetTextureParameter($96C0);
public function ToString: string; override;
begin
@ -4022,6 +4055,7 @@ type
if self.val = UInt32($836A) then Result := 'TEXTURE_MAX_CLAMP_T_SGIX' else
if self.val = UInt32($836B) then Result := 'TEXTURE_MAX_CLAMP_R_SGIX' else
if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else
if self.val = UInt32($96C0) then Result := 'SURFACE_COMPRESSION_EXT' else
Result := $'GetTextureParameter[{self.val}]';
end;
@ -5057,77 +5091,78 @@ type
public val: UInt32;
public constructor(val: UInt32) := self.val := val;
public static property SAMPLES: InternalFormatPName read new InternalFormatPName($80A9);
public static property GENERATE_MIPMAP: InternalFormatPName read new InternalFormatPName($8191);
public static property INTERNALFORMAT_SUPPORTED: InternalFormatPName read new InternalFormatPName($826F);
public static property INTERNALFORMAT_PREFERRED: InternalFormatPName read new InternalFormatPName($8270);
public static property INTERNALFORMAT_RED_SIZE: InternalFormatPName read new InternalFormatPName($8271);
public static property INTERNALFORMAT_GREEN_SIZE: InternalFormatPName read new InternalFormatPName($8272);
public static property INTERNALFORMAT_BLUE_SIZE: InternalFormatPName read new InternalFormatPName($8273);
public static property INTERNALFORMAT_ALPHA_SIZE: InternalFormatPName read new InternalFormatPName($8274);
public static property INTERNALFORMAT_DEPTH_SIZE: InternalFormatPName read new InternalFormatPName($8275);
public static property INTERNALFORMAT_STENCIL_SIZE: InternalFormatPName read new InternalFormatPName($8276);
public static property INTERNALFORMAT_SHARED_SIZE: InternalFormatPName read new InternalFormatPName($8277);
public static property INTERNALFORMAT_RED_TYPE: InternalFormatPName read new InternalFormatPName($8278);
public static property INTERNALFORMAT_GREEN_TYPE: InternalFormatPName read new InternalFormatPName($8279);
public static property INTERNALFORMAT_BLUE_TYPE: InternalFormatPName read new InternalFormatPName($827A);
public static property INTERNALFORMAT_ALPHA_TYPE: InternalFormatPName read new InternalFormatPName($827B);
public static property INTERNALFORMAT_DEPTH_TYPE: InternalFormatPName read new InternalFormatPName($827C);
public static property INTERNALFORMAT_STENCIL_TYPE: InternalFormatPName read new InternalFormatPName($827D);
public static property MAX_WIDTH: InternalFormatPName read new InternalFormatPName($827E);
public static property MAX_HEIGHT: InternalFormatPName read new InternalFormatPName($827F);
public static property MAX_DEPTH: InternalFormatPName read new InternalFormatPName($8280);
public static property MAX_LAYERS: InternalFormatPName read new InternalFormatPName($8281);
public static property COLOR_COMPONENTS: InternalFormatPName read new InternalFormatPName($8283);
public static property COLOR_RENDERABLE: InternalFormatPName read new InternalFormatPName($8286);
public static property DEPTH_RENDERABLE: InternalFormatPName read new InternalFormatPName($8287);
public static property STENCIL_RENDERABLE: InternalFormatPName read new InternalFormatPName($8288);
public static property FRAMEBUFFER_RENDERABLE: InternalFormatPName read new InternalFormatPName($8289);
public static property FRAMEBUFFER_RENDERABLE_LAYERED: InternalFormatPName read new InternalFormatPName($828A);
public static property FRAMEBUFFER_BLEND: InternalFormatPName read new InternalFormatPName($828B);
public static property READ_PIXELS: InternalFormatPName read new InternalFormatPName($828C);
public static property READ_PIXELS_FORMAT: InternalFormatPName read new InternalFormatPName($828D);
public static property READ_PIXELS_TYPE: InternalFormatPName read new InternalFormatPName($828E);
public static property TEXTURE_IMAGE_FORMAT: InternalFormatPName read new InternalFormatPName($828F);
public static property TEXTURE_IMAGE_TYPE: InternalFormatPName read new InternalFormatPName($8290);
public static property GET__TEXTURE_IMAGE_FORMAT: InternalFormatPName read new InternalFormatPName($8291);
public static property GET__TEXTURE_IMAGE_TYPE: InternalFormatPName read new InternalFormatPName($8292);
public static property MIPMAP: InternalFormatPName read new InternalFormatPName($8293);
public static property AUTO_GENERATE_MIPMAP: InternalFormatPName read new InternalFormatPName($8295);
public static property COLOR_ENCODING: InternalFormatPName read new InternalFormatPName($8296);
public static property SRGB_READ: InternalFormatPName read new InternalFormatPName($8297);
public static property SRGB_WRITE: InternalFormatPName read new InternalFormatPName($8298);
public static property FILTER: InternalFormatPName read new InternalFormatPName($829A);
public static property VERTEX_TEXTURE: InternalFormatPName read new InternalFormatPName($829B);
public static property TESS_CONTROL_TEXTURE: InternalFormatPName read new InternalFormatPName($829C);
public static property TESS_EVALUATION_TEXTURE: InternalFormatPName read new InternalFormatPName($829D);
public static property GEOMETRY_TEXTURE: InternalFormatPName read new InternalFormatPName($829E);
public static property FRAGMENT_TEXTURE: InternalFormatPName read new InternalFormatPName($829F);
public static property COMPUTE_TEXTURE: InternalFormatPName read new InternalFormatPName($82A0);
public static property TEXTURE_SHADOW: InternalFormatPName read new InternalFormatPName($82A1);
public static property TEXTURE_GATHER: InternalFormatPName read new InternalFormatPName($82A2);
public static property TEXTURE_GATHER_SHADOW: InternalFormatPName read new InternalFormatPName($82A3);
public static property SHADER_IMAGE_LOAD: InternalFormatPName read new InternalFormatPName($82A4);
public static property SHADER_IMAGE_STORE: InternalFormatPName read new InternalFormatPName($82A5);
public static property SHADER_IMAGE_ATOMIC: InternalFormatPName read new InternalFormatPName($82A6);
public static property IMAGE_TEXEL_SIZE: InternalFormatPName read new InternalFormatPName($82A7);
public static property IMAGE_COMPATIBILITY_CLASS: InternalFormatPName read new InternalFormatPName($82A8);
public static property IMAGE_PIXEL_FORMAT: InternalFormatPName read new InternalFormatPName($82A9);
public static property IMAGE_PIXEL_TYPE: InternalFormatPName read new InternalFormatPName($82AA);
public static property SIMULTANEOUS_TEXTURE_AND_DEPTH_TEST: InternalFormatPName read new InternalFormatPName($82AC);
public static property SIMULTANEOUS_TEXTURE_AND_STENCIL_TEST: InternalFormatPName read new InternalFormatPName($82AD);
public static property SIMULTANEOUS_TEXTURE_AND_DEPTH_WRITE: InternalFormatPName read new InternalFormatPName($82AE);
public static property SIMULTANEOUS_TEXTURE_AND_STENCIL_WRITE: InternalFormatPName read new InternalFormatPName($82AF);
public static property TEXTURE_COMPRESSED_BLOCK_WIDTH: InternalFormatPName read new InternalFormatPName($82B1);
public static property TEXTURE_COMPRESSED_BLOCK_HEIGHT: InternalFormatPName read new InternalFormatPName($82B2);
public static property TEXTURE_COMPRESSED_BLOCK_SIZE: InternalFormatPName read new InternalFormatPName($82B3);
public static property CLEAR_BUFFER: InternalFormatPName read new InternalFormatPName($82B4);
public static property TEXTURE_VIEW: InternalFormatPName read new InternalFormatPName($82B5);
public static property VIEW_COMPATIBILITY_CLASS: InternalFormatPName read new InternalFormatPName($82B6);
public static property TEXTURE_COMPRESSED: InternalFormatPName read new InternalFormatPName($86A1);
public static property IMAGE_FORMAT_COMPATIBILITY_TYPE: InternalFormatPName read new InternalFormatPName($90C7);
public static property CLEAR_TEXTURE: InternalFormatPName read new InternalFormatPName($9365);
public static property NUM_SAMPLE_COUNTS: InternalFormatPName read new InternalFormatPName($9380);
public static property SAMPLES: InternalFormatPName read new InternalFormatPName($80A9);
public static property GENERATE_MIPMAP: InternalFormatPName read new InternalFormatPName($8191);
public static property INTERNALFORMAT_SUPPORTED: InternalFormatPName read new InternalFormatPName($826F);
public static property INTERNALFORMAT_PREFERRED: InternalFormatPName read new InternalFormatPName($8270);
public static property INTERNALFORMAT_RED_SIZE: InternalFormatPName read new InternalFormatPName($8271);
public static property INTERNALFORMAT_GREEN_SIZE: InternalFormatPName read new InternalFormatPName($8272);
public static property INTERNALFORMAT_BLUE_SIZE: InternalFormatPName read new InternalFormatPName($8273);
public static property INTERNALFORMAT_ALPHA_SIZE: InternalFormatPName read new InternalFormatPName($8274);
public static property INTERNALFORMAT_DEPTH_SIZE: InternalFormatPName read new InternalFormatPName($8275);
public static property INTERNALFORMAT_STENCIL_SIZE: InternalFormatPName read new InternalFormatPName($8276);
public static property INTERNALFORMAT_SHARED_SIZE: InternalFormatPName read new InternalFormatPName($8277);
public static property INTERNALFORMAT_RED_TYPE: InternalFormatPName read new InternalFormatPName($8278);
public static property INTERNALFORMAT_GREEN_TYPE: InternalFormatPName read new InternalFormatPName($8279);
public static property INTERNALFORMAT_BLUE_TYPE: InternalFormatPName read new InternalFormatPName($827A);
public static property INTERNALFORMAT_ALPHA_TYPE: InternalFormatPName read new InternalFormatPName($827B);
public static property INTERNALFORMAT_DEPTH_TYPE: InternalFormatPName read new InternalFormatPName($827C);
public static property INTERNALFORMAT_STENCIL_TYPE: InternalFormatPName read new InternalFormatPName($827D);
public static property MAX_WIDTH: InternalFormatPName read new InternalFormatPName($827E);
public static property MAX_HEIGHT: InternalFormatPName read new InternalFormatPName($827F);
public static property MAX_DEPTH: InternalFormatPName read new InternalFormatPName($8280);
public static property MAX_LAYERS: InternalFormatPName read new InternalFormatPName($8281);
public static property COLOR_COMPONENTS: InternalFormatPName read new InternalFormatPName($8283);
public static property COLOR_RENDERABLE: InternalFormatPName read new InternalFormatPName($8286);
public static property DEPTH_RENDERABLE: InternalFormatPName read new InternalFormatPName($8287);
public static property STENCIL_RENDERABLE: InternalFormatPName read new InternalFormatPName($8288);
public static property FRAMEBUFFER_RENDERABLE: InternalFormatPName read new InternalFormatPName($8289);
public static property FRAMEBUFFER_RENDERABLE_LAYERED: InternalFormatPName read new InternalFormatPName($828A);
public static property FRAMEBUFFER_BLEND: InternalFormatPName read new InternalFormatPName($828B);
public static property READ_PIXELS: InternalFormatPName read new InternalFormatPName($828C);
public static property READ_PIXELS_FORMAT: InternalFormatPName read new InternalFormatPName($828D);
public static property READ_PIXELS_TYPE: InternalFormatPName read new InternalFormatPName($828E);
public static property TEXTURE_IMAGE_FORMAT: InternalFormatPName read new InternalFormatPName($828F);
public static property TEXTURE_IMAGE_TYPE: InternalFormatPName read new InternalFormatPName($8290);
public static property GET__TEXTURE_IMAGE_FORMAT: InternalFormatPName read new InternalFormatPName($8291);
public static property GET__TEXTURE_IMAGE_TYPE: InternalFormatPName read new InternalFormatPName($8292);
public static property MIPMAP: InternalFormatPName read new InternalFormatPName($8293);
public static property AUTO_GENERATE_MIPMAP: InternalFormatPName read new InternalFormatPName($8295);
public static property COLOR_ENCODING: InternalFormatPName read new InternalFormatPName($8296);
public static property SRGB_READ: InternalFormatPName read new InternalFormatPName($8297);
public static property SRGB_WRITE: InternalFormatPName read new InternalFormatPName($8298);
public static property FILTER: InternalFormatPName read new InternalFormatPName($829A);
public static property VERTEX_TEXTURE: InternalFormatPName read new InternalFormatPName($829B);
public static property TESS_CONTROL_TEXTURE: InternalFormatPName read new InternalFormatPName($829C);
public static property TESS_EVALUATION_TEXTURE: InternalFormatPName read new InternalFormatPName($829D);
public static property GEOMETRY_TEXTURE: InternalFormatPName read new InternalFormatPName($829E);
public static property FRAGMENT_TEXTURE: InternalFormatPName read new InternalFormatPName($829F);
public static property COMPUTE_TEXTURE: InternalFormatPName read new InternalFormatPName($82A0);
public static property TEXTURE_SHADOW: InternalFormatPName read new InternalFormatPName($82A1);
public static property TEXTURE_GATHER: InternalFormatPName read new InternalFormatPName($82A2);
public static property TEXTURE_GATHER_SHADOW: InternalFormatPName read new InternalFormatPName($82A3);
public static property SHADER_IMAGE_LOAD: InternalFormatPName read new InternalFormatPName($82A4);
public static property SHADER_IMAGE_STORE: InternalFormatPName read new InternalFormatPName($82A5);
public static property SHADER_IMAGE_ATOMIC: InternalFormatPName read new InternalFormatPName($82A6);
public static property IMAGE_TEXEL_SIZE: InternalFormatPName read new InternalFormatPName($82A7);
public static property IMAGE_COMPATIBILITY_CLASS: InternalFormatPName read new InternalFormatPName($82A8);
public static property IMAGE_PIXEL_FORMAT: InternalFormatPName read new InternalFormatPName($82A9);
public static property IMAGE_PIXEL_TYPE: InternalFormatPName read new InternalFormatPName($82AA);
public static property SIMULTANEOUS_TEXTURE_AND_DEPTH_TEST: InternalFormatPName read new InternalFormatPName($82AC);
public static property SIMULTANEOUS_TEXTURE_AND_STENCIL_TEST: InternalFormatPName read new InternalFormatPName($82AD);
public static property SIMULTANEOUS_TEXTURE_AND_DEPTH_WRITE: InternalFormatPName read new InternalFormatPName($82AE);
public static property SIMULTANEOUS_TEXTURE_AND_STENCIL_WRITE: InternalFormatPName read new InternalFormatPName($82AF);
public static property TEXTURE_COMPRESSED_BLOCK_WIDTH: InternalFormatPName read new InternalFormatPName($82B1);
public static property TEXTURE_COMPRESSED_BLOCK_HEIGHT: InternalFormatPName read new InternalFormatPName($82B2);
public static property TEXTURE_COMPRESSED_BLOCK_SIZE: InternalFormatPName read new InternalFormatPName($82B3);
public static property CLEAR_BUFFER: InternalFormatPName read new InternalFormatPName($82B4);
public static property TEXTURE_VIEW: InternalFormatPName read new InternalFormatPName($82B5);
public static property VIEW_COMPATIBILITY_CLASS: InternalFormatPName read new InternalFormatPName($82B6);
public static property TEXTURE_COMPRESSED: InternalFormatPName read new InternalFormatPName($86A1);
public static property NUM_SURFACE_COMPRESSION_FIXED_RATES_EXT: InternalFormatPName read new InternalFormatPName($8F6E);
public static property IMAGE_FORMAT_COMPATIBILITY_TYPE: InternalFormatPName read new InternalFormatPName($90C7);
public static property CLEAR_TEXTURE: InternalFormatPName read new InternalFormatPName($9365);
public static property NUM_SAMPLE_COUNTS: InternalFormatPName read new InternalFormatPName($9380);
public function ToString: string; override;
begin
@ -5199,6 +5234,7 @@ type
if self.val = UInt32($82B5) then Result := 'TEXTURE_VIEW' else
if self.val = UInt32($82B6) then Result := 'VIEW_COMPATIBILITY_CLASS' else
if self.val = UInt32($86A1) then Result := 'TEXTURE_COMPRESSED' else
if self.val = UInt32($8F6E) then Result := 'NUM_SURFACE_COMPRESSION_FIXED_RATES_EXT' else
if self.val = UInt32($90C7) then Result := 'IMAGE_FORMAT_COMPATIBILITY_TYPE' else
if self.val = UInt32($9365) then Result := 'CLEAR_TEXTURE' else
if self.val = UInt32($9380) then Result := 'NUM_SAMPLE_COUNTS' else
@ -8856,6 +8892,7 @@ type
public static property TEXTURE_MAX_CLAMP_S_SGIX: TextureParameterName read new TextureParameterName($8369);
public static property TEXTURE_MAX_CLAMP_T_SGIX: TextureParameterName read new TextureParameterName($836A);
public static property TEXTURE_MAX_CLAMP_R_SGIX: TextureParameterName read new TextureParameterName($836B);
public static property TEXTURE_MAX_ANISOTROPY: TextureParameterName read new TextureParameterName($84FE);
public static property TEXTURE_LOD_BIAS: TextureParameterName read new TextureParameterName($8501);
public static property TEXTURE_COMPARE_MODE: TextureParameterName read new TextureParameterName($884C);
public static property TEXTURE_COMPARE_FUNC: TextureParameterName read new TextureParameterName($884D);
@ -8933,6 +8970,7 @@ type
if self.val = UInt32($8369) then Result := 'TEXTURE_MAX_CLAMP_S_SGIX' else
if self.val = UInt32($836A) then Result := 'TEXTURE_MAX_CLAMP_T_SGIX' else
if self.val = UInt32($836B) then Result := 'TEXTURE_MAX_CLAMP_R_SGIX' else
if self.val = UInt32($84FE) then Result := 'TEXTURE_MAX_ANISOTROPY' else
if self.val = UInt32($8501) then Result := 'TEXTURE_LOD_BIAS' else
if self.val = UInt32($884C) then Result := 'TEXTURE_COMPARE_MODE' else
if self.val = UInt32($884D) then Result := 'TEXTURE_COMPARE_FUNC' else
@ -8969,10 +9007,15 @@ type
public static property TEXTURE_4D_SGIS: TextureTarget read new TextureTarget($8134);
public static property PROXY_TEXTURE_4D_SGIS: TextureTarget read new TextureTarget($8135);
public static property TEXTURE_RECTANGLE: TextureTarget read new TextureTarget($84F5);
public static property TEXTURE_RECTANGLE_ARB: TextureTarget read new TextureTarget($84F5);
public static property TEXTURE_RECTANGLE_NV: TextureTarget read new TextureTarget($84F5);
public static property PROXY_TEXTURE_RECTANGLE: TextureTarget read new TextureTarget($84F7);
public static property PROXY_TEXTURE_RECTANGLE_ARB: TextureTarget read new TextureTarget($84F7);
public static property PROXY_TEXTURE_RECTANGLE_NV: TextureTarget read new TextureTarget($84F7);
public static property TEXTURE_CUBE_MAP: TextureTarget read new TextureTarget($8513);
public static property TEXTURE_CUBE_MAP_ARB: TextureTarget read new TextureTarget($8513);
public static property TEXTURE_CUBE_MAP_EXT: TextureTarget read new TextureTarget($8513);
public static property TEXTURE_CUBE_MAP_OES: TextureTarget read new TextureTarget($8513);
public static property TEXTURE_CUBE_MAP_POSITIVE_X: TextureTarget read new TextureTarget($8515);
public static property TEXTURE_CUBE_MAP_NEGATIVE_X: TextureTarget read new TextureTarget($8516);
public static property TEXTURE_CUBE_MAP_POSITIVE_Y: TextureTarget read new TextureTarget($8517);
@ -9018,10 +9061,15 @@ type
if self.val = UInt32($8134) then Result := 'TEXTURE_4D_SGIS' else
if self.val = UInt32($8135) then Result := 'PROXY_TEXTURE_4D_SGIS' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE_ARB' else
if self.val = UInt32($84F5) then Result := 'TEXTURE_RECTANGLE_NV' else
if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE' else
if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE_ARB' else
if self.val = UInt32($84F7) then Result := 'PROXY_TEXTURE_RECTANGLE_NV' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_ARB' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_EXT' else
if self.val = UInt32($8513) then Result := 'TEXTURE_CUBE_MAP_OES' else
if self.val = UInt32($8515) then Result := 'TEXTURE_CUBE_MAP_POSITIVE_X' else
if self.val = UInt32($8516) then Result := 'TEXTURE_CUBE_MAP_NEGATIVE_X' else
if self.val = UInt32($8517) then Result := 'TEXTURE_CUBE_MAP_POSITIVE_Y' else
@ -51230,6 +51278,49 @@ type
end;
[PCUNotRestore]
[System.Security.SuppressUnmanagedCodeSecurity]
glTextureStorageEXT<TPlatformAPI> = sealed class
where TPlatformAPI: record, IPlatformAPI;
private static platform_api := default(TPlatformAPI);
private static function GetFuncAdr(lpszProc: string) := platform_api.GetProcAddress(lpszProc);
private static function GetFuncOrNil<T>(fadr: IntPtr) :=
fadr=IntPtr.Zero ? default(T) :
Marshal.GetDelegateForFunctionPointer&<T>(fadr);
public const _ExtStr = 'EXT_texture_storage';
private z_TexStorage1DEXT_adr := GetFuncAdr('glTexStorage1DEXT');
private z_TexStorage1DEXT_ovr_0 := GetFuncOrNil&<procedure(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32)>(z_TexStorage1DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage1DEXT(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32) :=
z_TexStorage1DEXT_ovr_0(target, levels, internalformat, width);
private z_TexStorage2DEXT_adr := GetFuncAdr('glTexStorage2DEXT');
private z_TexStorage2DEXT_ovr_0 := GetFuncOrNil&<procedure(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32)>(z_TexStorage2DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage2DEXT(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32) :=
z_TexStorage2DEXT_ovr_0(target, levels, internalformat, width, height);
private z_TexStorage3DEXT_adr := GetFuncAdr('glTexStorage3DEXT');
private z_TexStorage3DEXT_ovr_0 := GetFuncOrNil&<procedure(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32; depth: Int32)>(z_TexStorage3DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage3DEXT(target: TextureTarget; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32; depth: Int32) :=
z_TexStorage3DEXT_ovr_0(target, levels, internalformat, width, height, depth);
private z_TextureStorage1DEXT_adr := GetFuncAdr('glTextureStorage1DEXT');
private z_TextureStorage1DEXT_ovr_0 := GetFuncOrNil&<procedure(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32)>(z_TextureStorage1DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32) :=
z_TextureStorage1DEXT_ovr_0(texture, target, levels, internalformat, width);
private z_TextureStorage2DEXT_adr := GetFuncAdr('glTextureStorage2DEXT');
private z_TextureStorage2DEXT_ovr_0 := GetFuncOrNil&<procedure(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32)>(z_TextureStorage2DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32) :=
z_TextureStorage2DEXT_ovr_0(texture, target, levels, internalformat, width, height);
private z_TextureStorage3DEXT_adr := GetFuncAdr('glTextureStorage3DEXT');
private z_TextureStorage3DEXT_ovr_0 := GetFuncOrNil&<procedure(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32; depth: Int32)>(z_TextureStorage3DEXT_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; internalformat: SizedInternalFormat; width: Int32; height: Int32; depth: Int32) :=
z_TextureStorage3DEXT_ovr_0(texture, target, levels, internalformat, width, height, depth);
end;
[PCUNotRestore]
[System.Security.SuppressUnmanagedCodeSecurity]
glTimelineSemaphoreNV<TPlatformAPI> = sealed class

4
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -13719,7 +13719,9 @@ end;
[System.Diagnostics.DebuggerStepThrough]
function ClipShortString(s: string; len: integer): string;
begin
if s.Length <= len then
if s = nil then
Result := ''
else if s.Length <= len then
Result := s
else Result := s.Substring(0, len);
end;

3
bin/Lng/Eng/PascalABCParser.dat
View file

@ -78,4 +78,5 @@ RESULT_IDENT_NOT_EXPECTED_IN_THIS_CONTEXT=Result identifier is not allowed in th
NESTED_RECORD_DEFINITIONS_ARE_ARE_FORBIDDEN=Nested record definitions are forbidden
NIL_IN_UNNAMED_OBJECT=Anonymous class field cannot be initialized by nil constant
YIELD_STATEMENT_CANNOT_BE_USED_IN_LAMBDA_BODY=yield statement cannot be used in lambda body
SLICES_OF MULTIDIMENSIONAL_ARRAYS_ALLOW_ONLY_FOR_RANK_LT_5=Slices of multidimensional arrays are allowed only for arrays with rank < 5
SLICES_OF MULTIDIMENSIONAL_ARRAYS_ALLOW_ONLY_FOR_RANK_LT_5=Slices of multidimensional arrays are allowed only for arrays with rank < 5
LEFT_SIDE_CANNOT_BE_ASSIGNED_TO=Left side cannot be assigned to

3
bin/Lng/Rus/PascalABCParser.dat
View file

@ -78,4 +78,5 @@ RESULT_IDENT_NOT_EXPECTED_IN_THIS_CONTEXT=Имя Result недопустимо
NESTED_RECORD_DEFINITIONS_ARE_FORBIDDEN=Вложенные описания записей запрещены
NIL_IN_UNNAMED_OBJECT=Поле анонимного класса не может инициализироваться константой nil
YIELD_STATEMENT_CANNOT_BE_USED_IN_LAMBDA_BODY=Оператор yield нельзя использовать в теле лямбда-выражения
SLICES_OF MULTIDIMENSIONAL_ARRAYS_ALLOW_ONLY_FOR_RANK_LT_5=Срезы многомерных массивов разрешены только для массивов размерности < 5
SLICES_OF MULTIDIMENSIONAL_ARRAYS_ALLOW_ONLY_FOR_RANK_LT_5=Срезы многомерных массивов разрешены только для массивов размерности < 5
LEFT_SIDE_CANNOT_BE_ASSIGNED_TO=Нельзя присвоить левой части