diff --git a/.github/workflows/buildandruntests.yml b/.github/workflows/buildandruntests.yml new file mode 100644 index 000000000..bab6e6086 --- /dev/null +++ b/.github/workflows/buildandruntests.yml @@ -0,0 +1,38 @@ +name: Build & Run all tests (release) + +on: + workflow_dispatch: + + release: + types: + - created + +defaults: + run: + shell: cmd + +jobs: + build: + + name: Prepare and build on Windows Server 2016 VM + runs-on: windows-2016 + steps: + - uses: actions/checkout@v2 + + - name: Install dependencies into Virtual Environment... + run: _RegisterHelixNUnit.bat + + - name: Build project in Release-mode, compile Pas-units, run tests + run: _RebuildReleaseAndRunTestsForGitHubActions.bat + timeout-minutes: 40 + env: + PABCNET_BUILD_MODE: Release + PABCNET_RUN_TESTS: false + PABCNET_INC_BUILD: false + PABCNET_VERBOSE: false + + #- name: Publish artifacts (5/5)... + # uses: actions/upload-artifact@v2 + # with: + # name: All_distros + # path: Release diff --git a/CodeCompletion/Properties/AssemblyInfo.cs b/CodeCompletion/Properties/AssemblyInfo.cs index 3cd27b53e..6a20683ad 100644 --- a/CodeCompletion/Properties/AssemblyInfo.cs +++ b/CodeCompletion/Properties/AssemblyInfo.cs @@ -12,7 +12,7 @@ using System.Runtime.InteropServices; [assembly: AssemblyConfiguration("")] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("CodeCompletion")] -[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")] +[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] diff --git a/Compiler/PCU/PCUReader.cs b/Compiler/PCU/PCUReader.cs index 02dbdc62e..fcca851b7 100644 --- a/Compiler/PCU/PCUReader.cs +++ b/Compiler/PCU/PCUReader.cs @@ -2211,6 +2211,10 @@ namespace PascalABCCompiler.PCU ctn.type_special_kind = tsk; if (ctn.full_name == "PABCSystem.BinaryFile") ctn.type_special_kind = SemanticTree.type_special_kind.binary_file; + if (ctn.type_special_kind != SemanticTree.type_special_kind.set_type) + { + SystemLibrary.SystemLibrary.init_reference_type(ctn); + } if (type_is_generic_definition) { foreach (common_type_node par in type_params) @@ -2219,14 +2223,11 @@ namespace PascalABCCompiler.PCU ReadTypeParameterEliminations(par); } } - type_node elemnet_type = null; + type_node element_type = null; if (CanReadObject()) - elemnet_type = GetTypeReference(); - ctn.element_type = elemnet_type; - if (ctn.type_special_kind != SemanticTree.type_special_kind.set_type) - { - SystemLibrary.SystemLibrary.init_reference_type(ctn); - } + element_type = GetTypeReference(); + ctn.element_type = element_type; + if (ctn.type_special_kind == SemanticTree.type_special_kind.set_type) { ctn = compilation_context.AddTypeToSetTypeList(ctn); diff --git a/CompilerTools/Properties/AssemblyInfo.cs b/CompilerTools/Properties/AssemblyInfo.cs index 2dc2a078e..977512630 100644 --- a/CompilerTools/Properties/AssemblyInfo.cs +++ b/CompilerTools/Properties/AssemblyInfo.cs @@ -9,7 +9,7 @@ using System.Runtime.InteropServices; [assembly: AssemblyConfiguration("")] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("Localization")] -[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")] +[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index af0f0a060..198ab9242 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -5,7 +5,7 @@ using System.Runtime.CompilerServices; [assembly: AssemblyDelaySign(false)] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("PascalABC.NET Compiler")] -[assembly: AssemblyCopyright("Copyright © 2005-2019 by Ivan Bondarev, Stanislav Mihalkovich")] +[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mihalkovich")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] [assembly: AssemblyVersion(RevisionClass.FullVersion)] diff --git a/Configuration/GlobalAssemblyInfo.cs.tmpl b/Configuration/GlobalAssemblyInfo.cs.tmpl index ee2a3b79a..bb8f0a078 100644 --- a/Configuration/GlobalAssemblyInfo.cs.tmpl +++ b/Configuration/GlobalAssemblyInfo.cs.tmpl @@ -5,7 +5,7 @@ using System.Runtime.CompilerServices; [assembly: AssemblyDelaySign(false)] [assembly: AssemblyCompany("")] [assembly: AssemblyProduct("PascalABC.NET Compiler")] -[assembly: AssemblyCopyright("Copyright © 2005-2019 by Ivan Bondarev, Stanislav Mihalkovich")] +[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mihalkovich")] [assembly: AssemblyTrademark("")] [assembly: AssemblyCulture("")] [assembly: AssemblyVersion(RevisionClass.FullVersion)] diff --git a/InstallerSamples/OpenGL и OpenCL/OpenCL/MatrMlt.cl b/InstallerSamples/OpenGL и OpenCL/OpenCL/MatrMlt.cl index 1481c2b62..74a27599f 100644 --- a/InstallerSamples/OpenGL и OpenCL/OpenCL/MatrMlt.cl +++ b/InstallerSamples/OpenGL и OpenCL/OpenCL/MatrMlt.cl @@ -1,4 +1,5 @@ - +#pragma OPENCL EXTENSION cl_khr_fp64: enable + __kernel void MatrMltMatr(__global double* A, __global double* B, __global double* C, int W) diff --git a/InstallerSamples/OpenGL и OpenCL/OpenCLABC/0Простейшие примеры/MatrMlt.cl b/InstallerSamples/OpenGL и OpenCL/OpenCLABC/0Простейшие примеры/MatrMlt.cl index 1481c2b62..74a27599f 100644 --- a/InstallerSamples/OpenGL и OpenCL/OpenCLABC/0Простейшие примеры/MatrMlt.cl +++ b/InstallerSamples/OpenGL и OpenCL/OpenCLABC/0Простейшие примеры/MatrMlt.cl @@ -1,4 +1,5 @@ - +#pragma OPENCL EXTENSION cl_khr_fp64: enable + __kernel void MatrMltMatr(__global double* A, __global double* B, __global double* C, int W) diff --git a/InstallerSamples/OpenGL и OpenCL/OpenGL/Крутящийся треугольник 1 (простейший пример).pas b/InstallerSamples/OpenGL и OpenCL/OpenGL/Крутящийся треугольник 1 (простейший пример).pas index cc8188864..325496436 100644 --- a/InstallerSamples/OpenGL и OpenCL/OpenGL/Крутящийся треугольник 1 (простейший пример).pas +++ b/InstallerSamples/OpenGL и OpenCL/OpenGL/Крутящийся треугольник 1 (простейший пример).pas @@ -13,11 +13,11 @@ uses OpenGL; {$apptype windows} // убирает консоль -var gl: OpenGL.gl; +var gl: OpenGL.gl; {$region Shader} -function InitShader(fname: string; st: ShaderType): ShaderName; +function InitShader(fname: string; st: ShaderType): gl_shader; begin Result := gl.CreateShader(st); @@ -61,12 +61,12 @@ end; {$region Program} -function InitProgram(vertex_shader, fragment_shader: ShaderName): ProgramName; +function InitProgram(vertex_shader, fragment_shader: gl_shader): gl_program; begin Result := gl.CreateProgram; gl.AttachShader(Result, vertex_shader); - if fragment_shader<>ShaderName.Zero then gl.AttachShader(Result, fragment_shader); + if fragment_shader<>gl_shader.Zero then gl.AttachShader(Result, fragment_shader); gl.LinkProgram(Result); // всё то же самое что и у шейдеров @@ -113,13 +113,13 @@ begin // При создании экземпляра OpenGL.gl инициализируются некоторые функции // Это необходимо для всех функций из OpenGL1.2 и выше, потому что они локальны для контекста OpenGL - gl := new OpenGL.gl; + gl := new OpenGL.gl; {$endregion Настройка глобальных параметров OpenGL} {$region Инициализация переменных} - var vertex_pos_buffer: BufferName; + var vertex_pos_buffer: gl_buffer; gl.CreateBuffers(1, vertex_pos_buffer); gl.NamedBufferData( vertex_pos_buffer, @@ -137,7 +137,7 @@ begin VertexBufferObjectUsage.STATIC_DRAW ); - var vertex_clr_buffer: BufferName; + var vertex_clr_buffer: gl_buffer; gl.CreateBuffers(1, vertex_clr_buffer); gl.NamedBufferData( vertex_clr_buffer, @@ -150,7 +150,7 @@ begin VertexBufferObjectUsage.STATIC_DRAW ); - var element_buffer: BufferName; + var element_buffer: gl_buffer; gl.CreateBuffers(1, element_buffer); gl.NamedBufferData( element_buffer, @@ -164,7 +164,7 @@ begin var vertex_shader := InitShader('Rot Triangle 1.vertex.glsl', ShaderType.VERTEX_SHADER); // var fragment_shader := InitShader('fragment.glsl', ShaderType.FRAGMENT_SHADER); - var sprog := InitProgram(vertex_shader, ShaderName.Zero {fragment_shader}); + var sprog := InitProgram(vertex_shader, gl_shader.Zero {fragment_shader}); var uniform_rot_k := gl.GetUniformLocation(sprog, 'rot_k'); diff --git a/InstallerSamples/OpenGL и OpenCL/Гайд по использованию OpenGL и OpenCL.html b/InstallerSamples/OpenGL и OpenCL/Гайд по использованию OpenGL и OpenCL.html index d4f0bb17f..c093eb42e 100644 --- a/InstallerSamples/OpenGL и OpenCL/Гайд по использованию OpenGL и OpenCL.html +++ b/InstallerSamples/OpenGL и OpenCL/Гайд по использованию OpenGL и OpenCL.html @@ -916,7 +916,7 @@ window.onload = ()=>{ @@ -998,12 +998,12 @@ window.onload = ()=>{

Имена объектов - это числа (в OpenGL обычно на 32 бита, в OpenCL - зависит от битности системы).

Чтоб в подпрограмму, принимающую имена объектов определённого типа нельзя было передать имя объекта неправильного типа - в н.у. модулях для каждого типа объектов описана подобная запись:

-
  BufferName = record
+
  gl_buffer = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
-    public static property Zero: BufferName read default(BufferName);
+    public static property Zero: gl_buffer read default(gl_buffer);
     public static property Size: integer read Marshal.SizeOf&<UInt32>;
-    public function ToString: string; override := $'BufferName[{val}]';
+    public function ToString: string; override := $'gl_buffer[{val}]';
   end;
 

 
Такой подход не замедляет готовую программу, но позволяет отловить некоторые ошибки на этапе компиляции.

@@ -1012,8 +1012,8 @@ window.onload = ()=>{
 
В обычной ситуации - вы будете взаимодействовать с именами только 3 способами:

 
    
 
  1. Объявление:
    
-
    var name: BufferName;
-var names: array of BufferName := new BufferName[5];
+
    var name: gl_buffer;
+var names: array of gl_buffer := new gl_buffer[5];
 
    
 
    2. 
 
  2. Передача исходным библиотекам:
    
@@ -1022,14 +1022,14 @@ gl.CreateBuffers(names.Length, names);

  • Использование статичного свойства .Zero:

    -
    procedure MyProc(buff: BufferName);
+
    procedure MyProc(buff: gl_buffer);
 begin
   ...
 end;
 ...
-MyProc(BufferName.Zero);
-// Это то же самое, но с лишними скобками
-MyProc(default(BufferName));
+MyProc(gl_buffer.Zero);
+// То же самое, но с лишними скобками:
+MyProc(default(gl_buffer));
 
    
 
    У настоящих объектов имя никогда не будет нулевым.
    
 
    Но бывает не мало случаев когда исходные библиотеки могут принимать нулевое имя.
    
@@ -1042,7 +1042,7 @@ MyProc(default(BufferName));
 
    Многие параметры подпрограмм в исходных библиотеках принимают перечисления (enum'ы).
    
 
    Перечисления, как и имена, это числа. Но в отличии от имён - перечисления принимают заданные заранее константные значения.
    
 
    В качестве примера:
    
-
    procedure gl.BeginQuery(target: QueryTarget; id: QueryName);
+
    procedure gl.BeginQuery(target: QueryTarget; id: gl_query)
 
    
 
    Параметр target принимает одно из значений, сгрупированных в записи QueryTarget:
    
 
      QueryTarget = record
@@ -1076,7 +1076,7 @@ MyProc(default(BufferName));
   end;
 
    
 
    То есть вызов может выглядеть так:
    
-
    var name: QueryName;
+
    var name: gl_query;
 ...
 gl.BeginQuery(QueryTarget.VERTICES_SUBMITTED, name);
 
    
@@ -1087,15 +1087,10 @@ gl.BeginQuery(QueryTarget.VERTICES_SUBMITTED, name);
 
    procedure gl.Clear(mask: ClearBufferMask);
 
    
 
    gl.Clear(
-  ClearBufferMask.COLOR_BUFFER_BIT or // очистка поверхности рисования одним цветом
-  ClearBufferMask.DEPTH_BUFFER_BIT    // очистка буфера глубины - обязательна при рисовании 3D
+  ClearBufferMask.COLOR_BUFFER_BIT + // Очистка поверхности рисования одним цветом
+  ClearBufferMask.DEPTH_BUFFER_BIT   // Очистка буфера глубины - нужна при рисовании 3D
 );
-
    
-
    or, в данном случае, побитовое, а не логическое.
    
-
    Выражение
    
-ClearBufferMask.COLOR_BUFFER_BIT or ClearBufferMask.DEPTH_BUFFER_BIT
    
-можно читать как "все биты COLOR_BUFFER_BIT + все биты DEPTH_BUFFER_BIT".
    
-
    А в случае gl.Clear эта комбинация значит "очистить буфер цвета и буфер глубины"
    
+
    
 
 
 
    
 
    По нажатию точки после cl вам так же покажет список всех функций в ядре OpenCL.
    
 
    
-
    С OpenGL немного сложнее: в каждом контексте у каждой подпрограммы может быть свой адрес.
-Поэтому подпрограммы надо получать в зависимости от контекста. В модуле OpenGL это реализовано так:
    
-
    //ToDo создание контекста и привязка его к текущему потоку
+
    С OpenGL немного сложнее:
    
+
      
+
    1. В каждом контексте у каждой подпрограммы может быть свой адрес.
      2. 
+
    2. Получение адреса подпрограммы выглядит по-разному на разных платформах.
      3. 
+
    
+
    В модуле OpenGL это реализовано так:
    
+
    //ToDo Создание контекста и привязка его к текущему потоку
 
-// все адреса и экземпляры делегатов создаются в конструкторе
-var gl := new OpenGL.gl;
+// Все адреса и экземпляры делегатов создаются в конструкторе
+// В "<>" указывается имя платформы
+// Можете написать "Pl" и нажать Ctrl+пробел, чтоб получить список платформ
+var gl := new OpenGL.gl<PlWin>;
 
 while true do
 begin
@@ -1126,27 +1127,28 @@ end;
 
    
 
    
 
    У каждого расширения есть свой класс. К примеру, так используется расширение GL_AMD_debug_output:
    
-
    //ToDo опять же, сначала контекст
+
    //ToDo Опять же, сначала контекст
 
-var glDebugOutputAMD := new OpenGL.glDebugOutputAMD;
+var glDebugOutputAMD := new OpenGL.glDebugOutputAMD<PlWin>;
 ...
 glDebugOutputAMD.DebugMessageEnableAMD(...);
 
    
 
    
-
    В модуле OpenGL так же есть особые классы, wgl и gdi:
    
+
    В модуле OpenGL так же есть особые классы, wgl, gdi и glx:
    
 
      
 
    • gdi содержит несколько методов библиотеки gdi32.dll. На этой библиотеке основано всё в System.Windows.Forms.
      
-Подпрограммы включённые в класс gdi - это то что может понадобиться вам чтоб настроить и подготовить форму для рисования на ней с помощью OpenGL.
      
+Подпрограммы включённые в класс gdi - это то, что может понадобиться вам, чтоб настроить и подготовить форму для рисования на ней с помощью OpenGL.
      
 
      • 
-
    • wgl содержит методы для работы с OpenGL на Windows. Для других ОС есть класс glX, но он сейчас выключен из релиза.
-Это потому, что у меня нет компьютера, на котором установлена другая ОС, а значит я не могу
-заняться тестированием чтоб узнать как правильно объявлять всё в этом классе. Если у вас есть
-другая ОС и вы хотите помочь мне разобраться - пожалуйста, свяжитесь со мной (желательно в issue).
      
+
    • wgl содержит методы для подключения OpenGL к окну Windows.
      
+
      • 
+
    • glx содержит методы для подключения OpenGL к окну XWindow.
      
 
      • 
 
    
 
    Оба этих класса работают как класс cl, то есть им не надо создавать экземпляр.
    
 
    
-
    И последнее что вам надо знать об этих классах: Если вы получаете NullReferenceException:
    
+
    И последнее что вам надо знать об этих классах:
    
+Если вы получаете NullReferenceException,
+при попытке вызова функции из инициализируемых классов, как gl:
    
 
      
 
    1. Скорее всего вы попытались вызвать подпрограмму, которой нет в реализации библиотеки на вашем компьютере.
      
 Проверьте версию библиотеки, или, если это подпрограмма из расширения - проверьте существование у вас этого расширения.
      
@@ -1270,25 +1272,29 @@ v2.Println;
 v2.SqrLength.Sqrt.Println; // Обязательно будет 1
 
    
 
    Cross
    
-
    Статичный метод .Cross возвращает произведение векторов (Cross product, не путать со скалярным произведением).
+
    Статичные методы .Cross[CW,CCW] возвращают векторное произведение двух
+3-х мерных векторов ("Cross product", не путать со скалярным произведением).
    
 Векторное произведение - это вектор, перпендикулярный обоим входным векторам и имеющий длину,
 равную площади параллелограмма, образованного входными векторами.
    
-
    Работает только для 3-х мерных векторов.
    
-
    И не работает для векторов с элементами-беззнаковыми целыми.
    
-(потому что даёт переполнение на практически любых входных значениях. Если найдёте нормальное применение - напишите в issue).
    
+
    Не работает для векторов с элементами-беззнаковыми_целыми, потому что даёт переполнение
+на практически любых входных значениях. Если найдёте нормальное применение - напишите в issue.
    
 
    В математике произведение векторов может вернуть один из двух противоположных друг-другу векторов,
 в зависимости от ориентации системы координат. В модуле OpenGL это решено следующим образом:
    
-
    var c := Vec3d.Cross(a, b);
-
    
-
    В данном случае, вектор c будет такой, чтоб соблюдалось следующее условие:
    
 
      
-
    • Если поставить начала всех 3 векторов в точку (0;0;0), а камеру в точку (a+b+c) и направить
-в точку (0;0;0) - вектора a, b и c будут расположены по часовой стрелке вокруг центра экрана.
      • 
+
    • Vec3d.CrossCW(new Vec3d(1,0,0), new Vec3d(0,1,0)) = new Vec3d(0,0,1).
      
+
      • 
+
    • Vec3d.CrossCCW(a,b) = -Vec3d.CrossCW(a,b);
      
+
      • 
 
    
-
    Если надо чтоб было против часовой стрелки - можно использовать CCW (counter clock wise, против часовой стрелки) версию .Cross:
    
-
    var c := Vec3d.CrossCCW(a,b);
+
    Ввод с клавиатуры
    
+
    Статичные методы Read и Readln создают новый вектор из элементов, прочитанных из стандартного ввода:
    
+
    // Прочитать 2 числа из ввода
+Vec2d.Read('Введите 2 координаты:').Println;
+
+// Прочитать 2 числа из ввода
+// и затем пропустить всё до конца строки
+Vec2d.Readln.Println;
 
    
-
    (ну или можно использовать -Vec3d.Cross(a,b), это даст тот же результат но с 1 лишней операцией)
    
 
    Превращение в строку
    
 
    var v1: Vec4d;
 ...
@@ -1438,6 +1444,19 @@ m.Transpose.Println; // Выводит:
 v*m это то же самое что m.Transpose*v.
    
 
    Умножение 2 матриц
    
 
    m1*m2 - это математическое умножение матриц m1 и m2.
    
+
    Ввод с клавиатуры
    
+
    Статичные методы Read[,ln][Rows,Cols] создают новую матрицу из элементов, прочитанных из стандартного ввода:
    
+
    // Прочитать 3*4=12 элементов из ввода
+// и сохранить в новую матрицу по строкам
+Mtr3x4d.ReadRows('Введите 12 элементов матрицы:').Println;
+
+// Прочитать 4 элемета из ввода, переходя на
+// следущую строку ввода после чтения каждого столбца
+Mtr2d.ReadlnCols(
+  'Введите столбцы матрицы...',
+  col -> $'Столбец #{col}:'
+).Println;
+
    
 
    Превращение в строку
    
 
    Как и у векторов - матрицы можно выводить и превращать в строку
    
 
    var m: Mtr4d;
@@ -1814,10 +1833,16 @@ begin
   d.DynamicInvoke(5); // вообще .DynamicInvoke это очень медленно
   
   var p: integer->();
-//  var p: Action<integer>; // такое же объявление как на предыдущей строчке, но в другом стиле
+  // Такое же объявление как на предыдущей строчке, но в другом стиле
+//  var p: Action<integer>;
+  // И ещё один стиль. Этот особенный, потому что
+  // он неявно создаёт новый тип делегата
+//  var p: procedure(i: integer);
   p := p1;
   
-  p(5); // типизированные делегаты можно вызывать быстрее и проще, так же как обычные подпрограммы
+  // Типизированные делегаты можно вызывать быстрее и проще,
+  // так же как обычные подпрограммы
+  p(5);
   
 end.
 
    
@@ -1851,7 +1876,7 @@ end.
 
      
 
    1. cl.SetEventCallback вызывает свой коллбек тогда, когда посчитает нужным (но обычно после того как вызов cl.SetEventCallback завершился);
      
 
      2. 
-
    2. Делегаты - это классы. И на самом деле кроме самого адреса хранят ещё много всякой информации (как типы параметров);
      
+
    3. Делегаты - это классы.
      
 
      4. 
 
    4. Сборщик мусора распоряжается памятью классов и удаляет их, тоже когда посчитает нужным.
      
 
      5. 
@@ -1862,9 +1887,9 @@ end.
 
      Если сборщик мусора удалит делегат, а затем .dll попытается его вызвать -
 это приведёт или к ошибке доступа, или к моментальному беззвучному вылету.
      
 
      Чтоб запретить сборщику мусора удалять делегать - нужно создать GCHandle, привязанный к нему.
      
-Но в отличии от массивов - GCHandleType.Pinned не нужно, потому что сборщик мусора может перемещать
-в памяти данные о параметрах делегата, но не сам адрес (а он единственное что передаётся в .dll).
-Это потому что адрес хранится в виде указателя на неуправляемый код.
      
+Но в отличии от массивов - GCHandleType.Pinned не нужно, потому что сборщик мусора
+не может перемещать адрес исполняемого кода (а он единственное что передаётся в .dll).
+Это потому, что этот адрес хранится в виде указателя на неуправляемый код.
      
 
      uses System.Runtime.InteropServices;
 uses System;
 uses OpenCL;
@@ -1877,8 +1902,8 @@ begin
     
     Writeln($'{ev} перешёл в состояние {st}');
     
-    // в данном случае освобождать GCHandle станет можно тогда, когда делегат 1 раз выполнится,
-    // а значит очень удобно поставить освобождение в конец самого делегата
+    // В данном случае освобождать GCHandle станет можно тогда, когда делегат 1 раз выполнится,
+    // А значит очень удобно поставить освобождение в конец самого делегата
     gc_hnd.Free;
   end;
   gc_hnd := GCHandle.Alloc(cb);
diff --git a/InstallerSamples/OpenGL и OpenCL/Справка OpenCLABC.html b/InstallerSamples/OpenGL и OpenCL/Справка OpenCLABC.html
index cf5977475..38c9f884d 100644
--- a/InstallerSamples/OpenGL и OpenCL/Справка OpenCLABC.html	
+++ b/InstallerSamples/OpenGL и OpenCL/Справка OpenCLABC.html	
@@ -1012,7 +1012,7 @@ end.
 Неявные очереди всегда используют Context.Default.
      
 
      Изначально этому свойству присваивается контекст, использующий GPU, если оно имеется,
 или любое другое устройство, поддерживающее OpenCL, если GPU отсутствует.
      
-
      Если устройств, поддерживающих OpenCL, нет - Context.Default будет nil.
      
+
      Если устройств поддерживающих OpenCL нет - Context.Default будет nil.
      
 Однако такая ситуация теоретически невозможна, потому что OpenCL поддерживается
 всеми современными устройствами, занимающимися выводом изображения на экран.
      
 Если Context.Default = nil - переустановите графические драйверы.
      
@@ -1025,8 +1025,8 @@ end.
 
 
 
 
@@ -1373,7 +1373,7 @@ except
   on e: Exception do Writeln(e);
 end;
 
      
-
      Для этого кода есть стандартный снипет. Чтобы активировать его, напишите tryo и нажмите Shift+Пробел.
      
+
      Для этого кода есть стандартный снипет. Чтобы активировать его - напишите tryo и нажмите Shift+Пробел.
      
 
 
 
diff --git a/InstallerSamples/OpenGL и OpenCL/Справка OpenGLABC.html b/InstallerSamples/OpenGL и OpenCL/Справка OpenGLABC.html
index 5e1265767..73fecc8bb 100644
--- a/InstallerSamples/OpenGL и OpenCL/Справка OpenGLABC.html	
+++ b/InstallerSamples/OpenGL и OpenCL/Справка OpenGLABC.html	
@@ -878,7 +878,7 @@ window.onload = ()=>{
 
 
 
diff --git a/Localization/Properties/AssemblyInfo.cs b/Localization/Properties/AssemblyInfo.cs
index 5b15eee67..e4ec83047 100644
--- a/Localization/Properties/AssemblyInfo.cs
+++ b/Localization/Properties/AssemblyInfo.cs
@@ -12,7 +12,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("Localization")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/NETGenerator/NETGenerator.cs b/NETGenerator/NETGenerator.cs
index 3f3309278..408e0eb7a 100644
--- a/NETGenerator/NETGenerator.cs
+++ b/NETGenerator/NETGenerator.cs
@@ -3353,8 +3353,8 @@ namespace PascalABCCompiler.NETGenerator
         {
             if (ti.init_meth != null)
             {
-                il.Emit(OpCodes.Ldloca, lb);
-                il.Emit(OpCodes.Call, ti.init_meth);
+                //il.Emit(OpCodes.Ldloca, lb);
+                //il.Emit(OpCodes.Call, ti.init_meth);
             }
             LocalBuilder llb = il.DeclareLocal(lb.LocalType.MakePointerType());
             il.Emit(OpCodes.Ldloca, lb);
diff --git a/Optimizer/Properties/AssemblyInfo.cs b/Optimizer/Properties/AssemblyInfo.cs
index 50aa542c4..6a7afd5f7 100644
--- a/Optimizer/Properties/AssemblyInfo.cs
+++ b/Optimizer/Properties/AssemblyInfo.cs
@@ -12,7 +12,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("Optimizer")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/Optimizer/SemanticTreeConverter.cs b/Optimizer/SemanticTreeConverter.cs
index 58aa41f9b..386a03400 100644
--- a/Optimizer/SemanticTreeConverter.cs
+++ b/Optimizer/SemanticTreeConverter.cs
@@ -29,7 +29,7 @@ namespace PascalABCCompiler
 
         public string Copyright
         {
-            get { return "Copyright  2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich"; }
+            get { return "Copyright  2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich"; }
         }
 
         public PascalABCCompiler.SemanticTreeConverters.ConverterType ConverterType
diff --git a/Parsers/PascalABCParserNewSaushkin/DocTagsParser/Parser.cs b/Parsers/PascalABCParserNewSaushkin/DocTagsParser/Parser.cs
index ae0f03fb3..1ee9aaf48 100644
--- a/Parsers/PascalABCParserNewSaushkin/DocTagsParser/Parser.cs
+++ b/Parsers/PascalABCParserNewSaushkin/DocTagsParser/Parser.cs
@@ -193,7 +193,7 @@ namespace PascalABCCompiler.DocTagsParser
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/Parsers/PascalABCParserNewSaushkin/Parser.cs b/Parsers/PascalABCParserNewSaushkin/Parser.cs
index 8cb237ae0..7efb43890 100644
--- a/Parsers/PascalABCParserNewSaushkin/Parser.cs
+++ b/Parsers/PascalABCParserNewSaushkin/Parser.cs
@@ -112,7 +112,7 @@ namespace PascalABCCompiler.PascalABCNewParser
         //public Preprocessor2.Preprocessor2 preprocessor2 = new PascalABCCompiler.Preprocessor2.Preprocessor2(null);
 
         public PascalABCNewLanguageParser()
-            : base("PascalABC.NET", "1.2", "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich", false, new string[] { ".pas" })
+            : base("PascalABC.NET", "1.2", "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich", false, new string[] { ".pas" })
         {
         }
 
diff --git a/Parsers/VBNETParser/AssemblyInfo.cs b/Parsers/VBNETParser/AssemblyInfo.cs
index 508c7d9c9..95e27c8dc 100644
--- a/Parsers/VBNETParser/AssemblyInfo.cs
+++ b/Parsers/VBNETParser/AssemblyInfo.cs
@@ -14,7 +14,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("VBNETParser")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/SyntaxTreeConverters/Properties/AssemblyInfo.cs b/SyntaxTreeConverters/Properties/AssemblyInfo.cs
index 6d22b1982..8463fbe3e 100644
--- a/SyntaxTreeConverters/Properties/AssemblyInfo.cs
+++ b/SyntaxTreeConverters/Properties/AssemblyInfo.cs
@@ -12,7 +12,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("SyntaxTreeChanger")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/SyntaxVisitors/Properties/AssemblyInfo.cs b/SyntaxVisitors/Properties/AssemblyInfo.cs
index eb4a0a904..7cde5b512 100644
--- a/SyntaxVisitors/Properties/AssemblyInfo.cs
+++ b/SyntaxVisitors/Properties/AssemblyInfo.cs
@@ -12,7 +12,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("SyntaxVisitors")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/TestSuite/2067.pas b/TestSuite/2067.pas
index fedc95e51..847c2847c 100644
--- a/TestSuite/2067.pas
+++ b/TestSuite/2067.pas
@@ -17,5 +17,5 @@ begin
 end;
 
 begin 
-  Assert(1=1)
+  Assert(1=1);
 end.
\ No newline at end of file
diff --git a/TestSuite/Abs_Sqr_byte.pas b/TestSuite/Abs_Sqr_byte.pas
index da0145850..715d0b297 100644
--- a/TestSuite/Abs_Sqr_byte.pas
+++ b/TestSuite/Abs_Sqr_byte.pas
@@ -5,4 +5,16 @@
   var w: word := 65535;
   Assert(Sqr(w)=w*w);
   Assert(Abs(w)=w);
+  var sm: smallint := smallint.MaxValue;
+  Assert(Sqr(sm) = sm*sm);
+  var sh: shortint := shortint.MaxValue;
+  Assert(Sqr(sh) = sh*sh);
+  var lw: longword := longword.MaxValue;
+  Assert(Sqr(lw) = uint64(lw)*uint64(lw));
+  var i: integer := integer.MaxValue;
+  Assert(Sqr(i) = int64(i)*int64(i));
+  var i64: int64 := integer.MaxValue;
+  Assert(Sqr(i64) = i64*i64);
+  var ui64: uint64 := integer.MaxValue;
+  Assert(Sqr(ui64) = ui64*ui64);
 end.
\ No newline at end of file
diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas
index 0d690fc4a..124d86624 100644
--- a/TestSuite/CompilationSamples/PABCSystem.pas
+++ b/TestSuite/CompilationSamples/PABCSystem.pas
@@ -8215,7 +8215,7 @@ function LogN(base, x: real) := Math.Log(x) / Math.Log(base);
 
 function Sqrt(x: real) := Math.Sqrt(x);
 
-function Sqr(x: integer): int64 := x * x;
+function Sqr(x: integer): int64 := int64(x) * int64(x);
 
 function Sqr(x: shortint): integer := x * x;
 
@@ -8225,11 +8225,11 @@ function Sqr(x: BigInteger): BigInteger := x * x;
 
 function Sqr(x: byte): integer := x * x;
 
-function Sqr(x: word): uint64 := x * x;
+function Sqr(x: word): uint64 := uint64(x) * uint64(x);
 
-function Sqr(x: longword): uint64 := x * x;
+function Sqr(x: longword): uint64 := uint64(x) * uint64(x);
 
-function Sqr(x: int64): int64 := x * x;
+function Sqr(x: int64): int64 := int64(x) * int64(x);
 
 function Sqr(x: uint64): uint64 := x * x;
 
diff --git a/TestSuite/errors/err0392.pas b/TestSuite/errors/err0392.pas
new file mode 100644
index 000000000..ca27d84f2
--- /dev/null
+++ b/TestSuite/errors/err0392.pas
@@ -0,0 +1,14 @@
+type
+  
+  Fixer = class
+   where TFixer: record;
+    
+    procedure p1;
+    begin
+      var a: TFixer;
+      var b := a <> nil;
+    end;
+    
+  end;
+  
+begin end.
\ No newline at end of file
diff --git a/TestSuite/errors/err0393.pas b/TestSuite/errors/err0393.pas
new file mode 100644
index 000000000..6bab2156b
--- /dev/null
+++ b/TestSuite/errors/err0393.pas
@@ -0,0 +1,12 @@
+type
+  t0 = class end;
+  
+  t1 = class
+  where T: t0;
+    
+  end;
+  
+begin
+  // Компилируется, а не должно
+  var a: t1;
+end.
\ No newline at end of file
diff --git a/TestSuite/lambdas_generics10.pas b/TestSuite/lambdas_generics10.pas
new file mode 100644
index 000000000..6eefca952
--- /dev/null
+++ b/TestSuite/lambdas_generics10.pas
@@ -0,0 +1,26 @@
+type
+  
+  t0 = class
+  where T: t0;
+    b: boolean;
+    
+    static procedure p1(a: T);
+    begin
+      var f: Func := o -> o.b;
+      assert(f(a));
+    end;
+    
+    static procedure p2(a: T);
+    begin
+      assert(a.b);
+    end;
+  end;
+  
+  t1 = class(t0) end;
+  
+begin
+  var a := new t1;
+  a.b := true;
+  t1.p1(a);
+  t1.p2(a);
+end.
\ No newline at end of file
diff --git a/TestSuite/recinit2.pas b/TestSuite/recinit2.pas
index a9aeba2dd..132ab88ae 100644
--- a/TestSuite/recinit2.pas
+++ b/TestSuite/recinit2.pas
@@ -1,4 +1,4 @@
-
+
 type 
   TRec = record a : integer; end; 
   TRec2 = record b : array of real; end;
@@ -51,6 +51,25 @@ Nested;
 end;
 
 var i := 1;
+procedure Test3;
+
+begin
+  
+  var rec : TRec := (a:i+3);
+  var arr : TMas := ((a:i),(a:i+1),(a:i+2));
+  var arr2 : array of TRec := ((a:i),(a:i+1),(a:i+2));
+  var rec2 : TRec2 := (b:(i,i,i));
+  var rec4 : TRec3 := (a:(b:(i,i,i)));
+  var rec6 : TRec4 := (a:'abcde');
+  assert(rec.a=4);
+  assert(arr[2].a=2);
+  assert(arr2[2].a=3);
+  assert(rec2.b[0]=i);
+  assert(rec4.a.b[0]=i);
+  assert(rec6.a='abcd');
+end;
+
+var
     rec : TRec := (a:i+3);
     arr : TMas := ((a:i),(a:i+1),(a:i+2));
     arr2 : array of TRec := ((a:i),(a:i+1),(a:i+2));
@@ -69,4 +88,5 @@ assert(rec5.a.a.b[0]=i);
 assert(rec6.a='abcd');
 Test;
 Test2;
+Test3;
 end.
\ No newline at end of file
diff --git a/TestSuite/records19.pas b/TestSuite/records19.pas
new file mode 100644
index 000000000..ebcfe6537
--- /dev/null
+++ b/TestSuite/records19.pas
@@ -0,0 +1,21 @@
+var i: integer;
+
+type
+  r1 = record 
+    public function InitI1:integer;
+    begin
+      Result := 1;
+      Inc(i);
+    end;
+    
+    public i1: integer := InitI1;
+    public i2: integer;
+    
+  end;
+  
+function f1 := default(r1);
+
+begin
+  var a := f1;
+  assert(i = 1);
+end.
\ No newline at end of file
diff --git a/TestSuite/records20.pas b/TestSuite/records20.pas
new file mode 100644
index 000000000..ec3c8a153
--- /dev/null
+++ b/TestSuite/records20.pas
@@ -0,0 +1,23 @@
+var i: integer;
+type
+  r1 = record 
+    public function InitI1:integer;
+    begin
+      Result := 1;
+      Inc(i);
+    end;
+    
+    public i1: integer := InitI1;
+    public i2: integer;
+    
+    public constructor(i2:integer) :=
+    self.i2 := i2;
+    
+    public static function operator implicit(i: integer): r1 := new r1(i);
+    
+  end;
+  
+begin
+  var a: r1 := 5;
+  assert(i = 2);
+end.
\ No newline at end of file
diff --git a/TestSuite/records21.pas b/TestSuite/records21.pas
new file mode 100644
index 000000000..1458041bb
--- /dev/null
+++ b/TestSuite/records21.pas
@@ -0,0 +1,18 @@
+var i: integer;
+type
+  r1 = record 
+    public function InitI1:integer;
+    begin
+      Result := 1;
+      Inc(i);
+    end;
+    
+    public i1: integer := InitI1;
+    public i2: integer;
+    
+  end;
+  
+begin
+  var a: r1 := (i1: 2; i2: 3);
+  assert(i = 0);
+end.
\ No newline at end of file
diff --git a/TestSuite/units/u_where2.pas b/TestSuite/units/u_where2.pas
new file mode 100644
index 000000000..2f108cde0
--- /dev/null
+++ b/TestSuite/units/u_where2.pas
@@ -0,0 +1,12 @@
+unit u_where2;
+
+type
+  
+  t0 = class
+  where T: t0;
+    
+    procedure p1(a: T); virtual := exit;
+    
+  end;
+  
+end.
\ No newline at end of file
diff --git a/TestSuite/usesunits/use_where2.pas b/TestSuite/usesunits/use_where2.pas
new file mode 100644
index 000000000..58912ddf1
--- /dev/null
+++ b/TestSuite/usesunits/use_where2.pas
@@ -0,0 +1,19 @@
+uses u_where2;
+
+var i: integer;
+type
+  
+  t1 = class(t0)
+    
+    procedure p1(a: t1); override;
+    begin
+      i := 1;  
+    end;
+    
+  end;
+  
+begin 
+var obj := new t1;
+obj.p1(obj);
+assert(i = 1);
+end.
\ No newline at end of file
diff --git a/TestSuite/where14.pas b/TestSuite/where14.pas
new file mode 100644
index 000000000..ab6ff96f0
--- /dev/null
+++ b/TestSuite/where14.pas
@@ -0,0 +1,21 @@
+type
+  
+  Fixer = class
+  where TFixer: Fixer;
+    
+    procedure p1;
+    begin
+      var a: TFixer;
+      assert(a = nil);
+      var o := self as object;
+    end;
+    
+  end;
+  
+  DerFixer = class(Fixer)
+  end;
+  
+begin 
+ var obj := new DerFixer();
+ obj.p1;
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/compilation_context.cs b/TreeConverter/TreeConversion/compilation_context.cs
index c51bd5ff8..b6e1e986d 100644
--- a/TreeConverter/TreeConversion/compilation_context.cs
+++ b/TreeConverter/TreeConversion/compilation_context.cs
@@ -2129,7 +2129,7 @@ namespace PascalABCCompiler.TreeConverter
                 	{
                  		lbvr.type = SystemLibrary.SystemLibInitializer.TypedSetType.sym_info as type_node;
                 	}
-                    if (vdn.type.is_value_type && userInitalValue is common_constructor_call)
+                    if (vdn.type.is_value_type /*&& userInitalValue is common_constructor_call*/)
                     {
                         return new default_operator_node(vdn.type, lid);
                     }
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index fb08ac26d..77383ff7c 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -11974,6 +11974,8 @@ namespace PascalABCCompiler.TreeConverter
             {
                 make_attributes_for_declaration(_type_declaration, ctn);
             }
+            if (cl_def.keyword == class_keyword.Class || cl_def.keyword == class_keyword.Interface)
+                ctn.is_class = true;//nado ranshe pomechat kak is_class
             if (is_generic)
             {
                 if (predefined_generic)
@@ -12011,6 +12013,7 @@ namespace PascalABCCompiler.TreeConverter
                         AddError(get_location(cl_def.class_parents.types[i]), "PARTIAL_CLASS_PARENTS_MISMATCH");
                 }*/
             }
+            
             visit_where_list(cl_def.where_section);
            
             CheckWaitedRefTypes(ctn);
diff --git a/TreeConverter/TreeRealization/generics.cs b/TreeConverter/TreeRealization/generics.cs
index af23b9f87..8996ff0ec 100644
--- a/TreeConverter/TreeRealization/generics.cs
+++ b/TreeConverter/TreeRealization/generics.cs
@@ -166,6 +166,10 @@ namespace PascalABCCompiler.TreeRealization
                         return new SimpleSemanticError(null, "PARAMETER_{0}_MUST_BE_DERIVED_FROM_{1}", tn.PrintableName, base_type.name);
                     }
                 }
+                if (gpe.base_class != null && gpe.base_class != SystemLibrary.SystemLibrary.object_type && tn.is_value && !gpe.base_class.is_value && gpe.base_class != SystemLibrary.SystemLibrary.value_type)
+                {
+                    return new SimpleSemanticError(null, "PARAMETER_{0}_MUST_BE_REFERENCE_TYPE", tn.PrintableName);
+                }
                 foreach (type_node interf in gpe.implementing_interfaces)
                 {
                     type_node di = generic_convertions.determine_type(interf, tparams, method_param_types);
@@ -309,6 +313,8 @@ namespace PascalABCCompiler.TreeRealization
             //Определяем базовый тип
             type_node btype = determine_type(
                 original.base_type, param_types, false);
+            if (btype == null)
+                btype = SystemLibrary.SystemLibrary.object_type;
             instance.SetBaseTypeIgnoringScope(btype);
             
             //instance._scope = new SymbolTable.GenericTypeInstanceScope(instance, instance.original_generic.Scope, btype.Scope);
diff --git a/TreeConverter/TreeRealization/type_table.cs b/TreeConverter/TreeRealization/type_table.cs
index 676923ddc..ef1d3eba1 100644
--- a/TreeConverter/TreeRealization/type_table.cs
+++ b/TreeConverter/TreeRealization/type_table.cs
@@ -278,7 +278,12 @@ namespace PascalABCCompiler.TreeRealization
                     }
                     if (tn.is_generic_parameter)
                     {
-                        return (tn.is_class || tn.base_type != SystemLibrary.SystemLibrary.object_type && tn.base_type.is_class);
+                        if (tn.is_class)
+                            return true;
+                        if (tn.base_type.is_value || tn.is_value_type)
+                            return false;
+                        return true;
+                        //return (tn.is_class || tn.base_type != SystemLibrary.SystemLibrary.object_type && tn.base_type.is_class);
                     }
                     else if (tn is ref_type_node)
                     {
diff --git a/VisualPascalABCNET/AboutBox.Designer.cs b/VisualPascalABCNET/AboutBox.Designer.cs
index ea2465413..36b62248a 100644
--- a/VisualPascalABCNET/AboutBox.Designer.cs
+++ b/VisualPascalABCNET/AboutBox.Designer.cs
@@ -168,7 +168,7 @@
             this.label12.Name = "label12";
             this.label12.Size = new System.Drawing.Size(311, 13);
             this.label12.TabIndex = 17;
-            this.label12.Text = "Copyright (c) 2005, 2020   Ivan Bondarev, Stanislav Mikhalkovich";
+            this.label12.Text = "Copyright (c) 2005, 2021   Ivan Bondarev, Stanislav Mikhalkovich";
             this.label12.Click += new System.EventHandler(this.label12_Click);
             // 
             // label9
diff --git a/VisualPascalABCNET/AboutBox.cs b/VisualPascalABCNET/AboutBox.cs
index 9066274dc..4790e8561 100644
--- a/VisualPascalABCNET/AboutBox.cs
+++ b/VisualPascalABCNET/AboutBox.cs
@@ -130,7 +130,7 @@ namespace VisualPascalABC
             if (comp != null)
             {
                 Assembly a = Assembly.GetAssembly(comp.GetType());
-                dgvModules.Items.Add(MakeItem("Core", "PascalABCCompiler.Core", a.GetName().Version.ToString(), "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich"));
+                dgvModules.Items.Add(MakeItem("Core", "PascalABCCompiler.Core", a.GetName().Version.ToString(), "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich"));
                 foreach (PascalABCCompiler.Parsers.IParser parser in comp.ParsersController.Parsers)
                     dgvModules.Items.Add(MakeItem("Parser",parser.Name, parser.Version, parser.Copyright));
                 foreach (PascalABCCompiler.SemanticTreeConverters.ISemanticTreeConverter conv in comp.SemanticTreeConvertersController.SemanticTreeConverters)
diff --git a/VisualPlugins/CompilerController/CompilerControllerPlugin.cs b/VisualPlugins/CompilerController/CompilerControllerPlugin.cs
index 243f11cbe..b2bac9f38 100644
--- a/VisualPlugins/CompilerController/CompilerControllerPlugin.cs
+++ b/VisualPlugins/CompilerController/CompilerControllerPlugin.cs
@@ -32,7 +32,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright  2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright  2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/HelpBuilder/AssemblyInfo.cs b/VisualPlugins/HelpBuilder/AssemblyInfo.cs
index 04d87055a..eaae852eb 100644
--- a/VisualPlugins/HelpBuilder/AssemblyInfo.cs
+++ b/VisualPlugins/HelpBuilder/AssemblyInfo.cs
@@ -14,7 +14,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("HelpBuilder")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/VisualPlugins/HelpBuilder/HelpBuilderPlugin.cs b/VisualPlugins/HelpBuilder/HelpBuilderPlugin.cs
index 88d97e7b1..c2f93b861 100644
--- a/VisualPlugins/HelpBuilder/HelpBuilderPlugin.cs
+++ b/VisualPlugins/HelpBuilder/HelpBuilderPlugin.cs
@@ -31,7 +31,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
         
diff --git a/VisualPlugins/InternalErrorReport/InternalErrorReportPlugin.cs b/VisualPlugins/InternalErrorReport/InternalErrorReportPlugin.cs
index 3069de41e..4652be93e 100644
--- a/VisualPlugins/InternalErrorReport/InternalErrorReportPlugin.cs
+++ b/VisualPlugins/InternalErrorReport/InternalErrorReportPlugin.cs
@@ -93,7 +93,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/InternalErrorReport/Properties/AssemblyInfo.cs b/VisualPlugins/InternalErrorReport/Properties/AssemblyInfo.cs
index 792c67320..4c89c3580 100644
--- a/VisualPlugins/InternalErrorReport/Properties/AssemblyInfo.cs
+++ b/VisualPlugins/InternalErrorReport/Properties/AssemblyInfo.cs
@@ -10,7 +10,7 @@ using System.Runtime.InteropServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("ExtendedCompilerInformation")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]
 
diff --git a/VisualPlugins/LanguageConverter/Source/LanguageConverterPlugin.cs b/VisualPlugins/LanguageConverter/Source/LanguageConverterPlugin.cs
index 312555e0c..71fd67c23 100644
--- a/VisualPlugins/LanguageConverter/Source/LanguageConverterPlugin.cs
+++ b/VisualPlugins/LanguageConverter/Source/LanguageConverterPlugin.cs
@@ -33,7 +33,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/PT4Provider/PT4ProviderPlugin.cs b/VisualPlugins/PT4Provider/PT4ProviderPlugin.cs
index e21247204..053c7cb6b 100644
--- a/VisualPlugins/PT4Provider/PT4ProviderPlugin.cs
+++ b/VisualPlugins/PT4Provider/PT4ProviderPlugin.cs
@@ -35,7 +35,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/SemanticTreeVisualisator/Source/SemanticTreeVisualisatorPlugin.cs b/VisualPlugins/SemanticTreeVisualisator/Source/SemanticTreeVisualisatorPlugin.cs
index 99df8ba3a..84d591937 100644
--- a/VisualPlugins/SemanticTreeVisualisator/Source/SemanticTreeVisualisatorPlugin.cs
+++ b/VisualPlugins/SemanticTreeVisualisator/Source/SemanticTreeVisualisatorPlugin.cs
@@ -27,7 +27,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright  2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright  2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/SyntaxTreeVisualisator/SyntaxTreeVisualisatorPlugin.cs b/VisualPlugins/SyntaxTreeVisualisator/SyntaxTreeVisualisatorPlugin.cs
index b7f87aa30..3c82061b3 100644
--- a/VisualPlugins/SyntaxTreeVisualisator/SyntaxTreeVisualisatorPlugin.cs
+++ b/VisualPlugins/SyntaxTreeVisualisator/SyntaxTreeVisualisatorPlugin.cs
@@ -27,7 +27,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/VisualPlugins/TestPlugin/TestPlugin.cs b/VisualPlugins/TestPlugin/TestPlugin.cs
index e9dbae780..69d54db7e 100644
--- a/VisualPlugins/TestPlugin/TestPlugin.cs
+++ b/VisualPlugins/TestPlugin/TestPlugin.cs
@@ -29,7 +29,7 @@ namespace VisualPascalABCPlugins
         {
             get
             {
-                return "Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich";
+                return "Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich";
             }
         }
 
diff --git a/_RebuildReleaseAndRunTestsForGitHubActions.bat b/_RebuildReleaseAndRunTestsForGitHubActions.bat
new file mode 100644
index 000000000..832abc189
--- /dev/null
+++ b/_RebuildReleaseAndRunTestsForGitHubActions.bat
@@ -0,0 +1,44 @@
+call Studio.bat /t:rebuild "/property:Configuration=Release" "/p:Platform=Any CPU" PascalABCNET.sln
+
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+
+cd ReleaseGenerators
+..\bin\pabcnetc RebuildStandartModules.pas /rebuild /noconsole
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+
+cd PABCRtl
+..\..\bin\pabcnetc PABCRtl.pas /rebuild /noconsole
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+..\sn.exe -Vr PABCRtl.dll
+..\sn.exe -R PABCRtl.dll KeyPair.snk
+..\sn.exe -Vu PABCRtl.dll
+copy PABCRtl.dll ..\..\bin\Lib
+
+cd ..
+ExecHide.exe gacutil.exe /u PABCRtl
+ExecHide.exe gacutil.exe /i ..\bin\Lib\PABCRtl.dll
+
+..\bin\pabcnetc RebuildStandartModules.pas /rebuild /noconsole
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+
+cd ..\bin
+REM MPGORunner.exe
+TestRunner.exe 1 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+TestRunner.exe 2 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+TestRunner.exe 3 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+TestRunner.exe 4 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+TestRunner.exe 5 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+TestRunner.exe 6 1
+@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
+cd ..
+GOTO EXIT
+
+:ERROR
+PAUSE
+
+:EXIT
\ No newline at end of file
diff --git a/bin/Lib/OpenCL.pas b/bin/Lib/OpenCL.pas
index b49aef9fe..6f1505c63 100644
--- a/bin/Lib/OpenCL.pas
+++ b/bin/Lib/OpenCL.pas
@@ -202,6 +202,11 @@ type
         Result := $'Bool[{self.val}]';
     end;
     
+    public static function operator implicit(b: Bool): boolean := b.val<>Bool.FALSE.val;
+    public static function operator implicit(b: boolean): Bool := new Bool(UInt32(b));
+    
+    public static function operator not(b: Bool): Bool := b.val=Bool.FALSE.val ? Bool.TRUE : Bool.FALSE;
+    
   end;
   
   BufferCreateType = record
@@ -474,7 +479,7 @@ type
     private static _QUEUE_ON_DEVICE                      := new CommandQueueProperties($0004);
     private static _QUEUE_ON_DEVICE_DEFAULT              := new CommandQueueProperties($0008);
     private static _QUEUE_RESERVED_QCOM                  := new CommandQueueProperties($40000000);
-    private static _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL := new CommandQueueProperties($FFFFFFFF80000000);
+    private static _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL := new CommandQueueProperties($80000000);
     
     public static property NONE:                                 CommandQueueProperties read _NONE;
     public static property QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE:  CommandQueueProperties read _QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE;
@@ -484,7 +489,8 @@ type
     public static property QUEUE_RESERVED_QCOM:                  CommandQueueProperties read _QUEUE_RESERVED_QCOM;
     public static property QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: CommandQueueProperties read _QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL;
     
-    public static function operator or(f1,f2: CommandQueueProperties) := new CommandQueueProperties(f1.val or f2.val);
+    public static function operator+(f1,f2: CommandQueueProperties) := new CommandQueueProperties(f1.val or f2.val);
+    public static function operator or(f1,f2: CommandQueueProperties) := f1+f2;
     
     public property ANY_FLAGS: boolean read self.val<>0;
     public property HAS_FLAG_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE:  boolean read self.val and $0001 <> 0;
@@ -492,7 +498,7 @@ type
     public property HAS_FLAG_QUEUE_ON_DEVICE:                      boolean read self.val and $0004 <> 0;
     public property HAS_FLAG_QUEUE_ON_DEVICE_DEFAULT:              boolean read self.val and $0008 <> 0;
     public property HAS_FLAG_QUEUE_RESERVED_QCOM:                  boolean read self.val and $40000000 <> 0;
-    public property HAS_FLAG_QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: boolean read self.val and $FFFFFFFF80000000 <> 0;
+    public property HAS_FLAG_QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL: boolean read self.val and $80000000 <> 0;
     
     public function ToString: string; override;
     begin
@@ -503,7 +509,7 @@ type
       if self.val and UInt64($0004) = UInt64($0004) then res += 'QUEUE_ON_DEVICE+';
       if self.val and UInt64($0008) = UInt64($0008) then res += 'QUEUE_ON_DEVICE_DEFAULT+';
       if self.val and UInt64($40000000) = UInt64($40000000) then res += 'QUEUE_RESERVED_QCOM+';
-      if self.val and UInt64($FFFFFFFF80000000) = UInt64($FFFFFFFF80000000) then res += 'QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL+';
+      if self.val and UInt64($80000000) = UInt64($80000000) then res += 'QUEUE_THREAD_LOCAL_EXEC_ENABLE_INTEL+';
       if res.Length<>0 then
       begin
         res.Length -= 1;
@@ -561,6 +567,14 @@ type
     private static _COMMAND_MIGRATE_MEM_OBJECT_EXT              := new CommandType($4040);
     private static _COMMAND_ACQUIRE_VA_API_MEDIA_SURFACES_INTEL := new CommandType($409A);
     private static _COMMAND_RELEASE_VA_API_MEDIA_SURFACES_INTEL := new CommandType($409B);
+    private static _COMMAND_SVM_FREE_ARM                        := new CommandType($40BA);
+    private static _COMMAND_SVM_MEMCPY_ARM                      := new CommandType($40BB);
+    private static _COMMAND_SVM_MEMFILL_ARM                     := new CommandType($40BC);
+    private static _COMMAND_SVM_MAP_ARM                         := new CommandType($40BD);
+    private static _COMMAND_SVM_UNMAP_ARM                       := new CommandType($40BE);
+    private static _COMMAND_ACQUIRE_GRALLOC_OBJECTS_IMG         := new CommandType($40D2);
+    private static _COMMAND_RELEASE_GRALLOC_OBJECTS_IMG         := new CommandType($40D3);
+    private static _COMMAND_GENERATE_MIPMAP_IMG                 := new CommandType($40D6);
     private static _COMMAND_MEMFILL_INTEL                       := new CommandType($4204);
     private static _COMMAND_MEMCPY_INTEL                        := new CommandType($4205);
     private static _COMMAND_MIGRATEMEM_INTEL                    := new CommandType($4206);
@@ -609,6 +623,14 @@ type
     public static property COMMAND_MIGRATE_MEM_OBJECT_EXT:              CommandType read _COMMAND_MIGRATE_MEM_OBJECT_EXT;
     public static property COMMAND_ACQUIRE_VA_API_MEDIA_SURFACES_INTEL: CommandType read _COMMAND_ACQUIRE_VA_API_MEDIA_SURFACES_INTEL;
     public static property COMMAND_RELEASE_VA_API_MEDIA_SURFACES_INTEL: CommandType read _COMMAND_RELEASE_VA_API_MEDIA_SURFACES_INTEL;
+    public static property COMMAND_SVM_FREE_ARM:                        CommandType read _COMMAND_SVM_FREE_ARM;
+    public static property COMMAND_SVM_MEMCPY_ARM:                      CommandType read _COMMAND_SVM_MEMCPY_ARM;
+    public static property COMMAND_SVM_MEMFILL_ARM:                     CommandType read _COMMAND_SVM_MEMFILL_ARM;
+    public static property COMMAND_SVM_MAP_ARM:                         CommandType read _COMMAND_SVM_MAP_ARM;
+    public static property COMMAND_SVM_UNMAP_ARM:                       CommandType read _COMMAND_SVM_UNMAP_ARM;
+    public static property COMMAND_ACQUIRE_GRALLOC_OBJECTS_IMG:         CommandType read _COMMAND_ACQUIRE_GRALLOC_OBJECTS_IMG;
+    public static property COMMAND_RELEASE_GRALLOC_OBJECTS_IMG:         CommandType read _COMMAND_RELEASE_GRALLOC_OBJECTS_IMG;
+    public static property COMMAND_GENERATE_MIPMAP_IMG:                 CommandType read _COMMAND_GENERATE_MIPMAP_IMG;
     public static property COMMAND_MEMFILL_INTEL:                       CommandType read _COMMAND_MEMFILL_INTEL;
     public static property COMMAND_MEMCPY_INTEL:                        CommandType read _COMMAND_MEMCPY_INTEL;
     public static property COMMAND_MIGRATEMEM_INTEL:                    CommandType read _COMMAND_MIGRATEMEM_INTEL;
@@ -659,6 +681,14 @@ type
       if self.val = UInt32($4040) then Result := 'COMMAND_MIGRATE_MEM_OBJECT_EXT' else
       if self.val = UInt32($409A) then Result := 'COMMAND_ACQUIRE_VA_API_MEDIA_SURFACES_INTEL' else
       if self.val = UInt32($409B) then Result := 'COMMAND_RELEASE_VA_API_MEDIA_SURFACES_INTEL' else
+      if self.val = UInt32($40BA) then Result := 'COMMAND_SVM_FREE_ARM' else
+      if self.val = UInt32($40BB) then Result := 'COMMAND_SVM_MEMCPY_ARM' else
+      if self.val = UInt32($40BC) then Result := 'COMMAND_SVM_MEMFILL_ARM' else
+      if self.val = UInt32($40BD) then Result := 'COMMAND_SVM_MAP_ARM' else
+      if self.val = UInt32($40BE) then Result := 'COMMAND_SVM_UNMAP_ARM' else
+      if self.val = UInt32($40D2) then Result := 'COMMAND_ACQUIRE_GRALLOC_OBJECTS_IMG' else
+      if self.val = UInt32($40D3) then Result := 'COMMAND_RELEASE_GRALLOC_OBJECTS_IMG' else
+      if self.val = UInt32($40D6) then Result := 'COMMAND_GENERATE_MIPMAP_IMG' else
       if self.val = UInt32($4204) then Result := 'COMMAND_MEMFILL_INTEL' else
       if self.val = UInt32($4205) then Result := 'COMMAND_MEMCPY_INTEL' else
       if self.val = UInt32($4206) then Result := 'COMMAND_MIGRATEMEM_INTEL' else
@@ -731,30 +761,44 @@ type
     public constructor(val: IntPtr) := self.val := val;
     public constructor(val: Int32) := self.val := new IntPtr(val);
     
-    private static _CONTEXT_PLATFORM          := new ContextProperties($1084);
-    private static _CONTEXT_INTEROP_USER_SYNC := new ContextProperties($1085);
-    private static _GL_CONTEXT_KHR            := new ContextProperties($2008);
-    private static _EGL_DISPLAY_KHR           := new ContextProperties($2009);
-    private static _GLX_DISPLAY_KHR           := new ContextProperties($200A);
-    private static _WGL_HDC_KHR               := new ContextProperties($200B);
-    private static _CGL_SHAREGROUP_KHR        := new ContextProperties($200C);
-    private static _CONTEXT_TERMINATE_KHR     := new ContextProperties($2032);
-    private static _PRINTF_CALLBACK_ARM       := new ContextProperties($40B0);
-    private static _PRINTF_BUFFERSIZE_ARM     := new ContextProperties($40B1);
+    private static _CONTEXT_DIAGNOSTICS_LEVEL_GOOD_INTEL    := new ContextProperties($0001);
+    private static _CONTEXT_DIAGNOSTICS_LEVEL_BAD_INTEL     := new ContextProperties($0002);
+    private static _CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL_INTEL := new ContextProperties($0004);
+    private static _CONTEXT_DIAGNOSTICS_LEVEL_ALL_INTEL     := new ContextProperties($00FF);
+    private static _CONTEXT_PLATFORM                        := new ContextProperties($1084);
+    private static _CONTEXT_INTEROP_USER_SYNC               := new ContextProperties($1085);
+    private static _GL_CONTEXT_KHR                          := new ContextProperties($2008);
+    private static _EGL_DISPLAY_KHR                         := new ContextProperties($2009);
+    private static _GLX_DISPLAY_KHR                         := new ContextProperties($200A);
+    private static _WGL_HDC_KHR                             := new ContextProperties($200B);
+    private static _CGL_SHAREGROUP_KHR                      := new ContextProperties($200C);
+    private static _CONTEXT_TERMINATE_KHR                   := new ContextProperties($2032);
+    private static _PRINTF_CALLBACK_ARM                     := new ContextProperties($40B0);
+    private static _PRINTF_BUFFERSIZE_ARM                   := new ContextProperties($40B1);
+    private static _CONTEXT_SHOW_DIAGNOSTICS_INTEL          := new ContextProperties($4106);
     
-    public static property CONTEXT_PLATFORM:          ContextProperties read _CONTEXT_PLATFORM;
-    public static property CONTEXT_INTEROP_USER_SYNC: ContextProperties read _CONTEXT_INTEROP_USER_SYNC;
-    public static property GL_CONTEXT_KHR:            ContextProperties read _GL_CONTEXT_KHR;
-    public static property EGL_DISPLAY_KHR:           ContextProperties read _EGL_DISPLAY_KHR;
-    public static property GLX_DISPLAY_KHR:           ContextProperties read _GLX_DISPLAY_KHR;
-    public static property WGL_HDC_KHR:               ContextProperties read _WGL_HDC_KHR;
-    public static property CGL_SHAREGROUP_KHR:        ContextProperties read _CGL_SHAREGROUP_KHR;
-    public static property CONTEXT_TERMINATE_KHR:     ContextProperties read _CONTEXT_TERMINATE_KHR;
-    public static property PRINTF_CALLBACK_ARM:       ContextProperties read _PRINTF_CALLBACK_ARM;
-    public static property PRINTF_BUFFERSIZE_ARM:     ContextProperties read _PRINTF_BUFFERSIZE_ARM;
+    public static property CONTEXT_DIAGNOSTICS_LEVEL_GOOD_INTEL:    ContextProperties read _CONTEXT_DIAGNOSTICS_LEVEL_GOOD_INTEL;
+    public static property CONTEXT_DIAGNOSTICS_LEVEL_BAD_INTEL:     ContextProperties read _CONTEXT_DIAGNOSTICS_LEVEL_BAD_INTEL;
+    public static property CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL_INTEL: ContextProperties read _CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL_INTEL;
+    public static property CONTEXT_DIAGNOSTICS_LEVEL_ALL_INTEL:     ContextProperties read _CONTEXT_DIAGNOSTICS_LEVEL_ALL_INTEL;
+    public static property CONTEXT_PLATFORM:                        ContextProperties read _CONTEXT_PLATFORM;
+    public static property CONTEXT_INTEROP_USER_SYNC:               ContextProperties read _CONTEXT_INTEROP_USER_SYNC;
+    public static property GL_CONTEXT_KHR:                          ContextProperties read _GL_CONTEXT_KHR;
+    public static property EGL_DISPLAY_KHR:                         ContextProperties read _EGL_DISPLAY_KHR;
+    public static property GLX_DISPLAY_KHR:                         ContextProperties read _GLX_DISPLAY_KHR;
+    public static property WGL_HDC_KHR:                             ContextProperties read _WGL_HDC_KHR;
+    public static property CGL_SHAREGROUP_KHR:                      ContextProperties read _CGL_SHAREGROUP_KHR;
+    public static property CONTEXT_TERMINATE_KHR:                   ContextProperties read _CONTEXT_TERMINATE_KHR;
+    public static property PRINTF_CALLBACK_ARM:                     ContextProperties read _PRINTF_CALLBACK_ARM;
+    public static property PRINTF_BUFFERSIZE_ARM:                   ContextProperties read _PRINTF_BUFFERSIZE_ARM;
+    public static property CONTEXT_SHOW_DIAGNOSTICS_INTEL:          ContextProperties read _CONTEXT_SHOW_DIAGNOSTICS_INTEL;
     
     public function ToString: string; override;
     begin
+      if self.val = IntPtr($0001) then Result := 'CONTEXT_DIAGNOSTICS_LEVEL_GOOD_INTEL' else
+      if self.val = IntPtr($0002) then Result := 'CONTEXT_DIAGNOSTICS_LEVEL_BAD_INTEL' else
+      if self.val = IntPtr($0004) then Result := 'CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL_INTEL' else
+      if self.val = IntPtr($00FF) then Result := 'CONTEXT_DIAGNOSTICS_LEVEL_ALL_INTEL' else
       if self.val = IntPtr($1084) then Result := 'CONTEXT_PLATFORM' else
       if self.val = IntPtr($1085) then Result := 'CONTEXT_INTEROP_USER_SYNC' else
       if self.val = IntPtr($2008) then Result := 'GL_CONTEXT_KHR' else
@@ -765,11 +809,88 @@ type
       if self.val = IntPtr($2032) then Result := 'CONTEXT_TERMINATE_KHR' else
       if self.val = IntPtr($40B0) then Result := 'PRINTF_CALLBACK_ARM' else
       if self.val = IntPtr($40B1) then Result := 'PRINTF_BUFFERSIZE_ARM' else
+      if self.val = IntPtr($4106) then Result := 'CONTEXT_SHOW_DIAGNOSTICS_INTEL' else
         Result := $'ContextProperties[{self.val}]';
     end;
     
   end;
   
+  D3d10DeviceSetKhr = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _PREFERRED_DEVICES_FOR_D3D10_KHR := new D3d10DeviceSetKhr($4012);
+    private static _ALL_DEVICES_FOR_D3D10_KHR       := new D3d10DeviceSetKhr($4013);
+    
+    public static property PREFERRED_DEVICES_FOR_D3D10_KHR: D3d10DeviceSetKhr read _PREFERRED_DEVICES_FOR_D3D10_KHR;
+    public static property ALL_DEVICES_FOR_D3D10_KHR:       D3d10DeviceSetKhr read _ALL_DEVICES_FOR_D3D10_KHR;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($4012) then Result := 'PREFERRED_DEVICES_FOR_D3D10_KHR' else
+      if self.val = UInt32($4013) then Result := 'ALL_DEVICES_FOR_D3D10_KHR' else
+        Result := $'D3d10DeviceSetKhr[{self.val}]';
+    end;
+    
+  end;
+  
+  D3d10DeviceSourceKhr = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _D3D10_DEVICE_KHR       := new D3d10DeviceSourceKhr($4010);
+    private static _D3D10_DXGI_ADAPTER_KHR := new D3d10DeviceSourceKhr($4011);
+    
+    public static property D3D10_DEVICE_KHR:       D3d10DeviceSourceKhr read _D3D10_DEVICE_KHR;
+    public static property D3D10_DXGI_ADAPTER_KHR: D3d10DeviceSourceKhr read _D3D10_DXGI_ADAPTER_KHR;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($4010) then Result := 'D3D10_DEVICE_KHR' else
+      if self.val = UInt32($4011) then Result := 'D3D10_DXGI_ADAPTER_KHR' else
+        Result := $'D3d10DeviceSourceKhr[{self.val}]';
+    end;
+    
+  end;
+  
+  D3d11DeviceSetKhr = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _PREFERRED_DEVICES_FOR_D3D11_KHR := new D3d11DeviceSetKhr($401B);
+    private static _ALL_DEVICES_FOR_D3D11_KHR       := new D3d11DeviceSetKhr($401C);
+    
+    public static property PREFERRED_DEVICES_FOR_D3D11_KHR: D3d11DeviceSetKhr read _PREFERRED_DEVICES_FOR_D3D11_KHR;
+    public static property ALL_DEVICES_FOR_D3D11_KHR:       D3d11DeviceSetKhr read _ALL_DEVICES_FOR_D3D11_KHR;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($401B) then Result := 'PREFERRED_DEVICES_FOR_D3D11_KHR' else
+      if self.val = UInt32($401C) then Result := 'ALL_DEVICES_FOR_D3D11_KHR' else
+        Result := $'D3d11DeviceSetKhr[{self.val}]';
+    end;
+    
+  end;
+  
+  D3d11DeviceSourceKhr = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _D3D11_DEVICE_KHR       := new D3d11DeviceSourceKhr($4019);
+    private static _D3D11_DXGI_ADAPTER_KHR := new D3d11DeviceSourceKhr($401A);
+    
+    public static property D3D11_DEVICE_KHR:       D3d11DeviceSourceKhr read _D3D11_DEVICE_KHR;
+    public static property D3D11_DXGI_ADAPTER_KHR: D3d11DeviceSourceKhr read _D3D11_DXGI_ADAPTER_KHR;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($4019) then Result := 'D3D11_DEVICE_KHR' else
+      if self.val = UInt32($401A) then Result := 'D3D11_DXGI_ADAPTER_KHR' else
+        Result := $'D3d11DeviceSourceKhr[{self.val}]';
+    end;
+    
+  end;
+  
   DeviceAffinityDomain = record
     public val: UInt64;
     public constructor(val: UInt64) := self.val := val;
@@ -788,7 +909,8 @@ type
     public static property DEVICE_AFFINITY_DOMAIN_L1_CACHE:           DeviceAffinityDomain read _DEVICE_AFFINITY_DOMAIN_L1_CACHE;
     public static property DEVICE_AFFINITY_DOMAIN_NEXT_PARTITIONABLE: DeviceAffinityDomain read _DEVICE_AFFINITY_DOMAIN_NEXT_PARTITIONABLE;
     
-    public static function operator or(f1,f2: DeviceAffinityDomain) := new DeviceAffinityDomain(f1.val or f2.val);
+    public static function operator+(f1,f2: DeviceAffinityDomain) := new DeviceAffinityDomain(f1.val or f2.val);
+    public static function operator or(f1,f2: DeviceAffinityDomain) := f1+f2;
     
     public property HAS_FLAG_DEVICE_AFFINITY_DOMAIN_NUMA:               boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_DEVICE_AFFINITY_DOMAIN_L4_CACHE:           boolean read self.val and $0002 <> 0;
@@ -826,7 +948,8 @@ type
     public static property EXEC_KERNEL:        DeviceExecCapabilities read _EXEC_KERNEL;
     public static property EXEC_NATIVE_KERNEL: DeviceExecCapabilities read _EXEC_NATIVE_KERNEL;
     
-    public static function operator or(f1,f2: DeviceExecCapabilities) := new DeviceExecCapabilities(f1.val or f2.val);
+    public static function operator+(f1,f2: DeviceExecCapabilities) := new DeviceExecCapabilities(f1.val or f2.val);
+    public static function operator or(f1,f2: DeviceExecCapabilities) := f1+f2;
     
     public property HAS_FLAG_EXEC_KERNEL:        boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_EXEC_NATIVE_KERNEL: boolean read self.val and $0002 <> 0;
@@ -868,7 +991,8 @@ type
     public static property FP_SOFT_FLOAT:                    DeviceFPConfig read _FP_SOFT_FLOAT;
     public static property FP_CORRECTLY_ROUNDED_DIVIDE_SQRT: DeviceFPConfig read _FP_CORRECTLY_ROUNDED_DIVIDE_SQRT;
     
-    public static function operator or(f1,f2: DeviceFPConfig) := new DeviceFPConfig(f1.val or f2.val);
+    public static function operator+(f1,f2: DeviceFPConfig) := new DeviceFPConfig(f1.val or f2.val);
+    public static function operator or(f1,f2: DeviceFPConfig) := f1+f2;
     
     public property HAS_FLAG_FP_DENORM:                        boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_FP_INF_NAN:                       boolean read self.val and $0002 <> 0;
@@ -980,7 +1104,9 @@ type
     private static _DEVICE_PREFERRED_INTEROP_USER_SYNC                 := new DeviceInfo($1048);
     private static _DEVICE_PRINTF_BUFFER_SIZE                          := new DeviceInfo($1049);
     private static _DEVICE_IMAGE_PITCH_ALIGNMENT                       := new DeviceInfo($104A);
+    private static _DEVICE_IMAGE_PITCH_ALIGNMENT_KHR                   := new DeviceInfo($104A);
     private static _DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT                := new DeviceInfo($104B);
+    private static _DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT_KHR            := new DeviceInfo($104B);
     private static _DEVICE_MAX_READ_WRITE_IMAGE_ARGS                   := new DeviceInfo($104C);
     private static _DEVICE_MAX_GLOBAL_VARIABLE_SIZE                    := new DeviceInfo($104D);
     private static _DEVICE_QUEUE_ON_DEVICE_PROPERTIES                  := new DeviceInfo($104E);
@@ -1001,9 +1127,14 @@ type
     private static _DEVICE_MAX_NUM_SUB_GROUPS                          := new DeviceInfo($105C);
     private static _DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS      := new DeviceInfo($105D);
     private static _DEVICE_NUMERIC_VERSION                             := new DeviceInfo($105E);
+    private static _DEVICE_NUMERIC_VERSION_KHR                         := new DeviceInfo($105E);
+    private static _DEVICE_OPENCL_C_NUMERIC_VERSION_KHR                := new DeviceInfo($105F);
     private static _DEVICE_EXTENSIONS_WITH_VERSION                     := new DeviceInfo($1060);
+    private static _DEVICE_EXTENSIONS_WITH_VERSION_KHR                 := new DeviceInfo($1060);
     private static _DEVICE_ILS_WITH_VERSION                            := new DeviceInfo($1061);
+    private static _DEVICE_ILS_WITH_VERSION_KHR                        := new DeviceInfo($1061);
     private static _DEVICE_BUILT_IN_KERNELS_WITH_VERSION               := new DeviceInfo($1062);
+    private static _DEVICE_BUILT_IN_KERNELS_WITH_VERSION_KHR           := new DeviceInfo($1062);
     private static _DEVICE_ATOMIC_MEMORY_CAPABILITIES                  := new DeviceInfo($1063);
     private static _DEVICE_ATOMIC_FENCE_CAPABILITIES                   := new DeviceInfo($1064);
     private static _DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT              := new DeviceInfo($1065);
@@ -1020,7 +1151,6 @@ type
     private static _DEVICE_DEVICE_ENQUEUE_CAPABILITIES                 := new DeviceInfo($1070);
     private static _DEVICE_PIPE_SUPPORT                                := new DeviceInfo($1071);
     private static _DEVICE_LATEST_CONFORMANCE_VERSION_PASSED           := new DeviceInfo($1072);
-    private static _PROGRAM_IL_KHR                                     := new DeviceInfo($1169);
     private static _DEVICE_TERMINATE_CAPABILITY_KHR                    := new DeviceInfo($2031);
     private static _DEVICE_MAX_NAMED_BARRIER_COUNT_KHR                 := new DeviceInfo($2035);
     private static _DEVICE_COMPUTE_CAPABILITY_MAJOR_NV                 := new DeviceInfo($4000);
@@ -1057,6 +1187,9 @@ type
     private static _DEVICE_REFERENCE_COUNT_EXT                         := new DeviceInfo($4057);
     private static _DEVICE_PARTITION_STYLE_EXT                         := new DeviceInfo($4058);
     private static _DEVICE_ME_VERSION_INTEL                            := new DeviceInfo($407E);
+    private static _DEVICE_EXT_MEM_PADDING_IN_BYTES_QCOM               := new DeviceInfo($40A0);
+    private static _DEVICE_PAGE_SIZE_QCOM                              := new DeviceInfo($40A1);
+    private static _DEVICE_SVM_CAPABILITIES_ARM                        := new DeviceInfo($40B6);
     private static _DEVICE_COMPUTE_UNITS_BITFIELD_ARM                  := new DeviceInfo($40BF);
     private static _DEVICE_SPIR_VERSIONS                               := new DeviceInfo($40E0);
     private static _DEVICE_SIMULTANEOUS_INTEROPS_INTEL                 := new DeviceInfo($4104);
@@ -1072,6 +1205,8 @@ type
     private static _DEVICE_SINGLE_DEVICE_SHARED_MEM_CAPABILITIES_INTEL := new DeviceInfo($4192);
     private static _DEVICE_CROSS_DEVICE_SHARED_MEM_CAPABILITIES_INTEL  := new DeviceInfo($4193);
     private static _DEVICE_SHARED_SYSTEM_MEM_CAPABILITIES_INTEL        := new DeviceInfo($4194);
+    private static _DEVICE_SCHEDULING_CONTROLS_CAPABILITIES_ARM        := new DeviceInfo($41E4);
+    private static _DEVICE_CXX_FOR_OPENCL_NUMERIC_VERSION_EXT          := new DeviceInfo($4230);
     
     public static property DEVICE_TYPE:                                        DeviceInfo read _DEVICE_TYPE;
     public static property DEVICE_VENDOR_ID:                                   DeviceInfo read _DEVICE_VENDOR_ID;
@@ -1149,7 +1284,9 @@ type
     public static property DEVICE_PREFERRED_INTEROP_USER_SYNC:                 DeviceInfo read _DEVICE_PREFERRED_INTEROP_USER_SYNC;
     public static property DEVICE_PRINTF_BUFFER_SIZE:                          DeviceInfo read _DEVICE_PRINTF_BUFFER_SIZE;
     public static property DEVICE_IMAGE_PITCH_ALIGNMENT:                       DeviceInfo read _DEVICE_IMAGE_PITCH_ALIGNMENT;
+    public static property DEVICE_IMAGE_PITCH_ALIGNMENT_KHR:                   DeviceInfo read _DEVICE_IMAGE_PITCH_ALIGNMENT_KHR;
     public static property DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT:                DeviceInfo read _DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT;
+    public static property DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT_KHR:            DeviceInfo read _DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT_KHR;
     public static property DEVICE_MAX_READ_WRITE_IMAGE_ARGS:                   DeviceInfo read _DEVICE_MAX_READ_WRITE_IMAGE_ARGS;
     public static property DEVICE_MAX_GLOBAL_VARIABLE_SIZE:                    DeviceInfo read _DEVICE_MAX_GLOBAL_VARIABLE_SIZE;
     public static property DEVICE_QUEUE_ON_DEVICE_PROPERTIES:                  DeviceInfo read _DEVICE_QUEUE_ON_DEVICE_PROPERTIES;
@@ -1170,9 +1307,14 @@ type
     public static property DEVICE_MAX_NUM_SUB_GROUPS:                          DeviceInfo read _DEVICE_MAX_NUM_SUB_GROUPS;
     public static property DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS:      DeviceInfo read _DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS;
     public static property DEVICE_NUMERIC_VERSION:                             DeviceInfo read _DEVICE_NUMERIC_VERSION;
+    public static property DEVICE_NUMERIC_VERSION_KHR:                         DeviceInfo read _DEVICE_NUMERIC_VERSION_KHR;
+    public static property DEVICE_OPENCL_C_NUMERIC_VERSION_KHR:                DeviceInfo read _DEVICE_OPENCL_C_NUMERIC_VERSION_KHR;
     public static property DEVICE_EXTENSIONS_WITH_VERSION:                     DeviceInfo read _DEVICE_EXTENSIONS_WITH_VERSION;
+    public static property DEVICE_EXTENSIONS_WITH_VERSION_KHR:                 DeviceInfo read _DEVICE_EXTENSIONS_WITH_VERSION_KHR;
     public static property DEVICE_ILS_WITH_VERSION:                            DeviceInfo read _DEVICE_ILS_WITH_VERSION;
+    public static property DEVICE_ILS_WITH_VERSION_KHR:                        DeviceInfo read _DEVICE_ILS_WITH_VERSION_KHR;
     public static property DEVICE_BUILT_IN_KERNELS_WITH_VERSION:               DeviceInfo read _DEVICE_BUILT_IN_KERNELS_WITH_VERSION;
+    public static property DEVICE_BUILT_IN_KERNELS_WITH_VERSION_KHR:           DeviceInfo read _DEVICE_BUILT_IN_KERNELS_WITH_VERSION_KHR;
     public static property DEVICE_ATOMIC_MEMORY_CAPABILITIES:                  DeviceInfo read _DEVICE_ATOMIC_MEMORY_CAPABILITIES;
     public static property DEVICE_ATOMIC_FENCE_CAPABILITIES:                   DeviceInfo read _DEVICE_ATOMIC_FENCE_CAPABILITIES;
     public static property DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT:              DeviceInfo read _DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT;
@@ -1189,7 +1331,6 @@ type
     public static property DEVICE_DEVICE_ENQUEUE_CAPABILITIES:                 DeviceInfo read _DEVICE_DEVICE_ENQUEUE_CAPABILITIES;
     public static property DEVICE_PIPE_SUPPORT:                                DeviceInfo read _DEVICE_PIPE_SUPPORT;
     public static property DEVICE_LATEST_CONFORMANCE_VERSION_PASSED:           DeviceInfo read _DEVICE_LATEST_CONFORMANCE_VERSION_PASSED;
-    public static property PROGRAM_IL_KHR:                                     DeviceInfo read _PROGRAM_IL_KHR;
     public static property DEVICE_TERMINATE_CAPABILITY_KHR:                    DeviceInfo read _DEVICE_TERMINATE_CAPABILITY_KHR;
     public static property DEVICE_MAX_NAMED_BARRIER_COUNT_KHR:                 DeviceInfo read _DEVICE_MAX_NAMED_BARRIER_COUNT_KHR;
     public static property DEVICE_COMPUTE_CAPABILITY_MAJOR_NV:                 DeviceInfo read _DEVICE_COMPUTE_CAPABILITY_MAJOR_NV;
@@ -1226,6 +1367,9 @@ type
     public static property DEVICE_REFERENCE_COUNT_EXT:                         DeviceInfo read _DEVICE_REFERENCE_COUNT_EXT;
     public static property DEVICE_PARTITION_STYLE_EXT:                         DeviceInfo read _DEVICE_PARTITION_STYLE_EXT;
     public static property DEVICE_ME_VERSION_INTEL:                            DeviceInfo read _DEVICE_ME_VERSION_INTEL;
+    public static property DEVICE_EXT_MEM_PADDING_IN_BYTES_QCOM:               DeviceInfo read _DEVICE_EXT_MEM_PADDING_IN_BYTES_QCOM;
+    public static property DEVICE_PAGE_SIZE_QCOM:                              DeviceInfo read _DEVICE_PAGE_SIZE_QCOM;
+    public static property DEVICE_SVM_CAPABILITIES_ARM:                        DeviceInfo read _DEVICE_SVM_CAPABILITIES_ARM;
     public static property DEVICE_COMPUTE_UNITS_BITFIELD_ARM:                  DeviceInfo read _DEVICE_COMPUTE_UNITS_BITFIELD_ARM;
     public static property DEVICE_SPIR_VERSIONS:                               DeviceInfo read _DEVICE_SPIR_VERSIONS;
     public static property DEVICE_SIMULTANEOUS_INTEROPS_INTEL:                 DeviceInfo read _DEVICE_SIMULTANEOUS_INTEROPS_INTEL;
@@ -1241,6 +1385,8 @@ type
     public static property DEVICE_SINGLE_DEVICE_SHARED_MEM_CAPABILITIES_INTEL: DeviceInfo read _DEVICE_SINGLE_DEVICE_SHARED_MEM_CAPABILITIES_INTEL;
     public static property DEVICE_CROSS_DEVICE_SHARED_MEM_CAPABILITIES_INTEL:  DeviceInfo read _DEVICE_CROSS_DEVICE_SHARED_MEM_CAPABILITIES_INTEL;
     public static property DEVICE_SHARED_SYSTEM_MEM_CAPABILITIES_INTEL:        DeviceInfo read _DEVICE_SHARED_SYSTEM_MEM_CAPABILITIES_INTEL;
+    public static property DEVICE_SCHEDULING_CONTROLS_CAPABILITIES_ARM:        DeviceInfo read _DEVICE_SCHEDULING_CONTROLS_CAPABILITIES_ARM;
+    public static property DEVICE_CXX_FOR_OPENCL_NUMERIC_VERSION_EXT:          DeviceInfo read _DEVICE_CXX_FOR_OPENCL_NUMERIC_VERSION_EXT;
     
     public function ToString: string; override;
     begin
@@ -1320,7 +1466,9 @@ type
       if self.val = UInt32($1048) then Result := 'DEVICE_PREFERRED_INTEROP_USER_SYNC' else
       if self.val = UInt32($1049) then Result := 'DEVICE_PRINTF_BUFFER_SIZE' else
       if self.val = UInt32($104A) then Result := 'DEVICE_IMAGE_PITCH_ALIGNMENT' else
+      if self.val = UInt32($104A) then Result := 'DEVICE_IMAGE_PITCH_ALIGNMENT_KHR' else
       if self.val = UInt32($104B) then Result := 'DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT' else
+      if self.val = UInt32($104B) then Result := 'DEVICE_IMAGE_BASE_ADDRESS_ALIGNMENT_KHR' else
       if self.val = UInt32($104C) then Result := 'DEVICE_MAX_READ_WRITE_IMAGE_ARGS' else
       if self.val = UInt32($104D) then Result := 'DEVICE_MAX_GLOBAL_VARIABLE_SIZE' else
       if self.val = UInt32($104E) then Result := 'DEVICE_QUEUE_ON_DEVICE_PROPERTIES' else
@@ -1341,9 +1489,14 @@ type
       if self.val = UInt32($105C) then Result := 'DEVICE_MAX_NUM_SUB_GROUPS' else
       if self.val = UInt32($105D) then Result := 'DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS' else
       if self.val = UInt32($105E) then Result := 'DEVICE_NUMERIC_VERSION' else
+      if self.val = UInt32($105E) then Result := 'DEVICE_NUMERIC_VERSION_KHR' else
+      if self.val = UInt32($105F) then Result := 'DEVICE_OPENCL_C_NUMERIC_VERSION_KHR' else
       if self.val = UInt32($1060) then Result := 'DEVICE_EXTENSIONS_WITH_VERSION' else
+      if self.val = UInt32($1060) then Result := 'DEVICE_EXTENSIONS_WITH_VERSION_KHR' else
       if self.val = UInt32($1061) then Result := 'DEVICE_ILS_WITH_VERSION' else
+      if self.val = UInt32($1061) then Result := 'DEVICE_ILS_WITH_VERSION_KHR' else
       if self.val = UInt32($1062) then Result := 'DEVICE_BUILT_IN_KERNELS_WITH_VERSION' else
+      if self.val = UInt32($1062) then Result := 'DEVICE_BUILT_IN_KERNELS_WITH_VERSION_KHR' else
       if self.val = UInt32($1063) then Result := 'DEVICE_ATOMIC_MEMORY_CAPABILITIES' else
       if self.val = UInt32($1064) then Result := 'DEVICE_ATOMIC_FENCE_CAPABILITIES' else
       if self.val = UInt32($1065) then Result := 'DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT' else
@@ -1360,7 +1513,6 @@ type
       if self.val = UInt32($1070) then Result := 'DEVICE_DEVICE_ENQUEUE_CAPABILITIES' else
       if self.val = UInt32($1071) then Result := 'DEVICE_PIPE_SUPPORT' else
       if self.val = UInt32($1072) then Result := 'DEVICE_LATEST_CONFORMANCE_VERSION_PASSED' else
-      if self.val = UInt32($1169) then Result := 'PROGRAM_IL_KHR' else
       if self.val = UInt32($2031) then Result := 'DEVICE_TERMINATE_CAPABILITY_KHR' else
       if self.val = UInt32($2035) then Result := 'DEVICE_MAX_NAMED_BARRIER_COUNT_KHR' else
       if self.val = UInt32($4000) then Result := 'DEVICE_COMPUTE_CAPABILITY_MAJOR_NV' else
@@ -1397,6 +1549,9 @@ type
       if self.val = UInt32($4057) then Result := 'DEVICE_REFERENCE_COUNT_EXT' else
       if self.val = UInt32($4058) then Result := 'DEVICE_PARTITION_STYLE_EXT' else
       if self.val = UInt32($407E) then Result := 'DEVICE_ME_VERSION_INTEL' else
+      if self.val = UInt32($40A0) then Result := 'DEVICE_EXT_MEM_PADDING_IN_BYTES_QCOM' else
+      if self.val = UInt32($40A1) then Result := 'DEVICE_PAGE_SIZE_QCOM' else
+      if self.val = UInt32($40B6) then Result := 'DEVICE_SVM_CAPABILITIES_ARM' else
       if self.val = UInt32($40BF) then Result := 'DEVICE_COMPUTE_UNITS_BITFIELD_ARM' else
       if self.val = UInt32($40E0) then Result := 'DEVICE_SPIR_VERSIONS' else
       if self.val = UInt32($4104) then Result := 'DEVICE_SIMULTANEOUS_INTEROPS_INTEL' else
@@ -1412,6 +1567,8 @@ type
       if self.val = UInt32($4192) then Result := 'DEVICE_SINGLE_DEVICE_SHARED_MEM_CAPABILITIES_INTEL' else
       if self.val = UInt32($4193) then Result := 'DEVICE_CROSS_DEVICE_SHARED_MEM_CAPABILITIES_INTEL' else
       if self.val = UInt32($4194) then Result := 'DEVICE_SHARED_SYSTEM_MEM_CAPABILITIES_INTEL' else
+      if self.val = UInt32($41E4) then Result := 'DEVICE_SCHEDULING_CONTROLS_CAPABILITIES_ARM' else
+      if self.val = UInt32($4230) then Result := 'DEVICE_CXX_FOR_OPENCL_NUMERIC_VERSION_EXT' else
         Result := $'DeviceInfo[{self.val}]';
     end;
     
@@ -1490,7 +1647,13 @@ type
     
     private static _PARTITION_BY_COUNTS_LIST_END_EXT        := new DevicePartitionPropertyExt($0000);
     private static _PROPERTIES_LIST_END_EXT                 := new DevicePartitionPropertyExt($0000);
+    private static _AFFINITY_DOMAIN_L1_CACHE_EXT            := new DevicePartitionPropertyExt($0001);
     private static _PARTITION_BY_NAMES_LIST_END_EXT         := new DevicePartitionPropertyExt(-1);
+    private static _AFFINITY_DOMAIN_L2_CACHE_EXT            := new DevicePartitionPropertyExt($0002);
+    private static _AFFINITY_DOMAIN_L3_CACHE_EXT            := new DevicePartitionPropertyExt($0003);
+    private static _AFFINITY_DOMAIN_L4_CACHE_EXT            := new DevicePartitionPropertyExt($0004);
+    private static _AFFINITY_DOMAIN_NUMA_EXT                := new DevicePartitionPropertyExt($0010);
+    private static _AFFINITY_DOMAIN_NEXT_FISSIONABLE_EXT    := new DevicePartitionPropertyExt($0100);
     private static _DEVICE_PARTITION_EQUALLY_EXT            := new DevicePartitionPropertyExt($4050);
     private static _DEVICE_PARTITION_BY_COUNTS_EXT          := new DevicePartitionPropertyExt($4051);
     private static _DEVICE_PARTITION_BY_NAMES_EXT           := new DevicePartitionPropertyExt($4052);
@@ -1498,7 +1661,13 @@ type
     
     public static property PARTITION_BY_COUNTS_LIST_END_EXT:        DevicePartitionPropertyExt read _PARTITION_BY_COUNTS_LIST_END_EXT;
     public static property PROPERTIES_LIST_END_EXT:                 DevicePartitionPropertyExt read _PROPERTIES_LIST_END_EXT;
+    public static property AFFINITY_DOMAIN_L1_CACHE_EXT:            DevicePartitionPropertyExt read _AFFINITY_DOMAIN_L1_CACHE_EXT;
     public static property PARTITION_BY_NAMES_LIST_END_EXT:         DevicePartitionPropertyExt read _PARTITION_BY_NAMES_LIST_END_EXT;
+    public static property AFFINITY_DOMAIN_L2_CACHE_EXT:            DevicePartitionPropertyExt read _AFFINITY_DOMAIN_L2_CACHE_EXT;
+    public static property AFFINITY_DOMAIN_L3_CACHE_EXT:            DevicePartitionPropertyExt read _AFFINITY_DOMAIN_L3_CACHE_EXT;
+    public static property AFFINITY_DOMAIN_L4_CACHE_EXT:            DevicePartitionPropertyExt read _AFFINITY_DOMAIN_L4_CACHE_EXT;
+    public static property AFFINITY_DOMAIN_NUMA_EXT:                DevicePartitionPropertyExt read _AFFINITY_DOMAIN_NUMA_EXT;
+    public static property AFFINITY_DOMAIN_NEXT_FISSIONABLE_EXT:    DevicePartitionPropertyExt read _AFFINITY_DOMAIN_NEXT_FISSIONABLE_EXT;
     public static property DEVICE_PARTITION_EQUALLY_EXT:            DevicePartitionPropertyExt read _DEVICE_PARTITION_EQUALLY_EXT;
     public static property DEVICE_PARTITION_BY_COUNTS_EXT:          DevicePartitionPropertyExt read _DEVICE_PARTITION_BY_COUNTS_EXT;
     public static property DEVICE_PARTITION_BY_NAMES_EXT:           DevicePartitionPropertyExt read _DEVICE_PARTITION_BY_NAMES_EXT;
@@ -1508,7 +1677,13 @@ type
     begin
       if self.val = UInt64($0000) then Result := 'PARTITION_BY_COUNTS_LIST_END_EXT' else
       if self.val = UInt64($0000) then Result := 'PROPERTIES_LIST_END_EXT' else
+      if self.val = UInt64($0001) then Result := 'AFFINITY_DOMAIN_L1_CACHE_EXT' else
       if self.val = UInt64(-1) then Result := 'PARTITION_BY_NAMES_LIST_END_EXT' else
+      if self.val = UInt64($0002) then Result := 'AFFINITY_DOMAIN_L2_CACHE_EXT' else
+      if self.val = UInt64($0003) then Result := 'AFFINITY_DOMAIN_L3_CACHE_EXT' else
+      if self.val = UInt64($0004) then Result := 'AFFINITY_DOMAIN_L4_CACHE_EXT' else
+      if self.val = UInt64($0010) then Result := 'AFFINITY_DOMAIN_NUMA_EXT' else
+      if self.val = UInt64($0100) then Result := 'AFFINITY_DOMAIN_NEXT_FISSIONABLE_EXT' else
       if self.val = UInt64($4050) then Result := 'DEVICE_PARTITION_EQUALLY_EXT' else
       if self.val = UInt64($4051) then Result := 'DEVICE_PARTITION_BY_COUNTS_EXT' else
       if self.val = UInt64($4052) then Result := 'DEVICE_PARTITION_BY_NAMES_EXT' else
@@ -1532,7 +1707,8 @@ type
     public static property DEVICE_SVM_FINE_GRAIN_SYSTEM:   DeviceSVMCapabilities read _DEVICE_SVM_FINE_GRAIN_SYSTEM;
     public static property DEVICE_SVM_ATOMICS:             DeviceSVMCapabilities read _DEVICE_SVM_ATOMICS;
     
-    public static function operator or(f1,f2: DeviceSVMCapabilities) := new DeviceSVMCapabilities(f1.val or f2.val);
+    public static function operator+(f1,f2: DeviceSVMCapabilities) := new DeviceSVMCapabilities(f1.val or f2.val);
+    public static function operator or(f1,f2: DeviceSVMCapabilities) := f1+f2;
     
     public property HAS_FLAG_DEVICE_SVM_COARSE_GRAIN_BUFFER: boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_DEVICE_SVM_FINE_GRAIN_BUFFER:   boolean read self.val and $0002 <> 0;
@@ -1574,7 +1750,8 @@ type
     public static property DEVICE_TYPE_CUSTOM:      DeviceType read _DEVICE_TYPE_CUSTOM;
     public static property DEVICE_TYPE_ALL:         DeviceType read _DEVICE_TYPE_ALL;
     
-    public static function operator or(f1,f2: DeviceType) := new DeviceType(f1.val or f2.val);
+    public static function operator+(f1,f2: DeviceType) := new DeviceType(f1.val or f2.val);
+    public static function operator or(f1,f2: DeviceType) := f1+f2;
     
     public property HAS_FLAG_DEVICE_TYPE_DEFAULT:     boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_DEVICE_TYPE_CPU:         boolean read self.val and $0002 <> 0;
@@ -1761,6 +1938,7 @@ type
     private static _PIPE_FULL_INTEL                             := new ErrorCode(-1106);
     private static _PIPE_EMPTY_INTEL                            := new ErrorCode(-1107);
     private static _CONTEXT_TERMINATED_KHR                      := new ErrorCode(-1121);
+    private static _NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE         := new ErrorCode(-9999);
     
     public static property SUCCESS:                                     ErrorCode read _SUCCESS;
     public static property DEVICE_NOT_FOUND:                            ErrorCode read _DEVICE_NOT_FOUND;
@@ -1859,6 +2037,7 @@ type
     public static property PIPE_FULL_INTEL:                             ErrorCode read _PIPE_FULL_INTEL;
     public static property PIPE_EMPTY_INTEL:                            ErrorCode read _PIPE_EMPTY_INTEL;
     public static property CONTEXT_TERMINATED_KHR:                      ErrorCode read _CONTEXT_TERMINATED_KHR;
+    public static property NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE:         ErrorCode read _NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE;
     
     public function ToString: string; override;
     begin
@@ -1959,6 +2138,7 @@ type
       if self.val = Int32(-1106) then Result := 'PIPE_FULL_INTEL' else
       if self.val = Int32(-1107) then Result := 'PIPE_EMPTY_INTEL' else
       if self.val = Int32(-1121) then Result := 'CONTEXT_TERMINATED_KHR' else
+      if self.val = Int32(-9999) then Result := 'NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE' else
         Result := $'ErrorCode[{self.val}]';
     end;
     
@@ -2157,6 +2337,60 @@ type
     
   end;
   
+  ImagePitchInfoQcom = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _IMAGE_ROW_ALIGNMENT_QCOM   := new ImagePitchInfoQcom($40A2);
+    private static _IMAGE_SLICE_ALIGNMENT_QCOM := new ImagePitchInfoQcom($40A3);
+    
+    public static property IMAGE_ROW_ALIGNMENT_QCOM:   ImagePitchInfoQcom read _IMAGE_ROW_ALIGNMENT_QCOM;
+    public static property IMAGE_SLICE_ALIGNMENT_QCOM: ImagePitchInfoQcom read _IMAGE_SLICE_ALIGNMENT_QCOM;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($40A2) then Result := 'IMAGE_ROW_ALIGNMENT_QCOM' else
+      if self.val = UInt32($40A3) then Result := 'IMAGE_SLICE_ALIGNMENT_QCOM' else
+        Result := $'ImagePitchInfoQcom[{self.val}]';
+    end;
+    
+  end;
+  
+  ImportPropertiesArm = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public constructor(val: Int32) := self.val := new IntPtr(val);
+    
+    private static _IMPORT_MEMORY_WHOLE_ALLOCATION_ARM            := new ImportPropertiesArm(-1);
+    private static _IMPORT_TYPE_ARM                               := new ImportPropertiesArm($40B2);
+    private static _IMPORT_TYPE_HOST_ARM                          := new ImportPropertiesArm($40B3);
+    private static _IMPORT_TYPE_DMA_BUF_ARM                       := new ImportPropertiesArm($40B4);
+    private static _IMPORT_TYPE_PROTECTED_ARM                     := new ImportPropertiesArm($40B5);
+    private static _IMPORT_TYPE_ANDROID_HARDWARE_BUFFER_ARM       := new ImportPropertiesArm($41E2);
+    private static _IMPORT_DMA_BUF_DATA_CONSISTENCY_WITH_HOST_ARM := new ImportPropertiesArm($41E3);
+    
+    public static property IMPORT_MEMORY_WHOLE_ALLOCATION_ARM:            ImportPropertiesArm read _IMPORT_MEMORY_WHOLE_ALLOCATION_ARM;
+    public static property IMPORT_TYPE_ARM:                               ImportPropertiesArm read _IMPORT_TYPE_ARM;
+    public static property IMPORT_TYPE_HOST_ARM:                          ImportPropertiesArm read _IMPORT_TYPE_HOST_ARM;
+    public static property IMPORT_TYPE_DMA_BUF_ARM:                       ImportPropertiesArm read _IMPORT_TYPE_DMA_BUF_ARM;
+    public static property IMPORT_TYPE_PROTECTED_ARM:                     ImportPropertiesArm read _IMPORT_TYPE_PROTECTED_ARM;
+    public static property IMPORT_TYPE_ANDROID_HARDWARE_BUFFER_ARM:       ImportPropertiesArm read _IMPORT_TYPE_ANDROID_HARDWARE_BUFFER_ARM;
+    public static property IMPORT_DMA_BUF_DATA_CONSISTENCY_WITH_HOST_ARM: ImportPropertiesArm read _IMPORT_DMA_BUF_DATA_CONSISTENCY_WITH_HOST_ARM;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = IntPtr(-1) then Result := 'IMPORT_MEMORY_WHOLE_ALLOCATION_ARM' else
+      if self.val = IntPtr($40B2) then Result := 'IMPORT_TYPE_ARM' else
+      if self.val = IntPtr($40B3) then Result := 'IMPORT_TYPE_HOST_ARM' else
+      if self.val = IntPtr($40B4) then Result := 'IMPORT_TYPE_DMA_BUF_ARM' else
+      if self.val = IntPtr($40B5) then Result := 'IMPORT_TYPE_PROTECTED_ARM' else
+      if self.val = IntPtr($41E2) then Result := 'IMPORT_TYPE_ANDROID_HARDWARE_BUFFER_ARM' else
+      if self.val = IntPtr($41E3) then Result := 'IMPORT_DMA_BUF_DATA_CONSISTENCY_WITH_HOST_ARM' else
+        Result := $'ImportPropertiesArm[{self.val}]';
+    end;
+    
+  end;
+  
   KernelArgAccessQualifier = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -2267,24 +2501,30 @@ type
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
     
-    private static _KERNEL_EXEC_INFO_SVM_PTRS                     := new KernelExecInfo($11B6);
-    private static _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM        := new KernelExecInfo($11B7);
-    private static _KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL   := new KernelExecInfo($4200);
-    private static _KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL := new KernelExecInfo($4201);
-    private static _KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL := new KernelExecInfo($4202);
-    private static _KERNEL_EXEC_INFO_USM_PTRS_INTEL               := new KernelExecInfo($4203);
+    private static _KERNEL_EXEC_INFO_SVM_PTRS                          := new KernelExecInfo($11B6);
+    private static _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM             := new KernelExecInfo($11B7);
+    private static _KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_ARM          := new KernelExecInfo($41E5);
+    private static _KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_MODIFIER_ARM := new KernelExecInfo($41E6);
+    private static _KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL        := new KernelExecInfo($4200);
+    private static _KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL      := new KernelExecInfo($4201);
+    private static _KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL      := new KernelExecInfo($4202);
+    private static _KERNEL_EXEC_INFO_USM_PTRS_INTEL                    := new KernelExecInfo($4203);
     
-    public static property KERNEL_EXEC_INFO_SVM_PTRS:                     KernelExecInfo read _KERNEL_EXEC_INFO_SVM_PTRS;
-    public static property KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM:        KernelExecInfo read _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM;
-    public static property KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL:   KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL;
-    public static property KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL: KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL;
-    public static property KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL: KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL;
-    public static property KERNEL_EXEC_INFO_USM_PTRS_INTEL:               KernelExecInfo read _KERNEL_EXEC_INFO_USM_PTRS_INTEL;
+    public static property KERNEL_EXEC_INFO_SVM_PTRS:                          KernelExecInfo read _KERNEL_EXEC_INFO_SVM_PTRS;
+    public static property KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM:             KernelExecInfo read _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM;
+    public static property KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_ARM:          KernelExecInfo read _KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_ARM;
+    public static property KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_MODIFIER_ARM: KernelExecInfo read _KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_MODIFIER_ARM;
+    public static property KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL:        KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL;
+    public static property KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL:      KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL;
+    public static property KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL:      KernelExecInfo read _KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL;
+    public static property KERNEL_EXEC_INFO_USM_PTRS_INTEL:                    KernelExecInfo read _KERNEL_EXEC_INFO_USM_PTRS_INTEL;
     
     public function ToString: string; override;
     begin
       if self.val = UInt32($11B6) then Result := 'KERNEL_EXEC_INFO_SVM_PTRS' else
       if self.val = UInt32($11B7) then Result := 'KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM' else
+      if self.val = UInt32($41E5) then Result := 'KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_ARM' else
+      if self.val = UInt32($41E6) then Result := 'KERNEL_EXEC_INFO_WORKGROUP_BATCH_SIZE_MODIFIER_ARM' else
       if self.val = UInt32($4200) then Result := 'KERNEL_EXEC_INFO_INDIRECT_HOST_ACCESS_INTEL' else
       if self.val = UInt32($4201) then Result := 'KERNEL_EXEC_INFO_INDIRECT_DEVICE_ACCESS_INTEL' else
       if self.val = UInt32($4202) then Result := 'KERNEL_EXEC_INFO_INDIRECT_SHARED_ACCESS_INTEL' else
@@ -2294,6 +2534,25 @@ type
     
   end;
   
+  KernelExecInfoArm = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _KERNEL_EXEC_INFO_SVM_PTRS_ARM              := new KernelExecInfoArm($40B8);
+    private static _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM_ARM := new KernelExecInfoArm($40B9);
+    
+    public static property KERNEL_EXEC_INFO_SVM_PTRS_ARM:              KernelExecInfoArm read _KERNEL_EXEC_INFO_SVM_PTRS_ARM;
+    public static property KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM_ARM: KernelExecInfoArm read _KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM_ARM;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($40B8) then Result := 'KERNEL_EXEC_INFO_SVM_PTRS_ARM' else
+      if self.val = UInt32($40B9) then Result := 'KERNEL_EXEC_INFO_SVM_FINE_GRAIN_SYSTEM_ARM' else
+        Result := $'KernelExecInfoArm[{self.val}]';
+    end;
+    
+  end;
+  
   KernelInfo = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -2408,7 +2667,8 @@ type
     public static property MAP_WRITE:                   MapFlags read _MAP_WRITE;
     public static property MAP_WRITE_INVALIDATE_REGION: MapFlags read _MAP_WRITE_INVALIDATE_REGION;
     
-    public static function operator or(f1,f2: MapFlags) := new MapFlags(f1.val or f2.val);
+    public static function operator+(f1,f2: MapFlags) := new MapFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: MapFlags) := f1+f2;
     
     public property HAS_FLAG_MAP_READ:                    boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_MAP_WRITE:                   boolean read self.val and $0002 <> 0;
@@ -2435,97 +2695,102 @@ type
     public constructor(val: UInt64) := self.val := val;
     
     private static _MEM_READ_WRITE                      := new MemFlags($0001);
-    private static _MEM_RESERVED0_ARM                   := new MemFlags($0001);
-    private static _MEM_RESERVED1_ARM                   := new MemFlags($0002);
     private static _MEM_WRITE_ONLY                      := new MemFlags($0002);
     private static _MEM_READ_ONLY                       := new MemFlags($0004);
-    private static _MEM_RESERVED2_ARM                   := new MemFlags($0004);
-    private static _MEM_RESERVED3_ARM                   := new MemFlags($0008);
     private static _MEM_USE_HOST_PTR                    := new MemFlags($0008);
     private static _MEM_ALLOC_HOST_PTR                  := new MemFlags($0010);
-    private static _MEM_RESERVED4_ARM                   := new MemFlags($0010);
     private static _MEM_COPY_HOST_PTR                   := new MemFlags($0020);
     private static _MEM_HOST_WRITE_ONLY                 := new MemFlags($0080);
     private static _MEM_HOST_READ_ONLY                  := new MemFlags($0100);
     private static _MEM_HOST_NO_ACCESS                  := new MemFlags($0200);
     private static _MEM_KERNEL_READ_AND_WRITE           := new MemFlags($1000);
+    private static _MEM_FORCE_HOST_MEMORY_INTEL         := new MemFlags($100000);
     private static _MEM_NO_ACCESS_INTEL                 := new MemFlags($1000000);
     private static _MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL := new MemFlags($2000000);
     private static _MEM_USE_UNCACHED_CPU_MEMORY_IMG     := new MemFlags($4000000);
     private static _MEM_USE_CACHED_CPU_MEMORY_IMG       := new MemFlags($8000000);
     private static _MEM_USE_GRALLOC_PTR_IMG             := new MemFlags($10000000);
     private static _MEM_EXT_HOST_PTR_QCOM               := new MemFlags($20000000);
+    private static _MEM_RESERVED0_ARM                   := new MemFlags($100000000);
+    private static _MEM_RESERVED1_ARM                   := new MemFlags($200000000);
+    private static _MEM_RESERVED2_ARM                   := new MemFlags($400000000);
+    private static _MEM_RESERVED3_ARM                   := new MemFlags($800000000);
+    private static _MEM_RESERVED4_ARM                   := new MemFlags($1000000000);
     
     public static property MEM_READ_WRITE:                      MemFlags read _MEM_READ_WRITE;
-    public static property MEM_RESERVED0_ARM:                   MemFlags read _MEM_RESERVED0_ARM;
-    public static property MEM_RESERVED1_ARM:                   MemFlags read _MEM_RESERVED1_ARM;
     public static property MEM_WRITE_ONLY:                      MemFlags read _MEM_WRITE_ONLY;
     public static property MEM_READ_ONLY:                       MemFlags read _MEM_READ_ONLY;
-    public static property MEM_RESERVED2_ARM:                   MemFlags read _MEM_RESERVED2_ARM;
-    public static property MEM_RESERVED3_ARM:                   MemFlags read _MEM_RESERVED3_ARM;
     public static property MEM_USE_HOST_PTR:                    MemFlags read _MEM_USE_HOST_PTR;
     public static property MEM_ALLOC_HOST_PTR:                  MemFlags read _MEM_ALLOC_HOST_PTR;
-    public static property MEM_RESERVED4_ARM:                   MemFlags read _MEM_RESERVED4_ARM;
     public static property MEM_COPY_HOST_PTR:                   MemFlags read _MEM_COPY_HOST_PTR;
     public static property MEM_HOST_WRITE_ONLY:                 MemFlags read _MEM_HOST_WRITE_ONLY;
     public static property MEM_HOST_READ_ONLY:                  MemFlags read _MEM_HOST_READ_ONLY;
     public static property MEM_HOST_NO_ACCESS:                  MemFlags read _MEM_HOST_NO_ACCESS;
     public static property MEM_KERNEL_READ_AND_WRITE:           MemFlags read _MEM_KERNEL_READ_AND_WRITE;
+    public static property MEM_FORCE_HOST_MEMORY_INTEL:         MemFlags read _MEM_FORCE_HOST_MEMORY_INTEL;
     public static property MEM_NO_ACCESS_INTEL:                 MemFlags read _MEM_NO_ACCESS_INTEL;
     public static property MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL: MemFlags read _MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL;
     public static property MEM_USE_UNCACHED_CPU_MEMORY_IMG:     MemFlags read _MEM_USE_UNCACHED_CPU_MEMORY_IMG;
     public static property MEM_USE_CACHED_CPU_MEMORY_IMG:       MemFlags read _MEM_USE_CACHED_CPU_MEMORY_IMG;
     public static property MEM_USE_GRALLOC_PTR_IMG:             MemFlags read _MEM_USE_GRALLOC_PTR_IMG;
     public static property MEM_EXT_HOST_PTR_QCOM:               MemFlags read _MEM_EXT_HOST_PTR_QCOM;
+    public static property MEM_RESERVED0_ARM:                   MemFlags read _MEM_RESERVED0_ARM;
+    public static property MEM_RESERVED1_ARM:                   MemFlags read _MEM_RESERVED1_ARM;
+    public static property MEM_RESERVED2_ARM:                   MemFlags read _MEM_RESERVED2_ARM;
+    public static property MEM_RESERVED3_ARM:                   MemFlags read _MEM_RESERVED3_ARM;
+    public static property MEM_RESERVED4_ARM:                   MemFlags read _MEM_RESERVED4_ARM;
     
-    public static function operator or(f1,f2: MemFlags) := new MemFlags(f1.val or f2.val);
+    public static function operator+(f1,f2: MemFlags) := new MemFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: MemFlags) := f1+f2;
     
     public property HAS_FLAG_MEM_READ_WRITE:                      boolean read self.val and $0001 <> 0;
-    public property HAS_FLAG_MEM_RESERVED0_ARM:                   boolean read self.val and $0001 <> 0;
-    public property HAS_FLAG_MEM_RESERVED1_ARM:                   boolean read self.val and $0002 <> 0;
     public property HAS_FLAG_MEM_WRITE_ONLY:                      boolean read self.val and $0002 <> 0;
     public property HAS_FLAG_MEM_READ_ONLY:                       boolean read self.val and $0004 <> 0;
-    public property HAS_FLAG_MEM_RESERVED2_ARM:                   boolean read self.val and $0004 <> 0;
-    public property HAS_FLAG_MEM_RESERVED3_ARM:                   boolean read self.val and $0008 <> 0;
     public property HAS_FLAG_MEM_USE_HOST_PTR:                    boolean read self.val and $0008 <> 0;
     public property HAS_FLAG_MEM_ALLOC_HOST_PTR:                  boolean read self.val and $0010 <> 0;
-    public property HAS_FLAG_MEM_RESERVED4_ARM:                   boolean read self.val and $0010 <> 0;
     public property HAS_FLAG_MEM_COPY_HOST_PTR:                   boolean read self.val and $0020 <> 0;
     public property HAS_FLAG_MEM_HOST_WRITE_ONLY:                 boolean read self.val and $0080 <> 0;
     public property HAS_FLAG_MEM_HOST_READ_ONLY:                  boolean read self.val and $0100 <> 0;
     public property HAS_FLAG_MEM_HOST_NO_ACCESS:                  boolean read self.val and $0200 <> 0;
     public property HAS_FLAG_MEM_KERNEL_READ_AND_WRITE:           boolean read self.val and $1000 <> 0;
+    public property HAS_FLAG_MEM_FORCE_HOST_MEMORY_INTEL:         boolean read self.val and $100000 <> 0;
     public property HAS_FLAG_MEM_NO_ACCESS_INTEL:                 boolean read self.val and $1000000 <> 0;
     public property HAS_FLAG_MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL: boolean read self.val and $2000000 <> 0;
     public property HAS_FLAG_MEM_USE_UNCACHED_CPU_MEMORY_IMG:     boolean read self.val and $4000000 <> 0;
     public property HAS_FLAG_MEM_USE_CACHED_CPU_MEMORY_IMG:       boolean read self.val and $8000000 <> 0;
     public property HAS_FLAG_MEM_USE_GRALLOC_PTR_IMG:             boolean read self.val and $10000000 <> 0;
     public property HAS_FLAG_MEM_EXT_HOST_PTR_QCOM:               boolean read self.val and $20000000 <> 0;
+    public property HAS_FLAG_MEM_RESERVED0_ARM:                   boolean read self.val and $100000000 <> 0;
+    public property HAS_FLAG_MEM_RESERVED1_ARM:                   boolean read self.val and $200000000 <> 0;
+    public property HAS_FLAG_MEM_RESERVED2_ARM:                   boolean read self.val and $400000000 <> 0;
+    public property HAS_FLAG_MEM_RESERVED3_ARM:                   boolean read self.val and $800000000 <> 0;
+    public property HAS_FLAG_MEM_RESERVED4_ARM:                   boolean read self.val and $1000000000 <> 0;
     
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
       if self.val and UInt64($0001) = UInt64($0001) then res += 'MEM_READ_WRITE+';
-      if self.val and UInt64($0001) = UInt64($0001) then res += 'MEM_RESERVED0_ARM+';
-      if self.val and UInt64($0002) = UInt64($0002) then res += 'MEM_RESERVED1_ARM+';
       if self.val and UInt64($0002) = UInt64($0002) then res += 'MEM_WRITE_ONLY+';
       if self.val and UInt64($0004) = UInt64($0004) then res += 'MEM_READ_ONLY+';
-      if self.val and UInt64($0004) = UInt64($0004) then res += 'MEM_RESERVED2_ARM+';
-      if self.val and UInt64($0008) = UInt64($0008) then res += 'MEM_RESERVED3_ARM+';
       if self.val and UInt64($0008) = UInt64($0008) then res += 'MEM_USE_HOST_PTR+';
       if self.val and UInt64($0010) = UInt64($0010) then res += 'MEM_ALLOC_HOST_PTR+';
-      if self.val and UInt64($0010) = UInt64($0010) then res += 'MEM_RESERVED4_ARM+';
       if self.val and UInt64($0020) = UInt64($0020) then res += 'MEM_COPY_HOST_PTR+';
       if self.val and UInt64($0080) = UInt64($0080) then res += 'MEM_HOST_WRITE_ONLY+';
       if self.val and UInt64($0100) = UInt64($0100) then res += 'MEM_HOST_READ_ONLY+';
       if self.val and UInt64($0200) = UInt64($0200) then res += 'MEM_HOST_NO_ACCESS+';
       if self.val and UInt64($1000) = UInt64($1000) then res += 'MEM_KERNEL_READ_AND_WRITE+';
+      if self.val and UInt64($100000) = UInt64($100000) then res += 'MEM_FORCE_HOST_MEMORY_INTEL+';
       if self.val and UInt64($1000000) = UInt64($1000000) then res += 'MEM_NO_ACCESS_INTEL+';
       if self.val and UInt64($2000000) = UInt64($2000000) then res += 'MEM_ACCESS_FLAGS_UNRESTRICTED_INTEL+';
       if self.val and UInt64($4000000) = UInt64($4000000) then res += 'MEM_USE_UNCACHED_CPU_MEMORY_IMG+';
       if self.val and UInt64($8000000) = UInt64($8000000) then res += 'MEM_USE_CACHED_CPU_MEMORY_IMG+';
       if self.val and UInt64($10000000) = UInt64($10000000) then res += 'MEM_USE_GRALLOC_PTR_IMG+';
       if self.val and UInt64($20000000) = UInt64($20000000) then res += 'MEM_EXT_HOST_PTR_QCOM+';
+      if self.val and UInt64($100000000) = UInt64($100000000) then res += 'MEM_RESERVED0_ARM+';
+      if self.val and UInt64($200000000) = UInt64($200000000) then res += 'MEM_RESERVED1_ARM+';
+      if self.val and UInt64($400000000) = UInt64($400000000) then res += 'MEM_RESERVED2_ARM+';
+      if self.val and UInt64($800000000) = UInt64($800000000) then res += 'MEM_RESERVED3_ARM+';
+      if self.val and UInt64($1000000000) = UInt64($1000000000) then res += 'MEM_RESERVED4_ARM+';
       if res.Length<>0 then
       begin
         res.Length -= 1;
@@ -2558,6 +2823,7 @@ type
     private static _MEM_DX9_RESOURCE_INTEL         := new MemInfo($4027);
     private static _MEM_DX9_SHARED_HANDLE_INTEL    := new MemInfo($4074);
     private static _MEM_VA_API_MEDIA_SURFACE_INTEL := new MemInfo($4098);
+    private static _MEM_USES_SVM_POINTER_ARM       := new MemInfo($40B7);
     
     public static property MEM_TYPE:                       MemInfo read _MEM_TYPE;
     public static property MEM_FLAGS:                      MemInfo read _MEM_FLAGS;
@@ -2577,6 +2843,7 @@ type
     public static property MEM_DX9_RESOURCE_INTEL:         MemInfo read _MEM_DX9_RESOURCE_INTEL;
     public static property MEM_DX9_SHARED_HANDLE_INTEL:    MemInfo read _MEM_DX9_SHARED_HANDLE_INTEL;
     public static property MEM_VA_API_MEDIA_SURFACE_INTEL: MemInfo read _MEM_VA_API_MEDIA_SURFACE_INTEL;
+    public static property MEM_USES_SVM_POINTER_ARM:       MemInfo read _MEM_USES_SVM_POINTER_ARM;
     
     public function ToString: string; override;
     begin
@@ -2598,6 +2865,7 @@ type
       if self.val = UInt32($4027) then Result := 'MEM_DX9_RESOURCE_INTEL' else
       if self.val = UInt32($4074) then Result := 'MEM_DX9_SHARED_HANDLE_INTEL' else
       if self.val = UInt32($4098) then Result := 'MEM_VA_API_MEDIA_SURFACE_INTEL' else
+      if self.val = UInt32($40B7) then Result := 'MEM_USES_SVM_POINTER_ARM' else
         Result := $'MemInfo[{self.val}]';
     end;
     
@@ -2613,7 +2881,8 @@ type
     public static property MIGRATE_MEM_OBJECT_HOST:              MemMigrationFlags read _MIGRATE_MEM_OBJECT_HOST;
     public static property MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED: MemMigrationFlags read _MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED;
     
-    public static function operator or(f1,f2: MemMigrationFlags) := new MemMigrationFlags(f1.val or f2.val);
+    public static function operator+(f1,f2: MemMigrationFlags) := new MemMigrationFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: MemMigrationFlags) := f1+f2;
     
     public property HAS_FLAG_MIGRATE_MEM_OBJECT_HOST:              boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_MIGRATE_MEM_OBJECT_CONTENT_UNDEFINED: boolean read self.val and $0002 <> 0;
@@ -2686,22 +2955,60 @@ type
     
   end;
   
+  MemProperties = record
+    public val: UInt64;
+    public constructor(val: UInt64) := self.val := val;
+    
+    private static _MEM_ALLOC_FLAGS_IMG := new MemProperties($40D7);
+    
+    public static property MEM_ALLOC_FLAGS_IMG: MemProperties read _MEM_ALLOC_FLAGS_IMG;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt64($40D7) then Result := 'MEM_ALLOC_FLAGS_IMG' else
+        Result := $'MemProperties[{self.val}]';
+    end;
+    
+  end;
+  
   MemPropertiesIntel = record
     public val: UInt64;
     public constructor(val: UInt64) := self.val := val;
     
     private static _MEM_ALLOC_FLAGS_INTEL := new MemPropertiesIntel($4195);
+    private static _MEM_CHANNEL_INTEL     := new MemPropertiesIntel($4213);
     
     public static property MEM_ALLOC_FLAGS_INTEL: MemPropertiesIntel read _MEM_ALLOC_FLAGS_INTEL;
+    public static property MEM_CHANNEL_INTEL:     MemPropertiesIntel read _MEM_CHANNEL_INTEL;
     
     public function ToString: string; override;
     begin
       if self.val = UInt64($4195) then Result := 'MEM_ALLOC_FLAGS_INTEL' else
+      if self.val = UInt64($4213) then Result := 'MEM_CHANNEL_INTEL' else
         Result := $'MemPropertiesIntel[{self.val}]';
     end;
     
   end;
   
+  MipmapFilterModeImg = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _MIPMAP_FILTER_ANY_IMG := new MipmapFilterModeImg($0000);
+    private static _MIPMAP_FILTER_BOX_IMG := new MipmapFilterModeImg($0001);
+    
+    public static property MIPMAP_FILTER_ANY_IMG: MipmapFilterModeImg read _MIPMAP_FILTER_ANY_IMG;
+    public static property MIPMAP_FILTER_BOX_IMG: MipmapFilterModeImg read _MIPMAP_FILTER_BOX_IMG;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($0000) then Result := 'MIPMAP_FILTER_ANY_IMG' else
+      if self.val = UInt32($0001) then Result := 'MIPMAP_FILTER_BOX_IMG' else
+        Result := $'MipmapFilterModeImg[{self.val}]';
+    end;
+    
+  end;
+  
   PipeInfo = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -2728,25 +3035,29 @@ type
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
     
-    private static _PLATFORM_PROFILE                 := new PlatformInfo($0900);
-    private static _PLATFORM_VERSION                 := new PlatformInfo($0901);
-    private static _PLATFORM_NAME                    := new PlatformInfo($0902);
-    private static _PLATFORM_VENDOR                  := new PlatformInfo($0903);
-    private static _PLATFORM_EXTENSIONS              := new PlatformInfo($0904);
-    private static _PLATFORM_HOST_TIMER_RESOLUTION   := new PlatformInfo($0905);
-    private static _PLATFORM_NUMERIC_VERSION         := new PlatformInfo($0906);
-    private static _PLATFORM_EXTENSIONS_WITH_VERSION := new PlatformInfo($0907);
-    private static _PLATFORM_ICD_SUFFIX_KHR          := new PlatformInfo($0920);
+    private static _PLATFORM_PROFILE                     := new PlatformInfo($0900);
+    private static _PLATFORM_VERSION                     := new PlatformInfo($0901);
+    private static _PLATFORM_NAME                        := new PlatformInfo($0902);
+    private static _PLATFORM_VENDOR                      := new PlatformInfo($0903);
+    private static _PLATFORM_EXTENSIONS                  := new PlatformInfo($0904);
+    private static _PLATFORM_HOST_TIMER_RESOLUTION       := new PlatformInfo($0905);
+    private static _PLATFORM_NUMERIC_VERSION             := new PlatformInfo($0906);
+    private static _PLATFORM_NUMERIC_VERSION_KHR         := new PlatformInfo($0906);
+    private static _PLATFORM_EXTENSIONS_WITH_VERSION     := new PlatformInfo($0907);
+    private static _PLATFORM_EXTENSIONS_WITH_VERSION_KHR := new PlatformInfo($0907);
+    private static _PLATFORM_ICD_SUFFIX_KHR              := new PlatformInfo($0920);
     
-    public static property PLATFORM_PROFILE:                 PlatformInfo read _PLATFORM_PROFILE;
-    public static property PLATFORM_VERSION:                 PlatformInfo read _PLATFORM_VERSION;
-    public static property PLATFORM_NAME:                    PlatformInfo read _PLATFORM_NAME;
-    public static property PLATFORM_VENDOR:                  PlatformInfo read _PLATFORM_VENDOR;
-    public static property PLATFORM_EXTENSIONS:              PlatformInfo read _PLATFORM_EXTENSIONS;
-    public static property PLATFORM_HOST_TIMER_RESOLUTION:   PlatformInfo read _PLATFORM_HOST_TIMER_RESOLUTION;
-    public static property PLATFORM_NUMERIC_VERSION:         PlatformInfo read _PLATFORM_NUMERIC_VERSION;
-    public static property PLATFORM_EXTENSIONS_WITH_VERSION: PlatformInfo read _PLATFORM_EXTENSIONS_WITH_VERSION;
-    public static property PLATFORM_ICD_SUFFIX_KHR:          PlatformInfo read _PLATFORM_ICD_SUFFIX_KHR;
+    public static property PLATFORM_PROFILE:                     PlatformInfo read _PLATFORM_PROFILE;
+    public static property PLATFORM_VERSION:                     PlatformInfo read _PLATFORM_VERSION;
+    public static property PLATFORM_NAME:                        PlatformInfo read _PLATFORM_NAME;
+    public static property PLATFORM_VENDOR:                      PlatformInfo read _PLATFORM_VENDOR;
+    public static property PLATFORM_EXTENSIONS:                  PlatformInfo read _PLATFORM_EXTENSIONS;
+    public static property PLATFORM_HOST_TIMER_RESOLUTION:       PlatformInfo read _PLATFORM_HOST_TIMER_RESOLUTION;
+    public static property PLATFORM_NUMERIC_VERSION:             PlatformInfo read _PLATFORM_NUMERIC_VERSION;
+    public static property PLATFORM_NUMERIC_VERSION_KHR:         PlatformInfo read _PLATFORM_NUMERIC_VERSION_KHR;
+    public static property PLATFORM_EXTENSIONS_WITH_VERSION:     PlatformInfo read _PLATFORM_EXTENSIONS_WITH_VERSION;
+    public static property PLATFORM_EXTENSIONS_WITH_VERSION_KHR: PlatformInfo read _PLATFORM_EXTENSIONS_WITH_VERSION_KHR;
+    public static property PLATFORM_ICD_SUFFIX_KHR:              PlatformInfo read _PLATFORM_ICD_SUFFIX_KHR;
     
     public function ToString: string; override;
     begin
@@ -2757,7 +3068,9 @@ type
       if self.val = UInt32($0904) then Result := 'PLATFORM_EXTENSIONS' else
       if self.val = UInt32($0905) then Result := 'PLATFORM_HOST_TIMER_RESOLUTION' else
       if self.val = UInt32($0906) then Result := 'PLATFORM_NUMERIC_VERSION' else
+      if self.val = UInt32($0906) then Result := 'PLATFORM_NUMERIC_VERSION_KHR' else
       if self.val = UInt32($0907) then Result := 'PLATFORM_EXTENSIONS_WITH_VERSION' else
+      if self.val = UInt32($0907) then Result := 'PLATFORM_EXTENSIONS_WITH_VERSION_KHR' else
       if self.val = UInt32($0920) then Result := 'PLATFORM_ICD_SUFFIX_KHR' else
         Result := $'PlatformInfo[{self.val}]';
     end;
@@ -2862,6 +3175,7 @@ type
     private static _PROGRAM_NUM_KERNELS                := new ProgramInfo($1167);
     private static _PROGRAM_KERNEL_NAMES               := new ProgramInfo($1168);
     private static _PROGRAM_IL                         := new ProgramInfo($1169);
+    private static _PROGRAM_IL_KHR                     := new ProgramInfo($1169);
     private static _PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT := new ProgramInfo($116A);
     private static _PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT := new ProgramInfo($116B);
     
@@ -2875,6 +3189,7 @@ type
     public static property PROGRAM_NUM_KERNELS:                ProgramInfo read _PROGRAM_NUM_KERNELS;
     public static property PROGRAM_KERNEL_NAMES:               ProgramInfo read _PROGRAM_KERNEL_NAMES;
     public static property PROGRAM_IL:                         ProgramInfo read _PROGRAM_IL;
+    public static property PROGRAM_IL_KHR:                     ProgramInfo read _PROGRAM_IL_KHR;
     public static property PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT: ProgramInfo read _PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT;
     public static property PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT: ProgramInfo read _PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT;
     
@@ -2890,6 +3205,7 @@ type
       if self.val = UInt32($1167) then Result := 'PROGRAM_NUM_KERNELS' else
       if self.val = UInt32($1168) then Result := 'PROGRAM_KERNEL_NAMES' else
       if self.val = UInt32($1169) then Result := 'PROGRAM_IL' else
+      if self.val = UInt32($1169) then Result := 'PROGRAM_IL_KHR' else
       if self.val = UInt32($116A) then Result := 'PROGRAM_SCOPE_GLOBAL_CTORS_PRESENT' else
       if self.val = UInt32($116B) then Result := 'PROGRAM_SCOPE_GLOBAL_DTORS_PRESENT' else
         Result := $'ProgramInfo[{self.val}]';
@@ -2901,16 +3217,19 @@ type
     public val: UInt64;
     public constructor(val: UInt64) := self.val := val;
     
-    private static _QUEUE_PRIORITY_KHR := new QueueProperties($1096);
-    private static _QUEUE_THROTTLE_KHR := new QueueProperties($1097);
+    private static _QUEUE_PRIORITY_KHR        := new QueueProperties($1096);
+    private static _QUEUE_THROTTLE_KHR        := new QueueProperties($1097);
+    private static _QUEUE_KERNEL_BATCHING_ARM := new QueueProperties($41E7);
     
-    public static property QUEUE_PRIORITY_KHR: QueueProperties read _QUEUE_PRIORITY_KHR;
-    public static property QUEUE_THROTTLE_KHR: QueueProperties read _QUEUE_THROTTLE_KHR;
+    public static property QUEUE_PRIORITY_KHR:        QueueProperties read _QUEUE_PRIORITY_KHR;
+    public static property QUEUE_THROTTLE_KHR:        QueueProperties read _QUEUE_THROTTLE_KHR;
+    public static property QUEUE_KERNEL_BATCHING_ARM: QueueProperties read _QUEUE_KERNEL_BATCHING_ARM;
     
     public function ToString: string; override;
     begin
       if self.val = UInt64($1096) then Result := 'QUEUE_PRIORITY_KHR' else
       if self.val = UInt64($1097) then Result := 'QUEUE_THROTTLE_KHR' else
+      if self.val = UInt64($41E7) then Result := 'QUEUE_KERNEL_BATCHING_ARM' else
         Result := $'QueueProperties[{self.val}]';
     end;
     
@@ -3027,6 +3346,25 @@ type
     
   end;
   
+  SvmMemFlagsArm = record
+    public val: UInt64;
+    public constructor(val: UInt64) := self.val := val;
+    
+    private static _MEM_SVM_FINE_GRAIN_BUFFER_ARM := new SvmMemFlagsArm($0400);
+    private static _MEM_SVM_ATOMICS_ARM           := new SvmMemFlagsArm($0800);
+    
+    public static property MEM_SVM_FINE_GRAIN_BUFFER_ARM: SvmMemFlagsArm read _MEM_SVM_FINE_GRAIN_BUFFER_ARM;
+    public static property MEM_SVM_ATOMICS_ARM:           SvmMemFlagsArm read _MEM_SVM_ATOMICS_ARM;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt64($0400) then Result := 'MEM_SVM_FINE_GRAIN_BUFFER_ARM' else
+      if self.val = UInt64($0800) then Result := 'MEM_SVM_ATOMICS_ARM' else
+        Result := $'SvmMemFlagsArm[{self.val}]';
+    end;
+    
+  end;
+  
   VaApiDeviceSetIntel = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -3169,6 +3507,7 @@ type
   {$region Функции}
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   cl = static class
     
     // added in cl1.0
@@ -3333,15 +3672,15 @@ type
     z_CreateBuffer_ovr_2(context, flags, size, host_ptr, errcode_ret);
     
     // added in cl3.0
-    private static function z_CreateBufferWithProperties_ovr_0(context: cl_context; var properties: UInt64; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateBufferWithProperties_ovr_0(context: cl_context; var properties: MemProperties; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateBufferWithProperties';
     private static function z_CreateBufferWithProperties_ovr_0_anh0010000(context: cl_context; properties: IntPtr; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateBufferWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_CreateBufferWithProperties_ovr_0(context, properties[0], flags, size, host_ptr, errcode_ret) else
       z_CreateBufferWithProperties_ovr_0_anh0010000(context, IntPtr.Zero, flags, size, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_CreateBufferWithProperties_ovr_0(context, properties, flags, size, host_ptr, errcode_ret);
     private static function z_CreateBufferWithProperties_ovr_2(context: cl_context; properties: IntPtr; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateBufferWithProperties';
@@ -3497,23 +3836,23 @@ type
     z_CreateImage3D_ovr_2(context, flags, image_format, image_width, image_height, image_depth, image_row_pitch, image_slice_pitch, host_ptr, errcode_ret);
     
     // added in cl3.0
-    private static function z_CreateImageWithProperties_ovr_0(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_0(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_0_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_0_anh00001000(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_0_anh00001000(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_0_anh00101000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_0_anh00000100(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_0_anh00000100(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_0_anh00100100(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_0_anh00001100(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_0_anh00001100(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_0_anh00101100(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: array of cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: array of cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       if (image_format<>nil) and (image_format.Length<>0) then
         if (image_desc<>nil) and (image_desc.Length<>0) then
@@ -3531,11 +3870,11 @@ type
           z_CreateImageWithProperties_ovr_0_anh00101100(context, IntPtr.Zero, flags, IntPtr.Zero, IntPtr.Zero, host_ptr, errcode_ret);
     private static function z_CreateImageWithProperties_ovr_1_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_1_anh00001000(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_1_anh00001000(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_1_anh00101000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: array of cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: array of cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       if (image_format<>nil) and (image_format.Length<>0) then
         z_CreateImageWithProperties_ovr_0(context, properties[0], flags, image_format[0], image_desc, host_ptr, errcode_ret) else
@@ -3543,15 +3882,15 @@ type
       if (image_format<>nil) and (image_format.Length<>0) then
         z_CreateImageWithProperties_ovr_0_anh00100000(context, IntPtr.Zero, flags, image_format[0], image_desc, host_ptr, errcode_ret) else
         z_CreateImageWithProperties_ovr_0_anh00101000(context, IntPtr.Zero, flags, IntPtr.Zero, image_desc, host_ptr, errcode_ret);
-    private static function z_CreateImageWithProperties_ovr_2(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_2(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_2_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_2_anh00001000(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_2_anh00001000(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_2_anh00101000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: array of cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: array of cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       if (image_format<>nil) and (image_format.Length<>0) then
         z_CreateImageWithProperties_ovr_2(context, properties[0], flags, image_format[0], image_desc, host_ptr, errcode_ret) else
@@ -3563,7 +3902,7 @@ type
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_3_anh00100100(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       if (image_desc<>nil) and (image_desc.Length<>0) then
         z_CreateImageWithProperties_ovr_0(context, properties[0], flags, image_format, image_desc[0], host_ptr, errcode_ret) else
@@ -3573,25 +3912,25 @@ type
         z_CreateImageWithProperties_ovr_0_anh00100100(context, IntPtr.Zero, flags, image_format, IntPtr.Zero, host_ptr, errcode_ret);
     private static function z_CreateImageWithProperties_ovr_4_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_CreateImageWithProperties_ovr_0(context, properties[0], flags, image_format, image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_0_anh00100000(context, IntPtr.Zero, flags, image_format, image_desc, host_ptr, errcode_ret);
     private static function z_CreateImageWithProperties_ovr_5_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_CreateImageWithProperties_ovr_2(context, properties[0], flags, image_format, image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_2_anh00100000(context, IntPtr.Zero, flags, image_format, image_desc, host_ptr, errcode_ret);
-    private static function z_CreateImageWithProperties_ovr_6(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_6(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_6_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    private static function z_CreateImageWithProperties_ovr_6_anh00000100(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_6_anh00000100(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_6_anh00100100(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: IntPtr; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       if (image_desc<>nil) and (image_desc.Length<>0) then
         z_CreateImageWithProperties_ovr_6(context, properties[0], flags, image_format, image_desc[0], host_ptr, errcode_ret) else
@@ -3601,19 +3940,19 @@ type
         z_CreateImageWithProperties_ovr_6_anh00100100(context, IntPtr.Zero, flags, image_format, IntPtr.Zero, host_ptr, errcode_ret);
     private static function z_CreateImageWithProperties_ovr_7_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_CreateImageWithProperties_ovr_6(context, properties[0], flags, image_format, image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_6_anh00100000(context, IntPtr.Zero, flags, image_format, image_desc, host_ptr, errcode_ret);
-    private static function z_CreateImageWithProperties_ovr_8(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_CreateImageWithProperties_ovr_8(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
     private static function z_CreateImageWithProperties_ovr_8_anh00100000(context: cl_context; properties: IntPtr; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; properties: array of MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_CreateImageWithProperties_ovr_8(context, properties[0], flags, image_format, image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_8_anh00100000(context, IntPtr.Zero, flags, image_format, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: array of cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: array of cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (image_format<>nil) and (image_format.Length<>0) then
       if (image_desc<>nil) and (image_desc.Length<>0) then
         z_CreateImageWithProperties_ovr_0(context, properties, flags, image_format[0], image_desc[0], host_ptr, errcode_ret) else
@@ -3621,29 +3960,29 @@ type
       if (image_desc<>nil) and (image_desc.Length<>0) then
         z_CreateImageWithProperties_ovr_0_anh00001000(context, properties, flags, IntPtr.Zero, image_desc[0], host_ptr, errcode_ret) else
         z_CreateImageWithProperties_ovr_0_anh00001100(context, properties, flags, IntPtr.Zero, IntPtr.Zero, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: array of cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: array of cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (image_format<>nil) and (image_format.Length<>0) then
       z_CreateImageWithProperties_ovr_0(context, properties, flags, image_format[0], image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_0_anh00001000(context, properties, flags, IntPtr.Zero, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: array of cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: array of cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (image_format<>nil) and (image_format.Length<>0) then
       z_CreateImageWithProperties_ovr_2(context, properties, flags, image_format[0], image_desc, host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_2_anh00001000(context, properties, flags, IntPtr.Zero, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (image_desc<>nil) and (image_desc.Length<>0) then
       z_CreateImageWithProperties_ovr_0(context, properties, flags, image_format, image_desc[0], host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_0_anh00000100(context, properties, flags, image_format, IntPtr.Zero, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_CreateImageWithProperties_ovr_0(context, properties, flags, image_format, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; var image_format: cl_image_format; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_CreateImageWithProperties_ovr_2(context, properties, flags, image_format, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: array of cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (image_desc<>nil) and (image_desc.Length<>0) then
       z_CreateImageWithProperties_ovr_6(context, properties, flags, image_format, image_desc[0], host_ptr, errcode_ret) else
       z_CreateImageWithProperties_ovr_6_anh00000100(context, properties, flags, image_format, IntPtr.Zero, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_CreateImageWithProperties_ovr_6(context, properties, flags, image_format, image_desc, host_ptr, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: UInt64; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageWithProperties(context: cl_context; var properties: MemProperties; flags: MemFlags; image_format: IntPtr; image_desc: IntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_CreateImageWithProperties_ovr_8(context, properties, flags, image_format, image_desc, host_ptr, errcode_ret);
     private static function z_CreateImageWithProperties_ovr_18(context: cl_context; properties: IntPtr; flags: MemFlags; var image_format: cl_image_format; var image_desc: cl_image_desc; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clCreateImageWithProperties';
@@ -5919,46 +6258,46 @@ type
     z_EnqueueReadBuffer_ovr_17(command_queue, buffer, blocking_read, offset, size, ptr, num_events_in_wait_list, event_wait_list, &event);
     
     // added in cl1.1
-    private static function z_EnqueueReadBufferRect_ovr_0(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueReadBufferRect_ovr_0(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueReadBufferRect_ovr_0(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueReadBufferRect_ovr_0(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueReadBufferRect_ovr_1(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    private static function z_EnqueueReadBufferRect_ovr_1(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueReadBufferRect_ovr_1(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueReadBufferRect_ovr_1(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueReadBufferRect_ovr_2(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueReadBufferRect_ovr_2(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueReadBufferRect_ovr_2(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueReadBufferRect_ovr_2(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueReadBufferRect_ovr_3(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    private static function z_EnqueueReadBufferRect_ovr_3(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueReadBufferRect_ovr_3(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueReadBufferRect_ovr_3(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueReadBufferRect_ovr_4(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueReadBufferRect_ovr_4(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
-    z_EnqueueReadBufferRect_ovr_4(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueReadBufferRect_ovr_5(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueReadBufferRect_ovr_4(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueReadBufferRect_ovr_5(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
-    z_EnqueueReadBufferRect_ovr_5(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueReadBufferRect_ovr_6(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueReadBufferRect_ovr_5(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueReadBufferRect_ovr_6(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
-    z_EnqueueReadBufferRect_ovr_6(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueReadBufferRect_ovr_7(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueReadBufferRect_ovr_6(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueReadBufferRect_ovr_7(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueReadBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
-    z_EnqueueReadBufferRect_ovr_7(command_queue, buffer, blocking_read, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueReadBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_read: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueReadBufferRect_ovr_7(command_queue, buffer, blocking_read, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
     
     // added in cl1.0
     private static function z_EnqueueReadImage_ovr_0(command_queue: cl_command_queue; image: cl_mem; blocking_read: Bool; var origin: UIntPtr; var region: UIntPtr; row_pitch: UIntPtr; slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
@@ -6769,46 +7108,46 @@ type
     z_EnqueueWriteBuffer_ovr_17(command_queue, buffer, blocking_write, offset, size, ptr, num_events_in_wait_list, event_wait_list, &event);
     
     // added in cl1.1
-    private static function z_EnqueueWriteBufferRect_ovr_0(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueWriteBufferRect_ovr_0(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueWriteBufferRect_ovr_0(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueWriteBufferRect_ovr_0(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueWriteBufferRect_ovr_1(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    private static function z_EnqueueWriteBufferRect_ovr_1(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueWriteBufferRect_ovr_1(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueWriteBufferRect_ovr_1(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueWriteBufferRect_ovr_2(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueWriteBufferRect_ovr_2(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueWriteBufferRect_ovr_2(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueWriteBufferRect_ovr_2(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueWriteBufferRect_ovr_3(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    private static function z_EnqueueWriteBufferRect_ovr_3(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode; where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; var ptr: T; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode; where T: record;
     begin
-      Result := z_EnqueueWriteBufferRect_ovr_3(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
+      Result := z_EnqueueWriteBufferRect_ovr_3(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, PByte(pointer(@ptr))^, num_events_in_wait_list, event_wait_list, &event);
     end;
-    private static function z_EnqueueWriteBufferRect_ovr_4(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    private static function z_EnqueueWriteBufferRect_ovr_4(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
-    z_EnqueueWriteBufferRect_ovr_4(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueWriteBufferRect_ovr_5(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueWriteBufferRect_ovr_4(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueWriteBufferRect_ovr_5(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
-    z_EnqueueWriteBufferRect_ovr_5(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueWriteBufferRect_ovr_6(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueWriteBufferRect_ovr_5(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueWriteBufferRect_ovr_6(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
-    z_EnqueueWriteBufferRect_ovr_6(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueWriteBufferRect_ovr_7(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueWriteBufferRect_ovr_6(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueWriteBufferRect_ovr_7(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clEnqueueWriteBufferRect';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_offset: UIntPtr; var host_offset: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
-    z_EnqueueWriteBufferRect_ovr_7(command_queue, buffer, blocking_write, buffer_offset, host_offset, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueWriteBufferRect(command_queue: cl_command_queue; buffer: cl_mem; blocking_write: Bool; var buffer_origin: UIntPtr; var host_origin: UIntPtr; var region: UIntPtr; buffer_row_pitch: UIntPtr; buffer_slice_pitch: UIntPtr; host_row_pitch: UIntPtr; host_slice_pitch: UIntPtr; ptr: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueWriteBufferRect_ovr_7(command_queue, buffer, blocking_write, buffer_origin, host_origin, region, buffer_row_pitch, buffer_slice_pitch, host_row_pitch, host_slice_pitch, ptr, num_events_in_wait_list, event_wait_list, &event);
     
     // added in cl1.0
     private static function z_EnqueueWriteImage_ovr_0(command_queue: cl_command_queue; image: cl_mem; blocking_write: Bool; var origin: UIntPtr; var region: UIntPtr; input_row_pitch: UIntPtr; input_slice_pitch: UIntPtr; var ptr: Byte; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
@@ -8157,18 +8496,19 @@ type
   {$region Extensions}
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clD3d10SharingKHR = static class
     public const _ExtStr = 'khr_d3d10_sharing';
     
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000010(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000001(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000001(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000011(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000011(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; num_devices: array of UInt32): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       if (num_devices<>nil) and (num_devices.Length<>0) then
         z_GetDeviceIDsFromD3D10KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices[0]) else
@@ -8176,41 +8516,41 @@ type
       if (num_devices<>nil) and (num_devices.Length<>0) then
         z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices[0]) else
         z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000011(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_1_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_1_anh00000010(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; var num_devices: UInt32): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       z_GetDeviceIDsFromD3D10KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices) else
       z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices);
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_2(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_2(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_2_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_2_anh00000010(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; num_devices: IntPtr): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       z_GetDeviceIDsFromD3D10KHR_ovr_2(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices) else
       z_GetDeviceIDsFromD3D10KHR_ovr_2_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: array of UInt32): ErrorCode :=
     if (num_devices<>nil) and (num_devices.Length<>0) then
       z_GetDeviceIDsFromD3D10KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices[0]) else
       z_GetDeviceIDsFromD3D10KHR_ovr_0_anh00000001(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode :=
     z_GetDeviceIDsFromD3D10KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode :=
     z_GetDeviceIDsFromD3D10KHR_ovr_2(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_6(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_6(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_6_anh00000001(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_6_anh00000001(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: array of UInt32): ErrorCode :=
     if (num_devices<>nil) and (num_devices.Length<>0) then
       z_GetDeviceIDsFromD3D10KHR_ovr_6(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices[0]) else
       z_GetDeviceIDsFromD3D10KHR_ovr_6_anh00000001(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode :=
     z_GetDeviceIDsFromD3D10KHR_ovr_6(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    private static function z_GetDeviceIDsFromD3D10KHR_ovr_8(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D10KHR_ovr_8(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D10KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D10KHR(platform: cl_platform_id; d3d_device_source: D3d10DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d10DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode :=
     z_GetDeviceIDsFromD3D10KHR_ovr_8(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
     
     private static function z_CreateFromD3D10BufferKHR_ovr_0(context: cl_context; flags: MemFlags; var resource: IntPtr; var errcode_ret: ErrorCode): cl_mem;
@@ -8663,18 +9003,19 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clD3d11SharingKHR = static class
     public const _ExtStr = 'khr_d3d11_sharing';
     
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000010(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000001(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000001(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000011(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000011(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; num_devices: array of UInt32): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       if (num_devices<>nil) and (num_devices.Length<>0) then
         z_GetDeviceIDsFromD3D11KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices[0]) else
@@ -8682,41 +9023,41 @@ type
       if (num_devices<>nil) and (num_devices.Length<>0) then
         z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices[0]) else
         z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000011(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_1_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_1_anh00000010(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; var num_devices: UInt32): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       z_GetDeviceIDsFromD3D11KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices) else
       z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices);
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_2(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_2(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_2_anh00000010(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_2_anh00000010(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: array of cl_device_id; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: array of cl_device_id; num_devices: IntPtr): ErrorCode :=
     if (devices<>nil) and (devices.Length<>0) then
       z_GetDeviceIDsFromD3D11KHR_ovr_2(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices[0], num_devices) else
       z_GetDeviceIDsFromD3D11KHR_ovr_2_anh00000010(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, IntPtr.Zero, num_devices);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: array of UInt32): ErrorCode :=
     if (num_devices<>nil) and (num_devices.Length<>0) then
       z_GetDeviceIDsFromD3D11KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices[0]) else
       z_GetDeviceIDsFromD3D11KHR_ovr_0_anh00000001(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; var num_devices: UInt32): ErrorCode :=
     z_GetDeviceIDsFromD3D11KHR_ovr_0(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; var devices: cl_device_id; num_devices: IntPtr): ErrorCode :=
     z_GetDeviceIDsFromD3D11KHR_ovr_2(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_6(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_6(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_6_anh00000001(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_6_anh00000001(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: array of UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: array of UInt32): ErrorCode :=
     if (num_devices<>nil) and (num_devices.Length<>0) then
       z_GetDeviceIDsFromD3D11KHR_ovr_6(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices[0]) else
       z_GetDeviceIDsFromD3D11KHR_ovr_6_anh00000001(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; var num_devices: UInt32): ErrorCode :=
     z_GetDeviceIDsFromD3D11KHR_ovr_6(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
-    private static function z_GetDeviceIDsFromD3D11KHR_ovr_8(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
+    private static function z_GetDeviceIDsFromD3D11KHR_ovr_8(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceIDsFromD3D11KHR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: UInt32; d3d_object: IntPtr; d3d_device_set: UInt32; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceIDsFromD3D11KHR(platform: cl_platform_id; d3d_device_source: D3d11DeviceSourceKhr; d3d_object: IntPtr; d3d_device_set: D3d11DeviceSetKhr; num_entries: UInt32; devices: IntPtr; num_devices: IntPtr): ErrorCode :=
     z_GetDeviceIDsFromD3D11KHR_ovr_8(platform, d3d_device_source, d3d_object, d3d_device_set, num_entries, devices, num_devices);
     
     private static function z_CreateFromD3D11BufferKHR_ovr_0(context: cl_context; flags: MemFlags; var resource: IntPtr; var errcode_ret: ErrorCode): cl_mem;
@@ -9169,6 +9510,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clDx9MediaSharingKHR = static class
     public const _ExtStr = 'khr_dx9_media_sharing';
     
@@ -9783,6 +10125,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clEglImageKHR = static class
     public const _ExtStr = 'khr_egl_image';
     
@@ -10206,6 +10549,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clEglEventKHR = static class
     public const _ExtStr = 'khr_egl_event';
     
@@ -10217,6 +10561,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clSetMemObjectDestructorAPPLE = static class
     public const _ExtStr = 'APPLE_SetMemObjectDestructor';
     
@@ -10228,6 +10573,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clContextLoggingFunctionsAPPLE = static class
     public const _ExtStr = 'APPLE_ContextLoggingFunctions';
     
@@ -10279,6 +10625,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clIcdKHR = static class
     public const _ExtStr = 'khr_icd';
     
@@ -10338,6 +10685,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clIlProgramKHR = static class
     public const _ExtStr = 'khr_il_program';
     
@@ -10359,6 +10707,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clTerminateContextKHR = static class
     public const _ExtStr = 'khr_terminate_context';
     
@@ -10370,6 +10719,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clCreateCommandQueueKHR = static class
     public const _ExtStr = 'khr_create_command_queue';
     
@@ -10391,6 +10741,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clDeviceFissionEXT = static class
     public const _ExtStr = 'ext_device_fission';
     
@@ -10608,6 +10959,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clMigrateMemobjectEXT = static class
     public const _ExtStr = 'ext_migrate_memobject';
     
@@ -10815,18 +11167,19 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clExtHostPtrQCOM = static class
     public const _ExtStr = 'qcom_ext_host_ptr';
     
-    private static function z_GetDeviceImageInfoQCOM_ovr_0(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_0(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000000001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000000001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000010001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_0_anh000010001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
     if (image_format<>nil) and (image_format.Length<>0) then
       if (param_value_size_ret<>nil) and (param_value_size_ret.Length<>0) then
         z_GetDeviceImageInfoQCOM_ovr_0(device, image_width, image_height, image_format[0], param_name, param_value_size, param_value, param_value_size_ret[0]) else
@@ -10834,46 +11187,47 @@ type
       if (param_value_size_ret<>nil) and (param_value_size_ret.Length<>0) then
         z_GetDeviceImageInfoQCOM_ovr_0_anh000010000(device, image_width, image_height, IntPtr.Zero, param_name, param_value_size, param_value, param_value_size_ret[0]) else
         z_GetDeviceImageInfoQCOM_ovr_0_anh000010001(device, image_width, image_height, IntPtr.Zero, param_name, param_value_size, param_value, IntPtr.Zero);
-    private static function z_GetDeviceImageInfoQCOM_ovr_1_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_1_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
     if (image_format<>nil) and (image_format.Length<>0) then
       z_GetDeviceImageInfoQCOM_ovr_0(device, image_width, image_height, image_format[0], param_name, param_value_size, param_value, param_value_size_ret) else
       z_GetDeviceImageInfoQCOM_ovr_0_anh000010000(device, image_width, image_height, IntPtr.Zero, param_name, param_value_size, param_value, param_value_size_ret);
-    private static function z_GetDeviceImageInfoQCOM_ovr_2(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_2(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    private static function z_GetDeviceImageInfoQCOM_ovr_2_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_2_anh000010000(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: array of cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
     if (image_format<>nil) and (image_format.Length<>0) then
       z_GetDeviceImageInfoQCOM_ovr_2(device, image_width, image_height, image_format[0], param_name, param_value_size, param_value, param_value_size_ret) else
       z_GetDeviceImageInfoQCOM_ovr_2_anh000010000(device, image_width, image_height, IntPtr.Zero, param_name, param_value_size, param_value, param_value_size_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
     if (param_value_size_ret<>nil) and (param_value_size_ret.Length<>0) then
       z_GetDeviceImageInfoQCOM_ovr_0(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret[0]) else
       z_GetDeviceImageInfoQCOM_ovr_0_anh000000001(device, image_width, image_height, image_format, param_name, param_value_size, param_value, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
     z_GetDeviceImageInfoQCOM_ovr_0(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; var image_format: cl_image_format; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
     z_GetDeviceImageInfoQCOM_ovr_2(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret);
-    private static function z_GetDeviceImageInfoQCOM_ovr_6(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_6(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    private static function z_GetDeviceImageInfoQCOM_ovr_6_anh000000001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_6_anh000000001(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
     if (param_value_size_ret<>nil) and (param_value_size_ret.Length<>0) then
       z_GetDeviceImageInfoQCOM_ovr_6(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret[0]) else
       z_GetDeviceImageInfoQCOM_ovr_6_anh000000001(device, image_width, image_height, image_format, param_name, param_value_size, param_value, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
     z_GetDeviceImageInfoQCOM_ovr_6(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret);
-    private static function z_GetDeviceImageInfoQCOM_ovr_8(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
+    private static function z_GetDeviceImageInfoQCOM_ovr_8(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clGetDeviceImageInfoQCOM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceImageInfoQCOM(device: cl_device_id; image_width: UIntPtr; image_height: UIntPtr; image_format: IntPtr; param_name: ImagePitchInfoQcom; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
     z_GetDeviceImageInfoQCOM_ovr_8(device, image_width, image_height, image_format, param_name, param_value_size, param_value, param_value_size_ret);
     
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clUseGrallocPtrIMG = static class
     public const _ExtStr = 'img_use_gralloc_ptr';
     
@@ -11282,6 +11636,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clSubgroupsKHR = static class
     public const _ExtStr = 'khr_subgroups';
     
@@ -11303,33 +11658,35 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clImportMemoryARM = static class
     public const _ExtStr = 'arm_import_memory';
     
-    private static function z_ImportMemoryARM_ovr_0(context: cl_context; flags: MemFlags; var properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_ImportMemoryARM_ovr_0(context: cl_context; flags: MemFlags; var properties: ImportPropertiesArm; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clImportMemoryARM';
     private static function z_ImportMemoryARM_ovr_0_anh0001000(context: cl_context; flags: MemFlags; properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clImportMemoryARM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; properties: array of IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; properties: array of ImportPropertiesArm; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
     if (properties<>nil) and (properties.Length<>0) then
       z_ImportMemoryARM_ovr_0(context, flags, properties[0], memory, size, errcode_ret) else
       z_ImportMemoryARM_ovr_0_anh0001000(context, flags, IntPtr.Zero, memory, size, errcode_ret);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; var properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; var properties: ImportPropertiesArm; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_ImportMemoryARM_ovr_0(context, flags, properties, memory, size, errcode_ret);
-    private static function z_ImportMemoryARM_ovr_2(context: cl_context; flags: MemFlags; properties: pointer; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem;
+    private static function z_ImportMemoryARM_ovr_2(context: cl_context; flags: MemFlags; properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem;
     external 'opencl.dll' name 'clImportMemoryARM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; properties: pointer; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ImportMemoryARM(context: cl_context; flags: MemFlags; properties: IntPtr; memory: IntPtr; size: UIntPtr; var errcode_ret: ErrorCode): cl_mem :=
     z_ImportMemoryARM_ovr_2(context, flags, properties, memory, size, errcode_ret);
     
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clSharedVirtualMemoryARM = static class
     public const _ExtStr = 'arm_shared_virtual_memory';
     
-    private static function z_SVMAllocARM_ovr_0(context: cl_context; flags: UInt64; size: UIntPtr; alignment: UInt32): IntPtr;
+    private static function z_SVMAllocARM_ovr_0(context: cl_context; flags: SvmMemFlagsArm; size: UIntPtr; alignment: UInt32): IntPtr;
     external 'opencl.dll' name 'clSVMAllocARM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SVMAllocARM(context: cl_context; flags: UInt64; size: UIntPtr; alignment: UInt32): IntPtr :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SVMAllocARM(context: cl_context; flags: SvmMemFlagsArm; size: UIntPtr; alignment: UInt32): IntPtr :=
     z_SVMAllocARM_ovr_0(context, flags, size, alignment);
     
     private static procedure z_SVMFreeARM_ovr_0(context: cl_context; svm_pointer: IntPtr);
@@ -11607,14 +11964,15 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelArgSVMPointerARM(kernel: cl_kernel; arg_index: UInt32; arg_value: IntPtr): ErrorCode :=
     z_SetKernelArgSVMPointerARM_ovr_0(kernel, arg_index, arg_value);
     
-    private static function z_SetKernelExecInfoARM_ovr_0(kernel: cl_kernel; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr): ErrorCode;
+    private static function z_SetKernelExecInfoARM_ovr_0(kernel: cl_kernel; param_name: KernelExecInfoArm; param_value_size: UIntPtr; param_value: IntPtr): ErrorCode;
     external 'opencl.dll' name 'clSetKernelExecInfoARM';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelExecInfoARM(kernel: cl_kernel; param_name: UInt32; param_value_size: UIntPtr; param_value: IntPtr): ErrorCode :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetKernelExecInfoARM(kernel: cl_kernel; param_name: KernelExecInfoArm; param_value_size: UIntPtr; param_value: IntPtr): ErrorCode :=
     z_SetKernelExecInfoARM_ovr_0(kernel, param_name, param_value_size, param_value);
     
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clAcceleratorINTEL = static class
     public const _ExtStr = 'intel_accelerator';
     
@@ -11651,6 +12009,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clGlEventKHR = static class
     public const _ExtStr = 'khr_gl_event';
     
@@ -11662,6 +12021,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clVaApiMediaSharingINTEL = static class
     public const _ExtStr = 'intel_va_api_media_sharing';
     
@@ -12138,6 +12498,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clDx9MediaSharingINTEL = static class
     public const _ExtStr = 'intel_dx9_media_sharing';
     
@@ -12614,6 +12975,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clGlSharingKHR = static class
     public const _ExtStr = 'khr_gl_sharing';
     
@@ -13168,6 +13530,7 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   clUnifiedSharedMemoryINTEL = static class
     public const _ExtStr = 'intel_unified_shared_memory';
     
@@ -13400,59 +13763,6 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMemcpyINTEL(command_queue: cl_command_queue; blocking: Bool; dst_ptr: IntPtr; src_ptr: IntPtr; size: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
     z_EnqueueMemcpyINTEL_ovr_8(command_queue, blocking, dst_ptr, src_ptr, size, num_events_in_wait_list, event_wait_list, &event);
     
-    private static function z_EnqueueMigrateMemINTEL_ovr_0(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000011(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
-    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
-      if (&event<>nil) and (&event.Length<>0) then
-        z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event[0]) else
-        z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
-      if (&event<>nil) and (&event.Length<>0) then
-        z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
-        z_EnqueueMigrateMemINTEL_ovr_0_anh00000011(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
-    private static function z_EnqueueMigrateMemINTEL_ovr_1_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
-    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
-      z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event) else
-      z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event);
-    private static function z_EnqueueMigrateMemINTEL_ovr_2(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    private static function z_EnqueueMigrateMemINTEL_ovr_2_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
-    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
-      z_EnqueueMigrateMemINTEL_ovr_2(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event) else
-      z_EnqueueMigrateMemINTEL_ovr_2_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
-    if (&event<>nil) and (&event.Length<>0) then
-      z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event[0]) else
-      z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
-    z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
-    z_EnqueueMigrateMemINTEL_ovr_2(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueMigrateMemINTEL_ovr_6(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    private static function z_EnqueueMigrateMemINTEL_ovr_6_anh00000001(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
-    if (&event<>nil) and (&event.Length<>0) then
-      z_EnqueueMigrateMemINTEL_ovr_6(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event[0]) else
-      z_EnqueueMigrateMemINTEL_ovr_6_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
-    z_EnqueueMigrateMemINTEL_ovr_6(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
-    private static function z_EnqueueMigrateMemINTEL_ovr_8(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
-    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
-    z_EnqueueMigrateMemINTEL_ovr_8(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
-    
     private static function z_EnqueueMemAdviseINTEL_ovr_0(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; advice: UInt32; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
     external 'opencl.dll' name 'clEnqueueMemAdviseINTEL';
     private static function z_EnqueueMemAdviseINTEL_ovr_0_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; advice: UInt32; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
@@ -13506,6 +13816,873 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMemAdviseINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; advice: UInt32; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
     z_EnqueueMemAdviseINTEL_ovr_8(command_queue, ptr, size, advice, num_events_in_wait_list, event_wait_list, &event);
     
+    private static function z_EnqueueMigrateMemINTEL_ovr_0(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    private static function z_EnqueueMigrateMemINTEL_ovr_0_anh00000011(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+        z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+        z_EnqueueMigrateMemINTEL_ovr_0_anh00000011(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueMigrateMemINTEL_ovr_1_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueMigrateMemINTEL_ovr_0_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueMigrateMemINTEL_ovr_2(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    private static function z_EnqueueMigrateMemINTEL_ovr_2_anh00000010(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueMigrateMemINTEL_ovr_2(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueMigrateMemINTEL_ovr_2_anh00000010(command_queue, ptr, size, flags, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueMigrateMemINTEL_ovr_0_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueMigrateMemINTEL_ovr_0(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueMigrateMemINTEL_ovr_2(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueMigrateMemINTEL_ovr_6(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    private static function z_EnqueueMigrateMemINTEL_ovr_6_anh00000001(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueMigrateMemINTEL_ovr_6(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueMigrateMemINTEL_ovr_6_anh00000001(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueMigrateMemINTEL_ovr_6(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueMigrateMemINTEL_ovr_8(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueMigrateMemINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueMigrateMemINTEL(command_queue: cl_command_queue; ptr: IntPtr; size: UIntPtr; flags: MemMigrationFlags; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueMigrateMemINTEL_ovr_8(command_queue, ptr, size, flags, num_events_in_wait_list, event_wait_list, &event);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  clCreateBufferWithPropertiesINTEL = static class
+    public const _ExtStr = 'intel_create_buffer_with_properties';
+    
+    private static function z_CreateBufferWithPropertiesINTEL_ovr_0(context: cl_context; var properties: MemPropertiesIntel; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    external 'opencl.dll' name 'clCreateBufferWithPropertiesINTEL';
+    private static function z_CreateBufferWithPropertiesINTEL_ovr_0_anh0010000(context: cl_context; properties: IntPtr; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    external 'opencl.dll' name 'clCreateBufferWithPropertiesINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithPropertiesINTEL(context: cl_context; properties: array of MemPropertiesIntel; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    if (properties<>nil) and (properties.Length<>0) then
+      z_CreateBufferWithPropertiesINTEL_ovr_0(context, properties[0], flags, size, host_ptr, errcode_ret) else
+      z_CreateBufferWithPropertiesINTEL_ovr_0_anh0010000(context, IntPtr.Zero, flags, size, host_ptr, errcode_ret);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithPropertiesINTEL(context: cl_context; var properties: MemPropertiesIntel; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    z_CreateBufferWithPropertiesINTEL_ovr_0(context, properties, flags, size, host_ptr, errcode_ret);
+    private static function z_CreateBufferWithPropertiesINTEL_ovr_2(context: cl_context; properties: IntPtr; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem;
+    external 'opencl.dll' name 'clCreateBufferWithPropertiesINTEL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferWithPropertiesINTEL(context: cl_context; properties: IntPtr; flags: MemFlags; size: UIntPtr; host_ptr: IntPtr; var errcode_ret: ErrorCode): cl_mem :=
+    z_CreateBufferWithPropertiesINTEL_ovr_2(context, properties, flags, size, host_ptr, errcode_ret);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  clGenerateMipmapIMG = static class
+    public const _ExtStr = 'img_generate_mipmap';
+    
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list[0], &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010011(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+          if (&event<>nil) and (&event.Length<>0) then
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+            z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011011(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_1_anh0000011010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_2_anh0000011010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+        if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+          z_EnqueueGenerateMipmapIMG_ovr_2_anh0000011010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_3_anh0000011001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_4_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_4_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_4_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_5_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_5_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_5_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_6_anh0000011001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_6_anh0000011001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_7_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_7_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_7_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_8(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_8_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_8_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_8_anh0000011000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_8(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_8_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event) else
+      if (mip_region<>nil) and (mip_region.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_8_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_8_anh0000011000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_9_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_9_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_9_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_9_anh0000010011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010011(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_10_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_10_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_11_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_11_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_12_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_12_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_13_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_0_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_14_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_2_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_15_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_15_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_16_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_6_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_17_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_8(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_8_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010011(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_19_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_19_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_19_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_20(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_20_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_20_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_20_anh0000010010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_20(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_20_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_20_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_20_anh0000010010(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_21_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_21_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_22_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_18_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_23_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_20(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_20_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_24(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_24_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_24_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_24_anh0000010001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_24(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_24_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_24_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_24_anh0000010001(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_25_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_24(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_24_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_26(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_26_anh0000010000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: array of UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    if (array_region<>nil) and (array_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_26(command_queue, src_image, dst_image, mipmap_filter_mode, array_region[0], mip_region, num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_26_anh0000010000(command_queue, src_image, dst_image, mipmap_filter_mode, IntPtr.Zero, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_0_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_2_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_6_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_8(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_8_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_2_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_0_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_0(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_2(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_6_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_6(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_8(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_20(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_20_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_18_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_18(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_20(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_24(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_24_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_24(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; var array_region: UIntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_26(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+        if (&event<>nil) and (&event.Length<>0) then
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+          z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_55_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_55_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_55_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_56(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_56_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_56_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_56_anh0000001010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_56(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_56_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, IntPtr.Zero, &event) else
+      if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_56_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list[0], &event) else
+        z_EnqueueGenerateMipmapIMG_ovr_56_anh0000001010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_57_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_57_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_58_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_54_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_59_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_56(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_56_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_60(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_60_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_60_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_60_anh0000001001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_60(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_60_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_60_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_60_anh0000001001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_61_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_60(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_60_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_62(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_62_anh0000001000(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: array of UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    if (mip_region<>nil) and (mip_region.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_62(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region[0], num_events_in_wait_list, event_wait_list, &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_62_anh0000001000(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, IntPtr.Zero, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_56(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_56_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_54_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_54(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_56(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_60(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_60_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_60(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; var mip_region: UIntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_62(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_72(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000011(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_72(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
+        z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000011(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_73_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_72(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_74(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_74_anh0000000010(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
+    if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_74(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list[0], &event) else
+      z_EnqueueGenerateMipmapIMG_ovr_74_anh0000000010(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_72(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_72_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_72(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_74(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_78(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    private static function z_EnqueueGenerateMipmapIMG_ovr_78_anh0000000001(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_EnqueueGenerateMipmapIMG_ovr_78(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event[0]) else
+      z_EnqueueGenerateMipmapIMG_ovr_78_anh0000000001(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_78(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    private static function z_EnqueueGenerateMipmapIMG_ovr_80(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
+    external 'opencl.dll' name 'clEnqueueGenerateMipmapIMG';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueGenerateMipmapIMG(command_queue: cl_command_queue; src_image: cl_mem; dst_image: cl_mem; mipmap_filter_mode: MipmapFilterModeImg; array_region: IntPtr; mip_region: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
+    z_EnqueueGenerateMipmapIMG_ovr_80(command_queue, src_image, dst_image, mipmap_filter_mode, array_region, mip_region, num_events_in_wait_list, event_wait_list, &event);
+    
   end;
   
   {$endregion Extensions}
diff --git a/bin/Lib/OpenCLABCBase.pas b/bin/Lib/OpenCLABCBase.pas
index 2e42692ce..a05e14bdc 100644
--- a/bin/Lib/OpenCLABCBase.pas
+++ b/bin/Lib/OpenCLABCBase.pas
@@ -19,6 +19,10 @@ unit OpenCLABCBase;
 //===================================
 // Обязательно сделать до следующего пула:
 
+//ToDo (Q1+Q2)+(Q3+Q4) почему то сейчас не инлайнится в Q1+Q2+Q3+Q4
+
+//ToDo При запуске когда открыт файл OpenCLABCBase - компилятор вылетает
+
 //===================================
 // Запланированное:
 
@@ -2133,7 +2137,7 @@ type
     public static function StartBackgroundWork(after: EventList; work: Action; c: cl_context; tsk: CLTaskBase{$ifdef EventDebug}; reason: string{$endif}): UserEvent;
     begin
       var res := MakeUserEvent(tsk, c
-        {$ifdef EventDebug}, $'BackgroundWork, executing {reason}'{$endif}
+        {$ifdef EventDebug}, $'BackgroundWork, executing {reason}, after waiting on: {after?.evs?.JoinToString}'{$endif}
       );
       
       var abort_thr_ev := new AutoResetEvent(false);
@@ -2300,13 +2304,17 @@ type
     end;
     public function TrySetEvBase(new_ev: EventList): QueueResBase; override := TrySetEv(new_ev);
     
-    public function EnsureAbortability(tsk: CLTaskBase; c: Context): QueueRes;
+    public function EnsureAbortability(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue): QueueRes;
     begin
       Result := self;
       if (ev.count<>0) and not ev.abortable then
-        Result := Result.TrySetEv(ev + UserEvent.MakeUserEvent(tsk, c.Native
+      begin
+        var uev := UserEvent.MakeUserEvent(tsk, c.Native
           {$ifdef EventDebug}, $'abortability of QueueRes with .ev: {ev.evs.JoinToString}'{$endif}
-        ));
+        );
+        ev.AttachFinallyCallback(()->uev.SetStatus(CommandExecutionStatus.COMPLETE), tsk, c.Native, main_dvc, cq{$ifdef EventDebug}, $'setting abort ev: {uev.uev}'{$endif});
+        Result := Result.TrySetEv(ev + uev);
+      end;
     end;
     
     public function LazyQuickTransform(f: T->T2): QueueRes; abstract;
@@ -2319,8 +2327,7 @@ type
   end;
   
   // Результат который просто есть
-  IQueueResConst = interface end;
-  QueueResConst = sealed class(QueueRes, IQueueResConst)
+  QueueResConst = sealed class(QueueRes)
     private res: T;
     
     public constructor(res: T; ev: EventList);
@@ -2342,10 +2349,7 @@ type
   end;
   
   // Результат который надо будет сначала дождаться, а потом ещё досчитать
-  IQueueResFunc = interface
-    function GetF: ()->object;
-  end;
-  QueueResFunc = sealed class(QueueRes, IQueueResFunc)
+  QueueResFunc = sealed class(QueueRes)
     private f: ()->T;
     
     public constructor(f: ()->T; ev: EventList);
@@ -2358,7 +2362,6 @@ type
     public function Clone: QueueRes; override := new QueueResFunc(f, ev);
     
     public function GetRes: T; override := f();
-    public function IQueueResFunc.GetF: ()->object := ()->f();
     
     public function LazyQuickTransform(f: T->T2): QueueRes; override :=
     new QueueResFunc(()->f(self.f()), self.ev);
@@ -2368,8 +2371,7 @@ type
   end;
   
   // Результат который будет сохранён куда то, надо только дождаться
-  IQueueResDelayed = interface end;
-  QueueResDelayedBase = abstract class(QueueRes, IQueueResDelayed)
+  QueueResDelayedBase = abstract class(QueueRes)
     
     public static function MakeNew(need_ptr_qr: boolean): QueueResDelayedBase;
     
@@ -2840,7 +2842,7 @@ type
     
     protected function Invoke(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueRes;
     begin
-      Result := InvokeImpl(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev).EnsureAbortability(tsk, c);
+      Result := InvokeImpl(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev).EnsureAbortability(tsk, c, main_dvc, cq);
       Result.ev.AttachCallback(self.ExecuteMWHandlers, tsk, c.Native, main_dvc, cq{$ifdef EventDebug}, $'ExecuteMWHandlers'{$endif}, false);
     end;
     protected function InvokeBase(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueResBase; override :=
@@ -3003,18 +3005,27 @@ type
   {$region Simple}
   
   ISimpleQueueArray = interface
-    function GetQS: array of CommandQueueBase;
+    function GetQS: sequence of CommandQueueBase;
   end;
   SimpleQueueArray = abstract class(CommandQueue, ISimpleQueueArray)
     protected qs: array of CommandQueueBase;
+    protected last: CommandQueue;
     
-    public constructor(params qs: array of CommandQueueBase) := self.qs := qs;
+    public constructor(params qs: array of CommandQueueBase);
+    begin
+      self.qs := new CommandQueueBase[qs.Length-1];
+      System.Array.Copy(qs, self.qs, qs.Length-1);
+      self.last := qs[qs.Length-1].Cast&;
+    end;
     private constructor := raise new InvalidOperationException($'Был вызван не_применимый конструктор без параметров... Обратитесь к разработчику OpenCLABC');
     
-    public function GetQS: array of CommandQueueBase := qs;
+    public function GetQS: sequence of CommandQueueBase := qs.Append(last as CommandQueueBase); //ToDo #? https://github.com/pascalabcnet/pascalabcnet/issues?q=extensionmethod+is%3Aclosed
     
-    protected procedure RegisterWaitables(tsk: CLTaskBase; prev_hubs: HashSet); override :=
-    foreach var q in qs do q.RegisterWaitables(tsk, prev_hubs);
+    protected procedure RegisterWaitables(tsk: CLTaskBase; prev_hubs: HashSet); override;
+    begin
+      foreach var q in qs do q.RegisterWaitables(tsk, prev_hubs);
+      last.RegisterWaitables(tsk, prev_hubs);
+    end;
     
   end;
   
@@ -3024,10 +3035,10 @@ type
     protected function InvokeImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueRes; override;
     begin
       
-      for var i := 0 to qs.Length-2 do
+      for var i := 0 to qs.Length-1 do
         prev_ev := qs[i].InvokeBase(tsk, c, main_dvc, false, cq, prev_ev).ev;
       
-      Result := (qs[qs.Length-1] as CommandQueue).Invoke(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev);
+      Result := last.Invoke(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev);
     end;
     
   end;
@@ -3037,15 +3048,15 @@ type
     
     protected function InvokeImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueRes; override;
     begin
-      if (prev_ev<>nil) and (prev_ev.count<>0) then loop qs.Length-1 do prev_ev.Retain({$ifdef EventDebug}$'for all async branches'{$endif});
-      var evs := new EventList[qs.Length];
+      if (prev_ev<>nil) and (prev_ev.count<>0) then loop qs.Length do prev_ev.Retain({$ifdef EventDebug}$'for all async branches'{$endif});
+      var evs := new EventList[qs.Length+1];
       
-      for var i := 0 to qs.Length-2 do
+      for var i := 0 to qs.Length-1 do
         evs[i] := qs[i].InvokeNewQBase(tsk, c, main_dvc, false, prev_ev).ev;
       
       // Используем внешнюю cq, чтобы не создавать лишнюю
-      Result := (qs[qs.Length-1] as CommandQueue).Invoke(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev);
-      evs[evs.Length-1] := Result.ev;
+      Result := last.Invoke(tsk, c, main_dvc, need_ptr_qr, cq, prev_ev);
+      evs[qs.Length] := Result.ev;
       
       Result := Result.TrySetEv( EventList.Combine(evs, tsk, c.Native, main_dvc, cq) ?? new EventList );
     end;
@@ -3698,7 +3709,7 @@ type
   {$region Base}
   
   GPUCommandContainer = class;
-  GPUCommandContainerBody = abstract class
+  GPUCommandContainerCore = abstract class
     private cc: GPUCommandContainer;
     
     protected function Invoke(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueRes; abstract;
@@ -3708,7 +3719,7 @@ type
   end;
   
   GPUCommandContainer = abstract class(CommandQueue)
-    protected body: GPUCommandContainerBody;
+    protected body: GPUCommandContainerCore;
     protected commands := new List>;
     
     {$region def}
@@ -4120,31 +4131,39 @@ type
   
   {$region Enqueueable's}
   
-  EnqueueableGPUCommand = abstract class(GPUCommand)
+  {$region Core}
+  
+  IEnqueueable = interface
     
-    // Если это True - InvokeParams должен возращать (...)->cl_event.Zero
-    // Иначе останется ивент, который никто не удалил
-    protected function NeedThread: boolean; virtual := false;
+    function NeedThread: boolean;
     
-    private function MakeEvList(exp_size: integer; start_ev: EventList): List;
+    function ParamCountL1: integer;
+    function ParamCountL2: integer;
+    
+    function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (cl_command_queue, EventList, TInvData)->cl_event;
+    
+  end;
+  //ToDo EnqueueableCore это таки статический класс, а шаблонным надо сделать метод Invoke
+  EnqueueableCore = sealed class
+  where TEnq: IEnqueueable;
+    
+    private constructor := raise new InvalidOperationException($'Был вызван не_применимый конструктор без параметров... Обратитесь к разработчику OpenCLABC');
+    
+    private static function MakeEvList(exp_size: integer; start_ev: EventList): List;
     begin
       var need_start_ev := (start_ev<>nil) and (start_ev.count<>0);
       Result := new List(exp_size + integer(need_start_ev));
       if need_start_ev then Result += start_ev;
     end;
-    protected function ParamCountL1: integer; abstract;
-    protected function ParamCountL2: integer; abstract;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (T, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; abstract;
-    
-    protected function Invoke(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; prev_qr: QueueRes; l2_start_ev: EventList): EventList;
+    public static function Invoke(q: TEnq; inv_data: TInvData; tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; l1_start_ev, l2_start_ev: EventList): EventList;
     begin
-      var need_thread := self.NeedThread;
+      var need_thread := q.NeedThread;
       
-      var evs_l1 := MakeEvList(ParamCountL1, prev_qr.ev); // ожидание до Enqueue
-      var evs_l2 := MakeEvList(ParamCountL2, l2_start_ev); // ожидание, передаваемое в Enqueue
+      var evs_l1 := MakeEvList(q.ParamCountL1, l1_start_ev); // Ожидание, перед вызовом  cl.Enqueue*
+      var evs_l2 := MakeEvList(q.ParamCountL2, l2_start_ev); // Ожидание, передаваемое в cl.Enqueue*
       
-      var enq_f := InvokeParams(tsk, c, main_dvc, cq, evs_l1, evs_l2);
+      var enq_f := q.InvokeParams(tsk, c, main_dvc, cq, evs_l1, evs_l2);
       var ev_l1 := EventList.Combine(evs_l1, tsk, c.Native, main_dvc, cq);
       var ev_l2 := EventList.Combine(evs_l2, tsk, c.Native, main_dvc, cq) ?? new EventList;
       
@@ -4152,15 +4171,13 @@ type
       
       if not need_thread and (ev_l1=nil) then
       begin
-        Result := enq_f(prev_qr.GetRes, cq, tsk, c, ev_l2);
+        var enq_ev := enq_f(cq, ev_l2, inv_data);
         {$ifdef EventDebug}
-        EventDebug.RegisterEventRetain(Result.evs.Single, $'Enq by {self.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
+        EventDebug.RegisterEventRetain(enq_ev, $'Enq by {q.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
         {$endif EventDebug}
-        Result.abortable := true; // ev_l2 тут всегда напрямую передаётся в cl.Enqueue*... и ev_l2.abortable всегда true
-        //ToDo С другой стороны, если ev_l2 абортится - получаем CL_EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST в качестве статуса
-        // - Надо бы проверить как это всё работает
-        // - Наверное надо возвращать в Result не только результат enq_f, но и ev_l2, чтоб SmartStatusErr видел другие ивенты
-        // - Ну и не забыть в .Get* так же поменять. Или лучше объединить этот дубль кода, сколько можно...
+        // 1. ev_l2 можно освобождать только после выполнения команды, ожидающей его
+        // 2. Если ивент из ev_l2 завершится с ошибкой - enq_ev скажет только что была ошибка в ev_l2, но не скажет какая
+        Result := ev_l2 + enq_ev;
       end else
       begin
         var res_ev: UserEvent;
@@ -4170,24 +4187,31 @@ type
         cq := cl_command_queue.Zero;
         
         if need_thread then
-          res_ev := UserEvent.StartBackgroundWork(ev_l1, ()->enq_f(prev_qr.GetRes, lcq, tsk, c, ev_l2), c.Native, tsk
-            {$ifdef EventDebug}, $'enq of {self.GetType}'{$endif}
-          ) else
+          res_ev := UserEvent.StartBackgroundWork(ev_l1, ()->
+          begin
+            enq_f(lcq, ev_l2, inv_data);
+            ev_l2.Release({$ifdef EventDebug}$'after using in blocking enq of {q.GetType}'{$endif});
+          end, c.Native, tsk{$ifdef EventDebug}, $'blocking enq of {q.GetType}, ev_l2 = [{ev_l2.evs?.JoinToString}]'{$endif}) else
         begin
           res_ev := tsk.MakeUserEvent(c.Native
-            {$ifdef EventDebug}, $'{self.GetType}, temp for nested AttachCallback: [{ev_l1?.evs.JoinToString}], then [{ev_l2.evs?.JoinToString}]'{$endif}
+            {$ifdef EventDebug}, $'{q.GetType}, temp for nested AttachCallback: [{ev_l1?.evs.JoinToString}], then [{ev_l2.evs?.JoinToString}]'{$endif}
           );
           
           //ВНИМАНИЕ "ev_l1=nil" не может случится, из за условий выше
           ev_l1.AttachCallback(()->
           begin
-            ev_l1.Release({$ifdef EventDebug}$'after waiting before Enq of {self.GetType}'{$endif});
-            var enq_ev := enq_f(prev_qr.GetRes, lcq, tsk, c, ev_l2);
+            ev_l1.Release({$ifdef EventDebug}$'after waiting before Enq of {q.GetType}'{$endif});
+            var enq_ev := enq_f(lcq, ev_l2, inv_data);
             {$ifdef EventDebug}
-            EventDebug.RegisterEventRetain(enq_ev, $'Enq by {self.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
+            EventDebug.RegisterEventRetain(enq_ev, $'Enq by {q.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
             {$endif EventDebug}
-            EventList.AttachCallback(enq_ev, ()->res_ev.SetStatus(CommandExecutionStatus.COMPLETE), tsk, true{$ifdef EventDebug}, $'propagating Enq ev of {self.GetType} to res_ev: {res_ev.uev}'{$endif});
-          end, tsk, c.Native, main_dvc, lcq{$ifdef EventDebug}, $'calling Enq of {self.GetType}'{$endif});
+            var final_ev := ev_l2+enq_ev;
+            final_ev.AttachCallback(()->
+            begin
+              final_ev.Release({$ifdef EventDebug}$'after waiting to set {res_ev.uev} of nested AttachCallback in Enq of {q.GetType}'{$endif});
+              res_ev.SetStatus(CommandExecutionStatus.COMPLETE);
+            end, tsk, c.Native, main_dvc, lcq{$ifdef EventDebug}, $'propagating Enq ev of {q.GetType} to res_ev: {res_ev.uev}'{$endif});
+          end, tsk, c.Native, main_dvc, lcq{$ifdef EventDebug}, $'calling Enq of {q.GetType}'{$endif});
           
         end;
         
@@ -4195,11 +4219,48 @@ type
         begin
           System.Threading.Tasks.Task.Run(()->tsk.AddErr(cl.ReleaseCommandQueue(lcq)));
         end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        Result := res_ev; //ВНИМАНИЕ: "Result.abortable" тут установлено автоматически
+        Result := res_ev;
       end;
       
     end;
     
+  end;
+  
+  {$endregion Core}
+  
+  {$region GPUCommand}
+  
+  EnqueueableGPUCommandInvData = record
+    qr: QueueRes;
+    tsk: CLTaskBase;
+    c: Context;
+  end;
+  EnqueueableGPUCommand = abstract class(GPUCommand, IEnqueueable>)
+    
+    // Если это True - InvokeParamsImpl должен возращать (...)->cl_event.Zero
+    // Иначе останется ивент, который никто не удалил
+    public function NeedThread: boolean; virtual := false;
+    
+    public function ParamCountL1: integer; abstract;
+    public function ParamCountL2: integer; abstract;
+    
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (T, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; abstract;
+    public function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (cl_command_queue, EventList, EnqueueableGPUCommandInvData)->cl_event;
+    begin
+      var enq_f := InvokeParamsImpl(tsk, c, main_dvc, cq, evs_l1, evs_l2);
+      Result := (lcq, ev, data)->enq_f(data.qr.GetRes, lcq, data.tsk, data.c, ev);
+    end;
+    
+    protected function Invoke(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; prev_qr: QueueRes; l2_start_ev: EventList): EventList;
+    begin
+      var inv_data: EnqueueableGPUCommandInvData;
+      inv_data.qr  := prev_qr;
+      inv_data.tsk := tsk;
+      inv_data.c   := c;
+      
+      Result := EnqueueableCore&, EnqueueableGPUCommandInvData>.Invoke(self, inv_data, tsk, c, main_dvc, cq, prev_qr.ev, l2_start_ev);
+    end;
+    
     protected function InvokeObj(o: T; tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; prev_ev: EventList): EventList; override :=
     Invoke(tsk, c, main_dvc, cq, new QueueResConst(o, nil), prev_ev);
     
@@ -4208,94 +4269,55 @@ type
     
   end;
   
-  EnqueueableGetCommand = abstract class(CommandQueue)
+  {$endregion GPUCommand}
+  
+  {$region GetCommand}
+  
+  //ToDo Может отдельный тип для ForcePtrQr?
+  EnqueueableGetCommandInvData = record
+    prev_qr: QueueRes;
+    tsk: CLTaskBase;
+    res_qr: QueueResDelayedBase;
+  end;
+  EnqueueableGetCommand = abstract class(CommandQueue, IEnqueueable>)
     protected prev_commands: GPUCommandContainer;
     
     public constructor(prev_commands: GPUCommandContainer) :=
     self.prev_commands := prev_commands;
     
-    // Если это True - InvokeParams должен возращать (...)->cl_event.Zero
+    // Если это True - InvokeParamsImpl должен возращать (...)->cl_event.Zero
     // Иначе останется ивент, который никто не удалил
-    protected function NeedThread: boolean; virtual := false;
+    public function NeedThread: boolean; virtual := false;
     
-    protected function ForcePtrQr: boolean; virtual := false;
+    public function ParamCountL1: integer; abstract;
+    public function ParamCountL2: integer; abstract;
     
-    private function MakeEvList(exp_size: integer; start_ev: EventList): List;
+    public function ForcePtrQr: boolean; virtual := false;
+    
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (TObj, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; abstract;
+    public function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (cl_command_queue, EventList, EnqueueableGetCommandInvData)->cl_event;
     begin
-      var need_start_ev := (start_ev<>nil) and (start_ev.count<>0);
-      Result := new List(exp_size + integer(need_start_ev));
-      if need_start_ev then Result += start_ev;
+      var enq_f := InvokeParamsImpl(tsk, c, main_dvc, cq, evs_l1, evs_l2);
+      Result := (lcq, ev, data)->enq_f(data.prev_qr.GetRes, lcq, data.tsk, ev, data.res_qr);
     end;
-    protected function ParamCountL1: integer; abstract;
-    protected function ParamCountL2: integer; abstract;
-    
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (TObj, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; abstract;
     
     protected function InvokeImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; need_ptr_qr: boolean; var cq: cl_command_queue; prev_ev: EventList): QueueRes; override;
     begin
-      var need_thread := self.NeedThread;
       var prev_qr := prev_commands.Invoke(tsk, c, main_dvc, false, cq, prev_ev);
       
-      var evs_l1 := MakeEvList(ParamCountL1, prev_qr.ev); // ожидание до Enqueue
-      var evs_l2 := MakeEvList(ParamCountL2, nil); // ожидание, передаваемое в Enqueue
-      
-      var enq_f := InvokeParams(tsk, c, main_dvc, cq, evs_l1, evs_l2);
-      var ev_l1 := EventList.Combine(evs_l1, tsk, c.Native, main_dvc, cq);
-      var ev_l2 := EventList.Combine(evs_l2, tsk, c.Native, main_dvc, cq) ?? new EventList;
-      
-      NativeUtils.FixCQ(c.Native, main_dvc, cq);
-      
-      var qr := QueueResDelayedBase&.MakeNew(need_ptr_qr or ForcePtrQr);
-      Result := qr;
-      
-      if not need_thread and (ev_l1=nil) then
-      begin
-        Result.ev := enq_f(prev_qr.GetRes, cq, tsk, ev_l2, qr);
-        {$ifdef EventDebug}
-        EventDebug.RegisterEventRetain(Result.ev.evs.Single, $'Enq by {self.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
-        {$endif EventDebug}
-        Result.ev.abortable := true; //ToDo та же история что выше
-      end else
-      begin
-        var res_ev: UserEvent;
-        
-        // Асинхронное Enqueue, придётся пересоздать cq
-        var lcq := cq;
-        cq := cl_command_queue.Zero;
-        
-        if need_thread then
-          res_ev := UserEvent.StartBackgroundWork(ev_l1, ()->enq_f(prev_qr.GetRes, lcq, tsk, ev_l2, qr), c.Native, tsk
-            {$ifdef EventDebug}, $'enq of {self.GetType}'{$endif}
-          ) else
-        begin
-          res_ev := tsk.MakeUserEvent(c.Native
-            {$ifdef EventDebug}, $'{self.GetType}, temp for nested AttachCallback: [{ev_l1?.evs.JoinToString}], then [{ev_l2.evs?.JoinToString}]'{$endif}
-          );
-          
-          //ВНИМАНИЕ "ev_l1=nil" не может случится, из за условий выше
-          ev_l1.AttachCallback(()->
-          begin
-            ev_l1.Release({$ifdef EventDebug}$'after waiting before Enq of {self.GetType}'{$endif});
-            var enq_ev := enq_f(prev_qr.GetRes, lcq, tsk, ev_l2, qr);
-            {$ifdef EventDebug}
-            EventDebug.RegisterEventRetain(enq_ev, $'Enq by {self.GetType}, waiting on [{ev_l2.evs?.JoinToString}]');
-            {$endif EventDebug}
-            EventList.AttachCallback(enq_ev, ()->res_ev.SetStatus(CommandExecutionStatus.COMPLETE), tsk, true{$ifdef EventDebug}, $'propagating Enq ev of {self.GetType} to res_ev: {res_ev.uev}'{$endif});
-          end, tsk, c.Native, main_dvc, lcq{$ifdef EventDebug}, $'calling Enq of {self.GetType}'{$endif});
-          
-        end;
-        
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          System.Threading.Tasks.Task.Run(()->tsk.AddErr(cl.ReleaseCommandQueue(lcq)));
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        Result.ev := res_ev; //ВНИМАНИЕ: "Result.abortable" тут установлено автоматически
-      end;
+      var inv_data: EnqueueableGetCommandInvData;
+      inv_data.prev_qr  := prev_qr;
+      inv_data.tsk      := tsk;
+      inv_data.res_qr   := QueueResDelayedBase&.MakeNew(need_ptr_qr or ForcePtrQr);
       
+      Result := inv_data.res_qr;
+      Result.ev := EnqueueableCore&, EnqueueableGetCommandInvData>.Invoke(self, inv_data, tsk, c, main_dvc, cq, prev_qr.ev, nil);
     end;
     
   end;
   
+  {$endregion GetCommand}
+  
   {$endregion Enqueueable's}
   
   {$region KernelArg}
@@ -4418,7 +4440,7 @@ begin
     var uev := tsk.MakeUserEvent(c
       {$ifdef EventDebug}, $'abortability of EventList.Combine of: {Result.evs.Take(Result.count).JoinToString}'{$endif}
     );
-    Result.AttachCallback(()->uev.SetStatus(CommandExecutionStatus.COMPLETE), tsk, c, main_dvc, cq
+    Result.AttachFinallyCallback(()->uev.SetStatus(CommandExecutionStatus.COMPLETE), tsk, c, main_dvc, cq
       {$ifdef EventDebug}, $'setting abort ev: {uev.uev}'{$endif}
     );
     Result += cl_event(uev);
@@ -4739,10 +4761,10 @@ new CommandQueueThenWaitFor(self, new WCQWaiterAny(qs.ToArray));
 
 {$endregion Queue converter's}
 
-{$region GPUCommandContainerBody}
+{$region GPUCommandContainerCore}
 
 type
-  CCBObj = sealed class(GPUCommandContainerBody)
+  CCCObj = sealed class(GPUCommandContainerCore)
     public o: T;
     
     public constructor(o: T; cc: GPUCommandContainer);
@@ -4765,7 +4787,7 @@ type
     protected procedure RegisterWaitables(tsk: CLTaskBase; prev_hubs: HashSet); override := exit;
     
   end;
-  CCBQueue = sealed class(GPUCommandContainerBody)
+  CCCQueue = sealed class(GPUCommandContainerCore)
     public hub: MultiusableCommandQueueHub;
     
     public constructor(q: CommandQueue; cc: GPUCommandContainer);
@@ -4793,12 +4815,12 @@ type
   end;
   
 constructor GPUCommandContainer.Create(o: T) :=
-self.body := new CCBObj(o, self);
+self.body := new CCCObj(o, self);
 
 constructor GPUCommandContainer.Create(q: CommandQueue) :=
-self.body := new CCBQueue(q, self);
+self.body := new CCCQueue(q, self);
 
-{$endregion GPUCommandContainerBody}
+{$endregion GPUCommandContainerCore}
 
 {$region KernelArg}
 
@@ -5010,8 +5032,8 @@ type
   BufferCommandWriteDataAutoSize = sealed class(EnqueueableGPUCommand)
     private ptr: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue);
     begin
@@ -5019,9 +5041,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var ptr_qr := ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += ptr_qr.ev;
+      var ptr_qr := ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5035,11 +5057,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -5063,8 +5080,8 @@ type
   BufferCommandReadDataAutoSize = sealed class(EnqueueableGPUCommand)
     private ptr: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue);
     begin
@@ -5072,9 +5089,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var ptr_qr := ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += ptr_qr.ev;
+      var ptr_qr := ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5088,11 +5105,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -5118,8 +5130,8 @@ type
     private buff_offset: CommandQueue;
     private         len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 3;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 3;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue; buff_offset, len: CommandQueue);
     begin
@@ -5129,11 +5141,11 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=         ptr_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5149,11 +5161,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -5181,8 +5188,8 @@ type
     private buff_offset: CommandQueue;
     private         len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 3;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 3;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue; buff_offset, len: CommandQueue);
     begin
@@ -5192,11 +5199,11 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=         ptr_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5212,11 +5219,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -5264,8 +5266,8 @@ type
       Marshal.FreeHGlobal(new IntPtr(val));
     end;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(val: TRecord; buff_offset: CommandQueue);
     begin
@@ -5274,9 +5276,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += buff_offset_qr.ev;
+      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5290,11 +5292,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -5323,8 +5320,8 @@ type
     private         val: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 1;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 1;
     
     public constructor(val: CommandQueue; buff_offset: CommandQueue);
     begin
@@ -5333,10 +5330,10 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         val_qr :=         val.Invoke    (tsk, c, main_dvc,  True, cq, nil); evs_l2 +=         val_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var         val_qr :=         val.Invoke    (tsk, c, main_dvc,  True, cq, nil); (val_qr is QueueResDelayedPtr&?evs_l2:evs_l1).Add(val_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5355,7 +5352,6 @@ type
         
         EventList.AttachFinallyCallback(res_ev, ()->
         begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
           val_hnd.Free;
         end, tsk, false{$ifdef EventDebug}, nil{$endif});
         
@@ -5384,10 +5380,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5395,24 +5391,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5438,10 +5430,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5449,24 +5441,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5492,10 +5480,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5503,24 +5491,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0,0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0,0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5546,10 +5530,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5557,24 +5541,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5600,10 +5580,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5611,24 +5591,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5654,10 +5630,10 @@ type
   where TRecord: record;
     private a: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue);
     begin
@@ -5665,24 +5641,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += a_qr.ev;
+      var a_qr := a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
         var a := a_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
-            a[0,0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          UIntPtr.Zero, new UIntPtr(a.Length*Marshal.SizeOf&),
+          a[0,0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5711,10 +5683,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset, len, buff_offset: CommandQueue);
     begin
@@ -5725,12 +5697,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var    a_offset_qr :=    a_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=    a_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var    a_offset_qr :=    a_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5739,16 +5711,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5781,10 +5749,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 5;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 5;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset1,a_offset2, len, buff_offset: CommandQueue);
     begin
@@ -5796,13 +5764,13 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset1_qr.ev;
-      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset2_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset1_qr.ev);
+      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset2_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5812,16 +5780,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset1,a_offset2],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset1,a_offset2],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5856,10 +5820,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 6;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 6;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset1,a_offset2,a_offset3, len, buff_offset: CommandQueue);
     begin
@@ -5872,14 +5836,14 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset1_qr.ev;
-      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset2_qr.ev;
-      var   a_offset3_qr :=   a_offset3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset3_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset1_qr.ev);
+      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset2_qr.ev);
+      var   a_offset3_qr :=   a_offset3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset3_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5890,16 +5854,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueWriteBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset1,a_offset2,a_offset3],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueWriteBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset1,a_offset2,a_offset3],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -5933,10 +5893,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset, len, buff_offset: CommandQueue);
     begin
@@ -5947,12 +5907,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var    a_offset_qr :=    a_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=    a_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var    a_offset_qr :=    a_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -5961,16 +5921,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -6003,10 +5959,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 5;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 5;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset1,a_offset2, len, buff_offset: CommandQueue);
     begin
@@ -6018,13 +5974,13 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset1_qr.ev;
-      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset2_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset1_qr.ev);
+      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset2_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6034,16 +5990,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset1,a_offset2],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset1,a_offset2],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -6078,10 +6030,10 @@ type
     private         len: CommandQueue;
     private buff_offset: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 6;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 6;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(a: CommandQueue; a_offset1,a_offset2,a_offset3, len, buff_offset: CommandQueue);
     begin
@@ -6094,14 +6046,14 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=           a_qr.ev;
-      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset1_qr.ev;
-      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset2_qr.ev;
-      var   a_offset3_qr :=   a_offset3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   a_offset3_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
+      var           a_qr :=           a.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(a_qr.ev);
+      var   a_offset1_qr :=   a_offset1.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset1_qr.ev);
+      var   a_offset2_qr :=   a_offset2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset2_qr.ev);
+      var   a_offset3_qr :=   a_offset3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(a_offset3_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6112,16 +6064,12 @@ type
         var         len :=         len_qr.GetRes;
         var buff_offset := buff_offset_qr.GetRes;
         
-        try
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
-            a[a_offset1,a_offset2,a_offset3],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(buff_offset), new UIntPtr(len*Marshal.SizeOf&),
+          a[a_offset1,a_offset2,a_offset3],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -6156,8 +6104,8 @@ type
     private         ptr: CommandQueue;
     private pattern_len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue; pattern_len: CommandQueue);
     begin
@@ -6166,10 +6114,10 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=         ptr_qr.ev;
-      var pattern_len_qr := pattern_len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += pattern_len_qr.ev;
+      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
+      var pattern_len_qr := pattern_len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(pattern_len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6184,11 +6132,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6216,8 +6159,8 @@ type
     private buff_offset: CommandQueue;
     private         len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ptr: CommandQueue; pattern_len, buff_offset, len: CommandQueue);
     begin
@@ -6228,12 +6171,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=         ptr_qr.ev;
-      var pattern_len_qr := pattern_len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += pattern_len_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var         ptr_qr :=         ptr.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(ptr_qr.ev);
+      var pattern_len_qr := pattern_len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(pattern_len_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6250,11 +6193,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6287,8 +6225,8 @@ type
       Marshal.FreeHGlobal(new IntPtr(val));
     end;
     
-    protected function ParamCountL1: integer; override := 0;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 0;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(val: TRecord);
     begin
@@ -6296,7 +6234,7 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
       
       Result := (o, cq, tsk, c, evs)->
@@ -6310,11 +6248,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6345,8 +6278,8 @@ type
       Marshal.FreeHGlobal(new IntPtr(val));
     end;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(val: TRecord; buff_offset, len: CommandQueue);
     begin
@@ -6356,10 +6289,10 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6374,11 +6307,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6404,8 +6332,8 @@ type
   where TRecord: record;
     private val: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 0;
-    protected function ParamCountL2: integer; override := 1;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 1;
     
     public constructor(val: CommandQueue);
     begin
@@ -6413,9 +6341,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var val_qr := val.Invoke    (tsk, c, main_dvc,  True, cq, nil); evs_l2 += val_qr.ev;
+      var val_qr := val.Invoke    (tsk, c, main_dvc,  True, cq, nil); (val_qr is QueueResDelayedPtr&?evs_l2:evs_l1).Add(val_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6433,7 +6361,6 @@ type
         
         EventList.AttachFinallyCallback(res_ev, ()->
         begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
           val_hnd.Free;
         end, tsk, false{$ifdef EventDebug}, nil{$endif});
         
@@ -6463,8 +6390,8 @@ type
     private buff_offset: CommandQueue;
     private         len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 1;
+    public function ParamCountL1: integer; override := 3;
+    public function ParamCountL2: integer; override := 1;
     
     public constructor(val: CommandQueue; buff_offset, len: CommandQueue);
     begin
@@ -6474,11 +6401,11 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var         val_qr :=         val.Invoke    (tsk, c, main_dvc,  True, cq, nil); evs_l2 +=         val_qr.ev;
-      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var         val_qr :=         val.Invoke    (tsk, c, main_dvc,  True, cq, nil); (val_qr is QueueResDelayedPtr&?evs_l2:evs_l1).Add(val_qr.ev);
+      var buff_offset_qr := buff_offset.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6498,7 +6425,6 @@ type
         
         EventList.AttachFinallyCallback(res_ev, ()->
         begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
           val_hnd.Free;
         end, tsk, false{$ifdef EventDebug}, nil{$endif});
         
@@ -6531,8 +6457,8 @@ type
   BufferCommandCopyToAutoSize = sealed class(EnqueueableGPUCommand)
     private b: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(b: CommandQueue);
     begin
@@ -6540,9 +6466,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var b_qr := b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += b_qr.ev;
+      var b_qr := b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(b_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6556,11 +6482,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6584,8 +6505,8 @@ type
   BufferCommandCopyFormAutoSize = sealed class(EnqueueableGPUCommand)
     private b: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(b: CommandQueue);
     begin
@@ -6593,9 +6514,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var b_qr := b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += b_qr.ev;
+      var b_qr := b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(b_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6609,11 +6530,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6640,8 +6556,8 @@ type
     private   to_pos: CommandQueue;
     private      len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(b: CommandQueue; from_pos, to_pos, len: CommandQueue);
     begin
@@ -6652,12 +6568,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var        b_qr :=        b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=        b_qr.ev;
-      var from_pos_qr := from_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += from_pos_qr.ev;
-      var   to_pos_qr :=   to_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   to_pos_qr.ev;
-      var      len_qr :=      len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=      len_qr.ev;
+      var        b_qr :=        b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(b_qr.ev);
+      var from_pos_qr := from_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(from_pos_qr.ev);
+      var   to_pos_qr :=   to_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(to_pos_qr.ev);
+      var      len_qr :=      len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6674,11 +6590,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6708,8 +6619,8 @@ type
     private   to_pos: CommandQueue;
     private      len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(b: CommandQueue; from_pos, to_pos, len: CommandQueue);
     begin
@@ -6720,12 +6631,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var        b_qr :=        b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=        b_qr.ev;
-      var from_pos_qr := from_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += from_pos_qr.ev;
-      var   to_pos_qr :=   to_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   to_pos_qr.ev;
-      var      len_qr :=      len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=      len_qr.ev;
+      var        b_qr :=        b.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(b_qr.ev);
+      var from_pos_qr := from_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(from_pos_qr.ev);
+      var   to_pos_qr :=   to_pos.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(to_pos_qr.ev);
+      var      len_qr :=      len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -6742,11 +6653,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6776,8 +6682,8 @@ AddCommand(new BufferCommandCopyForm(b, from_pos, to_pos, len));
 type
   BufferCommandGetDataAutoSize = sealed class(EnqueueableGetCommand)
     
-    protected function ParamCountL1: integer; override := 0;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 0;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue);
     begin
@@ -6785,7 +6691,7 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
       
       Result := (o, cq, tsk, evs, own_qr)->
@@ -6803,11 +6709,6 @@ type
           evs.count, evs.evs, res_ev
         );
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6829,8 +6730,8 @@ type
     private buff_offset: CommandQueue;
     private         len: CommandQueue;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue; buff_offset, len: CommandQueue);
     begin
@@ -6840,10 +6741,10 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
-      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += buff_offset_qr.ev;
-      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=         len_qr.ev;
+      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(buff_offset_qr.ev);
+      var         len_qr :=         len.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
@@ -6860,11 +6761,6 @@ type
           evs.count, evs.evs, res_ev
         ).RaiseIfError;
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -6893,10 +6789,10 @@ type
   where TRecord: record;
     private buff_offset: CommandQueue;
     
-    protected function ForcePtrQr: boolean; override := true;
+    public function ForcePtrQr: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue; buff_offset: CommandQueue);
     begin
@@ -6905,9 +6801,9 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
-      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += buff_offset_qr.ev;
+      var buff_offset_qr := buff_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(buff_offset_qr.ev);
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
@@ -6925,7 +6821,6 @@ type
         
         EventList.AttachFinallyCallback(res_ev, ()->
         begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
           own_qr_hnd.Free;
         end, tsk, false{$ifdef EventDebug}, nil{$endif});
         
@@ -6952,10 +6847,10 @@ type
   BufferCommandGetArray1AutoSize = sealed class(EnqueueableGetCommand)
   where TRecord: record;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 0;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 0;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue);
     begin
@@ -6963,24 +6858,20 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
         
-        try
-          var len := o.Size64 div Marshal.SizeOf&;
-          var res := new TRecord[len]; own_qr.SetRes(res);
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(0), new UIntPtr(len * Marshal.SizeOf&),
-            res[0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        var len := o.Size64 div Marshal.SizeOf&;
+        var res := new TRecord[len]; own_qr.SetRes(res);
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(0), new UIntPtr(len * Marshal.SizeOf&),
+          res[0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -7003,10 +6894,10 @@ type
   where TRecord: record;
     private len: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 1;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 1;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue; len: CommandQueue);
     begin
@@ -7015,25 +6906,21 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
-      var len_qr := len.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += len_qr.ev;
+      var len_qr := len.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(len_qr.ev);
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
         var len := len_qr.GetRes;
         
-        try
-          var res := new TRecord[len]; own_qr.SetRes(res);
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(0), new UIntPtr(int64(len) * Marshal.SizeOf&),
-            res[0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        var res := new TRecord[len]; own_qr.SetRes(res);
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(0), new UIntPtr(int64(len) * Marshal.SizeOf&),
+          res[0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -7060,10 +6947,10 @@ type
     private len1: CommandQueue;
     private len2: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue; len1,len2: CommandQueue);
     begin
@@ -7073,27 +6960,23 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
-      var len1_qr := len1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += len1_qr.ev;
-      var len2_qr := len2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += len2_qr.ev;
+      var len1_qr := len1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(len1_qr.ev);
+      var len2_qr := len2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len2_qr.ev);
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
         var len1 := len1_qr.GetRes;
         var len2 := len2_qr.GetRes;
         
-        try
-          var res := new TRecord[len1,len2]; own_qr.SetRes(res);
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(0), new UIntPtr(int64(len1)*len2 * Marshal.SizeOf&),
-            res[0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        var res := new TRecord[len1,len2]; own_qr.SetRes(res);
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(0), new UIntPtr(int64(len1)*len2 * Marshal.SizeOf&),
+          res[0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -7122,10 +7005,10 @@ type
     private len2: CommandQueue;
     private len3: CommandQueue;
     
-    protected function NeedThread: boolean; override := true;
+    public function NeedThread: boolean; override := true;
     
-    protected function ParamCountL1: integer; override := 3;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 3;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(ccq: BufferCommandQueue; len1,len2,len3: CommandQueue);
     begin
@@ -7136,11 +7019,11 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Buffer, cl_command_queue, CLTaskBase, EventList, QueueResDelayedBase)->cl_event; override;
     begin
-      var len1_qr := len1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += len1_qr.ev;
-      var len2_qr := len2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += len2_qr.ev;
-      var len3_qr := len3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 += len3_qr.ev;
+      var len1_qr := len1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(len1_qr.ev);
+      var len2_qr := len2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len2_qr.ev);
+      var len3_qr := len3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(len3_qr.ev);
       
       Result := (o, cq, tsk, evs, own_qr)->
       begin
@@ -7148,17 +7031,13 @@ type
         var len2 := len2_qr.GetRes;
         var len3 := len3_qr.GetRes;
         
-        try
-          var res := new TRecord[len1,len2,len3]; own_qr.SetRes(res);
-          cl.EnqueueReadBuffer(
-            cq, o.Native, Bool.BLOCKING,
-            new UIntPtr(0), new UIntPtr(int64(len1)*len2*len3 * Marshal.SizeOf&),
-            res[0,0,0],
-            evs.count, evs.evs, IntPtr.Zero
-          ).RaiseIfError;
-        finally
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end;
+        var res := new TRecord[len1,len2,len3]; own_qr.SetRes(res);
+        cl.EnqueueReadBuffer(
+          cq, o.Native, Bool.BLOCKING,
+          new UIntPtr(0), new UIntPtr(int64(len1)*len2*len3 * Marshal.SizeOf&),
+          res[0,0,0],
+          evs.count, evs.evs, IntPtr.Zero
+        ).RaiseIfError;
         
         Result := cl_event.Zero;
       end;
@@ -7340,8 +7219,8 @@ type
     private  sz1: CommandQueue;
     private args: array of KernelArg;
     
-    protected function ParamCountL1: integer; override := 2;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 2;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(sz1: CommandQueue; params args: array of KernelArg);
     begin
@@ -7350,10 +7229,10 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=  sz1_qr.ev;
-      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1 += Result.ev; end);
+      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(sz1_qr.ev);
+      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1.Add(Result.ev); end);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -7385,11 +7264,6 @@ type
           end, tsk, false{$ifdef EventDebug}, nil{$endif});
         end);
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -7416,8 +7290,8 @@ type
     private  sz2: CommandQueue;
     private args: array of KernelArg;
     
-    protected function ParamCountL1: integer; override := 3;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 3;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(sz1,sz2: CommandQueue; params args: array of KernelArg);
     begin
@@ -7427,11 +7301,11 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=  sz1_qr.ev;
-      var  sz2_qr :=  sz2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=  sz2_qr.ev;
-      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1 += Result.ev; end);
+      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(sz1_qr.ev);
+      var  sz2_qr :=  sz2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(sz2_qr.ev);
+      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1.Add(Result.ev); end);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -7464,11 +7338,6 @@ type
           end, tsk, false{$ifdef EventDebug}, nil{$endif});
         end);
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -7497,8 +7366,8 @@ type
     private  sz3: CommandQueue;
     private args: array of KernelArg;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(sz1,sz2,sz3: CommandQueue; params args: array of KernelArg);
     begin
@@ -7509,12 +7378,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 +=  sz1_qr.ev;
-      var  sz2_qr :=  sz2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=  sz2_qr.ev;
-      var  sz3_qr :=  sz3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=  sz3_qr.ev;
-      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1 += Result.ev; end);
+      var  sz1_qr :=  sz1.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(sz1_qr.ev);
+      var  sz2_qr :=  sz2.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(sz2_qr.ev);
+      var  sz3_qr :=  sz3.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(sz3_qr.ev);
+      var args_qr := args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1.Add(Result.ev); end);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -7548,11 +7417,6 @@ type
           end, tsk, false{$ifdef EventDebug}, nil{$endif});
         end);
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
@@ -7582,8 +7446,8 @@ type
     private    local_work_size: CommandQueue;
     private               args: array of KernelArg;
     
-    protected function ParamCountL1: integer; override := 4;
-    protected function ParamCountL2: integer; override := 0;
+    public function ParamCountL1: integer; override := 4;
+    public function ParamCountL2: integer; override := 0;
     
     public constructor(global_work_offset, global_work_size, local_work_size: CommandQueue; params args: array of KernelArg);
     begin
@@ -7594,12 +7458,12 @@ type
     end;
     private constructor := raise new System.InvalidOperationException;
     
-    protected function InvokeParams(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
+    protected function InvokeParamsImpl(tsk: CLTaskBase; c: Context; main_dvc: cl_device_id; var cq: cl_command_queue; evs_l1, evs_l2: List): (Kernel, cl_command_queue, CLTaskBase, Context, EventList)->cl_event; override;
     begin
-      var global_work_offset_qr := global_work_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1 += global_work_offset_qr.ev;
-      var   global_work_size_qr :=   global_work_size.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=   global_work_size_qr.ev;
-      var    local_work_size_qr :=    local_work_size.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1 +=    local_work_size_qr.ev;
-      var               args_qr :=               args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1 += Result.ev; end);
+      var global_work_offset_qr := global_work_offset.Invoke    (tsk, c, main_dvc, False, cq, nil); evs_l1.Add(global_work_offset_qr.ev);
+      var   global_work_size_qr :=   global_work_size.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(global_work_size_qr.ev);
+      var    local_work_size_qr :=    local_work_size.InvokeNewQ(tsk, c, main_dvc, False,     nil); evs_l1.Add(local_work_size_qr.ev);
+      var               args_qr :=               args.ConvertAll(temp1->begin Result := temp1.Invoke(tsk, c, main_dvc); evs_l1.Add(Result.ev); end);
       
       Result := (o, cq, tsk, c, evs)->
       begin
@@ -7633,11 +7497,6 @@ type
           end, tsk, false{$ifdef EventDebug}, nil{$endif});
         end);
         
-        EventList.AttachFinallyCallback(res_ev, ()->
-        begin
-          evs.Release({$ifdef EventDebug}$'after use in waiting of {self.GetType}'{$endif});
-        end, tsk, false{$ifdef EventDebug}, nil{$endif});
-        
         Result := res_ev;
       end;
       
diff --git a/bin/Lib/OpenGL.pas b/bin/Lib/OpenGL.pas
index 09d7e025a..39a3bd673 100644
--- a/bin/Lib/OpenGL.pas
+++ b/bin/Lib/OpenGL.pas
@@ -33,457 +33,421 @@ type
   
   {$region Записи-имена}
   
-  GLsync = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLsync read default(GLsync);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLsync[{val}]';
+  //--------------------------------------------------
+  //                  Basic type's
+  //--------------------------------------------------
+  
+  gl_program = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_program read default(gl_program);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_program[{val}]';
   end;
-  GLeglImageOES = record
+  gl_program_pipeline = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_program_pipeline read default(gl_program_pipeline);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_program_pipeline[{val}]';
+  end;
+  gl_texture = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_texture read default(gl_texture);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_texture[{val}]';
+  end;
+  gl_buffer = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_buffer read default(gl_buffer);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_buffer[{val}]';
+  end;
+  gl_shader = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_shader read default(gl_shader);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_shader[{val}]';
+  end;
+  gl_query = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_query read default(gl_query);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_query[{val}]';
+  end;
+  gl_framebuffer = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_framebuffer read default(gl_framebuffer);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_framebuffer[{val}]';
+  end;
+  gl_renderbuffer = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_renderbuffer read default(gl_renderbuffer);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_renderbuffer[{val}]';
+  end;
+  gl_sampler = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_sampler read default(gl_sampler);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_sampler[{val}]';
+  end;
+  gl_transform_feedback = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_transform_feedback read default(gl_transform_feedback);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_transform_feedback[{val}]';
+  end;
+  gl_vertex_array = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_vertex_array read default(gl_vertex_array);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_vertex_array[{val}]';
+  end;
+  gl_sync = record
     public val: IntPtr;
     public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLeglImageOES read default(GLeglImageOES);
+    public static property Zero: gl_sync read default(gl_sync);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLeglImageOES[{val}]';
+    public function ToString: string; override := $'gl_sync[{val}]';
+  end;
+  gl_display_list = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    public static property Zero: gl_display_list read default(gl_display_list);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_display_list[{val}]';
   end;
   
-  QueryName = record
+  gl_handle_ARB = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
-    public static property Zero: QueryName read default(QueryName);
+    public static property Zero: gl_handle_ARB read default(gl_handle_ARB);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'QueryName[{val}]';
-  end;
-  BufferName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: BufferName read default(BufferName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'BufferName[{val}]';
-  end;
-  ShaderName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ShaderName read default(ShaderName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ShaderName[{val}]';
-  end;
-  ProgramName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ProgramName read default(ProgramName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ProgramName[{val}]';
-  end;
-  ProgramPipelineName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ProgramPipelineName read default(ProgramPipelineName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ProgramPipelineName[{val}]';
-  end;
-  TextureName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: TextureName read default(TextureName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'TextureName[{val}]';
-  end;
-  SamplerName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: SamplerName read default(SamplerName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'SamplerName[{val}]';
-  end;
-  FramebufferName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: FramebufferName read default(FramebufferName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'FramebufferName[{val}]';
-  end;
-  RenderbufferName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: RenderbufferName read default(RenderbufferName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'RenderbufferName[{val}]';
-  end;
-  VertexArrayName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: VertexArrayName read default(VertexArrayName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'VertexArrayName[{val}]';
-  end;
-  TransformFeedbackName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: TransformFeedbackName read default(TransformFeedbackName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'TransformFeedbackName[{val}]';
+    public function ToString: string; override := $'gl_handle_ARB[{val}]';
   end;
   
-  GLContext = record
+  // GL_NV_vdpau_interop
+  gl_vdpau_surface_NV = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: gl_vdpau_surface_NV read default(gl_vdpau_surface_NV);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_vdpau_surface_NV[{val}]';
+  end;
+  
+  // GL_INTEL_performance_query
+  gl_perf_query_id_INTEL = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
-    public static property Zero: GLContext read default(GLContext);
+    public static property Zero: gl_perf_query_id_INTEL read default(gl_perf_query_id_INTEL);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLContext[{val}]';
+    public function ToString: string; override := $'gl_perf_query_id_INTEL[{val}]';
   end;
-  GDI_DC = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GDI_DC read default(GDI_DC);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GDI_DC[{val}]';
-  end;
-  
-  //	типы	для	совместимости	с	OpenCL
-  ///--
-  cl_context = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: cl_context read default(cl_context);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'cl_context[{val}]';
-  end;
-  ///--
-  cl_event = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: cl_event read default(cl_event);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'cl_event[{val}]';
-  end;
-  
-  
-  
-  
-  
-  //	INTEL_performance_query
-  PerfQueryIdINTEL = record
+  gl_perf_query_handle_INTEL = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
-    public static property Zero: PerfQueryIdINTEL read default(PerfQueryIdINTEL);
+    public static property Zero: gl_perf_query_handle_INTEL read default(gl_perf_query_handle_INTEL);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PerfQueryIdINTEL[{val}]';
+    public function ToString: string; override := $'gl_perf_query_handle_INTEL[{val}]';
   end;
-  PerfQueryHandleINTEL = record
+  
+  //--------------------------------------------------
+  //                        cl
+  //--------------------------------------------------
+  
+  gl_cl_context = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: gl_cl_context read default(gl_cl_context);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_cl_context[{val}]';
+  end;
+  gl_cl_event = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: gl_cl_event read default(gl_cl_event);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gl_cl_event[{val}]';
+  end;
+  
+  //--------------------------------------------------
+  //                        wgl
+  //--------------------------------------------------
+  
+  // gdi
+  gdi_device_context = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: gdi_device_context read default(gdi_device_context);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gdi_device_context[{val}]';
+  end;
+  gdi_h_enh_metafile = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: gdi_h_enh_metafile read default(gdi_h_enh_metafile);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'gdi_h_enh_metafile[{val}]';
+  end;
+  
+  // core
+  wgl_context = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_context read default(wgl_context);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_context[{val}]';
+  end;
+  
+  // WGL_ARB_pbuffer
+  wgl_pbuffer_ARB = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_pbuffer_ARB read default(wgl_pbuffer_ARB);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_pbuffer_ARB[{val}]';
+  end;
+  wgl_pbuffer_EXT = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_pbuffer_EXT read default(wgl_pbuffer_EXT);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_pbuffer_EXT[{val}]';
+  end;
+  
+  // WGL_NV_gpu_affinity
+  wgl_GPU_NV = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_GPU_NV read default(wgl_GPU_NV);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_GPU_NV[{val}]';
+  end;
+  
+  // GL_NV_video_capture
+  // WGL_NV_video_capture
+  wgl_h_video_input_device_NV = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_h_video_input_device_NV read default(wgl_h_video_input_device_NV);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_h_video_input_device_NV[{val}]';
+  end;
+  
+  // GL_NV_present_video
+  // WGL_NV_present_video
+  wgl_h_video_output_device_NV = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_h_video_output_device_NV read default(wgl_h_video_output_device_NV);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_h_video_output_device_NV[{val}]';
+  end;
+  
+  // WGL_NV_video_output
+  wgl_h_video_device_NV = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: wgl_h_video_device_NV read default(wgl_h_video_device_NV);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'wgl_h_video_device_NV[{val}]';
+  end;
+  
+  //--------------------------------------------------
+  //                        glx
+  //--------------------------------------------------
+  
+  // x
+  x_p_visual_info = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_p_visual_info read default(x_p_visual_info);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_p_visual_info[{val}]';
+  end;
+  x_p_display = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_p_display read default(x_p_display);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_p_display[{val}]';
+  end;
+  x_pixmap = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_pixmap read default(x_pixmap);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_pixmap[{val}]';
+  end;
+  x_font = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_font read default(x_font);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_font[{val}]';
+  end;
+  x_window = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_window read default(x_window);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_window[{val}]';
+  end;
+  x_dm_params = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_dm_params read default(x_dm_params);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_dm_params[{val}]';
+  end;
+  x_dm_buffer = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_dm_buffer read default(x_dm_buffer);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_dm_buffer[{val}]';
+  end;
+  x_colormap = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_colormap read default(x_colormap);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_colormap[{val}]';
+  end;
+  
+  //ToDo что это вообще за типы? я не могу найти ничего про них
+  x_vl_server = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_vl_server read default(x_vl_server);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_vl_server[{val}]';
+  end;
+  x_vl_path = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_vl_path read default(x_vl_path);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_vl_path[{val}]';
+  end;
+  x_vl_node = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: x_vl_node read default(x_vl_node);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'x_vl_node[{val}]';
+  end;
+  
+  // core
+  glx_context = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_context read default(glx_context);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_context[{val}]';
+  end;
+  glx_context_id = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_context_id read default(glx_context_id);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_context_id[{val}]';
+  end;
+  glx_drawable = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_drawable read default(glx_drawable);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_drawable[{val}]';
+  end;
+  glx_pixmap = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_pixmap read default(glx_pixmap);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_pixmap[{val}]';
+  end;
+  glx_fb_config = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_fb_config read default(glx_fb_config);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_fb_config[{val}]';
+  end;
+  glx_window = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_window read default(glx_window);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_window[{val}]';
+  end;
+  glx_pbuffer = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_pbuffer read default(glx_pbuffer);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_pbuffer[{val}]';
+  end;
+  
+  // GLX_NV_video_out
+  glx_video_device_NV = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
-    public static property Zero: PerfQueryHandleINTEL read default(PerfQueryHandleINTEL);
+    public static property Zero: glx_video_device_NV read default(glx_video_device_NV);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PerfQueryHandleINTEL[{val}]';
+    public function ToString: string; override := $'glx_video_device_NV[{val}]';
   end;
   
-  
-  //ToDo	переименовать	и	проверить	типы	всего	дальше:
-  
-  EGLsync = record
+  // GL_NV_video_capture
+  // GLX_NV_video_capture
+  glx_video_capture_device_NV = record
     public val: IntPtr;
     public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: EGLsync read default(EGLsync);
+    public static property Zero: glx_video_capture_device_NV read default(glx_video_capture_device_NV);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'EGLsync[{val}]';
-  end;
-  EGLDisplay = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: EGLDisplay read default(EGLDisplay);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'EGLDisplay[{val}]';
+    public function ToString: string; override := $'glx_video_capture_device_NV[{val}]';
   end;
   
-  ShaderBinaryFormat = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ShaderBinaryFormat read default(ShaderBinaryFormat);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ShaderBinaryFormat[{val}]';
-  end;
-  ProgramResourceIndex = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ProgramResourceIndex read default(ProgramResourceIndex);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ProgramResourceIndex[{val}]';
-  end;
-  ProgramBinaryFormat = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: ProgramBinaryFormat read default(ProgramBinaryFormat);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'ProgramBinaryFormat[{val}]';
+  // GLX_SGIX_video_source
+  glx_video_source_SGIX = record
+    public val: IntPtr;
+    public constructor(val: IntPtr) := self.val := val;
+    public static property Zero: glx_video_source_SGIX read default(glx_video_source_SGIX);
+    public static property Size: integer read Marshal.SizeOf&;
+    public function ToString: string; override := $'glx_video_source_SGIX[{val}]';
   end;
   
-  GLhandleARB = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: GLhandleARB read default(GLhandleARB);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLhandleARB[{val}]';
-  end;
-  PBufferName = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: PBufferName read default(PBufferName);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PBufferName[{val}]';
-  end;
-  HPVIDEODEV = record
+  //--------------------------------------------------
+  //                       egl
+  //--------------------------------------------------
+  
+  // GL_OES_EGL_image
+  egl_image_OES = record
     public val: IntPtr;
     public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: HPVIDEODEV read default(HPVIDEODEV);
+    public static property Zero: egl_image_OES read default(egl_image_OES);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'HPVIDEODEV[{val}]';
-  end;
-  HVIDEOOUTPUTDEVICENV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: HVIDEOOUTPUTDEVICENV read default(HVIDEOOUTPUTDEVICENV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'HVIDEOOUTPUTDEVICENV[{val}]';
-  end;
-  HVIDEOINPUTDEVICENV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: HVIDEOINPUTDEVICENV read default(HVIDEOINPUTDEVICENV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'HVIDEOINPUTDEVICENV[{val}]';
-  end;
-  PGPU_DEVICE = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: PGPU_DEVICE read default(PGPU_DEVICE);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PGPU_DEVICE[{val}]';
-  end;
-  HGPUNV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: HGPUNV read default(HGPUNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'HGPUNV[{val}]';
-  end;
-  HPBUFFER = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: HPBUFFER read default(HPBUFFER);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'HPBUFFER[{val}]';
-  end;
-  GLeglClientBufferEXT = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLeglClientBufferEXT read default(GLeglClientBufferEXT);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLeglClientBufferEXT[{val}]';
-  end;
-  VideoOutputDeviceHandleNV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: VideoOutputDeviceHandleNV read default(VideoOutputDeviceHandleNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'VideoOutputDeviceHandleNV[{val}]';
-  end;
-  VideoInputDeviceHandleNV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: VideoInputDeviceHandleNV read default(VideoInputDeviceHandleNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'VideoInputDeviceHandleNV[{val}]';
-  end;
-  VideoDeviceHandleNV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: VideoDeviceHandleNV read default(VideoDeviceHandleNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'VideoDeviceHandleNV[{val}]';
-  end;
-  GLvdpauSurfaceNV = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLvdpauSurfaceNV read default(GLvdpauSurfaceNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLvdpauSurfaceNV[{val}]';
-  end;
-  GPUAffinityHandle = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GPUAffinityHandle read default(GPUAffinityHandle);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GPUAffinityHandle[{val}]';
-  end;
-  GLXFBConfig = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXFBConfig read default(GLXFBConfig);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXFBConfig[{val}]';
-  end;
-  GLXContextID = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXContextID read default(GLXContextID);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXContextID[{val}]';
-  end;
-  GLXPbuffer = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXPbuffer read default(GLXPbuffer);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXPbuffer[{val}]';
-  end;
-  GLXWindow = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXWindow read default(GLXWindow);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXWindow[{val}]';
-  end;
-  GLXPixmap = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXPixmap read default(GLXPixmap);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXPixmap[{val}]';
-  end;
-  GLXColormap = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXColormap read default(GLXColormap);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXColormap[{val}]';
-  end;
-  GLXDrawable = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXDrawable read default(GLXDrawable);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXDrawable[{val}]';
-  end;
-  GLXContext = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXContext read default(GLXContext);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXContext[{val}]';
-  end;
-  GLXVideoCaptureDeviceNV = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXVideoCaptureDeviceNV read default(GLXVideoCaptureDeviceNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVideoCaptureDeviceNV[{val}]';
-  end;
-  GLXVideoSourceSGIX = record
-    public val: UInt64;
-    public constructor(val: UInt64) := self.val := val;
-    public static property Zero: GLXVideoSourceSGIX read default(GLXVideoSourceSGIX);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVideoSourceSGIX[{val}]';
-  end;
-  GLXVideoDeviceNV = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    public static property Zero: GLXVideoDeviceNV read default(GLXVideoDeviceNV);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVideoDeviceNV[{val}]';
-  end;
-  GLXFuncPtr = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXFuncPtr read default(GLXFuncPtr);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXFuncPtr[{val}]';
+    public function ToString: string; override := $'egl_image_OES[{val}]';
   end;
   
-  PDisplay = record
+  // GL_EXT_external_buffer
+  egl_chient_buffer_EXT = record
     public val: IntPtr;
     public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: PDisplay read default(PDisplay);
+    public static property Zero: egl_chient_buffer_EXT read default(egl_chient_buffer_EXT);
     public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PDisplay[{val}]';
-  end;
-  PXVisualInfo = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: PXVisualInfo read default(PXVisualInfo);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'PXVisualInfo[{val}]';
-  end;
-  
-  
-  
-  //ToDo	эти	типы	вообще	угадывал,	перепроверить
-  
-  GLXDMparams = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXDMparams read default(GLXDMparams);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXDMparams[{val}]';
-  end;
-  GLXDMbuffer = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXDMbuffer read default(GLXDMbuffer);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXDMbuffer[{val}]';
-  end;
-  GLXVLServer = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXVLServer read default(GLXVLServer);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVLServer[{val}]';
-  end;
-  GLXVLPath = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXVLPath read default(GLXVLPath);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVLPath[{val}]';
-  end;
-  GLXVLNode = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXVLNode read default(GLXVLNode);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXVLNode[{val}]';
-  end;
-  GLXStatus = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLXStatus read default(GLXStatus);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLXStatus[{val}]';
-  end;
-  GLUnurbs = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GLUnurbs read default(GLUnurbs);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GLUnurbs[{val}]';
-  end;
-  GDI_HENHMetafile = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GDI_HENHMetafile read default(GDI_HENHMetafile);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GDI_HENHMetafile[{val}]';
-  end;
-  
-  GDI_LayerPlaneDescriptor = record
-    public val: IntPtr;
-    public constructor(val: IntPtr) := self.val := val;
-    public static property Zero: GDI_LayerPlaneDescriptor read default(GDI_LayerPlaneDescriptor);
-    public static property Size: integer read Marshal.SizeOf&;
-    public function ToString: string; override := $'GDI_LayerPlaneDescriptor[{val}]';
+    public function ToString: string; override := $'egl_chient_buffer_EXT[{val}]';
   end;
   
   {$endregion Записи-имена}
@@ -656,7 +620,8 @@ type
     public static property MULTISAMPLE_BIT_EXT:  AttribMask read _MULTISAMPLE_BIT_EXT;
     public static property ALL_ATTRIB_BITS:      AttribMask read _ALL_ATTRIB_BITS;
     
-    public static function operator or(f1,f2: AttribMask) := new AttribMask(f1.val or f2.val);
+    public static function operator+(f1,f2: AttribMask) := new AttribMask(f1.val or f2.val);
+    public static function operator or(f1,f2: AttribMask) := f1+f2;
     
     public property HAS_FLAG_CURRENT_BIT:          boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_POINT_BIT:            boolean read self.val and $0002 <> 0;
@@ -1284,6 +1249,30 @@ type
     
   end;
   
+  Bool = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _FALSE := new Bool($0000);
+    private static _TRUE  := new Bool($0001);
+    
+    public static property FALSE: Bool read _FALSE;
+    public static property TRUE:  Bool read _TRUE;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($0000) then Result := 'FALSE' else
+      if self.val = UInt32($0001) then Result := 'TRUE' else
+        Result := $'Bool[{self.val}]';
+    end;
+    
+    public static function operator implicit(b: Bool): boolean := b.val<>Bool.FALSE.val;
+    public static function operator implicit(b: boolean): Bool := new Bool(UInt32(b));
+    
+    public static function operator not(b: Bool): Bool := b.val=Bool.FALSE.val ? Bool.TRUE : Bool.FALSE;
+    
+  end;
+  
   Buffer = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -1344,7 +1333,8 @@ type
     public static property PER_GPU_STORAGE_BIT_NV:        BufferStorageMask read _PER_GPU_STORAGE_BIT_NV;
     public static property EXTERNAL_STORAGE_BIT_NVX:      BufferStorageMask read _EXTERNAL_STORAGE_BIT_NVX;
     
-    public static function operator or(f1,f2: BufferStorageMask) := new BufferStorageMask(f1.val or f2.val);
+    public static function operator+(f1,f2: BufferStorageMask) := new BufferStorageMask(f1.val or f2.val);
+    public static function operator or(f1,f2: BufferStorageMask) := f1+f2;
     
     public property HAS_FLAG_MAP_READ_BIT:                  boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_MAP_READ_BIT_EXT:              boolean read self.val and $0001 <> 0;
@@ -1463,7 +1453,8 @@ type
     public static property COLOR_BUFFER_BIT:       ClearBufferMask read _COLOR_BUFFER_BIT;
     public static property COVERAGE_BUFFER_BIT_NV: ClearBufferMask read _COVERAGE_BUFFER_BIT_NV;
     
-    public static function operator or(f1,f2: ClearBufferMask) := new ClearBufferMask(f1.val or f2.val);
+    public static function operator+(f1,f2: ClearBufferMask) := new ClearBufferMask(f1.val or f2.val);
+    public static function operator or(f1,f2: ClearBufferMask) := f1+f2;
     
     public property HAS_FLAG_DEPTH_BUFFER_BIT:       boolean read self.val and $0100 <> 0;
     public property HAS_FLAG_ACCUM_BUFFER_BIT:       boolean read self.val and $0200 <> 0;
@@ -1501,7 +1492,8 @@ type
     public static property CLIENT_VERTEX_ARRAY_BIT: ClientAttribMask read _CLIENT_VERTEX_ARRAY_BIT;
     public static property CLIENT_ALL_ATTRIB_BITS:  ClientAttribMask read _CLIENT_ALL_ATTRIB_BITS;
     
-    public static function operator or(f1,f2: ClientAttribMask) := new ClientAttribMask(f1.val or f2.val);
+    public static function operator+(f1,f2: ClientAttribMask) := new ClientAttribMask(f1.val or f2.val);
+    public static function operator or(f1,f2: ClientAttribMask) := f1+f2;
     
     public property HAS_FLAG_CLIENT_PIXEL_STORE_BIT:  boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_CLIENT_VERTEX_ARRAY_BIT: boolean read self.val and $0002 <> 0;
@@ -1812,19 +1804,28 @@ type
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
     
-    private static _COLOR_TABLE                   := new ColorTableTarget($80D0);
-    private static _POST_CONVOLUTION_COLOR_TABLE  := new ColorTableTarget($80D1);
-    private static _POST_COLOR_MATRIX_COLOR_TABLE := new ColorTableTarget($80D2);
+    private static _COLOR_TABLE                         := new ColorTableTarget($80D0);
+    private static _POST_CONVOLUTION_COLOR_TABLE        := new ColorTableTarget($80D1);
+    private static _POST_COLOR_MATRIX_COLOR_TABLE       := new ColorTableTarget($80D2);
+    private static _PROXY_COLOR_TABLE                   := new ColorTableTarget($80D3);
+    private static _PROXY_POST_CONVOLUTION_COLOR_TABLE  := new ColorTableTarget($80D4);
+    private static _PROXY_POST_COLOR_MATRIX_COLOR_TABLE := new ColorTableTarget($80D5);
     
-    public static property COLOR_TABLE:                   ColorTableTarget read _COLOR_TABLE;
-    public static property POST_CONVOLUTION_COLOR_TABLE:  ColorTableTarget read _POST_CONVOLUTION_COLOR_TABLE;
-    public static property POST_COLOR_MATRIX_COLOR_TABLE: ColorTableTarget read _POST_COLOR_MATRIX_COLOR_TABLE;
+    public static property COLOR_TABLE:                         ColorTableTarget read _COLOR_TABLE;
+    public static property POST_CONVOLUTION_COLOR_TABLE:        ColorTableTarget read _POST_CONVOLUTION_COLOR_TABLE;
+    public static property POST_COLOR_MATRIX_COLOR_TABLE:       ColorTableTarget read _POST_COLOR_MATRIX_COLOR_TABLE;
+    public static property PROXY_COLOR_TABLE:                   ColorTableTarget read _PROXY_COLOR_TABLE;
+    public static property PROXY_POST_CONVOLUTION_COLOR_TABLE:  ColorTableTarget read _PROXY_POST_CONVOLUTION_COLOR_TABLE;
+    public static property PROXY_POST_COLOR_MATRIX_COLOR_TABLE: ColorTableTarget read _PROXY_POST_COLOR_MATRIX_COLOR_TABLE;
     
     public function ToString: string; override;
     begin
       if self.val = UInt32($80D0) then Result := 'COLOR_TABLE' else
       if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE' else
       if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE' else
+      if self.val = UInt32($80D3) then Result := 'PROXY_COLOR_TABLE' else
+      if self.val = UInt32($80D4) then Result := 'PROXY_POST_CONVOLUTION_COLOR_TABLE' else
+      if self.val = UInt32($80D5) then Result := 'PROXY_POST_COLOR_MATRIX_COLOR_TABLE' else
         Result := $'ColorTableTarget[{self.val}]';
     end;
     
@@ -2422,8 +2423,11 @@ type
     private static _SAMPLE_COVERAGE                         := new EnableCap($80A0);
     private static _SAMPLE_MASK_SGIS                        := new EnableCap($80A0);
     private static _TEXTURE_COLOR_TABLE_SGI                 := new EnableCap($80BC);
+    private static _COLOR_TABLE                             := new EnableCap($80D0);
     private static _COLOR_TABLE_SGI                         := new EnableCap($80D0);
+    private static _POST_CONVOLUTION_COLOR_TABLE            := new EnableCap($80D1);
     private static _POST_CONVOLUTION_COLOR_TABLE_SGI        := new EnableCap($80D1);
+    private static _POST_COLOR_MATRIX_COLOR_TABLE           := new EnableCap($80D2);
     private static _POST_COLOR_MATRIX_COLOR_TABLE_SGI       := new EnableCap($80D2);
     private static _TEXTURE_4D_SGIS                         := new EnableCap($8134);
     private static _PIXEL_TEX_GEN_SGIX                      := new EnableCap($8139);
@@ -2460,6 +2464,7 @@ type
     private static _SAMPLE_MASK                             := new EnableCap($8E51);
     private static _PRIMITIVE_RESTART                       := new EnableCap($8F9D);
     private static _DEBUG_OUTPUT                            := new EnableCap($92E0);
+    private static _SHADING_RATE_IMAGE_PER_PRIMITIVE_NV     := new EnableCap($95B1);
     private static _SHADING_RATE_PRESERVE_ASPECT_RATIO_QCOM := new EnableCap($96A5);
     
     public static property POINT_SMOOTH:                            EnableCap read _POINT_SMOOTH;
@@ -2553,8 +2558,11 @@ type
     public static property SAMPLE_COVERAGE:                         EnableCap read _SAMPLE_COVERAGE;
     public static property SAMPLE_MASK_SGIS:                        EnableCap read _SAMPLE_MASK_SGIS;
     public static property TEXTURE_COLOR_TABLE_SGI:                 EnableCap read _TEXTURE_COLOR_TABLE_SGI;
+    public static property COLOR_TABLE:                             EnableCap read _COLOR_TABLE;
     public static property COLOR_TABLE_SGI:                         EnableCap read _COLOR_TABLE_SGI;
+    public static property POST_CONVOLUTION_COLOR_TABLE:            EnableCap read _POST_CONVOLUTION_COLOR_TABLE;
     public static property POST_CONVOLUTION_COLOR_TABLE_SGI:        EnableCap read _POST_CONVOLUTION_COLOR_TABLE_SGI;
+    public static property POST_COLOR_MATRIX_COLOR_TABLE:           EnableCap read _POST_COLOR_MATRIX_COLOR_TABLE;
     public static property POST_COLOR_MATRIX_COLOR_TABLE_SGI:       EnableCap read _POST_COLOR_MATRIX_COLOR_TABLE_SGI;
     public static property TEXTURE_4D_SGIS:                         EnableCap read _TEXTURE_4D_SGIS;
     public static property PIXEL_TEX_GEN_SGIX:                      EnableCap read _PIXEL_TEX_GEN_SGIX;
@@ -2591,6 +2599,7 @@ type
     public static property SAMPLE_MASK:                             EnableCap read _SAMPLE_MASK;
     public static property PRIMITIVE_RESTART:                       EnableCap read _PRIMITIVE_RESTART;
     public static property DEBUG_OUTPUT:                            EnableCap read _DEBUG_OUTPUT;
+    public static property SHADING_RATE_IMAGE_PER_PRIMITIVE_NV:     EnableCap read _SHADING_RATE_IMAGE_PER_PRIMITIVE_NV;
     public static property SHADING_RATE_PRESERVE_ASPECT_RATIO_QCOM: EnableCap read _SHADING_RATE_PRESERVE_ASPECT_RATIO_QCOM;
     
     public function ToString: string; override;
@@ -2686,8 +2695,11 @@ type
       if self.val = UInt32($80A0) then Result := 'SAMPLE_COVERAGE' else
       if self.val = UInt32($80A0) then Result := 'SAMPLE_MASK_SGIS' else
       if self.val = UInt32($80BC) then Result := 'TEXTURE_COLOR_TABLE_SGI' else
+      if self.val = UInt32($80D0) then Result := 'COLOR_TABLE' else
       if self.val = UInt32($80D0) then Result := 'COLOR_TABLE_SGI' else
+      if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE' else
       if self.val = UInt32($80D1) then Result := 'POST_CONVOLUTION_COLOR_TABLE_SGI' else
+      if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE' else
       if self.val = UInt32($80D2) then Result := 'POST_COLOR_MATRIX_COLOR_TABLE_SGI' else
       if self.val = UInt32($8134) then Result := 'TEXTURE_4D_SGIS' else
       if self.val = UInt32($8139) then Result := 'PIXEL_TEX_GEN_SGIX' else
@@ -2724,6 +2736,7 @@ type
       if self.val = UInt32($8E51) then Result := 'SAMPLE_MASK' else
       if self.val = UInt32($8F9D) then Result := 'PRIMITIVE_RESTART' else
       if self.val = UInt32($92E0) then Result := 'DEBUG_OUTPUT' else
+      if self.val = UInt32($95B1) then Result := 'SHADING_RATE_IMAGE_PER_PRIMITIVE_NV' else
       if self.val = UInt32($96A5) then Result := 'SHADING_RATE_PRESERVE_ASPECT_RATIO_QCOM' else
         Result := $'EnableCap[{self.val}]';
     end;
@@ -3273,6 +3286,179 @@ type
     
   end;
   
+  GDI_LayerPlaneFlags = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _DOUBLEBUFFER   := new GDI_LayerPlaneFlags($0001);
+    private static _STEREO         := new GDI_LayerPlaneFlags($0002);
+    private static _SUPPORT_GDI    := new GDI_LayerPlaneFlags($0010);
+    private static _SUPPORT_OPENGL := new GDI_LayerPlaneFlags($0020);
+    private static _SHARE_DEPTH    := new GDI_LayerPlaneFlags($0040);
+    private static _SHARE_STENCIL  := new GDI_LayerPlaneFlags($0080);
+    private static _SHARE_ACCUM    := new GDI_LayerPlaneFlags($0100);
+    private static _SWAP_EXCHANGE  := new GDI_LayerPlaneFlags($0200);
+    private static _SWAP_COPY      := new GDI_LayerPlaneFlags($0400);
+    private static _TRANSPARENT    := new GDI_LayerPlaneFlags($1000);
+    
+    public static property DOUBLEBUFFER:   GDI_LayerPlaneFlags read _DOUBLEBUFFER;
+    public static property STEREO:         GDI_LayerPlaneFlags read _STEREO;
+    public static property SUPPORT_GDI:    GDI_LayerPlaneFlags read _SUPPORT_GDI;
+    public static property SUPPORT_OPENGL: GDI_LayerPlaneFlags read _SUPPORT_OPENGL;
+    public static property SHARE_DEPTH:    GDI_LayerPlaneFlags read _SHARE_DEPTH;
+    public static property SHARE_STENCIL:  GDI_LayerPlaneFlags read _SHARE_STENCIL;
+    public static property SHARE_ACCUM:    GDI_LayerPlaneFlags read _SHARE_ACCUM;
+    public static property SWAP_EXCHANGE:  GDI_LayerPlaneFlags read _SWAP_EXCHANGE;
+    public static property SWAP_COPY:      GDI_LayerPlaneFlags read _SWAP_COPY;
+    public static property TRANSPARENT:    GDI_LayerPlaneFlags read _TRANSPARENT;
+    
+    public static function operator+(f1,f2: GDI_LayerPlaneFlags) := new GDI_LayerPlaneFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: GDI_LayerPlaneFlags) := f1+f2;
+    
+    public property HAS_FLAG_DOUBLEBUFFER:   boolean read self.val and $0001 <> 0;
+    public property HAS_FLAG_STEREO:         boolean read self.val and $0002 <> 0;
+    public property HAS_FLAG_SUPPORT_GDI:    boolean read self.val and $0010 <> 0;
+    public property HAS_FLAG_SUPPORT_OPENGL: boolean read self.val and $0020 <> 0;
+    public property HAS_FLAG_SHARE_DEPTH:    boolean read self.val and $0040 <> 0;
+    public property HAS_FLAG_SHARE_STENCIL:  boolean read self.val and $0080 <> 0;
+    public property HAS_FLAG_SHARE_ACCUM:    boolean read self.val and $0100 <> 0;
+    public property HAS_FLAG_SWAP_EXCHANGE:  boolean read self.val and $0200 <> 0;
+    public property HAS_FLAG_SWAP_COPY:      boolean read self.val and $0400 <> 0;
+    public property HAS_FLAG_TRANSPARENT:    boolean read self.val and $1000 <> 0;
+    
+    public function ToString: string; override;
+    begin
+      var res := new StringBuilder;
+      if self.val and UInt32($0001) = UInt32($0001) then res += 'DOUBLEBUFFER+';
+      if self.val and UInt32($0002) = UInt32($0002) then res += 'STEREO+';
+      if self.val and UInt32($0010) = UInt32($0010) then res += 'SUPPORT_GDI+';
+      if self.val and UInt32($0020) = UInt32($0020) then res += 'SUPPORT_OPENGL+';
+      if self.val and UInt32($0040) = UInt32($0040) then res += 'SHARE_DEPTH+';
+      if self.val and UInt32($0080) = UInt32($0080) then res += 'SHARE_STENCIL+';
+      if self.val and UInt32($0100) = UInt32($0100) then res += 'SHARE_ACCUM+';
+      if self.val and UInt32($0200) = UInt32($0200) then res += 'SWAP_EXCHANGE+';
+      if self.val and UInt32($0400) = UInt32($0400) then res += 'SWAP_COPY+';
+      if self.val and UInt32($1000) = UInt32($1000) then res += 'TRANSPARENT+';
+      if res.Length<>0 then
+      begin
+        res.Length -= 1;
+        Result := res.ToString;
+      end else
+        Result := $'GDI_LayerPlaneFlags[{self.val}]';
+    end;
+    
+  end;
+  
+  GDI_PixelDataType = record
+    public val: Byte;
+    public constructor(val: Byte) := self.val := val;
+    
+    private static _RGBA       := new GDI_PixelDataType($0000);
+    private static _COLORINDEX := new GDI_PixelDataType($0001);
+    
+    public static property RGBA:       GDI_PixelDataType read _RGBA;
+    public static property COLORINDEX: GDI_PixelDataType read _COLORINDEX;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = Byte($0000) then Result := 'RGBA' else
+      if self.val = Byte($0001) then Result := 'COLORINDEX' else
+        Result := $'GDI_PixelDataType[{self.val}]';
+    end;
+    
+  end;
+  
+  GDI_PixelFormatFlags = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _DOUBLEBUFFER          := new GDI_PixelFormatFlags($0001);
+    private static _STEREO                := new GDI_PixelFormatFlags($0002);
+    private static _DRAW_TO_WINDOW        := new GDI_PixelFormatFlags($0004);
+    private static _DRAW_TO_BITMAP        := new GDI_PixelFormatFlags($0008);
+    private static _SUPPORT_GDI           := new GDI_PixelFormatFlags($0010);
+    private static _SUPPORT_OPENGL        := new GDI_PixelFormatFlags($0020);
+    private static _GENERIC_FORMAT        := new GDI_PixelFormatFlags($0040);
+    private static _NEED_PALETTE          := new GDI_PixelFormatFlags($0080);
+    private static _NEED_SYSTEM_PALETTE   := new GDI_PixelFormatFlags($0100);
+    private static _SWAP_EXCHANGE         := new GDI_PixelFormatFlags($0200);
+    private static _SWAP_COPY             := new GDI_PixelFormatFlags($0400);
+    private static _SWAP_LAYER_BUFFERS    := new GDI_PixelFormatFlags($0800);
+    private static _GENERIC_ACCELERATED   := new GDI_PixelFormatFlags($1000);
+    private static _SUPPORT_DIRECTDRAW    := new GDI_PixelFormatFlags($2000);
+    private static _DEPTH_DONTCARE        := new GDI_PixelFormatFlags($20000000);
+    private static _DOUBLEBUFFER_DONTCARE := new GDI_PixelFormatFlags($40000000);
+    private static _STEREO_DONTCARE       := new GDI_PixelFormatFlags($80000000);
+    
+    public static property DOUBLEBUFFER:          GDI_PixelFormatFlags read _DOUBLEBUFFER;
+    public static property STEREO:                GDI_PixelFormatFlags read _STEREO;
+    public static property DRAW_TO_WINDOW:        GDI_PixelFormatFlags read _DRAW_TO_WINDOW;
+    public static property DRAW_TO_BITMAP:        GDI_PixelFormatFlags read _DRAW_TO_BITMAP;
+    public static property SUPPORT_GDI:           GDI_PixelFormatFlags read _SUPPORT_GDI;
+    public static property SUPPORT_OPENGL:        GDI_PixelFormatFlags read _SUPPORT_OPENGL;
+    public static property GENERIC_FORMAT:        GDI_PixelFormatFlags read _GENERIC_FORMAT;
+    public static property NEED_PALETTE:          GDI_PixelFormatFlags read _NEED_PALETTE;
+    public static property NEED_SYSTEM_PALETTE:   GDI_PixelFormatFlags read _NEED_SYSTEM_PALETTE;
+    public static property SWAP_EXCHANGE:         GDI_PixelFormatFlags read _SWAP_EXCHANGE;
+    public static property SWAP_COPY:             GDI_PixelFormatFlags read _SWAP_COPY;
+    public static property SWAP_LAYER_BUFFERS:    GDI_PixelFormatFlags read _SWAP_LAYER_BUFFERS;
+    public static property GENERIC_ACCELERATED:   GDI_PixelFormatFlags read _GENERIC_ACCELERATED;
+    public static property SUPPORT_DIRECTDRAW:    GDI_PixelFormatFlags read _SUPPORT_DIRECTDRAW;
+    public static property DEPTH_DONTCARE:        GDI_PixelFormatFlags read _DEPTH_DONTCARE;
+    public static property DOUBLEBUFFER_DONTCARE: GDI_PixelFormatFlags read _DOUBLEBUFFER_DONTCARE;
+    public static property STEREO_DONTCARE:       GDI_PixelFormatFlags read _STEREO_DONTCARE;
+    
+    public static function operator+(f1,f2: GDI_PixelFormatFlags) := new GDI_PixelFormatFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: GDI_PixelFormatFlags) := f1+f2;
+    
+    public property HAS_FLAG_DOUBLEBUFFER:          boolean read self.val and $0001 <> 0;
+    public property HAS_FLAG_STEREO:                boolean read self.val and $0002 <> 0;
+    public property HAS_FLAG_DRAW_TO_WINDOW:        boolean read self.val and $0004 <> 0;
+    public property HAS_FLAG_DRAW_TO_BITMAP:        boolean read self.val and $0008 <> 0;
+    public property HAS_FLAG_SUPPORT_GDI:           boolean read self.val and $0010 <> 0;
+    public property HAS_FLAG_SUPPORT_OPENGL:        boolean read self.val and $0020 <> 0;
+    public property HAS_FLAG_GENERIC_FORMAT:        boolean read self.val and $0040 <> 0;
+    public property HAS_FLAG_NEED_PALETTE:          boolean read self.val and $0080 <> 0;
+    public property HAS_FLAG_NEED_SYSTEM_PALETTE:   boolean read self.val and $0100 <> 0;
+    public property HAS_FLAG_SWAP_EXCHANGE:         boolean read self.val and $0200 <> 0;
+    public property HAS_FLAG_SWAP_COPY:             boolean read self.val and $0400 <> 0;
+    public property HAS_FLAG_SWAP_LAYER_BUFFERS:    boolean read self.val and $0800 <> 0;
+    public property HAS_FLAG_GENERIC_ACCELERATED:   boolean read self.val and $1000 <> 0;
+    public property HAS_FLAG_SUPPORT_DIRECTDRAW:    boolean read self.val and $2000 <> 0;
+    public property HAS_FLAG_DEPTH_DONTCARE:        boolean read self.val and $20000000 <> 0;
+    public property HAS_FLAG_DOUBLEBUFFER_DONTCARE: boolean read self.val and $40000000 <> 0;
+    public property HAS_FLAG_STEREO_DONTCARE:       boolean read self.val and $80000000 <> 0;
+    
+    public function ToString: string; override;
+    begin
+      var res := new StringBuilder;
+      if self.val and UInt32($0001) = UInt32($0001) then res += 'DOUBLEBUFFER+';
+      if self.val and UInt32($0002) = UInt32($0002) then res += 'STEREO+';
+      if self.val and UInt32($0004) = UInt32($0004) then res += 'DRAW_TO_WINDOW+';
+      if self.val and UInt32($0008) = UInt32($0008) then res += 'DRAW_TO_BITMAP+';
+      if self.val and UInt32($0010) = UInt32($0010) then res += 'SUPPORT_GDI+';
+      if self.val and UInt32($0020) = UInt32($0020) then res += 'SUPPORT_OPENGL+';
+      if self.val and UInt32($0040) = UInt32($0040) then res += 'GENERIC_FORMAT+';
+      if self.val and UInt32($0080) = UInt32($0080) then res += 'NEED_PALETTE+';
+      if self.val and UInt32($0100) = UInt32($0100) then res += 'NEED_SYSTEM_PALETTE+';
+      if self.val and UInt32($0200) = UInt32($0200) then res += 'SWAP_EXCHANGE+';
+      if self.val and UInt32($0400) = UInt32($0400) then res += 'SWAP_COPY+';
+      if self.val and UInt32($0800) = UInt32($0800) then res += 'SWAP_LAYER_BUFFERS+';
+      if self.val and UInt32($1000) = UInt32($1000) then res += 'GENERIC_ACCELERATED+';
+      if self.val and UInt32($2000) = UInt32($2000) then res += 'SUPPORT_DIRECTDRAW+';
+      if self.val and UInt32($20000000) = UInt32($20000000) then res += 'DEPTH_DONTCARE+';
+      if self.val and UInt32($40000000) = UInt32($40000000) then res += 'DOUBLEBUFFER_DONTCARE+';
+      if self.val and UInt32($80000000) = UInt32($80000000) then res += 'STEREO_DONTCARE+';
+      if res.Length<>0 then
+      begin
+        res.Length -= 1;
+        Result := res.ToString;
+      end else
+        Result := $'GDI_PixelFormatFlags[{self.val}]';
+    end;
+    
+  end;
+  
   GetFramebufferParameter = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -3902,6 +4088,9 @@ type
     private static _DRIVER_UUID_EXT                                := new GetPName($9598);
     private static _DEVICE_LUID_EXT                                := new GetPName($9599);
     private static _DEVICE_NODE_MASK_EXT                           := new GetPName($959A);
+    private static _SHADING_RATE_IMAGE_PER_PRIMITIVE_NV            := new GetPName($95B1);
+    private static _SHADING_RATE_IMAGE_PALETTE_COUNT_NV            := new GetPName($95B2);
+    private static _MAX_TIMELINE_SEMAPHORE_VALUE_DIFFERENCE_NV     := new GetPName($95B6);
     private static _SHADING_RATE_QCOM                              := new GetPName($96A4);
     
     public static property CURRENT_COLOR:                                  GetPName read _CURRENT_COLOR;
@@ -4461,6 +4650,9 @@ type
     public static property DRIVER_UUID_EXT:                                GetPName read _DRIVER_UUID_EXT;
     public static property DEVICE_LUID_EXT:                                GetPName read _DEVICE_LUID_EXT;
     public static property DEVICE_NODE_MASK_EXT:                           GetPName read _DEVICE_NODE_MASK_EXT;
+    public static property SHADING_RATE_IMAGE_PER_PRIMITIVE_NV:            GetPName read _SHADING_RATE_IMAGE_PER_PRIMITIVE_NV;
+    public static property SHADING_RATE_IMAGE_PALETTE_COUNT_NV:            GetPName read _SHADING_RATE_IMAGE_PALETTE_COUNT_NV;
+    public static property MAX_TIMELINE_SEMAPHORE_VALUE_DIFFERENCE_NV:     GetPName read _MAX_TIMELINE_SEMAPHORE_VALUE_DIFFERENCE_NV;
     public static property SHADING_RATE_QCOM:                              GetPName read _SHADING_RATE_QCOM;
     
     public function ToString: string; override;
@@ -5022,6 +5214,9 @@ type
       if self.val = UInt32($9598) then Result := 'DRIVER_UUID_EXT' else
       if self.val = UInt32($9599) then Result := 'DEVICE_LUID_EXT' else
       if self.val = UInt32($959A) then Result := 'DEVICE_NODE_MASK_EXT' else
+      if self.val = UInt32($95B1) then Result := 'SHADING_RATE_IMAGE_PER_PRIMITIVE_NV' else
+      if self.val = UInt32($95B2) then Result := 'SHADING_RATE_IMAGE_PALETTE_COUNT_NV' else
+      if self.val = UInt32($95B6) then Result := 'MAX_TIMELINE_SEMAPHORE_VALUE_DIFFERENCE_NV' else
       if self.val = UInt32($96A4) then Result := 'SHADING_RATE_QCOM' else
         Result := $'GetPName[{self.val}]';
     end;
@@ -5483,6 +5678,25 @@ type
     
   end;
   
+  HistogramTarget = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _HISTOGRAM       := new HistogramTarget($8024);
+    private static _PROXY_HISTOGRAM := new HistogramTarget($8025);
+    
+    public static property HISTOGRAM:       HistogramTarget read _HISTOGRAM;
+    public static property PROXY_HISTOGRAM: HistogramTarget read _PROXY_HISTOGRAM;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($8024) then Result := 'HISTOGRAM' else
+      if self.val = UInt32($8025) then Result := 'PROXY_HISTOGRAM' else
+        Result := $'HistogramTarget[{self.val}]';
+    end;
+    
+  end;
+  
   IndexPointerType = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -7225,7 +7439,8 @@ type
     public static property MAP_COHERENT_BIT:              MapBufferAccessMask read _MAP_COHERENT_BIT;
     public static property MAP_COHERENT_BIT_EXT:          MapBufferAccessMask read _MAP_COHERENT_BIT_EXT;
     
-    public static function operator or(f1,f2: MapBufferAccessMask) := new MapBufferAccessMask(f1.val or f2.val);
+    public static function operator+(f1,f2: MapBufferAccessMask) := new MapBufferAccessMask(f1.val or f2.val);
+    public static function operator or(f1,f2: MapBufferAccessMask) := f1+f2;
     
     public property HAS_FLAG_MAP_READ_BIT:                  boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_MAP_READ_BIT_EXT:              boolean read self.val and $0001 <> 0;
@@ -7517,7 +7732,8 @@ type
     public static property ALL_BARRIER_BITS:                     MemoryBarrierMask read _ALL_BARRIER_BITS;
     public static property ALL_BARRIER_BITS_EXT:                 MemoryBarrierMask read _ALL_BARRIER_BITS_EXT;
     
-    public static function operator or(f1,f2: MemoryBarrierMask) := new MemoryBarrierMask(f1.val or f2.val);
+    public static function operator+(f1,f2: MemoryBarrierMask) := new MemoryBarrierMask(f1.val or f2.val);
+    public static function operator or(f1,f2: MemoryBarrierMask) := f1+f2;
     
     public property HAS_FLAG_VERTEX_ATTRIB_ARRAY_BARRIER_BIT:      boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_VERTEX_ATTRIB_ARRAY_BARRIER_BIT_EXT:  boolean read self.val and $0001 <> 0;
@@ -7655,6 +7871,22 @@ type
     
   end;
   
+  MinmaxTarget = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _MINMAX := new MinmaxTarget($802E);
+    
+    public static property MINMAX: MinmaxTarget read _MINMAX;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($802E) then Result := 'MINMAX' else
+        Result := $'MinmaxTarget[{self.val}]';
+    end;
+    
+  end;
+  
   NormalPointerType = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -8036,7 +8268,8 @@ type
     public static property BOLD_BIT_NV:   PathFontStyle read _BOLD_BIT_NV;
     public static property ITALIC_BIT_NV: PathFontStyle read _ITALIC_BIT_NV;
     
-    public static function operator or(f1,f2: PathFontStyle) := new PathFontStyle(f1.val or f2.val);
+    public static function operator+(f1,f2: PathFontStyle) := new PathFontStyle(f1.val or f2.val);
+    public static function operator or(f1,f2: PathFontStyle) := f1+f2;
     
     public property ANY_FLAGS: boolean read self.val<>0;
     public property HAS_FLAG_BOLD_BIT_NV:   boolean read self.val and $0001 <> 0;
@@ -8201,7 +8434,8 @@ type
     public static property FONT_HAS_KERNING_BIT_NV:                 PathMetricMask read _FONT_HAS_KERNING_BIT_NV;
     public static property FONT_NUM_GLYPH_INDICES_BIT_NV:           PathMetricMask read _FONT_NUM_GLYPH_INDICES_BIT_NV;
     
-    public static function operator or(f1,f2: PathMetricMask) := new PathMetricMask(f1.val or f2.val);
+    public static function operator+(f1,f2: PathMetricMask) := new PathMetricMask(f1.val or f2.val);
+    public static function operator or(f1,f2: PathMetricMask) := f1+f2;
     
     public property HAS_FLAG_GLYPH_WIDTH_BIT_NV:                      boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_GLYPH_HEIGHT_BIT_NV:                     boolean read self.val and $0002 <> 0;
@@ -8441,6 +8675,37 @@ type
     
   end;
   
+  PipeParticipationTypeFlags = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _DISPLAY_PIPE_SGIX := new PipeParticipationTypeFlags($0001);
+    private static _RENDER_PIPE_SGIX  := new PipeParticipationTypeFlags($0002);
+    
+    public static property DISPLAY_PIPE_SGIX: PipeParticipationTypeFlags read _DISPLAY_PIPE_SGIX;
+    public static property RENDER_PIPE_SGIX:  PipeParticipationTypeFlags read _RENDER_PIPE_SGIX;
+    
+    public static function operator+(f1,f2: PipeParticipationTypeFlags) := new PipeParticipationTypeFlags(f1.val or f2.val);
+    public static function operator or(f1,f2: PipeParticipationTypeFlags) := f1+f2;
+    
+    public property HAS_FLAG_DISPLAY_PIPE_SGIX: boolean read self.val and $0001 <> 0;
+    public property HAS_FLAG_RENDER_PIPE_SGIX:  boolean read self.val and $0002 <> 0;
+    
+    public function ToString: string; override;
+    begin
+      var res := new StringBuilder;
+      if self.val and UInt32($0001) = UInt32($0001) then res += 'DISPLAY_PIPE_SGIX+';
+      if self.val and UInt32($0002) = UInt32($0002) then res += 'RENDER_PIPE_SGIX+';
+      if res.Length<>0 then
+      begin
+        res.Length -= 1;
+        Result := res.ToString;
+      end else
+        Result := $'PipeParticipationTypeFlags[{self.val}]';
+    end;
+    
+  end;
+  
   PixelCopyType = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -9886,18 +10151,62 @@ type
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
     
-    private static _D3D12_FENCE_VALUE_EXT := new SemaphoreParameterName($9595);
+    private static _D3D12_FENCE_VALUE_EXT       := new SemaphoreParameterName($9595);
+    private static _TIMELINE_SEMAPHORE_VALUE_NV := new SemaphoreParameterName($9595);
+    private static _SEMAPHORE_TYPE_NV           := new SemaphoreParameterName($95B3);
+    private static _SEMAPHORE_TYPE_BINARY_NV    := new SemaphoreParameterName($95B4);
+    private static _SEMAPHORE_TYPE_TIMELINE_NV  := new SemaphoreParameterName($95B5);
     
-    public static property D3D12_FENCE_VALUE_EXT: SemaphoreParameterName read _D3D12_FENCE_VALUE_EXT;
+    public static property D3D12_FENCE_VALUE_EXT:       SemaphoreParameterName read _D3D12_FENCE_VALUE_EXT;
+    public static property TIMELINE_SEMAPHORE_VALUE_NV: SemaphoreParameterName read _TIMELINE_SEMAPHORE_VALUE_NV;
+    public static property SEMAPHORE_TYPE_NV:           SemaphoreParameterName read _SEMAPHORE_TYPE_NV;
+    public static property SEMAPHORE_TYPE_BINARY_NV:    SemaphoreParameterName read _SEMAPHORE_TYPE_BINARY_NV;
+    public static property SEMAPHORE_TYPE_TIMELINE_NV:  SemaphoreParameterName read _SEMAPHORE_TYPE_TIMELINE_NV;
     
     public function ToString: string; override;
     begin
       if self.val = UInt32($9595) then Result := 'D3D12_FENCE_VALUE_EXT' else
+      if self.val = UInt32($9595) then Result := 'TIMELINE_SEMAPHORE_VALUE_NV' else
+      if self.val = UInt32($95B3) then Result := 'SEMAPHORE_TYPE_NV' else
+      if self.val = UInt32($95B4) then Result := 'SEMAPHORE_TYPE_BINARY_NV' else
+      if self.val = UInt32($95B5) then Result := 'SEMAPHORE_TYPE_TIMELINE_NV' else
         Result := $'SemaphoreParameterName[{self.val}]';
     end;
     
   end;
   
+  SeparableTarget = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _SEPARABLE_2D := new SeparableTarget($8012);
+    
+    public static property SEPARABLE_2D: SeparableTarget read _SEPARABLE_2D;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($8012) then Result := 'SEPARABLE_2D' else
+        Result := $'SeparableTarget[{self.val}]';
+    end;
+    
+  end;
+  
+  ShaderBinaryFormat = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _SHADER_BINARY_FORMAT_SPIR_V := new ShaderBinaryFormat($9551);
+    
+    public static property SHADER_BINARY_FORMAT_SPIR_V: ShaderBinaryFormat read _SHADER_BINARY_FORMAT_SPIR_V;
+    
+    public function ToString: string; override;
+    begin
+      if self.val = UInt32($9551) then Result := 'SHADER_BINARY_FORMAT_SPIR_V' else
+        Result := $'ShaderBinaryFormat[{self.val}]';
+    end;
+    
+  end;
+  
   ShaderParameterName = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -10157,7 +10466,8 @@ type
     public static property SYNC_FLUSH_COMMANDS_BIT:       SyncObjectMask read _SYNC_FLUSH_COMMANDS_BIT;
     public static property SYNC_FLUSH_COMMANDS_BIT_APPLE: SyncObjectMask read _SYNC_FLUSH_COMMANDS_BIT_APPLE;
     
-    public static function operator or(f1,f2: SyncObjectMask) := new SyncObjectMask(f1.val or f2.val);
+    public static function operator+(f1,f2: SyncObjectMask) := new SyncObjectMask(f1.val or f2.val);
+    public static function operator or(f1,f2: SyncObjectMask) := f1+f2;
     
     public property HAS_FLAG_SYNC_FLUSH_COMMANDS_BIT:       boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_SYNC_FLUSH_COMMANDS_BIT_APPLE: boolean read self.val and $0001 <> 0;
@@ -10463,6 +10773,7 @@ type
     private static _TEXTURE_UNNORMALIZED_COORDINATES_ARM := new TextureParameterName($8F6A);
     private static _DEPTH_STENCIL_TEXTURE_MODE           := new TextureParameterName($90EA);
     private static _TEXTURE_TILING_EXT                   := new TextureParameterName($9580);
+    private static _TEXTURE_FOVEATED_CUTOFF_DENSITY_QCOM := new TextureParameterName($96A0);
     
     public static property TEXTURE_WIDTH:                        TextureParameterName read _TEXTURE_WIDTH;
     public static property TEXTURE_HEIGHT:                       TextureParameterName read _TEXTURE_HEIGHT;
@@ -10537,6 +10848,7 @@ type
     public static property TEXTURE_UNNORMALIZED_COORDINATES_ARM: TextureParameterName read _TEXTURE_UNNORMALIZED_COORDINATES_ARM;
     public static property DEPTH_STENCIL_TEXTURE_MODE:           TextureParameterName read _DEPTH_STENCIL_TEXTURE_MODE;
     public static property TEXTURE_TILING_EXT:                   TextureParameterName read _TEXTURE_TILING_EXT;
+    public static property TEXTURE_FOVEATED_CUTOFF_DENSITY_QCOM: TextureParameterName read _TEXTURE_FOVEATED_CUTOFF_DENSITY_QCOM;
     
     public function ToString: string; override;
     begin
@@ -10613,6 +10925,7 @@ type
       if self.val = UInt32($8F6A) then Result := 'TEXTURE_UNNORMALIZED_COORDINATES_ARM' else
       if self.val = UInt32($90EA) then Result := 'DEPTH_STENCIL_TEXTURE_MODE' else
       if self.val = UInt32($9580) then Result := 'TEXTURE_TILING_EXT' else
+      if self.val = UInt32($96A0) then Result := 'TEXTURE_FOVEATED_CUTOFF_DENSITY_QCOM' else
         Result := $'TextureParameterName[{self.val}]';
     end;
     
@@ -11297,7 +11610,8 @@ type
     public static property ALL_SHADER_BITS:                UseProgramStageMask read _ALL_SHADER_BITS;
     public static property ALL_SHADER_BITS_EXT:            UseProgramStageMask read _ALL_SHADER_BITS_EXT;
     
-    public static function operator or(f1,f2: UseProgramStageMask) := new UseProgramStageMask(f1.val or f2.val);
+    public static function operator+(f1,f2: UseProgramStageMask) := new UseProgramStageMask(f1.val or f2.val);
+    public static function operator or(f1,f2: UseProgramStageMask) := f1+f2;
     
     public property HAS_FLAG_VERTEX_SHADER_BIT:              boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_VERTEX_SHADER_BIT_EXT:          boolean read self.val and $0001 <> 0;
@@ -13015,7 +13329,8 @@ type
     
     public static property TEXTURE_STORAGE_SPARSE_BIT_AMD: TextureStorageMaskAMD read _TEXTURE_STORAGE_SPARSE_BIT_AMD;
     
-    public static function operator or(f1,f2: TextureStorageMaskAMD) := new TextureStorageMaskAMD(f1.val or f2.val);
+    public static function operator+(f1,f2: TextureStorageMaskAMD) := new TextureStorageMaskAMD(f1.val or f2.val);
+    public static function operator or(f1,f2: TextureStorageMaskAMD) := f1+f2;
     
     public property HAS_FLAG_TEXTURE_STORAGE_SPARSE_BIT_AMD: boolean read self.val and $0001 <> 0;
     
@@ -13334,119 +13649,6 @@ type
   
   {$endregion ATI}
   
-  {$region GDI}
-  
-  PixelDataTypeGDI = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    
-    private static _RGBA       := new PixelDataTypeGDI($0000);
-    private static _COLORINDEX := new PixelDataTypeGDI($0001);
-    
-    public static property RGBA:       PixelDataTypeGDI read _RGBA;
-    public static property COLORINDEX: PixelDataTypeGDI read _COLORINDEX;
-    
-    public function ToString: string; override;
-    begin
-      if self.val = UInt32($0000) then Result := 'RGBA' else
-      if self.val = UInt32($0001) then Result := 'COLORINDEX' else
-        Result := $'PixelDataTypeGDI[{self.val}]';
-    end;
-    
-  end;
-  
-  PixelFormatFlagsGDI = record
-    public val: UInt32;
-    public constructor(val: UInt32) := self.val := val;
-    
-    private static _DOUBLEBUFFER          := new PixelFormatFlagsGDI($0001);
-    private static _STEREO                := new PixelFormatFlagsGDI($0002);
-    private static _DRAW_TO_WINDOW        := new PixelFormatFlagsGDI($0004);
-    private static _DRAW_TO_BITMAP        := new PixelFormatFlagsGDI($0008);
-    private static _SUPPORT_GDI           := new PixelFormatFlagsGDI($000A);
-    private static _SUPPORT_OPENGL        := new PixelFormatFlagsGDI($0014);
-    private static _GENERIC_FORMAT        := new PixelFormatFlagsGDI($0028);
-    private static _NEED_PALETTE          := new PixelFormatFlagsGDI($0050);
-    private static _NEED_SYSTEM_PALETTE   := new PixelFormatFlagsGDI($0064);
-    private static _SWAP_EXCHANGE         := new PixelFormatFlagsGDI($00C8);
-    private static _SWAP_COPY             := new PixelFormatFlagsGDI($0190);
-    private static _SWAP_LAYER_BUFFERS    := new PixelFormatFlagsGDI($0320);
-    private static _GENERIC_ACCELERATED   := new PixelFormatFlagsGDI($03E8);
-    private static _SUPPORT_DIRECTDRAW    := new PixelFormatFlagsGDI($07D0);
-    private static _DEPTH_DONTCARE        := new PixelFormatFlagsGDI($1312D00);
-    private static _DOUBLEBUFFER_DONTCARE := new PixelFormatFlagsGDI($2625A00);
-    private static _STEREO_DONTCARE       := new PixelFormatFlagsGDI($4C4B400);
-    
-    public static property DOUBLEBUFFER:          PixelFormatFlagsGDI read _DOUBLEBUFFER;
-    public static property STEREO:                PixelFormatFlagsGDI read _STEREO;
-    public static property DRAW_TO_WINDOW:        PixelFormatFlagsGDI read _DRAW_TO_WINDOW;
-    public static property DRAW_TO_BITMAP:        PixelFormatFlagsGDI read _DRAW_TO_BITMAP;
-    public static property SUPPORT_GDI:           PixelFormatFlagsGDI read _SUPPORT_GDI;
-    public static property SUPPORT_OPENGL:        PixelFormatFlagsGDI read _SUPPORT_OPENGL;
-    public static property GENERIC_FORMAT:        PixelFormatFlagsGDI read _GENERIC_FORMAT;
-    public static property NEED_PALETTE:          PixelFormatFlagsGDI read _NEED_PALETTE;
-    public static property NEED_SYSTEM_PALETTE:   PixelFormatFlagsGDI read _NEED_SYSTEM_PALETTE;
-    public static property SWAP_EXCHANGE:         PixelFormatFlagsGDI read _SWAP_EXCHANGE;
-    public static property SWAP_COPY:             PixelFormatFlagsGDI read _SWAP_COPY;
-    public static property SWAP_LAYER_BUFFERS:    PixelFormatFlagsGDI read _SWAP_LAYER_BUFFERS;
-    public static property GENERIC_ACCELERATED:   PixelFormatFlagsGDI read _GENERIC_ACCELERATED;
-    public static property SUPPORT_DIRECTDRAW:    PixelFormatFlagsGDI read _SUPPORT_DIRECTDRAW;
-    public static property DEPTH_DONTCARE:        PixelFormatFlagsGDI read _DEPTH_DONTCARE;
-    public static property DOUBLEBUFFER_DONTCARE: PixelFormatFlagsGDI read _DOUBLEBUFFER_DONTCARE;
-    public static property STEREO_DONTCARE:       PixelFormatFlagsGDI read _STEREO_DONTCARE;
-    
-    public static function operator or(f1,f2: PixelFormatFlagsGDI) := new PixelFormatFlagsGDI(f1.val or f2.val);
-    
-    public property HAS_FLAG_DOUBLEBUFFER:          boolean read self.val and $0001 <> 0;
-    public property HAS_FLAG_STEREO:                boolean read self.val and $0002 <> 0;
-    public property HAS_FLAG_DRAW_TO_WINDOW:        boolean read self.val and $0004 <> 0;
-    public property HAS_FLAG_DRAW_TO_BITMAP:        boolean read self.val and $0008 <> 0;
-    public property HAS_FLAG_SUPPORT_GDI:           boolean read self.val and $000A <> 0;
-    public property HAS_FLAG_SUPPORT_OPENGL:        boolean read self.val and $0014 <> 0;
-    public property HAS_FLAG_GENERIC_FORMAT:        boolean read self.val and $0028 <> 0;
-    public property HAS_FLAG_NEED_PALETTE:          boolean read self.val and $0050 <> 0;
-    public property HAS_FLAG_NEED_SYSTEM_PALETTE:   boolean read self.val and $0064 <> 0;
-    public property HAS_FLAG_SWAP_EXCHANGE:         boolean read self.val and $00C8 <> 0;
-    public property HAS_FLAG_SWAP_COPY:             boolean read self.val and $0190 <> 0;
-    public property HAS_FLAG_SWAP_LAYER_BUFFERS:    boolean read self.val and $0320 <> 0;
-    public property HAS_FLAG_GENERIC_ACCELERATED:   boolean read self.val and $03E8 <> 0;
-    public property HAS_FLAG_SUPPORT_DIRECTDRAW:    boolean read self.val and $07D0 <> 0;
-    public property HAS_FLAG_DEPTH_DONTCARE:        boolean read self.val and $1312D00 <> 0;
-    public property HAS_FLAG_DOUBLEBUFFER_DONTCARE: boolean read self.val and $2625A00 <> 0;
-    public property HAS_FLAG_STEREO_DONTCARE:       boolean read self.val and $4C4B400 <> 0;
-    
-    public function ToString: string; override;
-    begin
-      var res := new StringBuilder;
-      if self.val and UInt32($0001) = UInt32($0001) then res += 'DOUBLEBUFFER+';
-      if self.val and UInt32($0002) = UInt32($0002) then res += 'STEREO+';
-      if self.val and UInt32($0004) = UInt32($0004) then res += 'DRAW_TO_WINDOW+';
-      if self.val and UInt32($0008) = UInt32($0008) then res += 'DRAW_TO_BITMAP+';
-      if self.val and UInt32($000A) = UInt32($000A) then res += 'SUPPORT_GDI+';
-      if self.val and UInt32($0014) = UInt32($0014) then res += 'SUPPORT_OPENGL+';
-      if self.val and UInt32($0028) = UInt32($0028) then res += 'GENERIC_FORMAT+';
-      if self.val and UInt32($0050) = UInt32($0050) then res += 'NEED_PALETTE+';
-      if self.val and UInt32($0064) = UInt32($0064) then res += 'NEED_SYSTEM_PALETTE+';
-      if self.val and UInt32($00C8) = UInt32($00C8) then res += 'SWAP_EXCHANGE+';
-      if self.val and UInt32($0190) = UInt32($0190) then res += 'SWAP_COPY+';
-      if self.val and UInt32($0320) = UInt32($0320) then res += 'SWAP_LAYER_BUFFERS+';
-      if self.val and UInt32($03E8) = UInt32($03E8) then res += 'GENERIC_ACCELERATED+';
-      if self.val and UInt32($07D0) = UInt32($07D0) then res += 'SUPPORT_DIRECTDRAW+';
-      if self.val and UInt32($1312D00) = UInt32($1312D00) then res += 'DEPTH_DONTCARE+';
-      if self.val and UInt32($2625A00) = UInt32($2625A00) then res += 'DOUBLEBUFFER_DONTCARE+';
-      if self.val and UInt32($4C4B400) = UInt32($4C4B400) then res += 'STEREO_DONTCARE+';
-      if res.Length<>0 then
-      begin
-        res.Length -= 1;
-        Result := res.ToString;
-      end else
-        Result := $'PixelFormatFlagsGDI[{self.val}]';
-    end;
-    
-  end;
-  
-  {$endregion GDI}
-  
   {$region HP}
   
   ImageTransformPNameHP = record
@@ -13570,7 +13772,8 @@ type
     public static property PERFQUERY_SINGLE_CONTEXT_INTEL: PerfQueryCapFlagsINTEL read _PERFQUERY_SINGLE_CONTEXT_INTEL;
     public static property PERFQUERY_GLOBAL_CONTEXT_INTEL: PerfQueryCapFlagsINTEL read _PERFQUERY_GLOBAL_CONTEXT_INTEL;
     
-    public static function operator or(f1,f2: PerfQueryCapFlagsINTEL) := new PerfQueryCapFlagsINTEL(f1.val or f2.val);
+    public static function operator+(f1,f2: PerfQueryCapFlagsINTEL) := new PerfQueryCapFlagsINTEL(f1.val or f2.val);
+    public static function operator or(f1,f2: PerfQueryCapFlagsINTEL) := f1+f2;
     
     public property ANY_FLAGS: boolean read self.val<>0;
     public property HAS_FLAG_PERFQUERY_GLOBAL_CONTEXT_INTEL: boolean read self.val and $0001 <> 0;
@@ -13957,6 +14160,37 @@ type
     
   end;
   
+  GPUDisplayDeviceFlagsNV = record
+    public val: UInt32;
+    public constructor(val: UInt32) := self.val := val;
+    
+    private static _ATTACHED_TO_DESKTOP := new GPUDisplayDeviceFlagsNV($0001);
+    private static _PRIMARY_DEVICE      := new GPUDisplayDeviceFlagsNV($0004);
+    
+    public static property ATTACHED_TO_DESKTOP: GPUDisplayDeviceFlagsNV read _ATTACHED_TO_DESKTOP;
+    public static property PRIMARY_DEVICE:      GPUDisplayDeviceFlagsNV read _PRIMARY_DEVICE;
+    
+    public static function operator+(f1,f2: GPUDisplayDeviceFlagsNV) := new GPUDisplayDeviceFlagsNV(f1.val or f2.val);
+    public static function operator or(f1,f2: GPUDisplayDeviceFlagsNV) := f1+f2;
+    
+    public property HAS_FLAG_ATTACHED_TO_DESKTOP: boolean read self.val and $0001 <> 0;
+    public property HAS_FLAG_PRIMARY_DEVICE:      boolean read self.val and $0004 <> 0;
+    
+    public function ToString: string; override;
+    begin
+      var res := new StringBuilder;
+      if self.val and UInt32($0001) = UInt32($0001) then res += 'ATTACHED_TO_DESKTOP+';
+      if self.val and UInt32($0004) = UInt32($0004) then res += 'PRIMARY_DEVICE+';
+      if res.Length<>0 then
+      begin
+        res.Length -= 1;
+        Result := res.ToString;
+      end else
+        Result := $'GPUDisplayDeviceFlagsNV[{self.val}]';
+    end;
+    
+  end;
+  
   MapAttribParameterNV = record
     public val: UInt32;
     public constructor(val: UInt32) := self.val := val;
@@ -14407,7 +14641,8 @@ type
     public static property TEXTURE_DEFORMATION_BIT_SGIX:  FfdMaskSGIX read _TEXTURE_DEFORMATION_BIT_SGIX;
     public static property GEOMETRY_DEFORMATION_BIT_SGIX: FfdMaskSGIX read _GEOMETRY_DEFORMATION_BIT_SGIX;
     
-    public static function operator or(f1,f2: FfdMaskSGIX) := new FfdMaskSGIX(f1.val or f2.val);
+    public static function operator+(f1,f2: FfdMaskSGIX) := new FfdMaskSGIX(f1.val or f2.val);
+    public static function operator or(f1,f2: FfdMaskSGIX) := f1+f2;
     
     public property HAS_FLAG_TEXTURE_DEFORMATION_BIT_SGIX:  boolean read self.val and $0001 <> 0;
     public property HAS_FLAG_GEOMETRY_DEFORMATION_BIT_SGIX: boolean read self.val and $0002 <> 0;
@@ -14644,10 +14879,10 @@ type
   {$region Делегаты}
   
   [UnmanagedFunctionPointer(CallingConvention.StdCall)]
-  GLDEBUGPROC = procedure(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; message_text: IntPtr; userParam: pointer);
+  GL_DEBUG_PROC = procedure(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; message_text: IntPtr; userParam: pointer);
   
   [UnmanagedFunctionPointer(CallingConvention.StdCall)]
-  GLVULKANPROCNV = procedure;
+  GL_VULKAN_PROC_NV = procedure;
   
   {$endregion Делегаты}
   
@@ -14676,6 +14911,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14714,6 +14960,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14756,6 +15013,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14800,6 +15068,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14848,6 +15127,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14898,6 +15188,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -14952,6 +15253,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15008,6 +15320,17 @@ type
     
     public function SqrLength := val0*val0;
     
+    public static function Read(prompt: string := nil): Vec1ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15070,6 +15393,17 @@ type
     
     public function Normalized := self / single(Sqrt(self.SqrLength));
     
+    public static function Read(prompt: string := nil): Vec1f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15137,6 +15471,17 @@ type
     
     public function Normalized := self / self.SqrLength.Sqrt;
     
+    public static function Read(prompt: string := nil): Vec1d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0);
+    end;
+    public static function Readln(prompt: string := nil): Vec1d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15211,6 +15556,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15283,6 +15639,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15359,6 +15726,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15437,6 +15815,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15519,6 +15908,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15603,6 +16003,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15691,6 +16102,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15781,6 +16203,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1;
     
+    public static function Read(prompt: string := nil): Vec2ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15877,6 +16310,17 @@ type
     
     public function Normalized := self / single(Sqrt(self.SqrLength));
     
+    public static function Read(prompt: string := nil): Vec2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -15978,6 +16422,17 @@ type
     
     public function Normalized := self / self.SqrLength.Sqrt;
     
+    public static function Read(prompt: string := nil): Vec2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1);
+    end;
+    public static function Readln(prompt: string := nil): Vec2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -16087,10 +16542,19 @@ type
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
     public static function CrossCW(v1,v2: Vec3b) :=
-    new Vec3b(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3b) :=
     new Vec3b(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3b) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -16198,6 +16662,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
+    public static function Read(prompt: string := nil): Vec3ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -16309,10 +16784,19 @@ type
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
     public static function CrossCW(v1,v2: Vec3s) :=
-    new Vec3s(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3s) :=
     new Vec3s(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3s) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -16426,6 +16910,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
+    public static function Read(prompt: string := nil): Vec3us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -16543,10 +17038,19 @@ type
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
     public static function CrossCW(v1,v2: Vec3i) :=
-    new Vec3i(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3i) :=
     new Vec3i(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3i) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -16666,6 +17170,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
+    public static function Read(prompt: string := nil): Vec3ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -16789,10 +17304,19 @@ type
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
     public static function CrossCW(v1,v2: Vec3i64) :=
-    new Vec3i64(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3i64) :=
     new Vec3i64(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3i64) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -16918,6 +17442,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2;
     
+    public static function Read(prompt: string := nil): Vec3ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -17049,10 +17584,19 @@ type
     public function Normalized := self / single(Sqrt(self.SqrLength));
     
     public static function CrossCW(v1,v2: Vec3f) :=
-    new Vec3f(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3f) :=
     new Vec3f(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3f) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -17190,10 +17734,19 @@ type
     public function Normalized := self / self.SqrLength.Sqrt;
     
     public static function CrossCW(v1,v2: Vec3d) :=
-    new Vec3d(v1.val2*v2.val1 - v2.val2*v1.val1, v1.val0*v2.val2 - v2.val0*v1.val2, v1.val1*v2.val0 - v2.val1*v1.val0);
-    
-    public static function CrossCCW(v1,v2: Vec3d) :=
     new Vec3d(v1.val1*v2.val2 - v2.val1*v1.val2, v1.val2*v2.val0 - v2.val2*v1.val0, v1.val0*v2.val1 - v2.val0*v1.val1);
+    public static function CrossCCW(v1,v2: Vec3d) := CrossCW(v2,v1);
+    
+    public static function Read(prompt: string := nil): Vec3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2);
+    end;
+    public static function Readln(prompt: string := nil): Vec3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2);
+    end;
     
     public function ToString: string; override;
     begin
@@ -17337,6 +17890,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4b;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -17477,6 +18041,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4ub;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -17621,6 +18196,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4s;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -17767,6 +18353,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4us;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -17917,6 +18514,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4i;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18069,6 +18677,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4ui;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18225,6 +18844,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4i64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18383,6 +19013,17 @@ type
     
     public function SqrLength := val0*val0 + val1*val1 + val2*val2 + val3*val3;
     
+    public static function Read(prompt: string := nil): Vec4ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4ui64;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18547,6 +19188,17 @@ type
     
     public function Normalized := self / single(Sqrt(self.SqrLength));
     
+    public static function Read(prompt: string := nil): Vec4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18716,6 +19368,17 @@ type
     
     public function Normalized := self / self.SqrLength.Sqrt;
     
+    public static function Read(prompt: string := nil): Vec4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    public static function Readln(prompt: string := nil): Vec4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Readln(Result.val0, Result.val1, Result.val2, Result.val3);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -18812,6 +19475,35 @@ type
     public function Det: single :=
     val00*val11 - val10*val01;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19014,6 +19706,41 @@ type
     public function Det: single :=
     val00 * (val11*val22 - val21*val12) - val01 * (val10*val22 - val20*val12) + val02 * (val10*val21 - val20*val11);
     
+    public static function ReadRows(prompt: string := nil): Mtr3x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19260,6 +19987,47 @@ type
     public function Det: single :=
     val00 * (val11 * (val21*val32 - val31*val22) - val12 * (val22*val33 - val32*val23) + val13 * (val21*val33 - val31*val23)) - val01 * (val10 * (val22*val33 - val32*val23) - val12 * (val20*val32 - val30*val22) + val13 * (val20*val33 - val30*val23)) + val02 * (val10 * (val21*val33 - val31*val23) - val11 * (val20*val33 - val30*val23) + val13 * (val20*val31 - val30*val21)) - val03 * (val10 * (val21*val32 - val31*val22) - val11 * (val20*val32 - val30*val22) + val12 * (val20*val31 - val30*val21));
     
+    public static function ReadRows(prompt: string := nil): Mtr4x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22, Result.val23);
+      PABCSystem.Read(Result.val30, Result.val31, Result.val32, Result.val33);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22, Result.val23);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31, Result.val32, Result.val33);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22, Result.val32);
+      PABCSystem.Read(Result.val03, Result.val13, Result.val23, Result.val33);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22, Result.val32);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13, Result.val23, Result.val33);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19421,6 +20189,38 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+      PABCSystem.Read(Result.val02, Result.val12);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19546,6 +20346,38 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr3x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+      PABCSystem.Read(Result.val20, Result.val21);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19692,6 +20524,41 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+      PABCSystem.Read(Result.val02, Result.val12);
+      PABCSystem.Read(Result.val03, Result.val13);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -19834,6 +20701,41 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr4x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+      PABCSystem.Read(Result.val20, Result.val21);
+      PABCSystem.Read(Result.val30, Result.val31);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x2f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x2f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -20076,6 +20978,44 @@ type
       
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr3x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22, Result.val23);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22, Result.val23);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x4f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22);
+      PABCSystem.Read(Result.val03, Result.val13, Result.val23);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x4f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13, Result.val23);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -20330,6 +21270,44 @@ type
       
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr4x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22);
+      PABCSystem.Read(Result.val30, Result.val31, Result.val32);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31, Result.val32);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x3f;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22, Result.val32);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x3f;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22, Result.val32);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -20488,6 +21466,35 @@ type
     public function Det: double :=
     val00*val11 - val10*val01;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -20717,6 +21724,41 @@ type
     public function Det: double :=
     val00 * (val11*val22 - val21*val12) - val01 * (val10*val22 - val20*val12) + val02 * (val10*val21 - val20*val11);
     
+    public static function ReadRows(prompt: string := nil): Mtr3x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -20990,6 +22032,47 @@ type
     public function Det: double :=
     val00 * (val11 * (val21*val32 - val31*val22) - val12 * (val22*val33 - val32*val23) + val13 * (val21*val33 - val31*val23)) - val01 * (val10 * (val22*val33 - val32*val23) - val12 * (val20*val32 - val30*val22) + val13 * (val20*val33 - val30*val23)) + val02 * (val10 * (val21*val33 - val31*val23) - val11 * (val20*val33 - val30*val23) + val13 * (val20*val31 - val30*val21)) - val03 * (val10 * (val21*val32 - val31*val22) - val11 * (val20*val32 - val30*val22) + val12 * (val20*val31 - val30*val21));
     
+    public static function ReadRows(prompt: string := nil): Mtr4x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22, Result.val23);
+      PABCSystem.Read(Result.val30, Result.val31, Result.val32, Result.val33);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22, Result.val23);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31, Result.val32, Result.val33);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22, Result.val32);
+      PABCSystem.Read(Result.val03, Result.val13, Result.val23, Result.val33);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22, Result.val32);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13, Result.val23, Result.val33);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -21178,6 +22261,38 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+      PABCSystem.Read(Result.val02, Result.val12);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -21330,6 +22445,38 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr3x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+      PABCSystem.Read(Result.val20, Result.val21);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -21503,6 +22650,41 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr2x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr2x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr2x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10);
+      PABCSystem.Read(Result.val01, Result.val11);
+      PABCSystem.Read(Result.val02, Result.val12);
+      PABCSystem.Read(Result.val03, Result.val13);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr2x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -21672,6 +22854,41 @@ type
       );
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr4x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01);
+      PABCSystem.Read(Result.val10, Result.val11);
+      PABCSystem.Read(Result.val20, Result.val21);
+      PABCSystem.Read(Result.val30, Result.val31);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x2d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x2d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -21941,6 +23158,44 @@ type
       
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr3x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02, Result.val03);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12, Result.val13);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22, Result.val23);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr3x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02, Result.val03);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12, Result.val13);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22, Result.val23);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr3x4d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22);
+      PABCSystem.Read(Result.val03, Result.val13, Result.val23);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr3x4d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22);
+      col_prompt(3).Print;
+      PABCSystem.Readln(Result.val03, Result.val13, Result.val23);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -22222,6 +23477,44 @@ type
       
     end;
     
+    public static function ReadRows(prompt: string := nil): Mtr4x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val01, Result.val02);
+      PABCSystem.Read(Result.val10, Result.val11, Result.val12);
+      PABCSystem.Read(Result.val20, Result.val21, Result.val22);
+      PABCSystem.Read(Result.val30, Result.val31, Result.val32);
+    end;
+    public static function ReadlnRows(prompt: string := nil; row_prompt: integer->string := nil): Mtr4x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      row_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val01, Result.val02);
+      row_prompt(1).Print;
+      PABCSystem.Readln(Result.val10, Result.val11, Result.val12);
+      row_prompt(2).Print;
+      PABCSystem.Readln(Result.val20, Result.val21, Result.val22);
+      row_prompt(3).Print;
+      PABCSystem.Readln(Result.val30, Result.val31, Result.val32);
+    end;
+    public static function ReadCols(prompt: string := nil): Mtr4x3d;
+    begin
+      if prompt <> nil then prompt.Print;
+      PABCSystem.Read(Result.val00, Result.val10, Result.val20, Result.val30);
+      PABCSystem.Read(Result.val01, Result.val11, Result.val21, Result.val31);
+      PABCSystem.Read(Result.val02, Result.val12, Result.val22, Result.val32);
+    end;
+    public static function ReadlnCols(prompt: string := nil; col_prompt: integer->string := nil): Mtr4x3d;
+    begin
+      if prompt <> nil then prompt.Println;
+      col_prompt(0).Print;
+      PABCSystem.Readln(Result.val00, Result.val10, Result.val20, Result.val30);
+      col_prompt(1).Print;
+      PABCSystem.Readln(Result.val01, Result.val11, Result.val21, Result.val31);
+      col_prompt(2).Print;
+      PABCSystem.Readln(Result.val02, Result.val12, Result.val22, Result.val32);
+    end;
+    
     public function ToString: string; override;
     begin
       var res := new StringBuilder;
@@ -22356,7 +23649,7 @@ type
     
   end;
   
-  GDI_COLORREF = record
+  gdi_colorref = record
     private a: byte := 0;
     public r: byte;
     public g: byte;
@@ -22371,7 +23664,7 @@ type
     
   end;
   
-  GDI_GlyphmetricsFloat = record
+  gdi_glyphmetrics_float = record
     public gmfBlackBoxX: single;
     public gmfBlackBoxY: single;
     public gmfptGlyphOriginX: single;
@@ -22391,12 +23684,71 @@ type
     
   end;
   
-  GDI_PixelFormatDescriptor = record
-    private nSize: UInt16 := sizeof(GDI_PixelFormatDescriptor);
+  gdi_layer_plane_descriptor = record
+    public nSize: UInt16 := sizeof(gdi_layer_plane_descriptor);
     public nVersion: UInt16 := 1;
     
-    public dwFlags: PixelFormatFlagsGDI;
-    public iPixelType: PixelDataTypeGDI;
+    public dwFlags: GDI_LayerPlaneFlags;
+    public iPixelType: GDI_PixelDataType;
+    
+    public cColorBits: Byte; // Кол-во бит для R+G+B
+    public cRedBits: Byte; // Если оставить эти 6 нулями - их заполнит автоматически
+    public cRedShift: Byte;
+    public cGreenBits: Byte;
+    public cGreenShift: Byte;
+    public cBlueBits: Byte;
+    public cBlueShift: Byte;
+    public cAlphaBits: Byte; // Последние 2 не работают на Windows
+    public cAlphaShift: Byte;
+    
+    public cAccumBits: Byte;
+    public cAccumRedBits: Byte;
+    public cAccumGreenBits: Byte;
+    public cAccumBlueBits: Byte;
+    public cAccumAlphaBits: Byte;
+    public cDepthBits: Byte;
+    public cStencilBits: Byte;
+    
+    public cAuxBuffers: Byte; // Устарело
+    public iLayerPlane: Byte;
+    public bReserved: Byte;
+    
+    public crTransparent: gdi_colorref; // Прозрачный цвет работает только если в dwFlags добавить LayerPlaneFlagsGDI.TRANSPARENT
+    
+    public constructor(dwFlags: GDI_LayerPlaneFlags; iPixelType: GDI_PixelDataType; cColorBits: Byte; cRedBits: Byte; cRedShift: Byte; cGreenBits: Byte; cGreenShift: Byte; cBlueBits: Byte; cBlueShift: Byte; cAlphaBits: Byte; cAlphaShift: Byte; cAccumBits: Byte; cAccumRedBits: Byte; cAccumGreenBits: Byte; cAccumBlueBits: Byte; cAccumAlphaBits: Byte; cDepthBits: Byte; cStencilBits: Byte; cAuxBuffers: Byte; iLayerPlane: Byte; bReserved: Byte; crTransparent: gdi_colorref);
+    begin
+      self.dwFlags := dwFlags;
+      self.iPixelType := iPixelType;
+      self.cColorBits := cColorBits;
+      self.cRedBits := cRedBits;
+      self.cRedShift := cRedShift;
+      self.cGreenBits := cGreenBits;
+      self.cGreenShift := cGreenShift;
+      self.cBlueBits := cBlueBits;
+      self.cBlueShift := cBlueShift;
+      self.cAlphaBits := cAlphaBits;
+      self.cAlphaShift := cAlphaShift;
+      self.cAccumBits := cAccumBits;
+      self.cAccumRedBits := cAccumRedBits;
+      self.cAccumGreenBits := cAccumGreenBits;
+      self.cAccumBlueBits := cAccumBlueBits;
+      self.cAccumAlphaBits := cAccumAlphaBits;
+      self.cDepthBits := cDepthBits;
+      self.cStencilBits := cStencilBits;
+      self.cAuxBuffers := cAuxBuffers;
+      self.iLayerPlane := iLayerPlane;
+      self.bReserved := bReserved;
+      self.crTransparent := crTransparent;
+    end;
+    
+  end;
+  
+  gdi_pixel_format_descriptor = record
+    public nSize: UInt16 := sizeof(gdi_pixel_format_descriptor);
+    public nVersion: UInt16 := 1;
+    
+    public dwFlags: GDI_PixelFormatFlags;
+    public iPixelType: GDI_PixelDataType;
     
     public cColorBits: Byte; // Кол-во бит для R+G+B
     public cRedBits: Byte; // Если оставить эти 6 нулями - их заполнит автоматически
@@ -22425,7 +23777,7 @@ type
     public dwVisibleMask: UInt32;
     public dwDamageMask: UInt32;
     
-    public constructor(dwFlags: PixelFormatFlagsGDI; iPixelType: PixelDataTypeGDI; cColorBits: Byte; cRedBits: Byte; cRedShift: Byte; cGreenBits: Byte; cGreenShift: Byte; cBlueBits: Byte; cBlueShift: Byte; cAlphaBits: Byte; cAlphaShift: Byte; cAccumBits: Byte; cAccumRedBits: Byte; cAccumGreenBits: Byte; cAccumBlueBits: Byte; cAccumAlphaBits: Byte; cDepthBits: Byte; cStencilBits: Byte; cAuxBuffers: Byte; iLayerType: Byte; bLayersSize: Byte; dwLayerMask: UInt32; dwVisibleMask: UInt32; dwDamageMask: UInt32);
+    public constructor(dwFlags: GDI_PixelFormatFlags; iPixelType: GDI_PixelDataType; cColorBits: Byte; cRedBits: Byte; cRedShift: Byte; cGreenBits: Byte; cGreenShift: Byte; cBlueBits: Byte; cBlueShift: Byte; cAlphaBits: Byte; cAlphaShift: Byte; cAccumBits: Byte; cAccumRedBits: Byte; cAccumGreenBits: Byte; cAccumBlueBits: Byte; cAccumAlphaBits: Byte; cDepthBits: Byte; cStencilBits: Byte; cAuxBuffers: Byte; iLayerType: Byte; bLayersSize: Byte; dwLayerMask: UInt32; dwVisibleMask: UInt32; dwDamageMask: UInt32);
     begin
       self.dwFlags := dwFlags;
       self.iPixelType := iPixelType;
@@ -22455,6 +23807,101 @@ type
     
   end;
   
+  [StructLayout(LayoutKind.Explicit, Size = 80)]
+  ///--
+  _ValueString_80 = record
+    
+    public property NtvChars[i: integer]: Byte
+    read Marshal.ReadByte(new IntPtr(@self), i)
+    write Marshal.WriteByte(new IntPtr(@self), i, value);    public property Chars[i: integer]: char read ChrAnsi(NtvChars[i]) write NtvChars[i] := OrdAnsi(value); default;
+    
+    public constructor(s: string);
+    begin
+      if s.Length >= 80 then raise new System.OverflowException;
+      
+      for var i := 0 to s.Length-1 do
+        self[i] := s[i+1];
+      self.NtvChars[s.Length] := 0;
+      
+    end;
+    
+    public function ToString: string; override :=
+    Marshal.PtrToStringAnsi(new IntPtr(@self));
+    
+  end;
+  
+  glx_hyperpipe_config_SGIX = record
+    public pipeName: _ValueString_80;
+    public channel: Int32;
+    public participationType: PipeParticipationTypeFlags;
+    public timeSlice: Int32;
+    
+    public constructor(pipeName: _ValueString_80; channel: Int32; participationType: PipeParticipationTypeFlags; timeSlice: Int32);
+    begin
+      self.pipeName := pipeName;
+      self.channel := channel;
+      self.participationType := participationType;
+      self.timeSlice := timeSlice;
+    end;
+    
+  end;
+  
+  glx_hyperpipe_network_SGIX = record
+    public pipeName: _ValueString_80;
+    public networkId: Int32;
+    
+    public constructor(pipeName: _ValueString_80; networkId: Int32);
+    begin
+      self.pipeName := pipeName;
+      self.networkId := networkId;
+    end;
+    
+  end;
+  
+  glx_pipe_rect_limits_SGIX = record
+    public pipeName: _ValueString_80;
+    public XOrigin: Int32;
+    public YOrigin: Int32;
+    public maxHeight: Int32;
+    public maxWidth: Int32;
+    
+    public constructor(pipeName: _ValueString_80; XOrigin: Int32; YOrigin: Int32; maxHeight: Int32; maxWidth: Int32);
+    begin
+      self.pipeName := pipeName;
+      self.XOrigin := XOrigin;
+      self.YOrigin := YOrigin;
+      self.maxHeight := maxHeight;
+      self.maxWidth := maxWidth;
+    end;
+    
+  end;
+  
+  glx_pipe_rect_SGIX = record
+    public pipeName: _ValueString_80;
+    public srcXOrigin: Int32;
+    public srcYOrigin: Int32;
+    public srcWidth: Int32;
+    public srcHeight: Int32;
+    public destXOrigin: Int32;
+    public destYOrigin: Int32;
+    public destWidth: Int32;
+    public destHeight: Int32;
+    
+    public constructor(pipeName: _ValueString_80; srcXOrigin: Int32; srcYOrigin: Int32; srcWidth: Int32; srcHeight: Int32; destXOrigin: Int32; destYOrigin: Int32; destWidth: Int32; destHeight: Int32);
+    begin
+      self.pipeName := pipeName;
+      self.srcXOrigin := srcXOrigin;
+      self.srcYOrigin := srcYOrigin;
+      self.srcWidth := srcWidth;
+      self.srcHeight := srcHeight;
+      self.destXOrigin := destXOrigin;
+      self.destYOrigin := destYOrigin;
+      self.destWidth := destWidth;
+      self.destHeight := destHeight;
+    end;
+    
+  end;
+  
   Half = record
     public val: UInt16;
     
@@ -22465,6 +23912,68 @@ type
     
   end;
   
+  [StructLayout(LayoutKind.Explicit, Size = 32)]
+  ///--
+  _ValueString_32 = record
+    
+    public property NtvChars[i: integer]: Byte
+    read Marshal.ReadByte(new IntPtr(@self), i)
+    write Marshal.WriteByte(new IntPtr(@self), i, value);    public property Chars[i: integer]: char read ChrAnsi(NtvChars[i]) write NtvChars[i] := OrdAnsi(value); default;
+    
+    public constructor(s: string);
+    begin
+      if s.Length >= 32 then raise new System.OverflowException;
+      
+      for var i := 0 to s.Length-1 do
+        self[i] := s[i+1];
+      self.NtvChars[s.Length] := 0;
+      
+    end;
+    
+    public function ToString: string; override :=
+    Marshal.PtrToStringAnsi(new IntPtr(@self));
+    
+  end;
+  
+  [StructLayout(LayoutKind.Explicit, Size = 128)]
+  ///--
+  _ValueString_128 = record
+    
+    public property NtvChars[i: integer]: Byte
+    read Marshal.ReadByte(new IntPtr(@self), i)
+    write Marshal.WriteByte(new IntPtr(@self), i, value);    public property Chars[i: integer]: char read ChrAnsi(NtvChars[i]) write NtvChars[i] := OrdAnsi(value); default;
+    
+    public constructor(s: string);
+    begin
+      if s.Length >= 128 then raise new System.OverflowException;
+      
+      for var i := 0 to s.Length-1 do
+        self[i] := s[i+1];
+      self.NtvChars[s.Length] := 0;
+      
+    end;
+    
+    public function ToString: string; override :=
+    Marshal.PtrToStringAnsi(new IntPtr(@self));
+    
+  end;
+  
+  wgl_GPU_device_NV = record
+    public cb: UInt32 := sizeof(wgl_GPU_device_NV);
+    public DeviceName: _ValueString_32;
+    public DeviceString: _ValueString_128;
+    public Flags: GPUDisplayDeviceFlagsNV;
+    public rcVirtualScreen: record left, top, right, bottom: Int64; end := (left: 0; top: 0; right: 0; bottom: 0);
+    
+    public constructor(DeviceName: _ValueString_32; DeviceString: _ValueString_128; Flags: GPUDisplayDeviceFlagsNV);
+    begin
+      self.DeviceName := DeviceName;
+      self.DeviceString := DeviceString;
+      self.Flags := Flags;
+    end;
+    
+  end;
+  
   {$endregion Misc}
   
   {$endregion Записи}
@@ -22486,22 +23995,1644 @@ type
     
   end;
   
+  IPlatformAPI = interface
+    function GetProcAddress(lpszProc: string): IntPtr;
+  end;
+  
   {$endregion Другие типы}
   
+  {$region Внешние external перегрузки функций}
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  ///--
+  gl_ntv = static class
+    
+    public static procedure z_BindTexture_ovr_0(target: TextureTarget; texture: gl_texture);
+    external 'opengl32.dll' name 'glBindTexture';
+    
+    public static procedure z_BlendFunc_ovr_0(sfactor: BlendingFactor; dfactor: BlendingFactor);
+    external 'opengl32.dll' name 'glBlendFunc';
+    
+    public static procedure z_Clear_ovr_0(mask: ClearBufferMask);
+    external 'opengl32.dll' name 'glClear';
+    
+    public static procedure z_ClearColor_ovr_0(red: single; green: single; blue: single; alpha: single);
+    external 'opengl32.dll' name 'glClearColor';
+    
+    public static procedure z_ClearDepth_ovr_0(depth: real);
+    external 'opengl32.dll' name 'glClearDepth';
+    
+    public static procedure z_ClearStencil_ovr_0(s: Int32);
+    external 'opengl32.dll' name 'glClearStencil';
+    
+    public static procedure z_ColorMask_ovr_0(red: boolean; green: boolean; blue: boolean; alpha: boolean);
+    external 'opengl32.dll' name 'glColorMask';
+    
+    public static procedure z_CopyTexImage1D_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32);
+    external 'opengl32.dll' name 'glCopyTexImage1D';
+    
+    public static procedure z_CopyTexImage2D_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32);
+    external 'opengl32.dll' name 'glCopyTexImage2D';
+    
+    public static procedure z_CopyTexSubImage1D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
+    external 'opengl32.dll' name 'glCopyTexSubImage1D';
+    
+    public static procedure z_CopyTexSubImage2D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
+    external 'opengl32.dll' name 'glCopyTexSubImage2D';
+    
+    public static procedure z_CullFace_ovr_0(mode: CullFaceMode);
+    external 'opengl32.dll' name 'glCullFace';
+    
+    public static procedure z_DeleteTextures_ovr_0(n: Int32; var textures: gl_texture);
+    external 'opengl32.dll' name 'glDeleteTextures';
+    public static procedure z_DeleteTextures_ovr_0_anh001(n: Int32; textures: IntPtr);
+    external 'opengl32.dll' name 'glDeleteTextures';
+    public static procedure z_DeleteTextures_ovr_2(n: Int32; textures: IntPtr);
+    external 'opengl32.dll' name 'glDeleteTextures';
+    
+    public static procedure z_DepthFunc_ovr_0(func: DepthFunction);
+    external 'opengl32.dll' name 'glDepthFunc';
+    
+    public static procedure z_DepthMask_ovr_0(flag: boolean);
+    external 'opengl32.dll' name 'glDepthMask';
+    
+    public static procedure z_DepthRange_ovr_0(n: real; f: real);
+    external 'opengl32.dll' name 'glDepthRange';
+    
+    public static procedure z_Disable_ovr_0(cap: EnableCap);
+    external 'opengl32.dll' name 'glDisable';
+    
+    public static procedure z_DrawArrays_ovr_0(mode: PrimitiveType; first: Int32; count: Int32);
+    external 'opengl32.dll' name 'glDrawArrays';
+    
+    public static procedure z_DrawBuffer_ovr_0(buf: DrawBufferMode);
+    external 'opengl32.dll' name 'glDrawBuffer';
+    
+    public static procedure z_DrawElements_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr);
+    external 'opengl32.dll' name 'glDrawElements';
+    
+    public static procedure z_Enable_ovr_0(cap: EnableCap);
+    external 'opengl32.dll' name 'glEnable';
+    
+    public static procedure z_Finish_ovr_0;
+    external 'opengl32.dll' name 'glFinish';
+    
+    public static procedure z_Flush_ovr_0;
+    external 'opengl32.dll' name 'glFlush';
+    
+    public static procedure z_FrontFace_ovr_0(mode: FrontFaceDirection);
+    external 'opengl32.dll' name 'glFrontFace';
+    
+    public static procedure z_GenTextures_ovr_0(n: Int32; var textures: gl_texture);
+    external 'opengl32.dll' name 'glGenTextures';
+    public static procedure z_GenTextures_ovr_0_anh001(n: Int32; textures: IntPtr);
+    external 'opengl32.dll' name 'glGenTextures';
+    public static procedure z_GenTextures_ovr_2(n: Int32; textures: IntPtr);
+    external 'opengl32.dll' name 'glGenTextures';
+    
+    public static procedure z_GetBooleanv_ovr_0(pname: GetPName; var data: boolean);
+    external 'opengl32.dll' name 'glGetBooleanv';
+    public static procedure z_GetBooleanv_ovr_0_anh001(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetBooleanv';
+    public static procedure z_GetBooleanv_ovr_2(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetBooleanv';
+    
+    public static procedure z_GetDoublev_ovr_0(pname: GetPName; var data: real);
+    external 'opengl32.dll' name 'glGetDoublev';
+    public static procedure z_GetDoublev_ovr_0_anh001(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetDoublev';
+    public static procedure z_GetDoublev_ovr_2(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetDoublev';
+    
+    public static function z_GetError_ovr_0: ErrorCode;
+    external 'opengl32.dll' name 'glGetError';
+    
+    public static procedure z_GetFloatv_ovr_0(pname: GetPName; var data: single);
+    external 'opengl32.dll' name 'glGetFloatv';
+    public static procedure z_GetFloatv_ovr_0_anh001(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetFloatv';
+    public static procedure z_GetFloatv_ovr_2(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetFloatv';
+    
+    public static procedure z_GetIntegerv_ovr_0(pname: GetPName; var data: Int32);
+    external 'opengl32.dll' name 'glGetIntegerv';
+    public static procedure z_GetIntegerv_ovr_0_anh001(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetIntegerv';
+    public static procedure z_GetIntegerv_ovr_2(pname: GetPName; data: IntPtr);
+    external 'opengl32.dll' name 'glGetIntegerv';
+    
+    public static function z_GetString_ovr_0(name: StringName): IntPtr;
+    external 'opengl32.dll' name 'glGetString';
+    
+    public static procedure z_GetTexImage_ovr_0(target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glGetTexImage';
+    
+    public static procedure z_GetTexLevelParameterfv_ovr_0(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
+    public static procedure z_GetTexLevelParameterfv_ovr_0_anh00001(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
+    public static procedure z_GetTexLevelParameterfv_ovr_2(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
+    
+    public static procedure z_GetTexLevelParameteriv_ovr_0(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
+    public static procedure z_GetTexLevelParameteriv_ovr_0_anh00001(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
+    public static procedure z_GetTexLevelParameteriv_ovr_2(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
+    
+    public static procedure z_GetTexParameterfv_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetTexParameterfv';
+    public static procedure z_GetTexParameterfv_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexParameterfv';
+    public static procedure z_GetTexParameterfv_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexParameterfv';
+    
+    public static procedure z_GetTexParameteriv_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetTexParameteriv';
+    public static procedure z_GetTexParameteriv_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexParameteriv';
+    public static procedure z_GetTexParameteriv_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexParameteriv';
+    
+    public static procedure z_Hint_ovr_0(target: HintTarget; mode: HintMode);
+    external 'opengl32.dll' name 'glHint';
+    
+    public static function z_IsEnabled_ovr_0(cap: EnableCap): boolean;
+    external 'opengl32.dll' name 'glIsEnabled';
+    
+    public static function z_IsTexture_ovr_0(texture: gl_texture): boolean;
+    external 'opengl32.dll' name 'glIsTexture';
+    
+    public static procedure z_LineWidth_ovr_0(width: single);
+    external 'opengl32.dll' name 'glLineWidth';
+    
+    public static procedure z_LogicOp_ovr_0(opcode: OpenGL.LogicOp);
+    external 'opengl32.dll' name 'glLogicOp';
+    
+    public static procedure z_PixelStoref_ovr_0(pname: PixelStoreParameter; param: single);
+    external 'opengl32.dll' name 'glPixelStoref';
+    
+    public static procedure z_PixelStorei_ovr_0(pname: PixelStoreParameter; param: Int32);
+    external 'opengl32.dll' name 'glPixelStorei';
+    
+    public static procedure z_PointSize_ovr_0(size: single);
+    external 'opengl32.dll' name 'glPointSize';
+    
+    public static procedure z_PolygonMode_ovr_0(face: MaterialFace; mode: OpenGL.PolygonMode);
+    external 'opengl32.dll' name 'glPolygonMode';
+    
+    public static procedure z_PolygonOffset_ovr_0(factor: single; units: single);
+    external 'opengl32.dll' name 'glPolygonOffset';
+    
+    public static procedure z_ReadBuffer_ovr_0(src: ReadBufferMode);
+    external 'opengl32.dll' name 'glReadBuffer';
+    
+    public static procedure z_ReadPixels_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glReadPixels';
+    
+    public static procedure z_Scissor_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32);
+    external 'opengl32.dll' name 'glScissor';
+    
+    public static procedure z_StencilFunc_ovr_0(func: StencilFunction; ref: Int32; mask: UInt32);
+    external 'opengl32.dll' name 'glStencilFunc';
+    
+    public static procedure z_StencilMask_ovr_0(mask: UInt32);
+    external 'opengl32.dll' name 'glStencilMask';
+    
+    public static procedure z_StencilOp_ovr_0(fail: OpenGL.StencilOp; zfail: OpenGL.StencilOp; zpass: OpenGL.StencilOp);
+    external 'opengl32.dll' name 'glStencilOp';
+    
+    public static procedure z_TexImage1D_ovr_0(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glTexImage1D';
+    
+    public static procedure z_TexImage2D_ovr_0(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glTexImage2D';
+    
+    public static procedure z_TexParameterf_ovr_0(target: TextureTarget; pname: TextureParameterName; param: single);
+    external 'opengl32.dll' name 'glTexParameterf';
+    
+    public static procedure z_TexParameterfv_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: single);
+    external 'opengl32.dll' name 'glTexParameterfv';
+    public static procedure z_TexParameterfv_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexParameterfv';
+    public static procedure z_TexParameterfv_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexParameterfv';
+    
+    public static procedure z_TexParameteri_ovr_0(target: TextureTarget; pname: TextureParameterName; param: Int32);
+    external 'opengl32.dll' name 'glTexParameteri';
+    
+    public static procedure z_TexParameteriv_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glTexParameteriv';
+    public static procedure z_TexParameteriv_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexParameteriv';
+    public static procedure z_TexParameteriv_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexParameteriv';
+    
+    public static procedure z_TexSubImage1D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glTexSubImage1D';
+    
+    public static procedure z_TexSubImage2D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glTexSubImage2D';
+    
+    public static procedure z_Viewport_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32);
+    external 'opengl32.dll' name 'glViewport';
+    
+    public static procedure z_Accum_ovr_0(op: AccumOp; value: single);
+    external 'opengl32.dll' name 'glAccum';
+    
+    public static procedure z_AlphaFunc_ovr_0(func: AlphaFunction; ref: single);
+    external 'opengl32.dll' name 'glAlphaFunc';
+    
+    public static function z_AreTexturesResident_ovr_0(n: Int32; var textures: gl_texture; var residences: boolean): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_0_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_0_anh0001(n: Int32; var textures: gl_texture; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_0_anh0011(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_1_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_2(n: Int32; var textures: gl_texture; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_2_anh0010(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_6(n: Int32; textures: IntPtr; var residences: boolean): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_6_anh0001(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    public static function z_AreTexturesResident_ovr_8(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
+    external 'opengl32.dll' name 'glAreTexturesResident';
+    
+    public static procedure z_ArrayElement_ovr_0(i: Int32);
+    external 'opengl32.dll' name 'glArrayElement';
+    
+    public static procedure z_Begin_ovr_0(mode: PrimitiveType);
+    external 'opengl32.dll' name 'glBegin';
+    
+    public static procedure z_Bitmap_ovr_0(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; var bitmap: Byte);
+    external 'opengl32.dll' name 'glBitmap';
+    public static procedure z_Bitmap_ovr_0_anh00000001(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: IntPtr);
+    external 'opengl32.dll' name 'glBitmap';
+    public static procedure z_Bitmap_ovr_2(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: IntPtr);
+    external 'opengl32.dll' name 'glBitmap';
+    
+    public static procedure z_CallList_ovr_0(list: UInt32);
+    external 'opengl32.dll' name 'glCallList';
+    
+    public static procedure z_CallLists_ovr_0(n: Int32; &type: ListNameType; lists: IntPtr);
+    external 'opengl32.dll' name 'glCallLists';
+    
+    public static procedure z_ClearAccum_ovr_0(red: single; green: single; blue: single; alpha: single);
+    external 'opengl32.dll' name 'glClearAccum';
+    
+    public static procedure z_ClearIndex_ovr_0(c: single);
+    external 'opengl32.dll' name 'glClearIndex';
+    
+    public static procedure z_ClipPlane_ovr_0(plane: ClipPlaneName; var equation: real);
+    external 'opengl32.dll' name 'glClipPlane';
+    public static procedure z_ClipPlane_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
+    external 'opengl32.dll' name 'glClipPlane';
+    public static procedure z_ClipPlane_ovr_2(plane: ClipPlaneName; equation: IntPtr);
+    external 'opengl32.dll' name 'glClipPlane';
+    
+    public static procedure z_Color3b_ovr_0(red: SByte; green: SByte; blue: SByte);
+    external 'opengl32.dll' name 'glColor3b';
+    
+    public static procedure z_Color3bv_ovr_0(var v: SByte);
+    external 'opengl32.dll' name 'glColor3bv';
+    public static procedure z_Color3bv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3bv';
+    public static procedure z_Color3bv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3bv';
+    
+    public static procedure z_Color3d_ovr_0(red: real; green: real; blue: real);
+    external 'opengl32.dll' name 'glColor3d';
+    
+    public static procedure z_Color3dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glColor3dv';
+    public static procedure z_Color3dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3dv';
+    public static procedure z_Color3dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3dv';
+    
+    public static procedure z_Color3f_ovr_0(red: single; green: single; blue: single);
+    external 'opengl32.dll' name 'glColor3f';
+    
+    public static procedure z_Color3fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glColor3fv';
+    public static procedure z_Color3fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3fv';
+    public static procedure z_Color3fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3fv';
+    
+    public static procedure z_Color3i_ovr_0(red: Int32; green: Int32; blue: Int32);
+    external 'opengl32.dll' name 'glColor3i';
+    
+    public static procedure z_Color3iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glColor3iv';
+    public static procedure z_Color3iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3iv';
+    public static procedure z_Color3iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3iv';
+    
+    public static procedure z_Color3s_ovr_0(red: Int16; green: Int16; blue: Int16);
+    external 'opengl32.dll' name 'glColor3s';
+    
+    public static procedure z_Color3sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glColor3sv';
+    public static procedure z_Color3sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3sv';
+    public static procedure z_Color3sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3sv';
+    
+    public static procedure z_Color3ub_ovr_0(red: Byte; green: Byte; blue: Byte);
+    external 'opengl32.dll' name 'glColor3ub';
+    
+    public static procedure z_Color3ubv_ovr_0(var v: Byte);
+    external 'opengl32.dll' name 'glColor3ubv';
+    public static procedure z_Color3ubv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3ubv';
+    public static procedure z_Color3ubv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3ubv';
+    
+    public static procedure z_Color3ui_ovr_0(red: UInt32; green: UInt32; blue: UInt32);
+    external 'opengl32.dll' name 'glColor3ui';
+    
+    public static procedure z_Color3uiv_ovr_0(var v: UInt32);
+    external 'opengl32.dll' name 'glColor3uiv';
+    public static procedure z_Color3uiv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3uiv';
+    public static procedure z_Color3uiv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3uiv';
+    
+    public static procedure z_Color3us_ovr_0(red: UInt16; green: UInt16; blue: UInt16);
+    external 'opengl32.dll' name 'glColor3us';
+    
+    public static procedure z_Color3usv_ovr_0(var v: UInt16);
+    external 'opengl32.dll' name 'glColor3usv';
+    public static procedure z_Color3usv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3usv';
+    public static procedure z_Color3usv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor3usv';
+    
+    public static procedure z_Color4b_ovr_0(red: SByte; green: SByte; blue: SByte; alpha: SByte);
+    external 'opengl32.dll' name 'glColor4b';
+    
+    public static procedure z_Color4bv_ovr_0(var v: SByte);
+    external 'opengl32.dll' name 'glColor4bv';
+    public static procedure z_Color4bv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4bv';
+    public static procedure z_Color4bv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4bv';
+    
+    public static procedure z_Color4d_ovr_0(red: real; green: real; blue: real; alpha: real);
+    external 'opengl32.dll' name 'glColor4d';
+    
+    public static procedure z_Color4dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glColor4dv';
+    public static procedure z_Color4dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4dv';
+    public static procedure z_Color4dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4dv';
+    
+    public static procedure z_Color4f_ovr_0(red: single; green: single; blue: single; alpha: single);
+    external 'opengl32.dll' name 'glColor4f';
+    
+    public static procedure z_Color4fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glColor4fv';
+    public static procedure z_Color4fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4fv';
+    public static procedure z_Color4fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4fv';
+    
+    public static procedure z_Color4i_ovr_0(red: Int32; green: Int32; blue: Int32; alpha: Int32);
+    external 'opengl32.dll' name 'glColor4i';
+    
+    public static procedure z_Color4iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glColor4iv';
+    public static procedure z_Color4iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4iv';
+    public static procedure z_Color4iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4iv';
+    
+    public static procedure z_Color4s_ovr_0(red: Int16; green: Int16; blue: Int16; alpha: Int16);
+    external 'opengl32.dll' name 'glColor4s';
+    
+    public static procedure z_Color4sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glColor4sv';
+    public static procedure z_Color4sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4sv';
+    public static procedure z_Color4sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4sv';
+    
+    public static procedure z_Color4ub_ovr_0(red: Byte; green: Byte; blue: Byte; alpha: Byte);
+    external 'opengl32.dll' name 'glColor4ub';
+    
+    public static procedure z_Color4ubv_ovr_0(var v: Byte);
+    external 'opengl32.dll' name 'glColor4ubv';
+    public static procedure z_Color4ubv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4ubv';
+    public static procedure z_Color4ubv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4ubv';
+    
+    public static procedure z_Color4ui_ovr_0(red: UInt32; green: UInt32; blue: UInt32; alpha: UInt32);
+    external 'opengl32.dll' name 'glColor4ui';
+    
+    public static procedure z_Color4uiv_ovr_0(var v: UInt32);
+    external 'opengl32.dll' name 'glColor4uiv';
+    public static procedure z_Color4uiv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4uiv';
+    public static procedure z_Color4uiv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4uiv';
+    
+    public static procedure z_Color4us_ovr_0(red: UInt16; green: UInt16; blue: UInt16; alpha: UInt16);
+    external 'opengl32.dll' name 'glColor4us';
+    
+    public static procedure z_Color4usv_ovr_0(var v: UInt16);
+    external 'opengl32.dll' name 'glColor4usv';
+    public static procedure z_Color4usv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4usv';
+    public static procedure z_Color4usv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glColor4usv';
+    
+    public static procedure z_ColorMaterial_ovr_0(face: MaterialFace; mode: ColorMaterialParameter);
+    external 'opengl32.dll' name 'glColorMaterial';
+    
+    public static procedure z_ColorPointer_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glColorPointer';
+    
+    public static procedure z_CopyPixels_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; &type: PixelCopyType);
+    external 'opengl32.dll' name 'glCopyPixels';
+    
+    public static procedure z_DeleteLists_ovr_0(list: gl_display_list; range: Int32);
+    external 'opengl32.dll' name 'glDeleteLists';
+    
+    public static procedure z_DisableClientState_ovr_0(&array: EnableCap);
+    external 'opengl32.dll' name 'glDisableClientState';
+    
+    public static procedure z_DrawPixels_ovr_0(width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
+    external 'opengl32.dll' name 'glDrawPixels';
+    
+    public static procedure z_EdgeFlag_ovr_0(flag: boolean);
+    external 'opengl32.dll' name 'glEdgeFlag';
+    
+    public static procedure z_EdgeFlagPointer_ovr_0(stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glEdgeFlagPointer';
+    
+    public static procedure z_EdgeFlagv_ovr_0(var flag: boolean);
+    external 'opengl32.dll' name 'glEdgeFlagv';
+    public static procedure z_EdgeFlagv_ovr_1(flag: IntPtr);
+    external 'opengl32.dll' name 'glEdgeFlagv';
+    
+    public static procedure z_EnableClientState_ovr_0(&array: EnableCap);
+    external 'opengl32.dll' name 'glEnableClientState';
+    
+    public static procedure z_End_ovr_0;
+    external 'opengl32.dll' name 'glEnd';
+    
+    public static procedure z_EndList_ovr_0;
+    external 'opengl32.dll' name 'glEndList';
+    
+    public static procedure z_EvalCoord1d_ovr_0(u: real);
+    external 'opengl32.dll' name 'glEvalCoord1d';
+    
+    public static procedure z_EvalCoord1dv_ovr_0(var u: real);
+    external 'opengl32.dll' name 'glEvalCoord1dv';
+    public static procedure z_EvalCoord1dv_ovr_1(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord1dv';
+    
+    public static procedure z_EvalCoord1f_ovr_0(u: single);
+    external 'opengl32.dll' name 'glEvalCoord1f';
+    
+    public static procedure z_EvalCoord1fv_ovr_0(var u: single);
+    external 'opengl32.dll' name 'glEvalCoord1fv';
+    public static procedure z_EvalCoord1fv_ovr_1(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord1fv';
+    
+    public static procedure z_EvalCoord2d_ovr_0(u: real; v: real);
+    external 'opengl32.dll' name 'glEvalCoord2d';
+    
+    public static procedure z_EvalCoord2dv_ovr_0(var u: real);
+    external 'opengl32.dll' name 'glEvalCoord2dv';
+    public static procedure z_EvalCoord2dv_ovr_0_anh01(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord2dv';
+    public static procedure z_EvalCoord2dv_ovr_2(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord2dv';
+    
+    public static procedure z_EvalCoord2f_ovr_0(u: single; v: single);
+    external 'opengl32.dll' name 'glEvalCoord2f';
+    
+    public static procedure z_EvalCoord2fv_ovr_0(var u: single);
+    external 'opengl32.dll' name 'glEvalCoord2fv';
+    public static procedure z_EvalCoord2fv_ovr_0_anh01(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord2fv';
+    public static procedure z_EvalCoord2fv_ovr_2(u: IntPtr);
+    external 'opengl32.dll' name 'glEvalCoord2fv';
+    
+    public static procedure z_EvalMesh1_ovr_0(mode: MeshMode1; i1: Int32; i2: Int32);
+    external 'opengl32.dll' name 'glEvalMesh1';
+    
+    public static procedure z_EvalMesh2_ovr_0(mode: MeshMode2; i1: Int32; i2: Int32; j1: Int32; j2: Int32);
+    external 'opengl32.dll' name 'glEvalMesh2';
+    
+    public static procedure z_EvalPoint1_ovr_0(i: Int32);
+    external 'opengl32.dll' name 'glEvalPoint1';
+    
+    public static procedure z_EvalPoint2_ovr_0(i: Int32; j: Int32);
+    external 'opengl32.dll' name 'glEvalPoint2';
+    
+    public static procedure z_FeedbackBuffer_ovr_0(size: Int32; &type: FeedbackType; var buffer: single);
+    external 'opengl32.dll' name 'glFeedbackBuffer';
+    public static procedure z_FeedbackBuffer_ovr_0_anh0001(size: Int32; &type: FeedbackType; buffer: IntPtr);
+    external 'opengl32.dll' name 'glFeedbackBuffer';
+    public static procedure z_FeedbackBuffer_ovr_2(size: Int32; &type: FeedbackType; buffer: IntPtr);
+    external 'opengl32.dll' name 'glFeedbackBuffer';
+    
+    public static procedure z_Fogf_ovr_0(pname: FogParameter; param: single);
+    external 'opengl32.dll' name 'glFogf';
+    
+    public static procedure z_Fogfv_ovr_0(pname: FogParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glFogfv';
+    public static procedure z_Fogfv_ovr_0_anh001(pname: FogParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glFogfv';
+    public static procedure z_Fogfv_ovr_2(pname: FogParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glFogfv';
+    
+    public static procedure z_Fogi_ovr_0(pname: FogParameter; param: Int32);
+    external 'opengl32.dll' name 'glFogi';
+    
+    public static procedure z_Fogiv_ovr_0(pname: FogParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glFogiv';
+    public static procedure z_Fogiv_ovr_0_anh001(pname: FogParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glFogiv';
+    public static procedure z_Fogiv_ovr_2(pname: FogParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glFogiv';
+    
+    public static procedure z_Frustum_ovr_0(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
+    external 'opengl32.dll' name 'glFrustum';
+    
+    public static function z_GenLists_ovr_0(range: Int32): gl_display_list;
+    external 'opengl32.dll' name 'glGenLists';
+    
+    public static procedure z_GetClipPlane_ovr_0(plane: ClipPlaneName; var equation: real);
+    external 'opengl32.dll' name 'glGetClipPlane';
+    public static procedure z_GetClipPlane_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
+    external 'opengl32.dll' name 'glGetClipPlane';
+    public static procedure z_GetClipPlane_ovr_2(plane: ClipPlaneName; equation: IntPtr);
+    external 'opengl32.dll' name 'glGetClipPlane';
+    
+    public static procedure z_GetLightfv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetLightfv';
+    public static procedure z_GetLightfv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetLightfv';
+    public static procedure z_GetLightfv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetLightfv';
+    
+    public static procedure z_GetLightiv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetLightiv';
+    public static procedure z_GetLightiv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetLightiv';
+    public static procedure z_GetLightiv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetLightiv';
+    
+    public static procedure z_GetMapdv_ovr_0(target: MapTarget; query: GetMapQuery; var v: real);
+    external 'opengl32.dll' name 'glGetMapdv';
+    public static procedure z_GetMapdv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapdv';
+    public static procedure z_GetMapdv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapdv';
+    
+    public static procedure z_GetMapfv_ovr_0(target: MapTarget; query: GetMapQuery; var v: single);
+    external 'opengl32.dll' name 'glGetMapfv';
+    public static procedure z_GetMapfv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapfv';
+    public static procedure z_GetMapfv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapfv';
+    
+    public static procedure z_GetMapiv_ovr_0(target: MapTarget; query: GetMapQuery; var v: Int32);
+    external 'opengl32.dll' name 'glGetMapiv';
+    public static procedure z_GetMapiv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapiv';
+    public static procedure z_GetMapiv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
+    external 'opengl32.dll' name 'glGetMapiv';
+    
+    public static procedure z_GetMaterialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetMaterialfv';
+    public static procedure z_GetMaterialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetMaterialfv';
+    public static procedure z_GetMaterialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetMaterialfv';
+    
+    public static procedure z_GetMaterialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetMaterialiv';
+    public static procedure z_GetMaterialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetMaterialiv';
+    public static procedure z_GetMaterialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetMaterialiv';
+    
+    public static procedure z_GetPixelMapfv_ovr_0(map: PixelMap; var values: single);
+    external 'opengl32.dll' name 'glGetPixelMapfv';
+    public static procedure z_GetPixelMapfv_ovr_0_anh001(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapfv';
+    public static procedure z_GetPixelMapfv_ovr_2(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapfv';
+    
+    public static procedure z_GetPixelMapuiv_ovr_0(map: PixelMap; var values: UInt32);
+    external 'opengl32.dll' name 'glGetPixelMapuiv';
+    public static procedure z_GetPixelMapuiv_ovr_0_anh001(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapuiv';
+    public static procedure z_GetPixelMapuiv_ovr_2(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapuiv';
+    
+    public static procedure z_GetPixelMapusv_ovr_0(map: PixelMap; var values: UInt16);
+    external 'opengl32.dll' name 'glGetPixelMapusv';
+    public static procedure z_GetPixelMapusv_ovr_0_anh001(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapusv';
+    public static procedure z_GetPixelMapusv_ovr_2(map: PixelMap; values: IntPtr);
+    external 'opengl32.dll' name 'glGetPixelMapusv';
+    
+    public static procedure z_GetPolygonStipple_ovr_0(var mask: Byte);
+    external 'opengl32.dll' name 'glGetPolygonStipple';
+    public static procedure z_GetPolygonStipple_ovr_0_anh01(mask: IntPtr);
+    external 'opengl32.dll' name 'glGetPolygonStipple';
+    public static procedure z_GetPolygonStipple_ovr_2(mask: IntPtr);
+    external 'opengl32.dll' name 'glGetPolygonStipple';
+    
+    public static procedure z_GetTexEnvfv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetTexEnvfv';
+    public static procedure z_GetTexEnvfv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexEnvfv';
+    public static procedure z_GetTexEnvfv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexEnvfv';
+    
+    public static procedure z_GetTexEnviv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetTexEnviv';
+    public static procedure z_GetTexEnviv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexEnviv';
+    public static procedure z_GetTexEnviv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexEnviv';
+    
+    public static procedure z_GetTexGendv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
+    external 'opengl32.dll' name 'glGetTexGendv';
+    public static procedure z_GetTexGendv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGendv';
+    public static procedure z_GetTexGendv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGendv';
+    
+    public static procedure z_GetTexGenfv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glGetTexGenfv';
+    public static procedure z_GetTexGenfv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGenfv';
+    public static procedure z_GetTexGenfv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGenfv';
+    
+    public static procedure z_GetTexGeniv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glGetTexGeniv';
+    public static procedure z_GetTexGeniv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGeniv';
+    public static procedure z_GetTexGeniv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glGetTexGeniv';
+    
+    public static procedure z_Indexd_ovr_0(c: real);
+    external 'opengl32.dll' name 'glIndexd';
+    
+    public static procedure z_Indexdv_ovr_0(var c: real);
+    external 'opengl32.dll' name 'glIndexdv';
+    public static procedure z_Indexdv_ovr_1(c: IntPtr);
+    external 'opengl32.dll' name 'glIndexdv';
+    
+    public static procedure z_Indexf_ovr_0(c: single);
+    external 'opengl32.dll' name 'glIndexf';
+    
+    public static procedure z_Indexfv_ovr_0(var c: single);
+    external 'opengl32.dll' name 'glIndexfv';
+    public static procedure z_Indexfv_ovr_1(c: IntPtr);
+    external 'opengl32.dll' name 'glIndexfv';
+    
+    public static procedure z_Indexi_ovr_0(c: Int32);
+    external 'opengl32.dll' name 'glIndexi';
+    
+    public static procedure z_Indexiv_ovr_0(var c: Int32);
+    external 'opengl32.dll' name 'glIndexiv';
+    public static procedure z_Indexiv_ovr_1(c: IntPtr);
+    external 'opengl32.dll' name 'glIndexiv';
+    
+    public static procedure z_IndexMask_ovr_0(mask: UInt32);
+    external 'opengl32.dll' name 'glIndexMask';
+    
+    public static procedure z_IndexPointer_ovr_0(&type: IndexPointerType; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glIndexPointer';
+    
+    public static procedure z_Indexs_ovr_0(c: Int16);
+    external 'opengl32.dll' name 'glIndexs';
+    
+    public static procedure z_Indexsv_ovr_0(var c: Int16);
+    external 'opengl32.dll' name 'glIndexsv';
+    public static procedure z_Indexsv_ovr_1(c: IntPtr);
+    external 'opengl32.dll' name 'glIndexsv';
+    
+    public static procedure z_Indexub_ovr_0(c: Byte);
+    external 'opengl32.dll' name 'glIndexub';
+    
+    public static procedure z_Indexubv_ovr_0(var c: Byte);
+    external 'opengl32.dll' name 'glIndexubv';
+    public static procedure z_Indexubv_ovr_1(c: IntPtr);
+    external 'opengl32.dll' name 'glIndexubv';
+    
+    public static procedure z_InitNames_ovr_0;
+    external 'opengl32.dll' name 'glInitNames';
+    
+    public static procedure z_InterleavedArrays_ovr_0(format: InterleavedArrayFormat; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glInterleavedArrays';
+    
+    public static function z_IsList_ovr_0(list: gl_display_list): boolean;
+    external 'opengl32.dll' name 'glIsList';
+    
+    public static procedure z_Lightf_ovr_0(light: LightName; pname: LightParameter; param: single);
+    external 'opengl32.dll' name 'glLightf';
+    
+    public static procedure z_Lightfv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glLightfv';
+    public static procedure z_Lightfv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightfv';
+    public static procedure z_Lightfv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightfv';
+    
+    public static procedure z_Lighti_ovr_0(light: LightName; pname: LightParameter; param: Int32);
+    external 'opengl32.dll' name 'glLighti';
+    
+    public static procedure z_Lightiv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glLightiv';
+    public static procedure z_Lightiv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightiv';
+    public static procedure z_Lightiv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightiv';
+    
+    public static procedure z_LightModelf_ovr_0(pname: LightModelParameter; param: single);
+    external 'opengl32.dll' name 'glLightModelf';
+    
+    public static procedure z_LightModelfv_ovr_0(pname: LightModelParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glLightModelfv';
+    public static procedure z_LightModelfv_ovr_0_anh001(pname: LightModelParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightModelfv';
+    public static procedure z_LightModelfv_ovr_2(pname: LightModelParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightModelfv';
+    
+    public static procedure z_LightModeli_ovr_0(pname: LightModelParameter; param: Int32);
+    external 'opengl32.dll' name 'glLightModeli';
+    
+    public static procedure z_LightModeliv_ovr_0(pname: LightModelParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glLightModeliv';
+    public static procedure z_LightModeliv_ovr_0_anh001(pname: LightModelParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightModeliv';
+    public static procedure z_LightModeliv_ovr_2(pname: LightModelParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glLightModeliv';
+    
+    public static procedure z_LineStipple_ovr_0(factor: Int32; pattern: UInt16);
+    external 'opengl32.dll' name 'glLineStipple';
+    
+    public static procedure z_ListBase_ovr_0(base: UInt32);
+    external 'opengl32.dll' name 'glListBase';
+    
+    public static procedure z_LoadIdentity_ovr_0;
+    external 'opengl32.dll' name 'glLoadIdentity';
+    
+    public static procedure z_LoadMatrixd_ovr_0(var m: real);
+    external 'opengl32.dll' name 'glLoadMatrixd';
+    public static procedure z_LoadMatrixd_ovr_0_anh01(m: IntPtr);
+    external 'opengl32.dll' name 'glLoadMatrixd';
+    public static procedure z_LoadMatrixd_ovr_2(m: IntPtr);
+    external 'opengl32.dll' name 'glLoadMatrixd';
+    
+    public static procedure z_LoadMatrixf_ovr_0(var m: single);
+    external 'opengl32.dll' name 'glLoadMatrixf';
+    public static procedure z_LoadMatrixf_ovr_0_anh01(m: IntPtr);
+    external 'opengl32.dll' name 'glLoadMatrixf';
+    public static procedure z_LoadMatrixf_ovr_2(m: IntPtr);
+    external 'opengl32.dll' name 'glLoadMatrixf';
+    
+    public static procedure z_LoadName_ovr_0(name: UInt32);
+    external 'opengl32.dll' name 'glLoadName';
+    
+    public static procedure z_Map1d_ovr_0(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; var points: real);
+    external 'opengl32.dll' name 'glMap1d';
+    public static procedure z_Map1d_ovr_0_anh0000001(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap1d';
+    public static procedure z_Map1d_ovr_2(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap1d';
+    
+    public static procedure z_Map1f_ovr_0(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; var points: single);
+    external 'opengl32.dll' name 'glMap1f';
+    public static procedure z_Map1f_ovr_0_anh0000001(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap1f';
+    public static procedure z_Map1f_ovr_2(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap1f';
+    
+    public static procedure z_Map2d_ovr_0(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; var points: real);
+    external 'opengl32.dll' name 'glMap2d';
+    public static procedure z_Map2d_ovr_0_anh00000000001(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap2d';
+    public static procedure z_Map2d_ovr_2(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap2d';
+    
+    public static procedure z_Map2f_ovr_0(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; var points: single);
+    external 'opengl32.dll' name 'glMap2f';
+    public static procedure z_Map2f_ovr_0_anh00000000001(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap2f';
+    public static procedure z_Map2f_ovr_2(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
+    external 'opengl32.dll' name 'glMap2f';
+    
+    public static procedure z_MapGrid1d_ovr_0(un: Int32; u1: real; u2: real);
+    external 'opengl32.dll' name 'glMapGrid1d';
+    
+    public static procedure z_MapGrid1f_ovr_0(un: Int32; u1: single; u2: single);
+    external 'opengl32.dll' name 'glMapGrid1f';
+    
+    public static procedure z_MapGrid2d_ovr_0(un: Int32; u1: real; u2: real; vn: Int32; v1: real; v2: real);
+    external 'opengl32.dll' name 'glMapGrid2d';
+    
+    public static procedure z_MapGrid2f_ovr_0(un: Int32; u1: single; u2: single; vn: Int32; v1: single; v2: single);
+    external 'opengl32.dll' name 'glMapGrid2f';
+    
+    public static procedure z_Materialf_ovr_0(face: MaterialFace; pname: MaterialParameter; param: single);
+    external 'opengl32.dll' name 'glMaterialf';
+    
+    public static procedure z_Materialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glMaterialfv';
+    public static procedure z_Materialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glMaterialfv';
+    public static procedure z_Materialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glMaterialfv';
+    
+    public static procedure z_Materiali_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Int32);
+    external 'opengl32.dll' name 'glMateriali';
+    
+    public static procedure z_Materialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glMaterialiv';
+    public static procedure z_Materialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glMaterialiv';
+    public static procedure z_Materialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glMaterialiv';
+    
+    public static procedure z_MatrixMode_ovr_0(mode: OpenGL.MatrixMode);
+    external 'opengl32.dll' name 'glMatrixMode';
+    
+    public static procedure z_MultMatrixd_ovr_0(var m: real);
+    external 'opengl32.dll' name 'glMultMatrixd';
+    public static procedure z_MultMatrixd_ovr_0_anh01(m: IntPtr);
+    external 'opengl32.dll' name 'glMultMatrixd';
+    public static procedure z_MultMatrixd_ovr_2(m: IntPtr);
+    external 'opengl32.dll' name 'glMultMatrixd';
+    
+    public static procedure z_MultMatrixf_ovr_0(var m: single);
+    external 'opengl32.dll' name 'glMultMatrixf';
+    public static procedure z_MultMatrixf_ovr_0_anh01(m: IntPtr);
+    external 'opengl32.dll' name 'glMultMatrixf';
+    public static procedure z_MultMatrixf_ovr_2(m: IntPtr);
+    external 'opengl32.dll' name 'glMultMatrixf';
+    
+    public static procedure z_NewList_ovr_0(list: UInt32; mode: ListMode);
+    external 'opengl32.dll' name 'glNewList';
+    
+    public static procedure z_Normal3b_ovr_0(nx: SByte; ny: SByte; nz: SByte);
+    external 'opengl32.dll' name 'glNormal3b';
+    
+    public static procedure z_Normal3bv_ovr_0(var v: SByte);
+    external 'opengl32.dll' name 'glNormal3bv';
+    public static procedure z_Normal3bv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3bv';
+    public static procedure z_Normal3bv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3bv';
+    
+    public static procedure z_Normal3d_ovr_0(nx: real; ny: real; nz: real);
+    external 'opengl32.dll' name 'glNormal3d';
+    
+    public static procedure z_Normal3dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glNormal3dv';
+    public static procedure z_Normal3dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3dv';
+    public static procedure z_Normal3dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3dv';
+    
+    public static procedure z_Normal3f_ovr_0(nx: single; ny: single; nz: single);
+    external 'opengl32.dll' name 'glNormal3f';
+    
+    public static procedure z_Normal3fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glNormal3fv';
+    public static procedure z_Normal3fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3fv';
+    public static procedure z_Normal3fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3fv';
+    
+    public static procedure z_Normal3i_ovr_0(nx: Int32; ny: Int32; nz: Int32);
+    external 'opengl32.dll' name 'glNormal3i';
+    
+    public static procedure z_Normal3iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glNormal3iv';
+    public static procedure z_Normal3iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3iv';
+    public static procedure z_Normal3iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3iv';
+    
+    public static procedure z_Normal3s_ovr_0(nx: Int16; ny: Int16; nz: Int16);
+    external 'opengl32.dll' name 'glNormal3s';
+    
+    public static procedure z_Normal3sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glNormal3sv';
+    public static procedure z_Normal3sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3sv';
+    public static procedure z_Normal3sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glNormal3sv';
+    
+    public static procedure z_NormalPointer_ovr_0(&type: NormalPointerType; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glNormalPointer';
+    
+    public static procedure z_Ortho_ovr_0(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
+    external 'opengl32.dll' name 'glOrtho';
+    
+    public static procedure z_PassThrough_ovr_0(token: single);
+    external 'opengl32.dll' name 'glPassThrough';
+    
+    public static procedure z_PixelMapfv_ovr_0(map: PixelMap; mapsize: Int32; var values: single);
+    external 'opengl32.dll' name 'glPixelMapfv';
+    public static procedure z_PixelMapfv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapfv';
+    public static procedure z_PixelMapfv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapfv';
+    
+    public static procedure z_PixelMapuiv_ovr_0(map: PixelMap; mapsize: Int32; var values: UInt32);
+    external 'opengl32.dll' name 'glPixelMapuiv';
+    public static procedure z_PixelMapuiv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapuiv';
+    public static procedure z_PixelMapuiv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapuiv';
+    
+    public static procedure z_PixelMapusv_ovr_0(map: PixelMap; mapsize: Int32; var values: UInt16);
+    external 'opengl32.dll' name 'glPixelMapusv';
+    public static procedure z_PixelMapusv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapusv';
+    public static procedure z_PixelMapusv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
+    external 'opengl32.dll' name 'glPixelMapusv';
+    
+    public static procedure z_PixelTransferf_ovr_0(pname: PixelTransferParameter; param: single);
+    external 'opengl32.dll' name 'glPixelTransferf';
+    
+    public static procedure z_PixelTransferi_ovr_0(pname: PixelTransferParameter; param: Int32);
+    external 'opengl32.dll' name 'glPixelTransferi';
+    
+    public static procedure z_PixelZoom_ovr_0(xfactor: single; yfactor: single);
+    external 'opengl32.dll' name 'glPixelZoom';
+    
+    public static procedure z_PolygonStipple_ovr_0(var mask: Byte);
+    external 'opengl32.dll' name 'glPolygonStipple';
+    public static procedure z_PolygonStipple_ovr_0_anh01(mask: IntPtr);
+    external 'opengl32.dll' name 'glPolygonStipple';
+    public static procedure z_PolygonStipple_ovr_2(mask: IntPtr);
+    external 'opengl32.dll' name 'glPolygonStipple';
+    
+    public static procedure z_PopAttrib_ovr_0;
+    external 'opengl32.dll' name 'glPopAttrib';
+    
+    public static procedure z_PopClientAttrib_ovr_0;
+    external 'opengl32.dll' name 'glPopClientAttrib';
+    
+    public static procedure z_PopMatrix_ovr_0;
+    external 'opengl32.dll' name 'glPopMatrix';
+    
+    public static procedure z_PopName_ovr_0;
+    external 'opengl32.dll' name 'glPopName';
+    
+    public static procedure z_PrioritizeTextures_ovr_0(n: Int32; var textures: gl_texture; var priorities: single);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_0_anh0010(n: Int32; textures: IntPtr; var priorities: single);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_0_anh0001(n: Int32; var textures: gl_texture; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_0_anh0011(n: Int32; textures: IntPtr; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_1_anh0010(n: Int32; textures: IntPtr; var priorities: single);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_2(n: Int32; var textures: gl_texture; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_2_anh0010(n: Int32; textures: IntPtr; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_6(n: Int32; textures: IntPtr; var priorities: single);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_6_anh0001(n: Int32; textures: IntPtr; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    public static procedure z_PrioritizeTextures_ovr_8(n: Int32; textures: IntPtr; priorities: IntPtr);
+    external 'opengl32.dll' name 'glPrioritizeTextures';
+    
+    public static procedure z_PushAttrib_ovr_0(mask: AttribMask);
+    external 'opengl32.dll' name 'glPushAttrib';
+    
+    public static procedure z_PushClientAttrib_ovr_0(mask: ClientAttribMask);
+    external 'opengl32.dll' name 'glPushClientAttrib';
+    
+    public static procedure z_PushMatrix_ovr_0;
+    external 'opengl32.dll' name 'glPushMatrix';
+    
+    public static procedure z_PushName_ovr_0(name: UInt32);
+    external 'opengl32.dll' name 'glPushName';
+    
+    public static procedure z_RasterPos2d_ovr_0(x: real; y: real);
+    external 'opengl32.dll' name 'glRasterPos2d';
+    
+    public static procedure z_RasterPos2dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glRasterPos2dv';
+    public static procedure z_RasterPos2dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2dv';
+    public static procedure z_RasterPos2dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2dv';
+    
+    public static procedure z_RasterPos2f_ovr_0(x: single; y: single);
+    external 'opengl32.dll' name 'glRasterPos2f';
+    
+    public static procedure z_RasterPos2fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glRasterPos2fv';
+    public static procedure z_RasterPos2fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2fv';
+    public static procedure z_RasterPos2fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2fv';
+    
+    public static procedure z_RasterPos2i_ovr_0(x: Int32; y: Int32);
+    external 'opengl32.dll' name 'glRasterPos2i';
+    
+    public static procedure z_RasterPos2iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glRasterPos2iv';
+    public static procedure z_RasterPos2iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2iv';
+    public static procedure z_RasterPos2iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2iv';
+    
+    public static procedure z_RasterPos2s_ovr_0(x: Int16; y: Int16);
+    external 'opengl32.dll' name 'glRasterPos2s';
+    
+    public static procedure z_RasterPos2sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glRasterPos2sv';
+    public static procedure z_RasterPos2sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2sv';
+    public static procedure z_RasterPos2sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos2sv';
+    
+    public static procedure z_RasterPos3d_ovr_0(x: real; y: real; z: real);
+    external 'opengl32.dll' name 'glRasterPos3d';
+    
+    public static procedure z_RasterPos3dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glRasterPos3dv';
+    public static procedure z_RasterPos3dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3dv';
+    public static procedure z_RasterPos3dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3dv';
+    
+    public static procedure z_RasterPos3f_ovr_0(x: single; y: single; z: single);
+    external 'opengl32.dll' name 'glRasterPos3f';
+    
+    public static procedure z_RasterPos3fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glRasterPos3fv';
+    public static procedure z_RasterPos3fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3fv';
+    public static procedure z_RasterPos3fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3fv';
+    
+    public static procedure z_RasterPos3i_ovr_0(x: Int32; y: Int32; z: Int32);
+    external 'opengl32.dll' name 'glRasterPos3i';
+    
+    public static procedure z_RasterPos3iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glRasterPos3iv';
+    public static procedure z_RasterPos3iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3iv';
+    public static procedure z_RasterPos3iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3iv';
+    
+    public static procedure z_RasterPos3s_ovr_0(x: Int16; y: Int16; z: Int16);
+    external 'opengl32.dll' name 'glRasterPos3s';
+    
+    public static procedure z_RasterPos3sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glRasterPos3sv';
+    public static procedure z_RasterPos3sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3sv';
+    public static procedure z_RasterPos3sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos3sv';
+    
+    public static procedure z_RasterPos4d_ovr_0(x: real; y: real; z: real; w: real);
+    external 'opengl32.dll' name 'glRasterPos4d';
+    
+    public static procedure z_RasterPos4dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glRasterPos4dv';
+    public static procedure z_RasterPos4dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4dv';
+    public static procedure z_RasterPos4dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4dv';
+    
+    public static procedure z_RasterPos4f_ovr_0(x: single; y: single; z: single; w: single);
+    external 'opengl32.dll' name 'glRasterPos4f';
+    
+    public static procedure z_RasterPos4fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glRasterPos4fv';
+    public static procedure z_RasterPos4fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4fv';
+    public static procedure z_RasterPos4fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4fv';
+    
+    public static procedure z_RasterPos4i_ovr_0(x: Int32; y: Int32; z: Int32; w: Int32);
+    external 'opengl32.dll' name 'glRasterPos4i';
+    
+    public static procedure z_RasterPos4iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glRasterPos4iv';
+    public static procedure z_RasterPos4iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4iv';
+    public static procedure z_RasterPos4iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4iv';
+    
+    public static procedure z_RasterPos4s_ovr_0(x: Int16; y: Int16; z: Int16; w: Int16);
+    external 'opengl32.dll' name 'glRasterPos4s';
+    
+    public static procedure z_RasterPos4sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glRasterPos4sv';
+    public static procedure z_RasterPos4sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4sv';
+    public static procedure z_RasterPos4sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glRasterPos4sv';
+    
+    public static procedure z_Rectd_ovr_0(x1: real; y1: real; x2: real; y2: real);
+    external 'opengl32.dll' name 'glRectd';
+    
+    public static procedure z_Rectdv_ovr_0(var v1: real; var v2: real);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_0_anh010(v1: IntPtr; var v2: real);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_0_anh001(var v1: real; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_1_anh010(v1: IntPtr; var v2: real);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_2(var v1: real; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_6(v1: IntPtr; var v2: real);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    public static procedure z_Rectdv_ovr_8(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectdv';
+    
+    public static procedure z_Rectf_ovr_0(x1: single; y1: single; x2: single; y2: single);
+    external 'opengl32.dll' name 'glRectf';
+    
+    public static procedure z_Rectfv_ovr_0(var v1: single; var v2: single);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_0_anh010(v1: IntPtr; var v2: single);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_0_anh001(var v1: single; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_1_anh010(v1: IntPtr; var v2: single);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_2(var v1: single; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_6(v1: IntPtr; var v2: single);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    public static procedure z_Rectfv_ovr_8(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectfv';
+    
+    public static procedure z_Recti_ovr_0(x1: Int32; y1: Int32; x2: Int32; y2: Int32);
+    external 'opengl32.dll' name 'glRecti';
+    
+    public static procedure z_Rectiv_ovr_0(var v1: Int32; var v2: Int32);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_0_anh010(v1: IntPtr; var v2: Int32);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_0_anh001(var v1: Int32; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_1_anh010(v1: IntPtr; var v2: Int32);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_2(var v1: Int32; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_6(v1: IntPtr; var v2: Int32);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    public static procedure z_Rectiv_ovr_8(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectiv';
+    
+    public static procedure z_Rects_ovr_0(x1: Int16; y1: Int16; x2: Int16; y2: Int16);
+    external 'opengl32.dll' name 'glRects';
+    
+    public static procedure z_Rectsv_ovr_0(var v1: Int16; var v2: Int16);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_0_anh010(v1: IntPtr; var v2: Int16);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_0_anh001(var v1: Int16; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_1_anh010(v1: IntPtr; var v2: Int16);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_2(var v1: Int16; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_6(v1: IntPtr; var v2: Int16);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    public static procedure z_Rectsv_ovr_8(v1: IntPtr; v2: IntPtr);
+    external 'opengl32.dll' name 'glRectsv';
+    
+    public static function z_RenderMode_ovr_0(mode: RenderingMode): Int32;
+    external 'opengl32.dll' name 'glRenderMode';
+    
+    public static procedure z_Rotated_ovr_0(angle: real; x: real; y: real; z: real);
+    external 'opengl32.dll' name 'glRotated';
+    
+    public static procedure z_Rotatef_ovr_0(angle: single; x: single; y: single; z: single);
+    external 'opengl32.dll' name 'glRotatef';
+    
+    public static procedure z_Scaled_ovr_0(x: real; y: real; z: real);
+    external 'opengl32.dll' name 'glScaled';
+    
+    public static procedure z_Scalef_ovr_0(x: single; y: single; z: single);
+    external 'opengl32.dll' name 'glScalef';
+    
+    public static procedure z_SelectBuffer_ovr_0(size: Int32; var buffer: UInt32);
+    external 'opengl32.dll' name 'glSelectBuffer';
+    public static procedure z_SelectBuffer_ovr_0_anh001(size: Int32; buffer: IntPtr);
+    external 'opengl32.dll' name 'glSelectBuffer';
+    public static procedure z_SelectBuffer_ovr_2(size: Int32; buffer: IntPtr);
+    external 'opengl32.dll' name 'glSelectBuffer';
+    
+    public static procedure z_ShadeModel_ovr_0(mode: ShadingModel);
+    external 'opengl32.dll' name 'glShadeModel';
+    
+    public static procedure z_TexCoord1d_ovr_0(s: real);
+    external 'opengl32.dll' name 'glTexCoord1d';
+    
+    public static procedure z_TexCoord1dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glTexCoord1dv';
+    public static procedure z_TexCoord1dv_ovr_1(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord1dv';
+    
+    public static procedure z_TexCoord1f_ovr_0(s: single);
+    external 'opengl32.dll' name 'glTexCoord1f';
+    
+    public static procedure z_TexCoord1fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glTexCoord1fv';
+    public static procedure z_TexCoord1fv_ovr_1(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord1fv';
+    
+    public static procedure z_TexCoord1i_ovr_0(s: Int32);
+    external 'opengl32.dll' name 'glTexCoord1i';
+    
+    public static procedure z_TexCoord1iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glTexCoord1iv';
+    public static procedure z_TexCoord1iv_ovr_1(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord1iv';
+    
+    public static procedure z_TexCoord1s_ovr_0(s: Int16);
+    external 'opengl32.dll' name 'glTexCoord1s';
+    
+    public static procedure z_TexCoord1sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glTexCoord1sv';
+    public static procedure z_TexCoord1sv_ovr_1(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord1sv';
+    
+    public static procedure z_TexCoord2d_ovr_0(s: real; t: real);
+    external 'opengl32.dll' name 'glTexCoord2d';
+    
+    public static procedure z_TexCoord2dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glTexCoord2dv';
+    public static procedure z_TexCoord2dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2dv';
+    public static procedure z_TexCoord2dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2dv';
+    
+    public static procedure z_TexCoord2f_ovr_0(s: single; t: single);
+    external 'opengl32.dll' name 'glTexCoord2f';
+    
+    public static procedure z_TexCoord2fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glTexCoord2fv';
+    public static procedure z_TexCoord2fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2fv';
+    public static procedure z_TexCoord2fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2fv';
+    
+    public static procedure z_TexCoord2i_ovr_0(s: Int32; t: Int32);
+    external 'opengl32.dll' name 'glTexCoord2i';
+    
+    public static procedure z_TexCoord2iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glTexCoord2iv';
+    public static procedure z_TexCoord2iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2iv';
+    public static procedure z_TexCoord2iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2iv';
+    
+    public static procedure z_TexCoord2s_ovr_0(s: Int16; t: Int16);
+    external 'opengl32.dll' name 'glTexCoord2s';
+    
+    public static procedure z_TexCoord2sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glTexCoord2sv';
+    public static procedure z_TexCoord2sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2sv';
+    public static procedure z_TexCoord2sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord2sv';
+    
+    public static procedure z_TexCoord3d_ovr_0(s: real; t: real; r: real);
+    external 'opengl32.dll' name 'glTexCoord3d';
+    
+    public static procedure z_TexCoord3dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glTexCoord3dv';
+    public static procedure z_TexCoord3dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3dv';
+    public static procedure z_TexCoord3dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3dv';
+    
+    public static procedure z_TexCoord3f_ovr_0(s: single; t: single; r: single);
+    external 'opengl32.dll' name 'glTexCoord3f';
+    
+    public static procedure z_TexCoord3fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glTexCoord3fv';
+    public static procedure z_TexCoord3fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3fv';
+    public static procedure z_TexCoord3fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3fv';
+    
+    public static procedure z_TexCoord3i_ovr_0(s: Int32; t: Int32; r: Int32);
+    external 'opengl32.dll' name 'glTexCoord3i';
+    
+    public static procedure z_TexCoord3iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glTexCoord3iv';
+    public static procedure z_TexCoord3iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3iv';
+    public static procedure z_TexCoord3iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3iv';
+    
+    public static procedure z_TexCoord3s_ovr_0(s: Int16; t: Int16; r: Int16);
+    external 'opengl32.dll' name 'glTexCoord3s';
+    
+    public static procedure z_TexCoord3sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glTexCoord3sv';
+    public static procedure z_TexCoord3sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3sv';
+    public static procedure z_TexCoord3sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord3sv';
+    
+    public static procedure z_TexCoord4d_ovr_0(s: real; t: real; r: real; q: real);
+    external 'opengl32.dll' name 'glTexCoord4d';
+    
+    public static procedure z_TexCoord4dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glTexCoord4dv';
+    public static procedure z_TexCoord4dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4dv';
+    public static procedure z_TexCoord4dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4dv';
+    
+    public static procedure z_TexCoord4f_ovr_0(s: single; t: single; r: single; q: single);
+    external 'opengl32.dll' name 'glTexCoord4f';
+    
+    public static procedure z_TexCoord4fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glTexCoord4fv';
+    public static procedure z_TexCoord4fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4fv';
+    public static procedure z_TexCoord4fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4fv';
+    
+    public static procedure z_TexCoord4i_ovr_0(s: Int32; t: Int32; r: Int32; q: Int32);
+    external 'opengl32.dll' name 'glTexCoord4i';
+    
+    public static procedure z_TexCoord4iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glTexCoord4iv';
+    public static procedure z_TexCoord4iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4iv';
+    public static procedure z_TexCoord4iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4iv';
+    
+    public static procedure z_TexCoord4s_ovr_0(s: Int16; t: Int16; r: Int16; q: Int16);
+    external 'opengl32.dll' name 'glTexCoord4s';
+    
+    public static procedure z_TexCoord4sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glTexCoord4sv';
+    public static procedure z_TexCoord4sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4sv';
+    public static procedure z_TexCoord4sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glTexCoord4sv';
+    
+    public static procedure z_TexCoordPointer_ovr_0(size: Int32; &type: TexCoordPointerType; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glTexCoordPointer';
+    
+    public static procedure z_TexEnvf_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; param: single);
+    external 'opengl32.dll' name 'glTexEnvf';
+    
+    public static procedure z_TexEnvfv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glTexEnvfv';
+    public static procedure z_TexEnvfv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexEnvfv';
+    public static procedure z_TexEnvfv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexEnvfv';
+    
+    public static procedure z_TexEnvi_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; param: Int32);
+    external 'opengl32.dll' name 'glTexEnvi';
+    
+    public static procedure z_TexEnviv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glTexEnviv';
+    public static procedure z_TexEnviv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexEnviv';
+    public static procedure z_TexEnviv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexEnviv';
+    
+    public static procedure z_TexGend_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: real);
+    external 'opengl32.dll' name 'glTexGend';
+    
+    public static procedure z_TexGendv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
+    external 'opengl32.dll' name 'glTexGendv';
+    public static procedure z_TexGendv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGendv';
+    public static procedure z_TexGendv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGendv';
+    
+    public static procedure z_TexGenf_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: single);
+    external 'opengl32.dll' name 'glTexGenf';
+    
+    public static procedure z_TexGenfv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
+    external 'opengl32.dll' name 'glTexGenfv';
+    public static procedure z_TexGenfv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGenfv';
+    public static procedure z_TexGenfv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGenfv';
+    
+    public static procedure z_TexGeni_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: Int32);
+    external 'opengl32.dll' name 'glTexGeni';
+    
+    public static procedure z_TexGeniv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
+    external 'opengl32.dll' name 'glTexGeniv';
+    public static procedure z_TexGeniv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGeniv';
+    public static procedure z_TexGeniv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
+    external 'opengl32.dll' name 'glTexGeniv';
+    
+    public static procedure z_Translated_ovr_0(x: real; y: real; z: real);
+    external 'opengl32.dll' name 'glTranslated';
+    
+    public static procedure z_Translatef_ovr_0(x: single; y: single; z: single);
+    external 'opengl32.dll' name 'glTranslatef';
+    
+    public static procedure z_Vertex2d_ovr_0(x: real; y: real);
+    external 'opengl32.dll' name 'glVertex2d';
+    
+    public static procedure z_Vertex2dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glVertex2dv';
+    public static procedure z_Vertex2dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2dv';
+    public static procedure z_Vertex2dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2dv';
+    
+    public static procedure z_Vertex2f_ovr_0(x: single; y: single);
+    external 'opengl32.dll' name 'glVertex2f';
+    
+    public static procedure z_Vertex2fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glVertex2fv';
+    public static procedure z_Vertex2fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2fv';
+    public static procedure z_Vertex2fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2fv';
+    
+    public static procedure z_Vertex2i_ovr_0(x: Int32; y: Int32);
+    external 'opengl32.dll' name 'glVertex2i';
+    
+    public static procedure z_Vertex2iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glVertex2iv';
+    public static procedure z_Vertex2iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2iv';
+    public static procedure z_Vertex2iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2iv';
+    
+    public static procedure z_Vertex2s_ovr_0(x: Int16; y: Int16);
+    external 'opengl32.dll' name 'glVertex2s';
+    
+    public static procedure z_Vertex2sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glVertex2sv';
+    public static procedure z_Vertex2sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2sv';
+    public static procedure z_Vertex2sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex2sv';
+    
+    public static procedure z_Vertex3d_ovr_0(x: real; y: real; z: real);
+    external 'opengl32.dll' name 'glVertex3d';
+    
+    public static procedure z_Vertex3dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glVertex3dv';
+    public static procedure z_Vertex3dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3dv';
+    public static procedure z_Vertex3dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3dv';
+    
+    public static procedure z_Vertex3f_ovr_0(x: single; y: single; z: single);
+    external 'opengl32.dll' name 'glVertex3f';
+    
+    public static procedure z_Vertex3fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glVertex3fv';
+    public static procedure z_Vertex3fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3fv';
+    public static procedure z_Vertex3fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3fv';
+    
+    public static procedure z_Vertex3i_ovr_0(x: Int32; y: Int32; z: Int32);
+    external 'opengl32.dll' name 'glVertex3i';
+    
+    public static procedure z_Vertex3iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glVertex3iv';
+    public static procedure z_Vertex3iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3iv';
+    public static procedure z_Vertex3iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3iv';
+    
+    public static procedure z_Vertex3s_ovr_0(x: Int16; y: Int16; z: Int16);
+    external 'opengl32.dll' name 'glVertex3s';
+    
+    public static procedure z_Vertex3sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glVertex3sv';
+    public static procedure z_Vertex3sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3sv';
+    public static procedure z_Vertex3sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex3sv';
+    
+    public static procedure z_Vertex4d_ovr_0(x: real; y: real; z: real; w: real);
+    external 'opengl32.dll' name 'glVertex4d';
+    
+    public static procedure z_Vertex4dv_ovr_0(var v: real);
+    external 'opengl32.dll' name 'glVertex4dv';
+    public static procedure z_Vertex4dv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4dv';
+    public static procedure z_Vertex4dv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4dv';
+    
+    public static procedure z_Vertex4f_ovr_0(x: single; y: single; z: single; w: single);
+    external 'opengl32.dll' name 'glVertex4f';
+    
+    public static procedure z_Vertex4fv_ovr_0(var v: single);
+    external 'opengl32.dll' name 'glVertex4fv';
+    public static procedure z_Vertex4fv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4fv';
+    public static procedure z_Vertex4fv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4fv';
+    
+    public static procedure z_Vertex4i_ovr_0(x: Int32; y: Int32; z: Int32; w: Int32);
+    external 'opengl32.dll' name 'glVertex4i';
+    
+    public static procedure z_Vertex4iv_ovr_0(var v: Int32);
+    external 'opengl32.dll' name 'glVertex4iv';
+    public static procedure z_Vertex4iv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4iv';
+    public static procedure z_Vertex4iv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4iv';
+    
+    public static procedure z_Vertex4s_ovr_0(x: Int16; y: Int16; z: Int16; w: Int16);
+    external 'opengl32.dll' name 'glVertex4s';
+    
+    public static procedure z_Vertex4sv_ovr_0(var v: Int16);
+    external 'opengl32.dll' name 'glVertex4sv';
+    public static procedure z_Vertex4sv_ovr_0_anh01(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4sv';
+    public static procedure z_Vertex4sv_ovr_2(v: IntPtr);
+    external 'opengl32.dll' name 'glVertex4sv';
+    
+    public static procedure z_VertexPointer_ovr_0(size: Int32; &type: VertexPointerType; stride: Int32; pointer: IntPtr);
+    external 'opengl32.dll' name 'glVertexPointer';
+    
+  end;
+  
+  {$endregion Внешние external перегрузки функций}
+  
   {$region Функции}
   
   [PCUNotRestore]
-  gl = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  gl = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     
     // added in gl4.1
     private z_ActiveShaderProgram_adr := GetFuncAdr('glActiveShaderProgram');
-    private z_ActiveShaderProgram_ovr_0 := GetFuncOrNil&(z_ActiveShaderProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveShaderProgram(pipeline: ProgramPipelineName; &program: ProgramName) :=
+    private z_ActiveShaderProgram_ovr_0 := GetFuncOrNil&(z_ActiveShaderProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveShaderProgram(pipeline: gl_program_pipeline; &program: gl_program) :=
     z_ActiveShaderProgram_ovr_0(pipeline, &program);
     
     // added in gl1.3
@@ -22512,8 +25643,8 @@ type
     
     // added in gl2.0
     private z_AttachShader_adr := GetFuncAdr('glAttachShader');
-    private z_AttachShader_ovr_0 := GetFuncOrNil&(z_AttachShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AttachShader(&program: ProgramName; shader: ShaderName) :=
+    private z_AttachShader_ovr_0 := GetFuncOrNil&(z_AttachShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AttachShader(&program: gl_program; shader: gl_shader) :=
     z_AttachShader_ovr_0(&program, shader);
     
     // added in gl3.0
@@ -22524,14 +25655,14 @@ type
     
     // added in gl1.5
     private z_BeginQuery_adr := GetFuncAdr('glBeginQuery');
-    private z_BeginQuery_ovr_0 := GetFuncOrNil&(z_BeginQuery_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQuery(target: QueryTarget; id: QueryName) :=
+    private z_BeginQuery_ovr_0 := GetFuncOrNil&(z_BeginQuery_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQuery(target: QueryTarget; id: gl_query) :=
     z_BeginQuery_ovr_0(target, id);
     
     // added in gl4.0
     private z_BeginQueryIndexed_adr := GetFuncAdr('glBeginQueryIndexed');
-    private z_BeginQueryIndexed_ovr_0 := GetFuncOrNil&(z_BeginQueryIndexed_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryIndexed(target: QueryTarget; index: UInt32; id: QueryName) :=
+    private z_BeginQueryIndexed_ovr_0 := GetFuncOrNil&(z_BeginQueryIndexed_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryIndexed(target: QueryTarget; index: UInt32; id: gl_query) :=
     z_BeginQueryIndexed_ovr_0(target, index, id);
     
     // added in gl3.0
@@ -22542,8 +25673,8 @@ type
     
     // added in gl2.0
     private z_BindAttribLocation_adr := GetFuncAdr('glBindAttribLocation');
-    private z_BindAttribLocation_ovr_0 := GetFuncOrNil&(z_BindAttribLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocation(&program: ProgramName; index: UInt32; name: string);
+    private z_BindAttribLocation_ovr_0 := GetFuncOrNil&(z_BindAttribLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocation(&program: gl_program; index: UInt32; name: string);
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -22553,36 +25684,36 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocation(&program: ProgramName; index: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocation(&program: gl_program; index: UInt32; name: IntPtr) :=
     z_BindAttribLocation_ovr_0(&program, index, name);
     
     // added in gl1.5
     private z_BindBuffer_adr := GetFuncAdr('glBindBuffer');
-    private z_BindBuffer_ovr_0 := GetFuncOrNil&(z_BindBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffer(target: BufferTargetARB; buffer: BufferName) :=
+    private z_BindBuffer_ovr_0 := GetFuncOrNil&(z_BindBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffer(target: BufferTargetARB; buffer: gl_buffer) :=
     z_BindBuffer_ovr_0(target, buffer);
     
     // added in gl3.0
     private z_BindBufferBase_adr := GetFuncAdr('glBindBufferBase');
-    private z_BindBufferBase_ovr_0 := GetFuncOrNil&(z_BindBufferBase_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBase(target: BufferTargetARB; index: UInt32; buffer: BufferName) :=
+    private z_BindBufferBase_ovr_0 := GetFuncOrNil&(z_BindBufferBase_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBase(target: BufferTargetARB; index: UInt32; buffer: gl_buffer) :=
     z_BindBufferBase_ovr_0(target, index, buffer);
     
     // added in gl3.0
     private z_BindBufferRange_adr := GetFuncAdr('glBindBufferRange');
-    private z_BindBufferRange_ovr_0 := GetFuncOrNil&(z_BindBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRange(target: BufferTargetARB; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_BindBufferRange_ovr_0 := GetFuncOrNil&(z_BindBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRange(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_BindBufferRange_ovr_0(target, index, buffer, offset, size);
     
     // added in gl4.4
     private z_BindBuffersBase_adr := GetFuncAdr('glBindBuffersBase');
-    private z_BindBuffersBase_ovr_0 := GetFuncOrNil&(z_BindBuffersBase_adr);
+    private z_BindBuffersBase_ovr_0 := GetFuncOrNil&(z_BindBuffersBase_adr);
     private z_BindBuffersBase_ovr_0_anh00001 := GetFuncOrNil&(z_BindBuffersBase_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersBase_ovr_0(target, first, count, buffers[0]) else
       z_BindBuffersBase_ovr_0_anh00001(target, first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer) :=
     z_BindBuffersBase_ovr_0(target, first, count, buffers);
     private z_BindBuffersBase_ovr_2 := GetFuncOrNil&(z_BindBuffersBase_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr) :=
@@ -22590,15 +25721,15 @@ type
     
     // added in gl4.4
     private z_BindBuffersRange_adr := GetFuncAdr('glBindBuffersRange');
-    private z_BindBuffersRange_ovr_0 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_0_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_0_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_0_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_0_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_0_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_0_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_0_anh0000111 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; sizes: array of IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (sizes<>nil) and (sizes.Length<>0) then
@@ -22615,9 +25746,9 @@ type
           z_BindBuffersRange_ovr_0_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes[0]) else
           z_BindBuffersRange_ovr_0_anh0000111(target, first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     private z_BindBuffersRange_ovr_1_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_1_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_1_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_1_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets[0], sizes) else
@@ -22625,11 +25756,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets[0], sizes) else
         z_BindBuffersRange_ovr_0_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes);
-    private z_BindBuffersRange_ovr_2 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_2 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_2_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_2_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_2_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_2_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_2(target, first, count, buffers[0], offsets[0], sizes) else
@@ -22638,9 +25769,9 @@ type
         z_BindBuffersRange_ovr_2_anh0000100(target, first, count, IntPtr.Zero, offsets[0], sizes) else
         z_BindBuffersRange_ovr_2_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes);
     private z_BindBuffersRange_ovr_3_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_3_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_3_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_3_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; sizes: array of IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets, sizes[0]) else
@@ -22649,20 +25780,20 @@ type
         z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes[0]) else
         z_BindBuffersRange_ovr_0_anh0000101(target, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
     private z_BindBuffersRange_ovr_4_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
     private z_BindBuffersRange_ovr_5_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_2(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_2_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private z_BindBuffersRange_ovr_6 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_6 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_6_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_6_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_6_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_6_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; sizes: array of IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_6(target, first, count, buffers[0], offsets, sizes[0]) else
@@ -22671,20 +25802,20 @@ type
         z_BindBuffersRange_ovr_6_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes[0]) else
         z_BindBuffersRange_ovr_6_anh0000101(target, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
     private z_BindBuffersRange_ovr_7_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_6(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_6_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private z_BindBuffersRange_ovr_8 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_8 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_8_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_8(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_8_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private z_BindBuffersRange_ovr_9_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_9_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    private z_BindBuffersRange_ovr_9_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_9_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_9_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_9_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; sizes: array of IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets[0], sizes[0]) else
@@ -22692,33 +25823,33 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes[0]) else
         z_BindBuffersRange_ovr_0_anh0000011(target, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private z_BindBuffersRange_ovr_10_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var sizes: IntPtr) :=
+    private z_BindBuffersRange_ovr_10_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var sizes: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_0_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private z_BindBuffersRange_ovr_11_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; sizes: pointer) :=
+    private z_BindBuffersRange_ovr_11_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; sizes: pointer) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_2(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_2_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private z_BindBuffersRange_ovr_12_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_12_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets, sizes[0]) else
       z_BindBuffersRange_ovr_0_anh0000001(target, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var sizes: IntPtr) :=
     z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets, sizes);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; sizes: pointer) :=
     z_BindBuffersRange_ovr_2(target, first, count, buffers, offsets, sizes);
-    private z_BindBuffersRange_ovr_15_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_15_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_6(target, first, count, buffers, offsets, sizes[0]) else
       z_BindBuffersRange_ovr_6_anh0000001(target, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var sizes: IntPtr) :=
     z_BindBuffersRange_ovr_6(target, first, count, buffers, offsets, sizes);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; sizes: pointer) :=
     z_BindBuffersRange_ovr_8(target, first, count, buffers, offsets, sizes);
     private z_BindBuffersRange_ovr_18 := GetFuncOrNil&(z_BindBuffersRange_adr);
     private z_BindBuffersRange_ovr_18_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
@@ -22766,8 +25897,8 @@ type
     
     // added in gl3.0
     private z_BindFragDataLocation_adr := GetFuncAdr('glBindFragDataLocation');
-    private z_BindFragDataLocation_ovr_0 := GetFuncOrNil&(z_BindFragDataLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocation(&program: ProgramName; color: UInt32; name: string);
+    private z_BindFragDataLocation_ovr_0 := GetFuncOrNil&(z_BindFragDataLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocation(&program: gl_program; color: UInt32; name: string);
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -22777,13 +25908,13 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocation(&program: ProgramName; color: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocation(&program: gl_program; color: UInt32; name: IntPtr) :=
     z_BindFragDataLocation_ovr_0(&program, color, name);
     
     // added in gl3.3
     private z_BindFragDataLocationIndexed_adr := GetFuncAdr('glBindFragDataLocationIndexed');
-    private z_BindFragDataLocationIndexed_ovr_0 := GetFuncOrNil&(z_BindFragDataLocationIndexed_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: ProgramName; colorNumber: UInt32; index: UInt32; name: string);
+    private z_BindFragDataLocationIndexed_ovr_0 := GetFuncOrNil&(z_BindFragDataLocationIndexed_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: gl_program; colorNumber: UInt32; index: UInt32; name: string);
     begin
       var par_4_str_ptr: IntPtr;
       try
@@ -22793,30 +25924,30 @@ type
         Marshal.FreeHGlobal(par_4_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: ProgramName; colorNumber: UInt32; index: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: gl_program; colorNumber: UInt32; index: UInt32; name: IntPtr) :=
     z_BindFragDataLocationIndexed_ovr_0(&program, colorNumber, index, name);
     
     // added in gl3.0
     private z_BindFramebuffer_adr := GetFuncAdr('glBindFramebuffer');
-    private z_BindFramebuffer_ovr_0 := GetFuncOrNil&(z_BindFramebuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebuffer(target: FramebufferTarget; framebuffer: FramebufferName) :=
+    private z_BindFramebuffer_ovr_0 := GetFuncOrNil&(z_BindFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebuffer(target: FramebufferTarget; framebuffer: gl_framebuffer) :=
     z_BindFramebuffer_ovr_0(target, framebuffer);
     
     // added in gl4.2
     private z_BindImageTexture_adr := GetFuncAdr('glBindImageTexture');
-    private z_BindImageTexture_ovr_0 := GetFuncOrNil&(z_BindImageTexture_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTexture(&unit: UInt32; texture: TextureName; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: InternalFormat) :=
+    private z_BindImageTexture_ovr_0 := GetFuncOrNil&(z_BindImageTexture_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTexture(&unit: UInt32; texture: gl_texture; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: InternalFormat) :=
     z_BindImageTexture_ovr_0(&unit, texture, level, layered, layer, access, format);
     
     // added in gl4.4
     private z_BindImageTextures_adr := GetFuncAdr('glBindImageTextures');
-    private z_BindImageTextures_ovr_0 := GetFuncOrNil&(z_BindImageTextures_adr);
+    private z_BindImageTextures_ovr_0 := GetFuncOrNil&(z_BindImageTextures_adr);
     private z_BindImageTextures_ovr_0_anh0001 := GetFuncOrNil&(z_BindImageTextures_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_BindImageTextures_ovr_0(first, count, textures[0]) else
       z_BindImageTextures_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; var textures: gl_texture) :=
     z_BindImageTextures_ovr_0(first, count, textures);
     private z_BindImageTextures_ovr_2 := GetFuncOrNil&(z_BindImageTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: IntPtr) :=
@@ -22824,51 +25955,49 @@ type
     
     // added in gl4.1
     private z_BindProgramPipeline_adr := GetFuncAdr('glBindProgramPipeline');
-    private z_BindProgramPipeline_ovr_0 := GetFuncOrNil&(z_BindProgramPipeline_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramPipeline(pipeline: ProgramPipelineName) :=
+    private z_BindProgramPipeline_ovr_0 := GetFuncOrNil&(z_BindProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramPipeline(pipeline: gl_program_pipeline) :=
     z_BindProgramPipeline_ovr_0(pipeline);
     
     // added in gl3.0
     private z_BindRenderbuffer_adr := GetFuncAdr('glBindRenderbuffer');
-    private z_BindRenderbuffer_ovr_0 := GetFuncOrNil&(z_BindRenderbuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbuffer(target: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_BindRenderbuffer_ovr_0 := GetFuncOrNil&(z_BindRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbuffer(target: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_BindRenderbuffer_ovr_0(target, renderbuffer);
     
     // added in gl3.3
     private z_BindSampler_adr := GetFuncAdr('glBindSampler');
-    private z_BindSampler_ovr_0 := GetFuncOrNil&(z_BindSampler_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSampler(&unit: UInt32; sampler: SamplerName) :=
+    private z_BindSampler_ovr_0 := GetFuncOrNil&(z_BindSampler_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSampler(&unit: UInt32; sampler: gl_sampler) :=
     z_BindSampler_ovr_0(&unit, sampler);
     
     // added in gl4.4
     private z_BindSamplers_adr := GetFuncAdr('glBindSamplers');
-    private z_BindSamplers_ovr_0 := GetFuncOrNil&(z_BindSamplers_adr);
+    private z_BindSamplers_ovr_0 := GetFuncOrNil&(z_BindSamplers_adr);
     private z_BindSamplers_ovr_0_anh0001 := GetFuncOrNil&(z_BindSamplers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_BindSamplers_ovr_0(first, count, samplers[0]) else
       z_BindSamplers_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; var samplers: gl_sampler) :=
     z_BindSamplers_ovr_0(first, count, samplers);
     private z_BindSamplers_ovr_2 := GetFuncOrNil&(z_BindSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: IntPtr) :=
     z_BindSamplers_ovr_2(first, count, samplers);
     
     // added in gl1.1
-    private static procedure z_BindTexture_ovr_0(target: TextureTarget; texture: TextureName);
-    external 'opengl32.dll' name 'glBindTexture';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTexture(target: TextureTarget; texture: TextureName) :=
-    z_BindTexture_ovr_0(target, texture);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTexture(target: TextureTarget; texture: gl_texture) :=
+    gl_ntv.z_BindTexture_ovr_0(target, texture);
     
     // added in gl4.4
     private z_BindTextures_adr := GetFuncAdr('glBindTextures');
-    private z_BindTextures_ovr_0 := GetFuncOrNil&(z_BindTextures_adr);
+    private z_BindTextures_ovr_0 := GetFuncOrNil&(z_BindTextures_adr);
     private z_BindTextures_ovr_0_anh0001 := GetFuncOrNil&(z_BindTextures_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_BindTextures_ovr_0(first, count, textures[0]) else
       z_BindTextures_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; var textures: gl_texture) :=
     z_BindTextures_ovr_0(first, count, textures);
     private z_BindTextures_ovr_2 := GetFuncOrNil&(z_BindTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: IntPtr) :=
@@ -22876,39 +26005,39 @@ type
     
     // added in gl4.5
     private z_BindTextureUnit_adr := GetFuncAdr('glBindTextureUnit');
-    private z_BindTextureUnit_ovr_0 := GetFuncOrNil&(z_BindTextureUnit_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureUnit(&unit: UInt32; texture: TextureName) :=
+    private z_BindTextureUnit_ovr_0 := GetFuncOrNil&(z_BindTextureUnit_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureUnit(&unit: UInt32; texture: gl_texture) :=
     z_BindTextureUnit_ovr_0(&unit, texture);
     
     // added in gl4.0
     private z_BindTransformFeedback_adr := GetFuncAdr('glBindTransformFeedback');
-    private z_BindTransformFeedback_ovr_0 := GetFuncOrNil&(z_BindTransformFeedback_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedback(target: BindTransformFeedbackTarget; id: TransformFeedbackName) :=
+    private z_BindTransformFeedback_ovr_0 := GetFuncOrNil&(z_BindTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedback(target: BindTransformFeedbackTarget; id: gl_transform_feedback) :=
     z_BindTransformFeedback_ovr_0(target, id);
     
     // added in gl3.0
     private z_BindVertexArray_adr := GetFuncAdr('glBindVertexArray');
-    private z_BindVertexArray_ovr_0 := GetFuncOrNil&(z_BindVertexArray_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArray(&array: VertexArrayName) :=
+    private z_BindVertexArray_ovr_0 := GetFuncOrNil&(z_BindVertexArray_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArray(&array: gl_vertex_array) :=
     z_BindVertexArray_ovr_0(&array);
     
     // added in gl4.3
     private z_BindVertexBuffer_adr := GetFuncAdr('glBindVertexBuffer');
-    private z_BindVertexBuffer_ovr_0 := GetFuncOrNil&(z_BindVertexBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffer(bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32) :=
+    private z_BindVertexBuffer_ovr_0 := GetFuncOrNil&(z_BindVertexBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffer(bindingindex: UInt32; buffer: gl_buffer; offset: IntPtr; stride: Int32) :=
     z_BindVertexBuffer_ovr_0(bindingindex, buffer, offset, stride);
     
     // added in gl4.4
     private z_BindVertexBuffers_adr := GetFuncAdr('glBindVertexBuffers');
-    private z_BindVertexBuffers_ovr_0 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_0_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_0_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_0_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_0_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_0_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_0_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_0_anh000111 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (strides<>nil) and (strides.Length<>0) then
@@ -22925,9 +26054,9 @@ type
           z_BindVertexBuffers_ovr_0_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides[0]) else
           z_BindVertexBuffers_ovr_0_anh000111(first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     private z_BindVertexBuffers_ovr_1_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_1_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_1_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_1_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets[0], strides) else
@@ -22935,11 +26064,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets[0], strides) else
         z_BindVertexBuffers_ovr_0_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private z_BindVertexBuffers_ovr_2 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_2 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_2_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_2_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_2_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_2_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_2(first, count, buffers[0], offsets[0], strides) else
@@ -22949,7 +26078,7 @@ type
         z_BindVertexBuffers_ovr_2_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides);
     private z_BindVertexBuffers_ovr_3_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_3_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets, strides[0]) else
@@ -22958,20 +26087,20 @@ type
         z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets, strides[0]) else
         z_BindVertexBuffers_ovr_0_anh000101(first, count, IntPtr.Zero, offsets, IntPtr.Zero);
     private z_BindVertexBuffers_ovr_4_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets, strides);
     private z_BindVertexBuffers_ovr_5_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_2(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_2_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private z_BindVertexBuffers_ovr_6 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_6 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_6_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_6_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_6_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_6_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_6(first, count, buffers[0], offsets, strides[0]) else
@@ -22980,19 +26109,19 @@ type
         z_BindVertexBuffers_ovr_6_anh000100(first, count, IntPtr.Zero, offsets, strides[0]) else
         z_BindVertexBuffers_ovr_6_anh000101(first, count, IntPtr.Zero, offsets, IntPtr.Zero);
     private z_BindVertexBuffers_ovr_7_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_6(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_6_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private z_BindVertexBuffers_ovr_8 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_8 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_8_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_8(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_8_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private z_BindVertexBuffers_ovr_9_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    private z_BindVertexBuffers_ovr_9_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_BindVertexBuffers_ovr_9_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_9_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers, offsets[0], strides[0]) else
@@ -23000,31 +26129,31 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0_anh000010(first, count, buffers, IntPtr.Zero, strides[0]) else
         z_BindVertexBuffers_ovr_0_anh000011(first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private z_BindVertexBuffers_ovr_10_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_BindVertexBuffers_ovr_10_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers, offsets[0], strides) else
       z_BindVertexBuffers_ovr_0_anh000010(first, count, buffers, IntPtr.Zero, strides);
-    private z_BindVertexBuffers_ovr_11_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_BindVertexBuffers_ovr_11_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_2(first, count, buffers, offsets[0], strides) else
       z_BindVertexBuffers_ovr_2_anh000010(first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers, offsets, strides[0]) else
       z_BindVertexBuffers_ovr_0_anh000001(first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     z_BindVertexBuffers_ovr_0(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_2(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_BindVertexBuffers_ovr_6(first, count, buffers, offsets, strides[0]) else
       z_BindVertexBuffers_ovr_6_anh000001(first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var strides: Int32) :=
     z_BindVertexBuffers_ovr_6(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_8(first, count, buffers, offsets, strides);
     private z_BindVertexBuffers_ovr_18 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     private z_BindVertexBuffers_ovr_18_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
@@ -23100,10 +26229,8 @@ type
     z_BlendEquationSeparatei_ovr_0(buf, modeRGB, modeAlpha);
     
     // added in gl1.0
-    private static procedure z_BlendFunc_ovr_0(sfactor: BlendingFactor; dfactor: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFunc';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFunc(sfactor: BlendingFactor; dfactor: BlendingFactor) :=
-    z_BlendFunc_ovr_0(sfactor, dfactor);
+    gl_ntv.z_BlendFunc_ovr_0(sfactor, dfactor);
     
     // added in gl4.0
     private z_BlendFunci_adr := GetFuncAdr('glBlendFunci');
@@ -23131,8 +26258,8 @@ type
     
     // added in gl4.5
     private z_BlitNamedFramebuffer_adr := GetFuncAdr('glBlitNamedFramebuffer');
-    private z_BlitNamedFramebuffer_ovr_0 := GetFuncOrNil&(z_BlitNamedFramebuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitNamedFramebuffer(readFramebuffer: UInt32; drawFramebuffer: UInt32; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
+    private z_BlitNamedFramebuffer_ovr_0 := GetFuncOrNil&(z_BlitNamedFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitNamedFramebuffer(readFramebuffer: gl_framebuffer; drawFramebuffer: gl_framebuffer; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
     z_BlitNamedFramebuffer_ovr_0(readFramebuffer, drawFramebuffer, srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
     // added in gl1.5
@@ -23161,8 +26288,8 @@ type
     
     // added in gl4.5
     private z_CheckNamedFramebufferStatus_adr := GetFuncAdr('glCheckNamedFramebufferStatus');
-    private z_CheckNamedFramebufferStatus_ovr_0 := GetFuncOrNil&(z_CheckNamedFramebufferStatus_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatus(framebuffer: UInt32; target: FramebufferTarget): FramebufferStatus :=
+    private z_CheckNamedFramebufferStatus_ovr_0 := GetFuncOrNil&(z_CheckNamedFramebufferStatus_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatus(framebuffer: gl_framebuffer; target: FramebufferTarget): FramebufferStatus :=
     z_CheckNamedFramebufferStatus_ovr_0(framebuffer, target);
     
     // added in gl3.0
@@ -23172,10 +26299,8 @@ type
     z_ClampColor_ovr_0(target, clamp);
     
     // added in gl1.0
-    private static procedure z_Clear_ovr_0(mask: ClearBufferMask);
-    external 'opengl32.dll' name 'glClear';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Clear(mask: ClearBufferMask) :=
-    z_Clear_ovr_0(mask);
+    gl_ntv.z_Clear_ovr_0(mask);
     
     // added in gl4.3
     private z_ClearBufferData_adr := GetFuncAdr('glClearBufferData');
@@ -23238,16 +26363,12 @@ type
     z_ClearBufferuiv_ovr_2(_buffer, drawbuffer, value);
     
     // added in gl1.0
-    private static procedure z_ClearColor_ovr_0(red: single; green: single; blue: single; alpha: single);
-    external 'opengl32.dll' name 'glClearColor';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearColor(red: single; green: single; blue: single; alpha: single) :=
-    z_ClearColor_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_ClearColor_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0
-    private static procedure z_ClearDepth_ovr_0(depth: real);
-    external 'opengl32.dll' name 'glClearDepth';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearDepth(depth: real) :=
-    z_ClearDepth_ovr_0(depth);
+    gl_ntv.z_ClearDepth_ovr_0(depth);
     
     // added in gl4.1
     private z_ClearDepthf_adr := GetFuncAdr('glClearDepthf');
@@ -23257,86 +26378,84 @@ type
     
     // added in gl4.5
     private z_ClearNamedBufferData_adr := GetFuncAdr('glClearNamedBufferData');
-    private z_ClearNamedBufferData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferData(buffer: UInt32; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferData(buffer: gl_buffer; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferData_ovr_0(buffer, _internalformat, format, &type, data);
     
     // added in gl4.5
     private z_ClearNamedBufferSubData_adr := GetFuncAdr('glClearNamedBufferSubData');
-    private z_ClearNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubData(buffer: UInt32; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubData(buffer: gl_buffer; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferSubData_ovr_0(buffer, _internalformat, offset, size, format, &type, data);
     
     // added in gl4.5
     private z_ClearNamedFramebufferfi_adr := GetFuncAdr('glClearNamedFramebufferfi');
-    private z_ClearNamedFramebufferfi_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfi_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfi(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; depth: single; stencil: Int32) :=
+    private z_ClearNamedFramebufferfi_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfi_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfi(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; depth: single; stencil: Int32) :=
     z_ClearNamedFramebufferfi_ovr_0(framebuffer, _buffer, drawbuffer, depth, stencil);
     
     // added in gl4.5
     private z_ClearNamedFramebufferfv_adr := GetFuncAdr('glClearNamedFramebufferfv');
-    private z_ClearNamedFramebufferfv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
-    private z_ClearNamedFramebufferfv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of single) :=
+    private z_ClearNamedFramebufferfv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    private z_ClearNamedFramebufferfv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferfv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferfv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: single) :=
     z_ClearNamedFramebufferfv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private z_ClearNamedFramebufferfv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferfv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferfv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
     // added in gl4.5
     private z_ClearNamedFramebufferiv_adr := GetFuncAdr('glClearNamedFramebufferiv');
-    private z_ClearNamedFramebufferiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
-    private z_ClearNamedFramebufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of Int32) :=
+    private z_ClearNamedFramebufferiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    private z_ClearNamedFramebufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferiv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferiv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: Int32) :=
     z_ClearNamedFramebufferiv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private z_ClearNamedFramebufferiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferiv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
     // added in gl4.5
     private z_ClearNamedFramebufferuiv_adr := GetFuncAdr('glClearNamedFramebufferuiv');
-    private z_ClearNamedFramebufferuiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
-    private z_ClearNamedFramebufferuiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of UInt32) :=
+    private z_ClearNamedFramebufferuiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    private z_ClearNamedFramebufferuiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferuiv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferuiv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: UInt32) :=
     z_ClearNamedFramebufferuiv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private z_ClearNamedFramebufferuiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferuiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferuiv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
     // added in gl1.0
-    private static procedure z_ClearStencil_ovr_0(s: Int32);
-    external 'opengl32.dll' name 'glClearStencil';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearStencil(s: Int32) :=
-    z_ClearStencil_ovr_0(s);
+    gl_ntv.z_ClearStencil_ovr_0(s);
     
     // added in gl4.4
     private z_ClearTexImage_adr := GetFuncAdr('glClearTexImage');
-    private z_ClearTexImage_ovr_0 := GetFuncOrNil&(z_ClearTexImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexImage(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearTexImage_ovr_0 := GetFuncOrNil&(z_ClearTexImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexImage(texture: gl_texture; level: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearTexImage_ovr_0(texture, level, format, &type, data);
     
     // added in gl4.4
     private z_ClearTexSubImage_adr := GetFuncAdr('glClearTexSubImage');
-    private z_ClearTexSubImage_ovr_0 := GetFuncOrNil&(z_ClearTexSubImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearTexSubImage_ovr_0 := GetFuncOrNil&(z_ClearTexSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearTexSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, data);
     
     // added in gl3.2
     private z_ClientWaitSync_adr := GetFuncAdr('glClientWaitSync');
-    private z_ClientWaitSync_ovr_0 := GetFuncOrNil&(z_ClientWaitSync_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ClientWaitSync(sync: GLsync; flags: SyncObjectMask; timeout: UInt64): SyncStatus :=
+    private z_ClientWaitSync_ovr_0 := GetFuncOrNil&(z_ClientWaitSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ClientWaitSync(sync: gl_sync; flags: SyncObjectMask; timeout: UInt64): SyncStatus :=
     z_ClientWaitSync_ovr_0(sync, flags, timeout);
     
     // added in gl4.5
@@ -23346,10 +26465,8 @@ type
     z_ClipControl_ovr_0(origin, depth);
     
     // added in gl1.0
-    private static procedure z_ColorMask_ovr_0(red: boolean; green: boolean; blue: boolean; alpha: boolean);
-    external 'opengl32.dll' name 'glColorMask';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorMask(red: boolean; green: boolean; blue: boolean; alpha: boolean) :=
-    z_ColorMask_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_ColorMask_ovr_0(red, green, blue, alpha);
     
     // added in gl3.0
     private z_ColorMaski_adr := GetFuncAdr('glColorMaski');
@@ -23366,16 +26483,11 @@ type
     // added in gl3.3
     private z_ColorP3uiv_adr := GetFuncAdr('glColorP3uiv');
     private z_ColorP3uiv_ovr_0 := GetFuncOrNil&(z_ColorP3uiv_adr);
-    private z_ColorP3uiv_ovr_0_anh001 := GetFuncOrNil&(z_ColorP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_ColorP3uiv_ovr_0(&type, color[0]) else
-      z_ColorP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; var color: UInt32) :=
     z_ColorP3uiv_ovr_0(&type, color);
-    private z_ColorP3uiv_ovr_2 := GetFuncOrNil&(z_ColorP3uiv_adr);
+    private z_ColorP3uiv_ovr_1 := GetFuncOrNil&(z_ColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_ColorP3uiv_ovr_2(&type, color);
+    z_ColorP3uiv_ovr_1(&type, color);
     
     // added in gl3.3
     private z_ColorP4ui_adr := GetFuncAdr('glColorP4ui');
@@ -23386,21 +26498,16 @@ type
     // added in gl3.3
     private z_ColorP4uiv_adr := GetFuncAdr('glColorP4uiv');
     private z_ColorP4uiv_ovr_0 := GetFuncOrNil&(z_ColorP4uiv_adr);
-    private z_ColorP4uiv_ovr_0_anh001 := GetFuncOrNil&(z_ColorP4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_ColorP4uiv_ovr_0(&type, color[0]) else
-      z_ColorP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; var color: UInt32) :=
     z_ColorP4uiv_ovr_0(&type, color);
-    private z_ColorP4uiv_ovr_2 := GetFuncOrNil&(z_ColorP4uiv_adr);
+    private z_ColorP4uiv_ovr_1 := GetFuncOrNil&(z_ColorP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_ColorP4uiv_ovr_2(&type, color);
+    z_ColorP4uiv_ovr_1(&type, color);
     
     // added in gl2.0
     private z_CompileShader_adr := GetFuncAdr('glCompileShader');
-    private z_CompileShader_ovr_0 := GetFuncOrNil&(z_CompileShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShader(shader: ShaderName) :=
+    private z_CompileShader_ovr_0 := GetFuncOrNil&(z_CompileShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShader(shader: gl_shader) :=
     z_CompileShader_ovr_0(shader);
     
     // added in gl1.3
@@ -23441,20 +26548,20 @@ type
     
     // added in gl4.5
     private z_CompressedTextureSubImage1D_adr := GetFuncAdr('glCompressedTextureSubImage1D');
-    private z_CompressedTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage1D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1D(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage1D_ovr_0(texture, level, xoffset, width, format, imageSize, data);
     
     // added in gl4.5
     private z_CompressedTextureSubImage2D_adr := GetFuncAdr('glCompressedTextureSubImage2D');
-    private z_CompressedTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage2D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, width, height, format, imageSize, data);
     
     // added in gl4.5
     private z_CompressedTextureSubImage3D_adr := GetFuncAdr('glCompressedTextureSubImage3D');
-    private z_CompressedTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage3D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, imageSize, data);
     
     // added in gl3.1
@@ -23471,33 +26578,25 @@ type
     
     // added in gl4.5
     private z_CopyNamedBufferSubData_adr := GetFuncAdr('glCopyNamedBufferSubData');
-    private z_CopyNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_CopyNamedBufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyNamedBufferSubData(readBuffer: BufferName; writeBuffer: BufferName; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    private z_CopyNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_CopyNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyNamedBufferSubData(readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
     z_CopyNamedBufferSubData_ovr_0(readBuffer, writeBuffer, readOffset, writeOffset, size);
     
     // added in gl1.1
-    private static procedure z_CopyTexImage1D_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTexImage1D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexImage1D(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32) :=
-    z_CopyTexImage1D_ovr_0(target, level, _internalformat, x, y, width, border);
+    gl_ntv.z_CopyTexImage1D_ovr_0(target, level, _internalformat, x, y, width, border);
     
     // added in gl1.1
-    private static procedure z_CopyTexImage2D_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTexImage2D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexImage2D(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32) :=
-    z_CopyTexImage2D_ovr_0(target, level, _internalformat, x, y, width, height, border);
+    gl_ntv.z_CopyTexImage2D_ovr_0(target, level, _internalformat, x, y, width, height, border);
     
     // added in gl1.1
-    private static procedure z_CopyTexSubImage1D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyTexSubImage1D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexSubImage1D(target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
-    z_CopyTexSubImage1D_ovr_0(target, level, xoffset, x, y, width);
+    gl_ntv.z_CopyTexSubImage1D_ovr_0(target, level, xoffset, x, y, width);
     
     // added in gl1.1
-    private static procedure z_CopyTexSubImage2D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTexSubImage2D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexSubImage2D(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
-    z_CopyTexSubImage2D_ovr_0(target, level, xoffset, yoffset, x, y, width, height);
+    gl_ntv.z_CopyTexSubImage2D_ovr_0(target, level, xoffset, yoffset, x, y, width, height);
     
     // added in gl1.2
     private z_CopyTexSubImage3D_adr := GetFuncAdr('glCopyTexSubImage3D');
@@ -23507,31 +26606,31 @@ type
     
     // added in gl4.5
     private z_CopyTextureSubImage1D_adr := GetFuncAdr('glCopyTextureSubImage1D');
-    private z_CopyTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage1D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1D(texture: TextureName; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
+    private z_CopyTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyTextureSubImage1D_ovr_0(texture, level, xoffset, x, y, width);
     
     // added in gl4.5
     private z_CopyTextureSubImage2D_adr := GetFuncAdr('glCopyTextureSubImage2D');
-    private z_CopyTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage2D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2D(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, x, y, width, height);
     
     // added in gl4.5
     private z_CopyTextureSubImage3D_adr := GetFuncAdr('glCopyTextureSubImage3D');
-    private z_CopyTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage3D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3D(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, x, y, width, height);
     
     // added in gl4.5
     private z_CreateBuffers_adr := GetFuncAdr('glCreateBuffers');
-    private z_CreateBuffers_ovr_0 := GetFuncOrNil&(z_CreateBuffers_adr);
+    private z_CreateBuffers_ovr_0 := GetFuncOrNil&(z_CreateBuffers_adr);
     private z_CreateBuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: array of BufferName) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_CreateBuffers_ovr_0(n, buffers[0]) else
       z_CreateBuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; var buffers: BufferName) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; var buffers: gl_buffer) :=
     z_CreateBuffers_ovr_0(n, buffers);
     private z_CreateBuffers_ovr_2 := GetFuncOrNil&(z_CreateBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: IntPtr) :=
@@ -23539,13 +26638,13 @@ type
     
     // added in gl4.5
     private z_CreateFramebuffers_adr := GetFuncAdr('glCreateFramebuffers');
-    private z_CreateFramebuffers_ovr_0 := GetFuncOrNil&(z_CreateFramebuffers_adr);
+    private z_CreateFramebuffers_ovr_0 := GetFuncOrNil&(z_CreateFramebuffers_adr);
     private z_CreateFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateFramebuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_CreateFramebuffers_ovr_0(n, framebuffers[0]) else
       z_CreateFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_CreateFramebuffers_ovr_0(n, framebuffers);
     private z_CreateFramebuffers_ovr_2 := GetFuncOrNil&(z_CreateFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: IntPtr) :=
@@ -23553,19 +26652,19 @@ type
     
     // added in gl2.0
     private z_CreateProgram_adr := GetFuncAdr('glCreateProgram');
-    private z_CreateProgram_ovr_0 := GetFuncOrNil&(z_CreateProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateProgram: ProgramName :=
+    private z_CreateProgram_ovr_0 := GetFuncOrNil&(z_CreateProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateProgram: gl_program :=
     z_CreateProgram_ovr_0;
     
     // added in gl4.5
     private z_CreateProgramPipelines_adr := GetFuncAdr('glCreateProgramPipelines');
-    private z_CreateProgramPipelines_ovr_0 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
+    private z_CreateProgramPipelines_ovr_0 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
     private z_CreateProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_CreateProgramPipelines_ovr_0(n, pipelines[0]) else
       z_CreateProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_CreateProgramPipelines_ovr_0(n, pipelines);
     private z_CreateProgramPipelines_ovr_2 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: IntPtr) :=
@@ -23573,13 +26672,13 @@ type
     
     // added in gl4.5
     private z_CreateQueries_adr := GetFuncAdr('glCreateQueries');
-    private z_CreateQueries_ovr_0 := GetFuncOrNil&(z_CreateQueries_adr);
+    private z_CreateQueries_ovr_0 := GetFuncOrNil&(z_CreateQueries_adr);
     private z_CreateQueries_ovr_0_anh0001 := GetFuncOrNil&(z_CreateQueries_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_CreateQueries_ovr_0(target, n, ids[0]) else
       z_CreateQueries_ovr_0_anh0001(target, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; var ids: gl_query) :=
     z_CreateQueries_ovr_0(target, n, ids);
     private z_CreateQueries_ovr_2 := GetFuncOrNil&(z_CreateQueries_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: IntPtr) :=
@@ -23587,13 +26686,13 @@ type
     
     // added in gl4.5
     private z_CreateRenderbuffers_adr := GetFuncAdr('glCreateRenderbuffers');
-    private z_CreateRenderbuffers_ovr_0 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
+    private z_CreateRenderbuffers_ovr_0 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
     private z_CreateRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_CreateRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_CreateRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_CreateRenderbuffers_ovr_0(n, renderbuffers);
     private z_CreateRenderbuffers_ovr_2 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
@@ -23601,13 +26700,13 @@ type
     
     // added in gl4.5
     private z_CreateSamplers_adr := GetFuncAdr('glCreateSamplers');
-    private z_CreateSamplers_ovr_0 := GetFuncOrNil&(z_CreateSamplers_adr);
+    private z_CreateSamplers_ovr_0 := GetFuncOrNil&(z_CreateSamplers_adr);
     private z_CreateSamplers_ovr_0_anh001 := GetFuncOrNil&(z_CreateSamplers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_CreateSamplers_ovr_0(n, samplers[0]) else
       z_CreateSamplers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; var samplers: gl_sampler) :=
     z_CreateSamplers_ovr_0(n, samplers);
     private z_CreateSamplers_ovr_2 := GetFuncOrNil&(z_CreateSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: IntPtr) :=
@@ -23615,15 +26714,15 @@ type
     
     // added in gl2.0
     private z_CreateShader_adr := GetFuncAdr('glCreateShader');
-    private z_CreateShader_ovr_0 := GetFuncOrNil&(z_CreateShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShader(&type: ShaderType): ShaderName :=
+    private z_CreateShader_ovr_0 := GetFuncOrNil&(z_CreateShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShader(&type: ShaderType): gl_shader :=
     z_CreateShader_ovr_0(&type);
     
     // added in gl4.1
     private z_CreateShaderProgramv_adr := GetFuncAdr('glCreateShaderProgramv');
-    private z_CreateShaderProgramv_ovr_0 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
-    private z_CreateShaderProgramv_ovr_0_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of string): ProgramName;
+    private z_CreateShaderProgramv_ovr_0 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    private z_CreateShaderProgramv_ovr_0_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of string): gl_program;
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -23635,24 +26734,24 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_CreateShaderProgramv_ovr_1_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of IntPtr): ProgramName :=
+    private z_CreateShaderProgramv_ovr_1_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of IntPtr): gl_program :=
     if (strings<>nil) and (strings.Length<>0) then
       z_CreateShaderProgramv_ovr_0(&type, count, strings[0]) else
       z_CreateShaderProgramv_ovr_0_anh0001(&type, count, IntPtr.Zero);
-    private z_CreateShaderProgramv_ovr_2 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: IntPtr): ProgramName :=
+    private z_CreateShaderProgramv_ovr_2 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: IntPtr): gl_program :=
     z_CreateShaderProgramv_ovr_2(&type, count, strings);
     
     // added in gl4.5
     private z_CreateTextures_adr := GetFuncAdr('glCreateTextures');
-    private z_CreateTextures_ovr_0 := GetFuncOrNil&(z_CreateTextures_adr);
+    private z_CreateTextures_ovr_0 := GetFuncOrNil&(z_CreateTextures_adr);
     private z_CreateTextures_ovr_0_anh0001 := GetFuncOrNil&(z_CreateTextures_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_CreateTextures_ovr_0(target, n, textures[0]) else
       z_CreateTextures_ovr_0_anh0001(target, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; var textures: gl_texture) :=
     z_CreateTextures_ovr_0(target, n, textures);
     private z_CreateTextures_ovr_2 := GetFuncOrNil&(z_CreateTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: IntPtr) :=
@@ -23660,13 +26759,13 @@ type
     
     // added in gl4.5
     private z_CreateTransformFeedbacks_adr := GetFuncAdr('glCreateTransformFeedbacks');
-    private z_CreateTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
+    private z_CreateTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
     private z_CreateTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_CreateTransformFeedbacks_ovr_0(n, ids[0]) else
       z_CreateTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_CreateTransformFeedbacks_ovr_0(n, ids);
     private z_CreateTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: IntPtr) :=
@@ -23674,28 +26773,26 @@ type
     
     // added in gl4.5
     private z_CreateVertexArrays_adr := GetFuncAdr('glCreateVertexArrays');
-    private z_CreateVertexArrays_ovr_0 := GetFuncOrNil&(z_CreateVertexArrays_adr);
+    private z_CreateVertexArrays_ovr_0 := GetFuncOrNil&(z_CreateVertexArrays_adr);
     private z_CreateVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_CreateVertexArrays_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_CreateVertexArrays_ovr_0(n, arrays[0]) else
       z_CreateVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_CreateVertexArrays_ovr_0(n, arrays);
     private z_CreateVertexArrays_ovr_2 := GetFuncOrNil&(z_CreateVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: IntPtr) :=
     z_CreateVertexArrays_ovr_2(n, arrays);
     
     // added in gl1.0
-    private static procedure z_CullFace_ovr_0(mode: CullFaceMode);
-    external 'opengl32.dll' name 'glCullFace';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullFace(mode: CullFaceMode) :=
-    z_CullFace_ovr_0(mode);
+    gl_ntv.z_CullFace_ovr_0(mode);
     
     // added in gl4.3
     private z_DebugMessageCallback_adr := GetFuncAdr('glDebugMessageCallback');
-    private z_DebugMessageCallback_ovr_0 := GetFuncOrNil&(z_DebugMessageCallback_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallback(callback: GLDEBUGPROC; userParam: IntPtr) :=
+    private z_DebugMessageCallback_ovr_0 := GetFuncOrNil&(z_DebugMessageCallback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallback(callback: GL_DEBUG_PROC; userParam: IntPtr) :=
     z_DebugMessageCallback_ovr_0(callback, userParam);
     
     // added in gl4.3
@@ -23730,13 +26827,13 @@ type
     
     // added in gl1.5
     private z_DeleteBuffers_adr := GetFuncAdr('glDeleteBuffers');
-    private z_DeleteBuffers_ovr_0 := GetFuncOrNil&(z_DeleteBuffers_adr);
+    private z_DeleteBuffers_ovr_0 := GetFuncOrNil&(z_DeleteBuffers_adr);
     private z_DeleteBuffers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffers(n: Int32; buffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffers(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_DeleteBuffers_ovr_0(n, buffers[0]) else
       z_DeleteBuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffers(n: Int32; var buffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffers(n: Int32; var buffers: gl_buffer) :=
     z_DeleteBuffers_ovr_0(n, buffers);
     private z_DeleteBuffers_ovr_2 := GetFuncOrNil&(z_DeleteBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffers(n: Int32; buffers: IntPtr) :=
@@ -23744,13 +26841,13 @@ type
     
     // added in gl3.0
     private z_DeleteFramebuffers_adr := GetFuncAdr('glDeleteFramebuffers');
-    private z_DeleteFramebuffers_ovr_0 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
+    private z_DeleteFramebuffers_ovr_0 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
     private z_DeleteFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_DeleteFramebuffers_ovr_0(n, framebuffers[0]) else
       z_DeleteFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_DeleteFramebuffers_ovr_0(n, framebuffers);
     private z_DeleteFramebuffers_ovr_2 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: IntPtr) :=
@@ -23758,19 +26855,19 @@ type
     
     // added in gl2.0
     private z_DeleteProgram_adr := GetFuncAdr('glDeleteProgram');
-    private z_DeleteProgram_ovr_0 := GetFuncOrNil&(z_DeleteProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgram(&program: ProgramName) :=
+    private z_DeleteProgram_ovr_0 := GetFuncOrNil&(z_DeleteProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgram(&program: gl_program) :=
     z_DeleteProgram_ovr_0(&program);
     
     // added in gl4.1
     private z_DeleteProgramPipelines_adr := GetFuncAdr('glDeleteProgramPipelines');
-    private z_DeleteProgramPipelines_ovr_0 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
+    private z_DeleteProgramPipelines_ovr_0 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
     private z_DeleteProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_DeleteProgramPipelines_ovr_0(n, pipelines[0]) else
       z_DeleteProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_DeleteProgramPipelines_ovr_0(n, pipelines);
     private z_DeleteProgramPipelines_ovr_2 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: IntPtr) :=
@@ -23778,13 +26875,13 @@ type
     
     // added in gl1.5
     private z_DeleteQueries_adr := GetFuncAdr('glDeleteQueries');
-    private z_DeleteQueries_ovr_0 := GetFuncOrNil&(z_DeleteQueries_adr);
+    private z_DeleteQueries_ovr_0 := GetFuncOrNil&(z_DeleteQueries_adr);
     private z_DeleteQueries_ovr_0_anh001 := GetFuncOrNil&(z_DeleteQueries_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueries(n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueries(n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteQueries_ovr_0(n, ids[0]) else
       z_DeleteQueries_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueries(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueries(n: Int32; var ids: gl_query) :=
     z_DeleteQueries_ovr_0(n, ids);
     private z_DeleteQueries_ovr_2 := GetFuncOrNil&(z_DeleteQueries_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueries(n: Int32; ids: IntPtr) :=
@@ -23792,13 +26889,13 @@ type
     
     // added in gl3.0
     private z_DeleteRenderbuffers_adr := GetFuncAdr('glDeleteRenderbuffers');
-    private z_DeleteRenderbuffers_ovr_0 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
+    private z_DeleteRenderbuffers_ovr_0 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
     private z_DeleteRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_DeleteRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_DeleteRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_DeleteRenderbuffers_ovr_0(n, renderbuffers);
     private z_DeleteRenderbuffers_ovr_2 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
@@ -23806,13 +26903,13 @@ type
     
     // added in gl3.3
     private z_DeleteSamplers_adr := GetFuncAdr('glDeleteSamplers');
-    private z_DeleteSamplers_ovr_0 := GetFuncOrNil&(z_DeleteSamplers_adr);
+    private z_DeleteSamplers_ovr_0 := GetFuncOrNil&(z_DeleteSamplers_adr);
     private z_DeleteSamplers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteSamplers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_DeleteSamplers_ovr_0(count, samplers[0]) else
       z_DeleteSamplers_ovr_0_anh001(count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; var samplers: gl_sampler) :=
     z_DeleteSamplers_ovr_0(count, samplers);
     private z_DeleteSamplers_ovr_2 := GetFuncOrNil&(z_DeleteSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: IntPtr) :=
@@ -23820,41 +26917,35 @@ type
     
     // added in gl2.0
     private z_DeleteShader_adr := GetFuncAdr('glDeleteShader');
-    private z_DeleteShader_ovr_0 := GetFuncOrNil&(z_DeleteShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteShader(shader: ShaderName) :=
+    private z_DeleteShader_ovr_0 := GetFuncOrNil&(z_DeleteShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteShader(shader: gl_shader) :=
     z_DeleteShader_ovr_0(shader);
     
     // added in gl3.2
     private z_DeleteSync_adr := GetFuncAdr('glDeleteSync');
-    private z_DeleteSync_ovr_0 := GetFuncOrNil&(z_DeleteSync_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSync(sync: GLsync) :=
+    private z_DeleteSync_ovr_0 := GetFuncOrNil&(z_DeleteSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSync(sync: gl_sync) :=
     z_DeleteSync_ovr_0(sync);
     
     // added in gl1.1
-    private static procedure z_DeleteTextures_ovr_0(n: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glDeleteTextures';
-    private static procedure z_DeleteTextures_ovr_0_anh001(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTextures(n: Int32; textures: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTextures(n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_DeleteTextures_ovr_0(n, textures[0]) else
-      z_DeleteTextures_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTextures(n: Int32; var textures: UInt32) :=
-    z_DeleteTextures_ovr_0(n, textures);
-    private static procedure z_DeleteTextures_ovr_2(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTextures';
+      gl_ntv.z_DeleteTextures_ovr_0(n, textures[0]) else
+      gl_ntv.z_DeleteTextures_ovr_0_anh001(n, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTextures(n: Int32; var textures: gl_texture) :=
+    gl_ntv.z_DeleteTextures_ovr_0(n, textures);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTextures(n: Int32; textures: IntPtr) :=
-    z_DeleteTextures_ovr_2(n, textures);
+    gl_ntv.z_DeleteTextures_ovr_2(n, textures);
     
     // added in gl4.0
     private z_DeleteTransformFeedbacks_adr := GetFuncAdr('glDeleteTransformFeedbacks');
-    private z_DeleteTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
+    private z_DeleteTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
     private z_DeleteTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteTransformFeedbacks_ovr_0(n, ids[0]) else
       z_DeleteTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_DeleteTransformFeedbacks_ovr_0(n, ids);
     private z_DeleteTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: IntPtr) :=
@@ -23862,35 +26953,29 @@ type
     
     // added in gl3.0
     private z_DeleteVertexArrays_adr := GetFuncAdr('glDeleteVertexArrays');
-    private z_DeleteVertexArrays_ovr_0 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
+    private z_DeleteVertexArrays_ovr_0 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
     private z_DeleteVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_DeleteVertexArrays_ovr_0(n, arrays[0]) else
       z_DeleteVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_DeleteVertexArrays_ovr_0(n, arrays);
     private z_DeleteVertexArrays_ovr_2 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: IntPtr) :=
     z_DeleteVertexArrays_ovr_2(n, arrays);
     
     // added in gl1.0
-    private static procedure z_DepthFunc_ovr_0(func: DepthFunction);
-    external 'opengl32.dll' name 'glDepthFunc';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthFunc(func: DepthFunction) :=
-    z_DepthFunc_ovr_0(func);
+    gl_ntv.z_DepthFunc_ovr_0(func);
     
     // added in gl1.0
-    private static procedure z_DepthMask_ovr_0(flag: boolean);
-    external 'opengl32.dll' name 'glDepthMask';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthMask(flag: boolean) :=
-    z_DepthMask_ovr_0(flag);
+    gl_ntv.z_DepthMask_ovr_0(flag);
     
     // added in gl1.0
-    private static procedure z_DepthRange_ovr_0(n: real; f: real);
-    external 'opengl32.dll' name 'glDepthRange';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRange(n: real; f: real) :=
-    z_DepthRange_ovr_0(n, f);
+    gl_ntv.z_DepthRange_ovr_0(n, f);
     
     // added in gl4.1
     private z_DepthRangeArrayv_adr := GetFuncAdr('glDepthRangeArrayv');
@@ -23920,15 +27005,13 @@ type
     
     // added in gl2.0
     private z_DetachShader_adr := GetFuncAdr('glDetachShader');
-    private z_DetachShader_ovr_0 := GetFuncOrNil&(z_DetachShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetachShader(&program: ProgramName; shader: ShaderName) :=
+    private z_DetachShader_ovr_0 := GetFuncOrNil&(z_DetachShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetachShader(&program: gl_program; shader: gl_shader) :=
     z_DetachShader_ovr_0(&program, shader);
     
     // added in gl1.0
-    private static procedure z_Disable_ovr_0(cap: EnableCap);
-    external 'opengl32.dll' name 'glDisable';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Disable(cap: EnableCap) :=
-    z_Disable_ovr_0(cap);
+    gl_ntv.z_Disable_ovr_0(cap);
     
     // added in gl3.0
     private z_Disablei_adr := GetFuncAdr('glDisablei');
@@ -23938,8 +27021,8 @@ type
     
     // added in gl4.5
     private z_DisableVertexArrayAttrib_adr := GetFuncAdr('glDisableVertexArrayAttrib');
-    private z_DisableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_DisableVertexArrayAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttrib(vaobj: VertexArrayName; index: UInt32) :=
+    private z_DisableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_DisableVertexArrayAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttrib(vaobj: gl_vertex_array; index: UInt32) :=
     z_DisableVertexArrayAttrib_ovr_0(vaobj, index);
     
     // added in gl2.0
@@ -23961,10 +27044,8 @@ type
     z_DispatchComputeIndirect_ovr_0(indirect);
     
     // added in gl1.1
-    private static procedure z_DrawArrays_ovr_0(mode: PrimitiveType; first: Int32; count: Int32);
-    external 'opengl32.dll' name 'glDrawArrays';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArrays(mode: PrimitiveType; first: Int32; count: Int32) :=
-    z_DrawArrays_ovr_0(mode, first, count);
+    gl_ntv.z_DrawArrays_ovr_0(mode, first, count);
     
     // added in gl4.0
     private z_DrawArraysIndirect_adr := GetFuncAdr('glDrawArraysIndirect');
@@ -23985,10 +27066,8 @@ type
     z_DrawArraysInstancedBaseInstance_ovr_0(mode, first, count, instancecount, baseinstance);
     
     // added in gl1.0
-    private static procedure z_DrawBuffer_ovr_0(buf: DrawBufferMode);
-    external 'opengl32.dll' name 'glDrawBuffer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffer(buf: DrawBufferMode) :=
-    z_DrawBuffer_ovr_0(buf);
+    gl_ntv.z_DrawBuffer_ovr_0(buf);
     
     // added in gl2.0
     private z_DrawBuffers_adr := GetFuncAdr('glDrawBuffers');
@@ -24005,10 +27084,8 @@ type
     z_DrawBuffers_ovr_2(n, bufs);
     
     // added in gl1.1
-    private static procedure z_DrawElements_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr);
-    external 'opengl32.dll' name 'glDrawElements';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElements(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr) :=
-    z_DrawElements_ovr_0(mode, count, &type, indices);
+    gl_ntv.z_DrawElements_ovr_0(mode, count, &type, indices);
     
     // added in gl3.2
     private z_DrawElementsBaseVertex_adr := GetFuncAdr('glDrawElementsBaseVertex');
@@ -24060,33 +27137,31 @@ type
     
     // added in gl4.0
     private z_DrawTransformFeedback_adr := GetFuncAdr('glDrawTransformFeedback');
-    private z_DrawTransformFeedback_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedback_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedback(mode: PrimitiveType; id: TransformFeedbackName) :=
+    private z_DrawTransformFeedback_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedback(mode: PrimitiveType; id: gl_transform_feedback) :=
     z_DrawTransformFeedback_ovr_0(mode, id);
     
     // added in gl4.2
     private z_DrawTransformFeedbackInstanced_adr := GetFuncAdr('glDrawTransformFeedbackInstanced');
-    private z_DrawTransformFeedbackInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackInstanced_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackInstanced(mode: PrimitiveType; id: TransformFeedbackName; instancecount: Int32) :=
+    private z_DrawTransformFeedbackInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackInstanced_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackInstanced(mode: PrimitiveType; id: gl_transform_feedback; instancecount: Int32) :=
     z_DrawTransformFeedbackInstanced_ovr_0(mode, id, instancecount);
     
     // added in gl4.0
     private z_DrawTransformFeedbackStream_adr := GetFuncAdr('glDrawTransformFeedbackStream');
-    private z_DrawTransformFeedbackStream_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStream_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStream(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32) :=
+    private z_DrawTransformFeedbackStream_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStream_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStream(mode: PrimitiveType; id: gl_transform_feedback; stream: UInt32) :=
     z_DrawTransformFeedbackStream_ovr_0(mode, id, stream);
     
     // added in gl4.2
     private z_DrawTransformFeedbackStreamInstanced_adr := GetFuncAdr('glDrawTransformFeedbackStreamInstanced');
-    private z_DrawTransformFeedbackStreamInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStreamInstanced_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStreamInstanced(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32; instancecount: Int32) :=
+    private z_DrawTransformFeedbackStreamInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStreamInstanced_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStreamInstanced(mode: PrimitiveType; id: gl_transform_feedback; stream: UInt32; instancecount: Int32) :=
     z_DrawTransformFeedbackStreamInstanced_ovr_0(mode, id, stream, instancecount);
     
     // added in gl1.0
-    private static procedure z_Enable_ovr_0(cap: EnableCap);
-    external 'opengl32.dll' name 'glEnable';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Enable(cap: EnableCap) :=
-    z_Enable_ovr_0(cap);
+    gl_ntv.z_Enable_ovr_0(cap);
     
     // added in gl3.0
     private z_Enablei_adr := GetFuncAdr('glEnablei');
@@ -24096,8 +27171,8 @@ type
     
     // added in gl4.5
     private z_EnableVertexArrayAttrib_adr := GetFuncAdr('glEnableVertexArrayAttrib');
-    private z_EnableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_EnableVertexArrayAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttrib(vaobj: VertexArrayName; index: UInt32) :=
+    private z_EnableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_EnableVertexArrayAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttrib(vaobj: gl_vertex_array; index: UInt32) :=
     z_EnableVertexArrayAttrib_ovr_0(vaobj, index);
     
     // added in gl2.0
@@ -24132,21 +27207,17 @@ type
     
     // added in gl3.2
     private z_FenceSync_adr := GetFuncAdr('glFenceSync');
-    private z_FenceSync_ovr_0 := GetFuncOrNil&(z_FenceSync_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FenceSync(condition: SyncCondition; flags: DummyFlags): GLsync :=
+    private z_FenceSync_ovr_0 := GetFuncOrNil&(z_FenceSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FenceSync(condition: SyncCondition; flags: DummyFlags): gl_sync :=
     z_FenceSync_ovr_0(condition, flags);
     
     // added in gl1.0
-    private static procedure z_Finish_ovr_0;
-    external 'opengl32.dll' name 'glFinish';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Finish :=
-    z_Finish_ovr_0;
+    gl_ntv.z_Finish_ovr_0;
     
     // added in gl1.0
-    private static procedure z_Flush_ovr_0;
-    external 'opengl32.dll' name 'glFlush';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Flush :=
-    z_Flush_ovr_0;
+    gl_ntv.z_Flush_ovr_0;
     
     // added in gl3.0
     private z_FlushMappedBufferRange_adr := GetFuncAdr('glFlushMappedBufferRange');
@@ -24156,8 +27227,8 @@ type
     
     // added in gl4.5
     private z_FlushMappedNamedBufferRange_adr := GetFuncAdr('glFlushMappedNamedBufferRange');
-    private z_FlushMappedNamedBufferRange_ovr_0 := GetFuncOrNil&(z_FlushMappedNamedBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRange(buffer: BufferName; offset: IntPtr; length: IntPtr) :=
+    private z_FlushMappedNamedBufferRange_ovr_0 := GetFuncOrNil&(z_FlushMappedNamedBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRange(buffer: gl_buffer; offset: IntPtr; length: IntPtr) :=
     z_FlushMappedNamedBufferRange_ovr_0(buffer, offset, length);
     
     // added in gl4.3
@@ -24168,55 +27239,53 @@ type
     
     // added in gl3.0
     private z_FramebufferRenderbuffer_adr := GetFuncAdr('glFramebufferRenderbuffer');
-    private z_FramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_FramebufferRenderbuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbuffer(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_FramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_FramebufferRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbuffer(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_FramebufferRenderbuffer_ovr_0(target, attachment, _renderbuffertarget, renderbuffer);
     
     // added in gl3.2
     private z_FramebufferTexture_adr := GetFuncAdr('glFramebufferTexture');
-    private z_FramebufferTexture_ovr_0 := GetFuncOrNil&(z_FramebufferTexture_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture(target: FramebufferTarget; attachment: FramebufferAttachment; texture: TextureName; level: Int32) :=
+    private z_FramebufferTexture_ovr_0 := GetFuncOrNil&(z_FramebufferTexture_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture_ovr_0(target, attachment, texture, level);
     
     // added in gl3.0
     private z_FramebufferTexture1D_adr := GetFuncAdr('glFramebufferTexture1D');
-    private z_FramebufferTexture1D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture1D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture1D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture1D_ovr_0(target, attachment, textarget, texture, level);
     
     // added in gl3.0
     private z_FramebufferTexture2D_adr := GetFuncAdr('glFramebufferTexture2D');
-    private z_FramebufferTexture2D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture2D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture2D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture2D_ovr_0(target, attachment, textarget, texture, level);
     
     // added in gl3.0
     private z_FramebufferTexture3D_adr := GetFuncAdr('glFramebufferTexture3D');
-    private z_FramebufferTexture3D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture3D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32) :=
+    private z_FramebufferTexture3D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32; zoffset: Int32) :=
     z_FramebufferTexture3D_ovr_0(target, attachment, textarget, texture, level, zoffset);
     
     // added in gl3.0
     private z_FramebufferTextureLayer_adr := GetFuncAdr('glFramebufferTextureLayer');
-    private z_FramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayer(target: FramebufferTarget; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32) :=
+    private z_FramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayer(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_FramebufferTextureLayer_ovr_0(target, attachment, texture, level, layer);
     
     // added in gl1.0
-    private static procedure z_FrontFace_ovr_0(mode: FrontFaceDirection);
-    external 'opengl32.dll' name 'glFrontFace';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FrontFace(mode: FrontFaceDirection) :=
-    z_FrontFace_ovr_0(mode);
+    gl_ntv.z_FrontFace_ovr_0(mode);
     
     // added in gl1.5
     private z_GenBuffers_adr := GetFuncAdr('glGenBuffers');
-    private z_GenBuffers_ovr_0 := GetFuncOrNil&(z_GenBuffers_adr);
+    private z_GenBuffers_ovr_0 := GetFuncOrNil&(z_GenBuffers_adr);
     private z_GenBuffers_ovr_0_anh001 := GetFuncOrNil&(z_GenBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffers(n: Int32; buffers: array of BufferName) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffers(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_GenBuffers_ovr_0(n, buffers[0]) else
       z_GenBuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffers(n: Int32; var buffers: BufferName) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffers(n: Int32; var buffers: gl_buffer) :=
     z_GenBuffers_ovr_0(n, buffers);
     private z_GenBuffers_ovr_2 := GetFuncOrNil&(z_GenBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffers(n: Int32; buffers: IntPtr) :=
@@ -24230,19 +27299,19 @@ type
     
     // added in gl4.5
     private z_GenerateTextureMipmap_adr := GetFuncAdr('glGenerateTextureMipmap');
-    private z_GenerateTextureMipmap_ovr_0 := GetFuncOrNil&(z_GenerateTextureMipmap_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmap(texture: TextureName) :=
+    private z_GenerateTextureMipmap_ovr_0 := GetFuncOrNil&(z_GenerateTextureMipmap_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmap(texture: gl_texture) :=
     z_GenerateTextureMipmap_ovr_0(texture);
     
     // added in gl3.0
     private z_GenFramebuffers_adr := GetFuncAdr('glGenFramebuffers');
-    private z_GenFramebuffers_ovr_0 := GetFuncOrNil&(z_GenFramebuffers_adr);
+    private z_GenFramebuffers_ovr_0 := GetFuncOrNil&(z_GenFramebuffers_adr);
     private z_GenFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_GenFramebuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_GenFramebuffers_ovr_0(n, framebuffers[0]) else
       z_GenFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_GenFramebuffers_ovr_0(n, framebuffers);
     private z_GenFramebuffers_ovr_2 := GetFuncOrNil&(z_GenFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: IntPtr) :=
@@ -24250,13 +27319,13 @@ type
     
     // added in gl4.1
     private z_GenProgramPipelines_adr := GetFuncAdr('glGenProgramPipelines');
-    private z_GenProgramPipelines_ovr_0 := GetFuncOrNil&(z_GenProgramPipelines_adr);
+    private z_GenProgramPipelines_ovr_0 := GetFuncOrNil&(z_GenProgramPipelines_adr);
     private z_GenProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_GenProgramPipelines_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_GenProgramPipelines_ovr_0(n, pipelines[0]) else
       z_GenProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_GenProgramPipelines_ovr_0(n, pipelines);
     private z_GenProgramPipelines_ovr_2 := GetFuncOrNil&(z_GenProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: IntPtr) :=
@@ -24264,13 +27333,13 @@ type
     
     // added in gl1.5
     private z_GenQueries_adr := GetFuncAdr('glGenQueries');
-    private z_GenQueries_ovr_0 := GetFuncOrNil&(z_GenQueries_adr);
+    private z_GenQueries_ovr_0 := GetFuncOrNil&(z_GenQueries_adr);
     private z_GenQueries_ovr_0_anh001 := GetFuncOrNil&(z_GenQueries_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueries(n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueries(n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenQueries_ovr_0(n, ids[0]) else
       z_GenQueries_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueries(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueries(n: Int32; var ids: gl_query) :=
     z_GenQueries_ovr_0(n, ids);
     private z_GenQueries_ovr_2 := GetFuncOrNil&(z_GenQueries_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueries(n: Int32; ids: IntPtr) :=
@@ -24278,13 +27347,13 @@ type
     
     // added in gl3.0
     private z_GenRenderbuffers_adr := GetFuncAdr('glGenRenderbuffers');
-    private z_GenRenderbuffers_ovr_0 := GetFuncOrNil&(z_GenRenderbuffers_adr);
+    private z_GenRenderbuffers_ovr_0 := GetFuncOrNil&(z_GenRenderbuffers_adr);
     private z_GenRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_GenRenderbuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_GenRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_GenRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_GenRenderbuffers_ovr_0(n, renderbuffers);
     private z_GenRenderbuffers_ovr_2 := GetFuncOrNil&(z_GenRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
@@ -24292,43 +27361,37 @@ type
     
     // added in gl3.3
     private z_GenSamplers_adr := GetFuncAdr('glGenSamplers');
-    private z_GenSamplers_ovr_0 := GetFuncOrNil&(z_GenSamplers_adr);
+    private z_GenSamplers_ovr_0 := GetFuncOrNil&(z_GenSamplers_adr);
     private z_GenSamplers_ovr_0_anh001 := GetFuncOrNil&(z_GenSamplers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_GenSamplers_ovr_0(count, samplers[0]) else
       z_GenSamplers_ovr_0_anh001(count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; var samplers: gl_sampler) :=
     z_GenSamplers_ovr_0(count, samplers);
     private z_GenSamplers_ovr_2 := GetFuncOrNil&(z_GenSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: IntPtr) :=
     z_GenSamplers_ovr_2(count, samplers);
     
     // added in gl1.1
-    private static procedure z_GenTextures_ovr_0(n: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glGenTextures';
-    private static procedure z_GenTextures_ovr_0_anh001(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glGenTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTextures(n: Int32; textures: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTextures(n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_GenTextures_ovr_0(n, textures[0]) else
-      z_GenTextures_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTextures(n: Int32; var textures: UInt32) :=
-    z_GenTextures_ovr_0(n, textures);
-    private static procedure z_GenTextures_ovr_2(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glGenTextures';
+      gl_ntv.z_GenTextures_ovr_0(n, textures[0]) else
+      gl_ntv.z_GenTextures_ovr_0_anh001(n, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTextures(n: Int32; var textures: gl_texture) :=
+    gl_ntv.z_GenTextures_ovr_0(n, textures);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTextures(n: Int32; textures: IntPtr) :=
-    z_GenTextures_ovr_2(n, textures);
+    gl_ntv.z_GenTextures_ovr_2(n, textures);
     
     // added in gl4.0
     private z_GenTransformFeedbacks_adr := GetFuncAdr('glGenTransformFeedbacks');
-    private z_GenTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
+    private z_GenTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
     private z_GenTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenTransformFeedbacks_ovr_0(n, ids[0]) else
       z_GenTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_GenTransformFeedbacks_ovr_0(n, ids);
     private z_GenTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: IntPtr) :=
@@ -24336,13 +27399,13 @@ type
     
     // added in gl3.0
     private z_GenVertexArrays_adr := GetFuncAdr('glGenVertexArrays');
-    private z_GenVertexArrays_ovr_0 := GetFuncOrNil&(z_GenVertexArrays_adr);
+    private z_GenVertexArrays_ovr_0 := GetFuncOrNil&(z_GenVertexArrays_adr);
     private z_GenVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_GenVertexArrays_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_GenVertexArrays_ovr_0(n, arrays[0]) else
       z_GenVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_GenVertexArrays_ovr_0(n, arrays);
     private z_GenVertexArrays_ovr_2 := GetFuncOrNil&(z_GenVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: IntPtr) :=
@@ -24350,443 +27413,143 @@ type
     
     // added in gl4.2
     private z_GetActiveAtomicCounterBufferiv_adr := GetFuncAdr('glGetActiveAtomicCounterBufferiv');
-    private z_GetActiveAtomicCounterBufferiv_ovr_0 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
-    private z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: array of Int32) :=
+    private z_GetActiveAtomicCounterBufferiv_ovr_0 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    private z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveAtomicCounterBufferiv_ovr_0(&program, bufferIndex, pname, ¶ms[0]) else
       z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001(&program, bufferIndex, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; var ¶ms: Int32) :=
     z_GetActiveAtomicCounterBufferiv_ovr_0(&program, bufferIndex, pname, ¶ms);
-    private z_GetActiveAtomicCounterBufferiv_ovr_2 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr) :=
+    private z_GetActiveAtomicCounterBufferiv_ovr_2 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr) :=
     z_GetActiveAtomicCounterBufferiv_ovr_2(&program, bufferIndex, pname, ¶ms);
     
     // added in gl2.0
     private z_GetActiveAttrib_adr := GetFuncAdr('glGetActiveAttrib');
-    private z_GetActiveAttrib_ovr_0 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00001100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00000010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00001010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00000110 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_0_anh00001110 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttrib_ovr_0(&program, index, bufSize, length[0], size[0], &type[0], name) else
-          z_GetActiveAttrib_ovr_0_anh00000010(&program, index, bufSize, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttrib_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetActiveAttrib_ovr_0_anh00000110(&program, index, bufSize, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttrib_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetActiveAttrib_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttrib_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetActiveAttrib_ovr_0_anh00001110(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetActiveAttrib_ovr_1_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_1_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_1_anh00001100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttrib_ovr_0(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveAttrib_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttrib_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveAttrib_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetActiveAttrib_ovr_2 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_2_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_2_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_2_anh00001100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttrib_ovr_2(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveAttrib_ovr_2_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttrib_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveAttrib_ovr_2_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetActiveAttrib_ovr_3_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_3_anh00001010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_0(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveAttrib_ovr_0_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveAttrib_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetActiveAttrib_ovr_4_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttrib_ovr_0(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveAttrib_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveAttrib_ovr_5_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttrib_ovr_2(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveAttrib_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveAttrib_ovr_6 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_6_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_6_anh00000010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_6_anh00001010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_6(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveAttrib_ovr_6_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveAttrib_ovr_6_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetActiveAttrib_ovr_7_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttrib_ovr_6(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveAttrib_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveAttrib_ovr_8 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_8_anh00001000 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttrib_ovr_8(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveAttrib_ovr_8_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_0(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveAttrib_ovr_0_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveAttrib_ovr_0_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttrib_ovr_0(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveAttrib_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttrib_ovr_2(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveAttrib_ovr_2_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttrib_ovr_0(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveAttrib_ovr_0_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    private z_GetActiveAttrib_ovr_0 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttrib_ovr_0(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetActiveAttrib_ovr_1 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttrib_ovr_1(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveAttrib_ovr_2 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttrib_ovr_2(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttrib_ovr_6(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveAttrib_ovr_6_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
+    private z_GetActiveAttrib_ovr_3 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttrib_ovr_3(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveAttrib_ovr_4 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    z_GetActiveAttrib_ovr_4(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveAttrib_ovr_5 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttrib_ovr_5(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveAttrib_ovr_6 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttrib_ovr_6(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttrib_ovr_8(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveAttrib_ovr_18 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_18_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_18_anh00000010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_18_anh00000110 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_18(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveAttrib_ovr_18_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttrib_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveAttrib_ovr_18_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetActiveAttrib_ovr_19_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttrib_ovr_18(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveAttrib_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    private z_GetActiveAttrib_ovr_20 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_20_anh00000100 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttrib_ovr_20(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveAttrib_ovr_20_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttrib_ovr_18(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveAttrib_ovr_18_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    z_GetActiveAttrib_ovr_18(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttrib_ovr_20(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveAttrib_ovr_24 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    private z_GetActiveAttrib_ovr_24_anh00000010 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttrib_ovr_24(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveAttrib_ovr_24_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    z_GetActiveAttrib_ovr_24(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveAttrib_ovr_26 := GetFuncOrNil&(z_GetActiveAttrib_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttrib_ovr_26(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveAttrib_ovr_7 := GetFuncOrNil&(z_GetActiveAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttrib(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttrib_ovr_7(&program, index, bufSize, length, size, &type, name);
     
     // added in gl4.0
     private z_GetActiveSubroutineName_adr := GetFuncAdr('glGetActiveSubroutineName');
-    private z_GetActiveSubroutineName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
-    private z_GetActiveSubroutineName_ovr_0_anh0000010 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveSubroutineName_ovr_0(&program, _shadertype, index, bufSize, length[0], name) else
-      z_GetActiveSubroutineName_ovr_0_anh0000010(&program, _shadertype, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetActiveSubroutineName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetActiveSubroutineName_ovr_0(&program, _shadertype, index, bufSize, length, name);
-    private z_GetActiveSubroutineName_ovr_2 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetActiveSubroutineName_ovr_2(&program, _shadertype, index, bufSize, length, name);
+    private z_GetActiveSubroutineName_ovr_1 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetActiveSubroutineName_ovr_1(&program, _shadertype, index, bufSize, length, name);
     
     // added in gl4.0
     private z_GetActiveSubroutineUniformiv_adr := GetFuncAdr('glGetActiveSubroutineUniformiv');
-    private z_GetActiveSubroutineUniformiv_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
-    private z_GetActiveSubroutineUniformiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: array of Int32) :=
+    private z_GetActiveSubroutineUniformiv_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    private z_GetActiveSubroutineUniformiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetActiveSubroutineUniformiv_ovr_0(&program, _shadertype, index, pname, values[0]) else
       z_GetActiveSubroutineUniformiv_ovr_0_anh000001(&program, _shadertype, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; var values: Int32) :=
     z_GetActiveSubroutineUniformiv_ovr_0(&program, _shadertype, index, pname, values);
-    private z_GetActiveSubroutineUniformiv_ovr_2 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr) :=
+    private z_GetActiveSubroutineUniformiv_ovr_2 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr) :=
     z_GetActiveSubroutineUniformiv_ovr_2(&program, _shadertype, index, pname, values);
     
     // added in gl4.0
     private z_GetActiveSubroutineUniformName_adr := GetFuncAdr('glGetActiveSubroutineUniformName');
-    private z_GetActiveSubroutineUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
-    private z_GetActiveSubroutineUniformName_ovr_0_anh0000010 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveSubroutineUniformName_ovr_0(&program, _shadertype, index, bufSize, length[0], name) else
-      z_GetActiveSubroutineUniformName_ovr_0_anh0000010(&program, _shadertype, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetActiveSubroutineUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetActiveSubroutineUniformName_ovr_0(&program, _shadertype, index, bufSize, length, name);
-    private z_GetActiveSubroutineUniformName_ovr_2 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetActiveSubroutineUniformName_ovr_2(&program, _shadertype, index, bufSize, length, name);
+    private z_GetActiveSubroutineUniformName_ovr_1 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetActiveSubroutineUniformName_ovr_1(&program, _shadertype, index, bufSize, length, name);
     
     // added in gl2.0
     private z_GetActiveUniform_adr := GetFuncAdr('glGetActiveUniform');
-    private z_GetActiveUniform_ovr_0 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00001100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00000010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00001010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00000110 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_0_anh00001110 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniform_ovr_0(&program, index, bufSize, length[0], size[0], &type[0], name) else
-          z_GetActiveUniform_ovr_0_anh00000010(&program, index, bufSize, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniform_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetActiveUniform_ovr_0_anh00000110(&program, index, bufSize, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniform_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetActiveUniform_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniform_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetActiveUniform_ovr_0_anh00001110(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetActiveUniform_ovr_1_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_1_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_1_anh00001100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniform_ovr_0(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveUniform_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniform_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveUniform_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetActiveUniform_ovr_2 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_2_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_2_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_2_anh00001100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniform_ovr_2(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveUniform_ovr_2_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniform_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveUniform_ovr_2_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetActiveUniform_ovr_3_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_3_anh00001010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_0(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveUniform_ovr_0_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveUniform_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetActiveUniform_ovr_4_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniform_ovr_0(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveUniform_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveUniform_ovr_5_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniform_ovr_2(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveUniform_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveUniform_ovr_6 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_6_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_6_anh00000010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_6_anh00001010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_6(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveUniform_ovr_6_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveUniform_ovr_6_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetActiveUniform_ovr_7_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniform_ovr_6(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveUniform_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetActiveUniform_ovr_8 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_8_anh00001000 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniform_ovr_8(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveUniform_ovr_8_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_0(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveUniform_ovr_0_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveUniform_ovr_0_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniform_ovr_0(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveUniform_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniform_ovr_2(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveUniform_ovr_2_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniform_ovr_0(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveUniform_ovr_0_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
+    private z_GetActiveUniform_ovr_0 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniform_ovr_0(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetActiveUniform_ovr_1 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniform_ovr_1(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveUniform_ovr_2 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniform_ovr_2(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniform_ovr_6(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveUniform_ovr_6_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
+    private z_GetActiveUniform_ovr_3 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniform_ovr_3(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveUniform_ovr_4 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr) :=
+    z_GetActiveUniform_ovr_4(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveUniform_ovr_5 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniform_ovr_5(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveUniform_ovr_6 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniform_ovr_6(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniform_ovr_8(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveUniform_ovr_18 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_18_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_18_anh00000010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_18_anh00000110 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_18(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveUniform_ovr_18_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniform_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveUniform_ovr_18_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetActiveUniform_ovr_19_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniform_ovr_18(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveUniform_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    private z_GetActiveUniform_ovr_20 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_20_anh00000100 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniform_ovr_20(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveUniform_ovr_20_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniform_ovr_18(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveUniform_ovr_18_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr) :=
-    z_GetActiveUniform_ovr_18(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniform_ovr_20(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveUniform_ovr_24 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    private z_GetActiveUniform_ovr_24_anh00000010 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniform_ovr_24(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveUniform_ovr_24_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr) :=
-    z_GetActiveUniform_ovr_24(&program, index, bufSize, length, size, &type, name);
-    private z_GetActiveUniform_ovr_26 := GetFuncOrNil&(z_GetActiveUniform_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniform_ovr_26(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveUniform_ovr_7 := GetFuncOrNil&(z_GetActiveUniform_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniform(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniform_ovr_7(&program, index, bufSize, length, size, &type, name);
     
     // added in gl3.1
     private z_GetActiveUniformBlockiv_adr := GetFuncAdr('glGetActiveUniformBlockiv');
-    private z_GetActiveUniformBlockiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
-    private z_GetActiveUniformBlockiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformBlockiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    private z_GetActiveUniformBlockiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformBlockiv_ovr_0(&program, uniformBlockIndex, pname, ¶ms[0]) else
       z_GetActiveUniformBlockiv_ovr_0_anh00001(&program, uniformBlockIndex, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; var ¶ms: Int32) :=
     z_GetActiveUniformBlockiv_ovr_0(&program, uniformBlockIndex, pname, ¶ms);
-    private z_GetActiveUniformBlockiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformBlockiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr) :=
     z_GetActiveUniformBlockiv_ovr_2(&program, uniformBlockIndex, pname, ¶ms);
     
     // added in gl3.1
     private z_GetActiveUniformBlockName_adr := GetFuncAdr('glGetActiveUniformBlockName');
-    private z_GetActiveUniformBlockName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
-    private z_GetActiveUniformBlockName_ovr_0_anh000010 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: array of Int32; uniformBlockName: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformBlockName_ovr_0(&program, uniformBlockIndex, bufSize, length[0], uniformBlockName) else
-      z_GetActiveUniformBlockName_ovr_0_anh000010(&program, uniformBlockIndex, bufSize, IntPtr.Zero, uniformBlockName);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; var length: Int32; uniformBlockName: IntPtr) :=
+    private z_GetActiveUniformBlockName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: gl_program; uniformBlockIndex: UInt32; bufSize: Int32; var length: Int32; uniformBlockName: IntPtr) :=
     z_GetActiveUniformBlockName_ovr_0(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
-    private z_GetActiveUniformBlockName_ovr_2 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr) :=
-    z_GetActiveUniformBlockName_ovr_2(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
+    private z_GetActiveUniformBlockName_ovr_1 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: gl_program; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr) :=
+    z_GetActiveUniformBlockName_ovr_1(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
     
     // added in gl3.1
     private z_GetActiveUniformName_adr := GetFuncAdr('glGetActiveUniformName');
-    private z_GetActiveUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformName_adr);
-    private z_GetActiveUniformName_ovr_0_anh000010 := GetFuncOrNil&(z_GetActiveUniformName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: array of Int32; uniformName: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformName_ovr_0(&program, uniformIndex, bufSize, length[0], uniformName) else
-      z_GetActiveUniformName_ovr_0_anh000010(&program, uniformIndex, bufSize, IntPtr.Zero, uniformName);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; var length: Int32; uniformName: IntPtr) :=
+    private z_GetActiveUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: gl_program; uniformIndex: UInt32; bufSize: Int32; var length: Int32; uniformName: IntPtr) :=
     z_GetActiveUniformName_ovr_0(&program, uniformIndex, bufSize, length, uniformName);
-    private z_GetActiveUniformName_ovr_2 := GetFuncOrNil&(z_GetActiveUniformName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr) :=
-    z_GetActiveUniformName_ovr_2(&program, uniformIndex, bufSize, length, uniformName);
+    private z_GetActiveUniformName_ovr_1 := GetFuncOrNil&(z_GetActiveUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: gl_program; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr) :=
+    z_GetActiveUniformName_ovr_1(&program, uniformIndex, bufSize, length, uniformName);
     
     // added in gl3.1
     private z_GetActiveUniformsiv_adr := GetFuncAdr('glGetActiveUniformsiv');
-    private z_GetActiveUniformsiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    private z_GetActiveUniformsiv_ovr_0_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    private z_GetActiveUniformsiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    private z_GetActiveUniformsiv_ovr_0_anh000101 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformsiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000101 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: array of Int32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices[0], pname, ¶ms[0]) else
@@ -24794,86 +27557,66 @@ type
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetActiveUniformsiv_ovr_0_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms[0]) else
         z_GetActiveUniformsiv_ovr_0_anh000101(&program, uniformCount, IntPtr.Zero, pname, IntPtr.Zero);
-    private z_GetActiveUniformsiv_ovr_1_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; var ¶ms: Int32) :=
+    private z_GetActiveUniformsiv_ovr_1_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; var ¶ms: Int32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices[0], pname, ¶ms) else
       z_GetActiveUniformsiv_ovr_0_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms);
-    private z_GetActiveUniformsiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    private z_GetActiveUniformsiv_ovr_2_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformsiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_2_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: IntPtr) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetActiveUniformsiv_ovr_2(&program, uniformCount, uniformIndices[0], pname, ¶ms) else
       z_GetActiveUniformsiv_ovr_2_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices, pname, ¶ms[0]) else
       z_GetActiveUniformsiv_ovr_0_anh000001(&program, uniformCount, uniformIndices, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; var ¶ms: Int32) :=
     z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices, pname, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr) :=
     z_GetActiveUniformsiv_ovr_2(&program, uniformCount, uniformIndices, pname, ¶ms);
-    private z_GetActiveUniformsiv_ovr_6 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    private z_GetActiveUniformsiv_ovr_6_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformsiv_ovr_6 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_6_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformsiv_ovr_6(&program, uniformCount, uniformIndices, pname, ¶ms[0]) else
       z_GetActiveUniformsiv_ovr_6_anh000001(&program, uniformCount, uniformIndices, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32) :=
     z_GetActiveUniformsiv_ovr_6(&program, uniformCount, uniformIndices, pname, ¶ms);
-    private z_GetActiveUniformsiv_ovr_8 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformsiv_ovr_8 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr) :=
     z_GetActiveUniformsiv_ovr_8(&program, uniformCount, uniformIndices, pname, ¶ms);
     
     // added in gl2.0
     private z_GetAttachedShaders_adr := GetFuncAdr('glGetAttachedShaders');
-    private z_GetAttachedShaders_ovr_0 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    private z_GetAttachedShaders_ovr_0_anh00010 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    private z_GetAttachedShaders_ovr_0_anh00001 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    private z_GetAttachedShaders_ovr_0_anh00011 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: array of Int32; shaders: array of UInt32) :=
-    if (count<>nil) and (count.Length<>0) then
-      if (shaders<>nil) and (shaders.Length<>0) then
-        z_GetAttachedShaders_ovr_0(&program, maxCount, count[0], shaders[0]) else
-        z_GetAttachedShaders_ovr_0_anh00001(&program, maxCount, count[0], IntPtr.Zero) else
-      if (shaders<>nil) and (shaders.Length<>0) then
-        z_GetAttachedShaders_ovr_0_anh00010(&program, maxCount, IntPtr.Zero, shaders[0]) else
-        z_GetAttachedShaders_ovr_0_anh00011(&program, maxCount, IntPtr.Zero, IntPtr.Zero);
-    private z_GetAttachedShaders_ovr_1_anh00010 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: array of Int32; var shaders: UInt32) :=
-    if (count<>nil) and (count.Length<>0) then
-      z_GetAttachedShaders_ovr_0(&program, maxCount, count[0], shaders) else
-      z_GetAttachedShaders_ovr_0_anh00010(&program, maxCount, IntPtr.Zero, shaders);
-    private z_GetAttachedShaders_ovr_2 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    private z_GetAttachedShaders_ovr_2_anh00010 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: array of Int32; shaders: IntPtr) :=
-    if (count<>nil) and (count.Length<>0) then
-      z_GetAttachedShaders_ovr_2(&program, maxCount, count[0], shaders) else
-      z_GetAttachedShaders_ovr_2_anh00010(&program, maxCount, IntPtr.Zero, shaders);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; var count: Int32; shaders: array of UInt32) :=
+    private z_GetAttachedShaders_ovr_0 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    private z_GetAttachedShaders_ovr_0_anh00001 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; var count: Int32; shaders: array of gl_shader) :=
     if (shaders<>nil) and (shaders.Length<>0) then
       z_GetAttachedShaders_ovr_0(&program, maxCount, count, shaders[0]) else
       z_GetAttachedShaders_ovr_0_anh00001(&program, maxCount, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; var count: Int32; var shaders: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; var count: Int32; var shaders: gl_shader) :=
     z_GetAttachedShaders_ovr_0(&program, maxCount, count, shaders);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; var count: Int32; shaders: IntPtr) :=
+    private z_GetAttachedShaders_ovr_2 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; var count: Int32; shaders: IntPtr) :=
     z_GetAttachedShaders_ovr_2(&program, maxCount, count, shaders);
-    private z_GetAttachedShaders_ovr_6 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    private z_GetAttachedShaders_ovr_6_anh00001 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: IntPtr; shaders: array of UInt32) :=
+    private z_GetAttachedShaders_ovr_3 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    private z_GetAttachedShaders_ovr_3_anh00001 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; count: IntPtr; shaders: array of gl_shader) :=
     if (shaders<>nil) and (shaders.Length<>0) then
-      z_GetAttachedShaders_ovr_6(&program, maxCount, count, shaders[0]) else
-      z_GetAttachedShaders_ovr_6_anh00001(&program, maxCount, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: IntPtr; var shaders: UInt32) :=
-    z_GetAttachedShaders_ovr_6(&program, maxCount, count, shaders);
-    private z_GetAttachedShaders_ovr_8 := GetFuncOrNil&(z_GetAttachedShaders_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: UInt32; maxCount: Int32; count: IntPtr; shaders: IntPtr) :=
-    z_GetAttachedShaders_ovr_8(&program, maxCount, count, shaders);
+      z_GetAttachedShaders_ovr_3(&program, maxCount, count, shaders[0]) else
+      z_GetAttachedShaders_ovr_3_anh00001(&program, maxCount, count, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; count: IntPtr; var shaders: gl_shader) :=
+    z_GetAttachedShaders_ovr_3(&program, maxCount, count, shaders);
+    private z_GetAttachedShaders_ovr_5 := GetFuncOrNil&(z_GetAttachedShaders_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedShaders(&program: gl_program; maxCount: Int32; count: IntPtr; shaders: IntPtr) :=
+    z_GetAttachedShaders_ovr_5(&program, maxCount, count, shaders);
     
     // added in gl2.0
     private z_GetAttribLocation_adr := GetFuncAdr('glGetAttribLocation');
-    private z_GetAttribLocation_ovr_0 := GetFuncOrNil&(z_GetAttribLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocation(&program: ProgramName; name: string): Int32;
+    private z_GetAttribLocation_ovr_0 := GetFuncOrNil&(z_GetAttribLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocation(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -24883,7 +27626,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocation(&program: ProgramName; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocation(&program: gl_program; name: IntPtr): Int32 :=
     z_GetAttribLocation_ovr_0(&program, name);
     
     // added in gl3.0
@@ -24901,20 +27644,14 @@ type
     z_GetBooleani_v_ovr_2(target, index, data);
     
     // added in gl1.0
-    private static procedure z_GetBooleanv_ovr_0(pname: GetPName; var data: boolean);
-    external 'opengl32.dll' name 'glGetBooleanv';
-    private static procedure z_GetBooleanv_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanv(pname: GetPName; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
-      z_GetBooleanv_ovr_0(pname, data[0]) else
-      z_GetBooleanv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_GetBooleanv_ovr_0(pname, data[0]) else
+      gl_ntv.z_GetBooleanv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanv(pname: GetPName; var data: boolean) :=
-    z_GetBooleanv_ovr_0(pname, data);
-    private static procedure z_GetBooleanv_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanv';
+    gl_ntv.z_GetBooleanv_ovr_0(pname, data);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanv(pname: GetPName; data: IntPtr) :=
-    z_GetBooleanv_ovr_2(pname, data);
+    gl_ntv.z_GetBooleanv_ovr_2(pname, data);
     
     // added in gl3.2
     private z_GetBufferParameteri64v_adr := GetFuncAdr('glGetBufferParameteri64v');
@@ -24947,16 +27684,11 @@ type
     // added in gl1.5
     private z_GetBufferPointerv_adr := GetFuncAdr('glGetBufferPointerv');
     private z_GetBufferPointerv_ovr_0 := GetFuncOrNil&(z_GetBufferPointerv_adr);
-    private z_GetBufferPointerv_ovr_0_anh0001 := GetFuncOrNil&(z_GetBufferPointerv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointerv(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetBufferPointerv_ovr_0(target, pname, ¶ms[0]) else
-      z_GetBufferPointerv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointerv(target: BufferTargetARB; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
     z_GetBufferPointerv_ovr_0(target, pname, ¶ms);
-    private z_GetBufferPointerv_ovr_2 := GetFuncOrNil&(z_GetBufferPointerv_adr);
+    private z_GetBufferPointerv_ovr_1 := GetFuncOrNil&(z_GetBufferPointerv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointerv(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: pointer) :=
-    z_GetBufferPointerv_ovr_2(target, pname, ¶ms);
+    z_GetBufferPointerv_ovr_1(target, pname, ¶ms);
     
     // added in gl1.5
     private z_GetBufferSubData_adr := GetFuncAdr('glGetBufferSubData');
@@ -24972,14 +27704,14 @@ type
     
     // added in gl4.5
     private z_GetCompressedTextureImage_adr := GetFuncAdr('glGetCompressedTextureImage');
-    private z_GetCompressedTextureImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImage(texture: UInt32; level: Int32; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetCompressedTextureImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImage(texture: gl_texture; level: Int32; bufSize: Int32; pixels: IntPtr) :=
     z_GetCompressedTextureImage_ovr_0(texture, level, bufSize, pixels);
     
     // added in gl4.5
     private z_GetCompressedTextureSubImage_adr := GetFuncAdr('glGetCompressedTextureSubImage');
-    private z_GetCompressedTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureSubImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetCompressedTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; bufSize: Int32; pixels: IntPtr) :=
     z_GetCompressedTextureSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, bufSize, pixels);
     
     // added in gl4.3
@@ -24993,74 +27725,60 @@ type
     
     // added in gl4.1
     private z_GetDoublei_v_adr := GetFuncAdr('glGetDoublei_v');
-    private z_GetDoublei_v_ovr_0 := GetFuncOrNil&(z_GetDoublei_v_adr);
-    private z_GetDoublei_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetDoublei_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; data: array of real) :=
+    private z_GetDoublei_v_ovr_0 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    private z_GetDoublei_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; data: array of real) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetDoublei_v_ovr_0(target, index, data[0]) else
       z_GetDoublei_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; var data: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; var data: real) :=
     z_GetDoublei_v_ovr_0(target, index, data);
-    private z_GetDoublei_v_ovr_2 := GetFuncOrNil&(z_GetDoublei_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetDoublei_v_ovr_2 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetDoublei_v_ovr_2(target, index, data);
     
     // added in gl1.0
-    private static procedure z_GetDoublev_ovr_0(pname: GetPName; var data: real);
-    external 'opengl32.dll' name 'glGetDoublev';
-    private static procedure z_GetDoublev_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublev';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublev(pname: GetPName; data: array of real) :=
     if (data<>nil) and (data.Length<>0) then
-      z_GetDoublev_ovr_0(pname, data[0]) else
-      z_GetDoublev_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_GetDoublev_ovr_0(pname, data[0]) else
+      gl_ntv.z_GetDoublev_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublev(pname: GetPName; var data: real) :=
-    z_GetDoublev_ovr_0(pname, data);
-    private static procedure z_GetDoublev_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublev';
+    gl_ntv.z_GetDoublev_ovr_0(pname, data);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublev(pname: GetPName; data: IntPtr) :=
-    z_GetDoublev_ovr_2(pname, data);
+    gl_ntv.z_GetDoublev_ovr_2(pname, data);
     
     // added in gl1.0
-    private static function z_GetError_ovr_0: ErrorCode;
-    external 'opengl32.dll' name 'glGetError';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetError: ErrorCode :=
-    z_GetError_ovr_0;
+    gl_ntv.z_GetError_ovr_0;
     
     // added in gl4.1
     private z_GetFloati_v_adr := GetFuncAdr('glGetFloati_v');
-    private z_GetFloati_v_ovr_0 := GetFuncOrNil&(z_GetFloati_v_adr);
-    private z_GetFloati_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetFloati_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; data: array of single) :=
+    private z_GetFloati_v_ovr_0 := GetFuncOrNil&(z_GetFloati_v_adr);
+    private z_GetFloati_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetFloati_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetFloati_v_ovr_0(target, index, data[0]) else
       z_GetFloati_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; var data: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; var data: single) :=
     z_GetFloati_v_ovr_0(target, index, data);
-    private z_GetFloati_v_ovr_2 := GetFuncOrNil&(z_GetFloati_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetFloati_v_ovr_2 := GetFuncOrNil&(z_GetFloati_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetFloati_v_ovr_2(target, index, data);
     
     // added in gl1.0
-    private static procedure z_GetFloatv_ovr_0(pname: GetPName; var data: single);
-    external 'opengl32.dll' name 'glGetFloatv';
-    private static procedure z_GetFloatv_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloatv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatv(pname: GetPName; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
-      z_GetFloatv_ovr_0(pname, data[0]) else
-      z_GetFloatv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_GetFloatv_ovr_0(pname, data[0]) else
+      gl_ntv.z_GetFloatv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatv(pname: GetPName; var data: single) :=
-    z_GetFloatv_ovr_0(pname, data);
-    private static procedure z_GetFloatv_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloatv';
+    gl_ntv.z_GetFloatv_ovr_0(pname, data);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatv(pname: GetPName; data: IntPtr) :=
-    z_GetFloatv_ovr_2(pname, data);
+    gl_ntv.z_GetFloatv_ovr_2(pname, data);
     
     // added in gl3.3
     private z_GetFragDataIndex_adr := GetFuncAdr('glGetFragDataIndex');
-    private z_GetFragDataIndex_ovr_0 := GetFuncOrNil&(z_GetFragDataIndex_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: ProgramName; name: string): Int32;
+    private z_GetFragDataIndex_ovr_0 := GetFuncOrNil&(z_GetFragDataIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -25070,13 +27788,13 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: ProgramName; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: gl_program; name: IntPtr): Int32 :=
     z_GetFragDataIndex_ovr_0(&program, name);
     
     // added in gl3.0
     private z_GetFragDataLocation_adr := GetFuncAdr('glGetFragDataLocation');
-    private z_GetFragDataLocation_ovr_0 := GetFuncOrNil&(z_GetFragDataLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocation(&program: ProgramName; name: string): Int32;
+    private z_GetFragDataLocation_ovr_0 := GetFuncOrNil&(z_GetFragDataLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocation(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -25086,7 +27804,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocation(&program: ProgramName; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocation(&program: gl_program; name: IntPtr): Int32 :=
     z_GetFragDataLocation_ovr_0(&program, name);
     
     // added in gl3.0
@@ -25125,16 +27843,16 @@ type
     
     // added in gl3.2
     private z_GetInteger64i_v_adr := GetFuncAdr('glGetInteger64i_v');
-    private z_GetInteger64i_v_ovr_0 := GetFuncOrNil&(z_GetInteger64i_v_adr);
-    private z_GetInteger64i_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetInteger64i_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: DummyEnum; index: UInt32; data: array of Int64) :=
+    private z_GetInteger64i_v_ovr_0 := GetFuncOrNil&(z_GetInteger64i_v_adr);
+    private z_GetInteger64i_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetInteger64i_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: GetPName; index: UInt32; data: array of Int64) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetInteger64i_v_ovr_0(target, index, data[0]) else
       z_GetInteger64i_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: DummyEnum; index: UInt32; var data: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: GetPName; index: UInt32; var data: Int64) :=
     z_GetInteger64i_v_ovr_0(target, index, data);
-    private z_GetInteger64i_v_ovr_2 := GetFuncOrNil&(z_GetInteger64i_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetInteger64i_v_ovr_2 := GetFuncOrNil&(z_GetInteger64i_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64i_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetInteger64i_v_ovr_2(target, index, data);
     
     // added in gl3.2
@@ -25153,33 +27871,27 @@ type
     
     // added in gl3.0
     private z_GetIntegeri_v_adr := GetFuncAdr('glGetIntegeri_v');
-    private z_GetIntegeri_v_ovr_0 := GetFuncOrNil&(z_GetIntegeri_v_adr);
-    private z_GetIntegeri_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegeri_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; data: array of Int32) :=
+    private z_GetIntegeri_v_ovr_0 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    private z_GetIntegeri_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetIntegeri_v_ovr_0(target, index, data[0]) else
       z_GetIntegeri_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; var data: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; var data: Int32) :=
     z_GetIntegeri_v_ovr_0(target, index, data);
-    private z_GetIntegeri_v_ovr_2 := GetFuncOrNil&(z_GetIntegeri_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetIntegeri_v_ovr_2 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetIntegeri_v_ovr_2(target, index, data);
     
     // added in gl1.0
-    private static procedure z_GetIntegerv_ovr_0(pname: GetPName; var data: Int32);
-    external 'opengl32.dll' name 'glGetIntegerv';
-    private static procedure z_GetIntegerv_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerv(pname: GetPName; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
-      z_GetIntegerv_ovr_0(pname, data[0]) else
-      z_GetIntegerv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_GetIntegerv_ovr_0(pname, data[0]) else
+      gl_ntv.z_GetIntegerv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerv(pname: GetPName; var data: Int32) :=
-    z_GetIntegerv_ovr_0(pname, data);
-    private static procedure z_GetIntegerv_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerv';
+    gl_ntv.z_GetIntegerv_ovr_0(pname, data);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerv(pname: GetPName; data: IntPtr) :=
-    z_GetIntegerv_ovr_2(pname, data);
+    gl_ntv.z_GetIntegerv_ovr_2(pname, data);
     
     // added in gl4.3
     private z_GetInternalformati64v_adr := GetFuncAdr('glGetInternalformati64v');
@@ -25225,92 +27937,87 @@ type
     
     // added in gl4.5
     private z_GetNamedBufferParameteri64v_adr := GetFuncAdr('glGetNamedBufferParameteri64v');
-    private z_GetNamedBufferParameteri64v_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
-    private z_GetNamedBufferParameteri64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of Int64) :=
+    private z_GetNamedBufferParameteri64v_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    private z_GetNamedBufferParameteri64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameteri64v_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameteri64v_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: Int64) :=
     z_GetNamedBufferParameteri64v_ovr_0(buffer, pname, ¶ms);
-    private z_GetNamedBufferParameteri64v_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameteri64v_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameteri64v_ovr_2(buffer, pname, ¶ms);
     
     // added in gl4.5
     private z_GetNamedBufferParameteriv_adr := GetFuncAdr('glGetNamedBufferParameteriv');
-    private z_GetNamedBufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
-    private z_GetNamedBufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of Int32) :=
+    private z_GetNamedBufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    private z_GetNamedBufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameteriv_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameteriv_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: Int32) :=
     z_GetNamedBufferParameteriv_ovr_0(buffer, pname, ¶ms);
-    private z_GetNamedBufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameteriv_ovr_2(buffer, pname, ¶ms);
     
     // added in gl4.5
     private z_GetNamedBufferPointerv_adr := GetFuncAdr('glGetNamedBufferPointerv');
-    private z_GetNamedBufferPointerv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
-    private z_GetNamedBufferPointerv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetNamedBufferPointerv_ovr_0(buffer, pname, ¶ms[0]) else
-      z_GetNamedBufferPointerv_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
+    private z_GetNamedBufferPointerv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: gl_buffer; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
     z_GetNamedBufferPointerv_ovr_0(buffer, pname, ¶ms);
-    private z_GetNamedBufferPointerv_ovr_2 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: pointer) :=
-    z_GetNamedBufferPointerv_ovr_2(buffer, pname, ¶ms);
+    private z_GetNamedBufferPointerv_ovr_1 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: gl_buffer; pname: BufferPointerNameARB; ¶ms: pointer) :=
+    z_GetNamedBufferPointerv_ovr_1(buffer, pname, ¶ms);
     
     // added in gl4.5
     private z_GetNamedBufferSubData_adr := GetFuncAdr('glGetNamedBufferSubData');
-    private z_GetNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_GetNamedBufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubData(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_GetNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_GetNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubData(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_GetNamedBufferSubData_ovr_0(buffer, offset, size, data);
     
     // added in gl4.5
     private z_GetNamedFramebufferAttachmentParameteriv_adr := GetFuncAdr('glGetNamedFramebufferAttachmentParameteriv');
-    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
-    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedFramebufferAttachmentParameteriv_ovr_0(framebuffer, attachment, pname, ¶ms[0]) else
       z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001(framebuffer, attachment, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetNamedFramebufferAttachmentParameteriv_ovr_0(framebuffer, attachment, pname, ¶ms);
-    private z_GetNamedFramebufferAttachmentParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetNamedFramebufferAttachmentParameteriv_ovr_2(framebuffer, attachment, pname, ¶ms);
     
     // added in gl4.5
     private z_GetNamedFramebufferParameteriv_adr := GetFuncAdr('glGetNamedFramebufferParameteriv');
-    private z_GetNamedFramebufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
-    private z_GetNamedFramebufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; param: array of Int32) :=
+    private z_GetNamedFramebufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    private z_GetNamedFramebufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetNamedFramebufferParameteriv_ovr_0(framebuffer, pname, param[0]) else
       z_GetNamedFramebufferParameteriv_ovr_0_anh0001(framebuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; var param: Int32) :=
     z_GetNamedFramebufferParameteriv_ovr_0(framebuffer, pname, param);
-    private z_GetNamedFramebufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; param: IntPtr) :=
+    private z_GetNamedFramebufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; param: IntPtr) :=
     z_GetNamedFramebufferParameteriv_ovr_2(framebuffer, pname, param);
     
     // added in gl4.5
     private z_GetNamedRenderbufferParameteriv_adr := GetFuncAdr('glGetNamedRenderbufferParameteriv');
-    private z_GetNamedRenderbufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
-    private z_GetNamedRenderbufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedRenderbufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    private z_GetNamedRenderbufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedRenderbufferParameteriv_ovr_0(renderbuffer, pname, ¶ms[0]) else
       z_GetNamedRenderbufferParameteriv_ovr_0_anh0001(renderbuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; var ¶ms: Int32) :=
     z_GetNamedRenderbufferParameteriv_ovr_0(renderbuffer, pname, ¶ms);
-    private z_GetNamedRenderbufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedRenderbufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
     z_GetNamedRenderbufferParameteriv_ovr_2(renderbuffer, pname, ¶ms);
     
     // added in gl4.5
@@ -25333,8 +28040,8 @@ type
     
     // added in gl4.5
     private z_GetnHistogram_adr := GetFuncAdr('glGetnHistogram');
-    private z_GetnHistogram_ovr_0 := GetFuncOrNil&(z_GetnHistogram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnHistogram(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
+    private z_GetnHistogram_ovr_0 := GetFuncOrNil&(z_GetnHistogram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnHistogram(target: HistogramTarget; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
     z_GetnHistogram_ovr_0(target, reset, format, &type, bufSize, values);
     
     // added in gl4.5
@@ -25381,8 +28088,8 @@ type
     
     // added in gl4.5
     private z_GetnMinmax_adr := GetFuncAdr('glGetnMinmax');
-    private z_GetnMinmax_ovr_0 := GetFuncOrNil&(z_GetnMinmax_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMinmax(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
+    private z_GetnMinmax_ovr_0 := GetFuncOrNil&(z_GetnMinmax_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMinmax(target: MinmaxTarget; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
     z_GetnMinmax_ovr_0(target, reset, format, &type, bufSize, values);
     
     // added in gl4.5
@@ -25443,8 +28150,8 @@ type
     
     // added in gl4.5
     private z_GetnSeparableFilter_adr := GetFuncAdr('glGetnSeparableFilter');
-    private z_GetnSeparableFilter_ovr_0 := GetFuncOrNil&(z_GetnSeparableFilter_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnSeparableFilter(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; rowBufSize: Int32; row: IntPtr; columnBufSize: Int32; column: IntPtr; span: IntPtr) :=
+    private z_GetnSeparableFilter_ovr_0 := GetFuncOrNil&(z_GetnSeparableFilter_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnSeparableFilter(target: SeparableTarget; format: PixelFormat; &type: PixelType; rowBufSize: Int32; row: IntPtr; columnBufSize: Int32; column: IntPtr; span: IntPtr) :=
     z_GetnSeparableFilter_ovr_0(target, format, &type, rowBufSize, row, columnBufSize, column, span);
     
     // added in gl4.5
@@ -25455,216 +28162,166 @@ type
     
     // added in gl4.5
     private z_GetnUniformdv_adr := GetFuncAdr('glGetnUniformdv');
-    private z_GetnUniformdv_ovr_0 := GetFuncOrNil&(z_GetnUniformdv_adr);
-    private z_GetnUniformdv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformdv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of real) :=
+    private z_GetnUniformdv_ovr_0 := GetFuncOrNil&(z_GetnUniformdv_adr);
+    private z_GetnUniformdv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformdv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformdv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: real) :=
     z_GetnUniformdv_ovr_0(&program, location, bufSize, ¶ms);
-    private z_GetnUniformdv_ovr_2 := GetFuncOrNil&(z_GetnUniformdv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformdv_ovr_2 := GetFuncOrNil&(z_GetnUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformdv_ovr_2(&program, location, bufSize, ¶ms);
     
     // added in gl4.5
     private z_GetnUniformfv_adr := GetFuncAdr('glGetnUniformfv');
-    private z_GetnUniformfv_ovr_0 := GetFuncOrNil&(z_GetnUniformfv_adr);
-    private z_GetnUniformfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of single) :=
+    private z_GetnUniformfv_ovr_0 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    private z_GetnUniformfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformfv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformfv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: single) :=
     z_GetnUniformfv_ovr_0(&program, location, bufSize, ¶ms);
-    private z_GetnUniformfv_ovr_2 := GetFuncOrNil&(z_GetnUniformfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformfv_ovr_2 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformfv_ovr_2(&program, location, bufSize, ¶ms);
     
     // added in gl4.5
     private z_GetnUniformiv_adr := GetFuncAdr('glGetnUniformiv');
-    private z_GetnUniformiv_ovr_0 := GetFuncOrNil&(z_GetnUniformiv_adr);
-    private z_GetnUniformiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
+    private z_GetnUniformiv_ovr_0 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    private z_GetnUniformiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformiv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformiv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
     z_GetnUniformiv_ovr_0(&program, location, bufSize, ¶ms);
-    private z_GetnUniformiv_ovr_2 := GetFuncOrNil&(z_GetnUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformiv_ovr_2 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformiv_ovr_2(&program, location, bufSize, ¶ms);
     
     // added in gl4.5
     private z_GetnUniformuiv_adr := GetFuncAdr('glGetnUniformuiv');
-    private z_GetnUniformuiv_ovr_0 := GetFuncOrNil&(z_GetnUniformuiv_adr);
-    private z_GetnUniformuiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
+    private z_GetnUniformuiv_ovr_0 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    private z_GetnUniformuiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformuiv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformuiv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
     z_GetnUniformuiv_ovr_0(&program, location, bufSize, ¶ms);
-    private z_GetnUniformuiv_ovr_2 := GetFuncOrNil&(z_GetnUniformuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformuiv_ovr_2 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformuiv_ovr_2(&program, location, bufSize, ¶ms);
     
     // added in gl4.3
     private z_GetObjectLabel_adr := GetFuncAdr('glGetObjectLabel');
     private z_GetObjectLabel_ovr_0 := GetFuncOrNil&(z_GetObjectLabel_adr);
-    private z_GetObjectLabel_ovr_0_anh000010 := GetFuncOrNil&(z_GetObjectLabel_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: array of Int32; &label: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetObjectLabel_ovr_0(identifier, name, bufSize, length[0], &label) else
-      z_GetObjectLabel_ovr_0_anh000010(identifier, name, bufSize, IntPtr.Zero, &label);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; var length: Int32; &label: IntPtr) :=
     z_GetObjectLabel_ovr_0(identifier, name, bufSize, length, &label);
-    private z_GetObjectLabel_ovr_2 := GetFuncOrNil&(z_GetObjectLabel_adr);
+    private z_GetObjectLabel_ovr_1 := GetFuncOrNil&(z_GetObjectLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr) :=
-    z_GetObjectLabel_ovr_2(identifier, name, bufSize, length, &label);
+    z_GetObjectLabel_ovr_1(identifier, name, bufSize, length, &label);
     
     // added in gl4.3
     private z_GetObjectPtrLabel_adr := GetFuncAdr('glGetObjectPtrLabel');
     private z_GetObjectPtrLabel_ovr_0 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
-    private z_GetObjectPtrLabel_ovr_0_anh00010 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; length: array of Int32; &label: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetObjectPtrLabel_ovr_0(ptr, bufSize, length[0], &label) else
-      z_GetObjectPtrLabel_ovr_0_anh00010(ptr, bufSize, IntPtr.Zero, &label);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; var length: Int32; &label: IntPtr) :=
     z_GetObjectPtrLabel_ovr_0(ptr, bufSize, length, &label);
-    private z_GetObjectPtrLabel_ovr_2 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
+    private z_GetObjectPtrLabel_ovr_1 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; length: IntPtr; &label: IntPtr) :=
-    z_GetObjectPtrLabel_ovr_2(ptr, bufSize, length, &label);
+    z_GetObjectPtrLabel_ovr_1(ptr, bufSize, length, &label);
     
     // added in gl4.3
     private z_GetPointerv_adr := GetFuncAdr('glGetPointerv');
     private z_GetPointerv_ovr_0 := GetFuncOrNil&(z_GetPointerv_adr);
-    private z_GetPointerv_ovr_0_anh001 := GetFuncOrNil&(z_GetPointerv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetPointerv_ovr_0(pname, ¶ms[0]) else
-      z_GetPointerv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; var ¶ms: IntPtr) :=
     z_GetPointerv_ovr_0(pname, ¶ms);
-    private z_GetPointerv_ovr_2 := GetFuncOrNil&(z_GetPointerv_adr);
+    private z_GetPointerv_ovr_1 := GetFuncOrNil&(z_GetPointerv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: pointer) :=
-    z_GetPointerv_ovr_2(pname, ¶ms);
+    z_GetPointerv_ovr_1(pname, ¶ms);
     
     // added in gl4.1
     private z_GetProgramBinary_adr := GetFuncAdr('glGetProgramBinary');
-    private z_GetProgramBinary_ovr_0 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    private z_GetProgramBinary_ovr_0_anh000100 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    private z_GetProgramBinary_ovr_0_anh000010 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    private z_GetProgramBinary_ovr_0_anh000110 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-        z_GetProgramBinary_ovr_0(&program, bufSize, length[0], binaryFormat[0], binary) else
-        z_GetProgramBinary_ovr_0_anh000010(&program, bufSize, length[0], IntPtr.Zero, binary) else
-      if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-        z_GetProgramBinary_ovr_0_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat[0], binary) else
-        z_GetProgramBinary_ovr_0_anh000110(&program, bufSize, IntPtr.Zero, IntPtr.Zero, binary);
-    private z_GetProgramBinary_ovr_1_anh000100 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramBinary_ovr_0(&program, bufSize, length[0], binaryFormat, binary) else
-      z_GetProgramBinary_ovr_0_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat, binary);
-    private z_GetProgramBinary_ovr_2 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    private z_GetProgramBinary_ovr_2_anh000100 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; binaryFormat: IntPtr; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramBinary_ovr_2(&program, bufSize, length[0], binaryFormat, binary) else
-      z_GetProgramBinary_ovr_2_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-      z_GetProgramBinary_ovr_0(&program, bufSize, length, binaryFormat[0], binary) else
-      z_GetProgramBinary_ovr_0_anh000010(&program, bufSize, length, IntPtr.Zero, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
+    private z_GetProgramBinary_ovr_0 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; var length: Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
     z_GetProgramBinary_ovr_0(&program, bufSize, length, binaryFormat, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr) :=
+    private z_GetProgramBinary_ovr_1 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr) :=
+    z_GetProgramBinary_ovr_1(&program, bufSize, length, binaryFormat, binary);
+    private z_GetProgramBinary_ovr_2 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr) :=
     z_GetProgramBinary_ovr_2(&program, bufSize, length, binaryFormat, binary);
-    private z_GetProgramBinary_ovr_6 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    private z_GetProgramBinary_ovr_6_anh000010 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-      z_GetProgramBinary_ovr_6(&program, bufSize, length, binaryFormat[0], binary) else
-      z_GetProgramBinary_ovr_6_anh000010(&program, bufSize, length, IntPtr.Zero, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr) :=
-    z_GetProgramBinary_ovr_6(&program, bufSize, length, binaryFormat, binary);
-    private z_GetProgramBinary_ovr_8 := GetFuncOrNil&(z_GetProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr) :=
-    z_GetProgramBinary_ovr_8(&program, bufSize, length, binaryFormat, binary);
+    private z_GetProgramBinary_ovr_3 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr) :=
+    z_GetProgramBinary_ovr_3(&program, bufSize, length, binaryFormat, binary);
     
     // added in gl2.0
     private z_GetProgramInfoLog_adr := GetFuncAdr('glGetProgramInfoLog');
-    private z_GetProgramInfoLog_ovr_0 := GetFuncOrNil&(z_GetProgramInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInfoLog(&program: ProgramName; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
+    private z_GetProgramInfoLog_ovr_0 := GetFuncOrNil&(z_GetProgramInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInfoLog(&program: gl_program; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
     z_GetProgramInfoLog_ovr_0(&program, bufSize, length, infoLog);
-    private z_GetProgramInfoLog_ovr_1 := GetFuncOrNil&(z_GetProgramInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInfoLog(&program: ProgramName; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
+    private z_GetProgramInfoLog_ovr_1 := GetFuncOrNil&(z_GetProgramInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInfoLog(&program: gl_program; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
     z_GetProgramInfoLog_ovr_1(&program, bufSize, length, infoLog);
     
     // added in gl4.3
     private z_GetProgramInterfaceiv_adr := GetFuncAdr('glGetProgramInterfaceiv');
-    private z_GetProgramInterfaceiv_ovr_0 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
-    private z_GetProgramInterfaceiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: array of Int32) :=
+    private z_GetProgramInterfaceiv_ovr_0 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    private z_GetProgramInterfaceiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramInterfaceiv_ovr_0(&program, _programInterface, pname, ¶ms[0]) else
       z_GetProgramInterfaceiv_ovr_0_anh00001(&program, _programInterface, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; var ¶ms: Int32) :=
     z_GetProgramInterfaceiv_ovr_0(&program, _programInterface, pname, ¶ms);
-    private z_GetProgramInterfaceiv_ovr_2 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr) :=
+    private z_GetProgramInterfaceiv_ovr_2 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr) :=
     z_GetProgramInterfaceiv_ovr_2(&program, _programInterface, pname, ¶ms);
     
     // added in gl2.0
     private z_GetProgramiv_adr := GetFuncAdr('glGetProgramiv');
-    private z_GetProgramiv_ovr_0 := GetFuncOrNil&(z_GetProgramiv_adr);
-    private z_GetProgramiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: ProgramName; pname: ProgramPropertyARB; ¶ms: array of Int32) :=
+    private z_GetProgramiv_ovr_0 := GetFuncOrNil&(z_GetProgramiv_adr);
+    private z_GetProgramiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: gl_program; pname: ProgramPropertyARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramiv_ovr_0(&program, pname, ¶ms[0]) else
       z_GetProgramiv_ovr_0_anh0001(&program, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: ProgramName; pname: ProgramPropertyARB; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: gl_program; pname: ProgramPropertyARB; var ¶ms: Int32) :=
     z_GetProgramiv_ovr_0(&program, pname, ¶ms);
-    private z_GetProgramiv_ovr_2 := GetFuncOrNil&(z_GetProgramiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: ProgramName; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
+    private z_GetProgramiv_ovr_2 := GetFuncOrNil&(z_GetProgramiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramiv(&program: gl_program; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
     z_GetProgramiv_ovr_2(&program, pname, ¶ms);
     
     // added in gl4.1
     private z_GetProgramPipelineInfoLog_adr := GetFuncAdr('glGetProgramPipelineInfoLog');
-    private z_GetProgramPipelineInfoLog_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
-    private z_GetProgramPipelineInfoLog_ovr_0_anh00010 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; length: array of Int32; infoLog: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramPipelineInfoLog_ovr_0(pipeline, bufSize, length[0], infoLog) else
-      z_GetProgramPipelineInfoLog_ovr_0_anh00010(pipeline, bufSize, IntPtr.Zero, infoLog);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
+    private z_GetProgramPipelineInfoLog_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: gl_program_pipeline; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
     z_GetProgramPipelineInfoLog_ovr_0(pipeline, bufSize, length, infoLog);
-    private z_GetProgramPipelineInfoLog_ovr_2 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
-    z_GetProgramPipelineInfoLog_ovr_2(pipeline, bufSize, length, infoLog);
+    private z_GetProgramPipelineInfoLog_ovr_1 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: gl_program_pipeline; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
+    z_GetProgramPipelineInfoLog_ovr_1(pipeline, bufSize, length, infoLog);
     
     // added in gl4.1
     private z_GetProgramPipelineiv_adr := GetFuncAdr('glGetProgramPipelineiv');
-    private z_GetProgramPipelineiv_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
-    private z_GetProgramPipelineiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; ¶ms: array of Int32) :=
+    private z_GetProgramPipelineiv_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    private z_GetProgramPipelineiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramPipelineiv_ovr_0(pipeline, pname, ¶ms[0]) else
       z_GetProgramPipelineiv_ovr_0_anh0001(pipeline, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; var ¶ms: Int32) :=
     z_GetProgramPipelineiv_ovr_0(pipeline, pname, ¶ms);
-    private z_GetProgramPipelineiv_ovr_2 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; ¶ms: IntPtr) :=
+    private z_GetProgramPipelineiv_ovr_2 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; ¶ms: IntPtr) :=
     z_GetProgramPipelineiv_ovr_2(pipeline, pname, ¶ms);
     
     // added in gl4.3
     private z_GetProgramResourceIndex_adr := GetFuncAdr('glGetProgramResourceIndex');
-    private z_GetProgramResourceIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceIndex_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: ProgramName; _programInterface: ProgramInterface; name: string): UInt32;
+    private z_GetProgramResourceIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: gl_program; _programInterface: ProgramInterface; name: string): UInt32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -25674,61 +28331,16 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): UInt32 :=
     z_GetProgramResourceIndex_ovr_0(&program, _programInterface, name);
     
     // added in gl4.3
     private z_GetProgramResourceiv_adr := GetFuncAdr('glGetProgramResourceiv');
-    private z_GetProgramResourceiv_ovr_0 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000001010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000000011 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_0_anh000001011 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props[0], count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000000011(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, IntPtr.Zero) else
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000001011(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, IntPtr.Zero);
-    private z_GetProgramResourceiv_ovr_1_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_1_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_1_anh000001010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private z_GetProgramResourceiv_ovr_2 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_2_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_2_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_2_anh000001010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_2_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_2_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private z_GetProgramResourceiv_ovr_3_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_3_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+    private z_GetProgramResourceiv_ovr_0 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
@@ -25736,118 +28348,83 @@ type
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
         z_GetProgramResourceiv_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private z_GetProgramResourceiv_ovr_4_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    private z_GetProgramResourceiv_ovr_1_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_5_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    private z_GetProgramResourceiv_ovr_2 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_2_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourceiv_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_6 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_6_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_6_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_6_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+    private z_GetProgramResourceiv_ovr_3 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_6_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
+        z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
+        z_GetProgramResourceiv_ovr_3_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_6_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private z_GetProgramResourceiv_ovr_7_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+        z_GetProgramResourceiv_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
+        z_GetProgramResourceiv_ovr_3_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
+    private z_GetProgramResourceiv_ovr_4_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourceiv_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_8 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_8_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+      z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourceiv_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_5 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_5_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourceiv_ovr_8(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourceiv_ovr_8_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_0_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_2_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_5(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourceiv_ovr_5_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
       z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
     z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_6_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_8(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_18 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_18_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_18_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_18_anh000000011 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_18_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    private z_GetProgramResourceiv_ovr_19_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    private z_GetProgramResourceiv_ovr_20 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_20_anh000000010 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_20(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_20_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_3_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_5(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_12 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_12_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_20(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_24 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    private z_GetProgramResourceiv_ovr_24_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_12_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_14 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_14(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_15 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_15_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_24_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private z_GetProgramResourceiv_ovr_26 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_26(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+      z_GetProgramResourceiv_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_15_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_17 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_17(&program, _programInterface, index, propCount, props, count, length, ¶ms);
     
     // added in gl4.3
     private z_GetProgramResourceLocation_adr := GetFuncAdr('glGetProgramResourceLocation');
-    private z_GetProgramResourceLocation_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: ProgramName; _programInterface: ProgramInterface; name: string): Int32;
+    private z_GetProgramResourceLocation_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: gl_program; _programInterface: ProgramInterface; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -25857,13 +28434,13 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
     z_GetProgramResourceLocation_ovr_0(&program, _programInterface, name);
     
     // added in gl4.3
     private z_GetProgramResourceLocationIndex_adr := GetFuncAdr('glGetProgramResourceLocationIndex');
-    private z_GetProgramResourceLocationIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocationIndex_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: ProgramName; _programInterface: ProgramInterface; name: string): Int32;
+    private z_GetProgramResourceLocationIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocationIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: gl_program; _programInterface: ProgramInterface; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -25873,59 +28450,49 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
     z_GetProgramResourceLocationIndex_ovr_0(&program, _programInterface, name);
     
     // added in gl4.3
     private z_GetProgramResourceName_adr := GetFuncAdr('glGetProgramResourceName');
-    private z_GetProgramResourceName_ovr_0 := GetFuncOrNil&(z_GetProgramResourceName_adr);
-    private z_GetProgramResourceName_ovr_0_anh0000010 := GetFuncOrNil&(z_GetProgramResourceName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceName_ovr_0(&program, _programInterface, index, bufSize, length[0], name) else
-      z_GetProgramResourceName_ovr_0_anh0000010(&program, _programInterface, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetProgramResourceName_ovr_0 := GetFuncOrNil&(z_GetProgramResourceName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetProgramResourceName_ovr_0(&program, _programInterface, index, bufSize, length, name);
-    private z_GetProgramResourceName_ovr_2 := GetFuncOrNil&(z_GetProgramResourceName_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetProgramResourceName_ovr_2(&program, _programInterface, index, bufSize, length, name);
+    private z_GetProgramResourceName_ovr_1 := GetFuncOrNil&(z_GetProgramResourceName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetProgramResourceName_ovr_1(&program, _programInterface, index, bufSize, length, name);
     
     // added in gl4.0
     private z_GetProgramStageiv_adr := GetFuncAdr('glGetProgramStageiv');
-    private z_GetProgramStageiv_ovr_0 := GetFuncOrNil&(z_GetProgramStageiv_adr);
-    private z_GetProgramStageiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramStageiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: array of Int32) :=
-    if (values<>nil) and (values.Length<>0) then
-      z_GetProgramStageiv_ovr_0(&program, _shadertype, pname, values[0]) else
-      z_GetProgramStageiv_ovr_0_anh00001(&program, _shadertype, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; var values: Int32) :=
+    private z_GetProgramStageiv_ovr_0 := GetFuncOrNil&(z_GetProgramStageiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: gl_program; _shadertype: ShaderType; pname: ProgramStagePName; var values: Int32) :=
     z_GetProgramStageiv_ovr_0(&program, _shadertype, pname, values);
-    private z_GetProgramStageiv_ovr_2 := GetFuncOrNil&(z_GetProgramStageiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr) :=
-    z_GetProgramStageiv_ovr_2(&program, _shadertype, pname, values);
+    private z_GetProgramStageiv_ovr_1 := GetFuncOrNil&(z_GetProgramStageiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: gl_program; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr) :=
+    z_GetProgramStageiv_ovr_1(&program, _shadertype, pname, values);
     
     // added in gl4.5
     private z_GetQueryBufferObjecti64v_adr := GetFuncAdr('glGetQueryBufferObjecti64v');
-    private z_GetQueryBufferObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjecti64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjecti64v(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjecti64v(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjecti64v_ovr_0(id, buffer, pname, offset);
     
     // added in gl4.5
     private z_GetQueryBufferObjectiv_adr := GetFuncAdr('glGetQueryBufferObjectiv');
-    private z_GetQueryBufferObjectiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectiv(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectiv(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectiv_ovr_0(id, buffer, pname, offset);
     
     // added in gl4.5
     private z_GetQueryBufferObjectui64v_adr := GetFuncAdr('glGetQueryBufferObjectui64v');
-    private z_GetQueryBufferObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectui64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectui64v(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectui64v(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectui64v_ovr_0(id, buffer, pname, offset);
     
     // added in gl4.5
     private z_GetQueryBufferObjectuiv_adr := GetFuncAdr('glGetQueryBufferObjectuiv');
-    private z_GetQueryBufferObjectuiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectuiv(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectuiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectuiv(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectuiv_ovr_0(id, buffer, pname, offset);
     
     // added in gl4.0
@@ -25958,58 +28525,58 @@ type
     
     // added in gl3.3
     private z_GetQueryObjecti64v_adr := GetFuncAdr('glGetQueryObjecti64v');
-    private z_GetQueryObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
-    private z_GetQueryObjecti64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
+    private z_GetQueryObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    private z_GetQueryObjecti64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjecti64v_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjecti64v_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; var ¶ms: Int64) :=
     z_GetQueryObjecti64v_ovr_0(id, pname, ¶ms);
-    private z_GetQueryObjecti64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjecti64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjecti64v_ovr_2(id, pname, ¶ms);
     
     // added in gl1.5
     private z_GetQueryObjectiv_adr := GetFuncAdr('glGetQueryObjectiv');
-    private z_GetQueryObjectiv_ovr_0 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
-    private z_GetQueryObjectiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of Int32) :=
+    private z_GetQueryObjectiv_ovr_0 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
+    private z_GetQueryObjectiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectiv_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectiv_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: gl_query; pname: QueryObjectParameterName; var ¶ms: Int32) :=
     z_GetQueryObjectiv_ovr_0(id, pname, ¶ms);
-    private z_GetQueryObjectiv_ovr_2 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectiv_ovr_2 := GetFuncOrNil&(z_GetQueryObjectiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectiv(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectiv_ovr_2(id, pname, ¶ms);
     
     // added in gl3.3
     private z_GetQueryObjectui64v_adr := GetFuncAdr('glGetQueryObjectui64v');
-    private z_GetQueryObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
-    private z_GetQueryObjectui64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
+    private z_GetQueryObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    private z_GetQueryObjectui64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectui64v_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectui64v_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
     z_GetQueryObjectui64v_ovr_0(id, pname, ¶ms);
-    private z_GetQueryObjectui64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectui64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectui64v_ovr_2(id, pname, ¶ms);
     
     // added in gl1.5
     private z_GetQueryObjectuiv_adr := GetFuncAdr('glGetQueryObjectuiv');
-    private z_GetQueryObjectuiv_ovr_0 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
-    private z_GetQueryObjectuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of UInt32) :=
+    private z_GetQueryObjectuiv_ovr_0 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
+    private z_GetQueryObjectuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectuiv_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectuiv_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: gl_query; pname: QueryObjectParameterName; var ¶ms: UInt32) :=
     z_GetQueryObjectuiv_ovr_0(id, pname, ¶ms);
-    private z_GetQueryObjectuiv_ovr_2 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectuiv_ovr_2 := GetFuncOrNil&(z_GetQueryObjectuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuiv(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectuiv_ovr_2(id, pname, ¶ms);
     
     // added in gl3.0
@@ -26028,149 +28595,122 @@ type
     
     // added in gl3.3
     private z_GetSamplerParameterfv_adr := GetFuncAdr('glGetSamplerParameterfv');
-    private z_GetSamplerParameterfv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
-    private z_GetSamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: SamplerParameterF; ¶ms: array of single) :=
+    private z_GetSamplerParameterfv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    private z_GetSamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: SamplerParameterF; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterfv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterfv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: SamplerParameterF; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: SamplerParameterF; var ¶ms: single) :=
     z_GetSamplerParameterfv_ovr_0(sampler, pname, ¶ms);
-    private z_GetSamplerParameterfv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: SamplerParameterF; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterfv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: SamplerParameterF; ¶ms: IntPtr) :=
     z_GetSamplerParameterfv_ovr_2(sampler, pname, ¶ms);
     
     // added in gl3.3
     private z_GetSamplerParameterIiv_adr := GetFuncAdr('glGetSamplerParameterIiv');
-    private z_GetSamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
-    private z_GetSamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: SamplerParameterI; ¶ms: array of Int32) :=
+    private z_GetSamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    private z_GetSamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterIiv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterIiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: SamplerParameterI; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: SamplerParameterI; var ¶ms: Int32) :=
     z_GetSamplerParameterIiv_ovr_0(sampler, pname, ¶ms);
-    private z_GetSamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameterIiv_ovr_2(sampler, pname, ¶ms);
     
     // added in gl3.3
     private z_GetSamplerParameterIuiv_adr := GetFuncAdr('glGetSamplerParameterIuiv');
-    private z_GetSamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
-    private z_GetSamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: SamplerParameterI; ¶ms: array of UInt32) :=
+    private z_GetSamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    private z_GetSamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterIuiv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterIuiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: SamplerParameterI; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: SamplerParameterI; var ¶ms: UInt32) :=
     z_GetSamplerParameterIuiv_ovr_0(sampler, pname, ¶ms);
-    private z_GetSamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameterIuiv_ovr_2(sampler, pname, ¶ms);
     
     // added in gl3.3
     private z_GetSamplerParameteriv_adr := GetFuncAdr('glGetSamplerParameteriv');
-    private z_GetSamplerParameteriv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
-    private z_GetSamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: SamplerParameterI; ¶ms: array of Int32) :=
+    private z_GetSamplerParameteriv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    private z_GetSamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameteriv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameteriv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: SamplerParameterI; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: SamplerParameterI; var ¶ms: Int32) :=
     z_GetSamplerParameteriv_ovr_0(sampler, pname, ¶ms);
-    private z_GetSamplerParameteriv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameteriv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameteriv_ovr_2(sampler, pname, ¶ms);
     
     // added in gl2.0
     private z_GetShaderInfoLog_adr := GetFuncAdr('glGetShaderInfoLog');
-    private z_GetShaderInfoLog_ovr_0 := GetFuncOrNil&(z_GetShaderInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderInfoLog(shader: ShaderName; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
+    private z_GetShaderInfoLog_ovr_0 := GetFuncOrNil&(z_GetShaderInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderInfoLog(shader: gl_shader; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
     z_GetShaderInfoLog_ovr_0(shader, bufSize, length, infoLog);
-    private z_GetShaderInfoLog_ovr_1 := GetFuncOrNil&(z_GetShaderInfoLog_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderInfoLog(shader: ShaderName; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
+    private z_GetShaderInfoLog_ovr_1 := GetFuncOrNil&(z_GetShaderInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderInfoLog(shader: gl_shader; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
     z_GetShaderInfoLog_ovr_1(shader, bufSize, length, infoLog);
     
     // added in gl2.0
     private z_GetShaderiv_adr := GetFuncAdr('glGetShaderiv');
-    private z_GetShaderiv_ovr_0 := GetFuncOrNil&(z_GetShaderiv_adr);
-    private z_GetShaderiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetShaderiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: ShaderName; pname: ShaderParameterName; ¶ms: array of Int32) :=
+    private z_GetShaderiv_ovr_0 := GetFuncOrNil&(z_GetShaderiv_adr);
+    private z_GetShaderiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetShaderiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: gl_shader; pname: ShaderParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetShaderiv_ovr_0(shader, pname, ¶ms[0]) else
       z_GetShaderiv_ovr_0_anh0001(shader, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: ShaderName; pname: ShaderParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: gl_shader; pname: ShaderParameterName; var ¶ms: Int32) :=
     z_GetShaderiv_ovr_0(shader, pname, ¶ms);
-    private z_GetShaderiv_ovr_2 := GetFuncOrNil&(z_GetShaderiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: ShaderName; pname: ShaderParameterName; ¶ms: IntPtr) :=
+    private z_GetShaderiv_ovr_2 := GetFuncOrNil&(z_GetShaderiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderiv(shader: gl_shader; pname: ShaderParameterName; ¶ms: IntPtr) :=
     z_GetShaderiv_ovr_2(shader, pname, ¶ms);
     
     // added in gl4.1
     private z_GetShaderPrecisionFormat_adr := GetFuncAdr('glGetShaderPrecisionFormat');
     private z_GetShaderPrecisionFormat_ovr_0 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     private z_GetShaderPrecisionFormat_ovr_0_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    private z_GetShaderPrecisionFormat_ovr_0_anh00001 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    private z_GetShaderPrecisionFormat_ovr_0_anh00011 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; precision: array of Int32) :=
-    if (range<>nil) and (range.Length<>0) then
-      if (precision<>nil) and (precision.Length<>0) then
-        z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range[0], precision[0]) else
-        z_GetShaderPrecisionFormat_ovr_0_anh00001(_shadertype, _precisiontype, range[0], IntPtr.Zero) else
-      if (precision<>nil) and (precision.Length<>0) then
-        z_GetShaderPrecisionFormat_ovr_0_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision[0]) else
-        z_GetShaderPrecisionFormat_ovr_0_anh00011(_shadertype, _precisiontype, IntPtr.Zero, IntPtr.Zero);
-    private z_GetShaderPrecisionFormat_ovr_1_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; var precision: Int32) :=
     if (range<>nil) and (range.Length<>0) then
       z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range[0], precision) else
       z_GetShaderPrecisionFormat_ovr_0_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
-    private z_GetShaderPrecisionFormat_ovr_2 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    private z_GetShaderPrecisionFormat_ovr_2_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
+    private z_GetShaderPrecisionFormat_ovr_1 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
+    private z_GetShaderPrecisionFormat_ovr_1_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; precision: IntPtr) :=
     if (range<>nil) and (range.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_2(_shadertype, _precisiontype, range[0], precision) else
-      z_GetShaderPrecisionFormat_ovr_2_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: array of Int32) :=
-    if (precision<>nil) and (precision.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range, precision[0]) else
-      z_GetShaderPrecisionFormat_ovr_0_anh00001(_shadertype, _precisiontype, range, IntPtr.Zero);
+      z_GetShaderPrecisionFormat_ovr_1(_shadertype, _precisiontype, range[0], precision) else
+      z_GetShaderPrecisionFormat_ovr_1_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; var precision: Int32) :=
     z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range, precision);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: IntPtr) :=
-    z_GetShaderPrecisionFormat_ovr_2(_shadertype, _precisiontype, range, precision);
-    private z_GetShaderPrecisionFormat_ovr_6 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    private z_GetShaderPrecisionFormat_ovr_6_anh00001 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: array of Int32) :=
-    if (precision<>nil) and (precision.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_6(_shadertype, _precisiontype, range, precision[0]) else
-      z_GetShaderPrecisionFormat_ovr_6_anh00001(_shadertype, _precisiontype, range, IntPtr.Zero);
+    z_GetShaderPrecisionFormat_ovr_1(_shadertype, _precisiontype, range, precision);
+    private z_GetShaderPrecisionFormat_ovr_4 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; var precision: Int32) :=
-    z_GetShaderPrecisionFormat_ovr_6(_shadertype, _precisiontype, range, precision);
-    private z_GetShaderPrecisionFormat_ovr_8 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
+    z_GetShaderPrecisionFormat_ovr_4(_shadertype, _precisiontype, range, precision);
+    private z_GetShaderPrecisionFormat_ovr_5 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr) :=
-    z_GetShaderPrecisionFormat_ovr_8(_shadertype, _precisiontype, range, precision);
+    z_GetShaderPrecisionFormat_ovr_5(_shadertype, _precisiontype, range, precision);
     
     // added in gl2.0
     private z_GetShaderSource_adr := GetFuncAdr('glGetShaderSource');
-    private z_GetShaderSource_ovr_0 := GetFuncOrNil&(z_GetShaderSource_adr);
-    private z_GetShaderSource_ovr_0_anh00010 := GetFuncOrNil&(z_GetShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSource(shader: UInt32; bufSize: Int32; length: array of Int32; source: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetShaderSource_ovr_0(shader, bufSize, length[0], source) else
-      z_GetShaderSource_ovr_0_anh00010(shader, bufSize, IntPtr.Zero, source);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSource(shader: UInt32; bufSize: Int32; var length: Int32; source: IntPtr) :=
+    private z_GetShaderSource_ovr_0 := GetFuncOrNil&(z_GetShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSource(shader: gl_shader; bufSize: Int32; var length: Int32; source: IntPtr) :=
     z_GetShaderSource_ovr_0(shader, bufSize, length, source);
-    private z_GetShaderSource_ovr_2 := GetFuncOrNil&(z_GetShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSource(shader: UInt32; bufSize: Int32; length: IntPtr; source: IntPtr) :=
-    z_GetShaderSource_ovr_2(shader, bufSize, length, source);
+    private z_GetShaderSource_ovr_1 := GetFuncOrNil&(z_GetShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSource(shader: gl_shader; bufSize: Int32; length: IntPtr; source: IntPtr) :=
+    z_GetShaderSource_ovr_1(shader, bufSize, length, source);
     
     // added in gl1.0
-    private static function z_GetString_ovr_0(name: StringName): IntPtr;
-    external 'opengl32.dll' name 'glGetString';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetString(name: StringName): string;
     begin
       var res_str_ptr: IntPtr;
-      res_str_ptr := z_GetString_ovr_0(name);
+      res_str_ptr := gl_ntv.z_GetString_ovr_0(name);
       Result := Marshal.PtrToStringAnsi(res_str_ptr);
     end;
     
@@ -26186,8 +28726,8 @@ type
     
     // added in gl4.0
     private z_GetSubroutineIndex_adr := GetFuncAdr('glGetSubroutineIndex');
-    private z_GetSubroutineIndex_ovr_0 := GetFuncOrNil&(z_GetSubroutineIndex_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: ProgramName; _shadertype: ShaderType; name: string): UInt32;
+    private z_GetSubroutineIndex_ovr_0 := GetFuncOrNil&(z_GetSubroutineIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: gl_program; _shadertype: ShaderType; name: string): UInt32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -26197,13 +28737,13 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: gl_program; _shadertype: ShaderType; name: IntPtr): UInt32 :=
     z_GetSubroutineIndex_ovr_0(&program, _shadertype, name);
     
     // added in gl4.0
     private z_GetSubroutineUniformLocation_adr := GetFuncAdr('glGetSubroutineUniformLocation');
-    private z_GetSubroutineUniformLocation_ovr_0 := GetFuncOrNil&(z_GetSubroutineUniformLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: ProgramName; _shadertype: ShaderType; name: string): Int32;
+    private z_GetSubroutineUniformLocation_ovr_0 := GetFuncOrNil&(z_GetSubroutineUniformLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: gl_program; _shadertype: ShaderType; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -26213,107 +28753,67 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: gl_program; _shadertype: ShaderType; name: IntPtr): Int32 :=
     z_GetSubroutineUniformLocation_ovr_0(&program, _shadertype, name);
     
     // added in gl3.2
     private z_GetSynciv_adr := GetFuncAdr('glGetSynciv');
-    private z_GetSynciv_ovr_0 := GetFuncOrNil&(z_GetSynciv_adr);
-    private z_GetSynciv_ovr_0_anh000010 := GetFuncOrNil&(z_GetSynciv_adr);
-    private z_GetSynciv_ovr_0_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
-    private z_GetSynciv_ovr_0_anh000011 := GetFuncOrNil&(z_GetSynciv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; values: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (values<>nil) and (values.Length<>0) then
-        z_GetSynciv_ovr_0(sync, pname, count, length[0], values[0]) else
-        z_GetSynciv_ovr_0_anh000001(sync, pname, count, length[0], IntPtr.Zero) else
-      if (values<>nil) and (values.Length<>0) then
-        z_GetSynciv_ovr_0_anh000010(sync, pname, count, IntPtr.Zero, values[0]) else
-        z_GetSynciv_ovr_0_anh000011(sync, pname, count, IntPtr.Zero, IntPtr.Zero);
-    private z_GetSynciv_ovr_1_anh000010 := GetFuncOrNil&(z_GetSynciv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; var values: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetSynciv_ovr_0(sync, pname, count, length[0], values) else
-      z_GetSynciv_ovr_0_anh000010(sync, pname, count, IntPtr.Zero, values);
-    private z_GetSynciv_ovr_2 := GetFuncOrNil&(z_GetSynciv_adr);
-    private z_GetSynciv_ovr_2_anh000010 := GetFuncOrNil&(z_GetSynciv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; values: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetSynciv_ovr_2(sync, pname, count, length[0], values) else
-      z_GetSynciv_ovr_2_anh000010(sync, pname, count, IntPtr.Zero, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: array of Int32) :=
+    private z_GetSynciv_ovr_0 := GetFuncOrNil&(z_GetSynciv_adr);
+    private z_GetSynciv_ovr_0_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetSynciv_ovr_0(sync, pname, count, length, values[0]) else
       z_GetSynciv_ovr_0_anh000001(sync, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; var values: Int32) :=
     z_GetSynciv_ovr_0(sync, pname, count, length, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr) :=
+    private z_GetSynciv_ovr_2 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr) :=
     z_GetSynciv_ovr_2(sync, pname, count, length, values);
-    private z_GetSynciv_ovr_6 := GetFuncOrNil&(z_GetSynciv_adr);
-    private z_GetSynciv_ovr_6_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: array of Int32) :=
+    private z_GetSynciv_ovr_3 := GetFuncOrNil&(z_GetSynciv_adr);
+    private z_GetSynciv_ovr_3_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
-      z_GetSynciv_ovr_6(sync, pname, count, length, values[0]) else
-      z_GetSynciv_ovr_6_anh000001(sync, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32) :=
-    z_GetSynciv_ovr_6(sync, pname, count, length, values);
-    private z_GetSynciv_ovr_8 := GetFuncOrNil&(z_GetSynciv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr) :=
-    z_GetSynciv_ovr_8(sync, pname, count, length, values);
+      z_GetSynciv_ovr_3(sync, pname, count, length, values[0]) else
+      z_GetSynciv_ovr_3_anh000001(sync, pname, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32) :=
+    z_GetSynciv_ovr_3(sync, pname, count, length, values);
+    private z_GetSynciv_ovr_5 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr) :=
+    z_GetSynciv_ovr_5(sync, pname, count, length, values);
     
     // added in gl1.0
-    private static procedure z_GetTexImage_ovr_0(target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetTexImage';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexImage(target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_GetTexImage_ovr_0(target, level, format, &type, pixels);
+    gl_ntv.z_GetTexImage_ovr_0(target, level, format, &type, pixels);
     
     // added in gl1.0
-    private static procedure z_GetTexLevelParameterfv_ovr_0(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
-    private static procedure z_GetTexLevelParameterfv_ovr_0_anh00001(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterfv(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexLevelParameterfv_ovr_0(target, level, pname, ¶ms[0]) else
-      z_GetTexLevelParameterfv_ovr_0_anh00001(target, level, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexLevelParameterfv_ovr_0(target, level, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexLevelParameterfv_ovr_0_anh00001(target, level, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterfv(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
-    z_GetTexLevelParameterfv_ovr_0(target, level, pname, ¶ms);
-    private static procedure z_GetTexLevelParameterfv_ovr_2(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameterfv';
+    gl_ntv.z_GetTexLevelParameterfv_ovr_0(target, level, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterfv(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
-    z_GetTexLevelParameterfv_ovr_2(target, level, pname, ¶ms);
+    gl_ntv.z_GetTexLevelParameterfv_ovr_2(target, level, pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_GetTexLevelParameteriv_ovr_0(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
-    private static procedure z_GetTexLevelParameteriv_ovr_0_anh00001(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameteriv(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexLevelParameteriv_ovr_0(target, level, pname, ¶ms[0]) else
-      z_GetTexLevelParameteriv_ovr_0_anh00001(target, level, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexLevelParameteriv_ovr_0(target, level, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexLevelParameteriv_ovr_0_anh00001(target, level, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameteriv(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
-    z_GetTexLevelParameteriv_ovr_0(target, level, pname, ¶ms);
-    private static procedure z_GetTexLevelParameteriv_ovr_2(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameteriv';
+    gl_ntv.z_GetTexLevelParameteriv_ovr_0(target, level, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameteriv(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
-    z_GetTexLevelParameteriv_ovr_2(target, level, pname, ¶ms);
+    gl_ntv.z_GetTexLevelParameteriv_ovr_2(target, level, pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_GetTexParameterfv_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTexParameterfv';
-    private static procedure z_GetTexParameterfv_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterfv(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexParameterfv_ovr_0(target, pname, ¶ms[0]) else
-      z_GetTexParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexParameterfv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterfv(target: TextureTarget; pname: GetTextureParameter; var ¶ms: single) :=
-    z_GetTexParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameterfv_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterfv';
+    gl_ntv.z_GetTexParameterfv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterfv(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
-    z_GetTexParameterfv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_GetTexParameterfv_ovr_2(target, pname, ¶ms);
     
     // added in gl3.0
     private z_GetTexParameterIiv_adr := GetFuncAdr('glGetTexParameterIiv');
@@ -26344,330 +28844,184 @@ type
     z_GetTexParameterIuiv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_GetTexParameteriv_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTexParameteriv';
-    private static procedure z_GetTexParameteriv_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameteriv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameteriv(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexParameteriv_ovr_0(target, pname, ¶ms[0]) else
-      z_GetTexParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexParameteriv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameteriv(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
-    z_GetTexParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameteriv_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameteriv';
+    gl_ntv.z_GetTexParameteriv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameteriv(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
-    z_GetTexParameteriv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_GetTexParameteriv_ovr_2(target, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureImage_adr := GetFuncAdr('glGetTextureImage');
-    private z_GetTextureImage_ovr_0 := GetFuncOrNil&(z_GetTextureImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImage(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetTextureImage_ovr_0 := GetFuncOrNil&(z_GetTextureImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImage(texture: gl_texture; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
     z_GetTextureImage_ovr_0(texture, level, format, &type, bufSize, pixels);
     
     // added in gl4.5
     private z_GetTextureLevelParameterfv_adr := GetFuncAdr('glGetTextureLevelParameterfv');
-    private z_GetTextureLevelParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
-    private z_GetTextureLevelParameterfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureLevelParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    private z_GetTextureLevelParameterfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameterfv_ovr_0(texture, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameterfv_ovr_0_anh00001(texture, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureLevelParameterfv_ovr_0(texture, level, pname, ¶ms);
-    private z_GetTextureLevelParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameterfv_ovr_2(texture, level, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureLevelParameteriv_adr := GetFuncAdr('glGetTextureLevelParameteriv');
-    private z_GetTextureLevelParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
-    private z_GetTextureLevelParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureLevelParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    private z_GetTextureLevelParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameteriv_ovr_0(texture, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameteriv_ovr_0_anh00001(texture, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureLevelParameteriv_ovr_0(texture, level, pname, ¶ms);
-    private z_GetTextureLevelParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameteriv_ovr_2(texture, level, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureParameterfv_adr := GetFuncAdr('glGetTextureParameterfv');
-    private z_GetTextureParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
-    private z_GetTextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    private z_GetTextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterfv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterfv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureParameterfv_ovr_0(texture, pname, ¶ms);
-    private z_GetTextureParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterfv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureParameterIiv_adr := GetFuncAdr('glGetTextureParameterIiv');
-    private z_GetTextureParameterIiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
-    private z_GetTextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameterIiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    private z_GetTextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIiv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterIiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameterIiv_ovr_0(texture, pname, ¶ms);
-    private z_GetTextureParameterIiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIiv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureParameterIuiv_adr := GetFuncAdr('glGetTextureParameterIuiv');
-    private z_GetTextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
-    private z_GetTextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of UInt32) :=
+    private z_GetTextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    private z_GetTextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIuiv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterIuiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: UInt32) :=
     z_GetTextureParameterIuiv_ovr_0(texture, pname, ¶ms);
-    private z_GetTextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIuiv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureParameteriv_adr := GetFuncAdr('glGetTextureParameteriv');
-    private z_GetTextureParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
-    private z_GetTextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    private z_GetTextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameteriv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameteriv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameteriv_ovr_0(texture, pname, ¶ms);
-    private z_GetTextureParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameteriv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_GetTextureSubImage_adr := GetFuncAdr('glGetTextureSubImage');
-    private z_GetTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetTextureSubImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetTextureSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
     z_GetTextureSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, bufSize, pixels);
     
     // added in gl4.5
     private z_GetTransformFeedbacki_v_adr := GetFuncAdr('glGetTransformFeedbacki_v');
-    private z_GetTransformFeedbacki_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
-    private z_GetTransformFeedbacki_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: array of Int32) :=
+    private z_GetTransformFeedbacki_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    private z_GetTransformFeedbacki_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbacki_v_ovr_0(xfb, pname, index, param[0]) else
       z_GetTransformFeedbacki_v_ovr_0_anh00001(xfb, pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; var param: Int32) :=
     z_GetTransformFeedbacki_v_ovr_0(xfb, pname, index, param);
-    private z_GetTransformFeedbacki_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
+    private z_GetTransformFeedbacki_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
     z_GetTransformFeedbacki_v_ovr_2(xfb, pname, index, param);
     
     // added in gl4.5
     private z_GetTransformFeedbacki64_v_adr := GetFuncAdr('glGetTransformFeedbacki64_v');
-    private z_GetTransformFeedbacki64_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
-    private z_GetTransformFeedbacki64_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: array of Int64) :=
+    private z_GetTransformFeedbacki64_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    private z_GetTransformFeedbacki64_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: array of Int64) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbacki64_v_ovr_0(xfb, pname, index, param[0]) else
       z_GetTransformFeedbacki64_v_ovr_0_anh00001(xfb, pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; var param: Int64) :=
     z_GetTransformFeedbacki64_v_ovr_0(xfb, pname, index, param);
-    private z_GetTransformFeedbacki64_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
+    private z_GetTransformFeedbacki64_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
     z_GetTransformFeedbacki64_v_ovr_2(xfb, pname, index, param);
     
     // added in gl4.5
     private z_GetTransformFeedbackiv_adr := GetFuncAdr('glGetTransformFeedbackiv');
-    private z_GetTransformFeedbackiv_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
-    private z_GetTransformFeedbackiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; param: array of Int32) :=
+    private z_GetTransformFeedbackiv_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    private z_GetTransformFeedbackiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbackiv_ovr_0(xfb, pname, param[0]) else
       z_GetTransformFeedbackiv_ovr_0_anh0001(xfb, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; var param: Int32) :=
     z_GetTransformFeedbackiv_ovr_0(xfb, pname, param);
-    private z_GetTransformFeedbackiv_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; param: IntPtr) :=
+    private z_GetTransformFeedbackiv_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; param: IntPtr) :=
     z_GetTransformFeedbackiv_ovr_2(xfb, pname, param);
     
     // added in gl3.0
     private z_GetTransformFeedbackVarying_adr := GetFuncAdr('glGetTransformFeedbackVarying');
-    private z_GetTransformFeedbackVarying_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00001100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00000010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00001010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00000110 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_0_anh00001110 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length[0], size[0], &type[0], name) else
-          z_GetTransformFeedbackVarying_ovr_0_anh00000010(&program, index, bufSize, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVarying_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetTransformFeedbackVarying_ovr_0_anh00000110(&program, index, bufSize, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVarying_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetTransformFeedbackVarying_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVarying_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetTransformFeedbackVarying_ovr_0_anh00001110(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetTransformFeedbackVarying_ovr_1_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_1_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_1_anh00001100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_2_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_2_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_2_anh00001100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_2(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetTransformFeedbackVarying_ovr_2_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetTransformFeedbackVarying_ovr_2_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_3_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_3_anh00001010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetTransformFeedbackVarying_ovr_4_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVarying_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_5_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_2(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVarying_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_6 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_6_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_6_anh00000010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_6_anh00001010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_6(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_6_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_6_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private z_GetTransformFeedbackVarying_ovr_7_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_6(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVarying_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_8 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_8_anh00001000 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_8(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVarying_ovr_8_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_0_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVarying_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_2(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVarying_ovr_2_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVarying_ovr_0_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    private z_GetTransformFeedbackVarying_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVarying_ovr_0(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetTransformFeedbackVarying_ovr_1 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVarying_ovr_1(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVarying_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVarying_ovr_2(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_6(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVarying_ovr_6_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
+    private z_GetTransformFeedbackVarying_ovr_3 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVarying_ovr_3(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVarying_ovr_4 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    z_GetTransformFeedbackVarying_ovr_4(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVarying_ovr_5 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVarying_ovr_5(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVarying_ovr_6 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVarying_ovr_6(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVarying_ovr_8(&program, index, bufSize, length, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_18 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_18_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_18_anh00000010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_18_anh00000110 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_18(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_18_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVarying_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetTransformFeedbackVarying_ovr_18_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    private z_GetTransformFeedbackVarying_ovr_19_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_18(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVarying_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_20 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_20_anh00000100 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_20(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVarying_ovr_20_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_18(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVarying_ovr_18_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    z_GetTransformFeedbackVarying_ovr_18(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVarying_ovr_20(&program, index, bufSize, length, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_24 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    private z_GetTransformFeedbackVarying_ovr_24_anh00000010 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVarying_ovr_24(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVarying_ovr_24_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    z_GetTransformFeedbackVarying_ovr_24(&program, index, bufSize, length, size, &type, name);
-    private z_GetTransformFeedbackVarying_ovr_26 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVarying_ovr_26(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVarying_ovr_7 := GetFuncOrNil&(z_GetTransformFeedbackVarying_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVarying(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVarying_ovr_7(&program, index, bufSize, length, size, &type, name);
     
     // added in gl3.1
     private z_GetUniformBlockIndex_adr := GetFuncAdr('glGetUniformBlockIndex');
-    private z_GetUniformBlockIndex_ovr_0 := GetFuncOrNil&(z_GetUniformBlockIndex_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: ProgramName; uniformBlockName: string): UInt32;
+    private z_GetUniformBlockIndex_ovr_0 := GetFuncOrNil&(z_GetUniformBlockIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: gl_program; uniformBlockName: string): UInt32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -26677,44 +29031,44 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: ProgramName; uniformBlockName: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: gl_program; uniformBlockName: IntPtr): UInt32 :=
     z_GetUniformBlockIndex_ovr_0(&program, uniformBlockName);
     
     // added in gl4.0
     private z_GetUniformdv_adr := GetFuncAdr('glGetUniformdv');
-    private z_GetUniformdv_ovr_0 := GetFuncOrNil&(z_GetUniformdv_adr);
-    private z_GetUniformdv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformdv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; ¶ms: array of real) :=
+    private z_GetUniformdv_ovr_0 := GetFuncOrNil&(z_GetUniformdv_adr);
+    private z_GetUniformdv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformdv_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformdv_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; var ¶ms: real) :=
     z_GetUniformdv_ovr_0(&program, location, ¶ms);
-    private z_GetUniformdv_ovr_2 := GetFuncOrNil&(z_GetUniformdv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformdv_ovr_2 := GetFuncOrNil&(z_GetUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformdv_ovr_2(&program, location, ¶ms);
     
     // added in gl2.0
     private z_GetUniformfv_adr := GetFuncAdr('glGetUniformfv');
-    private z_GetUniformfv_ovr_0 := GetFuncOrNil&(z_GetUniformfv_adr);
-    private z_GetUniformfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: ProgramName; location: Int32; ¶ms: array of single) :=
+    private z_GetUniformfv_ovr_0 := GetFuncOrNil&(z_GetUniformfv_adr);
+    private z_GetUniformfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: gl_program; location: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformfv_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformfv_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: ProgramName; location: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: gl_program; location: Int32; var ¶ms: single) :=
     z_GetUniformfv_ovr_0(&program, location, ¶ms);
-    private z_GetUniformfv_ovr_2 := GetFuncOrNil&(z_GetUniformfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: ProgramName; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformfv_ovr_2 := GetFuncOrNil&(z_GetUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfv(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformfv_ovr_2(&program, location, ¶ms);
     
     // added in gl3.1
     private z_GetUniformIndices_adr := GetFuncAdr('glGetUniformIndices');
-    private z_GetUniformIndices_ovr_0 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_0_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_0_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_0_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; uniformIndices: array of UInt32);
+    private z_GetUniformIndices_ovr_0 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; uniformIndices: array of UInt32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -26730,8 +29084,8 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_GetUniformIndices_ovr_1_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; var uniformIndices: UInt32);
+    private z_GetUniformIndices_ovr_1_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; var uniformIndices: UInt32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -26743,9 +29097,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_GetUniformIndices_ovr_2 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_2_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; uniformIndices: IntPtr);
+    private z_GetUniformIndices_ovr_2 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_2_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; uniformIndices: IntPtr);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -26757,9 +29111,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_GetUniformIndices_ovr_3_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_3_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: array of UInt32) :=
+    private z_GetUniformIndices_ovr_3_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_3_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: array of UInt32) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
         z_GetUniformIndices_ovr_0(&program, uniformCount, uniformNames[0], uniformIndices[0]) else
@@ -26767,46 +29121,46 @@ type
       if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
         z_GetUniformIndices_ovr_0_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices[0]) else
         z_GetUniformIndices_ovr_0_anh00011(&program, uniformCount, IntPtr.Zero, IntPtr.Zero);
-    private z_GetUniformIndices_ovr_4_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; var uniformIndices: UInt32) :=
+    private z_GetUniformIndices_ovr_4_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; var uniformIndices: UInt32) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       z_GetUniformIndices_ovr_0(&program, uniformCount, uniformNames[0], uniformIndices) else
       z_GetUniformIndices_ovr_0_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices);
-    private z_GetUniformIndices_ovr_5_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: IntPtr) :=
+    private z_GetUniformIndices_ovr_5_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: IntPtr) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       z_GetUniformIndices_ovr_2(&program, uniformCount, uniformNames[0], uniformIndices) else
       z_GetUniformIndices_ovr_2_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices);
-    private z_GetUniformIndices_ovr_6 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    private z_GetUniformIndices_ovr_6_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: array of UInt32) :=
+    private z_GetUniformIndices_ovr_6 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_6_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: array of UInt32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetUniformIndices_ovr_6(&program, uniformCount, uniformNames, uniformIndices[0]) else
       z_GetUniformIndices_ovr_6_anh00001(&program, uniformCount, uniformNames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32) :=
     z_GetUniformIndices_ovr_6(&program, uniformCount, uniformNames, uniformIndices);
-    private z_GetUniformIndices_ovr_8 := GetFuncOrNil&(z_GetUniformIndices_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr) :=
+    private z_GetUniformIndices_ovr_8 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr) :=
     z_GetUniformIndices_ovr_8(&program, uniformCount, uniformNames, uniformIndices);
     
     // added in gl2.0
     private z_GetUniformiv_adr := GetFuncAdr('glGetUniformiv');
-    private z_GetUniformiv_ovr_0 := GetFuncOrNil&(z_GetUniformiv_adr);
-    private z_GetUniformiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: ProgramName; location: Int32; ¶ms: array of Int32) :=
+    private z_GetUniformiv_ovr_0 := GetFuncOrNil&(z_GetUniformiv_adr);
+    private z_GetUniformiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: gl_program; location: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformiv_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformiv_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: ProgramName; location: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: gl_program; location: Int32; var ¶ms: Int32) :=
     z_GetUniformiv_ovr_0(&program, location, ¶ms);
-    private z_GetUniformiv_ovr_2 := GetFuncOrNil&(z_GetUniformiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: ProgramName; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformiv_ovr_2 := GetFuncOrNil&(z_GetUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformiv(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformiv_ovr_2(&program, location, ¶ms);
     
     // added in gl2.0
     private z_GetUniformLocation_adr := GetFuncAdr('glGetUniformLocation');
-    private z_GetUniformLocation_ovr_0 := GetFuncOrNil&(z_GetUniformLocation_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocation(&program: ProgramName; name: string): Int32;
+    private z_GetUniformLocation_ovr_0 := GetFuncOrNil&(z_GetUniformLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocation(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -26816,77 +29170,72 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocation(&program: ProgramName; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocation(&program: gl_program; name: IntPtr): Int32 :=
     z_GetUniformLocation_ovr_0(&program, name);
     
     // added in gl4.0
     private z_GetUniformSubroutineuiv_adr := GetFuncAdr('glGetUniformSubroutineuiv');
     private z_GetUniformSubroutineuiv_ovr_0 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
-    private z_GetUniformSubroutineuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; ¶ms: array of UInt32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetUniformSubroutineuiv_ovr_0(_shadertype, location, ¶ms[0]) else
-      z_GetUniformSubroutineuiv_ovr_0_anh0001(_shadertype, location, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; var ¶ms: UInt32) :=
     z_GetUniformSubroutineuiv_ovr_0(_shadertype, location, ¶ms);
-    private z_GetUniformSubroutineuiv_ovr_2 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
+    private z_GetUniformSubroutineuiv_ovr_1 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; ¶ms: IntPtr) :=
-    z_GetUniformSubroutineuiv_ovr_2(_shadertype, location, ¶ms);
+    z_GetUniformSubroutineuiv_ovr_1(_shadertype, location, ¶ms);
     
     // added in gl3.0
     private z_GetUniformuiv_adr := GetFuncAdr('glGetUniformuiv');
-    private z_GetUniformuiv_ovr_0 := GetFuncOrNil&(z_GetUniformuiv_adr);
-    private z_GetUniformuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: ProgramName; location: Int32; ¶ms: array of UInt32) :=
+    private z_GetUniformuiv_ovr_0 := GetFuncOrNil&(z_GetUniformuiv_adr);
+    private z_GetUniformuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: gl_program; location: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformuiv_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformuiv_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: ProgramName; location: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: gl_program; location: Int32; var ¶ms: UInt32) :=
     z_GetUniformuiv_ovr_0(&program, location, ¶ms);
-    private z_GetUniformuiv_ovr_2 := GetFuncOrNil&(z_GetUniformuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: ProgramName; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformuiv_ovr_2 := GetFuncOrNil&(z_GetUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuiv(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformuiv_ovr_2(&program, location, ¶ms);
     
     // added in gl4.5
     private z_GetVertexArrayIndexed64iv_adr := GetFuncAdr('glGetVertexArrayIndexed64iv');
-    private z_GetVertexArrayIndexed64iv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
-    private z_GetVertexArrayIndexed64iv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of Int64) :=
+    private z_GetVertexArrayIndexed64iv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    private z_GetVertexArrayIndexed64iv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: array of Int64) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIndexed64iv_ovr_0(vaobj, index, pname, param[0]) else
       z_GetVertexArrayIndexed64iv_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: Int64) :=
     z_GetVertexArrayIndexed64iv_ovr_0(vaobj, index, pname, param);
-    private z_GetVertexArrayIndexed64iv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIndexed64iv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIndexed64iv_ovr_2(vaobj, index, pname, param);
     
     // added in gl4.5
     private z_GetVertexArrayIndexediv_adr := GetFuncAdr('glGetVertexArrayIndexediv');
-    private z_GetVertexArrayIndexediv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
-    private z_GetVertexArrayIndexediv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayIndexediv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    private z_GetVertexArrayIndexediv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIndexediv_ovr_0(vaobj, index, pname, param[0]) else
       z_GetVertexArrayIndexediv_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayIndexediv_ovr_0(vaobj, index, pname, param);
-    private z_GetVertexArrayIndexediv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIndexediv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIndexediv_ovr_2(vaobj, index, pname, param);
     
     // added in gl4.5
     private z_GetVertexArrayiv_adr := GetFuncAdr('glGetVertexArrayiv');
-    private z_GetVertexArrayiv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
-    private z_GetVertexArrayiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayiv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    private z_GetVertexArrayiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayiv_ovr_0(vaobj, pname, param[0]) else
       z_GetVertexArrayiv_ovr_0_anh0001(vaobj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayiv_ovr_0(vaobj, pname, param);
-    private z_GetVertexArrayiv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayiv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayiv_ovr_2(vaobj, pname, param);
     
     // added in gl2.0
@@ -26920,30 +29269,20 @@ type
     // added in gl3.0
     private z_GetVertexAttribIiv_adr := GetFuncAdr('glGetVertexAttribIiv');
     private z_GetVertexAttribIiv_ovr_0 := GetFuncOrNil&(z_GetVertexAttribIiv_adr);
-    private z_GetVertexAttribIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIiv(index: UInt32; pname: VertexAttribEnum; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribIiv_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribIiv_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIiv(index: UInt32; pname: VertexAttribEnum; var ¶ms: Int32) :=
     z_GetVertexAttribIiv_ovr_0(index, pname, ¶ms);
-    private z_GetVertexAttribIiv_ovr_2 := GetFuncOrNil&(z_GetVertexAttribIiv_adr);
+    private z_GetVertexAttribIiv_ovr_1 := GetFuncOrNil&(z_GetVertexAttribIiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIiv(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
-    z_GetVertexAttribIiv_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribIiv_ovr_1(index, pname, ¶ms);
     
     // added in gl3.0
     private z_GetVertexAttribIuiv_adr := GetFuncAdr('glGetVertexAttribIuiv');
     private z_GetVertexAttribIuiv_ovr_0 := GetFuncOrNil&(z_GetVertexAttribIuiv_adr);
-    private z_GetVertexAttribIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuiv(index: UInt32; pname: VertexAttribEnum; ¶ms: array of UInt32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribIuiv_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribIuiv_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuiv(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt32) :=
     z_GetVertexAttribIuiv_ovr_0(index, pname, ¶ms);
-    private z_GetVertexAttribIuiv_ovr_2 := GetFuncOrNil&(z_GetVertexAttribIuiv_adr);
+    private z_GetVertexAttribIuiv_ovr_1 := GetFuncOrNil&(z_GetVertexAttribIuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuiv(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
-    z_GetVertexAttribIuiv_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribIuiv_ovr_1(index, pname, ¶ms);
     
     // added in gl2.0
     private z_GetVertexAttribiv_adr := GetFuncAdr('glGetVertexAttribiv');
@@ -26976,33 +29315,26 @@ type
     // added in gl2.0
     private z_GetVertexAttribPointerv_adr := GetFuncAdr('glGetVertexAttribPointerv');
     private z_GetVertexAttribPointerv_ovr_0 := GetFuncOrNil&(z_GetVertexAttribPointerv_adr);
-    private z_GetVertexAttribPointerv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribPointerv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointerv(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: array of IntPtr) :=
-    if (_pointer<>nil) and (_pointer.Length<>0) then
-      z_GetVertexAttribPointerv_ovr_0(index, pname, _pointer[0]) else
-      z_GetVertexAttribPointerv_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointerv(index: UInt32; pname: VertexAttribPointerPropertyARB; var _pointer: IntPtr) :=
     z_GetVertexAttribPointerv_ovr_0(index, pname, _pointer);
-    private z_GetVertexAttribPointerv_ovr_2 := GetFuncOrNil&(z_GetVertexAttribPointerv_adr);
+    private z_GetVertexAttribPointerv_ovr_1 := GetFuncOrNil&(z_GetVertexAttribPointerv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointerv(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: pointer) :=
-    z_GetVertexAttribPointerv_ovr_2(index, pname, _pointer);
+    z_GetVertexAttribPointerv_ovr_1(index, pname, _pointer);
     
     // added in gl1.0
-    private static procedure z_Hint_ovr_0(target: HintTarget; mode: HintMode);
-    external 'opengl32.dll' name 'glHint';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Hint(target: HintTarget; mode: HintMode) :=
-    z_Hint_ovr_0(target, mode);
+    gl_ntv.z_Hint_ovr_0(target, mode);
     
     // added in gl4.3
     private z_InvalidateBufferData_adr := GetFuncAdr('glInvalidateBufferData');
-    private z_InvalidateBufferData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferData(buffer: BufferName) :=
+    private z_InvalidateBufferData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferData(buffer: gl_buffer) :=
     z_InvalidateBufferData_ovr_0(buffer);
     
     // added in gl4.3
     private z_InvalidateBufferSubData_adr := GetFuncAdr('glInvalidateBufferSubData');
-    private z_InvalidateBufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferSubData(buffer: BufferName; offset: IntPtr; length: IntPtr) :=
+    private z_InvalidateBufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferSubData(buffer: gl_buffer; offset: IntPtr; length: IntPtr) :=
     z_InvalidateBufferSubData_ovr_0(buffer, offset, length);
     
     // added in gl4.3
@@ -27021,30 +29353,30 @@ type
     
     // added in gl4.5
     private z_InvalidateNamedFramebufferData_adr := GetFuncAdr('glInvalidateNamedFramebufferData');
-    private z_InvalidateNamedFramebufferData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
-    private z_InvalidateNamedFramebufferData_ovr_0_anh0001 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; attachments: array of FramebufferAttachment) :=
+    private z_InvalidateNamedFramebufferData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    private z_InvalidateNamedFramebufferData_ovr_0_anh0001 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: array of FramebufferAttachment) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateNamedFramebufferData_ovr_0(framebuffer, numAttachments, attachments[0]) else
       z_InvalidateNamedFramebufferData_ovr_0_anh0001(framebuffer, numAttachments, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; var attachments: FramebufferAttachment) :=
     z_InvalidateNamedFramebufferData_ovr_0(framebuffer, numAttachments, attachments);
-    private z_InvalidateNamedFramebufferData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr) :=
+    private z_InvalidateNamedFramebufferData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: IntPtr) :=
     z_InvalidateNamedFramebufferData_ovr_2(framebuffer, numAttachments, attachments);
     
     // added in gl4.5
     private z_InvalidateNamedFramebufferSubData_adr := GetFuncAdr('glInvalidateNamedFramebufferSubData');
-    private z_InvalidateNamedFramebufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
-    private z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; attachments: array of FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_InvalidateNamedFramebufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    private z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: array of FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateNamedFramebufferSubData_ovr_0(framebuffer, numAttachments, attachments[0], x, y, width, height) else
       z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000(framebuffer, numAttachments, IntPtr.Zero, x, y, width, height);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; var attachments: FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateNamedFramebufferSubData_ovr_0(framebuffer, numAttachments, attachments, x, y, width, height);
-    private z_InvalidateNamedFramebufferSubData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_InvalidateNamedFramebufferSubData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateNamedFramebufferSubData_ovr_2(framebuffer, numAttachments, attachments, x, y, width, height);
     
     // added in gl4.3
@@ -27063,27 +29395,25 @@ type
     
     // added in gl4.3
     private z_InvalidateTexImage_adr := GetFuncAdr('glInvalidateTexImage');
-    private z_InvalidateTexImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexImage(texture: TextureName; level: Int32) :=
+    private z_InvalidateTexImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexImage(texture: gl_texture; level: Int32) :=
     z_InvalidateTexImage_ovr_0(texture, level);
     
     // added in gl4.3
     private z_InvalidateTexSubImage_adr := GetFuncAdr('glInvalidateTexSubImage');
-    private z_InvalidateTexSubImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexSubImage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexSubImage(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32) :=
+    private z_InvalidateTexSubImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32) :=
     z_InvalidateTexSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth);
     
     // added in gl1.5
     private z_IsBuffer_adr := GetFuncAdr('glIsBuffer');
-    private z_IsBuffer_ovr_0 := GetFuncOrNil&(z_IsBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsBuffer(buffer: BufferName): boolean :=
+    private z_IsBuffer_ovr_0 := GetFuncOrNil&(z_IsBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsBuffer(buffer: gl_buffer): boolean :=
     z_IsBuffer_ovr_0(buffer);
     
     // added in gl1.0
-    private static function z_IsEnabled_ovr_0(cap: EnableCap): boolean;
-    external 'opengl32.dll' name 'glIsEnabled';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabled(cap: EnableCap): boolean :=
-    z_IsEnabled_ovr_0(cap);
+    gl_ntv.z_IsEnabled_ovr_0(cap);
     
     // added in gl3.0
     private z_IsEnabledi_adr := GetFuncAdr('glIsEnabledi');
@@ -27093,87 +29423,81 @@ type
     
     // added in gl3.0
     private z_IsFramebuffer_adr := GetFuncAdr('glIsFramebuffer');
-    private z_IsFramebuffer_ovr_0 := GetFuncOrNil&(z_IsFramebuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebuffer(framebuffer: FramebufferName): boolean :=
+    private z_IsFramebuffer_ovr_0 := GetFuncOrNil&(z_IsFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebuffer(framebuffer: gl_framebuffer): boolean :=
     z_IsFramebuffer_ovr_0(framebuffer);
     
     // added in gl2.0
     private z_IsProgram_adr := GetFuncAdr('glIsProgram');
-    private z_IsProgram_ovr_0 := GetFuncOrNil&(z_IsProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgram(&program: ProgramName): boolean :=
+    private z_IsProgram_ovr_0 := GetFuncOrNil&(z_IsProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgram(&program: gl_program): boolean :=
     z_IsProgram_ovr_0(&program);
     
     // added in gl4.1
     private z_IsProgramPipeline_adr := GetFuncAdr('glIsProgramPipeline');
-    private z_IsProgramPipeline_ovr_0 := GetFuncOrNil&(z_IsProgramPipeline_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramPipeline(pipeline: ProgramPipelineName): boolean :=
+    private z_IsProgramPipeline_ovr_0 := GetFuncOrNil&(z_IsProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramPipeline(pipeline: gl_program_pipeline): boolean :=
     z_IsProgramPipeline_ovr_0(pipeline);
     
     // added in gl1.5
     private z_IsQuery_adr := GetFuncAdr('glIsQuery');
-    private z_IsQuery_ovr_0 := GetFuncOrNil&(z_IsQuery_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsQuery(id: QueryName): boolean :=
+    private z_IsQuery_ovr_0 := GetFuncOrNil&(z_IsQuery_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsQuery(id: gl_query): boolean :=
     z_IsQuery_ovr_0(id);
     
     // added in gl3.0
     private z_IsRenderbuffer_adr := GetFuncAdr('glIsRenderbuffer');
-    private z_IsRenderbuffer_ovr_0 := GetFuncOrNil&(z_IsRenderbuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbuffer(renderbuffer: RenderbufferName): boolean :=
+    private z_IsRenderbuffer_ovr_0 := GetFuncOrNil&(z_IsRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbuffer(renderbuffer: gl_renderbuffer): boolean :=
     z_IsRenderbuffer_ovr_0(renderbuffer);
     
     // added in gl3.3
     private z_IsSampler_adr := GetFuncAdr('glIsSampler');
-    private z_IsSampler_ovr_0 := GetFuncOrNil&(z_IsSampler_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSampler(sampler: SamplerName): boolean :=
+    private z_IsSampler_ovr_0 := GetFuncOrNil&(z_IsSampler_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSampler(sampler: gl_sampler): boolean :=
     z_IsSampler_ovr_0(sampler);
     
     // added in gl2.0
     private z_IsShader_adr := GetFuncAdr('glIsShader');
-    private z_IsShader_ovr_0 := GetFuncOrNil&(z_IsShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsShader(shader: ShaderName): boolean :=
+    private z_IsShader_ovr_0 := GetFuncOrNil&(z_IsShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsShader(shader: gl_shader): boolean :=
     z_IsShader_ovr_0(shader);
     
     // added in gl3.2
     private z_IsSync_adr := GetFuncAdr('glIsSync');
-    private z_IsSync_ovr_0 := GetFuncOrNil&(z_IsSync_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSync(sync: GLsync): boolean :=
+    private z_IsSync_ovr_0 := GetFuncOrNil&(z_IsSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSync(sync: gl_sync): boolean :=
     z_IsSync_ovr_0(sync);
     
     // added in gl1.1
-    private static function z_IsTexture_ovr_0(texture: TextureName): boolean;
-    external 'opengl32.dll' name 'glIsTexture';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTexture(texture: TextureName): boolean :=
-    z_IsTexture_ovr_0(texture);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTexture(texture: gl_texture): boolean :=
+    gl_ntv.z_IsTexture_ovr_0(texture);
     
     // added in gl4.0
     private z_IsTransformFeedback_adr := GetFuncAdr('glIsTransformFeedback');
-    private z_IsTransformFeedback_ovr_0 := GetFuncOrNil&(z_IsTransformFeedback_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedback(id: TransformFeedbackName): boolean :=
+    private z_IsTransformFeedback_ovr_0 := GetFuncOrNil&(z_IsTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedback(id: gl_transform_feedback): boolean :=
     z_IsTransformFeedback_ovr_0(id);
     
     // added in gl3.0
     private z_IsVertexArray_adr := GetFuncAdr('glIsVertexArray');
-    private z_IsVertexArray_ovr_0 := GetFuncOrNil&(z_IsVertexArray_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArray(&array: VertexArrayName): boolean :=
+    private z_IsVertexArray_ovr_0 := GetFuncOrNil&(z_IsVertexArray_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArray(&array: gl_vertex_array): boolean :=
     z_IsVertexArray_ovr_0(&array);
     
     // added in gl1.0
-    private static procedure z_LineWidth_ovr_0(width: single);
-    external 'opengl32.dll' name 'glLineWidth';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LineWidth(width: single) :=
-    z_LineWidth_ovr_0(width);
+    gl_ntv.z_LineWidth_ovr_0(width);
     
     // added in gl2.0
     private z_LinkProgram_adr := GetFuncAdr('glLinkProgram');
-    private z_LinkProgram_ovr_0 := GetFuncOrNil&(z_LinkProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LinkProgram(&program: ProgramName) :=
+    private z_LinkProgram_ovr_0 := GetFuncOrNil&(z_LinkProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LinkProgram(&program: gl_program) :=
     z_LinkProgram_ovr_0(&program);
     
     // added in gl1.0
-    private static procedure z_LogicOp_ovr_0(opcode: OpenGL.LogicOp);
-    external 'opengl32.dll' name 'glLogicOp';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LogicOp(opcode: OpenGL.LogicOp) :=
-    z_LogicOp_ovr_0(opcode);
+    gl_ntv.z_LogicOp_ovr_0(opcode);
     
     // added in gl1.5
     private z_MapBuffer_adr := GetFuncAdr('glMapBuffer');
@@ -27189,14 +29513,14 @@ type
     
     // added in gl4.5
     private z_MapNamedBuffer_adr := GetFuncAdr('glMapNamedBuffer');
-    private z_MapNamedBuffer_ovr_0 := GetFuncOrNil&(z_MapNamedBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBuffer(buffer: BufferName; access: BufferAccessARB): IntPtr :=
+    private z_MapNamedBuffer_ovr_0 := GetFuncOrNil&(z_MapNamedBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBuffer(buffer: gl_buffer; access: BufferAccessARB): IntPtr :=
     z_MapNamedBuffer_ovr_0(buffer, access);
     
     // added in gl4.5
     private z_MapNamedBufferRange_adr := GetFuncAdr('glMapNamedBufferRange');
-    private z_MapNamedBufferRange_ovr_0 := GetFuncOrNil&(z_MapNamedBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRange(buffer: BufferName; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
+    private z_MapNamedBufferRange_ovr_0 := GetFuncOrNil&(z_MapNamedBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRange(buffer: gl_buffer; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
     z_MapNamedBufferRange_ovr_0(buffer, offset, length, access);
     
     // added in gl4.2
@@ -27512,16 +29836,11 @@ type
     // added in gl3.3
     private z_MultiTexCoordP1uiv_adr := GetFuncAdr('glMultiTexCoordP1uiv');
     private z_MultiTexCoordP1uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
-    private z_MultiTexCoordP1uiv_ovr_0_anh0001 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP1uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP1uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP1uiv_ovr_0(texture, &type, coords);
-    private z_MultiTexCoordP1uiv_ovr_2 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
+    private z_MultiTexCoordP1uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP1uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP1uiv_ovr_1(texture, &type, coords);
     
     // added in gl3.3
     private z_MultiTexCoordP2ui_adr := GetFuncAdr('glMultiTexCoordP2ui');
@@ -27532,16 +29851,11 @@ type
     // added in gl3.3
     private z_MultiTexCoordP2uiv_adr := GetFuncAdr('glMultiTexCoordP2uiv');
     private z_MultiTexCoordP2uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
-    private z_MultiTexCoordP2uiv_ovr_0_anh0001 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP2uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP2uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP2uiv_ovr_0(texture, &type, coords);
-    private z_MultiTexCoordP2uiv_ovr_2 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
+    private z_MultiTexCoordP2uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP2uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP2uiv_ovr_1(texture, &type, coords);
     
     // added in gl3.3
     private z_MultiTexCoordP3ui_adr := GetFuncAdr('glMultiTexCoordP3ui');
@@ -27552,16 +29866,11 @@ type
     // added in gl3.3
     private z_MultiTexCoordP3uiv_adr := GetFuncAdr('glMultiTexCoordP3uiv');
     private z_MultiTexCoordP3uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
-    private z_MultiTexCoordP3uiv_ovr_0_anh0001 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP3uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP3uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP3uiv_ovr_0(texture, &type, coords);
-    private z_MultiTexCoordP3uiv_ovr_2 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
+    private z_MultiTexCoordP3uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP3uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP3uiv_ovr_1(texture, &type, coords);
     
     // added in gl3.3
     private z_MultiTexCoordP4ui_adr := GetFuncAdr('glMultiTexCoordP4ui');
@@ -27572,112 +29881,107 @@ type
     // added in gl3.3
     private z_MultiTexCoordP4uiv_adr := GetFuncAdr('glMultiTexCoordP4uiv');
     private z_MultiTexCoordP4uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
-    private z_MultiTexCoordP4uiv_ovr_0_anh0001 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP4uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP4uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP4uiv_ovr_0(texture, &type, coords);
-    private z_MultiTexCoordP4uiv_ovr_2 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
+    private z_MultiTexCoordP4uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP4uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP4uiv_ovr_1(texture, &type, coords);
     
     // added in gl4.5
     private z_NamedBufferData_adr := GetFuncAdr('glNamedBufferData');
-    private z_NamedBufferData_ovr_0 := GetFuncOrNil&(z_NamedBufferData_adr);
-    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0(buffer: BufferName; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
+    private z_NamedBufferData_ovr_0 := GetFuncOrNil&(z_NamedBufferData_adr);
+    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0(buffer: gl_buffer; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
     begin
       z_NamedBufferData_ovr_0(buffer, size, PByte(pointer(@data))^, usage);
     end;
-    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0_anh00010(buffer: BufferName; size: IntPtr; usage: VertexBufferObjectUsage) :=
+    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0_anh00010(buffer: gl_buffer; size: IntPtr; usage: VertexBufferObjectUsage) :=
     z_NamedBufferData_ovr_0(buffer, size, PByte(nil)^, usage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; data: array of T; usage: VertexBufferObjectUsage); where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; data: array of T; usage: VertexBufferObjectUsage); where T: record;
     begin
       if (data<>nil) and (data.Length<>0) then
         temp_NamedBufferData_ovr_0(buffer, size, data[0], usage) else
         temp_NamedBufferData_ovr_0_anh00010(buffer, size, usage);
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
     begin
       z_NamedBufferData_ovr_0(buffer, size, PByte(pointer(@data))^, usage);
     end;
-    private z_NamedBufferData_ovr_2 := GetFuncOrNil&(z_NamedBufferData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
+    private z_NamedBufferData_ovr_2 := GetFuncOrNil&(z_NamedBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
     z_NamedBufferData_ovr_2(buffer, size, data, usage);
     
     // added in gl4.5
     private z_NamedBufferStorage_adr := GetFuncAdr('glNamedBufferStorage');
-    private z_NamedBufferStorage_ovr_0 := GetFuncOrNil&(z_NamedBufferStorage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorage(buffer: BufferName; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
+    private z_NamedBufferStorage_ovr_0 := GetFuncOrNil&(z_NamedBufferStorage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorage(buffer: gl_buffer; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
     z_NamedBufferStorage_ovr_0(buffer, size, data, flags);
     
     // added in gl4.5
     private z_NamedBufferSubData_adr := GetFuncAdr('glNamedBufferSubData');
-    private z_NamedBufferSubData_ovr_0 := GetFuncOrNil&(z_NamedBufferSubData_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubData(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_NamedBufferSubData_ovr_0 := GetFuncOrNil&(z_NamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubData(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_NamedBufferSubData_ovr_0(buffer, offset, size, data);
     
     // added in gl4.5
     private z_NamedFramebufferDrawBuffer_adr := GetFuncAdr('glNamedFramebufferDrawBuffer');
-    private z_NamedFramebufferDrawBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffer(framebuffer: FramebufferName; buf: ColorBuffer) :=
+    private z_NamedFramebufferDrawBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffer(framebuffer: gl_framebuffer; buf: ColorBuffer) :=
     z_NamedFramebufferDrawBuffer_ovr_0(framebuffer, buf);
     
     // added in gl4.5
     private z_NamedFramebufferDrawBuffers_adr := GetFuncAdr('glNamedFramebufferDrawBuffers');
-    private z_NamedFramebufferDrawBuffers_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
-    private z_NamedFramebufferDrawBuffers_ovr_0_anh0001 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; bufs: array of ColorBuffer) :=
+    private z_NamedFramebufferDrawBuffers_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    private z_NamedFramebufferDrawBuffers_ovr_0_anh0001 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; bufs: array of ColorBuffer) :=
     if (bufs<>nil) and (bufs.Length<>0) then
       z_NamedFramebufferDrawBuffers_ovr_0(framebuffer, n, bufs[0]) else
       z_NamedFramebufferDrawBuffers_ovr_0_anh0001(framebuffer, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; var bufs: ColorBuffer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; var bufs: ColorBuffer) :=
     z_NamedFramebufferDrawBuffers_ovr_0(framebuffer, n, bufs);
-    private z_NamedFramebufferDrawBuffers_ovr_2 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; bufs: IntPtr) :=
+    private z_NamedFramebufferDrawBuffers_ovr_2 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; bufs: IntPtr) :=
     z_NamedFramebufferDrawBuffers_ovr_2(framebuffer, n, bufs);
     
     // added in gl4.5
     private z_NamedFramebufferParameteri_adr := GetFuncAdr('glNamedFramebufferParameteri');
-    private z_NamedFramebufferParameteri_ovr_0 := GetFuncOrNil&(z_NamedFramebufferParameteri_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteri(framebuffer: FramebufferName; pname: FramebufferParameterName; param: Int32) :=
+    private z_NamedFramebufferParameteri_ovr_0 := GetFuncOrNil&(z_NamedFramebufferParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteri(framebuffer: gl_framebuffer; pname: FramebufferParameterName; param: Int32) :=
     z_NamedFramebufferParameteri_ovr_0(framebuffer, pname, param);
     
     // added in gl4.5
     private z_NamedFramebufferReadBuffer_adr := GetFuncAdr('glNamedFramebufferReadBuffer');
-    private z_NamedFramebufferReadBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferReadBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferReadBuffer(framebuffer: FramebufferName; src: ColorBuffer) :=
+    private z_NamedFramebufferReadBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferReadBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferReadBuffer(framebuffer: gl_framebuffer; src: ColorBuffer) :=
     z_NamedFramebufferReadBuffer_ovr_0(framebuffer, src);
     
     // added in gl4.5
     private z_NamedFramebufferRenderbuffer_adr := GetFuncAdr('glNamedFramebufferRenderbuffer');
-    private z_NamedFramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferRenderbuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbuffer(framebuffer: FramebufferName; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_NamedFramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbuffer(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_NamedFramebufferRenderbuffer_ovr_0(framebuffer, attachment, _renderbuffertarget, renderbuffer);
     
     // added in gl4.5
     private z_NamedFramebufferTexture_adr := GetFuncAdr('glNamedFramebufferTexture');
-    private z_NamedFramebufferTexture_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32) :=
+    private z_NamedFramebufferTexture_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_NamedFramebufferTexture_ovr_0(framebuffer, attachment, texture, level);
     
     // added in gl4.5
     private z_NamedFramebufferTextureLayer_adr := GetFuncAdr('glNamedFramebufferTextureLayer');
-    private z_NamedFramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureLayer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayer(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32) :=
+    private z_NamedFramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureLayer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayer(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_NamedFramebufferTextureLayer_ovr_0(framebuffer, attachment, texture, level, layer);
     
     // added in gl4.5
     private z_NamedRenderbufferStorage_adr := GetFuncAdr('glNamedRenderbufferStorage');
-    private z_NamedRenderbufferStorage_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorage_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorage(renderbuffer: RenderbufferName; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorage_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorage(renderbuffer: gl_renderbuffer; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorage_ovr_0(renderbuffer, _internalformat, width, height);
     
     // added in gl4.5
     private z_NamedRenderbufferStorageMultisample_adr := GetFuncAdr('glNamedRenderbufferStorageMultisample');
-    private z_NamedRenderbufferStorageMultisample_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisample_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisample(renderbuffer: RenderbufferName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageMultisample_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisample(renderbuffer: gl_renderbuffer; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageMultisample_ovr_0(renderbuffer, samples, _internalformat, width, height);
     
     // added in gl3.3
@@ -27689,16 +29993,11 @@ type
     // added in gl3.3
     private z_NormalP3uiv_adr := GetFuncAdr('glNormalP3uiv');
     private z_NormalP3uiv_ovr_0 := GetFuncOrNil&(z_NormalP3uiv_adr);
-    private z_NormalP3uiv_ovr_0_anh001 := GetFuncOrNil&(z_NormalP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_NormalP3uiv_ovr_0(&type, coords[0]) else
-      z_NormalP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; var coords: UInt32) :=
     z_NormalP3uiv_ovr_0(&type, coords);
-    private z_NormalP3uiv_ovr_2 := GetFuncOrNil&(z_NormalP3uiv_adr);
+    private z_NormalP3uiv_ovr_1 := GetFuncOrNil&(z_NormalP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; coords: IntPtr) :=
-    z_NormalP3uiv_ovr_2(&type, coords);
+    z_NormalP3uiv_ovr_1(&type, coords);
     
     // added in gl4.3
     private z_ObjectLabel_adr := GetFuncAdr('glObjectLabel');
@@ -27759,16 +30058,12 @@ type
     z_PauseTransformFeedback_ovr_0;
     
     // added in gl1.0
-    private static procedure z_PixelStoref_ovr_0(pname: PixelStoreParameter; param: single);
-    external 'opengl32.dll' name 'glPixelStoref';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelStoref(pname: PixelStoreParameter; param: single) :=
-    z_PixelStoref_ovr_0(pname, param);
+    gl_ntv.z_PixelStoref_ovr_0(pname, param);
     
     // added in gl1.0
-    private static procedure z_PixelStorei_ovr_0(pname: PixelStoreParameter; param: Int32);
-    external 'opengl32.dll' name 'glPixelStorei';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelStorei(pname: PixelStoreParameter; param: Int32) :=
-    z_PixelStorei_ovr_0(pname, param);
+    gl_ntv.z_PixelStorei_ovr_0(pname, param);
     
     // added in gl1.4
     private z_PointParameterf_adr := GetFuncAdr('glPointParameterf');
@@ -27811,22 +30106,16 @@ type
     z_PointParameteriv_ovr_2(pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_PointSize_ovr_0(size: single);
-    external 'opengl32.dll' name 'glPointSize';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointSize(size: single) :=
-    z_PointSize_ovr_0(size);
+    gl_ntv.z_PointSize_ovr_0(size);
     
     // added in gl1.0
-    private static procedure z_PolygonMode_ovr_0(face: MaterialFace; mode: OpenGL.PolygonMode);
-    external 'opengl32.dll' name 'glPolygonMode';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonMode(face: MaterialFace; mode: OpenGL.PolygonMode) :=
-    z_PolygonMode_ovr_0(face, mode);
+    gl_ntv.z_PolygonMode_ovr_0(face, mode);
     
     // added in gl1.1
-    private static procedure z_PolygonOffset_ovr_0(factor: single; units: single);
-    external 'opengl32.dll' name 'glPolygonOffset';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonOffset(factor: single; units: single) :=
-    z_PolygonOffset_ovr_0(factor, units);
+    gl_ntv.z_PolygonOffset_ovr_0(factor, units);
     
     // added in gl4.6
     private z_PolygonOffsetClamp_adr := GetFuncAdr('glPolygonOffsetClamp');
@@ -27848,586 +30137,586 @@ type
     
     // added in gl4.1
     private z_ProgramBinary_adr := GetFuncAdr('glProgramBinary');
-    private z_ProgramBinary_ovr_0 := GetFuncOrNil&(z_ProgramBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBinary(&program: UInt32; binaryFormat: DummyEnum; binary: IntPtr; length: Int32) :=
+    private z_ProgramBinary_ovr_0 := GetFuncOrNil&(z_ProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBinary(&program: gl_program; binaryFormat: DummyEnum; binary: IntPtr; length: Int32) :=
     z_ProgramBinary_ovr_0(&program, binaryFormat, binary, length);
     
     // added in gl4.1
     private z_ProgramParameteri_adr := GetFuncAdr('glProgramParameteri');
-    private z_ProgramParameteri_ovr_0 := GetFuncOrNil&(z_ProgramParameteri_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: ProgramName; pname: ProgramParameterPName; value: Int32) :=
+    private z_ProgramParameteri_ovr_0 := GetFuncOrNil&(z_ProgramParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: gl_program; pname: ProgramParameterPName; value: Int32) :=
     z_ProgramParameteri_ovr_0(&program, pname, value);
     
     // added in gl4.1
     private z_ProgramUniform1d_adr := GetFuncAdr('glProgramUniform1d');
-    private z_ProgramUniform1d_ovr_0 := GetFuncOrNil&(z_ProgramUniform1d_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1d(&program: ProgramName; location: Int32; v0: real) :=
+    private z_ProgramUniform1d_ovr_0 := GetFuncOrNil&(z_ProgramUniform1d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1d(&program: gl_program; location: Int32; v0: real) :=
     z_ProgramUniform1d_ovr_0(&program, location, v0);
     
     // added in gl4.1
     private z_ProgramUniform1dv_adr := GetFuncAdr('glProgramUniform1dv');
-    private z_ProgramUniform1dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
-    private z_ProgramUniform1dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform1dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    private z_ProgramUniform1dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform1dv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform1dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1dv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform1f_adr := GetFuncAdr('glProgramUniform1f');
-    private z_ProgramUniform1f_ovr_0 := GetFuncOrNil&(z_ProgramUniform1f_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1f(&program: ProgramName; location: Int32; v0: single) :=
+    private z_ProgramUniform1f_ovr_0 := GetFuncOrNil&(z_ProgramUniform1f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1f(&program: gl_program; location: Int32; v0: single) :=
     z_ProgramUniform1f_ovr_0(&program, location, v0);
     
     // added in gl4.1
     private z_ProgramUniform1fv_adr := GetFuncAdr('glProgramUniform1fv');
-    private z_ProgramUniform1fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
-    private z_ProgramUniform1fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform1fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    private z_ProgramUniform1fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform1fv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform1fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1fv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform1i_adr := GetFuncAdr('glProgramUniform1i');
-    private z_ProgramUniform1i_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i(&program: ProgramName; location: Int32; v0: Int32) :=
+    private z_ProgramUniform1i_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i(&program: gl_program; location: Int32; v0: Int32) :=
     z_ProgramUniform1i_ovr_0(&program, location, v0);
     
     // added in gl4.1
     private z_ProgramUniform1iv_adr := GetFuncAdr('glProgramUniform1iv');
-    private z_ProgramUniform1iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
-    private z_ProgramUniform1iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform1iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    private z_ProgramUniform1iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform1iv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform1iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1iv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform1ui_adr := GetFuncAdr('glProgramUniform1ui');
-    private z_ProgramUniform1ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui(&program: ProgramName; location: Int32; v0: UInt32) :=
+    private z_ProgramUniform1ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui(&program: gl_program; location: Int32; v0: UInt32) :=
     z_ProgramUniform1ui_ovr_0(&program, location, v0);
     
     // added in gl4.1
     private z_ProgramUniform1uiv_adr := GetFuncAdr('glProgramUniform1uiv');
-    private z_ProgramUniform1uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
-    private z_ProgramUniform1uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform1uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    private z_ProgramUniform1uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform1uiv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform1uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1uiv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform2d_adr := GetFuncAdr('glProgramUniform2d');
-    private z_ProgramUniform2d_ovr_0 := GetFuncOrNil&(z_ProgramUniform2d_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2d(&program: ProgramName; location: Int32; v0: real; v1: real) :=
+    private z_ProgramUniform2d_ovr_0 := GetFuncOrNil&(z_ProgramUniform2d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2d(&program: gl_program; location: Int32; v0: real; v1: real) :=
     z_ProgramUniform2d_ovr_0(&program, location, v0, v1);
     
     // added in gl4.1
     private z_ProgramUniform2dv_adr := GetFuncAdr('glProgramUniform2dv');
-    private z_ProgramUniform2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
-    private z_ProgramUniform2dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    private z_ProgramUniform2dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform2dv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2dv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform2f_adr := GetFuncAdr('glProgramUniform2f');
-    private z_ProgramUniform2f_ovr_0 := GetFuncOrNil&(z_ProgramUniform2f_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2f(&program: ProgramName; location: Int32; v0: single; v1: single) :=
+    private z_ProgramUniform2f_ovr_0 := GetFuncOrNil&(z_ProgramUniform2f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2f(&program: gl_program; location: Int32; v0: single; v1: single) :=
     z_ProgramUniform2f_ovr_0(&program, location, v0, v1);
     
     // added in gl4.1
     private z_ProgramUniform2fv_adr := GetFuncAdr('glProgramUniform2fv');
-    private z_ProgramUniform2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
-    private z_ProgramUniform2fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    private z_ProgramUniform2fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform2fv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2fv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform2i_adr := GetFuncAdr('glProgramUniform2i');
-    private z_ProgramUniform2i_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32) :=
+    private z_ProgramUniform2i_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i(&program: gl_program; location: Int32; v0: Int32; v1: Int32) :=
     z_ProgramUniform2i_ovr_0(&program, location, v0, v1);
     
     // added in gl4.1
     private z_ProgramUniform2iv_adr := GetFuncAdr('glProgramUniform2iv');
-    private z_ProgramUniform2iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
-    private z_ProgramUniform2iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform2iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    private z_ProgramUniform2iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform2iv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform2iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2iv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform2ui_adr := GetFuncAdr('glProgramUniform2ui');
-    private z_ProgramUniform2ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32) :=
+    private z_ProgramUniform2ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32) :=
     z_ProgramUniform2ui_ovr_0(&program, location, v0, v1);
     
     // added in gl4.1
     private z_ProgramUniform2uiv_adr := GetFuncAdr('glProgramUniform2uiv');
-    private z_ProgramUniform2uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
-    private z_ProgramUniform2uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform2uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    private z_ProgramUniform2uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform2uiv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform2uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2uiv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform3d_adr := GetFuncAdr('glProgramUniform3d');
-    private z_ProgramUniform3d_ovr_0 := GetFuncOrNil&(z_ProgramUniform3d_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3d(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real) :=
+    private z_ProgramUniform3d_ovr_0 := GetFuncOrNil&(z_ProgramUniform3d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3d(&program: gl_program; location: Int32; v0: real; v1: real; v2: real) :=
     z_ProgramUniform3d_ovr_0(&program, location, v0, v1, v2);
     
     // added in gl4.1
     private z_ProgramUniform3dv_adr := GetFuncAdr('glProgramUniform3dv');
-    private z_ProgramUniform3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
-    private z_ProgramUniform3dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    private z_ProgramUniform3dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform3dv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3dv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform3f_adr := GetFuncAdr('glProgramUniform3f');
-    private z_ProgramUniform3f_ovr_0 := GetFuncOrNil&(z_ProgramUniform3f_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3f(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single) :=
+    private z_ProgramUniform3f_ovr_0 := GetFuncOrNil&(z_ProgramUniform3f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3f(&program: gl_program; location: Int32; v0: single; v1: single; v2: single) :=
     z_ProgramUniform3f_ovr_0(&program, location, v0, v1, v2);
     
     // added in gl4.1
     private z_ProgramUniform3fv_adr := GetFuncAdr('glProgramUniform3fv');
-    private z_ProgramUniform3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
-    private z_ProgramUniform3fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    private z_ProgramUniform3fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform3fv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3fv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform3i_adr := GetFuncAdr('glProgramUniform3i');
-    private z_ProgramUniform3i_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
+    private z_ProgramUniform3i_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
     z_ProgramUniform3i_ovr_0(&program, location, v0, v1, v2);
     
     // added in gl4.1
     private z_ProgramUniform3iv_adr := GetFuncAdr('glProgramUniform3iv');
-    private z_ProgramUniform3iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
-    private z_ProgramUniform3iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform3iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    private z_ProgramUniform3iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform3iv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform3iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3iv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform3ui_adr := GetFuncAdr('glProgramUniform3ui');
-    private z_ProgramUniform3ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
+    private z_ProgramUniform3ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
     z_ProgramUniform3ui_ovr_0(&program, location, v0, v1, v2);
     
     // added in gl4.1
     private z_ProgramUniform3uiv_adr := GetFuncAdr('glProgramUniform3uiv');
-    private z_ProgramUniform3uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
-    private z_ProgramUniform3uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform3uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    private z_ProgramUniform3uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform3uiv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform3uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3uiv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform4d_adr := GetFuncAdr('glProgramUniform4d');
-    private z_ProgramUniform4d_ovr_0 := GetFuncOrNil&(z_ProgramUniform4d_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4d(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real; v3: real) :=
+    private z_ProgramUniform4d_ovr_0 := GetFuncOrNil&(z_ProgramUniform4d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4d(&program: gl_program; location: Int32; v0: real; v1: real; v2: real; v3: real) :=
     z_ProgramUniform4d_ovr_0(&program, location, v0, v1, v2, v3);
     
     // added in gl4.1
     private z_ProgramUniform4dv_adr := GetFuncAdr('glProgramUniform4dv');
-    private z_ProgramUniform4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
-    private z_ProgramUniform4dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    private z_ProgramUniform4dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform4dv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4dv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform4f_adr := GetFuncAdr('glProgramUniform4f');
-    private z_ProgramUniform4f_ovr_0 := GetFuncOrNil&(z_ProgramUniform4f_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4f(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
+    private z_ProgramUniform4f_ovr_0 := GetFuncOrNil&(z_ProgramUniform4f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4f(&program: gl_program; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
     z_ProgramUniform4f_ovr_0(&program, location, v0, v1, v2, v3);
     
     // added in gl4.1
     private z_ProgramUniform4fv_adr := GetFuncAdr('glProgramUniform4fv');
-    private z_ProgramUniform4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
-    private z_ProgramUniform4fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    private z_ProgramUniform4fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform4fv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4fv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform4i_adr := GetFuncAdr('glProgramUniform4i');
-    private z_ProgramUniform4i_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
+    private z_ProgramUniform4i_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
     z_ProgramUniform4i_ovr_0(&program, location, v0, v1, v2, v3);
     
     // added in gl4.1
     private z_ProgramUniform4iv_adr := GetFuncAdr('glProgramUniform4iv');
-    private z_ProgramUniform4iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
-    private z_ProgramUniform4iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform4iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    private z_ProgramUniform4iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform4iv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform4iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4iv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniform4ui_adr := GetFuncAdr('glProgramUniform4ui');
-    private z_ProgramUniform4ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
+    private z_ProgramUniform4ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
     z_ProgramUniform4ui_ovr_0(&program, location, v0, v1, v2, v3);
     
     // added in gl4.1
     private z_ProgramUniform4uiv_adr := GetFuncAdr('glProgramUniform4uiv');
-    private z_ProgramUniform4uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
-    private z_ProgramUniform4uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform4uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    private z_ProgramUniform4uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform4uiv_ovr_0(&program, location, count, value);
-    private z_ProgramUniform4uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4uiv_ovr_2(&program, location, count, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2dv_adr := GetFuncAdr('glProgramUniformMatrix2dv');
-    private z_ProgramUniformMatrix2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
-    private z_ProgramUniformMatrix2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    private z_ProgramUniformMatrix2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2fv_adr := GetFuncAdr('glProgramUniformMatrix2fv');
-    private z_ProgramUniformMatrix2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
-    private z_ProgramUniformMatrix2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    private z_ProgramUniformMatrix2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2x3dv_adr := GetFuncAdr('glProgramUniformMatrix2x3dv');
-    private z_ProgramUniformMatrix2x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
-    private z_ProgramUniformMatrix2x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    private z_ProgramUniformMatrix2x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x3dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2x3fv_adr := GetFuncAdr('glProgramUniformMatrix2x3fv');
-    private z_ProgramUniformMatrix2x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
-    private z_ProgramUniformMatrix2x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    private z_ProgramUniformMatrix2x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x3fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2x4dv_adr := GetFuncAdr('glProgramUniformMatrix2x4dv');
-    private z_ProgramUniformMatrix2x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
-    private z_ProgramUniformMatrix2x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    private z_ProgramUniformMatrix2x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x4dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix2x4fv_adr := GetFuncAdr('glProgramUniformMatrix2x4fv');
-    private z_ProgramUniformMatrix2x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
-    private z_ProgramUniformMatrix2x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    private z_ProgramUniformMatrix2x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x4fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix2x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3dv_adr := GetFuncAdr('glProgramUniformMatrix3dv');
-    private z_ProgramUniformMatrix3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
-    private z_ProgramUniformMatrix3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    private z_ProgramUniformMatrix3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3fv_adr := GetFuncAdr('glProgramUniformMatrix3fv');
-    private z_ProgramUniformMatrix3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
-    private z_ProgramUniformMatrix3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    private z_ProgramUniformMatrix3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3x2dv_adr := GetFuncAdr('glProgramUniformMatrix3x2dv');
-    private z_ProgramUniformMatrix3x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
-    private z_ProgramUniformMatrix3x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    private z_ProgramUniformMatrix3x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x2dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3x2fv_adr := GetFuncAdr('glProgramUniformMatrix3x2fv');
-    private z_ProgramUniformMatrix3x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
-    private z_ProgramUniformMatrix3x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    private z_ProgramUniformMatrix3x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x2fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3x4dv_adr := GetFuncAdr('glProgramUniformMatrix3x4dv');
-    private z_ProgramUniformMatrix3x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
-    private z_ProgramUniformMatrix3x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    private z_ProgramUniformMatrix3x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x4dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix3x4fv_adr := GetFuncAdr('glProgramUniformMatrix3x4fv');
-    private z_ProgramUniformMatrix3x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
-    private z_ProgramUniformMatrix3x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    private z_ProgramUniformMatrix3x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x4fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix3x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4dv_adr := GetFuncAdr('glProgramUniformMatrix4dv');
-    private z_ProgramUniformMatrix4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
-    private z_ProgramUniformMatrix4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    private z_ProgramUniformMatrix4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4fv_adr := GetFuncAdr('glProgramUniformMatrix4fv');
-    private z_ProgramUniformMatrix4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
-    private z_ProgramUniformMatrix4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    private z_ProgramUniformMatrix4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4x2dv_adr := GetFuncAdr('glProgramUniformMatrix4x2dv');
-    private z_ProgramUniformMatrix4x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
-    private z_ProgramUniformMatrix4x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    private z_ProgramUniformMatrix4x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x2dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4x2fv_adr := GetFuncAdr('glProgramUniformMatrix4x2fv');
-    private z_ProgramUniformMatrix4x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
-    private z_ProgramUniformMatrix4x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    private z_ProgramUniformMatrix4x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x2fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4x3dv_adr := GetFuncAdr('glProgramUniformMatrix4x3dv');
-    private z_ProgramUniformMatrix4x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
-    private z_ProgramUniformMatrix4x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    private z_ProgramUniformMatrix4x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x3dv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3dv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl4.1
     private z_ProgramUniformMatrix4x3fv_adr := GetFuncAdr('glProgramUniformMatrix4x3fv');
-    private z_ProgramUniformMatrix4x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
-    private z_ProgramUniformMatrix4x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    private z_ProgramUniformMatrix4x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x3fv_ovr_0(&program, location, count, transpose, value);
-    private z_ProgramUniformMatrix4x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3fv_ovr_2(&program, location, count, transpose, value);
     
     // added in gl3.2
@@ -28454,15 +30743,13 @@ type
     
     // added in gl3.3
     private z_QueryCounter_adr := GetFuncAdr('glQueryCounter');
-    private z_QueryCounter_ovr_0 := GetFuncOrNil&(z_QueryCounter_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryCounter(id: QueryName; target: QueryCounterTarget) :=
+    private z_QueryCounter_ovr_0 := GetFuncOrNil&(z_QueryCounter_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryCounter(id: gl_query; target: QueryCounterTarget) :=
     z_QueryCounter_ovr_0(id, target);
     
     // added in gl1.0
-    private static procedure z_ReadBuffer_ovr_0(src: ReadBufferMode);
-    external 'opengl32.dll' name 'glReadBuffer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReadBuffer(src: ReadBufferMode) :=
-    z_ReadBuffer_ovr_0(src);
+    gl_ntv.z_ReadBuffer_ovr_0(src);
     
     // added in gl4.5
     private z_ReadnPixels_adr := GetFuncAdr('glReadnPixels');
@@ -28471,10 +30758,8 @@ type
     z_ReadnPixels_ovr_0(x, y, width, height, format, &type, bufSize, data);
     
     // added in gl1.0
-    private static procedure z_ReadPixels_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glReadPixels';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReadPixels(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_ReadPixels_ovr_0(x, y, width, height, format, &type, pixels);
+    gl_ntv.z_ReadPixels_ovr_0(x, y, width, height, format, &type, pixels);
     
     // added in gl4.1
     private z_ReleaseShaderCompiler_adr := GetFuncAdr('glReleaseShaderCompiler');
@@ -28514,77 +30799,75 @@ type
     
     // added in gl3.3
     private z_SamplerParameterf_adr := GetFuncAdr('glSamplerParameterf');
-    private z_SamplerParameterf_ovr_0 := GetFuncOrNil&(z_SamplerParameterf_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterf(sampler: SamplerName; pname: OpenGL.SamplerParameterF; param: single) :=
+    private z_SamplerParameterf_ovr_0 := GetFuncOrNil&(z_SamplerParameterf_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterf(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: single) :=
     z_SamplerParameterf_ovr_0(sampler, pname, param);
     
     // added in gl3.3
     private z_SamplerParameterfv_adr := GetFuncAdr('glSamplerParameterfv');
-    private z_SamplerParameterfv_ovr_0 := GetFuncOrNil&(z_SamplerParameterfv_adr);
-    private z_SamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: array of single) :=
+    private z_SamplerParameterfv_ovr_0 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    private z_SamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterfv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterfv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; var param: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; var param: single) :=
     z_SamplerParameterfv_ovr_0(sampler, pname, param);
-    private z_SamplerParameterfv_ovr_2 := GetFuncOrNil&(z_SamplerParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: IntPtr) :=
+    private z_SamplerParameterfv_ovr_2 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: IntPtr) :=
     z_SamplerParameterfv_ovr_2(sampler, pname, param);
     
     // added in gl3.3
     private z_SamplerParameteri_adr := GetFuncAdr('glSamplerParameteri');
-    private z_SamplerParameteri_ovr_0 := GetFuncOrNil&(z_SamplerParameteri_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteri(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: Int32) :=
+    private z_SamplerParameteri_ovr_0 := GetFuncOrNil&(z_SamplerParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteri(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: Int32) :=
     z_SamplerParameteri_ovr_0(sampler, pname, param);
     
     // added in gl3.3
     private z_SamplerParameterIiv_adr := GetFuncAdr('glSamplerParameterIiv');
-    private z_SamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
-    private z_SamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
+    private z_SamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    private z_SamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterIiv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterIiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: Int32) :=
     z_SamplerParameterIiv_ovr_0(sampler, pname, param);
-    private z_SamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameterIiv_ovr_2(sampler, pname, param);
     
     // added in gl3.3
     private z_SamplerParameterIuiv_adr := GetFuncAdr('glSamplerParameterIuiv');
-    private z_SamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
-    private z_SamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of UInt32) :=
+    private z_SamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    private z_SamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of UInt32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterIuiv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterIuiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: UInt32) :=
     z_SamplerParameterIuiv_ovr_0(sampler, pname, param);
-    private z_SamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameterIuiv_ovr_2(sampler, pname, param);
     
     // added in gl3.3
     private z_SamplerParameteriv_adr := GetFuncAdr('glSamplerParameteriv');
-    private z_SamplerParameteriv_ovr_0 := GetFuncOrNil&(z_SamplerParameteriv_adr);
-    private z_SamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
+    private z_SamplerParameteriv_ovr_0 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    private z_SamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameteriv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameteriv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: Int32) :=
     z_SamplerParameteriv_ovr_0(sampler, pname, param);
-    private z_SamplerParameteriv_ovr_2 := GetFuncOrNil&(z_SamplerParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameteriv_ovr_2 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameteriv_ovr_2(sampler, pname, param);
     
     // added in gl1.0
-    private static procedure z_Scissor_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glScissor';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Scissor(x: Int32; y: Int32; width: Int32; height: Int32) :=
-    z_Scissor_ovr_0(x, y, width, height);
+    gl_ntv.z_Scissor_ovr_0(x, y, width, height);
     
     // added in gl4.1
     private z_ScissorArrayv_adr := GetFuncAdr('glScissorArrayv');
@@ -28629,38 +30912,33 @@ type
     // added in gl3.3
     private z_SecondaryColorP3uiv_adr := GetFuncAdr('glSecondaryColorP3uiv');
     private z_SecondaryColorP3uiv_ovr_0 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
-    private z_SecondaryColorP3uiv_ovr_0_anh001 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_SecondaryColorP3uiv_ovr_0(&type, color[0]) else
-      z_SecondaryColorP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; var color: UInt32) :=
     z_SecondaryColorP3uiv_ovr_0(&type, color);
-    private z_SecondaryColorP3uiv_ovr_2 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
+    private z_SecondaryColorP3uiv_ovr_1 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_SecondaryColorP3uiv_ovr_2(&type, color);
+    z_SecondaryColorP3uiv_ovr_1(&type, color);
     
     // added in gl4.1
     private z_ShaderBinary_adr := GetFuncAdr('glShaderBinary');
-    private z_ShaderBinary_ovr_0 := GetFuncOrNil&(z_ShaderBinary_adr);
-    private z_ShaderBinary_ovr_0_anh001000 := GetFuncOrNil&(z_ShaderBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: array of UInt32; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
+    private z_ShaderBinary_ovr_0 := GetFuncOrNil&(z_ShaderBinary_adr);
+    private z_ShaderBinary_ovr_0_anh001000 := GetFuncOrNil&(z_ShaderBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: array of gl_shader; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
     if (shaders<>nil) and (shaders.Length<>0) then
-      z_ShaderBinary_ovr_0(count, shaders[0], binaryformat, binary, length) else
-      z_ShaderBinary_ovr_0_anh001000(count, IntPtr.Zero, binaryformat, binary, length);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; var shaders: UInt32; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
-    z_ShaderBinary_ovr_0(count, shaders, binaryformat, binary, length);
-    private z_ShaderBinary_ovr_2 := GetFuncOrNil&(z_ShaderBinary_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: IntPtr; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
-    z_ShaderBinary_ovr_2(count, shaders, binaryformat, binary, length);
+      z_ShaderBinary_ovr_0(count, shaders[0], binaryFormat, binary, length) else
+      z_ShaderBinary_ovr_0_anh001000(count, IntPtr.Zero, binaryFormat, binary, length);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; var shaders: gl_shader; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
+    z_ShaderBinary_ovr_0(count, shaders, binaryFormat, binary, length);
+    private z_ShaderBinary_ovr_2 := GetFuncOrNil&(z_ShaderBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: IntPtr; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
+    z_ShaderBinary_ovr_2(count, shaders, binaryFormat, binary, length);
     
     // added in gl2.0
     private z_ShaderSource_adr := GetFuncAdr('glShaderSource');
-    private z_ShaderSource_ovr_0 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_0_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_0_anh00001 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_0_anh00011 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of string; length: array of Int32);
+    private z_ShaderSource_ovr_0 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_0_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_0_anh00001 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_0_anh00011 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of string; length: array of Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -28676,8 +30954,8 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_ShaderSource_ovr_1_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of string; var length: Int32);
+    private z_ShaderSource_ovr_1_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of string; var length: Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -28689,9 +30967,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_ShaderSource_ovr_2 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_2_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of string; length: IntPtr);
+    private z_ShaderSource_ovr_2 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_2_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of string; length: IntPtr);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -28703,9 +30981,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_ShaderSource_ovr_3_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_3_anh00011 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of IntPtr; length: array of Int32) :=
+    private z_ShaderSource_ovr_3_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_3_anh00011 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of IntPtr; length: array of Int32) :=
     if (_string<>nil) and (_string.Length<>0) then
       if (length<>nil) and (length.Length<>0) then
         z_ShaderSource_ovr_0(shader, count, _string[0], length[0]) else
@@ -28713,41 +30991,41 @@ type
       if (length<>nil) and (length.Length<>0) then
         z_ShaderSource_ovr_0_anh00010(shader, count, IntPtr.Zero, length[0]) else
         z_ShaderSource_ovr_0_anh00011(shader, count, IntPtr.Zero, IntPtr.Zero);
-    private z_ShaderSource_ovr_4_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of IntPtr; var length: Int32) :=
+    private z_ShaderSource_ovr_4_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of IntPtr; var length: Int32) :=
     if (_string<>nil) and (_string.Length<>0) then
       z_ShaderSource_ovr_0(shader, count, _string[0], length) else
       z_ShaderSource_ovr_0_anh00010(shader, count, IntPtr.Zero, length);
-    private z_ShaderSource_ovr_5_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: array of IntPtr; length: IntPtr) :=
+    private z_ShaderSource_ovr_5_anh00010 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: array of IntPtr; length: IntPtr) :=
     if (_string<>nil) and (_string.Length<>0) then
       z_ShaderSource_ovr_2(shader, count, _string[0], length) else
       z_ShaderSource_ovr_2_anh00010(shader, count, IntPtr.Zero, length);
-    private z_ShaderSource_ovr_6 := GetFuncOrNil&(z_ShaderSource_adr);
-    private z_ShaderSource_ovr_6_anh00001 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: IntPtr; length: array of Int32) :=
+    private z_ShaderSource_ovr_6 := GetFuncOrNil&(z_ShaderSource_adr);
+    private z_ShaderSource_ovr_6_anh00001 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: IntPtr; length: array of Int32) :=
     if (length<>nil) and (length.Length<>0) then
       z_ShaderSource_ovr_6(shader, count, _string, length[0]) else
       z_ShaderSource_ovr_6_anh00001(shader, count, _string, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: IntPtr; var length: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: IntPtr; var length: Int32) :=
     z_ShaderSource_ovr_6(shader, count, _string, length);
-    private z_ShaderSource_ovr_8 := GetFuncOrNil&(z_ShaderSource_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: ShaderName; count: Int32; _string: IntPtr; length: IntPtr) :=
+    private z_ShaderSource_ovr_8 := GetFuncOrNil&(z_ShaderSource_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSource(shader: gl_shader; count: Int32; _string: IntPtr; length: IntPtr) :=
     z_ShaderSource_ovr_8(shader, count, _string, length);
     
     // added in gl4.3
     private z_ShaderStorageBlockBinding_adr := GetFuncAdr('glShaderStorageBlockBinding');
-    private z_ShaderStorageBlockBinding_ovr_0 := GetFuncOrNil&(z_ShaderStorageBlockBinding_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderStorageBlockBinding(&program: ProgramName; storageBlockIndex: UInt32; storageBlockBinding: UInt32) :=
+    private z_ShaderStorageBlockBinding_ovr_0 := GetFuncOrNil&(z_ShaderStorageBlockBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderStorageBlockBinding(&program: gl_program; storageBlockIndex: UInt32; storageBlockBinding: UInt32) :=
     z_ShaderStorageBlockBinding_ovr_0(&program, storageBlockIndex, storageBlockBinding);
     
     // added in gl4.6
     private z_SpecializeShader_adr := GetFuncAdr('glSpecializeShader');
-    private z_SpecializeShader_ovr_0 := GetFuncOrNil&(z_SpecializeShader_adr);
-    private z_SpecializeShader_ovr_0_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
-    private z_SpecializeShader_ovr_0_anh000001 := GetFuncOrNil&(z_SpecializeShader_adr);
-    private z_SpecializeShader_ovr_0_anh000011 := GetFuncOrNil&(z_SpecializeShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32);
+    private z_SpecializeShader_ovr_0 := GetFuncOrNil&(z_SpecializeShader_adr);
+    private z_SpecializeShader_ovr_0_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
+    private z_SpecializeShader_ovr_0_anh000001 := GetFuncOrNil&(z_SpecializeShader_adr);
+    private z_SpecializeShader_ovr_0_anh000011 := GetFuncOrNil&(z_SpecializeShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28763,8 +31041,8 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private z_SpecializeShader_ovr_1_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32);
+    private z_SpecializeShader_ovr_1_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28776,9 +31054,9 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private z_SpecializeShader_ovr_2 := GetFuncOrNil&(z_SpecializeShader_adr);
-    private z_SpecializeShader_ovr_2_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr);
+    private z_SpecializeShader_ovr_2 := GetFuncOrNil&(z_SpecializeShader_adr);
+    private z_SpecializeShader_ovr_2_anh000010 := GetFuncOrNil&(z_SpecializeShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28790,7 +31068,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28802,7 +31080,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28812,7 +31090,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28822,9 +31100,9 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private z_SpecializeShader_ovr_6 := GetFuncOrNil&(z_SpecializeShader_adr);
-    private z_SpecializeShader_ovr_6_anh000001 := GetFuncOrNil&(z_SpecializeShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32);
+    private z_SpecializeShader_ovr_6 := GetFuncOrNil&(z_SpecializeShader_adr);
+    private z_SpecializeShader_ovr_6_anh000001 := GetFuncOrNil&(z_SpecializeShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28836,7 +31114,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28846,8 +31124,8 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private z_SpecializeShader_ovr_8 := GetFuncOrNil&(z_SpecializeShader_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
+    private z_SpecializeShader_ovr_8 := GetFuncOrNil&(z_SpecializeShader_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -28857,7 +31135,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
         z_SpecializeShader_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue[0]) else
@@ -28865,36 +31143,34 @@ type
       if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
         z_SpecializeShader_ovr_0_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue[0]) else
         z_SpecializeShader_ovr_0_anh000011(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       z_SpecializeShader_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue) else
       z_SpecializeShader_ovr_0_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       z_SpecializeShader_ovr_2(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue) else
       z_SpecializeShader_ovr_2_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32) :=
     if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
       z_SpecializeShader_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue[0]) else
       z_SpecializeShader_ovr_0_anh000001(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32) :=
     z_SpecializeShader_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr) :=
     z_SpecializeShader_ovr_2(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32) :=
     if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
       z_SpecializeShader_ovr_6(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue[0]) else
       z_SpecializeShader_ovr_6_anh000001(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32) :=
     z_SpecializeShader_ovr_6(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShader(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr) :=
     z_SpecializeShader_ovr_8(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
     
     // added in gl1.0
-    private static procedure z_StencilFunc_ovr_0(func: StencilFunction; ref: Int32; mask: UInt32);
-    external 'opengl32.dll' name 'glStencilFunc';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFunc(func: StencilFunction; ref: Int32; mask: UInt32) :=
-    z_StencilFunc_ovr_0(func, ref, mask);
+    gl_ntv.z_StencilFunc_ovr_0(func, ref, mask);
     
     // added in gl2.0
     private z_StencilFuncSeparate_adr := GetFuncAdr('glStencilFuncSeparate');
@@ -28903,10 +31179,8 @@ type
     z_StencilFuncSeparate_ovr_0(face, func, ref, mask);
     
     // added in gl1.0
-    private static procedure z_StencilMask_ovr_0(mask: UInt32);
-    external 'opengl32.dll' name 'glStencilMask';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilMask(mask: UInt32) :=
-    z_StencilMask_ovr_0(mask);
+    gl_ntv.z_StencilMask_ovr_0(mask);
     
     // added in gl2.0
     private z_StencilMaskSeparate_adr := GetFuncAdr('glStencilMaskSeparate');
@@ -28915,10 +31189,8 @@ type
     z_StencilMaskSeparate_ovr_0(face, mask);
     
     // added in gl1.0
-    private static procedure z_StencilOp_ovr_0(fail: OpenGL.StencilOp; zfail: OpenGL.StencilOp; zpass: OpenGL.StencilOp);
-    external 'opengl32.dll' name 'glStencilOp';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilOp(fail: OpenGL.StencilOp; zfail: OpenGL.StencilOp; zpass: OpenGL.StencilOp) :=
-    z_StencilOp_ovr_0(fail, zfail, zpass);
+    gl_ntv.z_StencilOp_ovr_0(fail, zfail, zpass);
     
     // added in gl2.0
     private z_StencilOpSeparate_adr := GetFuncAdr('glStencilOpSeparate');
@@ -28928,14 +31200,14 @@ type
     
     // added in gl3.1
     private z_TexBuffer_adr := GetFuncAdr('glTexBuffer');
-    private z_TexBuffer_ovr_0 := GetFuncOrNil&(z_TexBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBuffer(target: TextureTarget; _internalformat: InternalFormat; buffer: BufferName) :=
+    private z_TexBuffer_ovr_0 := GetFuncOrNil&(z_TexBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBuffer(target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TexBuffer_ovr_0(target, _internalformat, buffer);
     
     // added in gl4.3
     private z_TexBufferRange_adr := GetFuncAdr('glTexBufferRange');
-    private z_TexBufferRange_ovr_0 := GetFuncOrNil&(z_TexBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferRange(target: TextureTarget; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TexBufferRange_ovr_0 := GetFuncOrNil&(z_TexBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferRange(target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TexBufferRange_ovr_0(target, _internalformat, buffer, offset, size);
     
     // added in gl3.3
@@ -28947,16 +31219,11 @@ type
     // added in gl3.3
     private z_TexCoordP1uiv_adr := GetFuncAdr('glTexCoordP1uiv');
     private z_TexCoordP1uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
-    private z_TexCoordP1uiv_ovr_0_anh001 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP1uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP1uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP1uiv_ovr_0(&type, coords);
-    private z_TexCoordP1uiv_ovr_2 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
+    private z_TexCoordP1uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP1uiv_ovr_2(&type, coords);
+    z_TexCoordP1uiv_ovr_1(&type, coords);
     
     // added in gl3.3
     private z_TexCoordP2ui_adr := GetFuncAdr('glTexCoordP2ui');
@@ -28967,16 +31234,11 @@ type
     // added in gl3.3
     private z_TexCoordP2uiv_adr := GetFuncAdr('glTexCoordP2uiv');
     private z_TexCoordP2uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
-    private z_TexCoordP2uiv_ovr_0_anh001 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP2uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP2uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP2uiv_ovr_0(&type, coords);
-    private z_TexCoordP2uiv_ovr_2 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
+    private z_TexCoordP2uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP2uiv_ovr_2(&type, coords);
+    z_TexCoordP2uiv_ovr_1(&type, coords);
     
     // added in gl3.3
     private z_TexCoordP3ui_adr := GetFuncAdr('glTexCoordP3ui');
@@ -28987,16 +31249,11 @@ type
     // added in gl3.3
     private z_TexCoordP3uiv_adr := GetFuncAdr('glTexCoordP3uiv');
     private z_TexCoordP3uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
-    private z_TexCoordP3uiv_ovr_0_anh001 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP3uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP3uiv_ovr_0(&type, coords);
-    private z_TexCoordP3uiv_ovr_2 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
+    private z_TexCoordP3uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP3uiv_ovr_2(&type, coords);
+    z_TexCoordP3uiv_ovr_1(&type, coords);
     
     // added in gl3.3
     private z_TexCoordP4ui_adr := GetFuncAdr('glTexCoordP4ui');
@@ -29007,28 +31264,19 @@ type
     // added in gl3.3
     private z_TexCoordP4uiv_adr := GetFuncAdr('glTexCoordP4uiv');
     private z_TexCoordP4uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
-    private z_TexCoordP4uiv_ovr_0_anh001 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP4uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP4uiv_ovr_0(&type, coords);
-    private z_TexCoordP4uiv_ovr_2 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
+    private z_TexCoordP4uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP4uiv_ovr_2(&type, coords);
+    z_TexCoordP4uiv_ovr_1(&type, coords);
     
     // added in gl1.0
-    private static procedure z_TexImage1D_ovr_0(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexImage1D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage1D(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_TexImage1D_ovr_0(target, level, internalformat, width, border, format, &type, pixels);
+    gl_ntv.z_TexImage1D_ovr_0(target, level, internalformat, width, border, format, &type, pixels);
     
     // added in gl1.0
-    private static procedure z_TexImage2D_ovr_0(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexImage2D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage2D(target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_TexImage2D_ovr_0(target, level, internalformat, width, height, border, format, &type, pixels);
+    gl_ntv.z_TexImage2D_ovr_0(target, level, internalformat, width, height, border, format, &type, pixels);
     
     // added in gl3.2
     private z_TexImage2DMultisample_adr := GetFuncAdr('glTexImage2DMultisample');
@@ -29049,32 +31297,22 @@ type
     z_TexImage3DMultisample_ovr_0(target, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
     // added in gl1.0
-    private static procedure z_TexParameterf_ovr_0(target: TextureTarget; pname: TextureParameterName; param: single);
-    external 'opengl32.dll' name 'glTexParameterf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterf(target: TextureTarget; pname: TextureParameterName; param: single) :=
-    z_TexParameterf_ovr_0(target, pname, param);
+    gl_ntv.z_TexParameterf_ovr_0(target, pname, param);
     
     // added in gl1.0
-    private static procedure z_TexParameterfv_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: single);
-    external 'opengl32.dll' name 'glTexParameterfv';
-    private static procedure z_TexParameterfv_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterfv(target: TextureTarget; pname: TextureParameterName; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexParameterfv_ovr_0(target, pname, ¶ms[0]) else
-      z_TexParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_TexParameterfv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_TexParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterfv(target: TextureTarget; pname: TextureParameterName; var ¶ms: single) :=
-    z_TexParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexParameterfv_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterfv';
+    gl_ntv.z_TexParameterfv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterfv(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
-    z_TexParameterfv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_TexParameterfv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_TexParameteri_ovr_0(target: TextureTarget; pname: TextureParameterName; param: Int32);
-    external 'opengl32.dll' name 'glTexParameteri';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameteri(target: TextureTarget; pname: TextureParameterName; param: Int32) :=
-    z_TexParameteri_ovr_0(target, pname, param);
+    gl_ntv.z_TexParameteri_ovr_0(target, pname, param);
     
     // added in gl3.0
     private z_TexParameterIiv_adr := GetFuncAdr('glTexParameterIiv');
@@ -29105,20 +31343,14 @@ type
     z_TexParameterIuiv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0
-    private static procedure z_TexParameteriv_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTexParameteriv';
-    private static procedure z_TexParameteriv_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameteriv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameteriv(target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexParameteriv_ovr_0(target, pname, ¶ms[0]) else
-      z_TexParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_TexParameteriv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_TexParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameteriv(target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
-    z_TexParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexParameteriv_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameteriv';
+    gl_ntv.z_TexParameteriv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameteriv(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
-    z_TexParameteriv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_TexParameteriv_ovr_2(target, pname, ¶ms);
     
     // added in gl4.2
     private z_TexStorage1D_adr := GetFuncAdr('glTexStorage1D');
@@ -29151,16 +31383,12 @@ type
     z_TexStorage3DMultisample_ovr_0(target, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
     // added in gl1.1
-    private static procedure z_TexSubImage1D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage1D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage1D(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_TexSubImage1D_ovr_0(target, level, xoffset, width, format, &type, pixels);
+    gl_ntv.z_TexSubImage1D_ovr_0(target, level, xoffset, width, format, &type, pixels);
     
     // added in gl1.1
-    private static procedure z_TexSubImage2D_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage2D';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage2D(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_TexSubImage2D_ovr_0(target, level, xoffset, yoffset, width, height, format, &type, pixels);
+    gl_ntv.z_TexSubImage2D_ovr_0(target, level, xoffset, yoffset, width, height, format, &type, pixels);
     
     // added in gl1.2
     private z_TexSubImage3D_adr := GetFuncAdr('glTexSubImage3D');
@@ -29176,155 +31404,155 @@ type
     
     // added in gl4.5
     private z_TextureBuffer_adr := GetFuncAdr('glTextureBuffer');
-    private z_TextureBuffer_ovr_0 := GetFuncOrNil&(z_TextureBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBuffer(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName) :=
+    private z_TextureBuffer_ovr_0 := GetFuncOrNil&(z_TextureBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBuffer(texture: gl_texture; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TextureBuffer_ovr_0(texture, _internalformat, buffer);
     
     // added in gl4.5
     private z_TextureBufferRange_adr := GetFuncAdr('glTextureBufferRange');
-    private z_TextureBufferRange_ovr_0 := GetFuncOrNil&(z_TextureBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRange(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TextureBufferRange_ovr_0 := GetFuncOrNil&(z_TextureBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRange(texture: gl_texture; _internalformat: InternalFormat; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TextureBufferRange_ovr_0(texture, _internalformat, buffer, offset, size);
     
     // added in gl4.5
     private z_TextureParameterf_adr := GetFuncAdr('glTextureParameterf');
-    private z_TextureParameterf_ovr_0 := GetFuncOrNil&(z_TextureParameterf_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterf(texture: TextureName; pname: TextureParameterName; param: single) :=
+    private z_TextureParameterf_ovr_0 := GetFuncOrNil&(z_TextureParameterf_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterf(texture: gl_texture; pname: TextureParameterName; param: single) :=
     z_TextureParameterf_ovr_0(texture, pname, param);
     
     // added in gl4.5
     private z_TextureParameterfv_adr := GetFuncAdr('glTextureParameterfv');
-    private z_TextureParameterfv_ovr_0 := GetFuncOrNil&(z_TextureParameterfv_adr);
-    private z_TextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; param: array of single) :=
+    private z_TextureParameterfv_ovr_0 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    private z_TextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_TextureParameterfv_ovr_0(texture, pname, param[0]) else
       z_TextureParameterfv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; var param: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; var param: single) :=
     z_TextureParameterfv_ovr_0(texture, pname, param);
-    private z_TextureParameterfv_ovr_2 := GetFuncOrNil&(z_TextureParameterfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; param: IntPtr) :=
+    private z_TextureParameterfv_ovr_2 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; param: IntPtr) :=
     z_TextureParameterfv_ovr_2(texture, pname, param);
     
     // added in gl4.5
     private z_TextureParameteri_adr := GetFuncAdr('glTextureParameteri');
-    private z_TextureParameteri_ovr_0 := GetFuncOrNil&(z_TextureParameteri_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteri(texture: UInt32; pname: TextureParameterName; param: Int32) :=
+    private z_TextureParameteri_ovr_0 := GetFuncOrNil&(z_TextureParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteri(texture: gl_texture; pname: TextureParameterName; param: Int32) :=
     z_TextureParameteri_ovr_0(texture, pname, param);
     
     // added in gl4.5
     private z_TextureParameterIiv_adr := GetFuncAdr('glTextureParameterIiv');
-    private z_TextureParameterIiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIiv_adr);
-    private z_TextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; ¶ms: array of Int32) :=
+    private z_TextureParameterIiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    private z_TextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIiv_ovr_0(texture, pname, ¶ms[0]) else
       z_TextureParameterIiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; var ¶ms: Int32) :=
     z_TextureParameterIiv_ovr_0(texture, pname, ¶ms);
-    private z_TextureParameterIiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIiv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_TextureParameterIuiv_adr := GetFuncAdr('glTextureParameterIuiv');
-    private z_TextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
-    private z_TextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; ¶ms: array of UInt32) :=
+    private z_TextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    private z_TextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIuiv_ovr_0(texture, pname, ¶ms[0]) else
       z_TextureParameterIuiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; var ¶ms: UInt32) :=
     z_TextureParameterIuiv_ovr_0(texture, pname, ¶ms);
-    private z_TextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIuiv_ovr_2(texture, pname, ¶ms);
     
     // added in gl4.5
     private z_TextureParameteriv_adr := GetFuncAdr('glTextureParameteriv');
-    private z_TextureParameteriv_ovr_0 := GetFuncOrNil&(z_TextureParameteriv_adr);
-    private z_TextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; param: array of Int32) :=
+    private z_TextureParameteriv_ovr_0 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    private z_TextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_TextureParameteriv_ovr_0(texture, pname, param[0]) else
       z_TextureParameteriv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; var param: Int32) :=
     z_TextureParameteriv_ovr_0(texture, pname, param);
-    private z_TextureParameteriv_ovr_2 := GetFuncOrNil&(z_TextureParameteriv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; param: IntPtr) :=
+    private z_TextureParameteriv_ovr_2 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; param: IntPtr) :=
     z_TextureParameteriv_ovr_2(texture, pname, param);
     
     // added in gl4.5
     private z_TextureStorage1D_adr := GetFuncAdr('glTextureStorage1D');
-    private z_TextureStorage1D_ovr_0 := GetFuncOrNil&(z_TextureStorage1D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
+    private z_TextureStorage1D_ovr_0 := GetFuncOrNil&(z_TextureStorage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
     z_TextureStorage1D_ovr_0(texture, levels, _internalformat, width);
     
     // added in gl4.5
     private z_TextureStorage2D_adr := GetFuncAdr('glTextureStorage2D');
-    private z_TextureStorage2D_ovr_0 := GetFuncOrNil&(z_TextureStorage2D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_TextureStorage2D_ovr_0 := GetFuncOrNil&(z_TextureStorage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_TextureStorage2D_ovr_0(texture, levels, _internalformat, width, height);
     
     // added in gl4.5
     private z_TextureStorage2DMultisample_adr := GetFuncAdr('glTextureStorage2DMultisample');
-    private z_TextureStorage2DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage2DMultisample_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisample(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage2DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage2DMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisample(texture: gl_texture; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage2DMultisample_ovr_0(texture, samples, _internalformat, width, height, fixedsamplelocations);
     
     // added in gl4.5
     private z_TextureStorage3D_adr := GetFuncAdr('glTextureStorage3D');
-    private z_TextureStorage3D_ovr_0 := GetFuncOrNil&(z_TextureStorage3D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
+    private z_TextureStorage3D_ovr_0 := GetFuncOrNil&(z_TextureStorage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
     z_TextureStorage3D_ovr_0(texture, levels, _internalformat, width, height, depth);
     
     // added in gl4.5
     private z_TextureStorage3DMultisample_adr := GetFuncAdr('glTextureStorage3DMultisample');
-    private z_TextureStorage3DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage3DMultisample_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisample(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage3DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage3DMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisample(texture: gl_texture; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage3DMultisample_ovr_0(texture, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
     // added in gl4.5
     private z_TextureSubImage1D_adr := GetFuncAdr('glTextureSubImage1D');
-    private z_TextureSubImage1D_ovr_0 := GetFuncOrNil&(z_TextureSubImage1D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1D(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage1D_ovr_0 := GetFuncOrNil&(z_TextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage1D_ovr_0(texture, level, xoffset, width, format, &type, pixels);
     
     // added in gl4.5
     private z_TextureSubImage2D_adr := GetFuncAdr('glTextureSubImage2D');
-    private z_TextureSubImage2D_ovr_0 := GetFuncOrNil&(z_TextureSubImage2D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage2D_ovr_0 := GetFuncOrNil&(z_TextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, width, height, format, &type, pixels);
     
     // added in gl4.5
     private z_TextureSubImage3D_adr := GetFuncAdr('glTextureSubImage3D');
-    private z_TextureSubImage3D_ovr_0 := GetFuncOrNil&(z_TextureSubImage3D_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage3D_ovr_0 := GetFuncOrNil&(z_TextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, pixels);
     
     // added in gl4.3
     private z_TextureView_adr := GetFuncAdr('glTextureView');
-    private z_TextureView_ovr_0 := GetFuncOrNil&(z_TextureView_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureView(texture: TextureName; target: TextureTarget; origtexture: TextureName; _internalformat: InternalFormat; minlevel: UInt32; numlevels: UInt32; minlayer: UInt32; numlayers: UInt32) :=
+    private z_TextureView_ovr_0 := GetFuncOrNil&(z_TextureView_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureView(texture: gl_texture; target: TextureTarget; origtexture: gl_texture; _internalformat: InternalFormat; minlevel: UInt32; numlevels: UInt32; minlayer: UInt32; numlayers: UInt32) :=
     z_TextureView_ovr_0(texture, target, origtexture, _internalformat, minlevel, numlevels, minlayer, numlayers);
     
     // added in gl4.5
     private z_TransformFeedbackBufferBase_adr := GetFuncAdr('glTransformFeedbackBufferBase');
-    private z_TransformFeedbackBufferBase_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferBase_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferBase(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName) :=
+    private z_TransformFeedbackBufferBase_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferBase_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferBase(xfb: gl_transform_feedback; index: UInt32; buffer: gl_buffer) :=
     z_TransformFeedbackBufferBase_ovr_0(xfb, index, buffer);
     
     // added in gl4.5
     private z_TransformFeedbackBufferRange_adr := GetFuncAdr('glTransformFeedbackBufferRange');
-    private z_TransformFeedbackBufferRange_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferRange_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferRange(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TransformFeedbackBufferRange_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferRange(xfb: gl_transform_feedback; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TransformFeedbackBufferRange_ovr_0(xfb, index, buffer, offset, size);
     
     // added in gl3.0
     private z_TransformFeedbackVaryings_adr := GetFuncAdr('glTransformFeedbackVaryings');
-    private z_TransformFeedbackVaryings_ovr_0 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
-    private z_TransformFeedbackVaryings_ovr_0_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: UInt32; count: Int32; varyings: array of string; bufferMode: TransformFeedbackBufferMode);
+    private z_TransformFeedbackVaryings_ovr_0 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
+    private z_TransformFeedbackVaryings_ovr_0_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: gl_program; count: Int32; varyings: array of string; bufferMode: TransformFeedbackBufferMode);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -29336,13 +31564,13 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private z_TransformFeedbackVaryings_ovr_1_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: UInt32; count: Int32; varyings: array of IntPtr; bufferMode: TransformFeedbackBufferMode) :=
+    private z_TransformFeedbackVaryings_ovr_1_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: gl_program; count: Int32; varyings: array of IntPtr; bufferMode: TransformFeedbackBufferMode) :=
     if (varyings<>nil) and (varyings.Length<>0) then
       z_TransformFeedbackVaryings_ovr_0(&program, count, varyings[0], bufferMode) else
       z_TransformFeedbackVaryings_ovr_0_anh00010(&program, count, IntPtr.Zero, bufferMode);
-    private z_TransformFeedbackVaryings_ovr_2 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: UInt32; count: Int32; varyings: IntPtr; bufferMode: TransformFeedbackBufferMode) :=
+    private z_TransformFeedbackVaryings_ovr_2 := GetFuncOrNil&(z_TransformFeedbackVaryings_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryings(&program: gl_program; count: Int32; varyings: IntPtr; bufferMode: TransformFeedbackBufferMode) :=
     z_TransformFeedbackVaryings_ovr_2(&program, count, varyings, bufferMode);
     
     // added in gl4.0
@@ -29667,8 +31895,8 @@ type
     
     // added in gl3.1
     private z_UniformBlockBinding_adr := GetFuncAdr('glUniformBlockBinding');
-    private z_UniformBlockBinding_ovr_0 := GetFuncOrNil&(z_UniformBlockBinding_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBlockBinding(&program: ProgramName; uniformBlockIndex: UInt32; uniformBlockBinding: UInt32) :=
+    private z_UniformBlockBinding_ovr_0 := GetFuncOrNil&(z_UniformBlockBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBlockBinding(&program: gl_program; uniformBlockIndex: UInt32; uniformBlockBinding: UInt32) :=
     z_UniformBlockBinding_ovr_0(&program, uniformBlockIndex, uniformBlockBinding);
     
     // added in gl4.0
@@ -29945,87 +32173,87 @@ type
     
     // added in gl4.5
     private z_UnmapNamedBuffer_adr := GetFuncAdr('glUnmapNamedBuffer');
-    private z_UnmapNamedBuffer_ovr_0 := GetFuncOrNil&(z_UnmapNamedBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBuffer(buffer: BufferName): boolean :=
+    private z_UnmapNamedBuffer_ovr_0 := GetFuncOrNil&(z_UnmapNamedBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBuffer(buffer: gl_buffer): boolean :=
     z_UnmapNamedBuffer_ovr_0(buffer);
     
     // added in gl2.0
     private z_UseProgram_adr := GetFuncAdr('glUseProgram');
-    private z_UseProgram_ovr_0 := GetFuncOrNil&(z_UseProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgram(&program: ProgramName) :=
+    private z_UseProgram_ovr_0 := GetFuncOrNil&(z_UseProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgram(&program: gl_program) :=
     z_UseProgram_ovr_0(&program);
     
     // added in gl4.1
     private z_UseProgramStages_adr := GetFuncAdr('glUseProgramStages');
-    private z_UseProgramStages_ovr_0 := GetFuncOrNil&(z_UseProgramStages_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramStages(pipeline: ProgramPipelineName; stages: UseProgramStageMask; &program: ProgramName) :=
+    private z_UseProgramStages_ovr_0 := GetFuncOrNil&(z_UseProgramStages_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramStages(pipeline: gl_program_pipeline; stages: UseProgramStageMask; &program: gl_program) :=
     z_UseProgramStages_ovr_0(pipeline, stages, &program);
     
     // added in gl2.0
     private z_ValidateProgram_adr := GetFuncAdr('glValidateProgram');
-    private z_ValidateProgram_ovr_0 := GetFuncOrNil&(z_ValidateProgram_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgram(&program: ProgramName) :=
+    private z_ValidateProgram_ovr_0 := GetFuncOrNil&(z_ValidateProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgram(&program: gl_program) :=
     z_ValidateProgram_ovr_0(&program);
     
     // added in gl4.1
     private z_ValidateProgramPipeline_adr := GetFuncAdr('glValidateProgramPipeline');
-    private z_ValidateProgramPipeline_ovr_0 := GetFuncOrNil&(z_ValidateProgramPipeline_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramPipeline(pipeline: ProgramPipelineName) :=
+    private z_ValidateProgramPipeline_ovr_0 := GetFuncOrNil&(z_ValidateProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramPipeline(pipeline: gl_program_pipeline) :=
     z_ValidateProgramPipeline_ovr_0(pipeline);
     
     // added in gl4.5
     private z_VertexArrayAttribBinding_adr := GetFuncAdr('glVertexArrayAttribBinding');
-    private z_VertexArrayAttribBinding_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribBinding_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribBinding(vaobj: VertexArrayName; attribindex: UInt32; bindingindex: UInt32) :=
+    private z_VertexArrayAttribBinding_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribBinding(vaobj: gl_vertex_array; attribindex: UInt32; bindingindex: UInt32) :=
     z_VertexArrayAttribBinding_ovr_0(vaobj, attribindex, bindingindex);
     
     // added in gl4.5
     private z_VertexArrayAttribFormat_adr := GetFuncAdr('glVertexArrayAttribFormat');
-    private z_VertexArrayAttribFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribFormat_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
     z_VertexArrayAttribFormat_ovr_0(vaobj, attribindex, size, &type, normalized, relativeoffset);
     
     // added in gl4.5
     private z_VertexArrayAttribIFormat_adr := GetFuncAdr('glVertexArrayAttribIFormat');
-    private z_VertexArrayAttribIFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribIFormat_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribIFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribIFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribIFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribIFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
     z_VertexArrayAttribIFormat_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
     // added in gl4.5
     private z_VertexArrayAttribLFormat_adr := GetFuncAdr('glVertexArrayAttribLFormat');
-    private z_VertexArrayAttribLFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribLFormat_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribLFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribLFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribLFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribLFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
     z_VertexArrayAttribLFormat_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
     // added in gl4.5
     private z_VertexArrayBindingDivisor_adr := GetFuncAdr('glVertexArrayBindingDivisor');
-    private z_VertexArrayBindingDivisor_ovr_0 := GetFuncOrNil&(z_VertexArrayBindingDivisor_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindingDivisor(vaobj: VertexArrayName; bindingindex: UInt32; divisor: UInt32) :=
+    private z_VertexArrayBindingDivisor_ovr_0 := GetFuncOrNil&(z_VertexArrayBindingDivisor_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindingDivisor(vaobj: gl_vertex_array; bindingindex: UInt32; divisor: UInt32) :=
     z_VertexArrayBindingDivisor_ovr_0(vaobj, bindingindex, divisor);
     
     // added in gl4.5
     private z_VertexArrayElementBuffer_adr := GetFuncAdr('glVertexArrayElementBuffer');
-    private z_VertexArrayElementBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayElementBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayElementBuffer(vaobj: VertexArrayName; buffer: BufferName) :=
+    private z_VertexArrayElementBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayElementBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayElementBuffer(vaobj: gl_vertex_array; buffer: gl_buffer) :=
     z_VertexArrayElementBuffer_ovr_0(vaobj, buffer);
     
     // added in gl4.5
     private z_VertexArrayVertexBuffer_adr := GetFuncAdr('glVertexArrayVertexBuffer');
-    private z_VertexArrayVertexBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffer_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffer(vaobj: VertexArrayName; bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32) :=
+    private z_VertexArrayVertexBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffer(vaobj: gl_vertex_array; bindingindex: UInt32; buffer: gl_buffer; offset: IntPtr; stride: Int32) :=
     z_VertexArrayVertexBuffer_ovr_0(vaobj, bindingindex, buffer, offset, stride);
     
     // added in gl4.5
     private z_VertexArrayVertexBuffers_adr := GetFuncAdr('glVertexArrayVertexBuffers');
-    private z_VertexArrayVertexBuffers_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_0_anh0000111 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000111 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (strides<>nil) and (strides.Length<>0) then
@@ -30041,10 +32269,10 @@ type
         if (strides<>nil) and (strides.Length<>0) then
           z_VertexArrayVertexBuffers_ovr_0_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides[0]) else
           z_VertexArrayVertexBuffers_ovr_0_anh0000111(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private z_VertexArrayVertexBuffers_ovr_1_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_1_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_1_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets[0], strides) else
@@ -30052,11 +32280,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets[0], strides) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private z_VertexArrayVertexBuffers_ovr_2 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_2_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_2_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_2_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_2 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers[0], offsets[0], strides) else
@@ -30064,9 +32292,9 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_2_anh0000100(vaobj, first, count, IntPtr.Zero, offsets[0], strides) else
         z_VertexArrayVertexBuffers_ovr_2_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private z_VertexArrayVertexBuffers_ovr_3_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_3_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_3_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_3_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets, strides[0]) else
@@ -30074,21 +32302,21 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000101(vaobj, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private z_VertexArrayVertexBuffers_ovr_4_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_4_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_5_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_5_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_2_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_6 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_6_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_6_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_6_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_6 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers[0], offsets, strides[0]) else
@@ -30096,20 +32324,20 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_6_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_6_anh0000101(vaobj, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private z_VertexArrayVertexBuffers_ovr_7_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_7_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_6_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_8 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_8_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_8 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_8_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_8(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_8_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_9_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_9_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_9_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_9_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets[0], strides[0]) else
@@ -30117,37 +32345,37 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000011(vaobj, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private z_VertexArrayVertexBuffers_ovr_10_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_10_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    private z_VertexArrayVertexBuffers_ovr_11_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_11_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_2_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_6_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_8(vaobj, first, count, buffers, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_18 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_18_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_18_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_18_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_18 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets[0], strides[0]) else
@@ -30155,35 +32383,35 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_18_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_18_anh0000011(vaobj, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private z_VertexArrayVertexBuffers_ovr_19_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_19_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_18_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    private z_VertexArrayVertexBuffers_ovr_20 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_20_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_20 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_20_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_20(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_20_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_18_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_20(vaobj, first, count, buffers, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_24 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    private z_VertexArrayVertexBuffers_ovr_24_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_24 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_24_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_24(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_24_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_24(vaobj, first, count, buffers, offsets, strides);
-    private z_VertexArrayVertexBuffers_ovr_26 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_26 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_26(vaobj, first, count, buffers, offsets, strides);
     
     // added in gl2.0
@@ -30195,16 +32423,11 @@ type
     // added in gl2.0
     private z_VertexAttrib1dv_adr := GetFuncAdr('glVertexAttrib1dv');
     private z_VertexAttrib1dv_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dv_adr);
-    private z_VertexAttrib1dv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib1dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dv(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1dv_ovr_0(index, v[0]) else
-      z_VertexAttrib1dv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dv(index: UInt32; var v: real) :=
     z_VertexAttrib1dv_ovr_0(index, v);
-    private z_VertexAttrib1dv_ovr_2 := GetFuncOrNil&(z_VertexAttrib1dv_adr);
+    private z_VertexAttrib1dv_ovr_1 := GetFuncOrNil&(z_VertexAttrib1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dv(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1dv_ovr_2(index, v);
+    z_VertexAttrib1dv_ovr_1(index, v);
     
     // added in gl2.0
     private z_VertexAttrib1f_adr := GetFuncAdr('glVertexAttrib1f');
@@ -30215,16 +32438,11 @@ type
     // added in gl2.0
     private z_VertexAttrib1fv_adr := GetFuncAdr('glVertexAttrib1fv');
     private z_VertexAttrib1fv_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fv_adr);
-    private z_VertexAttrib1fv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib1fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fv(index: UInt32; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1fv_ovr_0(index, v[0]) else
-      z_VertexAttrib1fv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fv(index: UInt32; var v: single) :=
     z_VertexAttrib1fv_ovr_0(index, v);
-    private z_VertexAttrib1fv_ovr_2 := GetFuncOrNil&(z_VertexAttrib1fv_adr);
+    private z_VertexAttrib1fv_ovr_1 := GetFuncOrNil&(z_VertexAttrib1fv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fv(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1fv_ovr_2(index, v);
+    z_VertexAttrib1fv_ovr_1(index, v);
     
     // added in gl2.0
     private z_VertexAttrib1s_adr := GetFuncAdr('glVertexAttrib1s');
@@ -30235,16 +32453,11 @@ type
     // added in gl2.0
     private z_VertexAttrib1sv_adr := GetFuncAdr('glVertexAttrib1sv');
     private z_VertexAttrib1sv_ovr_0 := GetFuncOrNil&(z_VertexAttrib1sv_adr);
-    private z_VertexAttrib1sv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib1sv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sv(index: UInt32; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1sv_ovr_0(index, v[0]) else
-      z_VertexAttrib1sv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sv(index: UInt32; var v: Int16) :=
     z_VertexAttrib1sv_ovr_0(index, v);
-    private z_VertexAttrib1sv_ovr_2 := GetFuncOrNil&(z_VertexAttrib1sv_adr);
+    private z_VertexAttrib1sv_ovr_1 := GetFuncOrNil&(z_VertexAttrib1sv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sv(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1sv_ovr_2(index, v);
+    z_VertexAttrib1sv_ovr_1(index, v);
     
     // added in gl2.0
     private z_VertexAttrib2d_adr := GetFuncAdr('glVertexAttrib2d');
@@ -30613,16 +32826,11 @@ type
     // added in gl3.0
     private z_VertexAttribI1iv_adr := GetFuncAdr('glVertexAttribI1iv');
     private z_VertexAttribI1iv_ovr_0 := GetFuncOrNil&(z_VertexAttribI1iv_adr);
-    private z_VertexAttribI1iv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI1iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1iv(index: UInt32; v: array of Int32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribI1iv_ovr_0(index, v[0]) else
-      z_VertexAttribI1iv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1iv(index: UInt32; var v: Int32) :=
     z_VertexAttribI1iv_ovr_0(index, v);
-    private z_VertexAttribI1iv_ovr_2 := GetFuncOrNil&(z_VertexAttribI1iv_adr);
+    private z_VertexAttribI1iv_ovr_1 := GetFuncOrNil&(z_VertexAttribI1iv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1iv(index: UInt32; v: IntPtr) :=
-    z_VertexAttribI1iv_ovr_2(index, v);
+    z_VertexAttribI1iv_ovr_1(index, v);
     
     // added in gl3.0
     private z_VertexAttribI1ui_adr := GetFuncAdr('glVertexAttribI1ui');
@@ -30633,16 +32841,11 @@ type
     // added in gl3.0
     private z_VertexAttribI1uiv_adr := GetFuncAdr('glVertexAttribI1uiv');
     private z_VertexAttribI1uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribI1uiv_adr);
-    private z_VertexAttribI1uiv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uiv(index: UInt32; v: array of UInt32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribI1uiv_ovr_0(index, v[0]) else
-      z_VertexAttribI1uiv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uiv(index: UInt32; var v: UInt32) :=
     z_VertexAttribI1uiv_ovr_0(index, v);
-    private z_VertexAttribI1uiv_ovr_2 := GetFuncOrNil&(z_VertexAttribI1uiv_adr);
+    private z_VertexAttribI1uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribI1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uiv(index: UInt32; v: IntPtr) :=
-    z_VertexAttribI1uiv_ovr_2(index, v);
+    z_VertexAttribI1uiv_ovr_1(index, v);
     
     // added in gl3.0
     private z_VertexAttribI2i_adr := GetFuncAdr('glVertexAttribI2i');
@@ -30841,16 +33044,11 @@ type
     // added in gl4.1
     private z_VertexAttribL1dv_adr := GetFuncAdr('glVertexAttribL1dv');
     private z_VertexAttribL1dv_ovr_0 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
-    private z_VertexAttribL1dv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribL1dv_ovr_0(index, v[0]) else
-      z_VertexAttribL1dv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; var v: real) :=
     z_VertexAttribL1dv_ovr_0(index, v);
-    private z_VertexAttribL1dv_ovr_2 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
+    private z_VertexAttribL1dv_ovr_1 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; v: IntPtr) :=
-    z_VertexAttribL1dv_ovr_2(index, v);
+    z_VertexAttribL1dv_ovr_1(index, v);
     
     // added in gl4.1
     private z_VertexAttribL2d_adr := GetFuncAdr('glVertexAttribL2d');
@@ -30933,16 +33131,11 @@ type
     // added in gl3.3
     private z_VertexAttribP1uiv_adr := GetFuncAdr('glVertexAttribP1uiv');
     private z_VertexAttribP1uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
-    private z_VertexAttribP1uiv_ovr_0_anh00001 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP1uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP1uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP1uiv_ovr_0(index, &type, normalized, value);
-    private z_VertexAttribP1uiv_ovr_2 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
+    private z_VertexAttribP1uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP1uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP1uiv_ovr_1(index, &type, normalized, value);
     
     // added in gl3.3
     private z_VertexAttribP2ui_adr := GetFuncAdr('glVertexAttribP2ui');
@@ -30953,16 +33146,11 @@ type
     // added in gl3.3
     private z_VertexAttribP2uiv_adr := GetFuncAdr('glVertexAttribP2uiv');
     private z_VertexAttribP2uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
-    private z_VertexAttribP2uiv_ovr_0_anh00001 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP2uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP2uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP2uiv_ovr_0(index, &type, normalized, value);
-    private z_VertexAttribP2uiv_ovr_2 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
+    private z_VertexAttribP2uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP2uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP2uiv_ovr_1(index, &type, normalized, value);
     
     // added in gl3.3
     private z_VertexAttribP3ui_adr := GetFuncAdr('glVertexAttribP3ui');
@@ -30973,16 +33161,11 @@ type
     // added in gl3.3
     private z_VertexAttribP3uiv_adr := GetFuncAdr('glVertexAttribP3uiv');
     private z_VertexAttribP3uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
-    private z_VertexAttribP3uiv_ovr_0_anh00001 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP3uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP3uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP3uiv_ovr_0(index, &type, normalized, value);
-    private z_VertexAttribP3uiv_ovr_2 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
+    private z_VertexAttribP3uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP3uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP3uiv_ovr_1(index, &type, normalized, value);
     
     // added in gl3.3
     private z_VertexAttribP4ui_adr := GetFuncAdr('glVertexAttribP4ui');
@@ -30993,16 +33176,11 @@ type
     // added in gl3.3
     private z_VertexAttribP4uiv_adr := GetFuncAdr('glVertexAttribP4uiv');
     private z_VertexAttribP4uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
-    private z_VertexAttribP4uiv_ovr_0_anh00001 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP4uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP4uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP4uiv_ovr_0(index, &type, normalized, value);
-    private z_VertexAttribP4uiv_ovr_2 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
+    private z_VertexAttribP4uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP4uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP4uiv_ovr_1(index, &type, normalized, value);
     
     // added in gl2.0
     private z_VertexAttribPointer_adr := GetFuncAdr('glVertexAttribPointer');
@@ -31025,16 +33203,11 @@ type
     // added in gl3.3
     private z_VertexP2uiv_adr := GetFuncAdr('glVertexP2uiv');
     private z_VertexP2uiv_ovr_0 := GetFuncOrNil&(z_VertexP2uiv_adr);
-    private z_VertexP2uiv_ovr_0_anh001 := GetFuncOrNil&(z_VertexP2uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP2uiv_ovr_0(&type, value[0]) else
-      z_VertexP2uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP2uiv_ovr_0(&type, value);
-    private z_VertexP2uiv_ovr_2 := GetFuncOrNil&(z_VertexP2uiv_adr);
+    private z_VertexP2uiv_ovr_1 := GetFuncOrNil&(z_VertexP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP2uiv_ovr_2(&type, value);
+    z_VertexP2uiv_ovr_1(&type, value);
     
     // added in gl3.3
     private z_VertexP3ui_adr := GetFuncAdr('glVertexP3ui');
@@ -31045,16 +33218,11 @@ type
     // added in gl3.3
     private z_VertexP3uiv_adr := GetFuncAdr('glVertexP3uiv');
     private z_VertexP3uiv_ovr_0 := GetFuncOrNil&(z_VertexP3uiv_adr);
-    private z_VertexP3uiv_ovr_0_anh001 := GetFuncOrNil&(z_VertexP3uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP3uiv_ovr_0(&type, value[0]) else
-      z_VertexP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP3uiv_ovr_0(&type, value);
-    private z_VertexP3uiv_ovr_2 := GetFuncOrNil&(z_VertexP3uiv_adr);
+    private z_VertexP3uiv_ovr_1 := GetFuncOrNil&(z_VertexP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP3uiv_ovr_2(&type, value);
+    z_VertexP3uiv_ovr_1(&type, value);
     
     // added in gl3.3
     private z_VertexP4ui_adr := GetFuncAdr('glVertexP4ui');
@@ -31065,22 +33233,15 @@ type
     // added in gl3.3
     private z_VertexP4uiv_adr := GetFuncAdr('glVertexP4uiv');
     private z_VertexP4uiv_ovr_0 := GetFuncOrNil&(z_VertexP4uiv_adr);
-    private z_VertexP4uiv_ovr_0_anh001 := GetFuncOrNil&(z_VertexP4uiv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP4uiv_ovr_0(&type, value[0]) else
-      z_VertexP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP4uiv_ovr_0(&type, value);
-    private z_VertexP4uiv_ovr_2 := GetFuncOrNil&(z_VertexP4uiv_adr);
+    private z_VertexP4uiv_ovr_1 := GetFuncOrNil&(z_VertexP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP4uiv_ovr_2(&type, value);
+    z_VertexP4uiv_ovr_1(&type, value);
     
     // added in gl1.0
-    private static procedure z_Viewport_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glViewport';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Viewport(x: Int32; y: Int32; width: Int32; height: Int32) :=
-    z_Viewport_ovr_0(x, y, width, height);
+    gl_ntv.z_Viewport_ovr_0(x, y, width, height);
     
     // added in gl4.1
     private z_ViewportArrayv_adr := GetFuncAdr('glViewportArrayv');
@@ -31118,137 +33279,97 @@ type
     
     // added in gl3.2
     private z_WaitSync_adr := GetFuncAdr('glWaitSync');
-    private z_WaitSync_ovr_0 := GetFuncOrNil&(z_WaitSync_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSync(sync: GLsync; flags: DummyFlags; timeout: UInt64) :=
+    private z_WaitSync_ovr_0 := GetFuncOrNil&(z_WaitSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSync(sync: gl_sync; flags: DummyFlags; timeout: UInt64) :=
     z_WaitSync_ovr_0(sync, flags, timeout);
     
   end;
   
   [PCUNotRestore]
-  glD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Accum_ovr_0(op: AccumOp; value: single);
-    external 'opengl32.dll' name 'glAccum';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Accum(op: AccumOp; value: single) :=
-    z_Accum_ovr_0(op, value);
+    gl_ntv.z_Accum_ovr_0(op, value);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_AlphaFunc_ovr_0(func: AlphaFunction; ref: single);
-    external 'opengl32.dll' name 'glAlphaFunc';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaFunc(func: AlphaFunction; ref: single) :=
-    z_AlphaFunc_ovr_0(func, ref);
+    gl_ntv.z_AlphaFunc_ovr_0(func, ref);
     
     // added in gl1.1, deprecated in gl3.2
-    private static function z_AreTexturesResident_ovr_0(n: Int32; var textures: UInt32; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    private static function z_AreTexturesResident_ovr_0_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    private static function z_AreTexturesResident_ovr_0_anh0001(n: Int32; var textures: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    private static function z_AreTexturesResident_ovr_0_anh0011(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of UInt32; residences: array of boolean): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of gl_texture; residences: array of boolean): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
       if (residences<>nil) and (residences.Length<>0) then
-        z_AreTexturesResident_ovr_0(n, textures[0], residences[0]) else
-        z_AreTexturesResident_ovr_0_anh0001(n, textures[0], IntPtr.Zero) else
+        gl_ntv.z_AreTexturesResident_ovr_0(n, textures[0], residences[0]) else
+        gl_ntv.z_AreTexturesResident_ovr_0_anh0001(n, textures[0], IntPtr.Zero) else
       if (residences<>nil) and (residences.Length<>0) then
-        z_AreTexturesResident_ovr_0_anh0010(n, IntPtr.Zero, residences[0]) else
-        z_AreTexturesResident_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AreTexturesResident_ovr_1_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of UInt32; var residences: boolean): boolean :=
+        gl_ntv.z_AreTexturesResident_ovr_0_anh0010(n, IntPtr.Zero, residences[0]) else
+        gl_ntv.z_AreTexturesResident_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of gl_texture; var residences: boolean): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_AreTexturesResident_ovr_0(n, textures[0], residences) else
-      z_AreTexturesResident_ovr_0_anh0010(n, IntPtr.Zero, residences);
-    private static function z_AreTexturesResident_ovr_2(n: Int32; var textures: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    private static function z_AreTexturesResident_ovr_2_anh0010(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of UInt32; residences: IntPtr): boolean :=
+      gl_ntv.z_AreTexturesResident_ovr_0(n, textures[0], residences) else
+      gl_ntv.z_AreTexturesResident_ovr_0_anh0010(n, IntPtr.Zero, residences);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: array of gl_texture; residences: IntPtr): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_AreTexturesResident_ovr_2(n, textures[0], residences) else
-      z_AreTexturesResident_ovr_2_anh0010(n, IntPtr.Zero, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: UInt32; residences: array of boolean): boolean :=
+      gl_ntv.z_AreTexturesResident_ovr_2(n, textures[0], residences) else
+      gl_ntv.z_AreTexturesResident_ovr_2_anh0010(n, IntPtr.Zero, residences);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: gl_texture; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
-      z_AreTexturesResident_ovr_0(n, textures, residences[0]) else
-      z_AreTexturesResident_ovr_0_anh0001(n, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: UInt32; var residences: boolean): boolean :=
-    z_AreTexturesResident_ovr_0(n, textures, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: UInt32; residences: IntPtr): boolean :=
-    z_AreTexturesResident_ovr_2(n, textures, residences);
-    private static function z_AreTexturesResident_ovr_6(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
-    private static function z_AreTexturesResident_ovr_6_anh0001(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
+      gl_ntv.z_AreTexturesResident_ovr_0(n, textures, residences[0]) else
+      gl_ntv.z_AreTexturesResident_ovr_0_anh0001(n, textures, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: gl_texture; var residences: boolean): boolean :=
+    gl_ntv.z_AreTexturesResident_ovr_0(n, textures, residences);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; var textures: gl_texture; residences: IntPtr): boolean :=
+    gl_ntv.z_AreTexturesResident_ovr_2(n, textures, residences);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: IntPtr; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
-      z_AreTexturesResident_ovr_6(n, textures, residences[0]) else
-      z_AreTexturesResident_ovr_6_anh0001(n, textures, IntPtr.Zero);
+      gl_ntv.z_AreTexturesResident_ovr_6(n, textures, residences[0]) else
+      gl_ntv.z_AreTexturesResident_ovr_6_anh0001(n, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: IntPtr; var residences: boolean): boolean :=
-    z_AreTexturesResident_ovr_6(n, textures, residences);
-    private static function z_AreTexturesResident_ovr_8(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResident';
+    gl_ntv.z_AreTexturesResident_ovr_6(n, textures, residences);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResident(n: Int32; textures: IntPtr; residences: IntPtr): boolean :=
-    z_AreTexturesResident_ovr_8(n, textures, residences);
+    gl_ntv.z_AreTexturesResident_ovr_8(n, textures, residences);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_ArrayElement_ovr_0(i: Int32);
-    external 'opengl32.dll' name 'glArrayElement';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ArrayElement(i: Int32) :=
-    z_ArrayElement_ovr_0(i);
+    gl_ntv.z_ArrayElement_ovr_0(i);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Begin_ovr_0(mode: PrimitiveType);
-    external 'opengl32.dll' name 'glBegin';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure &Begin(mode: PrimitiveType) :=
-    z_Begin_ovr_0(mode);
+    gl_ntv.z_Begin_ovr_0(mode);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Bitmap_ovr_0(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; var bitmap: Byte);
-    external 'opengl32.dll' name 'glBitmap';
-    private static procedure z_Bitmap_ovr_0_anh00000001(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: IntPtr);
-    external 'opengl32.dll' name 'glBitmap';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Bitmap(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: array of Byte) :=
     if (bitmap<>nil) and (bitmap.Length<>0) then
-      z_Bitmap_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap[0]) else
-      z_Bitmap_ovr_0_anh00000001(width, height, xorig, yorig, xmove, ymove, IntPtr.Zero);
+      gl_ntv.z_Bitmap_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap[0]) else
+      gl_ntv.z_Bitmap_ovr_0_anh00000001(width, height, xorig, yorig, xmove, ymove, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Bitmap(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; var bitmap: Byte) :=
-    z_Bitmap_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap);
-    private static procedure z_Bitmap_ovr_2(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: IntPtr);
-    external 'opengl32.dll' name 'glBitmap';
+    gl_ntv.z_Bitmap_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Bitmap(width: Int32; height: Int32; xorig: single; yorig: single; xmove: single; ymove: single; bitmap: IntPtr) :=
-    z_Bitmap_ovr_2(width, height, xorig, yorig, xmove, ymove, bitmap);
+    gl_ntv.z_Bitmap_ovr_2(width, height, xorig, yorig, xmove, ymove, bitmap);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_CallList_ovr_0(list: UInt32);
-    external 'opengl32.dll' name 'glCallList';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CallList(list: UInt32) :=
-    z_CallList_ovr_0(list);
+    gl_ntv.z_CallList_ovr_0(list);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_CallLists_ovr_0(n: Int32; &type: ListNameType; lists: IntPtr);
-    external 'opengl32.dll' name 'glCallLists';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CallLists(n: Int32; &type: ListNameType; lists: IntPtr) :=
-    z_CallLists_ovr_0(n, &type, lists);
+    gl_ntv.z_CallLists_ovr_0(n, &type, lists);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ClearAccum_ovr_0(red: single; green: single; blue: single; alpha: single);
-    external 'opengl32.dll' name 'glClearAccum';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearAccum(red: single; green: single; blue: single; alpha: single) :=
-    z_ClearAccum_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_ClearAccum_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ClearIndex_ovr_0(c: single);
-    external 'opengl32.dll' name 'glClearIndex';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearIndex(c: single) :=
-    z_ClearIndex_ovr_0(c);
+    gl_ntv.z_ClearIndex_ovr_0(c);
     
     // added in gl1.3, deprecated in gl3.2
     private z_ClientActiveTexture_adr := GetFuncAdr('glClientActiveTexture');
@@ -31257,582 +33378,362 @@ type
     z_ClientActiveTexture_ovr_0(texture);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ClipPlane_ovr_0(plane: ClipPlaneName; var equation: real);
-    external 'opengl32.dll' name 'glClipPlane';
-    private static procedure z_ClipPlane_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlane';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlane(plane: ClipPlaneName; equation: array of real) :=
     if (equation<>nil) and (equation.Length<>0) then
-      z_ClipPlane_ovr_0(plane, equation[0]) else
-      z_ClipPlane_ovr_0_anh001(plane, IntPtr.Zero);
+      gl_ntv.z_ClipPlane_ovr_0(plane, equation[0]) else
+      gl_ntv.z_ClipPlane_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlane(plane: ClipPlaneName; var equation: real) :=
-    z_ClipPlane_ovr_0(plane, equation);
-    private static procedure z_ClipPlane_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlane';
+    gl_ntv.z_ClipPlane_ovr_0(plane, equation);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlane(plane: ClipPlaneName; equation: IntPtr) :=
-    z_ClipPlane_ovr_2(plane, equation);
+    gl_ntv.z_ClipPlane_ovr_2(plane, equation);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3b_ovr_0(red: SByte; green: SByte; blue: SByte);
-    external 'opengl32.dll' name 'glColor3b';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3b(red: SByte; green: SByte; blue: SByte) :=
-    z_Color3b_ovr_0(red, green, blue);
+    gl_ntv.z_Color3b_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3bv_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glColor3bv';
-    private static procedure z_Color3bv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3bv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3bv(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3bv_ovr_0(v[0]) else
-      z_Color3bv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3bv_ovr_0(v[0]) else
+      gl_ntv.z_Color3bv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3bv(var v: SByte) :=
-    z_Color3bv_ovr_0(v);
-    private static procedure z_Color3bv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3bv';
+    gl_ntv.z_Color3bv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3bv(v: IntPtr) :=
-    z_Color3bv_ovr_2(v);
+    gl_ntv.z_Color3bv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3d_ovr_0(red: real; green: real; blue: real);
-    external 'opengl32.dll' name 'glColor3d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3d(red: real; green: real; blue: real) :=
-    z_Color3d_ovr_0(red, green, blue);
+    gl_ntv.z_Color3d_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glColor3dv';
-    private static procedure z_Color3dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3dv_ovr_0(v[0]) else
-      z_Color3dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3dv_ovr_0(v[0]) else
+      gl_ntv.z_Color3dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3dv(var v: real) :=
-    z_Color3dv_ovr_0(v);
-    private static procedure z_Color3dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3dv';
+    gl_ntv.z_Color3dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3dv(v: IntPtr) :=
-    z_Color3dv_ovr_2(v);
+    gl_ntv.z_Color3dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3f_ovr_0(red: single; green: single; blue: single);
-    external 'opengl32.dll' name 'glColor3f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3f(red: single; green: single; blue: single) :=
-    z_Color3f_ovr_0(red, green, blue);
+    gl_ntv.z_Color3f_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glColor3fv';
-    private static procedure z_Color3fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3fv_ovr_0(v[0]) else
-      z_Color3fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3fv_ovr_0(v[0]) else
+      gl_ntv.z_Color3fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fv(var v: single) :=
-    z_Color3fv_ovr_0(v);
-    private static procedure z_Color3fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3fv';
+    gl_ntv.z_Color3fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fv(v: IntPtr) :=
-    z_Color3fv_ovr_2(v);
+    gl_ntv.z_Color3fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3i_ovr_0(red: Int32; green: Int32; blue: Int32);
-    external 'opengl32.dll' name 'glColor3i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3i(red: Int32; green: Int32; blue: Int32) :=
-    z_Color3i_ovr_0(red, green, blue);
+    gl_ntv.z_Color3i_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glColor3iv';
-    private static procedure z_Color3iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3iv_ovr_0(v[0]) else
-      z_Color3iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3iv_ovr_0(v[0]) else
+      gl_ntv.z_Color3iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3iv(var v: Int32) :=
-    z_Color3iv_ovr_0(v);
-    private static procedure z_Color3iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3iv';
+    gl_ntv.z_Color3iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3iv(v: IntPtr) :=
-    z_Color3iv_ovr_2(v);
+    gl_ntv.z_Color3iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3s_ovr_0(red: Int16; green: Int16; blue: Int16);
-    external 'opengl32.dll' name 'glColor3s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3s(red: Int16; green: Int16; blue: Int16) :=
-    z_Color3s_ovr_0(red, green, blue);
+    gl_ntv.z_Color3s_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glColor3sv';
-    private static procedure z_Color3sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3sv_ovr_0(v[0]) else
-      z_Color3sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3sv_ovr_0(v[0]) else
+      gl_ntv.z_Color3sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3sv(var v: Int16) :=
-    z_Color3sv_ovr_0(v);
-    private static procedure z_Color3sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3sv';
+    gl_ntv.z_Color3sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3sv(v: IntPtr) :=
-    z_Color3sv_ovr_2(v);
+    gl_ntv.z_Color3sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3ub_ovr_0(red: Byte; green: Byte; blue: Byte);
-    external 'opengl32.dll' name 'glColor3ub';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3ub(red: Byte; green: Byte; blue: Byte) :=
-    z_Color3ub_ovr_0(red, green, blue);
+    gl_ntv.z_Color3ub_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3ubv_ovr_0(var v: Byte);
-    external 'opengl32.dll' name 'glColor3ubv';
-    private static procedure z_Color3ubv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3ubv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3ubv(v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3ubv_ovr_0(v[0]) else
-      z_Color3ubv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3ubv_ovr_0(v[0]) else
+      gl_ntv.z_Color3ubv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3ubv(var v: Byte) :=
-    z_Color3ubv_ovr_0(v);
-    private static procedure z_Color3ubv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3ubv';
+    gl_ntv.z_Color3ubv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3ubv(v: IntPtr) :=
-    z_Color3ubv_ovr_2(v);
+    gl_ntv.z_Color3ubv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3ui_ovr_0(red: UInt32; green: UInt32; blue: UInt32);
-    external 'opengl32.dll' name 'glColor3ui';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3ui(red: UInt32; green: UInt32; blue: UInt32) :=
-    z_Color3ui_ovr_0(red, green, blue);
+    gl_ntv.z_Color3ui_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3uiv_ovr_0(var v: UInt32);
-    external 'opengl32.dll' name 'glColor3uiv';
-    private static procedure z_Color3uiv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3uiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3uiv(v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3uiv_ovr_0(v[0]) else
-      z_Color3uiv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3uiv_ovr_0(v[0]) else
+      gl_ntv.z_Color3uiv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3uiv(var v: UInt32) :=
-    z_Color3uiv_ovr_0(v);
-    private static procedure z_Color3uiv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3uiv';
+    gl_ntv.z_Color3uiv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3uiv(v: IntPtr) :=
-    z_Color3uiv_ovr_2(v);
+    gl_ntv.z_Color3uiv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3us_ovr_0(red: UInt16; green: UInt16; blue: UInt16);
-    external 'opengl32.dll' name 'glColor3us';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3us(red: UInt16; green: UInt16; blue: UInt16) :=
-    z_Color3us_ovr_0(red, green, blue);
+    gl_ntv.z_Color3us_ovr_0(red, green, blue);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color3usv_ovr_0(var v: UInt16);
-    external 'opengl32.dll' name 'glColor3usv';
-    private static procedure z_Color3usv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3usv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3usv(v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color3usv_ovr_0(v[0]) else
-      z_Color3usv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color3usv_ovr_0(v[0]) else
+      gl_ntv.z_Color3usv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3usv(var v: UInt16) :=
-    z_Color3usv_ovr_0(v);
-    private static procedure z_Color3usv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3usv';
+    gl_ntv.z_Color3usv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3usv(v: IntPtr) :=
-    z_Color3usv_ovr_2(v);
+    gl_ntv.z_Color3usv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4b_ovr_0(red: SByte; green: SByte; blue: SByte; alpha: SByte);
-    external 'opengl32.dll' name 'glColor4b';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4b(red: SByte; green: SByte; blue: SByte; alpha: SByte) :=
-    z_Color4b_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4b_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4bv_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glColor4bv';
-    private static procedure z_Color4bv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4bv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4bv(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4bv_ovr_0(v[0]) else
-      z_Color4bv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4bv_ovr_0(v[0]) else
+      gl_ntv.z_Color4bv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4bv(var v: SByte) :=
-    z_Color4bv_ovr_0(v);
-    private static procedure z_Color4bv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4bv';
+    gl_ntv.z_Color4bv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4bv(v: IntPtr) :=
-    z_Color4bv_ovr_2(v);
+    gl_ntv.z_Color4bv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4d_ovr_0(red: real; green: real; blue: real; alpha: real);
-    external 'opengl32.dll' name 'glColor4d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4d(red: real; green: real; blue: real; alpha: real) :=
-    z_Color4d_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4d_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glColor4dv';
-    private static procedure z_Color4dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4dv_ovr_0(v[0]) else
-      z_Color4dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4dv_ovr_0(v[0]) else
+      gl_ntv.z_Color4dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4dv(var v: real) :=
-    z_Color4dv_ovr_0(v);
-    private static procedure z_Color4dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4dv';
+    gl_ntv.z_Color4dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4dv(v: IntPtr) :=
-    z_Color4dv_ovr_2(v);
+    gl_ntv.z_Color4dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4f_ovr_0(red: single; green: single; blue: single; alpha: single);
-    external 'opengl32.dll' name 'glColor4f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4f(red: single; green: single; blue: single; alpha: single) :=
-    z_Color4f_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4f_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glColor4fv';
-    private static procedure z_Color4fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4fv_ovr_0(v[0]) else
-      z_Color4fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4fv_ovr_0(v[0]) else
+      gl_ntv.z_Color4fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fv(var v: single) :=
-    z_Color4fv_ovr_0(v);
-    private static procedure z_Color4fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fv';
+    gl_ntv.z_Color4fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fv(v: IntPtr) :=
-    z_Color4fv_ovr_2(v);
+    gl_ntv.z_Color4fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4i_ovr_0(red: Int32; green: Int32; blue: Int32; alpha: Int32);
-    external 'opengl32.dll' name 'glColor4i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4i(red: Int32; green: Int32; blue: Int32; alpha: Int32) :=
-    z_Color4i_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4i_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glColor4iv';
-    private static procedure z_Color4iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4iv_ovr_0(v[0]) else
-      z_Color4iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4iv_ovr_0(v[0]) else
+      gl_ntv.z_Color4iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4iv(var v: Int32) :=
-    z_Color4iv_ovr_0(v);
-    private static procedure z_Color4iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4iv';
+    gl_ntv.z_Color4iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4iv(v: IntPtr) :=
-    z_Color4iv_ovr_2(v);
+    gl_ntv.z_Color4iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4s_ovr_0(red: Int16; green: Int16; blue: Int16; alpha: Int16);
-    external 'opengl32.dll' name 'glColor4s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4s(red: Int16; green: Int16; blue: Int16; alpha: Int16) :=
-    z_Color4s_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4s_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glColor4sv';
-    private static procedure z_Color4sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4sv_ovr_0(v[0]) else
-      z_Color4sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4sv_ovr_0(v[0]) else
+      gl_ntv.z_Color4sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4sv(var v: Int16) :=
-    z_Color4sv_ovr_0(v);
-    private static procedure z_Color4sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4sv';
+    gl_ntv.z_Color4sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4sv(v: IntPtr) :=
-    z_Color4sv_ovr_2(v);
+    gl_ntv.z_Color4sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4ub_ovr_0(red: Byte; green: Byte; blue: Byte; alpha: Byte);
-    external 'opengl32.dll' name 'glColor4ub';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ub(red: Byte; green: Byte; blue: Byte; alpha: Byte) :=
-    z_Color4ub_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4ub_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4ubv_ovr_0(var v: Byte);
-    external 'opengl32.dll' name 'glColor4ubv';
-    private static procedure z_Color4ubv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubv(v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4ubv_ovr_0(v[0]) else
-      z_Color4ubv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4ubv_ovr_0(v[0]) else
+      gl_ntv.z_Color4ubv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubv(var v: Byte) :=
-    z_Color4ubv_ovr_0(v);
-    private static procedure z_Color4ubv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubv';
+    gl_ntv.z_Color4ubv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubv(v: IntPtr) :=
-    z_Color4ubv_ovr_2(v);
+    gl_ntv.z_Color4ubv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4ui_ovr_0(red: UInt32; green: UInt32; blue: UInt32; alpha: UInt32);
-    external 'opengl32.dll' name 'glColor4ui';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ui(red: UInt32; green: UInt32; blue: UInt32; alpha: UInt32) :=
-    z_Color4ui_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4ui_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4uiv_ovr_0(var v: UInt32);
-    external 'opengl32.dll' name 'glColor4uiv';
-    private static procedure z_Color4uiv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4uiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4uiv(v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4uiv_ovr_0(v[0]) else
-      z_Color4uiv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4uiv_ovr_0(v[0]) else
+      gl_ntv.z_Color4uiv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4uiv(var v: UInt32) :=
-    z_Color4uiv_ovr_0(v);
-    private static procedure z_Color4uiv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4uiv';
+    gl_ntv.z_Color4uiv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4uiv(v: IntPtr) :=
-    z_Color4uiv_ovr_2(v);
+    gl_ntv.z_Color4uiv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4us_ovr_0(red: UInt16; green: UInt16; blue: UInt16; alpha: UInt16);
-    external 'opengl32.dll' name 'glColor4us';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4us(red: UInt16; green: UInt16; blue: UInt16; alpha: UInt16) :=
-    z_Color4us_ovr_0(red, green, blue, alpha);
+    gl_ntv.z_Color4us_ovr_0(red, green, blue, alpha);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Color4usv_ovr_0(var v: UInt16);
-    external 'opengl32.dll' name 'glColor4usv';
-    private static procedure z_Color4usv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4usv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4usv(v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Color4usv_ovr_0(v[0]) else
-      z_Color4usv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Color4usv_ovr_0(v[0]) else
+      gl_ntv.z_Color4usv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4usv(var v: UInt16) :=
-    z_Color4usv_ovr_0(v);
-    private static procedure z_Color4usv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4usv';
+    gl_ntv.z_Color4usv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4usv(v: IntPtr) :=
-    z_Color4usv_ovr_2(v);
+    gl_ntv.z_Color4usv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ColorMaterial_ovr_0(face: MaterialFace; mode: ColorMaterialParameter);
-    external 'opengl32.dll' name 'glColorMaterial';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorMaterial(face: MaterialFace; mode: ColorMaterialParameter) :=
-    z_ColorMaterial_ovr_0(face, mode);
+    gl_ntv.z_ColorMaterial_ovr_0(face, mode);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_ColorPointer_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glColorPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointer(size: Int32; &type: ColorPointerType; stride: Int32; pointer: IntPtr) :=
-    z_ColorPointer_ovr_0(size, &type, stride, pointer);
+    gl_ntv.z_ColorPointer_ovr_0(size, &type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_CopyPixels_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; &type: PixelCopyType);
-    external 'opengl32.dll' name 'glCopyPixels';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyPixels(x: Int32; y: Int32; width: Int32; height: Int32; &type: PixelCopyType) :=
-    z_CopyPixels_ovr_0(x, y, width, height, &type);
+    gl_ntv.z_CopyPixels_ovr_0(x, y, width, height, &type);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_DeleteLists_ovr_0(list: UInt32; range: Int32);
-    external 'opengl32.dll' name 'glDeleteLists';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteLists(list: UInt32; range: Int32) :=
-    z_DeleteLists_ovr_0(list, range);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteLists(list: gl_display_list; range: Int32) :=
+    gl_ntv.z_DeleteLists_ovr_0(list, range);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_DisableClientState_ovr_0(&array: EnableCap);
-    external 'opengl32.dll' name 'glDisableClientState';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableClientState(&array: EnableCap) :=
-    z_DisableClientState_ovr_0(&array);
+    gl_ntv.z_DisableClientState_ovr_0(&array);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_DrawPixels_ovr_0(width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glDrawPixels';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawPixels(width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
-    z_DrawPixels_ovr_0(width, height, format, &type, pixels);
+    gl_ntv.z_DrawPixels_ovr_0(width, height, format, &type, pixels);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EdgeFlag_ovr_0(flag: boolean);
-    external 'opengl32.dll' name 'glEdgeFlag';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlag(flag: boolean) :=
-    z_EdgeFlag_ovr_0(flag);
+    gl_ntv.z_EdgeFlag_ovr_0(flag);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_EdgeFlagPointer_ovr_0(stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glEdgeFlagPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointer(stride: Int32; pointer: IntPtr) :=
-    z_EdgeFlagPointer_ovr_0(stride, pointer);
+    gl_ntv.z_EdgeFlagPointer_ovr_0(stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EdgeFlagv_ovr_0(var flag: boolean);
-    external 'opengl32.dll' name 'glEdgeFlagv';
-    private static procedure z_EdgeFlagv_ovr_0_anh01(flag: IntPtr);
-    external 'opengl32.dll' name 'glEdgeFlagv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagv(flag: array of boolean) :=
-    if (flag<>nil) and (flag.Length<>0) then
-      z_EdgeFlagv_ovr_0(flag[0]) else
-      z_EdgeFlagv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagv(var flag: boolean) :=
-    z_EdgeFlagv_ovr_0(flag);
-    private static procedure z_EdgeFlagv_ovr_2(flag: IntPtr);
-    external 'opengl32.dll' name 'glEdgeFlagv';
+    gl_ntv.z_EdgeFlagv_ovr_0(flag);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagv(flag: IntPtr) :=
-    z_EdgeFlagv_ovr_2(flag);
+    gl_ntv.z_EdgeFlagv_ovr_1(flag);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_EnableClientState_ovr_0(&array: EnableCap);
-    external 'opengl32.dll' name 'glEnableClientState';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableClientState(&array: EnableCap) :=
-    z_EnableClientState_ovr_0(&array);
+    gl_ntv.z_EnableClientState_ovr_0(&array);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_End_ovr_0;
-    external 'opengl32.dll' name 'glEnd';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure &End :=
-    z_End_ovr_0;
+    gl_ntv.z_End_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EndList_ovr_0;
-    external 'opengl32.dll' name 'glEndList';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndList :=
-    z_EndList_ovr_0;
+    gl_ntv.z_EndList_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord1d_ovr_0(u: real);
-    external 'opengl32.dll' name 'glEvalCoord1d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1d(u: real) :=
-    z_EvalCoord1d_ovr_0(u);
+    gl_ntv.z_EvalCoord1d_ovr_0(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord1dv_ovr_0(var u: real);
-    external 'opengl32.dll' name 'glEvalCoord1dv';
-    private static procedure z_EvalCoord1dv_ovr_0_anh01(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1dv(u: array of real) :=
-    if (u<>nil) and (u.Length<>0) then
-      z_EvalCoord1dv_ovr_0(u[0]) else
-      z_EvalCoord1dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1dv(var u: real) :=
-    z_EvalCoord1dv_ovr_0(u);
-    private static procedure z_EvalCoord1dv_ovr_2(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1dv';
+    gl_ntv.z_EvalCoord1dv_ovr_0(u);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1dv(u: IntPtr) :=
-    z_EvalCoord1dv_ovr_2(u);
+    gl_ntv.z_EvalCoord1dv_ovr_1(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord1f_ovr_0(u: single);
-    external 'opengl32.dll' name 'glEvalCoord1f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1f(u: single) :=
-    z_EvalCoord1f_ovr_0(u);
+    gl_ntv.z_EvalCoord1f_ovr_0(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord1fv_ovr_0(var u: single);
-    external 'opengl32.dll' name 'glEvalCoord1fv';
-    private static procedure z_EvalCoord1fv_ovr_0_anh01(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1fv(u: array of single) :=
-    if (u<>nil) and (u.Length<>0) then
-      z_EvalCoord1fv_ovr_0(u[0]) else
-      z_EvalCoord1fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1fv(var u: single) :=
-    z_EvalCoord1fv_ovr_0(u);
-    private static procedure z_EvalCoord1fv_ovr_2(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1fv';
+    gl_ntv.z_EvalCoord1fv_ovr_0(u);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1fv(u: IntPtr) :=
-    z_EvalCoord1fv_ovr_2(u);
+    gl_ntv.z_EvalCoord1fv_ovr_1(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord2d_ovr_0(u: real; v: real);
-    external 'opengl32.dll' name 'glEvalCoord2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2d(u: real; v: real) :=
-    z_EvalCoord2d_ovr_0(u, v);
+    gl_ntv.z_EvalCoord2d_ovr_0(u, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord2dv_ovr_0(var u: real);
-    external 'opengl32.dll' name 'glEvalCoord2dv';
-    private static procedure z_EvalCoord2dv_ovr_0_anh01(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2dv(u: array of real) :=
     if (u<>nil) and (u.Length<>0) then
-      z_EvalCoord2dv_ovr_0(u[0]) else
-      z_EvalCoord2dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_EvalCoord2dv_ovr_0(u[0]) else
+      gl_ntv.z_EvalCoord2dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2dv(var u: real) :=
-    z_EvalCoord2dv_ovr_0(u);
-    private static procedure z_EvalCoord2dv_ovr_2(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2dv';
+    gl_ntv.z_EvalCoord2dv_ovr_0(u);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2dv(u: IntPtr) :=
-    z_EvalCoord2dv_ovr_2(u);
+    gl_ntv.z_EvalCoord2dv_ovr_2(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord2f_ovr_0(u: single; v: single);
-    external 'opengl32.dll' name 'glEvalCoord2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2f(u: single; v: single) :=
-    z_EvalCoord2f_ovr_0(u, v);
+    gl_ntv.z_EvalCoord2f_ovr_0(u, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalCoord2fv_ovr_0(var u: single);
-    external 'opengl32.dll' name 'glEvalCoord2fv';
-    private static procedure z_EvalCoord2fv_ovr_0_anh01(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2fv(u: array of single) :=
     if (u<>nil) and (u.Length<>0) then
-      z_EvalCoord2fv_ovr_0(u[0]) else
-      z_EvalCoord2fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_EvalCoord2fv_ovr_0(u[0]) else
+      gl_ntv.z_EvalCoord2fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2fv(var u: single) :=
-    z_EvalCoord2fv_ovr_0(u);
-    private static procedure z_EvalCoord2fv_ovr_2(u: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2fv';
+    gl_ntv.z_EvalCoord2fv_ovr_0(u);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2fv(u: IntPtr) :=
-    z_EvalCoord2fv_ovr_2(u);
+    gl_ntv.z_EvalCoord2fv_ovr_2(u);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalMesh1_ovr_0(mode: MeshMode1; i1: Int32; i2: Int32);
-    external 'opengl32.dll' name 'glEvalMesh1';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalMesh1(mode: MeshMode1; i1: Int32; i2: Int32) :=
-    z_EvalMesh1_ovr_0(mode, i1, i2);
+    gl_ntv.z_EvalMesh1_ovr_0(mode, i1, i2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalMesh2_ovr_0(mode: MeshMode2; i1: Int32; i2: Int32; j1: Int32; j2: Int32);
-    external 'opengl32.dll' name 'glEvalMesh2';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalMesh2(mode: MeshMode2; i1: Int32; i2: Int32; j1: Int32; j2: Int32) :=
-    z_EvalMesh2_ovr_0(mode, i1, i2, j1, j2);
+    gl_ntv.z_EvalMesh2_ovr_0(mode, i1, i2, j1, j2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalPoint1_ovr_0(i: Int32);
-    external 'opengl32.dll' name 'glEvalPoint1';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalPoint1(i: Int32) :=
-    z_EvalPoint1_ovr_0(i);
+    gl_ntv.z_EvalPoint1_ovr_0(i);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_EvalPoint2_ovr_0(i: Int32; j: Int32);
-    external 'opengl32.dll' name 'glEvalPoint2';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalPoint2(i: Int32; j: Int32) :=
-    z_EvalPoint2_ovr_0(i, j);
+    gl_ntv.z_EvalPoint2_ovr_0(i, j);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_FeedbackBuffer_ovr_0(size: Int32; &type: FeedbackType; var buffer: single);
-    external 'opengl32.dll' name 'glFeedbackBuffer';
-    private static procedure z_FeedbackBuffer_ovr_0_anh0001(size: Int32; &type: FeedbackType; buffer: IntPtr);
-    external 'opengl32.dll' name 'glFeedbackBuffer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBuffer(size: Int32; &type: FeedbackType; buffer: array of single) :=
     if (buffer<>nil) and (buffer.Length<>0) then
-      z_FeedbackBuffer_ovr_0(size, &type, buffer[0]) else
-      z_FeedbackBuffer_ovr_0_anh0001(size, &type, IntPtr.Zero);
+      gl_ntv.z_FeedbackBuffer_ovr_0(size, &type, buffer[0]) else
+      gl_ntv.z_FeedbackBuffer_ovr_0_anh0001(size, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBuffer(size: Int32; &type: FeedbackType; var buffer: single) :=
-    z_FeedbackBuffer_ovr_0(size, &type, buffer);
-    private static procedure z_FeedbackBuffer_ovr_2(size: Int32; &type: FeedbackType; buffer: IntPtr);
-    external 'opengl32.dll' name 'glFeedbackBuffer';
+    gl_ntv.z_FeedbackBuffer_ovr_0(size, &type, buffer);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBuffer(size: Int32; &type: FeedbackType; buffer: IntPtr) :=
-    z_FeedbackBuffer_ovr_2(size, &type, buffer);
+    gl_ntv.z_FeedbackBuffer_ovr_2(size, &type, buffer);
     
     // added in gl1.4, deprecated in gl3.2
     private z_FogCoordd_adr := GetFuncAdr('glFogCoordd');
@@ -31843,16 +33744,11 @@ type
     // added in gl1.4, deprecated in gl3.2
     private z_FogCoorddv_adr := GetFuncAdr('glFogCoorddv');
     private z_FogCoorddv_ovr_0 := GetFuncOrNil&(z_FogCoorddv_adr);
-    private z_FogCoorddv_ovr_0_anh01 := GetFuncOrNil&(z_FogCoorddv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddv(coord: array of real) :=
-    if (coord<>nil) and (coord.Length<>0) then
-      z_FogCoorddv_ovr_0(coord[0]) else
-      z_FogCoorddv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddv(var coord: real) :=
     z_FogCoorddv_ovr_0(coord);
-    private z_FogCoorddv_ovr_2 := GetFuncOrNil&(z_FogCoorddv_adr);
+    private z_FogCoorddv_ovr_1 := GetFuncOrNil&(z_FogCoorddv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddv(coord: IntPtr) :=
-    z_FogCoorddv_ovr_2(coord);
+    z_FogCoorddv_ovr_1(coord);
     
     // added in gl1.4, deprecated in gl3.2
     private z_FogCoordf_adr := GetFuncAdr('glFogCoordf');
@@ -31863,16 +33759,11 @@ type
     // added in gl1.4, deprecated in gl3.2
     private z_FogCoordfv_adr := GetFuncAdr('glFogCoordfv');
     private z_FogCoordfv_ovr_0 := GetFuncOrNil&(z_FogCoordfv_adr);
-    private z_FogCoordfv_ovr_0_anh01 := GetFuncOrNil&(z_FogCoordfv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfv(coord: array of single) :=
-    if (coord<>nil) and (coord.Length<>0) then
-      z_FogCoordfv_ovr_0(coord[0]) else
-      z_FogCoordfv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfv(var coord: single) :=
     z_FogCoordfv_ovr_0(coord);
-    private z_FogCoordfv_ovr_2 := GetFuncOrNil&(z_FogCoordfv_adr);
+    private z_FogCoordfv_ovr_1 := GetFuncOrNil&(z_FogCoordfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfv(coord: IntPtr) :=
-    z_FogCoordfv_ovr_2(coord);
+    z_FogCoordfv_ovr_1(coord);
     
     // added in gl1.4, deprecated in gl3.2
     private z_FogCoordPointer_adr := GetFuncAdr('glFogCoordPointer');
@@ -31881,616 +33772,372 @@ type
     z_FogCoordPointer_ovr_0(&type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Fogf_ovr_0(pname: FogParameter; param: single);
-    external 'opengl32.dll' name 'glFogf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogf(pname: FogParameter; param: single) :=
-    z_Fogf_ovr_0(pname, param);
+    gl_ntv.z_Fogf_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Fogfv_ovr_0(pname: FogParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glFogfv';
-    private static procedure z_Fogfv_ovr_0_anh001(pname: FogParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFogfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogfv(pname: FogParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Fogfv_ovr_0(pname, ¶ms[0]) else
-      z_Fogfv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_Fogfv_ovr_0(pname, ¶ms[0]) else
+      gl_ntv.z_Fogfv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogfv(pname: FogParameter; var ¶ms: single) :=
-    z_Fogfv_ovr_0(pname, ¶ms);
-    private static procedure z_Fogfv_ovr_2(pname: FogParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFogfv';
+    gl_ntv.z_Fogfv_ovr_0(pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogfv(pname: FogParameter; ¶ms: IntPtr) :=
-    z_Fogfv_ovr_2(pname, ¶ms);
+    gl_ntv.z_Fogfv_ovr_2(pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Fogi_ovr_0(pname: FogParameter; param: Int32);
-    external 'opengl32.dll' name 'glFogi';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogi(pname: FogParameter; param: Int32) :=
-    z_Fogi_ovr_0(pname, param);
+    gl_ntv.z_Fogi_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Fogiv_ovr_0(pname: FogParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glFogiv';
-    private static procedure z_Fogiv_ovr_0_anh001(pname: FogParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFogiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogiv(pname: FogParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Fogiv_ovr_0(pname, ¶ms[0]) else
-      z_Fogiv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_Fogiv_ovr_0(pname, ¶ms[0]) else
+      gl_ntv.z_Fogiv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogiv(pname: FogParameter; var ¶ms: Int32) :=
-    z_Fogiv_ovr_0(pname, ¶ms);
-    private static procedure z_Fogiv_ovr_2(pname: FogParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFogiv';
+    gl_ntv.z_Fogiv_ovr_0(pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Fogiv(pname: FogParameter; ¶ms: IntPtr) :=
-    z_Fogiv_ovr_2(pname, ¶ms);
+    gl_ntv.z_Fogiv_ovr_2(pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Frustum_ovr_0(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glFrustum';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Frustum(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
-    z_Frustum_ovr_0(left, right, bottom, top, zNear, zFar);
+    gl_ntv.z_Frustum_ovr_0(left, right, bottom, top, zNear, zFar);
     
     // added in gl1.0, deprecated in gl3.2
-    private static function z_GenLists_ovr_0(range: Int32): UInt32;
-    external 'opengl32.dll' name 'glGenLists';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenLists(range: Int32): UInt32 :=
-    z_GenLists_ovr_0(range);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenLists(range: Int32): gl_display_list :=
+    gl_ntv.z_GenLists_ovr_0(range);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetClipPlane_ovr_0(plane: ClipPlaneName; var equation: real);
-    external 'opengl32.dll' name 'glGetClipPlane';
-    private static procedure z_GetClipPlane_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlane';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlane(plane: ClipPlaneName; equation: array of real) :=
     if (equation<>nil) and (equation.Length<>0) then
-      z_GetClipPlane_ovr_0(plane, equation[0]) else
-      z_GetClipPlane_ovr_0_anh001(plane, IntPtr.Zero);
+      gl_ntv.z_GetClipPlane_ovr_0(plane, equation[0]) else
+      gl_ntv.z_GetClipPlane_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlane(plane: ClipPlaneName; var equation: real) :=
-    z_GetClipPlane_ovr_0(plane, equation);
-    private static procedure z_GetClipPlane_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlane';
+    gl_ntv.z_GetClipPlane_ovr_0(plane, equation);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlane(plane: ClipPlaneName; equation: IntPtr) :=
-    z_GetClipPlane_ovr_2(plane, equation);
+    gl_ntv.z_GetClipPlane_ovr_2(plane, equation);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetLightfv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetLightfv';
-    private static procedure z_GetLightfv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightfv(light: LightName; pname: LightParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetLightfv_ovr_0(light, pname, ¶ms[0]) else
-      z_GetLightfv_ovr_0_anh0001(light, pname, IntPtr.Zero);
+      gl_ntv.z_GetLightfv_ovr_0(light, pname, ¶ms[0]) else
+      gl_ntv.z_GetLightfv_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightfv(light: LightName; pname: LightParameter; var ¶ms: single) :=
-    z_GetLightfv_ovr_0(light, pname, ¶ms);
-    private static procedure z_GetLightfv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightfv';
+    gl_ntv.z_GetLightfv_ovr_0(light, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightfv(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
-    z_GetLightfv_ovr_2(light, pname, ¶ms);
+    gl_ntv.z_GetLightfv_ovr_2(light, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetLightiv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetLightiv';
-    private static procedure z_GetLightiv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightiv(light: LightName; pname: LightParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetLightiv_ovr_0(light, pname, ¶ms[0]) else
-      z_GetLightiv_ovr_0_anh0001(light, pname, IntPtr.Zero);
+      gl_ntv.z_GetLightiv_ovr_0(light, pname, ¶ms[0]) else
+      gl_ntv.z_GetLightiv_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightiv(light: LightName; pname: LightParameter; var ¶ms: Int32) :=
-    z_GetLightiv_ovr_0(light, pname, ¶ms);
-    private static procedure z_GetLightiv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightiv';
+    gl_ntv.z_GetLightiv_ovr_0(light, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightiv(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
-    z_GetLightiv_ovr_2(light, pname, ¶ms);
+    gl_ntv.z_GetLightiv_ovr_2(light, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetMapdv_ovr_0(target: MapTarget; query: GetMapQuery; var v: real);
-    external 'opengl32.dll' name 'glGetMapdv';
-    private static procedure z_GetMapdv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapdv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapdv(target: MapTarget; query: GetMapQuery; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_GetMapdv_ovr_0(target, query, v[0]) else
-      z_GetMapdv_ovr_0_anh0001(target, query, IntPtr.Zero);
+      gl_ntv.z_GetMapdv_ovr_0(target, query, v[0]) else
+      gl_ntv.z_GetMapdv_ovr_0_anh0001(target, query, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapdv(target: MapTarget; query: GetMapQuery; var v: real) :=
-    z_GetMapdv_ovr_0(target, query, v);
-    private static procedure z_GetMapdv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapdv';
+    gl_ntv.z_GetMapdv_ovr_0(target, query, v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapdv(target: MapTarget; query: GetMapQuery; v: IntPtr) :=
-    z_GetMapdv_ovr_2(target, query, v);
+    gl_ntv.z_GetMapdv_ovr_2(target, query, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetMapfv_ovr_0(target: MapTarget; query: GetMapQuery; var v: single);
-    external 'opengl32.dll' name 'glGetMapfv';
-    private static procedure z_GetMapfv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapfv(target: MapTarget; query: GetMapQuery; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_GetMapfv_ovr_0(target, query, v[0]) else
-      z_GetMapfv_ovr_0_anh0001(target, query, IntPtr.Zero);
+      gl_ntv.z_GetMapfv_ovr_0(target, query, v[0]) else
+      gl_ntv.z_GetMapfv_ovr_0_anh0001(target, query, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapfv(target: MapTarget; query: GetMapQuery; var v: single) :=
-    z_GetMapfv_ovr_0(target, query, v);
-    private static procedure z_GetMapfv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapfv';
+    gl_ntv.z_GetMapfv_ovr_0(target, query, v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapfv(target: MapTarget; query: GetMapQuery; v: IntPtr) :=
-    z_GetMapfv_ovr_2(target, query, v);
+    gl_ntv.z_GetMapfv_ovr_2(target, query, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetMapiv_ovr_0(target: MapTarget; query: GetMapQuery; var v: Int32);
-    external 'opengl32.dll' name 'glGetMapiv';
-    private static procedure z_GetMapiv_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapiv(target: MapTarget; query: GetMapQuery; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_GetMapiv_ovr_0(target, query, v[0]) else
-      z_GetMapiv_ovr_0_anh0001(target, query, IntPtr.Zero);
+      gl_ntv.z_GetMapiv_ovr_0(target, query, v[0]) else
+      gl_ntv.z_GetMapiv_ovr_0_anh0001(target, query, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapiv(target: MapTarget; query: GetMapQuery; var v: Int32) :=
-    z_GetMapiv_ovr_0(target, query, v);
-    private static procedure z_GetMapiv_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapiv';
+    gl_ntv.z_GetMapiv_ovr_0(target, query, v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapiv(target: MapTarget; query: GetMapQuery; v: IntPtr) :=
-    z_GetMapiv_ovr_2(target, query, v);
+    gl_ntv.z_GetMapiv_ovr_2(target, query, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetMaterialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMaterialfv';
-    private static procedure z_GetMaterialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMaterialfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetMaterialfv_ovr_0(face, pname, ¶ms[0]) else
-      z_GetMaterialfv_ovr_0_anh0001(face, pname, IntPtr.Zero);
+      gl_ntv.z_GetMaterialfv_ovr_0(face, pname, ¶ms[0]) else
+      gl_ntv.z_GetMaterialfv_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) :=
-    z_GetMaterialfv_ovr_0(face, pname, ¶ms);
-    private static procedure z_GetMaterialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMaterialfv';
+    gl_ntv.z_GetMaterialfv_ovr_0(face, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
-    z_GetMaterialfv_ovr_2(face, pname, ¶ms);
+    gl_ntv.z_GetMaterialfv_ovr_2(face, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetMaterialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMaterialiv';
-    private static procedure z_GetMaterialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMaterialiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetMaterialiv_ovr_0(face, pname, ¶ms[0]) else
-      z_GetMaterialiv_ovr_0_anh0001(face, pname, IntPtr.Zero);
+      gl_ntv.z_GetMaterialiv_ovr_0(face, pname, ¶ms[0]) else
+      gl_ntv.z_GetMaterialiv_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) :=
-    z_GetMaterialiv_ovr_0(face, pname, ¶ms);
-    private static procedure z_GetMaterialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMaterialiv';
+    gl_ntv.z_GetMaterialiv_ovr_0(face, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
-    z_GetMaterialiv_ovr_2(face, pname, ¶ms);
+    gl_ntv.z_GetMaterialiv_ovr_2(face, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetPixelMapfv_ovr_0(map: PixelMap; var values: single);
-    external 'opengl32.dll' name 'glGetPixelMapfv';
-    private static procedure z_GetPixelMapfv_ovr_0_anh001(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapfv(map: PixelMap; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
-      z_GetPixelMapfv_ovr_0(map, values[0]) else
-      z_GetPixelMapfv_ovr_0_anh001(map, IntPtr.Zero);
+      gl_ntv.z_GetPixelMapfv_ovr_0(map, values[0]) else
+      gl_ntv.z_GetPixelMapfv_ovr_0_anh001(map, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapfv(map: PixelMap; var values: single) :=
-    z_GetPixelMapfv_ovr_0(map, values);
-    private static procedure z_GetPixelMapfv_ovr_2(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapfv';
+    gl_ntv.z_GetPixelMapfv_ovr_0(map, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapfv(map: PixelMap; values: IntPtr) :=
-    z_GetPixelMapfv_ovr_2(map, values);
+    gl_ntv.z_GetPixelMapfv_ovr_2(map, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetPixelMapuiv_ovr_0(map: PixelMap; var values: UInt32);
-    external 'opengl32.dll' name 'glGetPixelMapuiv';
-    private static procedure z_GetPixelMapuiv_ovr_0_anh001(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapuiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapuiv(map: PixelMap; values: array of UInt32) :=
     if (values<>nil) and (values.Length<>0) then
-      z_GetPixelMapuiv_ovr_0(map, values[0]) else
-      z_GetPixelMapuiv_ovr_0_anh001(map, IntPtr.Zero);
+      gl_ntv.z_GetPixelMapuiv_ovr_0(map, values[0]) else
+      gl_ntv.z_GetPixelMapuiv_ovr_0_anh001(map, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapuiv(map: PixelMap; var values: UInt32) :=
-    z_GetPixelMapuiv_ovr_0(map, values);
-    private static procedure z_GetPixelMapuiv_ovr_2(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapuiv';
+    gl_ntv.z_GetPixelMapuiv_ovr_0(map, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapuiv(map: PixelMap; values: IntPtr) :=
-    z_GetPixelMapuiv_ovr_2(map, values);
+    gl_ntv.z_GetPixelMapuiv_ovr_2(map, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetPixelMapusv_ovr_0(map: PixelMap; var values: UInt16);
-    external 'opengl32.dll' name 'glGetPixelMapusv';
-    private static procedure z_GetPixelMapusv_ovr_0_anh001(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapusv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapusv(map: PixelMap; values: array of UInt16) :=
     if (values<>nil) and (values.Length<>0) then
-      z_GetPixelMapusv_ovr_0(map, values[0]) else
-      z_GetPixelMapusv_ovr_0_anh001(map, IntPtr.Zero);
+      gl_ntv.z_GetPixelMapusv_ovr_0(map, values[0]) else
+      gl_ntv.z_GetPixelMapusv_ovr_0_anh001(map, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapusv(map: PixelMap; var values: UInt16) :=
-    z_GetPixelMapusv_ovr_0(map, values);
-    private static procedure z_GetPixelMapusv_ovr_2(map: PixelMap; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapusv';
+    gl_ntv.z_GetPixelMapusv_ovr_0(map, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapusv(map: PixelMap; values: IntPtr) :=
-    z_GetPixelMapusv_ovr_2(map, values);
+    gl_ntv.z_GetPixelMapusv_ovr_2(map, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetPolygonStipple_ovr_0(var mask: Byte);
-    external 'opengl32.dll' name 'glGetPolygonStipple';
-    private static procedure z_GetPolygonStipple_ovr_0_anh01(mask: IntPtr);
-    external 'opengl32.dll' name 'glGetPolygonStipple';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPolygonStipple(mask: array of Byte) :=
     if (mask<>nil) and (mask.Length<>0) then
-      z_GetPolygonStipple_ovr_0(mask[0]) else
-      z_GetPolygonStipple_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_GetPolygonStipple_ovr_0(mask[0]) else
+      gl_ntv.z_GetPolygonStipple_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPolygonStipple(var mask: Byte) :=
-    z_GetPolygonStipple_ovr_0(mask);
-    private static procedure z_GetPolygonStipple_ovr_2(mask: IntPtr);
-    external 'opengl32.dll' name 'glGetPolygonStipple';
+    gl_ntv.z_GetPolygonStipple_ovr_0(mask);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPolygonStipple(mask: IntPtr) :=
-    z_GetPolygonStipple_ovr_2(mask);
+    gl_ntv.z_GetPolygonStipple_ovr_2(mask);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetTexEnvfv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTexEnvfv';
-    private static procedure z_GetTexEnvfv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnvfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexEnvfv_ovr_0(target, pname, ¶ms[0]) else
-      z_GetTexEnvfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexEnvfv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexEnvfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single) :=
-    z_GetTexEnvfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexEnvfv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnvfv';
+    gl_ntv.z_GetTexEnvfv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
-    z_GetTexEnvfv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_GetTexEnvfv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetTexEnviv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTexEnviv';
-    private static procedure z_GetTexEnviv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnviv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexEnviv_ovr_0(target, pname, ¶ms[0]) else
-      z_GetTexEnviv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexEnviv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexEnviv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32) :=
-    z_GetTexEnviv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexEnviv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnviv';
+    gl_ntv.z_GetTexEnviv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
-    z_GetTexEnviv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_GetTexEnviv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetTexGendv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetTexGendv';
-    private static procedure z_GetTexGendv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGendv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGendv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexGendv_ovr_0(coord, pname, ¶ms[0]) else
-      z_GetTexGendv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexGendv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexGendv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGendv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real) :=
-    z_GetTexGendv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_GetTexGendv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGendv';
+    gl_ntv.z_GetTexGendv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGendv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_GetTexGendv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_GetTexGendv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetTexGenfv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTexGenfv';
-    private static procedure z_GetTexGenfv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGenfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenfv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexGenfv_ovr_0(coord, pname, ¶ms[0]) else
-      z_GetTexGenfv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexGenfv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexGenfv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenfv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single) :=
-    z_GetTexGenfv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_GetTexGenfv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGenfv';
+    gl_ntv.z_GetTexGenfv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenfv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_GetTexGenfv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_GetTexGenfv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_GetTexGeniv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTexGeniv';
-    private static procedure z_GetTexGeniv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGeniv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGeniv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexGeniv_ovr_0(coord, pname, ¶ms[0]) else
-      z_GetTexGeniv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_GetTexGeniv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_GetTexGeniv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGeniv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32) :=
-    z_GetTexGeniv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_GetTexGeniv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGeniv';
+    gl_ntv.z_GetTexGeniv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGeniv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_GetTexGeniv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_GetTexGeniv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexd_ovr_0(c: real);
-    external 'opengl32.dll' name 'glIndexd';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexd(c: real) :=
-    z_Indexd_ovr_0(c);
+    gl_ntv.z_Indexd_ovr_0(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexdv_ovr_0(var c: real);
-    external 'opengl32.dll' name 'glIndexdv';
-    private static procedure z_Indexdv_ovr_0_anh01(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexdv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexdv(c: array of real) :=
-    if (c<>nil) and (c.Length<>0) then
-      z_Indexdv_ovr_0(c[0]) else
-      z_Indexdv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexdv(var c: real) :=
-    z_Indexdv_ovr_0(c);
-    private static procedure z_Indexdv_ovr_2(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexdv';
+    gl_ntv.z_Indexdv_ovr_0(c);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexdv(c: IntPtr) :=
-    z_Indexdv_ovr_2(c);
+    gl_ntv.z_Indexdv_ovr_1(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexf_ovr_0(c: single);
-    external 'opengl32.dll' name 'glIndexf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexf(c: single) :=
-    z_Indexf_ovr_0(c);
+    gl_ntv.z_Indexf_ovr_0(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexfv_ovr_0(var c: single);
-    external 'opengl32.dll' name 'glIndexfv';
-    private static procedure z_Indexfv_ovr_0_anh01(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexfv(c: array of single) :=
-    if (c<>nil) and (c.Length<>0) then
-      z_Indexfv_ovr_0(c[0]) else
-      z_Indexfv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexfv(var c: single) :=
-    z_Indexfv_ovr_0(c);
-    private static procedure z_Indexfv_ovr_2(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexfv';
+    gl_ntv.z_Indexfv_ovr_0(c);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexfv(c: IntPtr) :=
-    z_Indexfv_ovr_2(c);
+    gl_ntv.z_Indexfv_ovr_1(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexi_ovr_0(c: Int32);
-    external 'opengl32.dll' name 'glIndexi';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexi(c: Int32) :=
-    z_Indexi_ovr_0(c);
+    gl_ntv.z_Indexi_ovr_0(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexiv_ovr_0(var c: Int32);
-    external 'opengl32.dll' name 'glIndexiv';
-    private static procedure z_Indexiv_ovr_0_anh01(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexiv(c: array of Int32) :=
-    if (c<>nil) and (c.Length<>0) then
-      z_Indexiv_ovr_0(c[0]) else
-      z_Indexiv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexiv(var c: Int32) :=
-    z_Indexiv_ovr_0(c);
-    private static procedure z_Indexiv_ovr_2(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexiv';
+    gl_ntv.z_Indexiv_ovr_0(c);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexiv(c: IntPtr) :=
-    z_Indexiv_ovr_2(c);
+    gl_ntv.z_Indexiv_ovr_1(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_IndexMask_ovr_0(mask: UInt32);
-    external 'opengl32.dll' name 'glIndexMask';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexMask(mask: UInt32) :=
-    z_IndexMask_ovr_0(mask);
+    gl_ntv.z_IndexMask_ovr_0(mask);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_IndexPointer_ovr_0(&type: IndexPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glIndexPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexPointer(&type: IndexPointerType; stride: Int32; pointer: IntPtr) :=
-    z_IndexPointer_ovr_0(&type, stride, pointer);
+    gl_ntv.z_IndexPointer_ovr_0(&type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexs_ovr_0(c: Int16);
-    external 'opengl32.dll' name 'glIndexs';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexs(c: Int16) :=
-    z_Indexs_ovr_0(c);
+    gl_ntv.z_Indexs_ovr_0(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Indexsv_ovr_0(var c: Int16);
-    external 'opengl32.dll' name 'glIndexsv';
-    private static procedure z_Indexsv_ovr_0_anh01(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexsv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexsv(c: array of Int16) :=
-    if (c<>nil) and (c.Length<>0) then
-      z_Indexsv_ovr_0(c[0]) else
-      z_Indexsv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexsv(var c: Int16) :=
-    z_Indexsv_ovr_0(c);
-    private static procedure z_Indexsv_ovr_2(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexsv';
+    gl_ntv.z_Indexsv_ovr_0(c);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexsv(c: IntPtr) :=
-    z_Indexsv_ovr_2(c);
+    gl_ntv.z_Indexsv_ovr_1(c);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_Indexub_ovr_0(c: Byte);
-    external 'opengl32.dll' name 'glIndexub';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexub(c: Byte) :=
-    z_Indexub_ovr_0(c);
+    gl_ntv.z_Indexub_ovr_0(c);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_Indexubv_ovr_0(var c: Byte);
-    external 'opengl32.dll' name 'glIndexubv';
-    private static procedure z_Indexubv_ovr_0_anh01(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexubv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexubv(c: array of Byte) :=
-    if (c<>nil) and (c.Length<>0) then
-      z_Indexubv_ovr_0(c[0]) else
-      z_Indexubv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexubv(var c: Byte) :=
-    z_Indexubv_ovr_0(c);
-    private static procedure z_Indexubv_ovr_2(c: IntPtr);
-    external 'opengl32.dll' name 'glIndexubv';
+    gl_ntv.z_Indexubv_ovr_0(c);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Indexubv(c: IntPtr) :=
-    z_Indexubv_ovr_2(c);
+    gl_ntv.z_Indexubv_ovr_1(c);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_InitNames_ovr_0;
-    external 'opengl32.dll' name 'glInitNames';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InitNames :=
-    z_InitNames_ovr_0;
+    gl_ntv.z_InitNames_ovr_0;
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_InterleavedArrays_ovr_0(format: InterleavedArrayFormat; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glInterleavedArrays';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InterleavedArrays(format: InterleavedArrayFormat; stride: Int32; pointer: IntPtr) :=
-    z_InterleavedArrays_ovr_0(format, stride, pointer);
+    gl_ntv.z_InterleavedArrays_ovr_0(format, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static function z_IsList_ovr_0(list: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsList';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsList(list: UInt32): boolean :=
-    z_IsList_ovr_0(list);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsList(list: gl_display_list): boolean :=
+    gl_ntv.z_IsList_ovr_0(list);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Lightf_ovr_0(light: LightName; pname: LightParameter; param: single);
-    external 'opengl32.dll' name 'glLightf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightf(light: LightName; pname: LightParameter; param: single) :=
-    z_Lightf_ovr_0(light, pname, param);
+    gl_ntv.z_Lightf_ovr_0(light, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Lightfv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glLightfv';
-    private static procedure z_Lightfv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightfv(light: LightName; pname: LightParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Lightfv_ovr_0(light, pname, ¶ms[0]) else
-      z_Lightfv_ovr_0_anh0001(light, pname, IntPtr.Zero);
+      gl_ntv.z_Lightfv_ovr_0(light, pname, ¶ms[0]) else
+      gl_ntv.z_Lightfv_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightfv(light: LightName; pname: LightParameter; var ¶ms: single) :=
-    z_Lightfv_ovr_0(light, pname, ¶ms);
-    private static procedure z_Lightfv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightfv';
+    gl_ntv.z_Lightfv_ovr_0(light, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightfv(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
-    z_Lightfv_ovr_2(light, pname, ¶ms);
+    gl_ntv.z_Lightfv_ovr_2(light, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Lighti_ovr_0(light: LightName; pname: LightParameter; param: Int32);
-    external 'opengl32.dll' name 'glLighti';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lighti(light: LightName; pname: LightParameter; param: Int32) :=
-    z_Lighti_ovr_0(light, pname, param);
+    gl_ntv.z_Lighti_ovr_0(light, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Lightiv_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glLightiv';
-    private static procedure z_Lightiv_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightiv(light: LightName; pname: LightParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Lightiv_ovr_0(light, pname, ¶ms[0]) else
-      z_Lightiv_ovr_0_anh0001(light, pname, IntPtr.Zero);
+      gl_ntv.z_Lightiv_ovr_0(light, pname, ¶ms[0]) else
+      gl_ntv.z_Lightiv_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightiv(light: LightName; pname: LightParameter; var ¶ms: Int32) :=
-    z_Lightiv_ovr_0(light, pname, ¶ms);
-    private static procedure z_Lightiv_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightiv';
+    gl_ntv.z_Lightiv_ovr_0(light, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Lightiv(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
-    z_Lightiv_ovr_2(light, pname, ¶ms);
+    gl_ntv.z_Lightiv_ovr_2(light, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LightModelf_ovr_0(pname: LightModelParameter; param: single);
-    external 'opengl32.dll' name 'glLightModelf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelf(pname: LightModelParameter; param: single) :=
-    z_LightModelf_ovr_0(pname, param);
+    gl_ntv.z_LightModelf_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LightModelfv_ovr_0(pname: LightModelParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glLightModelfv';
-    private static procedure z_LightModelfv_ovr_0_anh001(pname: LightModelParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightModelfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelfv(pname: LightModelParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_LightModelfv_ovr_0(pname, ¶ms[0]) else
-      z_LightModelfv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_LightModelfv_ovr_0(pname, ¶ms[0]) else
+      gl_ntv.z_LightModelfv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelfv(pname: LightModelParameter; var ¶ms: single) :=
-    z_LightModelfv_ovr_0(pname, ¶ms);
-    private static procedure z_LightModelfv_ovr_2(pname: LightModelParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightModelfv';
+    gl_ntv.z_LightModelfv_ovr_0(pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelfv(pname: LightModelParameter; ¶ms: IntPtr) :=
-    z_LightModelfv_ovr_2(pname, ¶ms);
+    gl_ntv.z_LightModelfv_ovr_2(pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LightModeli_ovr_0(pname: LightModelParameter; param: Int32);
-    external 'opengl32.dll' name 'glLightModeli';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModeli(pname: LightModelParameter; param: Int32) :=
-    z_LightModeli_ovr_0(pname, param);
+    gl_ntv.z_LightModeli_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LightModeliv_ovr_0(pname: LightModelParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glLightModeliv';
-    private static procedure z_LightModeliv_ovr_0_anh001(pname: LightModelParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightModeliv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModeliv(pname: LightModelParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_LightModeliv_ovr_0(pname, ¶ms[0]) else
-      z_LightModeliv_ovr_0_anh001(pname, IntPtr.Zero);
+      gl_ntv.z_LightModeliv_ovr_0(pname, ¶ms[0]) else
+      gl_ntv.z_LightModeliv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModeliv(pname: LightModelParameter; var ¶ms: Int32) :=
-    z_LightModeliv_ovr_0(pname, ¶ms);
-    private static procedure z_LightModeliv_ovr_2(pname: LightModelParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightModeliv';
+    gl_ntv.z_LightModeliv_ovr_0(pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModeliv(pname: LightModelParameter; ¶ms: IntPtr) :=
-    z_LightModeliv_ovr_2(pname, ¶ms);
+    gl_ntv.z_LightModeliv_ovr_2(pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LineStipple_ovr_0(factor: Int32; pattern: UInt16);
-    external 'opengl32.dll' name 'glLineStipple';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LineStipple(factor: Int32; pattern: UInt16) :=
-    z_LineStipple_ovr_0(factor, pattern);
+    gl_ntv.z_LineStipple_ovr_0(factor, pattern);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ListBase_ovr_0(base: UInt32);
-    external 'opengl32.dll' name 'glListBase';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListBase(base: UInt32) :=
-    z_ListBase_ovr_0(base);
+    gl_ntv.z_ListBase_ovr_0(base);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LoadIdentity_ovr_0;
-    external 'opengl32.dll' name 'glLoadIdentity';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadIdentity :=
-    z_LoadIdentity_ovr_0;
+    gl_ntv.z_LoadIdentity_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LoadMatrixd_ovr_0(var m: real);
-    external 'opengl32.dll' name 'glLoadMatrixd';
-    private static procedure z_LoadMatrixd_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixd';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixd(m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
-      z_LoadMatrixd_ovr_0(m[0]) else
-      z_LoadMatrixd_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_LoadMatrixd_ovr_0(m[0]) else
+      gl_ntv.z_LoadMatrixd_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixd(var m: real) :=
-    z_LoadMatrixd_ovr_0(m);
-    private static procedure z_LoadMatrixd_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixd';
+    gl_ntv.z_LoadMatrixd_ovr_0(m);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixd(m: IntPtr) :=
-    z_LoadMatrixd_ovr_2(m);
+    gl_ntv.z_LoadMatrixd_ovr_2(m);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LoadMatrixf_ovr_0(var m: single);
-    external 'opengl32.dll' name 'glLoadMatrixf';
-    private static procedure z_LoadMatrixf_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixf(m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
-      z_LoadMatrixf_ovr_0(m[0]) else
-      z_LoadMatrixf_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_LoadMatrixf_ovr_0(m[0]) else
+      gl_ntv.z_LoadMatrixf_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixf(var m: single) :=
-    z_LoadMatrixf_ovr_0(m);
-    private static procedure z_LoadMatrixf_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixf';
+    gl_ntv.z_LoadMatrixf_ovr_0(m);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixf(m: IntPtr) :=
-    z_LoadMatrixf_ovr_2(m);
+    gl_ntv.z_LoadMatrixf_ovr_2(m);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_LoadName_ovr_0(name: UInt32);
-    external 'opengl32.dll' name 'glLoadName';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadName(name: UInt32) :=
-    z_LoadName_ovr_0(name);
+    gl_ntv.z_LoadName_ovr_0(name);
     
     // added in gl1.3, deprecated in gl3.2
     private z_LoadTransposeMatrixd_adr := GetFuncAdr('glLoadTransposeMatrixd');
@@ -32521,142 +34168,92 @@ type
     z_LoadTransposeMatrixf_ovr_2(m);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Map1d_ovr_0(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; var points: real);
-    external 'opengl32.dll' name 'glMap1d';
-    private static procedure z_Map1d_ovr_0_anh0000001(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap1d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1d(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: array of real) :=
     if (points<>nil) and (points.Length<>0) then
-      z_Map1d_ovr_0(target, u1, u2, stride, order, points[0]) else
-      z_Map1d_ovr_0_anh0000001(target, u1, u2, stride, order, IntPtr.Zero);
+      gl_ntv.z_Map1d_ovr_0(target, u1, u2, stride, order, points[0]) else
+      gl_ntv.z_Map1d_ovr_0_anh0000001(target, u1, u2, stride, order, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1d(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; var points: real) :=
-    z_Map1d_ovr_0(target, u1, u2, stride, order, points);
-    private static procedure z_Map1d_ovr_2(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap1d';
+    gl_ntv.z_Map1d_ovr_0(target, u1, u2, stride, order, points);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1d(target: MapTarget; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr) :=
-    z_Map1d_ovr_2(target, u1, u2, stride, order, points);
+    gl_ntv.z_Map1d_ovr_2(target, u1, u2, stride, order, points);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Map1f_ovr_0(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; var points: single);
-    external 'opengl32.dll' name 'glMap1f';
-    private static procedure z_Map1f_ovr_0_anh0000001(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap1f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1f(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
-      z_Map1f_ovr_0(target, u1, u2, stride, order, points[0]) else
-      z_Map1f_ovr_0_anh0000001(target, u1, u2, stride, order, IntPtr.Zero);
+      gl_ntv.z_Map1f_ovr_0(target, u1, u2, stride, order, points[0]) else
+      gl_ntv.z_Map1f_ovr_0_anh0000001(target, u1, u2, stride, order, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1f(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; var points: single) :=
-    z_Map1f_ovr_0(target, u1, u2, stride, order, points);
-    private static procedure z_Map1f_ovr_2(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap1f';
+    gl_ntv.z_Map1f_ovr_0(target, u1, u2, stride, order, points);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1f(target: MapTarget; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr) :=
-    z_Map1f_ovr_2(target, u1, u2, stride, order, points);
+    gl_ntv.z_Map1f_ovr_2(target, u1, u2, stride, order, points);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Map2d_ovr_0(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; var points: real);
-    external 'opengl32.dll' name 'glMap2d';
-    private static procedure z_Map2d_ovr_0_anh00000000001(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2d(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: array of real) :=
     if (points<>nil) and (points.Length<>0) then
-      z_Map2d_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
-      z_Map2d_ovr_0_anh00000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
+      gl_ntv.z_Map2d_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
+      gl_ntv.z_Map2d_ovr_0_anh00000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2d(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; var points: real) :=
-    z_Map2d_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-    private static procedure z_Map2d_ovr_2(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap2d';
+    gl_ntv.z_Map2d_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2d(target: MapTarget; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr) :=
-    z_Map2d_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
+    gl_ntv.z_Map2d_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Map2f_ovr_0(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; var points: single);
-    external 'opengl32.dll' name 'glMap2f';
-    private static procedure z_Map2f_ovr_0_anh00000000001(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2f(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
-      z_Map2f_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
-      z_Map2f_ovr_0_anh00000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
+      gl_ntv.z_Map2f_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
+      gl_ntv.z_Map2f_ovr_0_anh00000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2f(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; var points: single) :=
-    z_Map2f_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-    private static procedure z_Map2f_ovr_2(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMap2f';
+    gl_ntv.z_Map2f_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2f(target: MapTarget; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr) :=
-    z_Map2f_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
+    gl_ntv.z_Map2f_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MapGrid1d_ovr_0(un: Int32; u1: real; u2: real);
-    external 'opengl32.dll' name 'glMapGrid1d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid1d(un: Int32; u1: real; u2: real) :=
-    z_MapGrid1d_ovr_0(un, u1, u2);
+    gl_ntv.z_MapGrid1d_ovr_0(un, u1, u2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MapGrid1f_ovr_0(un: Int32; u1: single; u2: single);
-    external 'opengl32.dll' name 'glMapGrid1f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid1f(un: Int32; u1: single; u2: single) :=
-    z_MapGrid1f_ovr_0(un, u1, u2);
+    gl_ntv.z_MapGrid1f_ovr_0(un, u1, u2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MapGrid2d_ovr_0(un: Int32; u1: real; u2: real; vn: Int32; v1: real; v2: real);
-    external 'opengl32.dll' name 'glMapGrid2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid2d(un: Int32; u1: real; u2: real; vn: Int32; v1: real; v2: real) :=
-    z_MapGrid2d_ovr_0(un, u1, u2, vn, v1, v2);
+    gl_ntv.z_MapGrid2d_ovr_0(un, u1, u2, vn, v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MapGrid2f_ovr_0(un: Int32; u1: single; u2: single; vn: Int32; v1: single; v2: single);
-    external 'opengl32.dll' name 'glMapGrid2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid2f(un: Int32; u1: single; u2: single; vn: Int32; v1: single; v2: single) :=
-    z_MapGrid2f_ovr_0(un, u1, u2, vn, v1, v2);
+    gl_ntv.z_MapGrid2f_ovr_0(un, u1, u2, vn, v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Materialf_ovr_0(face: MaterialFace; pname: MaterialParameter; param: single);
-    external 'opengl32.dll' name 'glMaterialf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialf(face: MaterialFace; pname: MaterialParameter; param: single) :=
-    z_Materialf_ovr_0(face, pname, param);
+    gl_ntv.z_Materialf_ovr_0(face, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Materialfv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glMaterialfv';
-    private static procedure z_Materialfv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMaterialfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Materialfv_ovr_0(face, pname, ¶ms[0]) else
-      z_Materialfv_ovr_0_anh0001(face, pname, IntPtr.Zero);
+      gl_ntv.z_Materialfv_ovr_0(face, pname, ¶ms[0]) else
+      gl_ntv.z_Materialfv_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) :=
-    z_Materialfv_ovr_0(face, pname, ¶ms);
-    private static procedure z_Materialfv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMaterialfv';
+    gl_ntv.z_Materialfv_ovr_0(face, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialfv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
-    z_Materialfv_ovr_2(face, pname, ¶ms);
+    gl_ntv.z_Materialfv_ovr_2(face, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Materiali_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Int32);
-    external 'opengl32.dll' name 'glMateriali';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materiali(face: MaterialFace; pname: MaterialParameter; param: Int32) :=
-    z_Materiali_ovr_0(face, pname, param);
+    gl_ntv.z_Materiali_ovr_0(face, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Materialiv_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMaterialiv';
-    private static procedure z_Materialiv_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMaterialiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_Materialiv_ovr_0(face, pname, ¶ms[0]) else
-      z_Materialiv_ovr_0_anh0001(face, pname, IntPtr.Zero);
+      gl_ntv.z_Materialiv_ovr_0(face, pname, ¶ms[0]) else
+      gl_ntv.z_Materialiv_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) :=
-    z_Materialiv_ovr_0(face, pname, ¶ms);
-    private static procedure z_Materialiv_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMaterialiv';
+    gl_ntv.z_Materialiv_ovr_0(face, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Materialiv(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
-    z_Materialiv_ovr_2(face, pname, ¶ms);
+    gl_ntv.z_Materialiv_ovr_2(face, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MatrixMode_ovr_0(mode: OpenGL.MatrixMode);
-    external 'opengl32.dll' name 'glMatrixMode';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMode(mode: OpenGL.MatrixMode) :=
-    z_MatrixMode_ovr_0(mode);
+    gl_ntv.z_MatrixMode_ovr_0(mode);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1d_adr := GetFuncAdr('glMultiTexCoord1d');
@@ -32667,16 +34264,11 @@ type
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1dv_adr := GetFuncAdr('glMultiTexCoord1dv');
     private z_MultiTexCoord1dv_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1dv_adr);
-    private z_MultiTexCoord1dv_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord1dv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dv(target: TextureUnit; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1dv_ovr_0(target, v[0]) else
-      z_MultiTexCoord1dv_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dv(target: TextureUnit; var v: real) :=
     z_MultiTexCoord1dv_ovr_0(target, v);
-    private z_MultiTexCoord1dv_ovr_2 := GetFuncOrNil&(z_MultiTexCoord1dv_adr);
+    private z_MultiTexCoord1dv_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dv(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1dv_ovr_2(target, v);
+    z_MultiTexCoord1dv_ovr_1(target, v);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1f_adr := GetFuncAdr('glMultiTexCoord1f');
@@ -32687,16 +34279,11 @@ type
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1fv_adr := GetFuncAdr('glMultiTexCoord1fv');
     private z_MultiTexCoord1fv_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1fv_adr);
-    private z_MultiTexCoord1fv_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord1fv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fv(target: TextureUnit; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1fv_ovr_0(target, v[0]) else
-      z_MultiTexCoord1fv_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fv(target: TextureUnit; var v: single) :=
     z_MultiTexCoord1fv_ovr_0(target, v);
-    private z_MultiTexCoord1fv_ovr_2 := GetFuncOrNil&(z_MultiTexCoord1fv_adr);
+    private z_MultiTexCoord1fv_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1fv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fv(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1fv_ovr_2(target, v);
+    z_MultiTexCoord1fv_ovr_1(target, v);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1i_adr := GetFuncAdr('glMultiTexCoord1i');
@@ -32707,16 +34294,11 @@ type
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1iv_adr := GetFuncAdr('glMultiTexCoord1iv');
     private z_MultiTexCoord1iv_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1iv_adr);
-    private z_MultiTexCoord1iv_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord1iv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1iv(target: TextureUnit; v: array of Int32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1iv_ovr_0(target, v[0]) else
-      z_MultiTexCoord1iv_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1iv(target: TextureUnit; var v: Int32) :=
     z_MultiTexCoord1iv_ovr_0(target, v);
-    private z_MultiTexCoord1iv_ovr_2 := GetFuncOrNil&(z_MultiTexCoord1iv_adr);
+    private z_MultiTexCoord1iv_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1iv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1iv(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1iv_ovr_2(target, v);
+    z_MultiTexCoord1iv_ovr_1(target, v);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1s_adr := GetFuncAdr('glMultiTexCoord1s');
@@ -32727,16 +34309,11 @@ type
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord1sv_adr := GetFuncAdr('glMultiTexCoord1sv');
     private z_MultiTexCoord1sv_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1sv_adr);
-    private z_MultiTexCoord1sv_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord1sv_adr);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1sv(target: TextureUnit; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1sv_ovr_0(target, v[0]) else
-      z_MultiTexCoord1sv_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1sv(target: TextureUnit; var v: Int16) :=
     z_MultiTexCoord1sv_ovr_0(target, v);
-    private z_MultiTexCoord1sv_ovr_2 := GetFuncOrNil&(z_MultiTexCoord1sv_adr);
+    private z_MultiTexCoord1sv_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1sv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1sv(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1sv_ovr_2(target, v);
+    z_MultiTexCoord1sv_ovr_1(target, v);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultiTexCoord2d_adr := GetFuncAdr('glMultiTexCoord2d');
@@ -32979,36 +34556,24 @@ type
     z_MultiTexCoord4sv_ovr_2(target, v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MultMatrixd_ovr_0(var m: real);
-    external 'opengl32.dll' name 'glMultMatrixd';
-    private static procedure z_MultMatrixd_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixd';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixd(m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
-      z_MultMatrixd_ovr_0(m[0]) else
-      z_MultMatrixd_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_MultMatrixd_ovr_0(m[0]) else
+      gl_ntv.z_MultMatrixd_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixd(var m: real) :=
-    z_MultMatrixd_ovr_0(m);
-    private static procedure z_MultMatrixd_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixd';
+    gl_ntv.z_MultMatrixd_ovr_0(m);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixd(m: IntPtr) :=
-    z_MultMatrixd_ovr_2(m);
+    gl_ntv.z_MultMatrixd_ovr_2(m);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_MultMatrixf_ovr_0(var m: single);
-    external 'opengl32.dll' name 'glMultMatrixf';
-    private static procedure z_MultMatrixf_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixf(m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
-      z_MultMatrixf_ovr_0(m[0]) else
-      z_MultMatrixf_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_MultMatrixf_ovr_0(m[0]) else
+      gl_ntv.z_MultMatrixf_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixf(var m: single) :=
-    z_MultMatrixf_ovr_0(m);
-    private static procedure z_MultMatrixf_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixf';
+    gl_ntv.z_MultMatrixf_ovr_0(m);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixf(m: IntPtr) :=
-    z_MultMatrixf_ovr_2(m);
+    gl_ntv.z_MultMatrixf_ovr_2(m);
     
     // added in gl1.3, deprecated in gl3.2
     private z_MultTransposeMatrixd_adr := GetFuncAdr('glMultTransposeMatrixd');
@@ -33039,856 +34604,548 @@ type
     z_MultTransposeMatrixf_ovr_2(m);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_NewList_ovr_0(list: UInt32; mode: ListMode);
-    external 'opengl32.dll' name 'glNewList';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NewList(list: UInt32; mode: ListMode) :=
-    z_NewList_ovr_0(list, mode);
+    gl_ntv.z_NewList_ovr_0(list, mode);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3b_ovr_0(nx: SByte; ny: SByte; nz: SByte);
-    external 'opengl32.dll' name 'glNormal3b';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3b(nx: SByte; ny: SByte; nz: SByte) :=
-    z_Normal3b_ovr_0(nx, ny, nz);
+    gl_ntv.z_Normal3b_ovr_0(nx, ny, nz);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3bv_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glNormal3bv';
-    private static procedure z_Normal3bv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3bv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3bv(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Normal3bv_ovr_0(v[0]) else
-      z_Normal3bv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Normal3bv_ovr_0(v[0]) else
+      gl_ntv.z_Normal3bv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3bv(var v: SByte) :=
-    z_Normal3bv_ovr_0(v);
-    private static procedure z_Normal3bv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3bv';
+    gl_ntv.z_Normal3bv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3bv(v: IntPtr) :=
-    z_Normal3bv_ovr_2(v);
+    gl_ntv.z_Normal3bv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3d_ovr_0(nx: real; ny: real; nz: real);
-    external 'opengl32.dll' name 'glNormal3d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3d(nx: real; ny: real; nz: real) :=
-    z_Normal3d_ovr_0(nx, ny, nz);
+    gl_ntv.z_Normal3d_ovr_0(nx, ny, nz);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glNormal3dv';
-    private static procedure z_Normal3dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Normal3dv_ovr_0(v[0]) else
-      z_Normal3dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Normal3dv_ovr_0(v[0]) else
+      gl_ntv.z_Normal3dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3dv(var v: real) :=
-    z_Normal3dv_ovr_0(v);
-    private static procedure z_Normal3dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3dv';
+    gl_ntv.z_Normal3dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3dv(v: IntPtr) :=
-    z_Normal3dv_ovr_2(v);
+    gl_ntv.z_Normal3dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3f_ovr_0(nx: single; ny: single; nz: single);
-    external 'opengl32.dll' name 'glNormal3f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3f(nx: single; ny: single; nz: single) :=
-    z_Normal3f_ovr_0(nx, ny, nz);
+    gl_ntv.z_Normal3f_ovr_0(nx, ny, nz);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glNormal3fv';
-    private static procedure z_Normal3fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Normal3fv_ovr_0(v[0]) else
-      z_Normal3fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Normal3fv_ovr_0(v[0]) else
+      gl_ntv.z_Normal3fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fv(var v: single) :=
-    z_Normal3fv_ovr_0(v);
-    private static procedure z_Normal3fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3fv';
+    gl_ntv.z_Normal3fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fv(v: IntPtr) :=
-    z_Normal3fv_ovr_2(v);
+    gl_ntv.z_Normal3fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3i_ovr_0(nx: Int32; ny: Int32; nz: Int32);
-    external 'opengl32.dll' name 'glNormal3i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3i(nx: Int32; ny: Int32; nz: Int32) :=
-    z_Normal3i_ovr_0(nx, ny, nz);
+    gl_ntv.z_Normal3i_ovr_0(nx, ny, nz);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glNormal3iv';
-    private static procedure z_Normal3iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Normal3iv_ovr_0(v[0]) else
-      z_Normal3iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Normal3iv_ovr_0(v[0]) else
+      gl_ntv.z_Normal3iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3iv(var v: Int32) :=
-    z_Normal3iv_ovr_0(v);
-    private static procedure z_Normal3iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3iv';
+    gl_ntv.z_Normal3iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3iv(v: IntPtr) :=
-    z_Normal3iv_ovr_2(v);
+    gl_ntv.z_Normal3iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3s_ovr_0(nx: Int16; ny: Int16; nz: Int16);
-    external 'opengl32.dll' name 'glNormal3s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3s(nx: Int16; ny: Int16; nz: Int16) :=
-    z_Normal3s_ovr_0(nx, ny, nz);
+    gl_ntv.z_Normal3s_ovr_0(nx, ny, nz);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Normal3sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glNormal3sv';
-    private static procedure z_Normal3sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Normal3sv_ovr_0(v[0]) else
-      z_Normal3sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Normal3sv_ovr_0(v[0]) else
+      gl_ntv.z_Normal3sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3sv(var v: Int16) :=
-    z_Normal3sv_ovr_0(v);
-    private static procedure z_Normal3sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3sv';
+    gl_ntv.z_Normal3sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3sv(v: IntPtr) :=
-    z_Normal3sv_ovr_2(v);
+    gl_ntv.z_Normal3sv_ovr_2(v);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_NormalPointer_ovr_0(&type: NormalPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glNormalPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointer(&type: NormalPointerType; stride: Int32; pointer: IntPtr) :=
-    z_NormalPointer_ovr_0(&type, stride, pointer);
+    gl_ntv.z_NormalPointer_ovr_0(&type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Ortho_ovr_0(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glOrtho';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Ortho(left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
-    z_Ortho_ovr_0(left, right, bottom, top, zNear, zFar);
+    gl_ntv.z_Ortho_ovr_0(left, right, bottom, top, zNear, zFar);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PassThrough_ovr_0(token: single);
-    external 'opengl32.dll' name 'glPassThrough';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PassThrough(token: single) :=
-    z_PassThrough_ovr_0(token);
+    gl_ntv.z_PassThrough_ovr_0(token);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelMapfv_ovr_0(map: PixelMap; mapsize: Int32; var values: single);
-    external 'opengl32.dll' name 'glPixelMapfv';
-    private static procedure z_PixelMapfv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapfv(map: PixelMap; mapsize: Int32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
-      z_PixelMapfv_ovr_0(map, mapsize, values[0]) else
-      z_PixelMapfv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
+      gl_ntv.z_PixelMapfv_ovr_0(map, mapsize, values[0]) else
+      gl_ntv.z_PixelMapfv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapfv(map: PixelMap; mapsize: Int32; var values: single) :=
-    z_PixelMapfv_ovr_0(map, mapsize, values);
-    private static procedure z_PixelMapfv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapfv';
+    gl_ntv.z_PixelMapfv_ovr_0(map, mapsize, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapfv(map: PixelMap; mapsize: Int32; values: IntPtr) :=
-    z_PixelMapfv_ovr_2(map, mapsize, values);
+    gl_ntv.z_PixelMapfv_ovr_2(map, mapsize, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelMapuiv_ovr_0(map: PixelMap; mapsize: Int32; var values: UInt32);
-    external 'opengl32.dll' name 'glPixelMapuiv';
-    private static procedure z_PixelMapuiv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapuiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapuiv(map: PixelMap; mapsize: Int32; values: array of UInt32) :=
     if (values<>nil) and (values.Length<>0) then
-      z_PixelMapuiv_ovr_0(map, mapsize, values[0]) else
-      z_PixelMapuiv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
+      gl_ntv.z_PixelMapuiv_ovr_0(map, mapsize, values[0]) else
+      gl_ntv.z_PixelMapuiv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapuiv(map: PixelMap; mapsize: Int32; var values: UInt32) :=
-    z_PixelMapuiv_ovr_0(map, mapsize, values);
-    private static procedure z_PixelMapuiv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapuiv';
+    gl_ntv.z_PixelMapuiv_ovr_0(map, mapsize, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapuiv(map: PixelMap; mapsize: Int32; values: IntPtr) :=
-    z_PixelMapuiv_ovr_2(map, mapsize, values);
+    gl_ntv.z_PixelMapuiv_ovr_2(map, mapsize, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelMapusv_ovr_0(map: PixelMap; mapsize: Int32; var values: UInt16);
-    external 'opengl32.dll' name 'glPixelMapusv';
-    private static procedure z_PixelMapusv_ovr_0_anh0001(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapusv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapusv(map: PixelMap; mapsize: Int32; values: array of UInt16) :=
     if (values<>nil) and (values.Length<>0) then
-      z_PixelMapusv_ovr_0(map, mapsize, values[0]) else
-      z_PixelMapusv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
+      gl_ntv.z_PixelMapusv_ovr_0(map, mapsize, values[0]) else
+      gl_ntv.z_PixelMapusv_ovr_0_anh0001(map, mapsize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapusv(map: PixelMap; mapsize: Int32; var values: UInt16) :=
-    z_PixelMapusv_ovr_0(map, mapsize, values);
-    private static procedure z_PixelMapusv_ovr_2(map: PixelMap; mapsize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapusv';
+    gl_ntv.z_PixelMapusv_ovr_0(map, mapsize, values);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapusv(map: PixelMap; mapsize: Int32; values: IntPtr) :=
-    z_PixelMapusv_ovr_2(map, mapsize, values);
+    gl_ntv.z_PixelMapusv_ovr_2(map, mapsize, values);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelTransferf_ovr_0(pname: PixelTransferParameter; param: single);
-    external 'opengl32.dll' name 'glPixelTransferf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransferf(pname: PixelTransferParameter; param: single) :=
-    z_PixelTransferf_ovr_0(pname, param);
+    gl_ntv.z_PixelTransferf_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelTransferi_ovr_0(pname: PixelTransferParameter; param: Int32);
-    external 'opengl32.dll' name 'glPixelTransferi';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransferi(pname: PixelTransferParameter; param: Int32) :=
-    z_PixelTransferi_ovr_0(pname, param);
+    gl_ntv.z_PixelTransferi_ovr_0(pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PixelZoom_ovr_0(xfactor: single; yfactor: single);
-    external 'opengl32.dll' name 'glPixelZoom';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelZoom(xfactor: single; yfactor: single) :=
-    z_PixelZoom_ovr_0(xfactor, yfactor);
+    gl_ntv.z_PixelZoom_ovr_0(xfactor, yfactor);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PolygonStipple_ovr_0(var mask: Byte);
-    external 'opengl32.dll' name 'glPolygonStipple';
-    private static procedure z_PolygonStipple_ovr_0_anh01(mask: IntPtr);
-    external 'opengl32.dll' name 'glPolygonStipple';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonStipple(mask: array of Byte) :=
     if (mask<>nil) and (mask.Length<>0) then
-      z_PolygonStipple_ovr_0(mask[0]) else
-      z_PolygonStipple_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_PolygonStipple_ovr_0(mask[0]) else
+      gl_ntv.z_PolygonStipple_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonStipple(var mask: Byte) :=
-    z_PolygonStipple_ovr_0(mask);
-    private static procedure z_PolygonStipple_ovr_2(mask: IntPtr);
-    external 'opengl32.dll' name 'glPolygonStipple';
+    gl_ntv.z_PolygonStipple_ovr_0(mask);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonStipple(mask: IntPtr) :=
-    z_PolygonStipple_ovr_2(mask);
+    gl_ntv.z_PolygonStipple_ovr_2(mask);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PopAttrib_ovr_0;
-    external 'opengl32.dll' name 'glPopAttrib';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopAttrib :=
-    z_PopAttrib_ovr_0;
+    gl_ntv.z_PopAttrib_ovr_0;
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_PopClientAttrib_ovr_0;
-    external 'opengl32.dll' name 'glPopClientAttrib';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopClientAttrib :=
-    z_PopClientAttrib_ovr_0;
+    gl_ntv.z_PopClientAttrib_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PopMatrix_ovr_0;
-    external 'opengl32.dll' name 'glPopMatrix';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopMatrix :=
-    z_PopMatrix_ovr_0;
+    gl_ntv.z_PopMatrix_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PopName_ovr_0;
-    external 'opengl32.dll' name 'glPopName';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopName :=
-    z_PopName_ovr_0;
+    gl_ntv.z_PopName_ovr_0;
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_PrioritizeTextures_ovr_0(n: Int32; var textures: UInt32; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    private static procedure z_PrioritizeTextures_ovr_0_anh0010(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    private static procedure z_PrioritizeTextures_ovr_0_anh0001(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    private static procedure z_PrioritizeTextures_ovr_0_anh0011(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of UInt32; priorities: array of single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of gl_texture; priorities: array of single) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (priorities<>nil) and (priorities.Length<>0) then
-        z_PrioritizeTextures_ovr_0(n, textures[0], priorities[0]) else
-        z_PrioritizeTextures_ovr_0_anh0001(n, textures[0], IntPtr.Zero) else
+        gl_ntv.z_PrioritizeTextures_ovr_0(n, textures[0], priorities[0]) else
+        gl_ntv.z_PrioritizeTextures_ovr_0_anh0001(n, textures[0], IntPtr.Zero) else
       if (priorities<>nil) and (priorities.Length<>0) then
-        z_PrioritizeTextures_ovr_0_anh0010(n, IntPtr.Zero, priorities[0]) else
-        z_PrioritizeTextures_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_PrioritizeTextures_ovr_1_anh0010(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of UInt32; var priorities: single) :=
+        gl_ntv.z_PrioritizeTextures_ovr_0_anh0010(n, IntPtr.Zero, priorities[0]) else
+        gl_ntv.z_PrioritizeTextures_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of gl_texture; var priorities: single) :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_PrioritizeTextures_ovr_0(n, textures[0], priorities) else
-      z_PrioritizeTextures_ovr_0_anh0010(n, IntPtr.Zero, priorities);
-    private static procedure z_PrioritizeTextures_ovr_2(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    private static procedure z_PrioritizeTextures_ovr_2_anh0010(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of UInt32; priorities: IntPtr) :=
+      gl_ntv.z_PrioritizeTextures_ovr_0(n, textures[0], priorities) else
+      gl_ntv.z_PrioritizeTextures_ovr_0_anh0010(n, IntPtr.Zero, priorities);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: array of gl_texture; priorities: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
-      z_PrioritizeTextures_ovr_2(n, textures[0], priorities) else
-      z_PrioritizeTextures_ovr_2_anh0010(n, IntPtr.Zero, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: UInt32; priorities: array of single) :=
+      gl_ntv.z_PrioritizeTextures_ovr_2(n, textures[0], priorities) else
+      gl_ntv.z_PrioritizeTextures_ovr_2_anh0010(n, IntPtr.Zero, priorities);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: gl_texture; priorities: array of single) :=
     if (priorities<>nil) and (priorities.Length<>0) then
-      z_PrioritizeTextures_ovr_0(n, textures, priorities[0]) else
-      z_PrioritizeTextures_ovr_0_anh0001(n, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: UInt32; var priorities: single) :=
-    z_PrioritizeTextures_ovr_0(n, textures, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: UInt32; priorities: IntPtr) :=
-    z_PrioritizeTextures_ovr_2(n, textures, priorities);
-    private static procedure z_PrioritizeTextures_ovr_6(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
-    private static procedure z_PrioritizeTextures_ovr_6_anh0001(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
+      gl_ntv.z_PrioritizeTextures_ovr_0(n, textures, priorities[0]) else
+      gl_ntv.z_PrioritizeTextures_ovr_0_anh0001(n, textures, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: gl_texture; var priorities: single) :=
+    gl_ntv.z_PrioritizeTextures_ovr_0(n, textures, priorities);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; var textures: gl_texture; priorities: IntPtr) :=
+    gl_ntv.z_PrioritizeTextures_ovr_2(n, textures, priorities);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: IntPtr; priorities: array of single) :=
     if (priorities<>nil) and (priorities.Length<>0) then
-      z_PrioritizeTextures_ovr_6(n, textures, priorities[0]) else
-      z_PrioritizeTextures_ovr_6_anh0001(n, textures, IntPtr.Zero);
+      gl_ntv.z_PrioritizeTextures_ovr_6(n, textures, priorities[0]) else
+      gl_ntv.z_PrioritizeTextures_ovr_6_anh0001(n, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: IntPtr; var priorities: single) :=
-    z_PrioritizeTextures_ovr_6(n, textures, priorities);
-    private static procedure z_PrioritizeTextures_ovr_8(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTextures';
+    gl_ntv.z_PrioritizeTextures_ovr_6(n, textures, priorities);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTextures(n: Int32; textures: IntPtr; priorities: IntPtr) :=
-    z_PrioritizeTextures_ovr_8(n, textures, priorities);
+    gl_ntv.z_PrioritizeTextures_ovr_8(n, textures, priorities);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PushAttrib_ovr_0(mask: AttribMask);
-    external 'opengl32.dll' name 'glPushAttrib';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushAttrib(mask: AttribMask) :=
-    z_PushAttrib_ovr_0(mask);
+    gl_ntv.z_PushAttrib_ovr_0(mask);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_PushClientAttrib_ovr_0(mask: ClientAttribMask);
-    external 'opengl32.dll' name 'glPushClientAttrib';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushClientAttrib(mask: ClientAttribMask) :=
-    z_PushClientAttrib_ovr_0(mask);
+    gl_ntv.z_PushClientAttrib_ovr_0(mask);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PushMatrix_ovr_0;
-    external 'opengl32.dll' name 'glPushMatrix';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushMatrix :=
-    z_PushMatrix_ovr_0;
+    gl_ntv.z_PushMatrix_ovr_0;
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_PushName_ovr_0(name: UInt32);
-    external 'opengl32.dll' name 'glPushName';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushName(name: UInt32) :=
-    z_PushName_ovr_0(name);
+    gl_ntv.z_PushName_ovr_0(name);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2d_ovr_0(x: real; y: real);
-    external 'opengl32.dll' name 'glRasterPos2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2d(x: real; y: real) :=
-    z_RasterPos2d_ovr_0(x, y);
+    gl_ntv.z_RasterPos2d_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glRasterPos2dv';
-    private static procedure z_RasterPos2dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos2dv_ovr_0(v[0]) else
-      z_RasterPos2dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos2dv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos2dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2dv(var v: real) :=
-    z_RasterPos2dv_ovr_0(v);
-    private static procedure z_RasterPos2dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2dv';
+    gl_ntv.z_RasterPos2dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2dv(v: IntPtr) :=
-    z_RasterPos2dv_ovr_2(v);
+    gl_ntv.z_RasterPos2dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2f_ovr_0(x: single; y: single);
-    external 'opengl32.dll' name 'glRasterPos2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2f(x: single; y: single) :=
-    z_RasterPos2f_ovr_0(x, y);
+    gl_ntv.z_RasterPos2f_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glRasterPos2fv';
-    private static procedure z_RasterPos2fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos2fv_ovr_0(v[0]) else
-      z_RasterPos2fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos2fv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos2fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2fv(var v: single) :=
-    z_RasterPos2fv_ovr_0(v);
-    private static procedure z_RasterPos2fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2fv';
+    gl_ntv.z_RasterPos2fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2fv(v: IntPtr) :=
-    z_RasterPos2fv_ovr_2(v);
+    gl_ntv.z_RasterPos2fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2i_ovr_0(x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glRasterPos2i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2i(x: Int32; y: Int32) :=
-    z_RasterPos2i_ovr_0(x, y);
+    gl_ntv.z_RasterPos2i_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glRasterPos2iv';
-    private static procedure z_RasterPos2iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos2iv_ovr_0(v[0]) else
-      z_RasterPos2iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos2iv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos2iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2iv(var v: Int32) :=
-    z_RasterPos2iv_ovr_0(v);
-    private static procedure z_RasterPos2iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2iv';
+    gl_ntv.z_RasterPos2iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2iv(v: IntPtr) :=
-    z_RasterPos2iv_ovr_2(v);
+    gl_ntv.z_RasterPos2iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2s_ovr_0(x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glRasterPos2s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2s(x: Int16; y: Int16) :=
-    z_RasterPos2s_ovr_0(x, y);
+    gl_ntv.z_RasterPos2s_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos2sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glRasterPos2sv';
-    private static procedure z_RasterPos2sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos2sv_ovr_0(v[0]) else
-      z_RasterPos2sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos2sv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos2sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2sv(var v: Int16) :=
-    z_RasterPos2sv_ovr_0(v);
-    private static procedure z_RasterPos2sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2sv';
+    gl_ntv.z_RasterPos2sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2sv(v: IntPtr) :=
-    z_RasterPos2sv_ovr_2(v);
+    gl_ntv.z_RasterPos2sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3d_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glRasterPos3d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3d(x: real; y: real; z: real) :=
-    z_RasterPos3d_ovr_0(x, y, z);
+    gl_ntv.z_RasterPos3d_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glRasterPos3dv';
-    private static procedure z_RasterPos3dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos3dv_ovr_0(v[0]) else
-      z_RasterPos3dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos3dv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos3dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3dv(var v: real) :=
-    z_RasterPos3dv_ovr_0(v);
-    private static procedure z_RasterPos3dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3dv';
+    gl_ntv.z_RasterPos3dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3dv(v: IntPtr) :=
-    z_RasterPos3dv_ovr_2(v);
+    gl_ntv.z_RasterPos3dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3f_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glRasterPos3f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3f(x: single; y: single; z: single) :=
-    z_RasterPos3f_ovr_0(x, y, z);
+    gl_ntv.z_RasterPos3f_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glRasterPos3fv';
-    private static procedure z_RasterPos3fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos3fv_ovr_0(v[0]) else
-      z_RasterPos3fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos3fv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos3fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3fv(var v: single) :=
-    z_RasterPos3fv_ovr_0(v);
-    private static procedure z_RasterPos3fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3fv';
+    gl_ntv.z_RasterPos3fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3fv(v: IntPtr) :=
-    z_RasterPos3fv_ovr_2(v);
+    gl_ntv.z_RasterPos3fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3i_ovr_0(x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glRasterPos3i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3i(x: Int32; y: Int32; z: Int32) :=
-    z_RasterPos3i_ovr_0(x, y, z);
+    gl_ntv.z_RasterPos3i_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glRasterPos3iv';
-    private static procedure z_RasterPos3iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos3iv_ovr_0(v[0]) else
-      z_RasterPos3iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos3iv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos3iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3iv(var v: Int32) :=
-    z_RasterPos3iv_ovr_0(v);
-    private static procedure z_RasterPos3iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3iv';
+    gl_ntv.z_RasterPos3iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3iv(v: IntPtr) :=
-    z_RasterPos3iv_ovr_2(v);
+    gl_ntv.z_RasterPos3iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3s_ovr_0(x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glRasterPos3s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3s(x: Int16; y: Int16; z: Int16) :=
-    z_RasterPos3s_ovr_0(x, y, z);
+    gl_ntv.z_RasterPos3s_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos3sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glRasterPos3sv';
-    private static procedure z_RasterPos3sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos3sv_ovr_0(v[0]) else
-      z_RasterPos3sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos3sv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos3sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3sv(var v: Int16) :=
-    z_RasterPos3sv_ovr_0(v);
-    private static procedure z_RasterPos3sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3sv';
+    gl_ntv.z_RasterPos3sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3sv(v: IntPtr) :=
-    z_RasterPos3sv_ovr_2(v);
+    gl_ntv.z_RasterPos3sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4d_ovr_0(x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glRasterPos4d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4d(x: real; y: real; z: real; w: real) :=
-    z_RasterPos4d_ovr_0(x, y, z, w);
+    gl_ntv.z_RasterPos4d_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glRasterPos4dv';
-    private static procedure z_RasterPos4dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos4dv_ovr_0(v[0]) else
-      z_RasterPos4dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos4dv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos4dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4dv(var v: real) :=
-    z_RasterPos4dv_ovr_0(v);
-    private static procedure z_RasterPos4dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4dv';
+    gl_ntv.z_RasterPos4dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4dv(v: IntPtr) :=
-    z_RasterPos4dv_ovr_2(v);
+    gl_ntv.z_RasterPos4dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4f_ovr_0(x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glRasterPos4f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4f(x: single; y: single; z: single; w: single) :=
-    z_RasterPos4f_ovr_0(x, y, z, w);
+    gl_ntv.z_RasterPos4f_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glRasterPos4fv';
-    private static procedure z_RasterPos4fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos4fv_ovr_0(v[0]) else
-      z_RasterPos4fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos4fv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos4fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4fv(var v: single) :=
-    z_RasterPos4fv_ovr_0(v);
-    private static procedure z_RasterPos4fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4fv';
+    gl_ntv.z_RasterPos4fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4fv(v: IntPtr) :=
-    z_RasterPos4fv_ovr_2(v);
+    gl_ntv.z_RasterPos4fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4i_ovr_0(x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glRasterPos4i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4i(x: Int32; y: Int32; z: Int32; w: Int32) :=
-    z_RasterPos4i_ovr_0(x, y, z, w);
+    gl_ntv.z_RasterPos4i_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glRasterPos4iv';
-    private static procedure z_RasterPos4iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos4iv_ovr_0(v[0]) else
-      z_RasterPos4iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos4iv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos4iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4iv(var v: Int32) :=
-    z_RasterPos4iv_ovr_0(v);
-    private static procedure z_RasterPos4iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4iv';
+    gl_ntv.z_RasterPos4iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4iv(v: IntPtr) :=
-    z_RasterPos4iv_ovr_2(v);
+    gl_ntv.z_RasterPos4iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4s_ovr_0(x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glRasterPos4s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4s(x: Int16; y: Int16; z: Int16; w: Int16) :=
-    z_RasterPos4s_ovr_0(x, y, z, w);
+    gl_ntv.z_RasterPos4s_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_RasterPos4sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glRasterPos4sv';
-    private static procedure z_RasterPos4sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_RasterPos4sv_ovr_0(v[0]) else
-      z_RasterPos4sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_RasterPos4sv_ovr_0(v[0]) else
+      gl_ntv.z_RasterPos4sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4sv(var v: Int16) :=
-    z_RasterPos4sv_ovr_0(v);
-    private static procedure z_RasterPos4sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4sv';
+    gl_ntv.z_RasterPos4sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4sv(v: IntPtr) :=
-    z_RasterPos4sv_ovr_2(v);
+    gl_ntv.z_RasterPos4sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectd_ovr_0(x1: real; y1: real; x2: real; y2: real);
-    external 'opengl32.dll' name 'glRectd';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectd(x1: real; y1: real; x2: real; y2: real) :=
-    z_Rectd_ovr_0(x1, y1, x2, y2);
+    gl_ntv.z_Rectd_ovr_0(x1, y1, x2, y2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectdv_ovr_0(var v1: real; var v2: real);
-    external 'opengl32.dll' name 'glRectdv';
-    private static procedure z_Rectdv_ovr_0_anh010(v1: IntPtr; var v2: real);
-    external 'opengl32.dll' name 'glRectdv';
-    private static procedure z_Rectdv_ovr_0_anh001(var v1: real; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
-    private static procedure z_Rectdv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: array of real; v2: array of real) :=
     if (v1<>nil) and (v1.Length<>0) then
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectdv_ovr_0(v1[0], v2[0]) else
-        z_Rectdv_ovr_0_anh001(v1[0], IntPtr.Zero) else
+        gl_ntv.z_Rectdv_ovr_0(v1[0], v2[0]) else
+        gl_ntv.z_Rectdv_ovr_0_anh001(v1[0], IntPtr.Zero) else
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectdv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
-        z_Rectdv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_Rectdv_ovr_1_anh010(v1: IntPtr; var v2: real);
-    external 'opengl32.dll' name 'glRectdv';
+        gl_ntv.z_Rectdv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
+        gl_ntv.z_Rectdv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: array of real; var v2: real) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectdv_ovr_0(v1[0], v2) else
-      z_Rectdv_ovr_0_anh010(IntPtr.Zero, v2);
-    private static procedure z_Rectdv_ovr_2(var v1: real; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
-    private static procedure z_Rectdv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
+      gl_ntv.z_Rectdv_ovr_0(v1[0], v2) else
+      gl_ntv.z_Rectdv_ovr_0_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: array of real; v2: IntPtr) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectdv_ovr_2(v1[0], v2) else
-      z_Rectdv_ovr_2_anh010(IntPtr.Zero, v2);
+      gl_ntv.z_Rectdv_ovr_2(v1[0], v2) else
+      gl_ntv.z_Rectdv_ovr_2_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(var v1: real; v2: array of real) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectdv_ovr_0(v1, v2[0]) else
-      z_Rectdv_ovr_0_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectdv_ovr_0(v1, v2[0]) else
+      gl_ntv.z_Rectdv_ovr_0_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(var v1: real; var v2: real) :=
-    z_Rectdv_ovr_0(v1, v2);
+    gl_ntv.z_Rectdv_ovr_0(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(var v1: real; v2: IntPtr) :=
-    z_Rectdv_ovr_2(v1, v2);
-    private static procedure z_Rectdv_ovr_6(v1: IntPtr; var v2: real);
-    external 'opengl32.dll' name 'glRectdv';
-    private static procedure z_Rectdv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
+    gl_ntv.z_Rectdv_ovr_2(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: IntPtr; v2: array of real) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectdv_ovr_6(v1, v2[0]) else
-      z_Rectdv_ovr_6_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectdv_ovr_6(v1, v2[0]) else
+      gl_ntv.z_Rectdv_ovr_6_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: IntPtr; var v2: real) :=
-    z_Rectdv_ovr_6(v1, v2);
-    private static procedure z_Rectdv_ovr_8(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectdv';
+    gl_ntv.z_Rectdv_ovr_6(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectdv(v1: IntPtr; v2: IntPtr) :=
-    z_Rectdv_ovr_8(v1, v2);
+    gl_ntv.z_Rectdv_ovr_8(v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectf_ovr_0(x1: single; y1: single; x2: single; y2: single);
-    external 'opengl32.dll' name 'glRectf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectf(x1: single; y1: single; x2: single; y2: single) :=
-    z_Rectf_ovr_0(x1, y1, x2, y2);
+    gl_ntv.z_Rectf_ovr_0(x1, y1, x2, y2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectfv_ovr_0(var v1: single; var v2: single);
-    external 'opengl32.dll' name 'glRectfv';
-    private static procedure z_Rectfv_ovr_0_anh010(v1: IntPtr; var v2: single);
-    external 'opengl32.dll' name 'glRectfv';
-    private static procedure z_Rectfv_ovr_0_anh001(var v1: single; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
-    private static procedure z_Rectfv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: array of single; v2: array of single) :=
     if (v1<>nil) and (v1.Length<>0) then
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectfv_ovr_0(v1[0], v2[0]) else
-        z_Rectfv_ovr_0_anh001(v1[0], IntPtr.Zero) else
+        gl_ntv.z_Rectfv_ovr_0(v1[0], v2[0]) else
+        gl_ntv.z_Rectfv_ovr_0_anh001(v1[0], IntPtr.Zero) else
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectfv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
-        z_Rectfv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_Rectfv_ovr_1_anh010(v1: IntPtr; var v2: single);
-    external 'opengl32.dll' name 'glRectfv';
+        gl_ntv.z_Rectfv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
+        gl_ntv.z_Rectfv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: array of single; var v2: single) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectfv_ovr_0(v1[0], v2) else
-      z_Rectfv_ovr_0_anh010(IntPtr.Zero, v2);
-    private static procedure z_Rectfv_ovr_2(var v1: single; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
-    private static procedure z_Rectfv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
+      gl_ntv.z_Rectfv_ovr_0(v1[0], v2) else
+      gl_ntv.z_Rectfv_ovr_0_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: array of single; v2: IntPtr) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectfv_ovr_2(v1[0], v2) else
-      z_Rectfv_ovr_2_anh010(IntPtr.Zero, v2);
+      gl_ntv.z_Rectfv_ovr_2(v1[0], v2) else
+      gl_ntv.z_Rectfv_ovr_2_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(var v1: single; v2: array of single) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectfv_ovr_0(v1, v2[0]) else
-      z_Rectfv_ovr_0_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectfv_ovr_0(v1, v2[0]) else
+      gl_ntv.z_Rectfv_ovr_0_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(var v1: single; var v2: single) :=
-    z_Rectfv_ovr_0(v1, v2);
+    gl_ntv.z_Rectfv_ovr_0(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(var v1: single; v2: IntPtr) :=
-    z_Rectfv_ovr_2(v1, v2);
-    private static procedure z_Rectfv_ovr_6(v1: IntPtr; var v2: single);
-    external 'opengl32.dll' name 'glRectfv';
-    private static procedure z_Rectfv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
+    gl_ntv.z_Rectfv_ovr_2(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: IntPtr; v2: array of single) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectfv_ovr_6(v1, v2[0]) else
-      z_Rectfv_ovr_6_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectfv_ovr_6(v1, v2[0]) else
+      gl_ntv.z_Rectfv_ovr_6_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: IntPtr; var v2: single) :=
-    z_Rectfv_ovr_6(v1, v2);
-    private static procedure z_Rectfv_ovr_8(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectfv';
+    gl_ntv.z_Rectfv_ovr_6(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectfv(v1: IntPtr; v2: IntPtr) :=
-    z_Rectfv_ovr_8(v1, v2);
+    gl_ntv.z_Rectfv_ovr_8(v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Recti_ovr_0(x1: Int32; y1: Int32; x2: Int32; y2: Int32);
-    external 'opengl32.dll' name 'glRecti';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Recti(x1: Int32; y1: Int32; x2: Int32; y2: Int32) :=
-    z_Recti_ovr_0(x1, y1, x2, y2);
+    gl_ntv.z_Recti_ovr_0(x1, y1, x2, y2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectiv_ovr_0(var v1: Int32; var v2: Int32);
-    external 'opengl32.dll' name 'glRectiv';
-    private static procedure z_Rectiv_ovr_0_anh010(v1: IntPtr; var v2: Int32);
-    external 'opengl32.dll' name 'glRectiv';
-    private static procedure z_Rectiv_ovr_0_anh001(var v1: Int32; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
-    private static procedure z_Rectiv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: array of Int32; v2: array of Int32) :=
     if (v1<>nil) and (v1.Length<>0) then
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectiv_ovr_0(v1[0], v2[0]) else
-        z_Rectiv_ovr_0_anh001(v1[0], IntPtr.Zero) else
+        gl_ntv.z_Rectiv_ovr_0(v1[0], v2[0]) else
+        gl_ntv.z_Rectiv_ovr_0_anh001(v1[0], IntPtr.Zero) else
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectiv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
-        z_Rectiv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_Rectiv_ovr_1_anh010(v1: IntPtr; var v2: Int32);
-    external 'opengl32.dll' name 'glRectiv';
+        gl_ntv.z_Rectiv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
+        gl_ntv.z_Rectiv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: array of Int32; var v2: Int32) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectiv_ovr_0(v1[0], v2) else
-      z_Rectiv_ovr_0_anh010(IntPtr.Zero, v2);
-    private static procedure z_Rectiv_ovr_2(var v1: Int32; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
-    private static procedure z_Rectiv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
+      gl_ntv.z_Rectiv_ovr_0(v1[0], v2) else
+      gl_ntv.z_Rectiv_ovr_0_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: array of Int32; v2: IntPtr) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectiv_ovr_2(v1[0], v2) else
-      z_Rectiv_ovr_2_anh010(IntPtr.Zero, v2);
+      gl_ntv.z_Rectiv_ovr_2(v1[0], v2) else
+      gl_ntv.z_Rectiv_ovr_2_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(var v1: Int32; v2: array of Int32) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectiv_ovr_0(v1, v2[0]) else
-      z_Rectiv_ovr_0_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectiv_ovr_0(v1, v2[0]) else
+      gl_ntv.z_Rectiv_ovr_0_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(var v1: Int32; var v2: Int32) :=
-    z_Rectiv_ovr_0(v1, v2);
+    gl_ntv.z_Rectiv_ovr_0(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(var v1: Int32; v2: IntPtr) :=
-    z_Rectiv_ovr_2(v1, v2);
-    private static procedure z_Rectiv_ovr_6(v1: IntPtr; var v2: Int32);
-    external 'opengl32.dll' name 'glRectiv';
-    private static procedure z_Rectiv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
+    gl_ntv.z_Rectiv_ovr_2(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: IntPtr; v2: array of Int32) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectiv_ovr_6(v1, v2[0]) else
-      z_Rectiv_ovr_6_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectiv_ovr_6(v1, v2[0]) else
+      gl_ntv.z_Rectiv_ovr_6_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: IntPtr; var v2: Int32) :=
-    z_Rectiv_ovr_6(v1, v2);
-    private static procedure z_Rectiv_ovr_8(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectiv';
+    gl_ntv.z_Rectiv_ovr_6(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectiv(v1: IntPtr; v2: IntPtr) :=
-    z_Rectiv_ovr_8(v1, v2);
+    gl_ntv.z_Rectiv_ovr_8(v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rects_ovr_0(x1: Int16; y1: Int16; x2: Int16; y2: Int16);
-    external 'opengl32.dll' name 'glRects';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rects(x1: Int16; y1: Int16; x2: Int16; y2: Int16) :=
-    z_Rects_ovr_0(x1, y1, x2, y2);
+    gl_ntv.z_Rects_ovr_0(x1, y1, x2, y2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rectsv_ovr_0(var v1: Int16; var v2: Int16);
-    external 'opengl32.dll' name 'glRectsv';
-    private static procedure z_Rectsv_ovr_0_anh010(v1: IntPtr; var v2: Int16);
-    external 'opengl32.dll' name 'glRectsv';
-    private static procedure z_Rectsv_ovr_0_anh001(var v1: Int16; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
-    private static procedure z_Rectsv_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: array of Int16; v2: array of Int16) :=
     if (v1<>nil) and (v1.Length<>0) then
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectsv_ovr_0(v1[0], v2[0]) else
-        z_Rectsv_ovr_0_anh001(v1[0], IntPtr.Zero) else
+        gl_ntv.z_Rectsv_ovr_0(v1[0], v2[0]) else
+        gl_ntv.z_Rectsv_ovr_0_anh001(v1[0], IntPtr.Zero) else
       if (v2<>nil) and (v2.Length<>0) then
-        z_Rectsv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
-        z_Rectsv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_Rectsv_ovr_1_anh010(v1: IntPtr; var v2: Int16);
-    external 'opengl32.dll' name 'glRectsv';
+        gl_ntv.z_Rectsv_ovr_0_anh010(IntPtr.Zero, v2[0]) else
+        gl_ntv.z_Rectsv_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: array of Int16; var v2: Int16) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectsv_ovr_0(v1[0], v2) else
-      z_Rectsv_ovr_0_anh010(IntPtr.Zero, v2);
-    private static procedure z_Rectsv_ovr_2(var v1: Int16; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
-    private static procedure z_Rectsv_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
+      gl_ntv.z_Rectsv_ovr_0(v1[0], v2) else
+      gl_ntv.z_Rectsv_ovr_0_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: array of Int16; v2: IntPtr) :=
     if (v1<>nil) and (v1.Length<>0) then
-      z_Rectsv_ovr_2(v1[0], v2) else
-      z_Rectsv_ovr_2_anh010(IntPtr.Zero, v2);
+      gl_ntv.z_Rectsv_ovr_2(v1[0], v2) else
+      gl_ntv.z_Rectsv_ovr_2_anh010(IntPtr.Zero, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(var v1: Int16; v2: array of Int16) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectsv_ovr_0(v1, v2[0]) else
-      z_Rectsv_ovr_0_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectsv_ovr_0(v1, v2[0]) else
+      gl_ntv.z_Rectsv_ovr_0_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(var v1: Int16; var v2: Int16) :=
-    z_Rectsv_ovr_0(v1, v2);
+    gl_ntv.z_Rectsv_ovr_0(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(var v1: Int16; v2: IntPtr) :=
-    z_Rectsv_ovr_2(v1, v2);
-    private static procedure z_Rectsv_ovr_6(v1: IntPtr; var v2: Int16);
-    external 'opengl32.dll' name 'glRectsv';
-    private static procedure z_Rectsv_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
+    gl_ntv.z_Rectsv_ovr_2(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: IntPtr; v2: array of Int16) :=
     if (v2<>nil) and (v2.Length<>0) then
-      z_Rectsv_ovr_6(v1, v2[0]) else
-      z_Rectsv_ovr_6_anh001(v1, IntPtr.Zero);
+      gl_ntv.z_Rectsv_ovr_6(v1, v2[0]) else
+      gl_ntv.z_Rectsv_ovr_6_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: IntPtr; var v2: Int16) :=
-    z_Rectsv_ovr_6(v1, v2);
-    private static procedure z_Rectsv_ovr_8(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectsv';
+    gl_ntv.z_Rectsv_ovr_6(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rectsv(v1: IntPtr; v2: IntPtr) :=
-    z_Rectsv_ovr_8(v1, v2);
+    gl_ntv.z_Rectsv_ovr_8(v1, v2);
     
     // added in gl1.0, deprecated in gl3.2
-    private static function z_RenderMode_ovr_0(mode: RenderingMode): Int32;
-    external 'opengl32.dll' name 'glRenderMode';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function RenderMode(mode: RenderingMode): Int32 :=
-    z_RenderMode_ovr_0(mode);
+    gl_ntv.z_RenderMode_ovr_0(mode);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rotated_ovr_0(angle: real; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glRotated';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rotated(angle: real; x: real; y: real; z: real) :=
-    z_Rotated_ovr_0(angle, x, y, z);
+    gl_ntv.z_Rotated_ovr_0(angle, x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Rotatef_ovr_0(angle: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glRotatef';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Rotatef(angle: single; x: single; y: single; z: single) :=
-    z_Rotatef_ovr_0(angle, x, y, z);
+    gl_ntv.z_Rotatef_ovr_0(angle, x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Scaled_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glScaled';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Scaled(x: real; y: real; z: real) :=
-    z_Scaled_ovr_0(x, y, z);
+    gl_ntv.z_Scaled_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Scalef_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glScalef';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Scalef(x: single; y: single; z: single) :=
-    z_Scalef_ovr_0(x, y, z);
+    gl_ntv.z_Scalef_ovr_0(x, y, z);
     
     // added in gl1.4, deprecated in gl3.2
     private z_SecondaryColor3b_adr := GetFuncAdr('glSecondaryColor3b');
@@ -34057,776 +35314,480 @@ type
     z_SecondaryColorPointer_ovr_0(size, &type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_SelectBuffer_ovr_0(size: Int32; var buffer: UInt32);
-    external 'opengl32.dll' name 'glSelectBuffer';
-    private static procedure z_SelectBuffer_ovr_0_anh001(size: Int32; buffer: IntPtr);
-    external 'opengl32.dll' name 'glSelectBuffer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectBuffer(size: Int32; buffer: array of UInt32) :=
     if (buffer<>nil) and (buffer.Length<>0) then
-      z_SelectBuffer_ovr_0(size, buffer[0]) else
-      z_SelectBuffer_ovr_0_anh001(size, IntPtr.Zero);
+      gl_ntv.z_SelectBuffer_ovr_0(size, buffer[0]) else
+      gl_ntv.z_SelectBuffer_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectBuffer(size: Int32; var buffer: UInt32) :=
-    z_SelectBuffer_ovr_0(size, buffer);
-    private static procedure z_SelectBuffer_ovr_2(size: Int32; buffer: IntPtr);
-    external 'opengl32.dll' name 'glSelectBuffer';
+    gl_ntv.z_SelectBuffer_ovr_0(size, buffer);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectBuffer(size: Int32; buffer: IntPtr) :=
-    z_SelectBuffer_ovr_2(size, buffer);
+    gl_ntv.z_SelectBuffer_ovr_2(size, buffer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_ShadeModel_ovr_0(mode: ShadingModel);
-    external 'opengl32.dll' name 'glShadeModel';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadeModel(mode: ShadingModel) :=
-    z_ShadeModel_ovr_0(mode);
+    gl_ntv.z_ShadeModel_ovr_0(mode);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1d_ovr_0(s: real);
-    external 'opengl32.dll' name 'glTexCoord1d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1d(s: real) :=
-    z_TexCoord1d_ovr_0(s);
+    gl_ntv.z_TexCoord1d_ovr_0(s);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glTexCoord1dv';
-    private static procedure z_TexCoord1dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1dv(v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_TexCoord1dv_ovr_0(v[0]) else
-      z_TexCoord1dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1dv(var v: real) :=
-    z_TexCoord1dv_ovr_0(v);
-    private static procedure z_TexCoord1dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1dv';
+    gl_ntv.z_TexCoord1dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1dv(v: IntPtr) :=
-    z_TexCoord1dv_ovr_2(v);
+    gl_ntv.z_TexCoord1dv_ovr_1(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1f_ovr_0(s: single);
-    external 'opengl32.dll' name 'glTexCoord1f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1f(s: single) :=
-    z_TexCoord1f_ovr_0(s);
+    gl_ntv.z_TexCoord1f_ovr_0(s);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glTexCoord1fv';
-    private static procedure z_TexCoord1fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1fv(v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_TexCoord1fv_ovr_0(v[0]) else
-      z_TexCoord1fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1fv(var v: single) :=
-    z_TexCoord1fv_ovr_0(v);
-    private static procedure z_TexCoord1fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1fv';
+    gl_ntv.z_TexCoord1fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1fv(v: IntPtr) :=
-    z_TexCoord1fv_ovr_2(v);
+    gl_ntv.z_TexCoord1fv_ovr_1(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1i_ovr_0(s: Int32);
-    external 'opengl32.dll' name 'glTexCoord1i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1i(s: Int32) :=
-    z_TexCoord1i_ovr_0(s);
+    gl_ntv.z_TexCoord1i_ovr_0(s);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glTexCoord1iv';
-    private static procedure z_TexCoord1iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1iv(v: array of Int32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_TexCoord1iv_ovr_0(v[0]) else
-      z_TexCoord1iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1iv(var v: Int32) :=
-    z_TexCoord1iv_ovr_0(v);
-    private static procedure z_TexCoord1iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1iv';
+    gl_ntv.z_TexCoord1iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1iv(v: IntPtr) :=
-    z_TexCoord1iv_ovr_2(v);
+    gl_ntv.z_TexCoord1iv_ovr_1(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1s_ovr_0(s: Int16);
-    external 'opengl32.dll' name 'glTexCoord1s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1s(s: Int16) :=
-    z_TexCoord1s_ovr_0(s);
+    gl_ntv.z_TexCoord1s_ovr_0(s);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord1sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glTexCoord1sv';
-    private static procedure z_TexCoord1sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1sv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1sv(v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_TexCoord1sv_ovr_0(v[0]) else
-      z_TexCoord1sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1sv(var v: Int16) :=
-    z_TexCoord1sv_ovr_0(v);
-    private static procedure z_TexCoord1sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1sv';
+    gl_ntv.z_TexCoord1sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1sv(v: IntPtr) :=
-    z_TexCoord1sv_ovr_2(v);
+    gl_ntv.z_TexCoord1sv_ovr_1(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2d_ovr_0(s: real; t: real);
-    external 'opengl32.dll' name 'glTexCoord2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2d(s: real; t: real) :=
-    z_TexCoord2d_ovr_0(s, t);
+    gl_ntv.z_TexCoord2d_ovr_0(s, t);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glTexCoord2dv';
-    private static procedure z_TexCoord2dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord2dv_ovr_0(v[0]) else
-      z_TexCoord2dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord2dv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord2dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2dv(var v: real) :=
-    z_TexCoord2dv_ovr_0(v);
-    private static procedure z_TexCoord2dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2dv';
+    gl_ntv.z_TexCoord2dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2dv(v: IntPtr) :=
-    z_TexCoord2dv_ovr_2(v);
+    gl_ntv.z_TexCoord2dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2f_ovr_0(s: single; t: single);
-    external 'opengl32.dll' name 'glTexCoord2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2f(s: single; t: single) :=
-    z_TexCoord2f_ovr_0(s, t);
+    gl_ntv.z_TexCoord2f_ovr_0(s, t);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fv';
-    private static procedure z_TexCoord2fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord2fv_ovr_0(v[0]) else
-      z_TexCoord2fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord2fv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord2fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fv(var v: single) :=
-    z_TexCoord2fv_ovr_0(v);
-    private static procedure z_TexCoord2fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fv';
+    gl_ntv.z_TexCoord2fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fv(v: IntPtr) :=
-    z_TexCoord2fv_ovr_2(v);
+    gl_ntv.z_TexCoord2fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2i_ovr_0(s: Int32; t: Int32);
-    external 'opengl32.dll' name 'glTexCoord2i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2i(s: Int32; t: Int32) :=
-    z_TexCoord2i_ovr_0(s, t);
+    gl_ntv.z_TexCoord2i_ovr_0(s, t);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glTexCoord2iv';
-    private static procedure z_TexCoord2iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord2iv_ovr_0(v[0]) else
-      z_TexCoord2iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord2iv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord2iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2iv(var v: Int32) :=
-    z_TexCoord2iv_ovr_0(v);
-    private static procedure z_TexCoord2iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2iv';
+    gl_ntv.z_TexCoord2iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2iv(v: IntPtr) :=
-    z_TexCoord2iv_ovr_2(v);
+    gl_ntv.z_TexCoord2iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2s_ovr_0(s: Int16; t: Int16);
-    external 'opengl32.dll' name 'glTexCoord2s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2s(s: Int16; t: Int16) :=
-    z_TexCoord2s_ovr_0(s, t);
+    gl_ntv.z_TexCoord2s_ovr_0(s, t);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord2sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glTexCoord2sv';
-    private static procedure z_TexCoord2sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord2sv_ovr_0(v[0]) else
-      z_TexCoord2sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord2sv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord2sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2sv(var v: Int16) :=
-    z_TexCoord2sv_ovr_0(v);
-    private static procedure z_TexCoord2sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2sv';
+    gl_ntv.z_TexCoord2sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2sv(v: IntPtr) :=
-    z_TexCoord2sv_ovr_2(v);
+    gl_ntv.z_TexCoord2sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3d_ovr_0(s: real; t: real; r: real);
-    external 'opengl32.dll' name 'glTexCoord3d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3d(s: real; t: real; r: real) :=
-    z_TexCoord3d_ovr_0(s, t, r);
+    gl_ntv.z_TexCoord3d_ovr_0(s, t, r);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glTexCoord3dv';
-    private static procedure z_TexCoord3dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord3dv_ovr_0(v[0]) else
-      z_TexCoord3dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord3dv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord3dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3dv(var v: real) :=
-    z_TexCoord3dv_ovr_0(v);
-    private static procedure z_TexCoord3dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3dv';
+    gl_ntv.z_TexCoord3dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3dv(v: IntPtr) :=
-    z_TexCoord3dv_ovr_2(v);
+    gl_ntv.z_TexCoord3dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3f_ovr_0(s: single; t: single; r: single);
-    external 'opengl32.dll' name 'glTexCoord3f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3f(s: single; t: single; r: single) :=
-    z_TexCoord3f_ovr_0(s, t, r);
+    gl_ntv.z_TexCoord3f_ovr_0(s, t, r);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glTexCoord3fv';
-    private static procedure z_TexCoord3fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord3fv_ovr_0(v[0]) else
-      z_TexCoord3fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord3fv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord3fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3fv(var v: single) :=
-    z_TexCoord3fv_ovr_0(v);
-    private static procedure z_TexCoord3fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3fv';
+    gl_ntv.z_TexCoord3fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3fv(v: IntPtr) :=
-    z_TexCoord3fv_ovr_2(v);
+    gl_ntv.z_TexCoord3fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3i_ovr_0(s: Int32; t: Int32; r: Int32);
-    external 'opengl32.dll' name 'glTexCoord3i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3i(s: Int32; t: Int32; r: Int32) :=
-    z_TexCoord3i_ovr_0(s, t, r);
+    gl_ntv.z_TexCoord3i_ovr_0(s, t, r);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glTexCoord3iv';
-    private static procedure z_TexCoord3iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord3iv_ovr_0(v[0]) else
-      z_TexCoord3iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord3iv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord3iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3iv(var v: Int32) :=
-    z_TexCoord3iv_ovr_0(v);
-    private static procedure z_TexCoord3iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3iv';
+    gl_ntv.z_TexCoord3iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3iv(v: IntPtr) :=
-    z_TexCoord3iv_ovr_2(v);
+    gl_ntv.z_TexCoord3iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3s_ovr_0(s: Int16; t: Int16; r: Int16);
-    external 'opengl32.dll' name 'glTexCoord3s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3s(s: Int16; t: Int16; r: Int16) :=
-    z_TexCoord3s_ovr_0(s, t, r);
+    gl_ntv.z_TexCoord3s_ovr_0(s, t, r);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord3sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glTexCoord3sv';
-    private static procedure z_TexCoord3sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord3sv_ovr_0(v[0]) else
-      z_TexCoord3sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord3sv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord3sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3sv(var v: Int16) :=
-    z_TexCoord3sv_ovr_0(v);
-    private static procedure z_TexCoord3sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3sv';
+    gl_ntv.z_TexCoord3sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3sv(v: IntPtr) :=
-    z_TexCoord3sv_ovr_2(v);
+    gl_ntv.z_TexCoord3sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4d_ovr_0(s: real; t: real; r: real; q: real);
-    external 'opengl32.dll' name 'glTexCoord4d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4d(s: real; t: real; r: real; q: real) :=
-    z_TexCoord4d_ovr_0(s, t, r, q);
+    gl_ntv.z_TexCoord4d_ovr_0(s, t, r, q);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glTexCoord4dv';
-    private static procedure z_TexCoord4dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord4dv_ovr_0(v[0]) else
-      z_TexCoord4dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord4dv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord4dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4dv(var v: real) :=
-    z_TexCoord4dv_ovr_0(v);
-    private static procedure z_TexCoord4dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4dv';
+    gl_ntv.z_TexCoord4dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4dv(v: IntPtr) :=
-    z_TexCoord4dv_ovr_2(v);
+    gl_ntv.z_TexCoord4dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4f_ovr_0(s: single; t: single; r: single; q: single);
-    external 'opengl32.dll' name 'glTexCoord4f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4f(s: single; t: single; r: single; q: single) :=
-    z_TexCoord4f_ovr_0(s, t, r, q);
+    gl_ntv.z_TexCoord4f_ovr_0(s, t, r, q);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fv';
-    private static procedure z_TexCoord4fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord4fv_ovr_0(v[0]) else
-      z_TexCoord4fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord4fv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord4fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fv(var v: single) :=
-    z_TexCoord4fv_ovr_0(v);
-    private static procedure z_TexCoord4fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fv';
+    gl_ntv.z_TexCoord4fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fv(v: IntPtr) :=
-    z_TexCoord4fv_ovr_2(v);
+    gl_ntv.z_TexCoord4fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4i_ovr_0(s: Int32; t: Int32; r: Int32; q: Int32);
-    external 'opengl32.dll' name 'glTexCoord4i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4i(s: Int32; t: Int32; r: Int32; q: Int32) :=
-    z_TexCoord4i_ovr_0(s, t, r, q);
+    gl_ntv.z_TexCoord4i_ovr_0(s, t, r, q);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glTexCoord4iv';
-    private static procedure z_TexCoord4iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord4iv_ovr_0(v[0]) else
-      z_TexCoord4iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord4iv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord4iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4iv(var v: Int32) :=
-    z_TexCoord4iv_ovr_0(v);
-    private static procedure z_TexCoord4iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4iv';
+    gl_ntv.z_TexCoord4iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4iv(v: IntPtr) :=
-    z_TexCoord4iv_ovr_2(v);
+    gl_ntv.z_TexCoord4iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4s_ovr_0(s: Int16; t: Int16; r: Int16; q: Int16);
-    external 'opengl32.dll' name 'glTexCoord4s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4s(s: Int16; t: Int16; r: Int16; q: Int16) :=
-    z_TexCoord4s_ovr_0(s, t, r, q);
+    gl_ntv.z_TexCoord4s_ovr_0(s, t, r, q);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexCoord4sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glTexCoord4sv';
-    private static procedure z_TexCoord4sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_TexCoord4sv_ovr_0(v[0]) else
-      z_TexCoord4sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_TexCoord4sv_ovr_0(v[0]) else
+      gl_ntv.z_TexCoord4sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4sv(var v: Int16) :=
-    z_TexCoord4sv_ovr_0(v);
-    private static procedure z_TexCoord4sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4sv';
+    gl_ntv.z_TexCoord4sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4sv(v: IntPtr) :=
-    z_TexCoord4sv_ovr_2(v);
+    gl_ntv.z_TexCoord4sv_ovr_2(v);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_TexCoordPointer_ovr_0(size: Int32; &type: TexCoordPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointer(size: Int32; &type: TexCoordPointerType; stride: Int32; pointer: IntPtr) :=
-    z_TexCoordPointer_ovr_0(size, &type, stride, pointer);
+    gl_ntv.z_TexCoordPointer_ovr_0(size, &type, stride, pointer);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexEnvf_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; param: single);
-    external 'opengl32.dll' name 'glTexEnvf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvf(target: TextureEnvTarget; pname: TextureEnvParameter; param: single) :=
-    z_TexEnvf_ovr_0(target, pname, param);
+    gl_ntv.z_TexEnvf_ovr_0(target, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexEnvfv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glTexEnvfv';
-    private static procedure z_TexEnvfv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnvfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexEnvfv_ovr_0(target, pname, ¶ms[0]) else
-      z_TexEnvfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_TexEnvfv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_TexEnvfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single) :=
-    z_TexEnvfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexEnvfv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnvfv';
+    gl_ntv.z_TexEnvfv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvfv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
-    z_TexEnvfv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_TexEnvfv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexEnvi_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; param: Int32);
-    external 'opengl32.dll' name 'glTexEnvi';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvi(target: TextureEnvTarget; pname: TextureEnvParameter; param: Int32) :=
-    z_TexEnvi_ovr_0(target, pname, param);
+    gl_ntv.z_TexEnvi_ovr_0(target, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexEnviv_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTexEnviv';
-    private static procedure z_TexEnviv_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnviv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexEnviv_ovr_0(target, pname, ¶ms[0]) else
-      z_TexEnviv_ovr_0_anh0001(target, pname, IntPtr.Zero);
+      gl_ntv.z_TexEnviv_ovr_0(target, pname, ¶ms[0]) else
+      gl_ntv.z_TexEnviv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32) :=
-    z_TexEnviv_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexEnviv_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnviv';
+    gl_ntv.z_TexEnviv_ovr_0(target, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnviv(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
-    z_TexEnviv_ovr_2(target, pname, ¶ms);
+    gl_ntv.z_TexEnviv_ovr_2(target, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGend_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: real);
-    external 'opengl32.dll' name 'glTexGend';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGend(coord: TextureCoordName; pname: TextureGenParameter; param: real) :=
-    z_TexGend_ovr_0(coord, pname, param);
+    gl_ntv.z_TexGend_ovr_0(coord, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGendv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
-    external 'opengl32.dll' name 'glTexGendv';
-    private static procedure z_TexGendv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGendv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGendv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexGendv_ovr_0(coord, pname, ¶ms[0]) else
-      z_TexGendv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_TexGendv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_TexGendv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGendv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real) :=
-    z_TexGendv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_TexGendv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGendv';
+    gl_ntv.z_TexGendv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGendv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_TexGendv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_TexGendv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGenf_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: single);
-    external 'opengl32.dll' name 'glTexGenf';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenf(coord: TextureCoordName; pname: TextureGenParameter; param: single) :=
-    z_TexGenf_ovr_0(coord, pname, param);
+    gl_ntv.z_TexGenf_ovr_0(coord, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGenfv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glTexGenfv';
-    private static procedure z_TexGenfv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGenfv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenfv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexGenfv_ovr_0(coord, pname, ¶ms[0]) else
-      z_TexGenfv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_TexGenfv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_TexGenfv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenfv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single) :=
-    z_TexGenfv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_TexGenfv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGenfv';
+    gl_ntv.z_TexGenfv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenfv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_TexGenfv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_TexGenfv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGeni_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: Int32);
-    external 'opengl32.dll' name 'glTexGeni';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGeni(coord: TextureCoordName; pname: TextureGenParameter; param: Int32) :=
-    z_TexGeni_ovr_0(coord, pname, param);
+    gl_ntv.z_TexGeni_ovr_0(coord, pname, param);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_TexGeniv_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTexGeniv';
-    private static procedure z_TexGeniv_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGeniv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGeniv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_TexGeniv_ovr_0(coord, pname, ¶ms[0]) else
-      z_TexGeniv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
+      gl_ntv.z_TexGeniv_ovr_0(coord, pname, ¶ms[0]) else
+      gl_ntv.z_TexGeniv_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGeniv(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32) :=
-    z_TexGeniv_ovr_0(coord, pname, ¶ms);
-    private static procedure z_TexGeniv_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGeniv';
+    gl_ntv.z_TexGeniv_ovr_0(coord, pname, ¶ms);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGeniv(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
-    z_TexGeniv_ovr_2(coord, pname, ¶ms);
+    gl_ntv.z_TexGeniv_ovr_2(coord, pname, ¶ms);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Translated_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glTranslated';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Translated(x: real; y: real; z: real) :=
-    z_Translated_ovr_0(x, y, z);
+    gl_ntv.z_Translated_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Translatef_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTranslatef';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Translatef(x: single; y: single; z: single) :=
-    z_Translatef_ovr_0(x, y, z);
+    gl_ntv.z_Translatef_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2d_ovr_0(x: real; y: real);
-    external 'opengl32.dll' name 'glVertex2d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2d(x: real; y: real) :=
-    z_Vertex2d_ovr_0(x, y);
+    gl_ntv.z_Vertex2d_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glVertex2dv';
-    private static procedure z_Vertex2dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex2dv_ovr_0(v[0]) else
-      z_Vertex2dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex2dv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex2dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2dv(var v: real) :=
-    z_Vertex2dv_ovr_0(v);
-    private static procedure z_Vertex2dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2dv';
+    gl_ntv.z_Vertex2dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2dv(v: IntPtr) :=
-    z_Vertex2dv_ovr_2(v);
+    gl_ntv.z_Vertex2dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2f_ovr_0(x: single; y: single);
-    external 'opengl32.dll' name 'glVertex2f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2f(x: single; y: single) :=
-    z_Vertex2f_ovr_0(x, y);
+    gl_ntv.z_Vertex2f_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glVertex2fv';
-    private static procedure z_Vertex2fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex2fv_ovr_0(v[0]) else
-      z_Vertex2fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex2fv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex2fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2fv(var v: single) :=
-    z_Vertex2fv_ovr_0(v);
-    private static procedure z_Vertex2fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2fv';
+    gl_ntv.z_Vertex2fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2fv(v: IntPtr) :=
-    z_Vertex2fv_ovr_2(v);
+    gl_ntv.z_Vertex2fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2i_ovr_0(x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glVertex2i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2i(x: Int32; y: Int32) :=
-    z_Vertex2i_ovr_0(x, y);
+    gl_ntv.z_Vertex2i_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glVertex2iv';
-    private static procedure z_Vertex2iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex2iv_ovr_0(v[0]) else
-      z_Vertex2iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex2iv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex2iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2iv(var v: Int32) :=
-    z_Vertex2iv_ovr_0(v);
-    private static procedure z_Vertex2iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2iv';
+    gl_ntv.z_Vertex2iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2iv(v: IntPtr) :=
-    z_Vertex2iv_ovr_2(v);
+    gl_ntv.z_Vertex2iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2s_ovr_0(x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glVertex2s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2s(x: Int16; y: Int16) :=
-    z_Vertex2s_ovr_0(x, y);
+    gl_ntv.z_Vertex2s_ovr_0(x, y);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex2sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glVertex2sv';
-    private static procedure z_Vertex2sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex2sv_ovr_0(v[0]) else
-      z_Vertex2sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex2sv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex2sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2sv(var v: Int16) :=
-    z_Vertex2sv_ovr_0(v);
-    private static procedure z_Vertex2sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2sv';
+    gl_ntv.z_Vertex2sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2sv(v: IntPtr) :=
-    z_Vertex2sv_ovr_2(v);
+    gl_ntv.z_Vertex2sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3d_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertex3d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3d(x: real; y: real; z: real) :=
-    z_Vertex3d_ovr_0(x, y, z);
+    gl_ntv.z_Vertex3d_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glVertex3dv';
-    private static procedure z_Vertex3dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex3dv_ovr_0(v[0]) else
-      z_Vertex3dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex3dv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex3dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3dv(var v: real) :=
-    z_Vertex3dv_ovr_0(v);
-    private static procedure z_Vertex3dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3dv';
+    gl_ntv.z_Vertex3dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3dv(v: IntPtr) :=
-    z_Vertex3dv_ovr_2(v);
+    gl_ntv.z_Vertex3dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3f_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glVertex3f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3f(x: single; y: single; z: single) :=
-    z_Vertex3f_ovr_0(x, y, z);
+    gl_ntv.z_Vertex3f_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glVertex3fv';
-    private static procedure z_Vertex3fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex3fv_ovr_0(v[0]) else
-      z_Vertex3fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex3fv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex3fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3fv(var v: single) :=
-    z_Vertex3fv_ovr_0(v);
-    private static procedure z_Vertex3fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3fv';
+    gl_ntv.z_Vertex3fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3fv(v: IntPtr) :=
-    z_Vertex3fv_ovr_2(v);
+    gl_ntv.z_Vertex3fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3i_ovr_0(x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glVertex3i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3i(x: Int32; y: Int32; z: Int32) :=
-    z_Vertex3i_ovr_0(x, y, z);
+    gl_ntv.z_Vertex3i_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glVertex3iv';
-    private static procedure z_Vertex3iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex3iv_ovr_0(v[0]) else
-      z_Vertex3iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex3iv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex3iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3iv(var v: Int32) :=
-    z_Vertex3iv_ovr_0(v);
-    private static procedure z_Vertex3iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3iv';
+    gl_ntv.z_Vertex3iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3iv(v: IntPtr) :=
-    z_Vertex3iv_ovr_2(v);
+    gl_ntv.z_Vertex3iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3s_ovr_0(x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glVertex3s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3s(x: Int16; y: Int16; z: Int16) :=
-    z_Vertex3s_ovr_0(x, y, z);
+    gl_ntv.z_Vertex3s_ovr_0(x, y, z);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex3sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glVertex3sv';
-    private static procedure z_Vertex3sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex3sv_ovr_0(v[0]) else
-      z_Vertex3sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex3sv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex3sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3sv(var v: Int16) :=
-    z_Vertex3sv_ovr_0(v);
-    private static procedure z_Vertex3sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3sv';
+    gl_ntv.z_Vertex3sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3sv(v: IntPtr) :=
-    z_Vertex3sv_ovr_2(v);
+    gl_ntv.z_Vertex3sv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4d_ovr_0(x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertex4d';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4d(x: real; y: real; z: real; w: real) :=
-    z_Vertex4d_ovr_0(x, y, z, w);
+    gl_ntv.z_Vertex4d_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4dv_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glVertex4dv';
-    private static procedure z_Vertex4dv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4dv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4dv(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex4dv_ovr_0(v[0]) else
-      z_Vertex4dv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex4dv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex4dv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4dv(var v: real) :=
-    z_Vertex4dv_ovr_0(v);
-    private static procedure z_Vertex4dv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4dv';
+    gl_ntv.z_Vertex4dv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4dv(v: IntPtr) :=
-    z_Vertex4dv_ovr_2(v);
+    gl_ntv.z_Vertex4dv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4f_ovr_0(x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glVertex4f';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4f(x: single; y: single; z: single; w: single) :=
-    z_Vertex4f_ovr_0(x, y, z, w);
+    gl_ntv.z_Vertex4f_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4fv_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glVertex4fv';
-    private static procedure z_Vertex4fv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4fv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4fv(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex4fv_ovr_0(v[0]) else
-      z_Vertex4fv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex4fv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex4fv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4fv(var v: single) :=
-    z_Vertex4fv_ovr_0(v);
-    private static procedure z_Vertex4fv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4fv';
+    gl_ntv.z_Vertex4fv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4fv(v: IntPtr) :=
-    z_Vertex4fv_ovr_2(v);
+    gl_ntv.z_Vertex4fv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4i_ovr_0(x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glVertex4i';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4i(x: Int32; y: Int32; z: Int32; w: Int32) :=
-    z_Vertex4i_ovr_0(x, y, z, w);
+    gl_ntv.z_Vertex4i_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4iv_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glVertex4iv';
-    private static procedure z_Vertex4iv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4iv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4iv(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex4iv_ovr_0(v[0]) else
-      z_Vertex4iv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex4iv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex4iv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4iv(var v: Int32) :=
-    z_Vertex4iv_ovr_0(v);
-    private static procedure z_Vertex4iv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4iv';
+    gl_ntv.z_Vertex4iv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4iv(v: IntPtr) :=
-    z_Vertex4iv_ovr_2(v);
+    gl_ntv.z_Vertex4iv_ovr_2(v);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4s_ovr_0(x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glVertex4s';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4s(x: Int16; y: Int16; z: Int16; w: Int16) :=
-    z_Vertex4s_ovr_0(x, y, z, w);
+    gl_ntv.z_Vertex4s_ovr_0(x, y, z, w);
     
     // added in gl1.0, deprecated in gl3.2
-    private static procedure z_Vertex4sv_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glVertex4sv';
-    private static procedure z_Vertex4sv_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4sv';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4sv(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
-      z_Vertex4sv_ovr_0(v[0]) else
-      z_Vertex4sv_ovr_0_anh01(IntPtr.Zero);
+      gl_ntv.z_Vertex4sv_ovr_0(v[0]) else
+      gl_ntv.z_Vertex4sv_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4sv(var v: Int16) :=
-    z_Vertex4sv_ovr_0(v);
-    private static procedure z_Vertex4sv_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4sv';
+    gl_ntv.z_Vertex4sv_ovr_0(v);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4sv(v: IntPtr) :=
-    z_Vertex4sv_ovr_2(v);
+    gl_ntv.z_Vertex4sv_ovr_2(v);
     
     // added in gl1.1, deprecated in gl3.2
-    private static procedure z_VertexPointer_ovr_0(size: Int32; &type: VertexPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexPointer';
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointer(size: Int32; &type: VertexPointerType; stride: Int32; pointer: IntPtr) :=
-    z_VertexPointer_ovr_0(size, &type, stride, pointer);
+    gl_ntv.z_VertexPointer_ovr_0(size, &type, stride, pointer);
     
     // added in gl1.4, deprecated in gl3.2
     private z_WindowPos2d_adr := GetFuncAdr('glWindowPos2d');
@@ -34991,261 +35952,779 @@ type
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   wgl = static class
     
     // added in wgl1.0
-    private static function z_CopyContext_ovr_0(hglrcSrc: GLContext; hglrcDst: GLContext; mask: UInt32): UInt32;
+    private static function z_CopyContext_ovr_0(hglrcSrc: wgl_context; hglrcDst: wgl_context; mask: UInt32): Bool;
     external 'opengl32.dll' name 'wglCopyContext';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CopyContext(hglrcSrc: GLContext; hglrcDst: GLContext; mask: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CopyContext(hglrcSrc: wgl_context; hglrcDst: wgl_context; mask: UInt32): Bool :=
     z_CopyContext_ovr_0(hglrcSrc, hglrcDst, mask);
     
     // added in wgl1.0
-    private static function z_CreateContext_ovr_0(hDc: GDI_DC): GLContext;
+    private static function z_CreateContext_ovr_0(hDc: gdi_device_context): wgl_context;
     external 'opengl32.dll' name 'wglCreateContext';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContext(hDc: GDI_DC): GLContext :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContext(hDc: gdi_device_context): wgl_context :=
     z_CreateContext_ovr_0(hDc);
     
     // added in wgl1.0
-    private static function z_CreateLayerContext_ovr_0(hDc: GDI_DC; level: Int32): GLContext;
+    private static function z_CreateLayerContext_ovr_0(hDc: gdi_device_context; level: Int32): wgl_context;
     external 'opengl32.dll' name 'wglCreateLayerContext';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateLayerContext(hDc: GDI_DC; level: Int32): GLContext :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateLayerContext(hDc: gdi_device_context; level: Int32): wgl_context :=
     z_CreateLayerContext_ovr_0(hDc, level);
     
     // added in wgl1.0
-    private static function z_DeleteContext_ovr_0(oldContext: GLContext): UInt32;
+    private static function z_DeleteContext_ovr_0(oldContext: wgl_context): Bool;
     external 'opengl32.dll' name 'wglDeleteContext';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DeleteContext(oldContext: GLContext): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DeleteContext(oldContext: wgl_context): Bool :=
     z_DeleteContext_ovr_0(oldContext);
     
     // added in wgl1.0
-    private static function z_DescribeLayerPlane_ovr_0(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; var plpd: GDI_LayerPlaneDescriptor): UInt32;
+    private static function z_DescribeLayerPlane_ovr_0(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; var plpd: gdi_layer_plane_descriptor): Bool;
     external 'opengl32.dll' name 'wglDescribeLayerPlane';
-    private static function z_DescribeLayerPlane_ovr_0_anh000001(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): UInt32;
+    private static function z_DescribeLayerPlane_ovr_0_anh000001(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): Bool;
     external 'opengl32.dll' name 'wglDescribeLayerPlane';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: array of GDI_LayerPlaneDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: array of gdi_layer_plane_descriptor): Bool :=
     if (plpd<>nil) and (plpd.Length<>0) then
       z_DescribeLayerPlane_ovr_0(hDc, pixelFormat, layerPlane, nBytes, plpd[0]) else
       z_DescribeLayerPlane_ovr_0_anh000001(hDc, pixelFormat, layerPlane, nBytes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; var plpd: GDI_LayerPlaneDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; var plpd: gdi_layer_plane_descriptor): Bool :=
     z_DescribeLayerPlane_ovr_0(hDc, pixelFormat, layerPlane, nBytes, plpd);
-    private static function z_DescribeLayerPlane_ovr_2(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): UInt32;
+    private static function z_DescribeLayerPlane_ovr_2(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): Bool;
     external 'opengl32.dll' name 'wglDescribeLayerPlane';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: GDI_DC; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribeLayerPlane(hDc: gdi_device_context; pixelFormat: Int32; layerPlane: Int32; nBytes: UInt32; plpd: IntPtr): Bool :=
     z_DescribeLayerPlane_ovr_2(hDc, pixelFormat, layerPlane, nBytes, plpd);
     
     // added in wgl1.0
-    private static function z_GetCurrentContext_ovr_0: GLContext;
+    private static function z_GetCurrentContext_ovr_0: wgl_context;
     external 'opengl32.dll' name 'wglGetCurrentContext';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentContext: GLContext :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentContext: wgl_context :=
     z_GetCurrentContext_ovr_0;
     
     // added in wgl1.0
-    private static function z_GetCurrentDC_ovr_0: GDI_DC;
+    private static function z_GetCurrentDC_ovr_0: gdi_device_context;
     external 'opengl32.dll' name 'wglGetCurrentDC';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDC: GDI_DC :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDC: gdi_device_context :=
     z_GetCurrentDC_ovr_0;
     
     // added in wgl1.0
-    private static function z_GetLayerPaletteEntries_ovr_0(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: GDI_COLORREF): Int32;
+    private static function z_GetLayerPaletteEntries_ovr_0(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: gdi_colorref): Int32;
     external 'opengl32.dll' name 'wglGetLayerPaletteEntries';
-    private static function z_GetLayerPaletteEntries_ovr_0_anh000001(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
+    private static function z_GetLayerPaletteEntries_ovr_0_anh000001(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
     external 'opengl32.dll' name 'wglGetLayerPaletteEntries';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: array of GDI_COLORREF): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: array of gdi_colorref): Int32 :=
     if (pcr<>nil) and (pcr.Length<>0) then
       z_GetLayerPaletteEntries_ovr_0(hdc, iLayerPlane, iStart, cEntries, pcr[0]) else
       z_GetLayerPaletteEntries_ovr_0_anh000001(hdc, iLayerPlane, iStart, cEntries, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: GDI_COLORREF): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: gdi_colorref): Int32 :=
     z_GetLayerPaletteEntries_ovr_0(hdc, iLayerPlane, iStart, cEntries, pcr);
-    private static function z_GetLayerPaletteEntries_ovr_2(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
+    private static function z_GetLayerPaletteEntries_ovr_2(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
     external 'opengl32.dll' name 'wglGetLayerPaletteEntries';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32 :=
     z_GetLayerPaletteEntries_ovr_2(hdc, iLayerPlane, iStart, cEntries, pcr);
     
     // added in wgl1.0
     private static function z_GetProcAddress_ovr_0(lpszProc: IntPtr): IntPtr;
     external 'opengl32.dll' name 'wglGetProcAddress';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(lpszProc: string): IntPtr;
+    begin
+      var par_1_str_ptr: IntPtr;
+      try
+        par_1_str_ptr := Marshal.StringToHGlobalAnsi(lpszProc);
+        Result := z_GetProcAddress_ovr_0(par_1_str_ptr);
+      finally
+        Marshal.FreeHGlobal(par_1_str_ptr);
+      end;
+    end;
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(lpszProc: IntPtr): IntPtr :=
     z_GetProcAddress_ovr_0(lpszProc);
     
     // added in wgl1.0
-    private static function z_MakeCurrent_ovr_0(hDc: GDI_DC; newContext: GLContext): UInt32;
+    private static function z_MakeCurrent_ovr_0(hDc: gdi_device_context; newContext: wgl_context): Bool;
     external 'opengl32.dll' name 'wglMakeCurrent';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeCurrent(hDc: GDI_DC; newContext: GLContext): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeCurrent(hDc: gdi_device_context; newContext: wgl_context): Bool :=
     z_MakeCurrent_ovr_0(hDc, newContext);
     
     // added in wgl1.0
-    private static function z_RealizeLayerPalette_ovr_0(hdc: GDI_DC; iLayerPlane: Int32; bRealize: UInt32): UInt32;
+    private static function z_RealizeLayerPalette_ovr_0(hdc: gdi_device_context; iLayerPlane: Int32; bRealize: Bool): Bool;
     external 'opengl32.dll' name 'wglRealizeLayerPalette';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function RealizeLayerPalette(hdc: GDI_DC; iLayerPlane: Int32; bRealize: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function RealizeLayerPalette(hdc: gdi_device_context; iLayerPlane: Int32; bRealize: Bool): Bool :=
     z_RealizeLayerPalette_ovr_0(hdc, iLayerPlane, bRealize);
     
     // added in wgl1.0
-    private static function z_SetLayerPaletteEntries_ovr_0(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: GDI_COLORREF): Int32;
+    private static function z_SetLayerPaletteEntries_ovr_0(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: gdi_colorref): Int32;
     external 'opengl32.dll' name 'wglSetLayerPaletteEntries';
-    private static function z_SetLayerPaletteEntries_ovr_0_anh000001(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
+    private static function z_SetLayerPaletteEntries_ovr_0_anh000001(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
     external 'opengl32.dll' name 'wglSetLayerPaletteEntries';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: array of GDI_COLORREF): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: array of gdi_colorref): Int32 :=
     if (pcr<>nil) and (pcr.Length<>0) then
       z_SetLayerPaletteEntries_ovr_0(hdc, iLayerPlane, iStart, cEntries, pcr[0]) else
       z_SetLayerPaletteEntries_ovr_0_anh000001(hdc, iLayerPlane, iStart, cEntries, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: GDI_COLORREF): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; var pcr: gdi_colorref): Int32 :=
     z_SetLayerPaletteEntries_ovr_0(hdc, iLayerPlane, iStart, cEntries, pcr);
-    private static function z_SetLayerPaletteEntries_ovr_2(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
+    private static function z_SetLayerPaletteEntries_ovr_2(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32;
     external 'opengl32.dll' name 'wglSetLayerPaletteEntries';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: GDI_DC; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetLayerPaletteEntries(hdc: gdi_device_context; iLayerPlane: Int32; iStart: Int32; cEntries: Int32; pcr: IntPtr): Int32 :=
     z_SetLayerPaletteEntries_ovr_2(hdc, iLayerPlane, iStart, cEntries, pcr);
     
     // added in wgl1.0
-    private static function z_ShareLists_ovr_0(hrcSrvShare: GLContext; hrcSrvSource: GLContext): UInt32;
+    private static function z_ShareLists_ovr_0(hrcSrvShare: wgl_context; hrcSrvSource: wgl_context): Bool;
     external 'opengl32.dll' name 'wglShareLists';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ShareLists(hrcSrvShare: GLContext; hrcSrvSource: GLContext): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ShareLists(hrcSrvShare: wgl_context; hrcSrvSource: wgl_context): Bool :=
     z_ShareLists_ovr_0(hrcSrvShare, hrcSrvSource);
     
     // added in wgl1.0
-    private static function z_SwapLayerBuffers_ovr_0(hdc: GDI_DC; fuFlags: UInt32): UInt32;
+    private static function z_SwapLayerBuffers_ovr_0(hdc: gdi_device_context; fuFlags: UInt32): Bool;
     external 'opengl32.dll' name 'wglSwapLayerBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapLayerBuffers(hdc: GDI_DC; fuFlags: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapLayerBuffers(hdc: gdi_device_context; fuFlags: UInt32): Bool :=
     z_SwapLayerBuffers_ovr_0(hdc, fuFlags);
     
     // added in wgl1.0
-    private static function z_UseFontBitmaps_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32;
+    private static function z_UseFontBitmaps_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool;
     external 'opengl32.dll' name 'wglUseFontBitmaps';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmaps(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmaps(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool :=
     z_UseFontBitmaps_ovr_0(hDC, first, count, listBase);
     
     // added in wgl1.0
-    private static function z_UseFontBitmapsA_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32;
+    private static function z_UseFontBitmapsA_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool;
     external 'opengl32.dll' name 'wglUseFontBitmapsA';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmapsA(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmapsA(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool :=
     z_UseFontBitmapsA_ovr_0(hDC, first, count, listBase);
     
     // added in wgl1.0
-    private static function z_UseFontBitmapsW_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32;
+    private static function z_UseFontBitmapsW_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool;
     external 'opengl32.dll' name 'wglUseFontBitmapsW';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmapsW(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontBitmapsW(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32): Bool :=
     z_UseFontBitmapsW_ovr_0(hDC, first, count, listBase);
     
     // added in wgl1.0
-    private static function z_UseFontOutlines_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32;
+    private static function z_UseFontOutlines_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlines';
-    private static function z_UseFontOutlines_ovr_0_anh000000001(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlines_ovr_0_anh000000001(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlines';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of gdi_glyphmetrics_float): Bool :=
     if (lpgmf<>nil) and (lpgmf.Length<>0) then
       z_UseFontOutlines_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf[0]) else
       z_UseFontOutlines_ovr_0_anh000000001(hDC, first, count, listBase, deviation, extrusion, format, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool :=
     z_UseFontOutlines_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
-    private static function z_UseFontOutlines_ovr_2(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlines_ovr_2(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlines';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlines(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool :=
     z_UseFontOutlines_ovr_2(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
     
     // added in wgl1.0
-    private static function z_UseFontOutlinesA_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32;
+    private static function z_UseFontOutlinesA_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesA';
-    private static function z_UseFontOutlinesA_ovr_0_anh000000001(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlinesA_ovr_0_anh000000001(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesA';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of gdi_glyphmetrics_float): Bool :=
     if (lpgmf<>nil) and (lpgmf.Length<>0) then
       z_UseFontOutlinesA_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf[0]) else
       z_UseFontOutlinesA_ovr_0_anh000000001(hDC, first, count, listBase, deviation, extrusion, format, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool :=
     z_UseFontOutlinesA_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
-    private static function z_UseFontOutlinesA_ovr_2(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlinesA_ovr_2(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesA';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesA(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool :=
     z_UseFontOutlinesA_ovr_2(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
     
     // added in wgl1.0
-    private static function z_UseFontOutlinesW_ovr_0(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32;
+    private static function z_UseFontOutlinesW_ovr_0(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesW';
-    private static function z_UseFontOutlinesW_ovr_0_anh000000001(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlinesW_ovr_0_anh000000001(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesW';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: array of gdi_glyphmetrics_float): Bool :=
     if (lpgmf<>nil) and (lpgmf.Length<>0) then
       z_UseFontOutlinesW_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf[0]) else
       z_UseFontOutlinesW_ovr_0_anh000000001(hDC, first, count, listBase, deviation, extrusion, format, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: GDI_GlyphmetricsFloat): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; var lpgmf: gdi_glyphmetrics_float): Bool :=
     z_UseFontOutlinesW_ovr_0(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
-    private static function z_UseFontOutlinesW_ovr_2(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32;
+    private static function z_UseFontOutlinesW_ovr_2(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool;
     external 'opengl32.dll' name 'wglUseFontOutlinesW';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: GDI_DC; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function UseFontOutlinesW(hDC: gdi_device_context; first: UInt32; count: UInt32; listBase: UInt32; deviation: single; extrusion: single; format: Int32; lpgmf: IntPtr): Bool :=
     z_UseFontOutlinesW_ovr_2(hDC, first, count, listBase, deviation, extrusion, format, lpgmf);
     
   end;
   
   [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glx = static class
+    
+    // added in glx1.3
+    private static function z_ChooseFBConfig_ovr_0(dpy: x_p_display; screen: Int32; var attrib_list: Int32; var nelements: Int32): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    private static function z_ChooseFBConfig_ovr_0_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    private static function z_ChooseFBConfig_ovr_0_anh00001(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    private static function z_ChooseFBConfig_ovr_0_anh00011(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: array of Int32): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      if (nelements<>nil) and (nelements.Length<>0) then
+        z_ChooseFBConfig_ovr_0(dpy, screen, attrib_list[0], nelements[0]) else
+        z_ChooseFBConfig_ovr_0_anh00001(dpy, screen, attrib_list[0], IntPtr.Zero) else
+      if (nelements<>nil) and (nelements.Length<>0) then
+        z_ChooseFBConfig_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements[0]) else
+        z_ChooseFBConfig_ovr_0_anh00011(dpy, screen, IntPtr.Zero, IntPtr.Zero);
+    private static function z_ChooseFBConfig_ovr_1_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; var nelements: Int32): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_ChooseFBConfig_ovr_0(dpy, screen, attrib_list[0], nelements) else
+      z_ChooseFBConfig_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements);
+    private static function z_ChooseFBConfig_ovr_2(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    private static function z_ChooseFBConfig_ovr_2_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: IntPtr): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_ChooseFBConfig_ovr_2(dpy, screen, attrib_list[0], nelements) else
+      z_ChooseFBConfig_ovr_2_anh00010(dpy, screen, IntPtr.Zero, nelements);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: array of Int32): ^glx_fb_config :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_ChooseFBConfig_ovr_0(dpy, screen, attrib_list, nelements[0]) else
+      z_ChooseFBConfig_ovr_0_anh00001(dpy, screen, attrib_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; var attrib_list: Int32; var nelements: Int32): ^glx_fb_config :=
+    z_ChooseFBConfig_ovr_0(dpy, screen, attrib_list, nelements);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config :=
+    z_ChooseFBConfig_ovr_2(dpy, screen, attrib_list, nelements);
+    private static function z_ChooseFBConfig_ovr_6(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    private static function z_ChooseFBConfig_ovr_6_anh00001(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: array of Int32): ^glx_fb_config :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_ChooseFBConfig_ovr_6(dpy, screen, attrib_list, nelements[0]) else
+      z_ChooseFBConfig_ovr_6_anh00001(dpy, screen, attrib_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config :=
+    z_ChooseFBConfig_ovr_6(dpy, screen, attrib_list, nelements);
+    private static function z_ChooseFBConfig_ovr_8(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXChooseFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config :=
+    z_ChooseFBConfig_ovr_8(dpy, screen, attrib_list, nelements);
+    
+    // added in glx1.0
+    private static function z_ChooseVisual_ovr_0(dpy: x_p_display; screen: Int32; var attribList: Int32): x_p_visual_info;
+    external 'opengl32.dll' name 'glXChooseVisual';
+    private static function z_ChooseVisual_ovr_0_anh0001(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info;
+    external 'opengl32.dll' name 'glXChooseVisual';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; attribList: array of Int32): x_p_visual_info :=
+    if (attribList<>nil) and (attribList.Length<>0) then
+      z_ChooseVisual_ovr_0(dpy, screen, attribList[0]) else
+      z_ChooseVisual_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; var attribList: Int32): x_p_visual_info :=
+    z_ChooseVisual_ovr_0(dpy, screen, attribList);
+    private static function z_ChooseVisual_ovr_2(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info;
+    external 'opengl32.dll' name 'glXChooseVisual';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info :=
+    z_ChooseVisual_ovr_2(dpy, screen, attribList);
+    
+    // added in glx1.0
+    private static procedure z_CopyContext_ovr_0(dpy: x_p_display; src: glx_context; dst: glx_context; mask: UInt64);
+    external 'opengl32.dll' name 'glXCopyContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure CopyContext(dpy: x_p_display; src: glx_context; dst: glx_context; mask: UInt64) :=
+    z_CopyContext_ovr_0(dpy, src, dst, mask);
+    
+    // added in glx1.0
+    private static function z_CreateContext_ovr_0(dpy: x_p_display; vis: x_p_visual_info; shareList: glx_context; direct: Bool): glx_context;
+    external 'opengl32.dll' name 'glXCreateContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContext(dpy: x_p_display; vis: x_p_visual_info; shareList: glx_context; direct: Bool): glx_context :=
+    z_CreateContext_ovr_0(dpy, vis, shareList, direct);
+    
+    // added in glx1.0
+    private static function z_CreateGLXPixmap_ovr_0(dpy: x_p_display; visual: x_p_visual_info; pixmap: x_pixmap): glx_pixmap;
+    external 'opengl32.dll' name 'glXCreateGLXPixmap';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateGLXPixmap(dpy: x_p_display; visual: x_p_visual_info; pixmap: x_pixmap): glx_pixmap :=
+    z_CreateGLXPixmap_ovr_0(dpy, visual, pixmap);
+    
+    // added in glx1.3
+    private static function z_CreateNewContext_ovr_0(dpy: x_p_display; config: glx_fb_config; render_type: Int32; share_list: glx_context; direct: Bool): glx_context;
+    external 'opengl32.dll' name 'glXCreateNewContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateNewContext(dpy: x_p_display; config: glx_fb_config; render_type: Int32; share_list: glx_context; direct: Bool): glx_context :=
+    z_CreateNewContext_ovr_0(dpy, config, render_type, share_list, direct);
+    
+    // added in glx1.3
+    private static function z_CreatePbuffer_ovr_0(dpy: x_p_display; config: glx_fb_config; var attrib_list: Int32): glx_pbuffer;
+    external 'opengl32.dll' name 'glXCreatePbuffer';
+    private static function z_CreatePbuffer_ovr_0_anh0001(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer;
+    external 'opengl32.dll' name 'glXCreatePbuffer';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; attrib_list: array of Int32): glx_pbuffer :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_CreatePbuffer_ovr_0(dpy, config, attrib_list[0]) else
+      z_CreatePbuffer_ovr_0_anh0001(dpy, config, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; var attrib_list: Int32): glx_pbuffer :=
+    z_CreatePbuffer_ovr_0(dpy, config, attrib_list);
+    private static function z_CreatePbuffer_ovr_2(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer;
+    external 'opengl32.dll' name 'glXCreatePbuffer';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer :=
+    z_CreatePbuffer_ovr_2(dpy, config, attrib_list);
+    
+    // added in glx1.3
+    private static function z_CreatePixmap_ovr_0(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; var attrib_list: Int32): glx_pixmap;
+    external 'opengl32.dll' name 'glXCreatePixmap';
+    private static function z_CreatePixmap_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap;
+    external 'opengl32.dll' name 'glXCreatePixmap';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: array of Int32): glx_pixmap :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_CreatePixmap_ovr_0(dpy, config, pixmap, attrib_list[0]) else
+      z_CreatePixmap_ovr_0_anh00001(dpy, config, pixmap, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; var attrib_list: Int32): glx_pixmap :=
+    z_CreatePixmap_ovr_0(dpy, config, pixmap, attrib_list);
+    private static function z_CreatePixmap_ovr_2(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap;
+    external 'opengl32.dll' name 'glXCreatePixmap';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap :=
+    z_CreatePixmap_ovr_2(dpy, config, pixmap, attrib_list);
+    
+    // added in glx1.3
+    private static function z_CreateWindow_ovr_0(dpy: x_p_display; config: glx_fb_config; win: x_window; var attrib_list: Int32): glx_window;
+    external 'opengl32.dll' name 'glXCreateWindow';
+    private static function z_CreateWindow_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window;
+    external 'opengl32.dll' name 'glXCreateWindow';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: array of Int32): glx_window :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_CreateWindow_ovr_0(dpy, config, win, attrib_list[0]) else
+      z_CreateWindow_ovr_0_anh00001(dpy, config, win, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; var attrib_list: Int32): glx_window :=
+    z_CreateWindow_ovr_0(dpy, config, win, attrib_list);
+    private static function z_CreateWindow_ovr_2(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window;
+    external 'opengl32.dll' name 'glXCreateWindow';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window :=
+    z_CreateWindow_ovr_2(dpy, config, win, attrib_list);
+    
+    // added in glx1.0
+    private static procedure z_DestroyContext_ovr_0(dpy: x_p_display; ctx: glx_context);
+    external 'opengl32.dll' name 'glXDestroyContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyContext(dpy: x_p_display; ctx: glx_context) :=
+    z_DestroyContext_ovr_0(dpy, ctx);
+    
+    // added in glx1.0
+    private static procedure z_DestroyGLXPixmap_ovr_0(dpy: x_p_display; pixmap: glx_pixmap);
+    external 'opengl32.dll' name 'glXDestroyGLXPixmap';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyGLXPixmap(dpy: x_p_display; pixmap: glx_pixmap) :=
+    z_DestroyGLXPixmap_ovr_0(dpy, pixmap);
+    
+    // added in glx1.3
+    private static procedure z_DestroyPbuffer_ovr_0(dpy: x_p_display; pbuf: glx_pbuffer);
+    external 'opengl32.dll' name 'glXDestroyPbuffer';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyPbuffer(dpy: x_p_display; pbuf: glx_pbuffer) :=
+    z_DestroyPbuffer_ovr_0(dpy, pbuf);
+    
+    // added in glx1.3
+    private static procedure z_DestroyPixmap_ovr_0(dpy: x_p_display; pixmap: glx_pixmap);
+    external 'opengl32.dll' name 'glXDestroyPixmap';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyPixmap(dpy: x_p_display; pixmap: glx_pixmap) :=
+    z_DestroyPixmap_ovr_0(dpy, pixmap);
+    
+    // added in glx1.3
+    private static procedure z_DestroyWindow_ovr_0(dpy: x_p_display; win: glx_window);
+    external 'opengl32.dll' name 'glXDestroyWindow';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyWindow(dpy: x_p_display; win: glx_window) :=
+    z_DestroyWindow_ovr_0(dpy, win);
+    
+    // added in glx1.1
+    private static function z_GetClientString_ovr_0(dpy: x_p_display; name: Int32): IntPtr;
+    external 'opengl32.dll' name 'glXGetClientString';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetClientString(dpy: x_p_display; name: Int32): string;
+    begin
+      var res_str_ptr: IntPtr;
+      res_str_ptr := z_GetClientString_ovr_0(dpy, name);
+      Result := Marshal.PtrToStringAnsi(res_str_ptr);
+    end;
+    
+    // added in glx1.0
+    private static function z_GetConfig_ovr_0(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; var value: Int32): Int32;
+    external 'opengl32.dll' name 'glXGetConfig';
+    private static function z_GetConfig_ovr_0_anh00001(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXGetConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_GetConfig_ovr_0(dpy, visual, attrib, value[0]) else
+      z_GetConfig_ovr_0_anh00001(dpy, visual, attrib, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; var value: Int32): Int32 :=
+    z_GetConfig_ovr_0(dpy, visual, attrib, value);
+    private static function z_GetConfig_ovr_2(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXGetConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32 :=
+    z_GetConfig_ovr_2(dpy, visual, attrib, value);
+    
+    // added in glx1.0
+    private static function z_GetCurrentContext_ovr_0: glx_context;
+    external 'opengl32.dll' name 'glXGetCurrentContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentContext: glx_context :=
+    z_GetCurrentContext_ovr_0;
+    
+    // added in glx1.2
+    private static function z_GetCurrentDisplay_ovr_0: x_p_display;
+    external 'opengl32.dll' name 'glXGetCurrentDisplay';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDisplay: x_p_display :=
+    z_GetCurrentDisplay_ovr_0;
+    
+    // added in glx1.0
+    private static function z_GetCurrentDrawable_ovr_0: glx_drawable;
+    external 'opengl32.dll' name 'glXGetCurrentDrawable';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDrawable: glx_drawable :=
+    z_GetCurrentDrawable_ovr_0;
+    
+    // added in glx1.3
+    private static function z_GetCurrentReadDrawable_ovr_0: glx_drawable;
+    external 'opengl32.dll' name 'glXGetCurrentReadDrawable';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentReadDrawable: glx_drawable :=
+    z_GetCurrentReadDrawable_ovr_0;
+    
+    // added in glx1.3
+    private static function z_GetFBConfigAttrib_ovr_0(dpy: x_p_display; config: glx_fb_config; attribute: Int32; var value: Int32): Int32;
+    external 'opengl32.dll' name 'glXGetFBConfigAttrib';
+    private static function z_GetFBConfigAttrib_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXGetFBConfigAttrib';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_GetFBConfigAttrib_ovr_0(dpy, config, attribute, value[0]) else
+      z_GetFBConfigAttrib_ovr_0_anh00001(dpy, config, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; var value: Int32): Int32 :=
+    z_GetFBConfigAttrib_ovr_0(dpy, config, attribute, value);
+    private static function z_GetFBConfigAttrib_ovr_2(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXGetFBConfigAttrib';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32 :=
+    z_GetFBConfigAttrib_ovr_2(dpy, config, attribute, value);
+    
+    // added in glx1.3
+    private static function z_GetFBConfigs_ovr_0(dpy: x_p_display; screen: Int32; var nelements: Int32): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXGetFBConfigs';
+    private static function z_GetFBConfigs_ovr_0_anh0001(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXGetFBConfigs';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; nelements: array of Int32): ^glx_fb_config :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_GetFBConfigs_ovr_0(dpy, screen, nelements[0]) else
+      z_GetFBConfigs_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; var nelements: Int32): ^glx_fb_config :=
+    z_GetFBConfigs_ovr_0(dpy, screen, nelements);
+    private static function z_GetFBConfigs_ovr_2(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config;
+    external 'opengl32.dll' name 'glXGetFBConfigs';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config :=
+    z_GetFBConfigs_ovr_2(dpy, screen, nelements);
+    
+    // added in glx1.4
+    private static function z_GetProcAddress_ovr_0(procName: IntPtr): IntPtr;
+    external 'opengl32.dll' name 'glXGetProcAddress';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(procName: string): IntPtr;
+    begin
+      var par_1_str_ptr: IntPtr;
+      try
+        par_1_str_ptr := Marshal.StringToHGlobalAnsi(procName);
+        Result := z_GetProcAddress_ovr_0(par_1_str_ptr);
+      finally
+        Marshal.FreeHGlobal(par_1_str_ptr);
+      end;
+    end;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(procName: IntPtr): IntPtr :=
+    z_GetProcAddress_ovr_0(procName);
+    
+    // added in glx1.3
+    private static procedure z_GetSelectedEvent_ovr_0(dpy: x_p_display; draw: glx_drawable; var event_mask: UInt64);
+    external 'opengl32.dll' name 'glXGetSelectedEvent';
+    private static procedure z_GetSelectedEvent_ovr_0_anh0001(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr);
+    external 'opengl32.dll' name 'glXGetSelectedEvent';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; event_mask: array of UInt64) :=
+    if (event_mask<>nil) and (event_mask.Length<>0) then
+      z_GetSelectedEvent_ovr_0(dpy, draw, event_mask[0]) else
+      z_GetSelectedEvent_ovr_0_anh0001(dpy, draw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; var event_mask: UInt64) :=
+    z_GetSelectedEvent_ovr_0(dpy, draw, event_mask);
+    private static procedure z_GetSelectedEvent_ovr_2(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr);
+    external 'opengl32.dll' name 'glXGetSelectedEvent';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr) :=
+    z_GetSelectedEvent_ovr_2(dpy, draw, event_mask);
+    
+    // added in glx1.3
+    private static function z_GetVisualFromFBConfig_ovr_0(dpy: x_p_display; config: glx_fb_config): x_p_visual_info;
+    external 'opengl32.dll' name 'glXGetVisualFromFBConfig';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVisualFromFBConfig(dpy: x_p_display; config: glx_fb_config): x_p_visual_info :=
+    z_GetVisualFromFBConfig_ovr_0(dpy, config);
+    
+    // added in glx1.0
+    private static function z_IsDirect_ovr_0(dpy: x_p_display; ctx: glx_context): Bool;
+    external 'opengl32.dll' name 'glXIsDirect';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsDirect(dpy: x_p_display; ctx: glx_context): Bool :=
+    z_IsDirect_ovr_0(dpy, ctx);
+    
+    // added in glx1.3
+    private static function z_MakeContextCurrent_ovr_0(dpy: x_p_display; draw: glx_drawable; read: glx_drawable; ctx: glx_context): Bool;
+    external 'opengl32.dll' name 'glXMakeContextCurrent';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeContextCurrent(dpy: x_p_display; draw: glx_drawable; read: glx_drawable; ctx: glx_context): Bool :=
+    z_MakeContextCurrent_ovr_0(dpy, draw, read, ctx);
+    
+    // added in glx1.0
+    private static function z_MakeCurrent_ovr_0(dpy: x_p_display; drawable: glx_drawable; ctx: glx_context): Bool;
+    external 'opengl32.dll' name 'glXMakeCurrent';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeCurrent(dpy: x_p_display; drawable: glx_drawable; ctx: glx_context): Bool :=
+    z_MakeCurrent_ovr_0(dpy, drawable, ctx);
+    
+    // added in glx1.3
+    private static function z_QueryContext_ovr_0(dpy: x_p_display; ctx: glx_context; attribute: Int32; var value: Int32): Int32;
+    external 'opengl32.dll' name 'glXQueryContext';
+    private static function z_QueryContext_ovr_0_anh00001(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXQueryContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryContext_ovr_0(dpy, ctx, attribute, value[0]) else
+      z_QueryContext_ovr_0_anh00001(dpy, ctx, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; var value: Int32): Int32 :=
+    z_QueryContext_ovr_0(dpy, ctx, attribute, value);
+    private static function z_QueryContext_ovr_2(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32;
+    external 'opengl32.dll' name 'glXQueryContext';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32 :=
+    z_QueryContext_ovr_2(dpy, ctx, attribute, value);
+    
+    // added in glx1.3
+    private static procedure z_QueryDrawable_ovr_0(dpy: x_p_display; draw: glx_drawable; attribute: Int32; var value: UInt32);
+    external 'opengl32.dll' name 'glXQueryDrawable';
+    private static procedure z_QueryDrawable_ovr_0_anh00001(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr);
+    external 'opengl32.dll' name 'glXQueryDrawable';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: array of UInt32) :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryDrawable_ovr_0(dpy, draw, attribute, value[0]) else
+      z_QueryDrawable_ovr_0_anh00001(dpy, draw, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; var value: UInt32) :=
+    z_QueryDrawable_ovr_0(dpy, draw, attribute, value);
+    private static procedure z_QueryDrawable_ovr_2(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr);
+    external 'opengl32.dll' name 'glXQueryDrawable';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr) :=
+    z_QueryDrawable_ovr_2(dpy, draw, attribute, value);
+    
+    // added in glx1.0
+    private static function z_QueryExtension_ovr_0(dpy: x_p_display; var errorb: Int32; var &event: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    private static function z_QueryExtension_ovr_0_anh0010(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    private static function z_QueryExtension_ovr_0_anh0001(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    private static function z_QueryExtension_ovr_0_anh0011(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; &event: array of Int32): Bool :=
+    if (errorb<>nil) and (errorb.Length<>0) then
+      if (&event<>nil) and (&event.Length<>0) then
+        z_QueryExtension_ovr_0(dpy, errorb[0], &event[0]) else
+        z_QueryExtension_ovr_0_anh0001(dpy, errorb[0], IntPtr.Zero) else
+      if (&event<>nil) and (&event.Length<>0) then
+        z_QueryExtension_ovr_0_anh0010(dpy, IntPtr.Zero, &event[0]) else
+        z_QueryExtension_ovr_0_anh0011(dpy, IntPtr.Zero, IntPtr.Zero);
+    private static function z_QueryExtension_ovr_1_anh0010(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; var &event: Int32): Bool :=
+    if (errorb<>nil) and (errorb.Length<>0) then
+      z_QueryExtension_ovr_0(dpy, errorb[0], &event) else
+      z_QueryExtension_ovr_0_anh0010(dpy, IntPtr.Zero, &event);
+    private static function z_QueryExtension_ovr_2(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    private static function z_QueryExtension_ovr_2_anh0010(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; &event: IntPtr): Bool :=
+    if (errorb<>nil) and (errorb.Length<>0) then
+      z_QueryExtension_ovr_2(dpy, errorb[0], &event) else
+      z_QueryExtension_ovr_2_anh0010(dpy, IntPtr.Zero, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; var errorb: Int32; &event: array of Int32): Bool :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_QueryExtension_ovr_0(dpy, errorb, &event[0]) else
+      z_QueryExtension_ovr_0_anh0001(dpy, errorb, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; var errorb: Int32; var &event: Int32): Bool :=
+    z_QueryExtension_ovr_0(dpy, errorb, &event);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool :=
+    z_QueryExtension_ovr_2(dpy, errorb, &event);
+    private static function z_QueryExtension_ovr_6(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    private static function z_QueryExtension_ovr_6_anh0001(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; &event: array of Int32): Bool :=
+    if (&event<>nil) and (&event.Length<>0) then
+      z_QueryExtension_ovr_6(dpy, errorb, &event[0]) else
+      z_QueryExtension_ovr_6_anh0001(dpy, errorb, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool :=
+    z_QueryExtension_ovr_6(dpy, errorb, &event);
+    private static function z_QueryExtension_ovr_8(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryExtension';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool :=
+    z_QueryExtension_ovr_8(dpy, errorb, &event);
+    
+    // added in glx1.1
+    private static function z_QueryExtensionsString_ovr_0(dpy: x_p_display; screen: Int32): IntPtr;
+    external 'opengl32.dll' name 'glXQueryExtensionsString';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtensionsString(dpy: x_p_display; screen: Int32): string;
+    begin
+      var res_str_ptr: IntPtr;
+      res_str_ptr := z_QueryExtensionsString_ovr_0(dpy, screen);
+      Result := Marshal.PtrToStringAnsi(res_str_ptr);
+    end;
+    
+    // added in glx1.1
+    private static function z_QueryServerString_ovr_0(dpy: x_p_display; screen: Int32; name: Int32): IntPtr;
+    external 'opengl32.dll' name 'glXQueryServerString';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryServerString(dpy: x_p_display; screen: Int32; name: Int32): string;
+    begin
+      var res_str_ptr: IntPtr;
+      res_str_ptr := z_QueryServerString_ovr_0(dpy, screen, name);
+      Result := Marshal.PtrToStringAnsi(res_str_ptr);
+    end;
+    
+    // added in glx1.0
+    private static function z_QueryVersion_ovr_0(dpy: x_p_display; var maj: Int32; var min: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    private static function z_QueryVersion_ovr_0_anh0010(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    private static function z_QueryVersion_ovr_0_anh0001(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    private static function z_QueryVersion_ovr_0_anh0011(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; min: array of Int32): Bool :=
+    if (maj<>nil) and (maj.Length<>0) then
+      if (min<>nil) and (min.Length<>0) then
+        z_QueryVersion_ovr_0(dpy, maj[0], min[0]) else
+        z_QueryVersion_ovr_0_anh0001(dpy, maj[0], IntPtr.Zero) else
+      if (min<>nil) and (min.Length<>0) then
+        z_QueryVersion_ovr_0_anh0010(dpy, IntPtr.Zero, min[0]) else
+        z_QueryVersion_ovr_0_anh0011(dpy, IntPtr.Zero, IntPtr.Zero);
+    private static function z_QueryVersion_ovr_1_anh0010(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; var min: Int32): Bool :=
+    if (maj<>nil) and (maj.Length<>0) then
+      z_QueryVersion_ovr_0(dpy, maj[0], min) else
+      z_QueryVersion_ovr_0_anh0010(dpy, IntPtr.Zero, min);
+    private static function z_QueryVersion_ovr_2(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    private static function z_QueryVersion_ovr_2_anh0010(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; min: IntPtr): Bool :=
+    if (maj<>nil) and (maj.Length<>0) then
+      z_QueryVersion_ovr_2(dpy, maj[0], min) else
+      z_QueryVersion_ovr_2_anh0010(dpy, IntPtr.Zero, min);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; var maj: Int32; min: array of Int32): Bool :=
+    if (min<>nil) and (min.Length<>0) then
+      z_QueryVersion_ovr_0(dpy, maj, min[0]) else
+      z_QueryVersion_ovr_0_anh0001(dpy, maj, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; var maj: Int32; var min: Int32): Bool :=
+    z_QueryVersion_ovr_0(dpy, maj, min);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool :=
+    z_QueryVersion_ovr_2(dpy, maj, min);
+    private static function z_QueryVersion_ovr_6(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    private static function z_QueryVersion_ovr_6_anh0001(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; min: array of Int32): Bool :=
+    if (min<>nil) and (min.Length<>0) then
+      z_QueryVersion_ovr_6(dpy, maj, min[0]) else
+      z_QueryVersion_ovr_6_anh0001(dpy, maj, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool :=
+    z_QueryVersion_ovr_6(dpy, maj, min);
+    private static function z_QueryVersion_ovr_8(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
+    external 'opengl32.dll' name 'glXQueryVersion';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool :=
+    z_QueryVersion_ovr_8(dpy, maj, min);
+    
+    // added in glx1.3
+    private static procedure z_SelectEvent_ovr_0(dpy: x_p_display; draw: glx_drawable; event_mask: UInt64);
+    external 'opengl32.dll' name 'glXSelectEvent';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SelectEvent(dpy: x_p_display; draw: glx_drawable; event_mask: UInt64) :=
+    z_SelectEvent_ovr_0(dpy, draw, event_mask);
+    
+    // added in glx1.0
+    private static procedure z_SwapBuffers_ovr_0(dpy: x_p_display; drawable: glx_drawable);
+    external 'opengl32.dll' name 'glXSwapBuffers';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SwapBuffers(dpy: x_p_display; drawable: glx_drawable) :=
+    z_SwapBuffers_ovr_0(dpy, drawable);
+    
+    // added in glx1.0
+    private static procedure z_UseXFont_ovr_0(font: x_font; first: Int32; count: Int32; list: Int32);
+    external 'opengl32.dll' name 'glXUseXFont';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure UseXFont(font: x_font; first: Int32; count: Int32; list: Int32) :=
+    z_UseXFont_ovr_0(font, first, count, list);
+    
+    // added in glx1.0
+    private static procedure z_WaitGL_ovr_0;
+    external 'opengl32.dll' name 'glXWaitGL';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure WaitGL :=
+    z_WaitGL_ovr_0;
+    
+    // added in glx1.0
+    private static procedure z_WaitX_ovr_0;
+    external 'opengl32.dll' name 'glXWaitX';
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure WaitX :=
+    z_WaitX_ovr_0;
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
   gdi = static class
     
-    private static function z_ChoosePixelFormat_ovr_0(hDc: GDI_DC; var pPfd: GDI_PixelFormatDescriptor): Int32;
+    private static function z_ChoosePixelFormat_ovr_0(hDc: gdi_device_context; var pPfd: gdi_pixel_format_descriptor): Int32;
     external 'gdi32.dll' name 'ChoosePixelFormat';
-    private static function z_ChoosePixelFormat_ovr_0_anh001(hDc: GDI_DC; pPfd: IntPtr): Int32;
+    private static function z_ChoosePixelFormat_ovr_0_anh001(hDc: gdi_device_context; pPfd: IntPtr): Int32;
     external 'gdi32.dll' name 'ChoosePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: GDI_DC; pPfd: array of GDI_PixelFormatDescriptor): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: gdi_device_context; pPfd: array of gdi_pixel_format_descriptor): Int32 :=
     if (pPfd<>nil) and (pPfd.Length<>0) then
       z_ChoosePixelFormat_ovr_0(hDc, pPfd[0]) else
       z_ChoosePixelFormat_ovr_0_anh001(hDc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: GDI_DC; var pPfd: GDI_PixelFormatDescriptor): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: gdi_device_context; var pPfd: gdi_pixel_format_descriptor): Int32 :=
     z_ChoosePixelFormat_ovr_0(hDc, pPfd);
-    private static function z_ChoosePixelFormat_ovr_2(hDc: GDI_DC; pPfd: IntPtr): Int32;
+    private static function z_ChoosePixelFormat_ovr_2(hDc: gdi_device_context; pPfd: IntPtr): Int32;
     external 'gdi32.dll' name 'ChoosePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: GDI_DC; pPfd: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormat(hDc: gdi_device_context; pPfd: IntPtr): Int32 :=
     z_ChoosePixelFormat_ovr_2(hDc, pPfd);
     
-    private static function z_DescribePixelFormat_ovr_0(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; var ppfd: GDI_PixelFormatDescriptor): Int32;
+    private static function z_DescribePixelFormat_ovr_0(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; var ppfd: gdi_pixel_format_descriptor): Int32;
     external 'gdi32.dll' name 'DescribePixelFormat';
-    private static function z_DescribePixelFormat_ovr_0_anh00001(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32;
+    private static function z_DescribePixelFormat_ovr_0_anh00001(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32;
     external 'gdi32.dll' name 'DescribePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; ppfd: array of GDI_PixelFormatDescriptor): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; ppfd: array of gdi_pixel_format_descriptor): Int32 :=
     if (ppfd<>nil) and (ppfd.Length<>0) then
       z_DescribePixelFormat_ovr_0(hdc, ipfd, cjpfd, ppfd[0]) else
       z_DescribePixelFormat_ovr_0_anh00001(hdc, ipfd, cjpfd, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; var ppfd: GDI_PixelFormatDescriptor): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; var ppfd: gdi_pixel_format_descriptor): Int32 :=
     z_DescribePixelFormat_ovr_0(hdc, ipfd, cjpfd, ppfd);
-    private static function z_DescribePixelFormat_ovr_2(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32;
+    private static function z_DescribePixelFormat_ovr_2(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32;
     external 'gdi32.dll' name 'DescribePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: GDI_DC; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DescribePixelFormat(hdc: gdi_device_context; ipfd: Int32; cjpfd: UInt32; ppfd: IntPtr): Int32 :=
     z_DescribePixelFormat_ovr_2(hdc, ipfd, cjpfd, ppfd);
     
-    private static function z_GetEnhMetaFilePixelFormat_ovr_0(hemf: GDI_HENHMetafile; var ppfd: GDI_PixelFormatDescriptor): UInt32;
+    private static function z_GetEnhMetaFilePixelFormat_ovr_0(hemf: gdi_h_enh_metafile; var ppfd: gdi_pixel_format_descriptor): UInt32;
     external 'gdi32.dll' name 'GetEnhMetaFilePixelFormat';
-    private static function z_GetEnhMetaFilePixelFormat_ovr_0_anh001(hemf: GDI_HENHMetafile; ppfd: IntPtr): UInt32;
+    private static function z_GetEnhMetaFilePixelFormat_ovr_0_anh001(hemf: gdi_h_enh_metafile; ppfd: IntPtr): UInt32;
     external 'gdi32.dll' name 'GetEnhMetaFilePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: GDI_HENHMetafile; ppfd: array of GDI_PixelFormatDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: gdi_h_enh_metafile; ppfd: array of gdi_pixel_format_descriptor): UInt32 :=
     if (ppfd<>nil) and (ppfd.Length<>0) then
       z_GetEnhMetaFilePixelFormat_ovr_0(hemf, ppfd[0]) else
       z_GetEnhMetaFilePixelFormat_ovr_0_anh001(hemf, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: GDI_HENHMetafile; var ppfd: GDI_PixelFormatDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: gdi_h_enh_metafile; var ppfd: gdi_pixel_format_descriptor): UInt32 :=
     z_GetEnhMetaFilePixelFormat_ovr_0(hemf, ppfd);
-    private static function z_GetEnhMetaFilePixelFormat_ovr_2(hemf: GDI_HENHMetafile; ppfd: IntPtr): UInt32;
+    private static function z_GetEnhMetaFilePixelFormat_ovr_2(hemf: gdi_h_enh_metafile; ppfd: IntPtr): UInt32;
     external 'gdi32.dll' name 'GetEnhMetaFilePixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: GDI_HENHMetafile; ppfd: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetEnhMetaFilePixelFormat(hemf: gdi_h_enh_metafile; ppfd: IntPtr): UInt32 :=
     z_GetEnhMetaFilePixelFormat_ovr_2(hemf, ppfd);
     
-    private static function z_GetPixelFormat_ovr_0(hdc: GDI_DC): Int32;
+    private static function z_GetPixelFormat_ovr_0(hdc: gdi_device_context): Int32;
     external 'gdi32.dll' name 'GetPixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormat(hdc: GDI_DC): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormat(hdc: gdi_device_context): Int32 :=
     z_GetPixelFormat_ovr_0(hdc);
     
-    private static function z_SetPixelFormat_ovr_0(hdc: GDI_DC; ipfd: Int32; var ppfd: GDI_PixelFormatDescriptor): UInt32;
+    private static function z_SetPixelFormat_ovr_0(hdc: gdi_device_context; ipfd: Int32; var ppfd: gdi_pixel_format_descriptor): Bool;
     external 'gdi32.dll' name 'SetPixelFormat';
-    private static function z_SetPixelFormat_ovr_0_anh0001(hdc: GDI_DC; ipfd: Int32; ppfd: IntPtr): UInt32;
+    private static function z_SetPixelFormat_ovr_0_anh0001(hdc: gdi_device_context; ipfd: Int32; ppfd: IntPtr): Bool;
     external 'gdi32.dll' name 'SetPixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: GDI_DC; ipfd: Int32; ppfd: array of GDI_PixelFormatDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: gdi_device_context; ipfd: Int32; ppfd: array of gdi_pixel_format_descriptor): Bool :=
     if (ppfd<>nil) and (ppfd.Length<>0) then
       z_SetPixelFormat_ovr_0(hdc, ipfd, ppfd[0]) else
       z_SetPixelFormat_ovr_0_anh0001(hdc, ipfd, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: GDI_DC; ipfd: Int32; var ppfd: GDI_PixelFormatDescriptor): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: gdi_device_context; ipfd: Int32; var ppfd: gdi_pixel_format_descriptor): Bool :=
     z_SetPixelFormat_ovr_0(hdc, ipfd, ppfd);
-    private static function z_SetPixelFormat_ovr_2(hdc: GDI_DC; ipfd: Int32; ppfd: IntPtr): UInt32;
+    private static function z_SetPixelFormat_ovr_2(hdc: gdi_device_context; ipfd: Int32; ppfd: IntPtr): Bool;
     external 'gdi32.dll' name 'SetPixelFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: GDI_DC; ipfd: Int32; ppfd: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPixelFormat(hdc: gdi_device_context; ipfd: Int32; ppfd: IntPtr): Bool :=
     z_SetPixelFormat_ovr_2(hdc, ipfd, ppfd);
     
-    private static function z_SwapBuffers_ovr_0(hdc: GDI_DC): UInt32;
+    private static function z_SwapBuffers_ovr_0(hdc: gdi_device_context): Bool;
     external 'gdi32.dll' name 'SwapBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapBuffers(hdc: GDI_DC): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapBuffers(hdc: gdi_device_context): Bool :=
     z_SwapBuffers_ovr_0(hdc);
     
   end;
@@ -35253,47 +36732,49 @@ type
   {$region Extensions}
   
   [PCUNotRestore]
-  glTbuffer3DFX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTbuffer3DFX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = '3DFX_tbuffer';
     
-    private static procedure z_TbufferMask3DFX_ovr_0(mask: UInt32);
-    external 'opengl32.dll' name 'glTbufferMask3DFX';
+    private z_TbufferMask3DFX_adr := GetFuncAdr('glTbufferMask3DFX');
+    private z_TbufferMask3DFX_ovr_0 := GetFuncOrNil&(z_TbufferMask3DFX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TbufferMask3DFX(mask: UInt32) :=
     z_TbufferMask3DFX_ovr_0(mask);
     
   end;
   
   [PCUNotRestore]
-  glDebugOutputAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDebugOutputAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_debug_output';
     
-    private static procedure z_DebugMessageEnableAMD_ovr_0(category: DummyEnum; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageEnableAMD';
-    private static procedure z_DebugMessageEnableAMD_ovr_0_anh000010(category: DummyEnum; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageEnableAMD';
+    private z_DebugMessageEnableAMD_adr := GetFuncAdr('glDebugMessageEnableAMD');
+    private z_DebugMessageEnableAMD_ovr_0 := GetFuncOrNil&(z_DebugMessageEnableAMD_adr);
+    private z_DebugMessageEnableAMD_ovr_0_anh000010 := GetFuncOrNil&(z_DebugMessageEnableAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageEnableAMD(category: DummyEnum; severity: DebugSeverity; count: Int32; ids: array of UInt32; enabled: boolean) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DebugMessageEnableAMD_ovr_0(category, severity, count, ids[0], enabled) else
       z_DebugMessageEnableAMD_ovr_0_anh000010(category, severity, count, IntPtr.Zero, enabled);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageEnableAMD(category: DummyEnum; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean) :=
     z_DebugMessageEnableAMD_ovr_0(category, severity, count, ids, enabled);
-    private static procedure z_DebugMessageEnableAMD_ovr_2(category: DummyEnum; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageEnableAMD';
+    private z_DebugMessageEnableAMD_ovr_2 := GetFuncOrNil&(z_DebugMessageEnableAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageEnableAMD(category: DummyEnum; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean) :=
     z_DebugMessageEnableAMD_ovr_2(category, severity, count, ids, enabled);
     
-    private static procedure z_DebugMessageInsertAMD_ovr_0(category: DummyEnum; severity: DebugSeverity; id: UInt32; length: Int32; buf: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageInsertAMD';
+    private z_DebugMessageInsertAMD_adr := GetFuncAdr('glDebugMessageInsertAMD');
+    private z_DebugMessageInsertAMD_ovr_0 := GetFuncOrNil&(z_DebugMessageInsertAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsertAMD(category: DummyEnum; severity: DebugSeverity; id: UInt32; length: Int32; buf: string);
     begin
       var par_5_str_ptr: IntPtr;
@@ -35307,1129 +36788,870 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsertAMD(category: DummyEnum; severity: DebugSeverity; id: UInt32; length: Int32; buf: IntPtr) :=
     z_DebugMessageInsertAMD_ovr_0(category, severity, id, length, buf);
     
-    private static procedure z_DebugMessageCallbackAMD_ovr_0(callback: GLDEBUGPROC; userParam: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageCallbackAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallbackAMD(callback: GLDEBUGPROC; userParam: IntPtr) :=
+    private z_DebugMessageCallbackAMD_adr := GetFuncAdr('glDebugMessageCallbackAMD');
+    private z_DebugMessageCallbackAMD_ovr_0 := GetFuncOrNil&(z_DebugMessageCallbackAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallbackAMD(callback: GL_DEBUG_PROC; userParam: IntPtr) :=
     z_DebugMessageCallbackAMD_ovr_0(callback, userParam);
     
-    private static function z_GetDebugMessageLogAMD_ovr_0(count: UInt32; bufSize: Int32; var categories: DummyEnum; var severities: UInt32; var ids: UInt32; var lengths: Int32; message: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLogAMD';
+    private z_GetDebugMessageLogAMD_adr := GetFuncAdr('glGetDebugMessageLogAMD');
+    private z_GetDebugMessageLogAMD_ovr_0 := GetFuncOrNil&(z_GetDebugMessageLogAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLogAMD(count: UInt32; bufSize: Int32; var categories: DummyEnum; var severities: UInt32; var ids: UInt32; var lengths: Int32; message: IntPtr): UInt32 :=
     z_GetDebugMessageLogAMD_ovr_0(count, bufSize, categories, severities, ids, lengths, message);
-    private static function z_GetDebugMessageLogAMD_ovr_1(count: UInt32; bufSize: Int32; categories: IntPtr; severities: IntPtr; ids: IntPtr; lengths: IntPtr; message: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLogAMD';
+    private z_GetDebugMessageLogAMD_ovr_1 := GetFuncOrNil&(z_GetDebugMessageLogAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLogAMD(count: UInt32; bufSize: Int32; categories: IntPtr; severities: IntPtr; ids: IntPtr; lengths: IntPtr; message: IntPtr): UInt32 :=
     z_GetDebugMessageLogAMD_ovr_1(count, bufSize, categories, severities, ids, lengths, message);
     
   end;
   
   [PCUNotRestore]
-  glDrawBuffersBlendAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawBuffersBlendAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_draw_buffers_blend';
     
-    private static procedure z_BlendFuncIndexedAMD_ovr_0(buf: UInt32; src: DummyEnum; dst: DummyEnum);
-    external 'opengl32.dll' name 'glBlendFuncIndexedAMD';
+    private z_BlendFuncIndexedAMD_adr := GetFuncAdr('glBlendFuncIndexedAMD');
+    private z_BlendFuncIndexedAMD_ovr_0 := GetFuncOrNil&(z_BlendFuncIndexedAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFuncIndexedAMD(buf: UInt32; src: DummyEnum; dst: DummyEnum) :=
     z_BlendFuncIndexedAMD_ovr_0(buf, src, dst);
     
-    private static procedure z_BlendFuncSeparateIndexedAMD_ovr_0(buf: UInt32; srcRGB: BlendingFactor; dstRGB: BlendingFactor; srcAlpha: BlendingFactor; dstAlpha: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFuncSeparateIndexedAMD';
+    private z_BlendFuncSeparateIndexedAMD_adr := GetFuncAdr('glBlendFuncSeparateIndexedAMD');
+    private z_BlendFuncSeparateIndexedAMD_ovr_0 := GetFuncOrNil&(z_BlendFuncSeparateIndexedAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFuncSeparateIndexedAMD(buf: UInt32; srcRGB: BlendingFactor; dstRGB: BlendingFactor; srcAlpha: BlendingFactor; dstAlpha: BlendingFactor) :=
     z_BlendFuncSeparateIndexedAMD_ovr_0(buf, srcRGB, dstRGB, srcAlpha, dstAlpha);
     
-    private static procedure z_BlendEquationIndexedAMD_ovr_0(buf: UInt32; mode: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationIndexedAMD';
+    private z_BlendEquationIndexedAMD_adr := GetFuncAdr('glBlendEquationIndexedAMD');
+    private z_BlendEquationIndexedAMD_ovr_0 := GetFuncOrNil&(z_BlendEquationIndexedAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationIndexedAMD(buf: UInt32; mode: BlendEquationModeEXT) :=
     z_BlendEquationIndexedAMD_ovr_0(buf, mode);
     
-    private static procedure z_BlendEquationSeparateIndexedAMD_ovr_0(buf: UInt32; modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationSeparateIndexedAMD';
+    private z_BlendEquationSeparateIndexedAMD_adr := GetFuncAdr('glBlendEquationSeparateIndexedAMD');
+    private z_BlendEquationSeparateIndexedAMD_ovr_0 := GetFuncOrNil&(z_BlendEquationSeparateIndexedAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationSeparateIndexedAMD(buf: UInt32; modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT) :=
     z_BlendEquationSeparateIndexedAMD_ovr_0(buf, modeRGB, modeAlpha);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferMultisampleAdvancedAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferMultisampleAdvancedAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_framebuffer_multisample_advanced';
     
-    private static procedure z_RenderbufferStorageMultisampleAdvancedAMD_ovr_0(target: RenderbufferTarget; samples: Int32; storageSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorageMultisampleAdvancedAMD';
+    private z_RenderbufferStorageMultisampleAdvancedAMD_adr := GetFuncAdr('glRenderbufferStorageMultisampleAdvancedAMD');
+    private z_RenderbufferStorageMultisampleAdvancedAMD_ovr_0 := GetFuncOrNil&(z_RenderbufferStorageMultisampleAdvancedAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorageMultisampleAdvancedAMD(target: RenderbufferTarget; samples: Int32; storageSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorageMultisampleAdvancedAMD_ovr_0(target, samples, storageSamples, _internalformat, width, height);
     
-    private static procedure z_NamedRenderbufferStorageMultisampleAdvancedAMD_ovr_0(renderbuffer: UInt32; samples: Int32; storageSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorageMultisampleAdvancedAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleAdvancedAMD(renderbuffer: UInt32; samples: Int32; storageSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageMultisampleAdvancedAMD_adr := GetFuncAdr('glNamedRenderbufferStorageMultisampleAdvancedAMD');
+    private z_NamedRenderbufferStorageMultisampleAdvancedAMD_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisampleAdvancedAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleAdvancedAMD(renderbuffer: gl_renderbuffer; samples: Int32; storageSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageMultisampleAdvancedAMD_ovr_0(renderbuffer, samples, storageSamples, _internalformat, width, height);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferSamplePositionsAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferSamplePositionsAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_framebuffer_sample_positions';
     
-    private static procedure z_FramebufferSamplePositionsfvAMD_ovr_0(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; var values: single);
-    external 'opengl32.dll' name 'glFramebufferSamplePositionsfvAMD';
-    private static procedure z_FramebufferSamplePositionsfvAMD_ovr_0_anh00001(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; values: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSamplePositionsfvAMD';
+    private z_FramebufferSamplePositionsfvAMD_adr := GetFuncAdr('glFramebufferSamplePositionsfvAMD');
+    private z_FramebufferSamplePositionsfvAMD_ovr_0 := GetFuncOrNil&(z_FramebufferSamplePositionsfvAMD_adr);
+    private z_FramebufferSamplePositionsfvAMD_ovr_0_anh00001 := GetFuncOrNil&(z_FramebufferSamplePositionsfvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSamplePositionsfvAMD(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_FramebufferSamplePositionsfvAMD_ovr_0(target, numsamples, pixelindex, values[0]) else
       z_FramebufferSamplePositionsfvAMD_ovr_0_anh00001(target, numsamples, pixelindex, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSamplePositionsfvAMD(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; var values: single) :=
     z_FramebufferSamplePositionsfvAMD_ovr_0(target, numsamples, pixelindex, values);
-    private static procedure z_FramebufferSamplePositionsfvAMD_ovr_2(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; values: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSamplePositionsfvAMD';
+    private z_FramebufferSamplePositionsfvAMD_ovr_2 := GetFuncOrNil&(z_FramebufferSamplePositionsfvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSamplePositionsfvAMD(target: FramebufferTarget; numsamples: UInt32; pixelindex: UInt32; values: IntPtr) :=
     z_FramebufferSamplePositionsfvAMD_ovr_2(target, numsamples, pixelindex, values);
     
-    private static procedure z_NamedFramebufferSamplePositionsfvAMD_ovr_0(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; var values: single);
-    external 'opengl32.dll' name 'glNamedFramebufferSamplePositionsfvAMD';
-    private static procedure z_NamedFramebufferSamplePositionsfvAMD_ovr_0_anh00001(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; values: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSamplePositionsfvAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; values: array of single) :=
+    private z_NamedFramebufferSamplePositionsfvAMD_adr := GetFuncAdr('glNamedFramebufferSamplePositionsfvAMD');
+    private z_NamedFramebufferSamplePositionsfvAMD_ovr_0 := GetFuncOrNil&(z_NamedFramebufferSamplePositionsfvAMD_adr);
+    private z_NamedFramebufferSamplePositionsfvAMD_ovr_0_anh00001 := GetFuncOrNil&(z_NamedFramebufferSamplePositionsfvAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: gl_framebuffer; numsamples: UInt32; pixelindex: UInt32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_NamedFramebufferSamplePositionsfvAMD_ovr_0(framebuffer, numsamples, pixelindex, values[0]) else
       z_NamedFramebufferSamplePositionsfvAMD_ovr_0_anh00001(framebuffer, numsamples, pixelindex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; var values: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: gl_framebuffer; numsamples: UInt32; pixelindex: UInt32; var values: single) :=
     z_NamedFramebufferSamplePositionsfvAMD_ovr_0(framebuffer, numsamples, pixelindex, values);
-    private static procedure z_NamedFramebufferSamplePositionsfvAMD_ovr_2(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; values: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSamplePositionsfvAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: UInt32; numsamples: UInt32; pixelindex: UInt32; values: IntPtr) :=
+    private z_NamedFramebufferSamplePositionsfvAMD_ovr_2 := GetFuncOrNil&(z_NamedFramebufferSamplePositionsfvAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSamplePositionsfvAMD(framebuffer: gl_framebuffer; numsamples: UInt32; pixelindex: UInt32; values: IntPtr) :=
     z_NamedFramebufferSamplePositionsfvAMD_ovr_2(framebuffer, numsamples, pixelindex, values);
     
-    private static procedure z_GetFramebufferParameterfvAMD_ovr_0(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; var values: single);
-    external 'opengl32.dll' name 'glGetFramebufferParameterfvAMD';
-    private static procedure z_GetFramebufferParameterfvAMD_ovr_0_anh0000001(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterfvAMD';
+    private z_GetFramebufferParameterfvAMD_adr := GetFuncAdr('glGetFramebufferParameterfvAMD');
+    private z_GetFramebufferParameterfvAMD_ovr_0 := GetFuncOrNil&(z_GetFramebufferParameterfvAMD_adr);
+    private z_GetFramebufferParameterfvAMD_ovr_0_anh0000001 := GetFuncOrNil&(z_GetFramebufferParameterfvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterfvAMD(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetFramebufferParameterfvAMD_ovr_0(target, pname, numsamples, pixelindex, size, values[0]) else
       z_GetFramebufferParameterfvAMD_ovr_0_anh0000001(target, pname, numsamples, pixelindex, size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterfvAMD(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; var values: single) :=
     z_GetFramebufferParameterfvAMD_ovr_0(target, pname, numsamples, pixelindex, size, values);
-    private static procedure z_GetFramebufferParameterfvAMD_ovr_2(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterfvAMD';
+    private z_GetFramebufferParameterfvAMD_ovr_2 := GetFuncOrNil&(z_GetFramebufferParameterfvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterfvAMD(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr) :=
     z_GetFramebufferParameterfvAMD_ovr_2(target, pname, numsamples, pixelindex, size, values);
     
-    private static procedure z_GetNamedFramebufferParameterfvAMD_ovr_0(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; var values: single);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterfvAMD';
-    private static procedure z_GetNamedFramebufferParameterfvAMD_ovr_0_anh0000001(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterfvAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: array of single) :=
+    private z_GetNamedFramebufferParameterfvAMD_adr := GetFuncAdr('glGetNamedFramebufferParameterfvAMD');
+    private z_GetNamedFramebufferParameterfvAMD_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferParameterfvAMD_adr);
+    private z_GetNamedFramebufferParameterfvAMD_ovr_0_anh0000001 := GetFuncOrNil&(z_GetNamedFramebufferParameterfvAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: gl_framebuffer; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetNamedFramebufferParameterfvAMD_ovr_0(framebuffer, pname, numsamples, pixelindex, size, values[0]) else
       z_GetNamedFramebufferParameterfvAMD_ovr_0_anh0000001(framebuffer, pname, numsamples, pixelindex, size, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; var values: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: gl_framebuffer; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; var values: single) :=
     z_GetNamedFramebufferParameterfvAMD_ovr_0(framebuffer, pname, numsamples, pixelindex, size, values);
-    private static procedure z_GetNamedFramebufferParameterfvAMD_ovr_2(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterfvAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: UInt32; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr) :=
+    private z_GetNamedFramebufferParameterfvAMD_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferParameterfvAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterfvAMD(framebuffer: gl_framebuffer; pname: DummyEnum; numsamples: UInt32; pixelindex: UInt32; size: Int32; values: IntPtr) :=
     z_GetNamedFramebufferParameterfvAMD_ovr_2(framebuffer, pname, numsamples, pixelindex, size, values);
     
   end;
   
   [PCUNotRestore]
-  glGpuShaderInt64AMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuShaderInt64AMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_gpu_shader_int64';
     
-    private static procedure z_Uniform1i64NV_ovr_0(location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glUniform1i64NV';
+    private z_Uniform1i64NV_adr := GetFuncAdr('glUniform1i64NV');
+    private z_Uniform1i64NV_ovr_0 := GetFuncOrNil&(z_Uniform1i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64NV(location: Int32; x: Int64) :=
     z_Uniform1i64NV_ovr_0(location, x);
     
-    private static procedure z_Uniform2i64NV_ovr_0(location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glUniform2i64NV';
+    private z_Uniform2i64NV_adr := GetFuncAdr('glUniform2i64NV');
+    private z_Uniform2i64NV_ovr_0 := GetFuncOrNil&(z_Uniform2i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64NV(location: Int32; x: Int64; y: Int64) :=
     z_Uniform2i64NV_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3i64NV_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glUniform3i64NV';
+    private z_Uniform3i64NV_adr := GetFuncAdr('glUniform3i64NV');
+    private z_Uniform3i64NV_ovr_0 := GetFuncOrNil&(z_Uniform3i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64NV(location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_Uniform3i64NV_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4i64NV_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glUniform4i64NV';
+    private z_Uniform4i64NV_adr := GetFuncAdr('glUniform4i64NV');
+    private z_Uniform4i64NV_ovr_0 := GetFuncOrNil&(z_Uniform4i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64NV(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_Uniform4i64NV_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
-    private static procedure z_Uniform1i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
+    private z_Uniform1i64vNV_adr := GetFuncAdr('glUniform1i64vNV');
+    private z_Uniform1i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
+    private z_Uniform1i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform1i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform1i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform1i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
+    private z_Uniform1i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
-    private static procedure z_Uniform2i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
+    private z_Uniform2i64vNV_adr := GetFuncAdr('glUniform2i64vNV');
+    private z_Uniform2i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
+    private z_Uniform2i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform2i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform2i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform2i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
+    private z_Uniform2i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
-    private static procedure z_Uniform3i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
+    private z_Uniform3i64vNV_adr := GetFuncAdr('glUniform3i64vNV');
+    private z_Uniform3i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
+    private z_Uniform3i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform3i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform3i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform3i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
+    private z_Uniform3i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
-    private static procedure z_Uniform4i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
+    private z_Uniform4i64vNV_adr := GetFuncAdr('glUniform4i64vNV');
+    private z_Uniform4i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
+    private z_Uniform4i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform4i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform4i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform4i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
+    private z_Uniform4i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform1ui64NV_ovr_0(location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64NV';
+    private z_Uniform1ui64NV_adr := GetFuncAdr('glUniform1ui64NV');
+    private z_Uniform1ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform1ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64NV(location: Int32; x: UInt64) :=
     z_Uniform1ui64NV_ovr_0(location, x);
     
-    private static procedure z_Uniform2ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64NV';
+    private z_Uniform2ui64NV_adr := GetFuncAdr('glUniform2ui64NV');
+    private z_Uniform2ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform2ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64NV(location: Int32; x: UInt64; y: UInt64) :=
     z_Uniform2ui64NV_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64NV';
+    private z_Uniform3ui64NV_adr := GetFuncAdr('glUniform3ui64NV');
+    private z_Uniform3ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform3ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64NV(location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_Uniform3ui64NV_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64NV';
+    private z_Uniform4ui64NV_adr := GetFuncAdr('glUniform4ui64NV');
+    private z_Uniform4ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform4ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64NV(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_Uniform4ui64NV_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
-    private static procedure z_Uniform1ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
+    private z_Uniform1ui64vNV_adr := GetFuncAdr('glUniform1ui64vNV');
+    private z_Uniform1ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
+    private z_Uniform1ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform1ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform1ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform1ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
+    private z_Uniform1ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
-    private static procedure z_Uniform2ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
+    private z_Uniform2ui64vNV_adr := GetFuncAdr('glUniform2ui64vNV');
+    private z_Uniform2ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
+    private z_Uniform2ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform2ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform2ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform2ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
+    private z_Uniform2ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
-    private static procedure z_Uniform3ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
+    private z_Uniform3ui64vNV_adr := GetFuncAdr('glUniform3ui64vNV');
+    private z_Uniform3ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
+    private z_Uniform3ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform3ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform3ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform3ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
+    private z_Uniform3ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
-    private static procedure z_Uniform4ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
+    private z_Uniform4ui64vNV_adr := GetFuncAdr('glUniform4ui64vNV');
+    private z_Uniform4ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
+    private z_Uniform4ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform4ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform4ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform4ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
+    private z_Uniform4ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_GetUniformi64vNV_ovr_0(&program: UInt32; location: Int32; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    private static procedure z_GetUniformi64vNV_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; ¶ms: array of Int64) :=
+    private z_GetUniformi64vNV_adr := GetFuncAdr('glGetUniformi64vNV');
+    private z_GetUniformi64vNV_ovr_0 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    private z_GetUniformi64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformi64vNV_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformi64vNV_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; var ¶ms: Int64) :=
     z_GetUniformi64vNV_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformi64vNV_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformi64vNV_ovr_2 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformi64vNV_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_GetUniformui64vNV_ovr_0(&program: UInt32; location: Int32; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    private static procedure z_GetUniformui64vNV_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; ¶ms: array of UInt64) :=
+    private z_GetUniformui64vNV_adr := GetFuncAdr('glGetUniformui64vNV');
+    private z_GetUniformui64vNV_ovr_0 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    private z_GetUniformui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformui64vNV_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformui64vNV_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; var ¶ms: UInt64) :=
     z_GetUniformui64vNV_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformui64vNV_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformui64vNV_ovr_2 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformui64vNV_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_ProgramUniform1i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64NV(&program: UInt32; location: Int32; x: Int64) :=
+    private z_ProgramUniform1i64NV_adr := GetFuncAdr('glProgramUniform1i64NV');
+    private z_ProgramUniform1i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64NV(&program: gl_program; location: Int32; x: Int64) :=
     z_ProgramUniform1i64NV_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64) :=
+    private z_ProgramUniform2i64NV_adr := GetFuncAdr('glProgramUniform2i64NV');
+    private z_ProgramUniform2i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64) :=
     z_ProgramUniform2i64NV_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64) :=
+    private z_ProgramUniform3i64NV_adr := GetFuncAdr('glProgramUniform3i64NV');
+    private z_ProgramUniform3i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_ProgramUniform3i64NV_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
+    private z_ProgramUniform4i64NV_adr := GetFuncAdr('glProgramUniform4i64NV');
+    private z_ProgramUniform4i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_ProgramUniform4i64NV_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    private static procedure z_ProgramUniform1i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform1i64vNV_adr := GetFuncAdr('glProgramUniform1i64vNV');
+    private z_ProgramUniform1i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    private z_ProgramUniform1i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform1i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    private static procedure z_ProgramUniform2i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform2i64vNV_adr := GetFuncAdr('glProgramUniform2i64vNV');
+    private z_ProgramUniform2i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    private z_ProgramUniform2i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform2i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    private static procedure z_ProgramUniform3i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform3i64vNV_adr := GetFuncAdr('glProgramUniform3i64vNV');
+    private z_ProgramUniform3i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    private z_ProgramUniform3i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform3i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    private static procedure z_ProgramUniform4i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform4i64vNV_adr := GetFuncAdr('glProgramUniform4i64vNV');
+    private z_ProgramUniform4i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    private z_ProgramUniform4i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform4i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64NV(&program: UInt32; location: Int32; x: UInt64) :=
+    private z_ProgramUniform1ui64NV_adr := GetFuncAdr('glProgramUniform1ui64NV');
+    private z_ProgramUniform1ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64NV(&program: gl_program; location: Int32; x: UInt64) :=
     z_ProgramUniform1ui64NV_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64) :=
+    private z_ProgramUniform2ui64NV_adr := GetFuncAdr('glProgramUniform2ui64NV');
+    private z_ProgramUniform2ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64) :=
     z_ProgramUniform2ui64NV_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
+    private z_ProgramUniform3ui64NV_adr := GetFuncAdr('glProgramUniform3ui64NV');
+    private z_ProgramUniform3ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_ProgramUniform3ui64NV_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
+    private z_ProgramUniform4ui64NV_adr := GetFuncAdr('glProgramUniform4ui64NV');
+    private z_ProgramUniform4ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_ProgramUniform4ui64NV_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    private static procedure z_ProgramUniform1ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform1ui64vNV_adr := GetFuncAdr('glProgramUniform1ui64vNV');
+    private z_ProgramUniform1ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    private z_ProgramUniform1ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform1ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    private static procedure z_ProgramUniform2ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform2ui64vNV_adr := GetFuncAdr('glProgramUniform2ui64vNV');
+    private z_ProgramUniform2ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    private z_ProgramUniform2ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform2ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    private static procedure z_ProgramUniform3ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform3ui64vNV_adr := GetFuncAdr('glProgramUniform3ui64vNV');
+    private z_ProgramUniform3ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    private z_ProgramUniform3ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform3ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    private static procedure z_ProgramUniform4ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform4ui64vNV_adr := GetFuncAdr('glProgramUniform4ui64vNV');
+    private z_ProgramUniform4ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    private z_ProgramUniform4ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform4ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4ui64vNV_ovr_2(&program, location, count, value);
     
   end;
   
   [PCUNotRestore]
-  glInterleavedElementsAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInterleavedElementsAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_interleaved_elements';
     
-    private static procedure z_VertexAttribParameteriAMD_ovr_0(index: UInt32; pname: DummyEnum; param: Int32);
-    external 'opengl32.dll' name 'glVertexAttribParameteriAMD';
+    private z_VertexAttribParameteriAMD_adr := GetFuncAdr('glVertexAttribParameteriAMD');
+    private z_VertexAttribParameteriAMD_ovr_0 := GetFuncOrNil&(z_VertexAttribParameteriAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribParameteriAMD(index: UInt32; pname: DummyEnum; param: Int32) :=
     z_VertexAttribParameteriAMD_ovr_0(index, pname, param);
     
   end;
   
   [PCUNotRestore]
-  glMultiDrawIndirectAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultiDrawIndirectAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_multi_draw_indirect';
     
-    private static procedure z_MultiDrawArraysIndirectAMD_ovr_0(mode: PrimitiveType; indirect: IntPtr; primcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysIndirectAMD';
+    private z_MultiDrawArraysIndirectAMD_adr := GetFuncAdr('glMultiDrawArraysIndirectAMD');
+    private z_MultiDrawArraysIndirectAMD_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysIndirectAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysIndirectAMD(mode: PrimitiveType; indirect: IntPtr; primcount: Int32; stride: Int32) :=
     z_MultiDrawArraysIndirectAMD_ovr_0(mode, indirect, primcount, stride);
     
-    private static procedure z_MultiDrawElementsIndirectAMD_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; primcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsIndirectAMD';
+    private z_MultiDrawElementsIndirectAMD_adr := GetFuncAdr('glMultiDrawElementsIndirectAMD');
+    private z_MultiDrawElementsIndirectAMD_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsIndirectAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsIndirectAMD(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; primcount: Int32; stride: Int32) :=
     z_MultiDrawElementsIndirectAMD_ovr_0(mode, &type, indirect, primcount, stride);
     
   end;
   
   [PCUNotRestore]
-  glNameGenDeleteAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glNameGenDeleteAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_name_gen_delete';
     
-    private static procedure z_GenNamesAMD_ovr_0(identifier: DummyEnum; num: UInt32; var names: UInt32);
-    external 'opengl32.dll' name 'glGenNamesAMD';
-    private static procedure z_GenNamesAMD_ovr_0_anh0001(identifier: DummyEnum; num: UInt32; names: IntPtr);
-    external 'opengl32.dll' name 'glGenNamesAMD';
+    private z_GenNamesAMD_adr := GetFuncAdr('glGenNamesAMD');
+    private z_GenNamesAMD_ovr_0 := GetFuncOrNil&(z_GenNamesAMD_adr);
+    private z_GenNamesAMD_ovr_0_anh0001 := GetFuncOrNil&(z_GenNamesAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenNamesAMD(identifier: DummyEnum; num: UInt32; names: array of UInt32) :=
     if (names<>nil) and (names.Length<>0) then
       z_GenNamesAMD_ovr_0(identifier, num, names[0]) else
       z_GenNamesAMD_ovr_0_anh0001(identifier, num, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenNamesAMD(identifier: DummyEnum; num: UInt32; var names: UInt32) :=
     z_GenNamesAMD_ovr_0(identifier, num, names);
-    private static procedure z_GenNamesAMD_ovr_2(identifier: DummyEnum; num: UInt32; names: IntPtr);
-    external 'opengl32.dll' name 'glGenNamesAMD';
+    private z_GenNamesAMD_ovr_2 := GetFuncOrNil&(z_GenNamesAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenNamesAMD(identifier: DummyEnum; num: UInt32; names: IntPtr) :=
     z_GenNamesAMD_ovr_2(identifier, num, names);
     
-    private static procedure z_DeleteNamesAMD_ovr_0(identifier: DummyEnum; num: UInt32; var names: UInt32);
-    external 'opengl32.dll' name 'glDeleteNamesAMD';
-    private static procedure z_DeleteNamesAMD_ovr_0_anh0001(identifier: DummyEnum; num: UInt32; names: IntPtr);
-    external 'opengl32.dll' name 'glDeleteNamesAMD';
+    private z_DeleteNamesAMD_adr := GetFuncAdr('glDeleteNamesAMD');
+    private z_DeleteNamesAMD_ovr_0 := GetFuncOrNil&(z_DeleteNamesAMD_adr);
+    private z_DeleteNamesAMD_ovr_0_anh0001 := GetFuncOrNil&(z_DeleteNamesAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteNamesAMD(identifier: DummyEnum; num: UInt32; names: array of UInt32) :=
     if (names<>nil) and (names.Length<>0) then
       z_DeleteNamesAMD_ovr_0(identifier, num, names[0]) else
       z_DeleteNamesAMD_ovr_0_anh0001(identifier, num, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteNamesAMD(identifier: DummyEnum; num: UInt32; var names: UInt32) :=
     z_DeleteNamesAMD_ovr_0(identifier, num, names);
-    private static procedure z_DeleteNamesAMD_ovr_2(identifier: DummyEnum; num: UInt32; names: IntPtr);
-    external 'opengl32.dll' name 'glDeleteNamesAMD';
+    private z_DeleteNamesAMD_ovr_2 := GetFuncOrNil&(z_DeleteNamesAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteNamesAMD(identifier: DummyEnum; num: UInt32; names: IntPtr) :=
     z_DeleteNamesAMD_ovr_2(identifier, num, names);
     
-    private static function z_IsNameAMD_ovr_0(identifier: DummyEnum; name: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsNameAMD';
+    private z_IsNameAMD_adr := GetFuncAdr('glIsNameAMD');
+    private z_IsNameAMD_ovr_0 := GetFuncOrNil&(z_IsNameAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsNameAMD(identifier: DummyEnum; name: UInt32): boolean :=
     z_IsNameAMD_ovr_0(identifier, name);
     
   end;
   
   [PCUNotRestore]
-  glOcclusionQueryEventAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glOcclusionQueryEventAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_occlusion_query_event';
     
-    private static procedure z_QueryObjectParameteruiAMD_ovr_0(target: QueryTarget; id: UInt32; pname: DummyEnum; param: UInt32);
-    external 'opengl32.dll' name 'glQueryObjectParameteruiAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryObjectParameteruiAMD(target: QueryTarget; id: UInt32; pname: DummyEnum; param: UInt32) :=
+    private z_QueryObjectParameteruiAMD_adr := GetFuncAdr('glQueryObjectParameteruiAMD');
+    private z_QueryObjectParameteruiAMD_ovr_0 := GetFuncOrNil&(z_QueryObjectParameteruiAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryObjectParameteruiAMD(target: QueryTarget; id: gl_query; pname: DummyEnum; param: UInt32) :=
     z_QueryObjectParameteruiAMD_ovr_0(target, id, pname, param);
     
   end;
   
   [PCUNotRestore]
-  glPerformanceMonitorAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPerformanceMonitorAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_performance_monitor';
     
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_0(var numGroups: Int32; groupsSize: Int32; var groups: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_0_anh0100(numGroups: IntPtr; groupsSize: Int32; var groups: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_0_anh0001(var numGroups: Int32; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_0_anh0101(numGroups: IntPtr; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: array of Int32; groupsSize: Int32; groups: array of UInt32) :=
-    if (numGroups<>nil) and (numGroups.Length<>0) then
-      if (groups<>nil) and (groups.Length<>0) then
-        z_GetPerfMonitorGroupsAMD_ovr_0(numGroups[0], groupsSize, groups[0]) else
-        z_GetPerfMonitorGroupsAMD_ovr_0_anh0001(numGroups[0], groupsSize, IntPtr.Zero) else
-      if (groups<>nil) and (groups.Length<>0) then
-        z_GetPerfMonitorGroupsAMD_ovr_0_anh0100(IntPtr.Zero, groupsSize, groups[0]) else
-        z_GetPerfMonitorGroupsAMD_ovr_0_anh0101(IntPtr.Zero, groupsSize, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_1_anh0100(numGroups: IntPtr; groupsSize: Int32; var groups: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: array of Int32; groupsSize: Int32; var groups: UInt32) :=
-    if (numGroups<>nil) and (numGroups.Length<>0) then
-      z_GetPerfMonitorGroupsAMD_ovr_0(numGroups[0], groupsSize, groups) else
-      z_GetPerfMonitorGroupsAMD_ovr_0_anh0100(IntPtr.Zero, groupsSize, groups);
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_2(var numGroups: Int32; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_2_anh0100(numGroups: IntPtr; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: array of Int32; groupsSize: Int32; groups: IntPtr) :=
-    if (numGroups<>nil) and (numGroups.Length<>0) then
-      z_GetPerfMonitorGroupsAMD_ovr_2(numGroups[0], groupsSize, groups) else
-      z_GetPerfMonitorGroupsAMD_ovr_2_anh0100(IntPtr.Zero, groupsSize, groups);
+    private z_GetPerfMonitorGroupsAMD_adr := GetFuncAdr('glGetPerfMonitorGroupsAMD');
+    private z_GetPerfMonitorGroupsAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
+    private z_GetPerfMonitorGroupsAMD_ovr_0_anh0001 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(var numGroups: Int32; groupsSize: Int32; groups: array of UInt32) :=
     if (groups<>nil) and (groups.Length<>0) then
       z_GetPerfMonitorGroupsAMD_ovr_0(numGroups, groupsSize, groups[0]) else
       z_GetPerfMonitorGroupsAMD_ovr_0_anh0001(numGroups, groupsSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(var numGroups: Int32; groupsSize: Int32; var groups: UInt32) :=
     z_GetPerfMonitorGroupsAMD_ovr_0(numGroups, groupsSize, groups);
+    private z_GetPerfMonitorGroupsAMD_ovr_2 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(var numGroups: Int32; groupsSize: Int32; groups: IntPtr) :=
     z_GetPerfMonitorGroupsAMD_ovr_2(numGroups, groupsSize, groups);
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_6(numGroups: IntPtr; groupsSize: Int32; var groups: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_6_anh0001(numGroups: IntPtr; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
+    private z_GetPerfMonitorGroupsAMD_ovr_3 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
+    private z_GetPerfMonitorGroupsAMD_ovr_3_anh0001 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: IntPtr; groupsSize: Int32; groups: array of UInt32) :=
     if (groups<>nil) and (groups.Length<>0) then
-      z_GetPerfMonitorGroupsAMD_ovr_6(numGroups, groupsSize, groups[0]) else
-      z_GetPerfMonitorGroupsAMD_ovr_6_anh0001(numGroups, groupsSize, IntPtr.Zero);
+      z_GetPerfMonitorGroupsAMD_ovr_3(numGroups, groupsSize, groups[0]) else
+      z_GetPerfMonitorGroupsAMD_ovr_3_anh0001(numGroups, groupsSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: IntPtr; groupsSize: Int32; var groups: UInt32) :=
-    z_GetPerfMonitorGroupsAMD_ovr_6(numGroups, groupsSize, groups);
-    private static procedure z_GetPerfMonitorGroupsAMD_ovr_8(numGroups: IntPtr; groupsSize: Int32; groups: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupsAMD';
+    z_GetPerfMonitorGroupsAMD_ovr_3(numGroups, groupsSize, groups);
+    private z_GetPerfMonitorGroupsAMD_ovr_5 := GetFuncOrNil&(z_GetPerfMonitorGroupsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupsAMD(numGroups: IntPtr; groupsSize: Int32; groups: IntPtr) :=
-    z_GetPerfMonitorGroupsAMD_ovr_8(numGroups, groupsSize, groups);
+    z_GetPerfMonitorGroupsAMD_ovr_5(numGroups, groupsSize, groups);
     
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh000100(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh001100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh000001(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh001001(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh000101(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_0_anh001101(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: array of Int32; counterSize: Int32; counters: array of UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        if (counters<>nil) and (counters.Length<>0) then
-          z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters[0], maxActiveCounters[0], counterSize, counters[0]) else
-          z_GetPerfMonitorCountersAMD_ovr_0_anh000001(group, numCounters[0], maxActiveCounters[0], counterSize, IntPtr.Zero) else
-        if (counters<>nil) and (counters.Length<>0) then
-          z_GetPerfMonitorCountersAMD_ovr_0_anh000100(group, numCounters[0], IntPtr.Zero, counterSize, counters[0]) else
-          z_GetPerfMonitorCountersAMD_ovr_0_anh000101(group, numCounters[0], IntPtr.Zero, counterSize, IntPtr.Zero) else
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        if (counters<>nil) and (counters.Length<>0) then
-          z_GetPerfMonitorCountersAMD_ovr_0_anh001000(group, IntPtr.Zero, maxActiveCounters[0], counterSize, counters[0]) else
-          z_GetPerfMonitorCountersAMD_ovr_0_anh001001(group, IntPtr.Zero, maxActiveCounters[0], counterSize, IntPtr.Zero) else
-        if (counters<>nil) and (counters.Length<>0) then
-          z_GetPerfMonitorCountersAMD_ovr_0_anh001100(group, IntPtr.Zero, IntPtr.Zero, counterSize, counters[0]) else
-          z_GetPerfMonitorCountersAMD_ovr_0_anh001101(group, IntPtr.Zero, IntPtr.Zero, counterSize, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_1_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_1_anh000100(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_1_anh001100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: array of Int32; counterSize: Int32; var counters: UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters[0], maxActiveCounters[0], counterSize, counters) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh000100(group, numCounters[0], IntPtr.Zero, counterSize, counters) else
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0_anh001000(group, IntPtr.Zero, maxActiveCounters[0], counterSize, counters) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh001100(group, IntPtr.Zero, IntPtr.Zero, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_2(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_2_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_2_anh000100(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_2_anh001100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: array of Int32; counterSize: Int32; counters: IntPtr) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_2(group, numCounters[0], maxActiveCounters[0], counterSize, counters) else
-        z_GetPerfMonitorCountersAMD_ovr_2_anh000100(group, numCounters[0], IntPtr.Zero, counterSize, counters) else
-      if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_2_anh001000(group, IntPtr.Zero, maxActiveCounters[0], counterSize, counters) else
-        z_GetPerfMonitorCountersAMD_ovr_2_anh001100(group, IntPtr.Zero, IntPtr.Zero, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_3_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_3_anh001001(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: array of UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters[0], maxActiveCounters, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh000001(group, numCounters[0], maxActiveCounters, counterSize, IntPtr.Zero) else
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh001001(group, IntPtr.Zero, maxActiveCounters, counterSize, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_4_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters[0], maxActiveCounters, counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_0_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_5_anh001000(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_2(group, numCounters[0], maxActiveCounters, counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_2_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_6(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_6_anh001000(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_6_anh000001(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_6_anh001001(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: array of UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_6(group, numCounters[0], maxActiveCounters, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_6_anh000001(group, numCounters[0], maxActiveCounters, counterSize, IntPtr.Zero) else
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_6_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_6_anh001001(group, IntPtr.Zero, maxActiveCounters, counterSize, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_7_anh001000(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_6(group, numCounters[0], maxActiveCounters, counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_6_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_8(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_8_anh001000(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: array of Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr) :=
-    if (numCounters<>nil) and (numCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_8(group, numCounters[0], maxActiveCounters, counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_8_anh001000(group, IntPtr.Zero, maxActiveCounters, counterSize, counters);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: array of Int32; counterSize: Int32; counters: array of UInt32) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters, maxActiveCounters[0], counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh000001(group, numCounters, maxActiveCounters[0], counterSize, IntPtr.Zero) else
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_0_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_0_anh000101(group, numCounters, IntPtr.Zero, counterSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: array of Int32; counterSize: Int32; var counters: UInt32) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters, maxActiveCounters[0], counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_0_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: array of Int32; counterSize: Int32; counters: IntPtr) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_2(group, numCounters, maxActiveCounters[0], counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_2_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_adr := GetFuncAdr('glGetPerfMonitorCountersAMD');
+    private z_GetPerfMonitorCountersAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    private z_GetPerfMonitorCountersAMD_ovr_0_anh000001 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: array of UInt32) :=
     if (counters<>nil) and (counters.Length<>0) then
       z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
       z_GetPerfMonitorCountersAMD_ovr_0_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32) :=
     z_GetPerfMonitorCountersAMD_ovr_0(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_2 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr) :=
     z_GetPerfMonitorCountersAMD_ovr_2(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_3 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    private z_GetPerfMonitorCountersAMD_ovr_3_anh000001 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: array of UInt32) :=
+    if (counters<>nil) and (counters.Length<>0) then
+      z_GetPerfMonitorCountersAMD_ovr_3(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
+      z_GetPerfMonitorCountersAMD_ovr_3_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32) :=
+    z_GetPerfMonitorCountersAMD_ovr_3(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_5 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr) :=
+    z_GetPerfMonitorCountersAMD_ovr_5(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_6 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    private z_GetPerfMonitorCountersAMD_ovr_6_anh000001 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: array of UInt32) :=
     if (counters<>nil) and (counters.Length<>0) then
       z_GetPerfMonitorCountersAMD_ovr_6(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
       z_GetPerfMonitorCountersAMD_ovr_6_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32) :=
-    z_GetPerfMonitorCountersAMD_ovr_6(group, numCounters, maxActiveCounters, counterSize, counters);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; var numCounters: Int32; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr) :=
-    z_GetPerfMonitorCountersAMD_ovr_8(group, numCounters, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_18(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_18_anh000100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_18_anh000001(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_18_anh000101(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: array of Int32; counterSize: Int32; counters: array of UInt32) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_18(group, numCounters, maxActiveCounters[0], counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_18_anh000001(group, numCounters, maxActiveCounters[0], counterSize, IntPtr.Zero) else
-      if (counters<>nil) and (counters.Length<>0) then
-        z_GetPerfMonitorCountersAMD_ovr_18_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters[0]) else
-        z_GetPerfMonitorCountersAMD_ovr_18_anh000101(group, numCounters, IntPtr.Zero, counterSize, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_19_anh000100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: array of Int32; counterSize: Int32; var counters: UInt32) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_18(group, numCounters, maxActiveCounters[0], counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_18_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_20(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_20_anh000100(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: array of Int32; counterSize: Int32; counters: IntPtr) :=
-    if (maxActiveCounters<>nil) and (maxActiveCounters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_20(group, numCounters, maxActiveCounters[0], counterSize, counters) else
-      z_GetPerfMonitorCountersAMD_ovr_20_anh000100(group, numCounters, IntPtr.Zero, counterSize, counters);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: array of UInt32) :=
-    if (counters<>nil) and (counters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_18(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
-      z_GetPerfMonitorCountersAMD_ovr_18_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; var counters: UInt32) :=
-    z_GetPerfMonitorCountersAMD_ovr_18(group, numCounters, maxActiveCounters, counterSize, counters);
+    z_GetPerfMonitorCountersAMD_ovr_6(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_8 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; var maxActiveCounters: Int32; counterSize: Int32; counters: IntPtr) :=
-    z_GetPerfMonitorCountersAMD_ovr_20(group, numCounters, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_24(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_24_anh000001(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
+    z_GetPerfMonitorCountersAMD_ovr_8(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_9 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
+    private z_GetPerfMonitorCountersAMD_ovr_9_anh000001 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: array of UInt32) :=
     if (counters<>nil) and (counters.Length<>0) then
-      z_GetPerfMonitorCountersAMD_ovr_24(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
-      z_GetPerfMonitorCountersAMD_ovr_24_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
+      z_GetPerfMonitorCountersAMD_ovr_9(group, numCounters, maxActiveCounters, counterSize, counters[0]) else
+      z_GetPerfMonitorCountersAMD_ovr_9_anh000001(group, numCounters, maxActiveCounters, counterSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; var counters: UInt32) :=
-    z_GetPerfMonitorCountersAMD_ovr_24(group, numCounters, maxActiveCounters, counterSize, counters);
-    private static procedure z_GetPerfMonitorCountersAMD_ovr_26(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCountersAMD';
+    z_GetPerfMonitorCountersAMD_ovr_9(group, numCounters, maxActiveCounters, counterSize, counters);
+    private z_GetPerfMonitorCountersAMD_ovr_11 := GetFuncOrNil&(z_GetPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCountersAMD(group: UInt32; numCounters: IntPtr; maxActiveCounters: IntPtr; counterSize: Int32; counters: IntPtr) :=
-    z_GetPerfMonitorCountersAMD_ovr_26(group, numCounters, maxActiveCounters, counterSize, counters);
+    z_GetPerfMonitorCountersAMD_ovr_11(group, numCounters, maxActiveCounters, counterSize, counters);
     
-    private static procedure z_GetPerfMonitorGroupStringAMD_ovr_0(group: UInt32; bufSize: Int32; var length: Int32; groupString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupStringAMD';
-    private static procedure z_GetPerfMonitorGroupStringAMD_ovr_0_anh00010(group: UInt32; bufSize: Int32; length: IntPtr; groupString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupStringAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupStringAMD(group: UInt32; bufSize: Int32; length: array of Int32; groupString: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetPerfMonitorGroupStringAMD_ovr_0(group, bufSize, length[0], groupString) else
-      z_GetPerfMonitorGroupStringAMD_ovr_0_anh00010(group, bufSize, IntPtr.Zero, groupString);
+    private z_GetPerfMonitorGroupStringAMD_adr := GetFuncAdr('glGetPerfMonitorGroupStringAMD');
+    private z_GetPerfMonitorGroupStringAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorGroupStringAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupStringAMD(group: UInt32; bufSize: Int32; var length: Int32; groupString: IntPtr) :=
     z_GetPerfMonitorGroupStringAMD_ovr_0(group, bufSize, length, groupString);
-    private static procedure z_GetPerfMonitorGroupStringAMD_ovr_2(group: UInt32; bufSize: Int32; length: IntPtr; groupString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorGroupStringAMD';
+    private z_GetPerfMonitorGroupStringAMD_ovr_1 := GetFuncOrNil&(z_GetPerfMonitorGroupStringAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorGroupStringAMD(group: UInt32; bufSize: Int32; length: IntPtr; groupString: IntPtr) :=
-    z_GetPerfMonitorGroupStringAMD_ovr_2(group, bufSize, length, groupString);
+    z_GetPerfMonitorGroupStringAMD_ovr_1(group, bufSize, length, groupString);
     
-    private static procedure z_GetPerfMonitorCounterStringAMD_ovr_0(group: UInt32; counter: UInt32; bufSize: Int32; var length: Int32; counterString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterStringAMD';
-    private static procedure z_GetPerfMonitorCounterStringAMD_ovr_0_anh000010(group: UInt32; counter: UInt32; bufSize: Int32; length: IntPtr; counterString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterStringAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterStringAMD(group: UInt32; counter: UInt32; bufSize: Int32; length: array of Int32; counterString: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetPerfMonitorCounterStringAMD_ovr_0(group, counter, bufSize, length[0], counterString) else
-      z_GetPerfMonitorCounterStringAMD_ovr_0_anh000010(group, counter, bufSize, IntPtr.Zero, counterString);
+    private z_GetPerfMonitorCounterStringAMD_adr := GetFuncAdr('glGetPerfMonitorCounterStringAMD');
+    private z_GetPerfMonitorCounterStringAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorCounterStringAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterStringAMD(group: UInt32; counter: UInt32; bufSize: Int32; var length: Int32; counterString: IntPtr) :=
     z_GetPerfMonitorCounterStringAMD_ovr_0(group, counter, bufSize, length, counterString);
-    private static procedure z_GetPerfMonitorCounterStringAMD_ovr_2(group: UInt32; counter: UInt32; bufSize: Int32; length: IntPtr; counterString: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterStringAMD';
+    private z_GetPerfMonitorCounterStringAMD_ovr_1 := GetFuncOrNil&(z_GetPerfMonitorCounterStringAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterStringAMD(group: UInt32; counter: UInt32; bufSize: Int32; length: IntPtr; counterString: IntPtr) :=
-    z_GetPerfMonitorCounterStringAMD_ovr_2(group, counter, bufSize, length, counterString);
+    z_GetPerfMonitorCounterStringAMD_ovr_1(group, counter, bufSize, length, counterString);
     
-    private static procedure z_GetPerfMonitorCounterInfoAMD_ovr_0(group: UInt32; counter: UInt32; pname: DummyEnum; data: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterInfoAMD';
+    private z_GetPerfMonitorCounterInfoAMD_adr := GetFuncAdr('glGetPerfMonitorCounterInfoAMD');
+    private z_GetPerfMonitorCounterInfoAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorCounterInfoAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterInfoAMD(group: UInt32; counter: UInt32; pname: DummyEnum; data: IntPtr) :=
     z_GetPerfMonitorCounterInfoAMD_ovr_0(group, counter, pname, data);
     
-    private static procedure z_GenPerfMonitorsAMD_ovr_0(n: Int32; var monitors: UInt32);
-    external 'opengl32.dll' name 'glGenPerfMonitorsAMD';
-    private static procedure z_GenPerfMonitorsAMD_ovr_0_anh001(n: Int32; monitors: IntPtr);
-    external 'opengl32.dll' name 'glGenPerfMonitorsAMD';
+    private z_GenPerfMonitorsAMD_adr := GetFuncAdr('glGenPerfMonitorsAMD');
+    private z_GenPerfMonitorsAMD_ovr_0 := GetFuncOrNil&(z_GenPerfMonitorsAMD_adr);
+    private z_GenPerfMonitorsAMD_ovr_0_anh001 := GetFuncOrNil&(z_GenPerfMonitorsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenPerfMonitorsAMD(n: Int32; monitors: array of UInt32) :=
     if (monitors<>nil) and (monitors.Length<>0) then
       z_GenPerfMonitorsAMD_ovr_0(n, monitors[0]) else
       z_GenPerfMonitorsAMD_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenPerfMonitorsAMD(n: Int32; var monitors: UInt32) :=
     z_GenPerfMonitorsAMD_ovr_0(n, monitors);
-    private static procedure z_GenPerfMonitorsAMD_ovr_2(n: Int32; monitors: IntPtr);
-    external 'opengl32.dll' name 'glGenPerfMonitorsAMD';
+    private z_GenPerfMonitorsAMD_ovr_2 := GetFuncOrNil&(z_GenPerfMonitorsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenPerfMonitorsAMD(n: Int32; monitors: IntPtr) :=
     z_GenPerfMonitorsAMD_ovr_2(n, monitors);
     
-    private static procedure z_DeletePerfMonitorsAMD_ovr_0(n: Int32; var monitors: UInt32);
-    external 'opengl32.dll' name 'glDeletePerfMonitorsAMD';
-    private static procedure z_DeletePerfMonitorsAMD_ovr_0_anh001(n: Int32; monitors: IntPtr);
-    external 'opengl32.dll' name 'glDeletePerfMonitorsAMD';
+    private z_DeletePerfMonitorsAMD_adr := GetFuncAdr('glDeletePerfMonitorsAMD');
+    private z_DeletePerfMonitorsAMD_ovr_0 := GetFuncOrNil&(z_DeletePerfMonitorsAMD_adr);
+    private z_DeletePerfMonitorsAMD_ovr_0_anh001 := GetFuncOrNil&(z_DeletePerfMonitorsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePerfMonitorsAMD(n: Int32; monitors: array of UInt32) :=
     if (monitors<>nil) and (monitors.Length<>0) then
       z_DeletePerfMonitorsAMD_ovr_0(n, monitors[0]) else
       z_DeletePerfMonitorsAMD_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePerfMonitorsAMD(n: Int32; var monitors: UInt32) :=
     z_DeletePerfMonitorsAMD_ovr_0(n, monitors);
-    private static procedure z_DeletePerfMonitorsAMD_ovr_2(n: Int32; monitors: IntPtr);
-    external 'opengl32.dll' name 'glDeletePerfMonitorsAMD';
+    private z_DeletePerfMonitorsAMD_ovr_2 := GetFuncOrNil&(z_DeletePerfMonitorsAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePerfMonitorsAMD(n: Int32; monitors: IntPtr) :=
     z_DeletePerfMonitorsAMD_ovr_2(n, monitors);
     
-    private static procedure z_SelectPerfMonitorCountersAMD_ovr_0(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; var counterList: UInt32);
-    external 'opengl32.dll' name 'glSelectPerfMonitorCountersAMD';
-    private static procedure z_SelectPerfMonitorCountersAMD_ovr_0_anh000001(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; counterList: IntPtr);
-    external 'opengl32.dll' name 'glSelectPerfMonitorCountersAMD';
+    private z_SelectPerfMonitorCountersAMD_adr := GetFuncAdr('glSelectPerfMonitorCountersAMD');
+    private z_SelectPerfMonitorCountersAMD_ovr_0 := GetFuncOrNil&(z_SelectPerfMonitorCountersAMD_adr);
+    private z_SelectPerfMonitorCountersAMD_ovr_0_anh000001 := GetFuncOrNil&(z_SelectPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectPerfMonitorCountersAMD(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; counterList: array of UInt32) :=
     if (counterList<>nil) and (counterList.Length<>0) then
       z_SelectPerfMonitorCountersAMD_ovr_0(monitor, enable, group, numCounters, counterList[0]) else
       z_SelectPerfMonitorCountersAMD_ovr_0_anh000001(monitor, enable, group, numCounters, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectPerfMonitorCountersAMD(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; var counterList: UInt32) :=
     z_SelectPerfMonitorCountersAMD_ovr_0(monitor, enable, group, numCounters, counterList);
-    private static procedure z_SelectPerfMonitorCountersAMD_ovr_2(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; counterList: IntPtr);
-    external 'opengl32.dll' name 'glSelectPerfMonitorCountersAMD';
+    private z_SelectPerfMonitorCountersAMD_ovr_2 := GetFuncOrNil&(z_SelectPerfMonitorCountersAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectPerfMonitorCountersAMD(monitor: UInt32; enable: boolean; group: UInt32; numCounters: Int32; counterList: IntPtr) :=
     z_SelectPerfMonitorCountersAMD_ovr_2(monitor, enable, group, numCounters, counterList);
     
-    private static procedure z_BeginPerfMonitorAMD_ovr_0(monitor: UInt32);
-    external 'opengl32.dll' name 'glBeginPerfMonitorAMD';
+    private z_BeginPerfMonitorAMD_adr := GetFuncAdr('glBeginPerfMonitorAMD');
+    private z_BeginPerfMonitorAMD_ovr_0 := GetFuncOrNil&(z_BeginPerfMonitorAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginPerfMonitorAMD(monitor: UInt32) :=
     z_BeginPerfMonitorAMD_ovr_0(monitor);
     
-    private static procedure z_EndPerfMonitorAMD_ovr_0(monitor: UInt32);
-    external 'opengl32.dll' name 'glEndPerfMonitorAMD';
+    private z_EndPerfMonitorAMD_adr := GetFuncAdr('glEndPerfMonitorAMD');
+    private z_EndPerfMonitorAMD_ovr_0 := GetFuncOrNil&(z_EndPerfMonitorAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndPerfMonitorAMD(monitor: UInt32) :=
     z_EndPerfMonitorAMD_ovr_0(monitor);
     
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_0(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; var bytesWritten: Int32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_0_anh000010(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; var bytesWritten: Int32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_0_anh000001(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_0_anh000011(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: array of UInt32; bytesWritten: array of Int32) :=
-    if (data<>nil) and (data.Length<>0) then
-      if (bytesWritten<>nil) and (bytesWritten.Length<>0) then
-        z_GetPerfMonitorCounterDataAMD_ovr_0(monitor, pname, dataSize, data[0], bytesWritten[0]) else
-        z_GetPerfMonitorCounterDataAMD_ovr_0_anh000001(monitor, pname, dataSize, data[0], IntPtr.Zero) else
-      if (bytesWritten<>nil) and (bytesWritten.Length<>0) then
-        z_GetPerfMonitorCounterDataAMD_ovr_0_anh000010(monitor, pname, dataSize, IntPtr.Zero, bytesWritten[0]) else
-        z_GetPerfMonitorCounterDataAMD_ovr_0_anh000011(monitor, pname, dataSize, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_1_anh000010(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; var bytesWritten: Int32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
+    private z_GetPerfMonitorCounterDataAMD_adr := GetFuncAdr('glGetPerfMonitorCounterDataAMD');
+    private z_GetPerfMonitorCounterDataAMD_ovr_0 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
+    private z_GetPerfMonitorCounterDataAMD_ovr_0_anh000010 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: array of UInt32; var bytesWritten: Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetPerfMonitorCounterDataAMD_ovr_0(monitor, pname, dataSize, data[0], bytesWritten) else
       z_GetPerfMonitorCounterDataAMD_ovr_0_anh000010(monitor, pname, dataSize, IntPtr.Zero, bytesWritten);
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_2(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_2_anh000010(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
+    private z_GetPerfMonitorCounterDataAMD_ovr_1 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
+    private z_GetPerfMonitorCounterDataAMD_ovr_1_anh000010 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: array of UInt32; bytesWritten: IntPtr) :=
     if (data<>nil) and (data.Length<>0) then
-      z_GetPerfMonitorCounterDataAMD_ovr_2(monitor, pname, dataSize, data[0], bytesWritten) else
-      z_GetPerfMonitorCounterDataAMD_ovr_2_anh000010(monitor, pname, dataSize, IntPtr.Zero, bytesWritten);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; bytesWritten: array of Int32) :=
-    if (bytesWritten<>nil) and (bytesWritten.Length<>0) then
-      z_GetPerfMonitorCounterDataAMD_ovr_0(monitor, pname, dataSize, data, bytesWritten[0]) else
-      z_GetPerfMonitorCounterDataAMD_ovr_0_anh000001(monitor, pname, dataSize, data, IntPtr.Zero);
+      z_GetPerfMonitorCounterDataAMD_ovr_1(monitor, pname, dataSize, data[0], bytesWritten) else
+      z_GetPerfMonitorCounterDataAMD_ovr_1_anh000010(monitor, pname, dataSize, IntPtr.Zero, bytesWritten);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; var bytesWritten: Int32) :=
     z_GetPerfMonitorCounterDataAMD_ovr_0(monitor, pname, dataSize, data, bytesWritten);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; var data: UInt32; bytesWritten: IntPtr) :=
-    z_GetPerfMonitorCounterDataAMD_ovr_2(monitor, pname, dataSize, data, bytesWritten);
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_6(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; var bytesWritten: Int32);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_6_anh000001(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: array of Int32) :=
-    if (bytesWritten<>nil) and (bytesWritten.Length<>0) then
-      z_GetPerfMonitorCounterDataAMD_ovr_6(monitor, pname, dataSize, data, bytesWritten[0]) else
-      z_GetPerfMonitorCounterDataAMD_ovr_6_anh000001(monitor, pname, dataSize, data, IntPtr.Zero);
+    z_GetPerfMonitorCounterDataAMD_ovr_1(monitor, pname, dataSize, data, bytesWritten);
+    private z_GetPerfMonitorCounterDataAMD_ovr_4 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; var bytesWritten: Int32) :=
-    z_GetPerfMonitorCounterDataAMD_ovr_6(monitor, pname, dataSize, data, bytesWritten);
-    private static procedure z_GetPerfMonitorCounterDataAMD_ovr_8(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfMonitorCounterDataAMD';
+    z_GetPerfMonitorCounterDataAMD_ovr_4(monitor, pname, dataSize, data, bytesWritten);
+    private z_GetPerfMonitorCounterDataAMD_ovr_5 := GetFuncOrNil&(z_GetPerfMonitorCounterDataAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfMonitorCounterDataAMD(monitor: UInt32; pname: DummyEnum; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr) :=
-    z_GetPerfMonitorCounterDataAMD_ovr_8(monitor, pname, dataSize, data, bytesWritten);
+    z_GetPerfMonitorCounterDataAMD_ovr_5(monitor, pname, dataSize, data, bytesWritten);
     
   end;
   
   [PCUNotRestore]
-  glSamplePositionsAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSamplePositionsAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_sample_positions';
     
-    private static procedure z_SetMultisamplefvAMD_ovr_0(pname: DummyEnum; index: UInt32; var val: single);
-    external 'opengl32.dll' name 'glSetMultisamplefvAMD';
-    private static procedure z_SetMultisamplefvAMD_ovr_0_anh0001(pname: DummyEnum; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glSetMultisamplefvAMD';
+    private z_SetMultisamplefvAMD_adr := GetFuncAdr('glSetMultisamplefvAMD');
+    private z_SetMultisamplefvAMD_ovr_0 := GetFuncOrNil&(z_SetMultisamplefvAMD_adr);
+    private z_SetMultisamplefvAMD_ovr_0_anh0001 := GetFuncOrNil&(z_SetMultisamplefvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetMultisamplefvAMD(pname: DummyEnum; index: UInt32; val: array of single) :=
     if (val<>nil) and (val.Length<>0) then
       z_SetMultisamplefvAMD_ovr_0(pname, index, val[0]) else
       z_SetMultisamplefvAMD_ovr_0_anh0001(pname, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetMultisamplefvAMD(pname: DummyEnum; index: UInt32; var val: single) :=
     z_SetMultisamplefvAMD_ovr_0(pname, index, val);
-    private static procedure z_SetMultisamplefvAMD_ovr_2(pname: DummyEnum; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glSetMultisamplefvAMD';
+    private z_SetMultisamplefvAMD_ovr_2 := GetFuncOrNil&(z_SetMultisamplefvAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetMultisamplefvAMD(pname: DummyEnum; index: UInt32; val: IntPtr) :=
     z_SetMultisamplefvAMD_ovr_2(pname, index, val);
     
   end;
   
   [PCUNotRestore]
-  glSparseTextureAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSparseTextureAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_sparse_texture';
     
-    private static procedure z_TexStorageSparseAMD_ovr_0(target: TextureTarget; _internalFormat: InternalFormat; width: Int32; height: Int32; depth: Int32; layers: Int32; flags: TextureStorageMaskAMD);
-    external 'opengl32.dll' name 'glTexStorageSparseAMD';
+    private z_TexStorageSparseAMD_adr := GetFuncAdr('glTexStorageSparseAMD');
+    private z_TexStorageSparseAMD_ovr_0 := GetFuncOrNil&(z_TexStorageSparseAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageSparseAMD(target: TextureTarget; _internalFormat: InternalFormat; width: Int32; height: Int32; depth: Int32; layers: Int32; flags: TextureStorageMaskAMD) :=
     z_TexStorageSparseAMD_ovr_0(target, _internalFormat, width, height, depth, layers, flags);
     
-    private static procedure z_TextureStorageSparseAMD_ovr_0(texture: UInt32; target: DummyEnum; _internalFormat: InternalFormat; width: Int32; height: Int32; depth: Int32; layers: Int32; flags: TextureStorageMaskAMD);
-    external 'opengl32.dll' name 'glTextureStorageSparseAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageSparseAMD(texture: UInt32; target: DummyEnum; _internalFormat: InternalFormat; width: Int32; height: Int32; depth: Int32; layers: Int32; flags: TextureStorageMaskAMD) :=
+    private z_TextureStorageSparseAMD_adr := GetFuncAdr('glTextureStorageSparseAMD');
+    private z_TextureStorageSparseAMD_ovr_0 := GetFuncOrNil&(z_TextureStorageSparseAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageSparseAMD(texture: gl_texture; target: DummyEnum; _internalFormat: InternalFormat; width: Int32; height: Int32; depth: Int32; layers: Int32; flags: TextureStorageMaskAMD) :=
     z_TextureStorageSparseAMD_ovr_0(texture, target, _internalFormat, width, height, depth, layers, flags);
     
   end;
   
   [PCUNotRestore]
-  glStencilOperationExtendedAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glStencilOperationExtendedAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_stencil_operation_extended';
     
-    private static procedure z_StencilOpValueAMD_ovr_0(face: StencilFaceDirection; value: UInt32);
-    external 'opengl32.dll' name 'glStencilOpValueAMD';
+    private z_StencilOpValueAMD_adr := GetFuncAdr('glStencilOpValueAMD');
+    private z_StencilOpValueAMD_ovr_0 := GetFuncOrNil&(z_StencilOpValueAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilOpValueAMD(face: StencilFaceDirection; value: UInt32) :=
     z_StencilOpValueAMD_ovr_0(face, value);
     
   end;
   
   [PCUNotRestore]
-  glVertexShaderTessellatorAMD = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexShaderTessellatorAMD = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_vertex_shader_tessellator';
     
-    private static procedure z_TessellationFactorAMD_ovr_0(factor: single);
-    external 'opengl32.dll' name 'glTessellationFactorAMD';
+    private z_TessellationFactorAMD_adr := GetFuncAdr('glTessellationFactorAMD');
+    private z_TessellationFactorAMD_ovr_0 := GetFuncOrNil&(z_TessellationFactorAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TessellationFactorAMD(factor: single) :=
     z_TessellationFactorAMD_ovr_0(factor);
     
-    private static procedure z_TessellationModeAMD_ovr_0(mode: DummyEnum);
-    external 'opengl32.dll' name 'glTessellationModeAMD';
+    private z_TessellationModeAMD_adr := GetFuncAdr('glTessellationModeAMD');
+    private z_TessellationModeAMD_ovr_0 := GetFuncOrNil&(z_TessellationModeAMD_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TessellationModeAMD(mode: DummyEnum) :=
     z_TessellationModeAMD_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glElementArrayAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glElementArrayAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_element_array';
     
-    private static procedure z_ElementPointerAPPLE_ovr_0(&type: ElementPointerTypeATI; pointer: IntPtr);
-    external 'opengl32.dll' name 'glElementPointerAPPLE';
+    private z_ElementPointerAPPLE_adr := GetFuncAdr('glElementPointerAPPLE');
+    private z_ElementPointerAPPLE_ovr_0 := GetFuncOrNil&(z_ElementPointerAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ElementPointerAPPLE(&type: ElementPointerTypeATI; pointer: IntPtr) :=
     z_ElementPointerAPPLE_ovr_0(&type, pointer);
     
-    private static procedure z_DrawElementArrayAPPLE_ovr_0(mode: PrimitiveType; first: Int32; count: Int32);
-    external 'opengl32.dll' name 'glDrawElementArrayAPPLE';
+    private z_DrawElementArrayAPPLE_adr := GetFuncAdr('glDrawElementArrayAPPLE');
+    private z_DrawElementArrayAPPLE_ovr_0 := GetFuncOrNil&(z_DrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementArrayAPPLE(mode: PrimitiveType; first: Int32; count: Int32) :=
     z_DrawElementArrayAPPLE_ovr_0(mode, first, count);
     
-    private static procedure z_DrawRangeElementArrayAPPLE_ovr_0(mode: PrimitiveType; start: UInt32; &end: UInt32; first: Int32; count: Int32);
-    external 'opengl32.dll' name 'glDrawRangeElementArrayAPPLE';
+    private z_DrawRangeElementArrayAPPLE_adr := GetFuncAdr('glDrawRangeElementArrayAPPLE');
+    private z_DrawRangeElementArrayAPPLE_ovr_0 := GetFuncOrNil&(z_DrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: Int32; count: Int32) :=
     z_DrawRangeElementArrayAPPLE_ovr_0(mode, start, &end, first, count);
     
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_0(mode: PrimitiveType; var first: Int32; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_0_anh00100(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_0_anh00010(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_0_anh00110(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
+    private z_MultiDrawElementArrayAPPLE_adr := GetFuncAdr('glMultiDrawElementArrayAPPLE');
+    private z_MultiDrawElementArrayAPPLE_ovr_0 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
+    private z_MultiDrawElementArrayAPPLE_ovr_0_anh00100 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
+    private z_MultiDrawElementArrayAPPLE_ovr_0_anh00010 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
+    private z_MultiDrawElementArrayAPPLE_ovr_0_anh00110 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: array of Int32; count: array of Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -36438,16 +37660,13 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiDrawElementArrayAPPLE_ovr_0_anh00100(mode, IntPtr.Zero, count[0], primcount) else
         z_MultiDrawElementArrayAPPLE_ovr_0_anh00110(mode, IntPtr.Zero, IntPtr.Zero, primcount);
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_1_anh00100(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
+    private z_MultiDrawElementArrayAPPLE_ovr_1_anh00100 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: array of Int32; var count: Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawElementArrayAPPLE_ovr_0(mode, first[0], count, primcount) else
       z_MultiDrawElementArrayAPPLE_ovr_0_anh00100(mode, IntPtr.Zero, count, primcount);
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_2(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_2_anh00100(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
+    private z_MultiDrawElementArrayAPPLE_ovr_2 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
+    private z_MultiDrawElementArrayAPPLE_ovr_2_anh00100 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: array of Int32; count: IntPtr; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawElementArrayAPPLE_ovr_2(mode, first[0], count, primcount) else
@@ -36460,29 +37679,23 @@ type
     z_MultiDrawElementArrayAPPLE_ovr_0(mode, first, count, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32) :=
     z_MultiDrawElementArrayAPPLE_ovr_2(mode, first, count, primcount);
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_6(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_6_anh00010(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
+    private z_MultiDrawElementArrayAPPLE_ovr_6 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
+    private z_MultiDrawElementArrayAPPLE_ovr_6_anh00010 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: IntPtr; count: array of Int32; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementArrayAPPLE_ovr_6(mode, first, count[0], primcount) else
       z_MultiDrawElementArrayAPPLE_ovr_6_anh00010(mode, first, IntPtr.Zero, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32) :=
     z_MultiDrawElementArrayAPPLE_ovr_6(mode, first, count, primcount);
-    private static procedure z_MultiDrawElementArrayAPPLE_ovr_8(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementArrayAPPLE';
+    private z_MultiDrawElementArrayAPPLE_ovr_8 := GetFuncOrNil&(z_MultiDrawElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementArrayAPPLE(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32) :=
     z_MultiDrawElementArrayAPPLE_ovr_8(mode, first, count, primcount);
     
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_0(mode: PrimitiveType; start: UInt32; &end: UInt32; var first: Int32; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000100(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000010(mode: PrimitiveType; start: UInt32; &end: UInt32; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000110(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
+    private z_MultiDrawRangeElementArrayAPPLE_adr := GetFuncAdr('glMultiDrawRangeElementArrayAPPLE');
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_0 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000100 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000010 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000110 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: array of Int32; count: array of Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -36491,16 +37704,13 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000100(mode, start, &end, IntPtr.Zero, count[0], primcount) else
         z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000110(mode, start, &end, IntPtr.Zero, IntPtr.Zero, primcount);
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_1_anh0000100(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_1_anh0000100 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: array of Int32; var count: Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawRangeElementArrayAPPLE_ovr_0(mode, start, &end, first[0], count, primcount) else
       z_MultiDrawRangeElementArrayAPPLE_ovr_0_anh0000100(mode, start, &end, IntPtr.Zero, count, primcount);
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_2(mode: PrimitiveType; start: UInt32; &end: UInt32; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_2_anh0000100(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_2 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_2_anh0000100 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: array of Int32; count: IntPtr; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawRangeElementArrayAPPLE_ovr_2(mode, start, &end, first[0], count, primcount) else
@@ -36513,640 +37723,599 @@ type
     z_MultiDrawRangeElementArrayAPPLE_ovr_0(mode, start, &end, first, count, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; var first: Int32; count: IntPtr; primcount: Int32) :=
     z_MultiDrawRangeElementArrayAPPLE_ovr_2(mode, start, &end, first, count, primcount);
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_6(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_6_anh0000010(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_6 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_6_anh0000010 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: array of Int32; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawRangeElementArrayAPPLE_ovr_6(mode, start, &end, first, count[0], primcount) else
       z_MultiDrawRangeElementArrayAPPLE_ovr_6_anh0000010(mode, start, &end, first, IntPtr.Zero, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; var count: Int32; primcount: Int32) :=
     z_MultiDrawRangeElementArrayAPPLE_ovr_6(mode, start, &end, first, count, primcount);
-    private static procedure z_MultiDrawRangeElementArrayAPPLE_ovr_8(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawRangeElementArrayAPPLE';
+    private z_MultiDrawRangeElementArrayAPPLE_ovr_8 := GetFuncOrNil&(z_MultiDrawRangeElementArrayAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawRangeElementArrayAPPLE(mode: PrimitiveType; start: UInt32; &end: UInt32; first: IntPtr; count: IntPtr; primcount: Int32) :=
     z_MultiDrawRangeElementArrayAPPLE_ovr_8(mode, start, &end, first, count, primcount);
     
   end;
   
   [PCUNotRestore]
-  glFenceAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFenceAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_fence';
     
-    private static procedure z_GenFencesAPPLE_ovr_0(n: Int32; var fences: UInt32);
-    external 'opengl32.dll' name 'glGenFencesAPPLE';
-    private static procedure z_GenFencesAPPLE_ovr_0_anh001(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glGenFencesAPPLE';
+    private z_GenFencesAPPLE_adr := GetFuncAdr('glGenFencesAPPLE');
+    private z_GenFencesAPPLE_ovr_0 := GetFuncOrNil&(z_GenFencesAPPLE_adr);
+    private z_GenFencesAPPLE_ovr_0_anh001 := GetFuncOrNil&(z_GenFencesAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesAPPLE(n: Int32; fences: array of UInt32) :=
     if (fences<>nil) and (fences.Length<>0) then
       z_GenFencesAPPLE_ovr_0(n, fences[0]) else
       z_GenFencesAPPLE_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesAPPLE(n: Int32; var fences: UInt32) :=
     z_GenFencesAPPLE_ovr_0(n, fences);
-    private static procedure z_GenFencesAPPLE_ovr_2(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glGenFencesAPPLE';
+    private z_GenFencesAPPLE_ovr_2 := GetFuncOrNil&(z_GenFencesAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesAPPLE(n: Int32; fences: IntPtr) :=
     z_GenFencesAPPLE_ovr_2(n, fences);
     
-    private static procedure z_DeleteFencesAPPLE_ovr_0(n: Int32; var fences: UInt32);
-    external 'opengl32.dll' name 'glDeleteFencesAPPLE';
-    private static procedure z_DeleteFencesAPPLE_ovr_0_anh001(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFencesAPPLE';
+    private z_DeleteFencesAPPLE_adr := GetFuncAdr('glDeleteFencesAPPLE');
+    private z_DeleteFencesAPPLE_ovr_0 := GetFuncOrNil&(z_DeleteFencesAPPLE_adr);
+    private z_DeleteFencesAPPLE_ovr_0_anh001 := GetFuncOrNil&(z_DeleteFencesAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesAPPLE(n: Int32; fences: array of UInt32) :=
     if (fences<>nil) and (fences.Length<>0) then
       z_DeleteFencesAPPLE_ovr_0(n, fences[0]) else
       z_DeleteFencesAPPLE_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesAPPLE(n: Int32; var fences: UInt32) :=
     z_DeleteFencesAPPLE_ovr_0(n, fences);
-    private static procedure z_DeleteFencesAPPLE_ovr_2(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFencesAPPLE';
+    private z_DeleteFencesAPPLE_ovr_2 := GetFuncOrNil&(z_DeleteFencesAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesAPPLE(n: Int32; fences: IntPtr) :=
     z_DeleteFencesAPPLE_ovr_2(n, fences);
     
-    private static procedure z_SetFenceAPPLE_ovr_0(fence: UInt32);
-    external 'opengl32.dll' name 'glSetFenceAPPLE';
+    private z_SetFenceAPPLE_adr := GetFuncAdr('glSetFenceAPPLE');
+    private z_SetFenceAPPLE_ovr_0 := GetFuncOrNil&(z_SetFenceAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetFenceAPPLE(fence: UInt32) :=
     z_SetFenceAPPLE_ovr_0(fence);
     
-    private static function z_IsFenceAPPLE_ovr_0(fence: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsFenceAPPLE';
+    private z_IsFenceAPPLE_adr := GetFuncAdr('glIsFenceAPPLE');
+    private z_IsFenceAPPLE_ovr_0 := GetFuncOrNil&(z_IsFenceAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFenceAPPLE(fence: UInt32): boolean :=
     z_IsFenceAPPLE_ovr_0(fence);
     
-    private static function z_TestFenceAPPLE_ovr_0(fence: UInt32): boolean;
-    external 'opengl32.dll' name 'glTestFenceAPPLE';
+    private z_TestFenceAPPLE_adr := GetFuncAdr('glTestFenceAPPLE');
+    private z_TestFenceAPPLE_ovr_0 := GetFuncOrNil&(z_TestFenceAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function TestFenceAPPLE(fence: UInt32): boolean :=
     z_TestFenceAPPLE_ovr_0(fence);
     
-    private static procedure z_FinishFenceAPPLE_ovr_0(fence: UInt32);
-    external 'opengl32.dll' name 'glFinishFenceAPPLE';
+    private z_FinishFenceAPPLE_adr := GetFuncAdr('glFinishFenceAPPLE');
+    private z_FinishFenceAPPLE_ovr_0 := GetFuncOrNil&(z_FinishFenceAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FinishFenceAPPLE(fence: UInt32) :=
     z_FinishFenceAPPLE_ovr_0(fence);
     
-    private static function z_TestObjectAPPLE_ovr_0(object: ObjectTypeAPPLE; name: UInt32): boolean;
-    external 'opengl32.dll' name 'glTestObjectAPPLE';
+    private z_TestObjectAPPLE_adr := GetFuncAdr('glTestObjectAPPLE');
+    private z_TestObjectAPPLE_ovr_0 := GetFuncOrNil&(z_TestObjectAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function TestObjectAPPLE(object: ObjectTypeAPPLE; name: UInt32): boolean :=
     z_TestObjectAPPLE_ovr_0(object, name);
     
-    private static procedure z_FinishObjectAPPLE_ovr_0(object: ObjectTypeAPPLE; name: Int32);
-    external 'opengl32.dll' name 'glFinishObjectAPPLE';
+    private z_FinishObjectAPPLE_adr := GetFuncAdr('glFinishObjectAPPLE');
+    private z_FinishObjectAPPLE_ovr_0 := GetFuncOrNil&(z_FinishObjectAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FinishObjectAPPLE(object: ObjectTypeAPPLE; name: Int32) :=
     z_FinishObjectAPPLE_ovr_0(object, name);
     
   end;
   
   [PCUNotRestore]
-  glFlushBufferRangeAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFlushBufferRangeAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_flush_buffer_range';
     
-    private static procedure z_BufferParameteriAPPLE_ovr_0(target: DummyEnum; pname: DummyEnum; param: Int32);
-    external 'opengl32.dll' name 'glBufferParameteriAPPLE';
+    private z_BufferParameteriAPPLE_adr := GetFuncAdr('glBufferParameteriAPPLE');
+    private z_BufferParameteriAPPLE_ovr_0 := GetFuncOrNil&(z_BufferParameteriAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferParameteriAPPLE(target: DummyEnum; pname: DummyEnum; param: Int32) :=
     z_BufferParameteriAPPLE_ovr_0(target, pname, param);
     
-    private static procedure z_FlushMappedBufferRangeAPPLE_ovr_0(target: BufferTargetARB; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glFlushMappedBufferRangeAPPLE';
+    private z_FlushMappedBufferRangeAPPLE_adr := GetFuncAdr('glFlushMappedBufferRangeAPPLE');
+    private z_FlushMappedBufferRangeAPPLE_ovr_0 := GetFuncOrNil&(z_FlushMappedBufferRangeAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedBufferRangeAPPLE(target: BufferTargetARB; offset: IntPtr; size: IntPtr) :=
     z_FlushMappedBufferRangeAPPLE_ovr_0(target, offset, size);
     
   end;
   
   [PCUNotRestore]
-  glObjectPurgeableAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glObjectPurgeableAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_object_purgeable';
     
-    private static function z_ObjectPurgeableAPPLE_ovr_0(objectType: DummyEnum; name: UInt32; option: DummyEnum): DummyEnum;
-    external 'opengl32.dll' name 'glObjectPurgeableAPPLE';
+    private z_ObjectPurgeableAPPLE_adr := GetFuncAdr('glObjectPurgeableAPPLE');
+    private z_ObjectPurgeableAPPLE_ovr_0 := GetFuncOrNil&(z_ObjectPurgeableAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ObjectPurgeableAPPLE(objectType: DummyEnum; name: UInt32; option: DummyEnum): DummyEnum :=
     z_ObjectPurgeableAPPLE_ovr_0(objectType, name, option);
     
-    private static function z_ObjectUnpurgeableAPPLE_ovr_0(objectType: DummyEnum; name: UInt32; option: DummyEnum): DummyEnum;
-    external 'opengl32.dll' name 'glObjectUnpurgeableAPPLE';
+    private z_ObjectUnpurgeableAPPLE_adr := GetFuncAdr('glObjectUnpurgeableAPPLE');
+    private z_ObjectUnpurgeableAPPLE_ovr_0 := GetFuncOrNil&(z_ObjectUnpurgeableAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ObjectUnpurgeableAPPLE(objectType: DummyEnum; name: UInt32; option: DummyEnum): DummyEnum :=
     z_ObjectUnpurgeableAPPLE_ovr_0(objectType, name, option);
     
-    private static procedure z_GetObjectParameterivAPPLE_ovr_0(objectType: DummyEnum; name: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetObjectParameterivAPPLE';
-    private static procedure z_GetObjectParameterivAPPLE_ovr_0_anh00001(objectType: DummyEnum; name: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterivAPPLE';
+    private z_GetObjectParameterivAPPLE_adr := GetFuncAdr('glGetObjectParameterivAPPLE');
+    private z_GetObjectParameterivAPPLE_ovr_0 := GetFuncOrNil&(z_GetObjectParameterivAPPLE_adr);
+    private z_GetObjectParameterivAPPLE_ovr_0_anh00001 := GetFuncOrNil&(z_GetObjectParameterivAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivAPPLE(objectType: DummyEnum; name: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetObjectParameterivAPPLE_ovr_0(objectType, name, pname, ¶ms[0]) else
       z_GetObjectParameterivAPPLE_ovr_0_anh00001(objectType, name, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivAPPLE(objectType: DummyEnum; name: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetObjectParameterivAPPLE_ovr_0(objectType, name, pname, ¶ms);
-    private static procedure z_GetObjectParameterivAPPLE_ovr_2(objectType: DummyEnum; name: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterivAPPLE';
+    private z_GetObjectParameterivAPPLE_ovr_2 := GetFuncOrNil&(z_GetObjectParameterivAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivAPPLE(objectType: DummyEnum; name: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetObjectParameterivAPPLE_ovr_2(objectType, name, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glTextureRangeAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureRangeAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_texture_range';
     
-    private static procedure z_TextureRangeAPPLE_ovr_0(target: DummyEnum; length: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glTextureRangeAPPLE';
+    private z_TextureRangeAPPLE_adr := GetFuncAdr('glTextureRangeAPPLE');
+    private z_TextureRangeAPPLE_ovr_0 := GetFuncOrNil&(z_TextureRangeAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureRangeAPPLE(target: DummyEnum; length: Int32; pointer: IntPtr) :=
     z_TextureRangeAPPLE_ovr_0(target, length, pointer);
     
-    private static procedure z_GetTexParameterPointervAPPLE_ovr_0(target: DummyEnum; pname: DummyEnum; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterPointervAPPLE';
-    private static procedure z_GetTexParameterPointervAPPLE_ovr_0_anh0001(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterPointervAPPLE';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterPointervAPPLE(target: DummyEnum; pname: DummyEnum; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTexParameterPointervAPPLE_ovr_0(target, pname, ¶ms[0]) else
-      z_GetTexParameterPointervAPPLE_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_GetTexParameterPointervAPPLE_adr := GetFuncAdr('glGetTexParameterPointervAPPLE');
+    private z_GetTexParameterPointervAPPLE_ovr_0 := GetFuncOrNil&(z_GetTexParameterPointervAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterPointervAPPLE(target: DummyEnum; pname: DummyEnum; var ¶ms: IntPtr) :=
     z_GetTexParameterPointervAPPLE_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameterPointervAPPLE_ovr_2(target: DummyEnum; pname: DummyEnum; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetTexParameterPointervAPPLE';
+    private z_GetTexParameterPointervAPPLE_ovr_1 := GetFuncOrNil&(z_GetTexParameterPointervAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterPointervAPPLE(target: DummyEnum; pname: DummyEnum; ¶ms: pointer) :=
-    z_GetTexParameterPointervAPPLE_ovr_2(target, pname, ¶ms);
+    z_GetTexParameterPointervAPPLE_ovr_1(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayObjectAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayObjectAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_vertex_array_object';
     
-    private static procedure z_BindVertexArrayAPPLE_ovr_0(&array: UInt32);
-    external 'opengl32.dll' name 'glBindVertexArrayAPPLE';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArrayAPPLE(&array: UInt32) :=
+    private z_BindVertexArrayAPPLE_adr := GetFuncAdr('glBindVertexArrayAPPLE');
+    private z_BindVertexArrayAPPLE_ovr_0 := GetFuncOrNil&(z_BindVertexArrayAPPLE_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArrayAPPLE(&array: gl_vertex_array) :=
     z_BindVertexArrayAPPLE_ovr_0(&array);
     
-    private static procedure z_DeleteVertexArraysAPPLE_ovr_0(n: Int32; var arrays: UInt32);
-    external 'opengl32.dll' name 'glDeleteVertexArraysAPPLE';
-    private static procedure z_DeleteVertexArraysAPPLE_ovr_0_anh001(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glDeleteVertexArraysAPPLE';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArraysAPPLE(n: Int32; arrays: array of UInt32) :=
+    private z_DeleteVertexArraysAPPLE_adr := GetFuncAdr('glDeleteVertexArraysAPPLE');
+    private z_DeleteVertexArraysAPPLE_ovr_0 := GetFuncOrNil&(z_DeleteVertexArraysAPPLE_adr);
+    private z_DeleteVertexArraysAPPLE_ovr_0_anh001 := GetFuncOrNil&(z_DeleteVertexArraysAPPLE_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArraysAPPLE(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_DeleteVertexArraysAPPLE_ovr_0(n, arrays[0]) else
       z_DeleteVertexArraysAPPLE_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArraysAPPLE(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArraysAPPLE(n: Int32; var arrays: gl_vertex_array) :=
     z_DeleteVertexArraysAPPLE_ovr_0(n, arrays);
-    private static procedure z_DeleteVertexArraysAPPLE_ovr_2(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glDeleteVertexArraysAPPLE';
+    private z_DeleteVertexArraysAPPLE_ovr_2 := GetFuncOrNil&(z_DeleteVertexArraysAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArraysAPPLE(n: Int32; arrays: IntPtr) :=
     z_DeleteVertexArraysAPPLE_ovr_2(n, arrays);
     
-    private static procedure z_GenVertexArraysAPPLE_ovr_0(n: Int32; var arrays: UInt32);
-    external 'opengl32.dll' name 'glGenVertexArraysAPPLE';
-    private static procedure z_GenVertexArraysAPPLE_ovr_0_anh001(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glGenVertexArraysAPPLE';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArraysAPPLE(n: Int32; arrays: array of UInt32) :=
+    private z_GenVertexArraysAPPLE_adr := GetFuncAdr('glGenVertexArraysAPPLE');
+    private z_GenVertexArraysAPPLE_ovr_0 := GetFuncOrNil&(z_GenVertexArraysAPPLE_adr);
+    private z_GenVertexArraysAPPLE_ovr_0_anh001 := GetFuncOrNil&(z_GenVertexArraysAPPLE_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArraysAPPLE(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_GenVertexArraysAPPLE_ovr_0(n, arrays[0]) else
       z_GenVertexArraysAPPLE_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArraysAPPLE(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArraysAPPLE(n: Int32; var arrays: gl_vertex_array) :=
     z_GenVertexArraysAPPLE_ovr_0(n, arrays);
-    private static procedure z_GenVertexArraysAPPLE_ovr_2(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glGenVertexArraysAPPLE';
+    private z_GenVertexArraysAPPLE_ovr_2 := GetFuncOrNil&(z_GenVertexArraysAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArraysAPPLE(n: Int32; arrays: IntPtr) :=
     z_GenVertexArraysAPPLE_ovr_2(n, arrays);
     
-    private static function z_IsVertexArrayAPPLE_ovr_0(&array: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsVertexArrayAPPLE';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArrayAPPLE(&array: UInt32): boolean :=
+    private z_IsVertexArrayAPPLE_adr := GetFuncAdr('glIsVertexArrayAPPLE');
+    private z_IsVertexArrayAPPLE_ovr_0 := GetFuncOrNil&(z_IsVertexArrayAPPLE_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArrayAPPLE(&array: gl_vertex_array): boolean :=
     z_IsVertexArrayAPPLE_ovr_0(&array);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayRangeAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayRangeAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_vertex_array_range';
     
-    private static procedure z_VertexArrayRangeAPPLE_ovr_0(length: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayRangeAPPLE';
+    private z_VertexArrayRangeAPPLE_adr := GetFuncAdr('glVertexArrayRangeAPPLE');
+    private z_VertexArrayRangeAPPLE_ovr_0 := GetFuncOrNil&(z_VertexArrayRangeAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayRangeAPPLE(length: Int32; pointer: IntPtr) :=
     z_VertexArrayRangeAPPLE_ovr_0(length, pointer);
     
-    private static procedure z_FlushVertexArrayRangeAPPLE_ovr_0(length: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glFlushVertexArrayRangeAPPLE';
+    private z_FlushVertexArrayRangeAPPLE_adr := GetFuncAdr('glFlushVertexArrayRangeAPPLE');
+    private z_FlushVertexArrayRangeAPPLE_ovr_0 := GetFuncOrNil&(z_FlushVertexArrayRangeAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushVertexArrayRangeAPPLE(length: Int32; pointer: IntPtr) :=
     z_FlushVertexArrayRangeAPPLE_ovr_0(length, pointer);
     
-    private static procedure z_VertexArrayParameteriAPPLE_ovr_0(pname: VertexArrayPNameAPPLE; param: Int32);
-    external 'opengl32.dll' name 'glVertexArrayParameteriAPPLE';
+    private z_VertexArrayParameteriAPPLE_adr := GetFuncAdr('glVertexArrayParameteriAPPLE');
+    private z_VertexArrayParameteriAPPLE_ovr_0 := GetFuncOrNil&(z_VertexArrayParameteriAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayParameteriAPPLE(pname: VertexArrayPNameAPPLE; param: Int32) :=
     z_VertexArrayParameteriAPPLE_ovr_0(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glVertexProgramEvaluatorsAPPLE = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexProgramEvaluatorsAPPLE = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'APPLE_vertex_program_evaluators';
     
-    private static procedure z_EnableVertexAttribAPPLE_ovr_0(index: UInt32; pname: DummyEnum);
-    external 'opengl32.dll' name 'glEnableVertexAttribAPPLE';
+    private z_EnableVertexAttribAPPLE_adr := GetFuncAdr('glEnableVertexAttribAPPLE');
+    private z_EnableVertexAttribAPPLE_ovr_0 := GetFuncOrNil&(z_EnableVertexAttribAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexAttribAPPLE(index: UInt32; pname: DummyEnum) :=
     z_EnableVertexAttribAPPLE_ovr_0(index, pname);
     
-    private static procedure z_DisableVertexAttribAPPLE_ovr_0(index: UInt32; pname: DummyEnum);
-    external 'opengl32.dll' name 'glDisableVertexAttribAPPLE';
+    private z_DisableVertexAttribAPPLE_adr := GetFuncAdr('glDisableVertexAttribAPPLE');
+    private z_DisableVertexAttribAPPLE_ovr_0 := GetFuncOrNil&(z_DisableVertexAttribAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexAttribAPPLE(index: UInt32; pname: DummyEnum) :=
     z_DisableVertexAttribAPPLE_ovr_0(index, pname);
     
-    private static function z_IsVertexAttribEnabledAPPLE_ovr_0(index: UInt32; pname: DummyEnum): boolean;
-    external 'opengl32.dll' name 'glIsVertexAttribEnabledAPPLE';
+    private z_IsVertexAttribEnabledAPPLE_adr := GetFuncAdr('glIsVertexAttribEnabledAPPLE');
+    private z_IsVertexAttribEnabledAPPLE_ovr_0 := GetFuncOrNil&(z_IsVertexAttribEnabledAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexAttribEnabledAPPLE(index: UInt32; pname: DummyEnum): boolean :=
     z_IsVertexAttribEnabledAPPLE_ovr_0(index, pname);
     
-    private static procedure z_MapVertexAttrib1dAPPLE_ovr_0(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; var points: real);
-    external 'opengl32.dll' name 'glMapVertexAttrib1dAPPLE';
-    private static procedure z_MapVertexAttrib1dAPPLE_ovr_0_anh00000001(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib1dAPPLE';
+    private z_MapVertexAttrib1dAPPLE_adr := GetFuncAdr('glMapVertexAttrib1dAPPLE');
+    private z_MapVertexAttrib1dAPPLE_ovr_0 := GetFuncOrNil&(z_MapVertexAttrib1dAPPLE_adr);
+    private z_MapVertexAttrib1dAPPLE_ovr_0_anh00000001 := GetFuncOrNil&(z_MapVertexAttrib1dAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; points: array of real) :=
     if (points<>nil) and (points.Length<>0) then
       z_MapVertexAttrib1dAPPLE_ovr_0(index, size, u1, u2, stride, order, points[0]) else
       z_MapVertexAttrib1dAPPLE_ovr_0_anh00000001(index, size, u1, u2, stride, order, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; var points: real) :=
     z_MapVertexAttrib1dAPPLE_ovr_0(index, size, u1, u2, stride, order, points);
-    private static procedure z_MapVertexAttrib1dAPPLE_ovr_2(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib1dAPPLE';
+    private z_MapVertexAttrib1dAPPLE_ovr_2 := GetFuncOrNil&(z_MapVertexAttrib1dAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; stride: Int32; order: Int32; points: IntPtr) :=
     z_MapVertexAttrib1dAPPLE_ovr_2(index, size, u1, u2, stride, order, points);
     
-    private static procedure z_MapVertexAttrib1fAPPLE_ovr_0(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; var points: single);
-    external 'opengl32.dll' name 'glMapVertexAttrib1fAPPLE';
-    private static procedure z_MapVertexAttrib1fAPPLE_ovr_0_anh00000001(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib1fAPPLE';
+    private z_MapVertexAttrib1fAPPLE_adr := GetFuncAdr('glMapVertexAttrib1fAPPLE');
+    private z_MapVertexAttrib1fAPPLE_ovr_0 := GetFuncOrNil&(z_MapVertexAttrib1fAPPLE_adr);
+    private z_MapVertexAttrib1fAPPLE_ovr_0_anh00000001 := GetFuncOrNil&(z_MapVertexAttrib1fAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_MapVertexAttrib1fAPPLE_ovr_0(index, size, u1, u2, stride, order, points[0]) else
       z_MapVertexAttrib1fAPPLE_ovr_0_anh00000001(index, size, u1, u2, stride, order, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; var points: single) :=
     z_MapVertexAttrib1fAPPLE_ovr_0(index, size, u1, u2, stride, order, points);
-    private static procedure z_MapVertexAttrib1fAPPLE_ovr_2(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib1fAPPLE';
+    private z_MapVertexAttrib1fAPPLE_ovr_2 := GetFuncOrNil&(z_MapVertexAttrib1fAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib1fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; stride: Int32; order: Int32; points: IntPtr) :=
     z_MapVertexAttrib1fAPPLE_ovr_2(index, size, u1, u2, stride, order, points);
     
-    private static procedure z_MapVertexAttrib2dAPPLE_ovr_0(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; var points: real);
-    external 'opengl32.dll' name 'glMapVertexAttrib2dAPPLE';
-    private static procedure z_MapVertexAttrib2dAPPLE_ovr_0_anh000000000001(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib2dAPPLE';
+    private z_MapVertexAttrib2dAPPLE_adr := GetFuncAdr('glMapVertexAttrib2dAPPLE');
+    private z_MapVertexAttrib2dAPPLE_ovr_0 := GetFuncOrNil&(z_MapVertexAttrib2dAPPLE_adr);
+    private z_MapVertexAttrib2dAPPLE_ovr_0_anh000000000001 := GetFuncOrNil&(z_MapVertexAttrib2dAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: array of real) :=
     if (points<>nil) and (points.Length<>0) then
       z_MapVertexAttrib2dAPPLE_ovr_0(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
       z_MapVertexAttrib2dAPPLE_ovr_0_anh000000000001(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; var points: real) :=
     z_MapVertexAttrib2dAPPLE_ovr_0(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-    private static procedure z_MapVertexAttrib2dAPPLE_ovr_2(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib2dAPPLE';
+    private z_MapVertexAttrib2dAPPLE_ovr_2 := GetFuncOrNil&(z_MapVertexAttrib2dAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2dAPPLE(index: UInt32; size: UInt32; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; points: IntPtr) :=
     z_MapVertexAttrib2dAPPLE_ovr_2(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     
-    private static procedure z_MapVertexAttrib2fAPPLE_ovr_0(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; var points: single);
-    external 'opengl32.dll' name 'glMapVertexAttrib2fAPPLE';
-    private static procedure z_MapVertexAttrib2fAPPLE_ovr_0_anh000000000001(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib2fAPPLE';
+    private z_MapVertexAttrib2fAPPLE_adr := GetFuncAdr('glMapVertexAttrib2fAPPLE');
+    private z_MapVertexAttrib2fAPPLE_ovr_0 := GetFuncOrNil&(z_MapVertexAttrib2fAPPLE_adr);
+    private z_MapVertexAttrib2fAPPLE_ovr_0_anh000000000001 := GetFuncOrNil&(z_MapVertexAttrib2fAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_MapVertexAttrib2fAPPLE_ovr_0(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points[0]) else
       z_MapVertexAttrib2fAPPLE_ovr_0_anh000000000001(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; var points: single) :=
     z_MapVertexAttrib2fAPPLE_ovr_0(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
-    private static procedure z_MapVertexAttrib2fAPPLE_ovr_2(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glMapVertexAttrib2fAPPLE';
+    private z_MapVertexAttrib2fAPPLE_ovr_2 := GetFuncOrNil&(z_MapVertexAttrib2fAPPLE_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapVertexAttrib2fAPPLE(index: UInt32; size: UInt32; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; points: IntPtr) :=
     z_MapVertexAttrib2fAPPLE_ovr_2(index, size, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     
   end;
   
   [PCUNotRestore]
-  glES2CompatibilityARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glES2CompatibilityARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_ES2_compatibility';
     
-    private static procedure z_ReleaseShaderCompiler_ovr_0;
-    external 'opengl32.dll' name 'glReleaseShaderCompiler';
+    private z_ReleaseShaderCompiler_adr := GetFuncAdr('glReleaseShaderCompiler');
+    private z_ReleaseShaderCompiler_ovr_0 := GetFuncOrNil&(z_ReleaseShaderCompiler_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReleaseShaderCompiler :=
     z_ReleaseShaderCompiler_ovr_0;
     
-    private static procedure z_ShaderBinary_ovr_0(count: Int32; var shaders: UInt32; binaryformat: DummyEnum; binary: IntPtr; length: Int32);
-    external 'opengl32.dll' name 'glShaderBinary';
-    private static procedure z_ShaderBinary_ovr_0_anh001000(count: Int32; shaders: IntPtr; binaryformat: DummyEnum; binary: IntPtr; length: Int32);
-    external 'opengl32.dll' name 'glShaderBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: array of UInt32; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
+    private z_ShaderBinary_adr := GetFuncAdr('glShaderBinary');
+    private z_ShaderBinary_ovr_0 := GetFuncOrNil&(z_ShaderBinary_adr);
+    private z_ShaderBinary_ovr_0_anh001000 := GetFuncOrNil&(z_ShaderBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: array of gl_shader; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
     if (shaders<>nil) and (shaders.Length<>0) then
-      z_ShaderBinary_ovr_0(count, shaders[0], binaryformat, binary, length) else
-      z_ShaderBinary_ovr_0_anh001000(count, IntPtr.Zero, binaryformat, binary, length);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; var shaders: UInt32; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
-    z_ShaderBinary_ovr_0(count, shaders, binaryformat, binary, length);
-    private static procedure z_ShaderBinary_ovr_2(count: Int32; shaders: IntPtr; binaryformat: DummyEnum; binary: IntPtr; length: Int32);
-    external 'opengl32.dll' name 'glShaderBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: IntPtr; binaryformat: DummyEnum; binary: IntPtr; length: Int32) :=
-    z_ShaderBinary_ovr_2(count, shaders, binaryformat, binary, length);
+      z_ShaderBinary_ovr_0(count, shaders[0], binaryFormat, binary, length) else
+      z_ShaderBinary_ovr_0_anh001000(count, IntPtr.Zero, binaryFormat, binary, length);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; var shaders: gl_shader; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
+    z_ShaderBinary_ovr_0(count, shaders, binaryFormat, binary, length);
+    private z_ShaderBinary_ovr_2 := GetFuncOrNil&(z_ShaderBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderBinary(count: Int32; shaders: IntPtr; binaryFormat: ShaderBinaryFormat; binary: IntPtr; length: Int32) :=
+    z_ShaderBinary_ovr_2(count, shaders, binaryFormat, binary, length);
     
-    private static procedure z_GetShaderPrecisionFormat_ovr_0(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; var precision: Int32);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    private static procedure z_GetShaderPrecisionFormat_ovr_0_anh00010(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; var precision: Int32);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    private static procedure z_GetShaderPrecisionFormat_ovr_0_anh00001(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    private static procedure z_GetShaderPrecisionFormat_ovr_0_anh00011(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; precision: array of Int32) :=
-    if (range<>nil) and (range.Length<>0) then
-      if (precision<>nil) and (precision.Length<>0) then
-        z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range[0], precision[0]) else
-        z_GetShaderPrecisionFormat_ovr_0_anh00001(_shadertype, _precisiontype, range[0], IntPtr.Zero) else
-      if (precision<>nil) and (precision.Length<>0) then
-        z_GetShaderPrecisionFormat_ovr_0_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision[0]) else
-        z_GetShaderPrecisionFormat_ovr_0_anh00011(_shadertype, _precisiontype, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetShaderPrecisionFormat_ovr_1_anh00010(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; var precision: Int32);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
+    private z_GetShaderPrecisionFormat_adr := GetFuncAdr('glGetShaderPrecisionFormat');
+    private z_GetShaderPrecisionFormat_ovr_0 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
+    private z_GetShaderPrecisionFormat_ovr_0_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; var precision: Int32) :=
     if (range<>nil) and (range.Length<>0) then
       z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range[0], precision) else
       z_GetShaderPrecisionFormat_ovr_0_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
-    private static procedure z_GetShaderPrecisionFormat_ovr_2(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    private static procedure z_GetShaderPrecisionFormat_ovr_2_anh00010(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
+    private z_GetShaderPrecisionFormat_ovr_1 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
+    private z_GetShaderPrecisionFormat_ovr_1_anh00010 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: array of Int32; precision: IntPtr) :=
     if (range<>nil) and (range.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_2(_shadertype, _precisiontype, range[0], precision) else
-      z_GetShaderPrecisionFormat_ovr_2_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: array of Int32) :=
-    if (precision<>nil) and (precision.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range, precision[0]) else
-      z_GetShaderPrecisionFormat_ovr_0_anh00001(_shadertype, _precisiontype, range, IntPtr.Zero);
+      z_GetShaderPrecisionFormat_ovr_1(_shadertype, _precisiontype, range[0], precision) else
+      z_GetShaderPrecisionFormat_ovr_1_anh00010(_shadertype, _precisiontype, IntPtr.Zero, precision);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; var precision: Int32) :=
     z_GetShaderPrecisionFormat_ovr_0(_shadertype, _precisiontype, range, precision);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; var range: Int32; precision: IntPtr) :=
-    z_GetShaderPrecisionFormat_ovr_2(_shadertype, _precisiontype, range, precision);
-    private static procedure z_GetShaderPrecisionFormat_ovr_6(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; var precision: Int32);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    private static procedure z_GetShaderPrecisionFormat_ovr_6_anh00001(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: array of Int32) :=
-    if (precision<>nil) and (precision.Length<>0) then
-      z_GetShaderPrecisionFormat_ovr_6(_shadertype, _precisiontype, range, precision[0]) else
-      z_GetShaderPrecisionFormat_ovr_6_anh00001(_shadertype, _precisiontype, range, IntPtr.Zero);
+    z_GetShaderPrecisionFormat_ovr_1(_shadertype, _precisiontype, range, precision);
+    private z_GetShaderPrecisionFormat_ovr_4 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; var precision: Int32) :=
-    z_GetShaderPrecisionFormat_ovr_6(_shadertype, _precisiontype, range, precision);
-    private static procedure z_GetShaderPrecisionFormat_ovr_8(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderPrecisionFormat';
+    z_GetShaderPrecisionFormat_ovr_4(_shadertype, _precisiontype, range, precision);
+    private z_GetShaderPrecisionFormat_ovr_5 := GetFuncOrNil&(z_GetShaderPrecisionFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderPrecisionFormat(_shadertype: ShaderType; _precisiontype: PrecisionType; range: IntPtr; precision: IntPtr) :=
-    z_GetShaderPrecisionFormat_ovr_8(_shadertype, _precisiontype, range, precision);
+    z_GetShaderPrecisionFormat_ovr_5(_shadertype, _precisiontype, range, precision);
     
-    private static procedure z_DepthRangef_ovr_0(n: single; f: single);
-    external 'opengl32.dll' name 'glDepthRangef';
+    private z_DepthRangef_adr := GetFuncAdr('glDepthRangef');
+    private z_DepthRangef_ovr_0 := GetFuncOrNil&(z_DepthRangef_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangef(n: single; f: single) :=
     z_DepthRangef_ovr_0(n, f);
     
-    private static procedure z_ClearDepthf_ovr_0(d: single);
-    external 'opengl32.dll' name 'glClearDepthf';
+    private z_ClearDepthf_adr := GetFuncAdr('glClearDepthf');
+    private z_ClearDepthf_ovr_0 := GetFuncOrNil&(z_ClearDepthf_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearDepthf(d: single) :=
     z_ClearDepthf_ovr_0(d);
     
   end;
   
   [PCUNotRestore]
-  glES31CompatibilityARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glES31CompatibilityARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_ES3_1_compatibility';
     
-    private static procedure z_MemoryBarrierByRegion_ovr_0(barriers: MemoryBarrierMask);
-    external 'opengl32.dll' name 'glMemoryBarrierByRegion';
+    private z_MemoryBarrierByRegion_adr := GetFuncAdr('glMemoryBarrierByRegion');
+    private z_MemoryBarrierByRegion_ovr_0 := GetFuncOrNil&(z_MemoryBarrierByRegion_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryBarrierByRegion(barriers: MemoryBarrierMask) :=
     z_MemoryBarrierByRegion_ovr_0(barriers);
     
   end;
   
   [PCUNotRestore]
-  glES32CompatibilityARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glES32CompatibilityARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_ES3_2_compatibility';
     
-    private static procedure z_PrimitiveBoundingBoxARB_ovr_0(minX: single; minY: single; minZ: single; minW: single; maxX: single; maxY: single; maxZ: single; maxW: single);
-    external 'opengl32.dll' name 'glPrimitiveBoundingBoxARB';
+    private z_PrimitiveBoundingBoxARB_adr := GetFuncAdr('glPrimitiveBoundingBoxARB');
+    private z_PrimitiveBoundingBoxARB_ovr_0 := GetFuncOrNil&(z_PrimitiveBoundingBoxARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrimitiveBoundingBoxARB(minX: single; minY: single; minZ: single; minW: single; maxX: single; maxY: single; maxZ: single; maxW: single) :=
     z_PrimitiveBoundingBoxARB_ovr_0(minX, minY, minZ, minW, maxX, maxY, maxZ, maxW);
     
   end;
   
   [PCUNotRestore]
-  glBaseInstanceARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBaseInstanceARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_base_instance';
     
-    private static procedure z_DrawArraysInstancedBaseInstance_ovr_0(mode: PrimitiveType; first: Int32; count: Int32; instancecount: Int32; baseinstance: UInt32);
-    external 'opengl32.dll' name 'glDrawArraysInstancedBaseInstance';
+    private z_DrawArraysInstancedBaseInstance_adr := GetFuncAdr('glDrawArraysInstancedBaseInstance');
+    private z_DrawArraysInstancedBaseInstance_ovr_0 := GetFuncOrNil&(z_DrawArraysInstancedBaseInstance_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArraysInstancedBaseInstance(mode: PrimitiveType; first: Int32; count: Int32; instancecount: Int32; baseinstance: UInt32) :=
     z_DrawArraysInstancedBaseInstance_ovr_0(mode, first, count, instancecount, baseinstance);
     
-    private static procedure z_DrawElementsInstancedBaseInstance_ovr_0(mode: PrimitiveType; count: Int32; &type: PrimitiveType; indices: IntPtr; instancecount: Int32; baseinstance: UInt32);
-    external 'opengl32.dll' name 'glDrawElementsInstancedBaseInstance';
+    private z_DrawElementsInstancedBaseInstance_adr := GetFuncAdr('glDrawElementsInstancedBaseInstance');
+    private z_DrawElementsInstancedBaseInstance_ovr_0 := GetFuncOrNil&(z_DrawElementsInstancedBaseInstance_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsInstancedBaseInstance(mode: PrimitiveType; count: Int32; &type: PrimitiveType; indices: IntPtr; instancecount: Int32; baseinstance: UInt32) :=
     z_DrawElementsInstancedBaseInstance_ovr_0(mode, count, &type, indices, instancecount, baseinstance);
     
-    private static procedure z_DrawElementsInstancedBaseVertexBaseInstance_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; instancecount: Int32; basevertex: Int32; baseinstance: UInt32);
-    external 'opengl32.dll' name 'glDrawElementsInstancedBaseVertexBaseInstance';
+    private z_DrawElementsInstancedBaseVertexBaseInstance_adr := GetFuncAdr('glDrawElementsInstancedBaseVertexBaseInstance');
+    private z_DrawElementsInstancedBaseVertexBaseInstance_ovr_0 := GetFuncOrNil&(z_DrawElementsInstancedBaseVertexBaseInstance_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsInstancedBaseVertexBaseInstance(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; instancecount: Int32; basevertex: Int32; baseinstance: UInt32) :=
     z_DrawElementsInstancedBaseVertexBaseInstance_ovr_0(mode, count, &type, indices, instancecount, basevertex, baseinstance);
     
   end;
   
   [PCUNotRestore]
-  glBindlessTextureARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBindlessTextureARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_bindless_texture';
     
-    private static function z_GetTextureHandleARB_ovr_0(texture: UInt32): UInt64;
-    external 'opengl32.dll' name 'glGetTextureHandleARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureHandleARB(texture: UInt32): UInt64 :=
+    private z_GetTextureHandleARB_adr := GetFuncAdr('glGetTextureHandleARB');
+    private z_GetTextureHandleARB_ovr_0 := GetFuncOrNil&(z_GetTextureHandleARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureHandleARB(texture: gl_texture): UInt64 :=
     z_GetTextureHandleARB_ovr_0(texture);
     
-    private static function z_GetTextureSamplerHandleARB_ovr_0(texture: UInt32; sampler: UInt32): UInt64;
-    external 'opengl32.dll' name 'glGetTextureSamplerHandleARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureSamplerHandleARB(texture: UInt32; sampler: UInt32): UInt64 :=
+    private z_GetTextureSamplerHandleARB_adr := GetFuncAdr('glGetTextureSamplerHandleARB');
+    private z_GetTextureSamplerHandleARB_ovr_0 := GetFuncOrNil&(z_GetTextureSamplerHandleARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureSamplerHandleARB(texture: gl_texture; sampler: gl_sampler): UInt64 :=
     z_GetTextureSamplerHandleARB_ovr_0(texture, sampler);
     
-    private static procedure z_MakeTextureHandleResidentARB_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeTextureHandleResidentARB';
+    private z_MakeTextureHandleResidentARB_adr := GetFuncAdr('glMakeTextureHandleResidentARB');
+    private z_MakeTextureHandleResidentARB_ovr_0 := GetFuncOrNil&(z_MakeTextureHandleResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeTextureHandleResidentARB(handle: UInt64) :=
     z_MakeTextureHandleResidentARB_ovr_0(handle);
     
-    private static procedure z_MakeTextureHandleNonResidentARB_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeTextureHandleNonResidentARB';
+    private z_MakeTextureHandleNonResidentARB_adr := GetFuncAdr('glMakeTextureHandleNonResidentARB');
+    private z_MakeTextureHandleNonResidentARB_ovr_0 := GetFuncOrNil&(z_MakeTextureHandleNonResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeTextureHandleNonResidentARB(handle: UInt64) :=
     z_MakeTextureHandleNonResidentARB_ovr_0(handle);
     
-    private static function z_GetImageHandleARB_ovr_0(texture: UInt32; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64;
-    external 'opengl32.dll' name 'glGetImageHandleARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetImageHandleARB(texture: UInt32; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64 :=
+    private z_GetImageHandleARB_adr := GetFuncAdr('glGetImageHandleARB');
+    private z_GetImageHandleARB_ovr_0 := GetFuncOrNil&(z_GetImageHandleARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetImageHandleARB(texture: gl_texture; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64 :=
     z_GetImageHandleARB_ovr_0(texture, level, layered, layer, format);
     
-    private static procedure z_MakeImageHandleResidentARB_ovr_0(handle: UInt64; access: DummyEnum);
-    external 'opengl32.dll' name 'glMakeImageHandleResidentARB';
+    private z_MakeImageHandleResidentARB_adr := GetFuncAdr('glMakeImageHandleResidentARB');
+    private z_MakeImageHandleResidentARB_ovr_0 := GetFuncOrNil&(z_MakeImageHandleResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeImageHandleResidentARB(handle: UInt64; access: DummyEnum) :=
     z_MakeImageHandleResidentARB_ovr_0(handle, access);
     
-    private static procedure z_MakeImageHandleNonResidentARB_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeImageHandleNonResidentARB';
+    private z_MakeImageHandleNonResidentARB_adr := GetFuncAdr('glMakeImageHandleNonResidentARB');
+    private z_MakeImageHandleNonResidentARB_ovr_0 := GetFuncOrNil&(z_MakeImageHandleNonResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeImageHandleNonResidentARB(handle: UInt64) :=
     z_MakeImageHandleNonResidentARB_ovr_0(handle);
     
-    private static procedure z_UniformHandleui64ARB_ovr_0(location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glUniformHandleui64ARB';
+    private z_UniformHandleui64ARB_adr := GetFuncAdr('glUniformHandleui64ARB');
+    private z_UniformHandleui64ARB_ovr_0 := GetFuncOrNil&(z_UniformHandleui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64ARB(location: Int32; value: UInt64) :=
     z_UniformHandleui64ARB_ovr_0(location, value);
     
-    private static procedure z_UniformHandleui64vARB_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniformHandleui64vARB';
-    private static procedure z_UniformHandleui64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformHandleui64vARB';
+    private z_UniformHandleui64vARB_adr := GetFuncAdr('glUniformHandleui64vARB');
+    private z_UniformHandleui64vARB_ovr_0 := GetFuncOrNil&(z_UniformHandleui64vARB_adr);
+    private z_UniformHandleui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_UniformHandleui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vARB(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformHandleui64vARB_ovr_0(location, count, value[0]) else
       z_UniformHandleui64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vARB(location: Int32; count: Int32; var value: UInt64) :=
     z_UniformHandleui64vARB_ovr_0(location, count, value);
-    private static procedure z_UniformHandleui64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformHandleui64vARB';
+    private z_UniformHandleui64vARB_ovr_2 := GetFuncOrNil&(z_UniformHandleui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_UniformHandleui64vARB_ovr_2(location, count, value);
     
-    private static procedure z_ProgramUniformHandleui64ARB_ovr_0(&program: UInt32; location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64ARB(&program: UInt32; location: Int32; value: UInt64) :=
+    private z_ProgramUniformHandleui64ARB_adr := GetFuncAdr('glProgramUniformHandleui64ARB');
+    private z_ProgramUniformHandleui64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniformHandleui64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64ARB(&program: gl_program; location: Int32; value: UInt64) :=
     z_ProgramUniformHandleui64ARB_ovr_0(&program, location, value);
     
-    private static procedure z_ProgramUniformHandleui64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var values: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vARB';
-    private static procedure z_ProgramUniformHandleui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: UInt32; location: Int32; count: Int32; values: array of UInt64) :=
+    private z_ProgramUniformHandleui64vARB_adr := GetFuncAdr('glProgramUniformHandleui64vARB');
+    private z_ProgramUniformHandleui64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniformHandleui64vARB_adr);
+    private z_ProgramUniformHandleui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniformHandleui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: gl_program; location: Int32; count: Int32; values: array of UInt64) :=
     if (values<>nil) and (values.Length<>0) then
       z_ProgramUniformHandleui64vARB_ovr_0(&program, location, count, values[0]) else
       z_ProgramUniformHandleui64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: UInt32; location: Int32; count: Int32; var values: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: gl_program; location: Int32; count: Int32; var values: UInt64) :=
     z_ProgramUniformHandleui64vARB_ovr_0(&program, location, count, values);
-    private static procedure z_ProgramUniformHandleui64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: UInt32; location: Int32; count: Int32; values: IntPtr) :=
+    private z_ProgramUniformHandleui64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniformHandleui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vARB(&program: gl_program; location: Int32; count: Int32; values: IntPtr) :=
     z_ProgramUniformHandleui64vARB_ovr_2(&program, location, count, values);
     
-    private static function z_IsTextureHandleResidentARB_ovr_0(handle: UInt64): boolean;
-    external 'opengl32.dll' name 'glIsTextureHandleResidentARB';
+    private z_IsTextureHandleResidentARB_adr := GetFuncAdr('glIsTextureHandleResidentARB');
+    private z_IsTextureHandleResidentARB_ovr_0 := GetFuncOrNil&(z_IsTextureHandleResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTextureHandleResidentARB(handle: UInt64): boolean :=
     z_IsTextureHandleResidentARB_ovr_0(handle);
     
-    private static function z_IsImageHandleResidentARB_ovr_0(handle: UInt64): boolean;
-    external 'opengl32.dll' name 'glIsImageHandleResidentARB';
+    private z_IsImageHandleResidentARB_adr := GetFuncAdr('glIsImageHandleResidentARB');
+    private z_IsImageHandleResidentARB_ovr_0 := GetFuncOrNil&(z_IsImageHandleResidentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsImageHandleResidentARB(handle: UInt64): boolean :=
     z_IsImageHandleResidentARB_ovr_0(handle);
     
-    private static procedure z_VertexAttribL1ui64ARB_ovr_0(index: UInt32; x: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64ARB';
+    private z_VertexAttribL1ui64ARB_adr := GetFuncAdr('glVertexAttribL1ui64ARB');
+    private z_VertexAttribL1ui64ARB_ovr_0 := GetFuncOrNil&(z_VertexAttribL1ui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64ARB(index: UInt32; x: UInt64) :=
     z_VertexAttribL1ui64ARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttribL1ui64vARB_ovr_0(index: UInt32; var v: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vARB';
-    private static procedure z_VertexAttribL1ui64vARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vARB';
+    private z_VertexAttribL1ui64vARB_adr := GetFuncAdr('glVertexAttribL1ui64vARB');
+    private z_VertexAttribL1ui64vARB_ovr_0 := GetFuncOrNil&(z_VertexAttribL1ui64vARB_adr);
+    private z_VertexAttribL1ui64vARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL1ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vARB(index: UInt32; v: array of UInt64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL1ui64vARB_ovr_0(index, v[0]) else
       z_VertexAttribL1ui64vARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vARB(index: UInt32; var v: UInt64) :=
     z_VertexAttribL1ui64vARB_ovr_0(index, v);
-    private static procedure z_VertexAttribL1ui64vARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vARB';
+    private z_VertexAttribL1ui64vARB_ovr_2 := GetFuncOrNil&(z_VertexAttribL1ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vARB(index: UInt32; v: IntPtr) :=
     z_VertexAttribL1ui64vARB_ovr_2(index, v);
     
-    private static procedure z_GetVertexAttribLui64vARB_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vARB';
-    private static procedure z_GetVertexAttribLui64vARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vARB';
+    private z_GetVertexAttribLui64vARB_adr := GetFuncAdr('glGetVertexAttribLui64vARB');
+    private z_GetVertexAttribLui64vARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribLui64vARB_adr);
+    private z_GetVertexAttribLui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribLui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vARB(index: UInt32; pname: VertexAttribEnum; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribLui64vARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribLui64vARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vARB(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt64) :=
     z_GetVertexAttribLui64vARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribLui64vARB_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vARB';
+    private z_GetVertexAttribLui64vARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribLui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vARB(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
     z_GetVertexAttribLui64vARB_ovr_2(index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glBlendFuncExtendedARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendFuncExtendedARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_blend_func_extended';
     
-    private static procedure z_BindFragDataLocationIndexed_ovr_0(&program: ProgramName; colorNumber: UInt32; index: UInt32; name: IntPtr);
-    external 'opengl32.dll' name 'glBindFragDataLocationIndexed';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: ProgramName; colorNumber: UInt32; index: UInt32; name: string);
+    private z_BindFragDataLocationIndexed_adr := GetFuncAdr('glBindFragDataLocationIndexed');
+    private z_BindFragDataLocationIndexed_ovr_0 := GetFuncOrNil&(z_BindFragDataLocationIndexed_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: gl_program; colorNumber: UInt32; index: UInt32; name: string);
     begin
       var par_4_str_ptr: IntPtr;
       try
@@ -37156,12 +38325,12 @@ type
         Marshal.FreeHGlobal(par_4_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: ProgramName; colorNumber: UInt32; index: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationIndexed(&program: gl_program; colorNumber: UInt32; index: UInt32; name: IntPtr) :=
     z_BindFragDataLocationIndexed_ovr_0(&program, colorNumber, index, name);
     
-    private static function z_GetFragDataIndex_ovr_0(&program: ProgramName; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetFragDataIndex';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: ProgramName; name: string): Int32;
+    private z_GetFragDataIndex_adr := GetFuncAdr('glGetFragDataIndex');
+    private z_GetFragDataIndex_ovr_0 := GetFuncOrNil&(z_GetFragDataIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -37171,45 +38340,46 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: ProgramName; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataIndex(&program: gl_program; name: IntPtr): Int32 :=
     z_GetFragDataIndex_ovr_0(&program, name);
     
   end;
   
   [PCUNotRestore]
-  glBufferStorageARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBufferStorageARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_buffer_storage';
     
-    private static procedure z_BufferStorage_ovr_0(target: BufferStorageTarget; size: IntPtr; data: IntPtr; flags: BufferStorageMask);
-    external 'opengl32.dll' name 'glBufferStorage';
+    private z_BufferStorage_adr := GetFuncAdr('glBufferStorage');
+    private z_BufferStorage_ovr_0 := GetFuncOrNil&(z_BufferStorage_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferStorage(target: BufferStorageTarget; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
     z_BufferStorage_ovr_0(target, size, data, flags);
     
   end;
   
   [PCUNotRestore]
-  glClEventARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glClEventARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_cl_event';
     
-    private static function z_CreateSyncFromCLeventARB_ovr_0(var context: cl_context; var &event: cl_event; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    private static function z_CreateSyncFromCLeventARB_ovr_0_anh0100(context: IntPtr; var &event: cl_event; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    private static function z_CreateSyncFromCLeventARB_ovr_0_anh0010(var context: cl_context; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    private static function z_CreateSyncFromCLeventARB_ovr_0_anh0110(context: IntPtr; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of cl_context; &event: array of cl_event; flags: DummyFlags): GLsync :=
+    private z_CreateSyncFromCLeventARB_adr := GetFuncAdr('glCreateSyncFromCLeventARB');
+    private z_CreateSyncFromCLeventARB_ovr_0 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    private z_CreateSyncFromCLeventARB_ovr_0_anh0100 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    private z_CreateSyncFromCLeventARB_ovr_0_anh0010 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    private z_CreateSyncFromCLeventARB_ovr_0_anh0110 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of gl_cl_context; &event: array of gl_cl_event; flags: DummyFlags): gl_sync :=
     if (context<>nil) and (context.Length<>0) then
       if (&event<>nil) and (&event.Length<>0) then
         z_CreateSyncFromCLeventARB_ovr_0(context[0], &event[0], flags) else
@@ -37217,214 +38387,224 @@ type
       if (&event<>nil) and (&event.Length<>0) then
         z_CreateSyncFromCLeventARB_ovr_0_anh0100(IntPtr.Zero, &event[0], flags) else
         z_CreateSyncFromCLeventARB_ovr_0_anh0110(IntPtr.Zero, IntPtr.Zero, flags);
-    private static function z_CreateSyncFromCLeventARB_ovr_1_anh0100(context: IntPtr; var &event: cl_event; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of cl_context; var &event: cl_event; flags: DummyFlags): GLsync :=
+    private z_CreateSyncFromCLeventARB_ovr_1_anh0100 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of gl_cl_context; var &event: gl_cl_event; flags: DummyFlags): gl_sync :=
     if (context<>nil) and (context.Length<>0) then
       z_CreateSyncFromCLeventARB_ovr_0(context[0], &event, flags) else
       z_CreateSyncFromCLeventARB_ovr_0_anh0100(IntPtr.Zero, &event, flags);
-    private static function z_CreateSyncFromCLeventARB_ovr_2(var context: cl_context; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    private static function z_CreateSyncFromCLeventARB_ovr_2_anh0100(context: IntPtr; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of cl_context; &event: IntPtr; flags: DummyFlags): GLsync :=
+    private z_CreateSyncFromCLeventARB_ovr_2 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    private z_CreateSyncFromCLeventARB_ovr_2_anh0100 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: array of gl_cl_context; &event: IntPtr; flags: DummyFlags): gl_sync :=
     if (context<>nil) and (context.Length<>0) then
       z_CreateSyncFromCLeventARB_ovr_2(context[0], &event, flags) else
       z_CreateSyncFromCLeventARB_ovr_2_anh0100(IntPtr.Zero, &event, flags);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: cl_context; &event: array of cl_event; flags: DummyFlags): GLsync :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: gl_cl_context; &event: array of gl_cl_event; flags: DummyFlags): gl_sync :=
     if (&event<>nil) and (&event.Length<>0) then
       z_CreateSyncFromCLeventARB_ovr_0(context, &event[0], flags) else
       z_CreateSyncFromCLeventARB_ovr_0_anh0010(context, IntPtr.Zero, flags);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: cl_context; var &event: cl_event; flags: DummyFlags): GLsync :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: gl_cl_context; var &event: gl_cl_event; flags: DummyFlags): gl_sync :=
     z_CreateSyncFromCLeventARB_ovr_0(context, &event, flags);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: cl_context; &event: IntPtr; flags: DummyFlags): GLsync :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(var context: gl_cl_context; &event: IntPtr; flags: DummyFlags): gl_sync :=
     z_CreateSyncFromCLeventARB_ovr_2(context, &event, flags);
-    private static function z_CreateSyncFromCLeventARB_ovr_6(context: IntPtr; var &event: cl_event; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    private static function z_CreateSyncFromCLeventARB_ovr_6_anh0010(context: IntPtr; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; &event: array of cl_event; flags: DummyFlags): GLsync :=
+    private z_CreateSyncFromCLeventARB_ovr_6 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    private z_CreateSyncFromCLeventARB_ovr_6_anh0010 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; &event: array of gl_cl_event; flags: DummyFlags): gl_sync :=
     if (&event<>nil) and (&event.Length<>0) then
       z_CreateSyncFromCLeventARB_ovr_6(context, &event[0], flags) else
       z_CreateSyncFromCLeventARB_ovr_6_anh0010(context, IntPtr.Zero, flags);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; var &event: cl_event; flags: DummyFlags): GLsync :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; var &event: gl_cl_event; flags: DummyFlags): gl_sync :=
     z_CreateSyncFromCLeventARB_ovr_6(context, &event, flags);
-    private static function z_CreateSyncFromCLeventARB_ovr_8(context: IntPtr; &event: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glCreateSyncFromCLeventARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; &event: IntPtr; flags: DummyFlags): GLsync :=
+    private z_CreateSyncFromCLeventARB_ovr_8 := GetFuncOrNil&(z_CreateSyncFromCLeventARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateSyncFromCLeventARB(context: IntPtr; &event: IntPtr; flags: DummyFlags): gl_sync :=
     z_CreateSyncFromCLeventARB_ovr_8(context, &event, flags);
     
   end;
   
   [PCUNotRestore]
-  glClearBufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glClearBufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_clear_buffer_object';
     
-    private static procedure z_ClearBufferData_ovr_0(target: BufferStorageTarget; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearBufferData';
+    private z_ClearBufferData_adr := GetFuncAdr('glClearBufferData');
+    private z_ClearBufferData_ovr_0 := GetFuncOrNil&(z_ClearBufferData_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearBufferData(target: BufferStorageTarget; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearBufferData_ovr_0(target, _internalformat, format, &type, data);
     
-    private static procedure z_ClearBufferSubData_ovr_0(target: BufferTargetARB; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearBufferSubData';
+    private z_ClearBufferSubData_adr := GetFuncAdr('glClearBufferSubData');
+    private z_ClearBufferSubData_ovr_0 := GetFuncOrNil&(z_ClearBufferSubData_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearBufferSubData(target: BufferTargetARB; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearBufferSubData_ovr_0(target, _internalformat, offset, size, format, &type, data);
     
   end;
   
   [PCUNotRestore]
-  glClearTextureARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glClearTextureARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_clear_texture';
     
-    private static procedure z_ClearTexImage_ovr_0(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearTexImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexImage(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearTexImage_adr := GetFuncAdr('glClearTexImage');
+    private z_ClearTexImage_ovr_0 := GetFuncOrNil&(z_ClearTexImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexImage(texture: gl_texture; level: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearTexImage_ovr_0(texture, level, format, &type, data);
     
-    private static procedure z_ClearTexSubImage_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearTexSubImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearTexSubImage_adr := GetFuncAdr('glClearTexSubImage');
+    private z_ClearTexSubImage_ovr_0 := GetFuncOrNil&(z_ClearTexSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearTexSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearTexSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, data);
     
   end;
   
   [PCUNotRestore]
-  glClipControlARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glClipControlARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_clip_control';
     
-    private static procedure z_ClipControl_ovr_0(origin: ClipControlOrigin; depth: ClipControlDepth);
-    external 'opengl32.dll' name 'glClipControl';
+    private z_ClipControl_adr := GetFuncAdr('glClipControl');
+    private z_ClipControl_ovr_0 := GetFuncOrNil&(z_ClipControl_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipControl(origin: ClipControlOrigin; depth: ClipControlDepth) :=
     z_ClipControl_ovr_0(origin, depth);
     
   end;
   
   [PCUNotRestore]
-  glColorBufferFloatARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glColorBufferFloatARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_color_buffer_float';
     
-    private static procedure z_ClampColorARB_ovr_0(target: ClampColorTargetARB; clamp: ClampColorModeARB);
-    external 'opengl32.dll' name 'glClampColorARB';
+    private z_ClampColorARB_adr := GetFuncAdr('glClampColorARB');
+    private z_ClampColorARB_ovr_0 := GetFuncOrNil&(z_ClampColorARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClampColorARB(target: ClampColorTargetARB; clamp: ClampColorModeARB) :=
     z_ClampColorARB_ovr_0(target, clamp);
     
   end;
   
   [PCUNotRestore]
-  glComputeShaderARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glComputeShaderARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_compute_shader';
     
-    private static procedure z_DispatchCompute_ovr_0(num_groups_x: UInt32; num_groups_y: UInt32; num_groups_z: UInt32);
-    external 'opengl32.dll' name 'glDispatchCompute';
+    private z_DispatchCompute_adr := GetFuncAdr('glDispatchCompute');
+    private z_DispatchCompute_ovr_0 := GetFuncOrNil&(z_DispatchCompute_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DispatchCompute(num_groups_x: UInt32; num_groups_y: UInt32; num_groups_z: UInt32) :=
     z_DispatchCompute_ovr_0(num_groups_x, num_groups_y, num_groups_z);
     
-    private static procedure z_DispatchComputeIndirect_ovr_0(indirect: IntPtr);
-    external 'opengl32.dll' name 'glDispatchComputeIndirect';
+    private z_DispatchComputeIndirect_adr := GetFuncAdr('glDispatchComputeIndirect');
+    private z_DispatchComputeIndirect_ovr_0 := GetFuncOrNil&(z_DispatchComputeIndirect_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DispatchComputeIndirect(indirect: IntPtr) :=
     z_DispatchComputeIndirect_ovr_0(indirect);
     
   end;
   
   [PCUNotRestore]
-  glComputeVariableGroupSizeARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glComputeVariableGroupSizeARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_compute_variable_group_size';
     
-    private static procedure z_DispatchComputeGroupSizeARB_ovr_0(num_groups_x: UInt32; num_groups_y: UInt32; num_groups_z: UInt32; group_size_x: UInt32; group_size_y: UInt32; group_size_z: UInt32);
-    external 'opengl32.dll' name 'glDispatchComputeGroupSizeARB';
+    private z_DispatchComputeGroupSizeARB_adr := GetFuncAdr('glDispatchComputeGroupSizeARB');
+    private z_DispatchComputeGroupSizeARB_ovr_0 := GetFuncOrNil&(z_DispatchComputeGroupSizeARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DispatchComputeGroupSizeARB(num_groups_x: UInt32; num_groups_y: UInt32; num_groups_z: UInt32; group_size_x: UInt32; group_size_y: UInt32; group_size_z: UInt32) :=
     z_DispatchComputeGroupSizeARB_ovr_0(num_groups_x, num_groups_y, num_groups_z, group_size_x, group_size_y, group_size_z);
     
   end;
   
   [PCUNotRestore]
-  glCopyBufferARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCopyBufferARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_copy_buffer';
     
-    private static procedure z_CopyBufferSubData_ovr_0(readTarget: CopyBufferSubDataTarget; writeTarget: CopyBufferSubDataTarget; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glCopyBufferSubData';
+    private z_CopyBufferSubData_adr := GetFuncAdr('glCopyBufferSubData');
+    private z_CopyBufferSubData_ovr_0 := GetFuncOrNil&(z_CopyBufferSubData_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyBufferSubData(readTarget: CopyBufferSubDataTarget; writeTarget: CopyBufferSubDataTarget; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
     z_CopyBufferSubData_ovr_0(readTarget, writeTarget, readOffset, writeOffset, size);
     
   end;
   
   [PCUNotRestore]
-  glCopyImageARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCopyImageARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_copy_image';
     
-    private static procedure z_CopyImageSubData_ovr_0(srcName: UInt32; srcTarget: CopyImageSubDataTarget; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: CopyImageSubDataTarget; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32);
-    external 'opengl32.dll' name 'glCopyImageSubData';
+    private z_CopyImageSubData_adr := GetFuncAdr('glCopyImageSubData');
+    private z_CopyImageSubData_ovr_0 := GetFuncOrNil&(z_CopyImageSubData_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyImageSubData(srcName: UInt32; srcTarget: CopyImageSubDataTarget; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: CopyImageSubDataTarget; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32) :=
     z_CopyImageSubData_ovr_0(srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth);
     
   end;
   
   [PCUNotRestore]
-  glDebugOutputARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDebugOutputARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_debug_output';
     
-    private static procedure z_DebugMessageControlARB_ovr_0(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControlARB';
-    private static procedure z_DebugMessageControlARB_ovr_0_anh0000010(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControlARB';
+    private z_DebugMessageControlARB_adr := GetFuncAdr('glDebugMessageControlARB');
+    private z_DebugMessageControlARB_ovr_0 := GetFuncOrNil&(z_DebugMessageControlARB_adr);
+    private z_DebugMessageControlARB_ovr_0_anh0000010 := GetFuncOrNil&(z_DebugMessageControlARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControlARB(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: array of UInt32; enabled: boolean) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DebugMessageControlARB_ovr_0(source, &type, severity, count, ids[0], enabled) else
       z_DebugMessageControlARB_ovr_0_anh0000010(source, &type, severity, count, IntPtr.Zero, enabled);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControlARB(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean) :=
     z_DebugMessageControlARB_ovr_0(source, &type, severity, count, ids, enabled);
-    private static procedure z_DebugMessageControlARB_ovr_2(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControlARB';
+    private z_DebugMessageControlARB_ovr_2 := GetFuncOrNil&(z_DebugMessageControlARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControlARB(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean) :=
     z_DebugMessageControlARB_ovr_2(source, &type, severity, count, ids, enabled);
     
-    private static procedure z_DebugMessageInsertARB_ovr_0(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageInsertARB';
+    private z_DebugMessageInsertARB_adr := GetFuncAdr('glDebugMessageInsertARB');
+    private z_DebugMessageInsertARB_ovr_0 := GetFuncOrNil&(z_DebugMessageInsertARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsertARB(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: string);
     begin
       var par_6_str_ptr: IntPtr;
@@ -37438,781 +38618,707 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsertARB(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: IntPtr) :=
     z_DebugMessageInsertARB_ovr_0(source, &type, id, severity, length, buf);
     
-    private static procedure z_DebugMessageCallbackARB_ovr_0(callback: GLDEBUGPROC; userParam: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageCallbackARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallbackARB(callback: GLDEBUGPROC; userParam: IntPtr) :=
+    private z_DebugMessageCallbackARB_adr := GetFuncAdr('glDebugMessageCallbackARB');
+    private z_DebugMessageCallbackARB_ovr_0 := GetFuncOrNil&(z_DebugMessageCallbackARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallbackARB(callback: GL_DEBUG_PROC; userParam: IntPtr) :=
     z_DebugMessageCallbackARB_ovr_0(callback, userParam);
     
-    private static function z_GetDebugMessageLogARB_ovr_0(count: UInt32; bufSize: Int32; var sources: DebugSource; var types: DebugType; var ids: UInt32; var severities: DebugSeverity; var lengths: Int32; messageLog: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLogARB';
+    private z_GetDebugMessageLogARB_adr := GetFuncAdr('glGetDebugMessageLogARB');
+    private z_GetDebugMessageLogARB_ovr_0 := GetFuncOrNil&(z_GetDebugMessageLogARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLogARB(count: UInt32; bufSize: Int32; var sources: DebugSource; var types: DebugType; var ids: UInt32; var severities: DebugSeverity; var lengths: Int32; messageLog: IntPtr): UInt32 :=
     z_GetDebugMessageLogARB_ovr_0(count, bufSize, sources, types, ids, severities, lengths, messageLog);
-    private static function z_GetDebugMessageLogARB_ovr_1(count: UInt32; bufSize: Int32; sources: IntPtr; types: IntPtr; ids: IntPtr; severities: IntPtr; lengths: IntPtr; messageLog: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLogARB';
+    private z_GetDebugMessageLogARB_ovr_1 := GetFuncOrNil&(z_GetDebugMessageLogARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLogARB(count: UInt32; bufSize: Int32; sources: IntPtr; types: IntPtr; ids: IntPtr; severities: IntPtr; lengths: IntPtr; messageLog: IntPtr): UInt32 :=
     z_GetDebugMessageLogARB_ovr_1(count, bufSize, sources, types, ids, severities, lengths, messageLog);
     
   end;
   
   [PCUNotRestore]
-  glDirectStateAccessARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDirectStateAccessARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_direct_state_access';
     
-    private static procedure z_CreateTransformFeedbacks_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glCreateTransformFeedbacks';
-    private static procedure z_CreateTransformFeedbacks_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glCreateTransformFeedbacks';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    private z_CreateTransformFeedbacks_adr := GetFuncAdr('glCreateTransformFeedbacks');
+    private z_CreateTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
+    private z_CreateTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_CreateTransformFeedbacks_ovr_0(n, ids[0]) else
       z_CreateTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_CreateTransformFeedbacks_ovr_0(n, ids);
-    private static procedure z_CreateTransformFeedbacks_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glCreateTransformFeedbacks';
+    private z_CreateTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_CreateTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTransformFeedbacks(n: Int32; ids: IntPtr) :=
     z_CreateTransformFeedbacks_ovr_2(n, ids);
     
-    private static procedure z_TransformFeedbackBufferBase_ovr_0(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName);
-    external 'opengl32.dll' name 'glTransformFeedbackBufferBase';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferBase(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName) :=
+    private z_TransformFeedbackBufferBase_adr := GetFuncAdr('glTransformFeedbackBufferBase');
+    private z_TransformFeedbackBufferBase_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferBase_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferBase(xfb: gl_transform_feedback; index: UInt32; buffer: gl_buffer) :=
     z_TransformFeedbackBufferBase_ovr_0(xfb, index, buffer);
     
-    private static procedure z_TransformFeedbackBufferRange_ovr_0(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glTransformFeedbackBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferRange(xfb: TransformFeedbackName; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TransformFeedbackBufferRange_adr := GetFuncAdr('glTransformFeedbackBufferRange');
+    private z_TransformFeedbackBufferRange_ovr_0 := GetFuncOrNil&(z_TransformFeedbackBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackBufferRange(xfb: gl_transform_feedback; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TransformFeedbackBufferRange_ovr_0(xfb, index, buffer, offset, size);
     
-    private static procedure z_GetTransformFeedbackiv_ovr_0(xfb: UInt32; pname: TransformFeedbackPName; var param: Int32);
-    external 'opengl32.dll' name 'glGetTransformFeedbackiv';
-    private static procedure z_GetTransformFeedbackiv_ovr_0_anh0001(xfb: UInt32; pname: TransformFeedbackPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; param: array of Int32) :=
+    private z_GetTransformFeedbackiv_adr := GetFuncAdr('glGetTransformFeedbackiv');
+    private z_GetTransformFeedbackiv_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    private z_GetTransformFeedbackiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbackiv_ovr_0(xfb, pname, param[0]) else
       z_GetTransformFeedbackiv_ovr_0_anh0001(xfb, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; var param: Int32) :=
     z_GetTransformFeedbackiv_ovr_0(xfb, pname, param);
-    private static procedure z_GetTransformFeedbackiv_ovr_2(xfb: UInt32; pname: TransformFeedbackPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: UInt32; pname: TransformFeedbackPName; param: IntPtr) :=
+    private z_GetTransformFeedbackiv_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackiv(xfb: gl_transform_feedback; pname: TransformFeedbackPName; param: IntPtr) :=
     z_GetTransformFeedbackiv_ovr_2(xfb, pname, param);
     
-    private static procedure z_GetTransformFeedbacki_v_ovr_0(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int32);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki_v';
-    private static procedure z_GetTransformFeedbacki_v_ovr_0_anh00001(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: array of Int32) :=
+    private z_GetTransformFeedbacki_v_adr := GetFuncAdr('glGetTransformFeedbacki_v');
+    private z_GetTransformFeedbacki_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    private z_GetTransformFeedbacki_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbacki_v_ovr_0(xfb, pname, index, param[0]) else
       z_GetTransformFeedbacki_v_ovr_0_anh00001(xfb, pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; var param: Int32) :=
     z_GetTransformFeedbacki_v_ovr_0(xfb, pname, index, param);
-    private static procedure z_GetTransformFeedbacki_v_ovr_2(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
+    private z_GetTransformFeedbacki_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
     z_GetTransformFeedbacki_v_ovr_2(xfb, pname, index, param);
     
-    private static procedure z_GetTransformFeedbacki64_v_ovr_0(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int64);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki64_v';
-    private static procedure z_GetTransformFeedbacki64_v_ovr_0_anh00001(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki64_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: array of Int64) :=
+    private z_GetTransformFeedbacki64_v_adr := GetFuncAdr('glGetTransformFeedbacki64_v');
+    private z_GetTransformFeedbacki64_v_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    private z_GetTransformFeedbacki64_v_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: array of Int64) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTransformFeedbacki64_v_ovr_0(xfb, pname, index, param[0]) else
       z_GetTransformFeedbacki64_v_ovr_0_anh00001(xfb, pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; var param: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; var param: Int64) :=
     z_GetTransformFeedbacki64_v_ovr_0(xfb, pname, index, param);
-    private static procedure z_GetTransformFeedbacki64_v_ovr_2(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbacki64_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: UInt32; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
+    private z_GetTransformFeedbacki64_v_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbacki64_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbacki64_v(xfb: gl_transform_feedback; pname: TransformFeedbackPName; index: UInt32; param: IntPtr) :=
     z_GetTransformFeedbacki64_v_ovr_2(xfb, pname, index, param);
     
-    private static procedure z_CreateBuffers_ovr_0(n: Int32; var buffers: BufferName);
-    external 'opengl32.dll' name 'glCreateBuffers';
-    private static procedure z_CreateBuffers_ovr_0_anh001(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: array of BufferName) :=
+    private z_CreateBuffers_adr := GetFuncAdr('glCreateBuffers');
+    private z_CreateBuffers_ovr_0 := GetFuncOrNil&(z_CreateBuffers_adr);
+    private z_CreateBuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_CreateBuffers_ovr_0(n, buffers[0]) else
       z_CreateBuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; var buffers: BufferName) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; var buffers: gl_buffer) :=
     z_CreateBuffers_ovr_0(n, buffers);
-    private static procedure z_CreateBuffers_ovr_2(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateBuffers';
+    private z_CreateBuffers_ovr_2 := GetFuncOrNil&(z_CreateBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateBuffers(n: Int32; buffers: IntPtr) :=
     z_CreateBuffers_ovr_2(n, buffers);
     
-    private static procedure z_NamedBufferStorage_ovr_0(buffer: BufferName; size: IntPtr; data: IntPtr; flags: BufferStorageMask);
-    external 'opengl32.dll' name 'glNamedBufferStorage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorage(buffer: BufferName; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
+    private z_NamedBufferStorage_adr := GetFuncAdr('glNamedBufferStorage');
+    private z_NamedBufferStorage_ovr_0 := GetFuncOrNil&(z_NamedBufferStorage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorage(buffer: gl_buffer; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
     z_NamedBufferStorage_ovr_0(buffer, size, data, flags);
     
-    private static procedure z_NamedBufferData_ovr_0(buffer: BufferName; size: IntPtr; var data: Byte; usage: VertexBufferObjectUsage);
-    external 'opengl32.dll' name 'glNamedBufferData';
-    private [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure temp_NamedBufferData_ovr_0(buffer: BufferName; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
+    private z_NamedBufferData_adr := GetFuncAdr('glNamedBufferData');
+    private z_NamedBufferData_ovr_0 := GetFuncOrNil&(z_NamedBufferData_adr);
+    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0(buffer: gl_buffer; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
     begin
       z_NamedBufferData_ovr_0(buffer, size, PByte(pointer(@data))^, usage);
     end;
-    private [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure temp_NamedBufferData_ovr_0_anh00010(buffer: BufferName; size: IntPtr; usage: VertexBufferObjectUsage) :=
+    private [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure temp_NamedBufferData_ovr_0_anh00010(buffer: gl_buffer; size: IntPtr; usage: VertexBufferObjectUsage) :=
     z_NamedBufferData_ovr_0(buffer, size, PByte(nil)^, usage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; data: array of T; usage: VertexBufferObjectUsage); where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; data: array of T; usage: VertexBufferObjectUsage); where T: record;
     begin
       if (data<>nil) and (data.Length<>0) then
         temp_NamedBufferData_ovr_0(buffer, size, data[0], usage) else
         temp_NamedBufferData_ovr_0_anh00010(buffer, size, usage);
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; var data: T; usage: VertexBufferObjectUsage); where T: record;
     begin
       z_NamedBufferData_ovr_0(buffer, size, PByte(pointer(@data))^, usage);
     end;
-    private static procedure z_NamedBufferData_ovr_2(buffer: BufferName; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage);
-    external 'opengl32.dll' name 'glNamedBufferData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: BufferName; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
+    private z_NamedBufferData_ovr_2 := GetFuncOrNil&(z_NamedBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferData(buffer: gl_buffer; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
     z_NamedBufferData_ovr_2(buffer, size, data, usage);
     
-    private static procedure z_NamedBufferSubData_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glNamedBufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubData(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_NamedBufferSubData_adr := GetFuncAdr('glNamedBufferSubData');
+    private z_NamedBufferSubData_ovr_0 := GetFuncOrNil&(z_NamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubData(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_NamedBufferSubData_ovr_0(buffer, offset, size, data);
     
-    private static procedure z_CopyNamedBufferSubData_ovr_0(readBuffer: BufferName; writeBuffer: BufferName; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glCopyNamedBufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyNamedBufferSubData(readBuffer: BufferName; writeBuffer: BufferName; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    private z_CopyNamedBufferSubData_adr := GetFuncAdr('glCopyNamedBufferSubData');
+    private z_CopyNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_CopyNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyNamedBufferSubData(readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
     z_CopyNamedBufferSubData_ovr_0(readBuffer, writeBuffer, readOffset, writeOffset, size);
     
-    private static procedure z_ClearNamedBufferData_ovr_0(buffer: UInt32; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedBufferData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferData(buffer: UInt32; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferData_adr := GetFuncAdr('glClearNamedBufferData');
+    private z_ClearNamedBufferData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferData(buffer: gl_buffer; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferData_ovr_0(buffer, _internalformat, format, &type, data);
     
-    private static procedure z_ClearNamedBufferSubData_ovr_0(buffer: UInt32; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedBufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubData(buffer: UInt32; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferSubData_adr := GetFuncAdr('glClearNamedBufferSubData');
+    private z_ClearNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubData(buffer: gl_buffer; _internalformat: InternalFormat; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferSubData_ovr_0(buffer, _internalformat, offset, size, format, &type, data);
     
-    private static function z_MapNamedBuffer_ovr_0(buffer: BufferName; access: BufferAccessARB): IntPtr;
-    external 'opengl32.dll' name 'glMapNamedBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBuffer(buffer: BufferName; access: BufferAccessARB): IntPtr :=
+    private z_MapNamedBuffer_adr := GetFuncAdr('glMapNamedBuffer');
+    private z_MapNamedBuffer_ovr_0 := GetFuncOrNil&(z_MapNamedBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBuffer(buffer: gl_buffer; access: BufferAccessARB): IntPtr :=
     z_MapNamedBuffer_ovr_0(buffer, access);
     
-    private static function z_MapNamedBufferRange_ovr_0(buffer: BufferName; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr;
-    external 'opengl32.dll' name 'glMapNamedBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRange(buffer: BufferName; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
+    private z_MapNamedBufferRange_adr := GetFuncAdr('glMapNamedBufferRange');
+    private z_MapNamedBufferRange_ovr_0 := GetFuncOrNil&(z_MapNamedBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRange(buffer: gl_buffer; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
     z_MapNamedBufferRange_ovr_0(buffer, offset, length, access);
     
-    private static function z_UnmapNamedBuffer_ovr_0(buffer: BufferName): boolean;
-    external 'opengl32.dll' name 'glUnmapNamedBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBuffer(buffer: BufferName): boolean :=
+    private z_UnmapNamedBuffer_adr := GetFuncAdr('glUnmapNamedBuffer');
+    private z_UnmapNamedBuffer_ovr_0 := GetFuncOrNil&(z_UnmapNamedBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBuffer(buffer: gl_buffer): boolean :=
     z_UnmapNamedBuffer_ovr_0(buffer);
     
-    private static procedure z_FlushMappedNamedBufferRange_ovr_0(buffer: BufferName; offset: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glFlushMappedNamedBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRange(buffer: BufferName; offset: IntPtr; length: IntPtr) :=
+    private z_FlushMappedNamedBufferRange_adr := GetFuncAdr('glFlushMappedNamedBufferRange');
+    private z_FlushMappedNamedBufferRange_ovr_0 := GetFuncOrNil&(z_FlushMappedNamedBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRange(buffer: gl_buffer; offset: IntPtr; length: IntPtr) :=
     z_FlushMappedNamedBufferRange_ovr_0(buffer, offset, length);
     
-    private static procedure z_GetNamedBufferParameteriv_ovr_0(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteriv';
-    private static procedure z_GetNamedBufferParameteriv_ovr_0_anh0001(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of Int32) :=
+    private z_GetNamedBufferParameteriv_adr := GetFuncAdr('glGetNamedBufferParameteriv');
+    private z_GetNamedBufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    private z_GetNamedBufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameteriv_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameteriv_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: Int32) :=
     z_GetNamedBufferParameteriv_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferParameteriv_ovr_2(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteriv(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameteriv_ovr_2(buffer, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferParameteri64v_ovr_0(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteri64v';
-    private static procedure z_GetNamedBufferParameteri64v_ovr_0_anh0001(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteri64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of Int64) :=
+    private z_GetNamedBufferParameteri64v_adr := GetFuncAdr('glGetNamedBufferParameteri64v');
+    private z_GetNamedBufferParameteri64v_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    private z_GetNamedBufferParameteri64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameteri64v_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameteri64v_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: Int64) :=
     z_GetNamedBufferParameteri64v_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferParameteri64v_ovr_2(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameteri64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameteri64v_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameteri64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameteri64v(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameteri64v_ovr_2(buffer, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferPointerv_ovr_0(buffer: UInt32; pname: BufferPointerNameARB; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferPointerv';
-    private static procedure z_GetNamedBufferPointerv_ovr_0_anh0001(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferPointerv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetNamedBufferPointerv_ovr_0(buffer, pname, ¶ms[0]) else
-      z_GetNamedBufferPointerv_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
+    private z_GetNamedBufferPointerv_adr := GetFuncAdr('glGetNamedBufferPointerv');
+    private z_GetNamedBufferPointerv_ovr_0 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: gl_buffer; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
     z_GetNamedBufferPointerv_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferPointerv_ovr_2(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetNamedBufferPointerv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: pointer) :=
-    z_GetNamedBufferPointerv_ovr_2(buffer, pname, ¶ms);
+    private z_GetNamedBufferPointerv_ovr_1 := GetFuncOrNil&(z_GetNamedBufferPointerv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointerv(buffer: gl_buffer; pname: BufferPointerNameARB; ¶ms: pointer) :=
+    z_GetNamedBufferPointerv_ovr_1(buffer, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferSubData_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubData(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_GetNamedBufferSubData_adr := GetFuncAdr('glGetNamedBufferSubData');
+    private z_GetNamedBufferSubData_ovr_0 := GetFuncOrNil&(z_GetNamedBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubData(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_GetNamedBufferSubData_ovr_0(buffer, offset, size, data);
     
-    private static procedure z_CreateFramebuffers_ovr_0(n: Int32; var framebuffers: UInt32);
-    external 'opengl32.dll' name 'glCreateFramebuffers';
-    private static procedure z_CreateFramebuffers_ovr_0_anh001(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateFramebuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    private z_CreateFramebuffers_adr := GetFuncAdr('glCreateFramebuffers');
+    private z_CreateFramebuffers_ovr_0 := GetFuncOrNil&(z_CreateFramebuffers_adr);
+    private z_CreateFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateFramebuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_CreateFramebuffers_ovr_0(n, framebuffers[0]) else
       z_CreateFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_CreateFramebuffers_ovr_0(n, framebuffers);
-    private static procedure z_CreateFramebuffers_ovr_2(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateFramebuffers';
+    private z_CreateFramebuffers_ovr_2 := GetFuncOrNil&(z_CreateFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateFramebuffers(n: Int32; framebuffers: IntPtr) :=
     z_CreateFramebuffers_ovr_2(n, framebuffers);
     
-    private static procedure z_NamedFramebufferRenderbuffer_ovr_0(framebuffer: FramebufferName; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName);
-    external 'opengl32.dll' name 'glNamedFramebufferRenderbuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbuffer(framebuffer: FramebufferName; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_NamedFramebufferRenderbuffer_adr := GetFuncAdr('glNamedFramebufferRenderbuffer');
+    private z_NamedFramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbuffer(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_NamedFramebufferRenderbuffer_ovr_0(framebuffer, attachment, _renderbuffertarget, renderbuffer);
     
-    private static procedure z_NamedFramebufferParameteri_ovr_0(framebuffer: FramebufferName; pname: FramebufferParameterName; param: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferParameteri';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteri(framebuffer: FramebufferName; pname: FramebufferParameterName; param: Int32) :=
+    private z_NamedFramebufferParameteri_adr := GetFuncAdr('glNamedFramebufferParameteri');
+    private z_NamedFramebufferParameteri_ovr_0 := GetFuncOrNil&(z_NamedFramebufferParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteri(framebuffer: gl_framebuffer; pname: FramebufferParameterName; param: Int32) :=
     z_NamedFramebufferParameteri_ovr_0(framebuffer, pname, param);
     
-    private static procedure z_NamedFramebufferTexture_ovr_0(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTexture';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32) :=
+    private z_NamedFramebufferTexture_adr := GetFuncAdr('glNamedFramebufferTexture');
+    private z_NamedFramebufferTexture_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_NamedFramebufferTexture_ovr_0(framebuffer, attachment, texture, level);
     
-    private static procedure z_NamedFramebufferTextureLayer_ovr_0(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTextureLayer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayer(framebuffer: FramebufferName; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32) :=
+    private z_NamedFramebufferTextureLayer_adr := GetFuncAdr('glNamedFramebufferTextureLayer');
+    private z_NamedFramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureLayer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayer(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_NamedFramebufferTextureLayer_ovr_0(framebuffer, attachment, texture, level, layer);
     
-    private static procedure z_NamedFramebufferDrawBuffer_ovr_0(framebuffer: FramebufferName; buf: ColorBuffer);
-    external 'opengl32.dll' name 'glNamedFramebufferDrawBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffer(framebuffer: FramebufferName; buf: ColorBuffer) :=
+    private z_NamedFramebufferDrawBuffer_adr := GetFuncAdr('glNamedFramebufferDrawBuffer');
+    private z_NamedFramebufferDrawBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffer(framebuffer: gl_framebuffer; buf: ColorBuffer) :=
     z_NamedFramebufferDrawBuffer_ovr_0(framebuffer, buf);
     
-    private static procedure z_NamedFramebufferDrawBuffers_ovr_0(framebuffer: UInt32; n: Int32; var bufs: ColorBuffer);
-    external 'opengl32.dll' name 'glNamedFramebufferDrawBuffers';
-    private static procedure z_NamedFramebufferDrawBuffers_ovr_0_anh0001(framebuffer: UInt32; n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferDrawBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; bufs: array of ColorBuffer) :=
+    private z_NamedFramebufferDrawBuffers_adr := GetFuncAdr('glNamedFramebufferDrawBuffers');
+    private z_NamedFramebufferDrawBuffers_ovr_0 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    private z_NamedFramebufferDrawBuffers_ovr_0_anh0001 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; bufs: array of ColorBuffer) :=
     if (bufs<>nil) and (bufs.Length<>0) then
       z_NamedFramebufferDrawBuffers_ovr_0(framebuffer, n, bufs[0]) else
       z_NamedFramebufferDrawBuffers_ovr_0_anh0001(framebuffer, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; var bufs: ColorBuffer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; var bufs: ColorBuffer) :=
     z_NamedFramebufferDrawBuffers_ovr_0(framebuffer, n, bufs);
-    private static procedure z_NamedFramebufferDrawBuffers_ovr_2(framebuffer: UInt32; n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferDrawBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: UInt32; n: Int32; bufs: IntPtr) :=
+    private z_NamedFramebufferDrawBuffers_ovr_2 := GetFuncOrNil&(z_NamedFramebufferDrawBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferDrawBuffers(framebuffer: gl_framebuffer; n: Int32; bufs: IntPtr) :=
     z_NamedFramebufferDrawBuffers_ovr_2(framebuffer, n, bufs);
     
-    private static procedure z_NamedFramebufferReadBuffer_ovr_0(framebuffer: FramebufferName; src: ColorBuffer);
-    external 'opengl32.dll' name 'glNamedFramebufferReadBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferReadBuffer(framebuffer: FramebufferName; src: ColorBuffer) :=
+    private z_NamedFramebufferReadBuffer_adr := GetFuncAdr('glNamedFramebufferReadBuffer');
+    private z_NamedFramebufferReadBuffer_ovr_0 := GetFuncOrNil&(z_NamedFramebufferReadBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferReadBuffer(framebuffer: gl_framebuffer; src: ColorBuffer) :=
     z_NamedFramebufferReadBuffer_ovr_0(framebuffer, src);
     
-    private static procedure z_InvalidateNamedFramebufferData_ovr_0(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferData';
-    private static procedure z_InvalidateNamedFramebufferData_ovr_0_anh0001(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; attachments: array of FramebufferAttachment) :=
+    private z_InvalidateNamedFramebufferData_adr := GetFuncAdr('glInvalidateNamedFramebufferData');
+    private z_InvalidateNamedFramebufferData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    private z_InvalidateNamedFramebufferData_ovr_0_anh0001 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: array of FramebufferAttachment) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateNamedFramebufferData_ovr_0(framebuffer, numAttachments, attachments[0]) else
       z_InvalidateNamedFramebufferData_ovr_0_anh0001(framebuffer, numAttachments, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; var attachments: FramebufferAttachment) :=
     z_InvalidateNamedFramebufferData_ovr_0(framebuffer, numAttachments, attachments);
-    private static procedure z_InvalidateNamedFramebufferData_ovr_2(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr) :=
+    private z_InvalidateNamedFramebufferData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: IntPtr) :=
     z_InvalidateNamedFramebufferData_ovr_2(framebuffer, numAttachments, attachments);
     
-    private static procedure z_InvalidateNamedFramebufferSubData_ovr_0(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferSubData';
-    private static procedure z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; attachments: array of FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_InvalidateNamedFramebufferSubData_adr := GetFuncAdr('glInvalidateNamedFramebufferSubData');
+    private z_InvalidateNamedFramebufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    private z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: array of FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateNamedFramebufferSubData_ovr_0(framebuffer, numAttachments, attachments[0], x, y, width, height) else
       z_InvalidateNamedFramebufferSubData_ovr_0_anh00010000(framebuffer, numAttachments, IntPtr.Zero, x, y, width, height);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; var attachments: FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; var attachments: FramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateNamedFramebufferSubData_ovr_0(framebuffer, numAttachments, attachments, x, y, width, height);
-    private static procedure z_InvalidateNamedFramebufferSubData_ovr_2(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateNamedFramebufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: UInt32; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_InvalidateNamedFramebufferSubData_ovr_2 := GetFuncOrNil&(z_InvalidateNamedFramebufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateNamedFramebufferSubData(framebuffer: gl_framebuffer; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateNamedFramebufferSubData_ovr_2(framebuffer, numAttachments, attachments, x, y, width, height);
     
-    private static procedure z_ClearNamedFramebufferiv_ovr_0(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glClearNamedFramebufferiv';
-    private static procedure z_ClearNamedFramebufferiv_ovr_0_anh00001(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of Int32) :=
+    private z_ClearNamedFramebufferiv_adr := GetFuncAdr('glClearNamedFramebufferiv');
+    private z_ClearNamedFramebufferiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    private z_ClearNamedFramebufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferiv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferiv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: Int32) :=
     z_ClearNamedFramebufferiv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private static procedure z_ClearNamedFramebufferiv_ovr_2(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferiv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
-    private static procedure z_ClearNamedFramebufferuiv_ovr_0(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glClearNamedFramebufferuiv';
-    private static procedure z_ClearNamedFramebufferuiv_ovr_0_anh00001(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of UInt32) :=
+    private z_ClearNamedFramebufferuiv_adr := GetFuncAdr('glClearNamedFramebufferuiv');
+    private z_ClearNamedFramebufferuiv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    private z_ClearNamedFramebufferuiv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferuiv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferuiv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: UInt32) :=
     z_ClearNamedFramebufferuiv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private static procedure z_ClearNamedFramebufferuiv_ovr_2(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferuiv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferuiv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferuiv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
-    private static procedure z_ClearNamedFramebufferfv_ovr_0(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: single);
-    external 'opengl32.dll' name 'glClearNamedFramebufferfv';
-    private static procedure z_ClearNamedFramebufferfv_ovr_0_anh00001(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: array of single) :=
+    private z_ClearNamedFramebufferfv_adr := GetFuncAdr('glClearNamedFramebufferfv');
+    private z_ClearNamedFramebufferfv_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    private z_ClearNamedFramebufferfv_ovr_0_anh00001 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ClearNamedFramebufferfv_ovr_0(framebuffer, _buffer, drawbuffer, value[0]) else
       z_ClearNamedFramebufferfv_ovr_0_anh00001(framebuffer, _buffer, drawbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; var value: single) :=
     z_ClearNamedFramebufferfv_ovr_0(framebuffer, _buffer, drawbuffer, value);
-    private static procedure z_ClearNamedFramebufferfv_ovr_2(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedFramebufferfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
+    private z_ClearNamedFramebufferfv_ovr_2 := GetFuncOrNil&(z_ClearNamedFramebufferfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfv(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; value: IntPtr) :=
     z_ClearNamedFramebufferfv_ovr_2(framebuffer, _buffer, drawbuffer, value);
     
-    private static procedure z_ClearNamedFramebufferfi_ovr_0(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; depth: single; stencil: Int32);
-    external 'opengl32.dll' name 'glClearNamedFramebufferfi';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfi(framebuffer: UInt32; _buffer: Buffer; drawbuffer: Int32; depth: single; stencil: Int32) :=
+    private z_ClearNamedFramebufferfi_adr := GetFuncAdr('glClearNamedFramebufferfi');
+    private z_ClearNamedFramebufferfi_ovr_0 := GetFuncOrNil&(z_ClearNamedFramebufferfi_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedFramebufferfi(framebuffer: gl_framebuffer; _buffer: Buffer; drawbuffer: Int32; depth: single; stencil: Int32) :=
     z_ClearNamedFramebufferfi_ovr_0(framebuffer, _buffer, drawbuffer, depth, stencil);
     
-    private static procedure z_BlitNamedFramebuffer_ovr_0(readFramebuffer: UInt32; drawFramebuffer: UInt32; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter);
-    external 'opengl32.dll' name 'glBlitNamedFramebuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitNamedFramebuffer(readFramebuffer: UInt32; drawFramebuffer: UInt32; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
+    private z_BlitNamedFramebuffer_adr := GetFuncAdr('glBlitNamedFramebuffer');
+    private z_BlitNamedFramebuffer_ovr_0 := GetFuncOrNil&(z_BlitNamedFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitNamedFramebuffer(readFramebuffer: gl_framebuffer; drawFramebuffer: gl_framebuffer; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
     z_BlitNamedFramebuffer_ovr_0(readFramebuffer, drawFramebuffer, srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
-    private static function z_CheckNamedFramebufferStatus_ovr_0(framebuffer: UInt32; target: FramebufferTarget): FramebufferStatus;
-    external 'opengl32.dll' name 'glCheckNamedFramebufferStatus';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatus(framebuffer: UInt32; target: FramebufferTarget): FramebufferStatus :=
+    private z_CheckNamedFramebufferStatus_adr := GetFuncAdr('glCheckNamedFramebufferStatus');
+    private z_CheckNamedFramebufferStatus_ovr_0 := GetFuncOrNil&(z_CheckNamedFramebufferStatus_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatus(framebuffer: gl_framebuffer; target: FramebufferTarget): FramebufferStatus :=
     z_CheckNamedFramebufferStatus_ovr_0(framebuffer, target);
     
-    private static procedure z_GetNamedFramebufferParameteriv_ovr_0(framebuffer: UInt32; pname: GetFramebufferParameter; var param: Int32);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameteriv';
-    private static procedure z_GetNamedFramebufferParameteriv_ovr_0_anh0001(framebuffer: UInt32; pname: GetFramebufferParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; param: array of Int32) :=
+    private z_GetNamedFramebufferParameteriv_adr := GetFuncAdr('glGetNamedFramebufferParameteriv');
+    private z_GetNamedFramebufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    private z_GetNamedFramebufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetNamedFramebufferParameteriv_ovr_0(framebuffer, pname, param[0]) else
       z_GetNamedFramebufferParameteriv_ovr_0_anh0001(framebuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; var param: Int32) :=
     z_GetNamedFramebufferParameteriv_ovr_0(framebuffer, pname, param);
-    private static procedure z_GetNamedFramebufferParameteriv_ovr_2(framebuffer: UInt32; pname: GetFramebufferParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: UInt32; pname: GetFramebufferParameter; param: IntPtr) :=
+    private z_GetNamedFramebufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameteriv(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; param: IntPtr) :=
     z_GetNamedFramebufferParameteriv_ovr_2(framebuffer, pname, param);
     
-    private static procedure z_GetNamedFramebufferAttachmentParameteriv_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameteriv';
-    private static procedure z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedFramebufferAttachmentParameteriv_adr := GetFuncAdr('glGetNamedFramebufferAttachmentParameteriv');
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedFramebufferAttachmentParameteriv_ovr_0(framebuffer, attachment, pname, ¶ms[0]) else
       z_GetNamedFramebufferAttachmentParameteriv_ovr_0_anh00001(framebuffer, attachment, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetNamedFramebufferAttachmentParameteriv_ovr_0(framebuffer, attachment, pname, ¶ms);
-    private static procedure z_GetNamedFramebufferAttachmentParameteriv_ovr_2(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedFramebufferAttachmentParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameteriv(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetNamedFramebufferAttachmentParameteriv_ovr_2(framebuffer, attachment, pname, ¶ms);
     
-    private static procedure z_CreateRenderbuffers_ovr_0(n: Int32; var renderbuffers: UInt32);
-    external 'opengl32.dll' name 'glCreateRenderbuffers';
-    private static procedure z_CreateRenderbuffers_ovr_0_anh001(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateRenderbuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    private z_CreateRenderbuffers_adr := GetFuncAdr('glCreateRenderbuffers');
+    private z_CreateRenderbuffers_ovr_0 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
+    private z_CreateRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_CreateRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_CreateRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_CreateRenderbuffers_ovr_0(n, renderbuffers);
-    private static procedure z_CreateRenderbuffers_ovr_2(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glCreateRenderbuffers';
+    private z_CreateRenderbuffers_ovr_2 := GetFuncOrNil&(z_CreateRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
     z_CreateRenderbuffers_ovr_2(n, renderbuffers);
     
-    private static procedure z_NamedRenderbufferStorage_ovr_0(renderbuffer: RenderbufferName; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorage(renderbuffer: RenderbufferName; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorage_adr := GetFuncAdr('glNamedRenderbufferStorage');
+    private z_NamedRenderbufferStorage_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorage(renderbuffer: gl_renderbuffer; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorage_ovr_0(renderbuffer, _internalformat, width, height);
     
-    private static procedure z_NamedRenderbufferStorageMultisample_ovr_0(renderbuffer: RenderbufferName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorageMultisample';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisample(renderbuffer: RenderbufferName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageMultisample_adr := GetFuncAdr('glNamedRenderbufferStorageMultisample');
+    private z_NamedRenderbufferStorageMultisample_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisample(renderbuffer: gl_renderbuffer; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageMultisample_ovr_0(renderbuffer, samples, _internalformat, width, height);
     
-    private static procedure z_GetNamedRenderbufferParameteriv_ovr_0(renderbuffer: UInt32; pname: RenderbufferParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameteriv';
-    private static procedure z_GetNamedRenderbufferParameteriv_ovr_0_anh0001(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedRenderbufferParameteriv_adr := GetFuncAdr('glGetNamedRenderbufferParameteriv');
+    private z_GetNamedRenderbufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    private z_GetNamedRenderbufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedRenderbufferParameteriv_ovr_0(renderbuffer, pname, ¶ms[0]) else
       z_GetNamedRenderbufferParameteriv_ovr_0_anh0001(renderbuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; var ¶ms: Int32) :=
     z_GetNamedRenderbufferParameteriv_ovr_0(renderbuffer, pname, ¶ms);
-    private static procedure z_GetNamedRenderbufferParameteriv_ovr_2(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedRenderbufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetNamedRenderbufferParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameteriv(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
     z_GetNamedRenderbufferParameteriv_ovr_2(renderbuffer, pname, ¶ms);
     
-    private static procedure z_CreateTextures_ovr_0(target: TextureTarget; n: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glCreateTextures';
-    private static procedure z_CreateTextures_ovr_0_anh0001(target: TextureTarget; n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glCreateTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: array of UInt32) :=
+    private z_CreateTextures_adr := GetFuncAdr('glCreateTextures');
+    private z_CreateTextures_ovr_0 := GetFuncOrNil&(z_CreateTextures_adr);
+    private z_CreateTextures_ovr_0_anh0001 := GetFuncOrNil&(z_CreateTextures_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_CreateTextures_ovr_0(target, n, textures[0]) else
       z_CreateTextures_ovr_0_anh0001(target, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; var textures: gl_texture) :=
     z_CreateTextures_ovr_0(target, n, textures);
-    private static procedure z_CreateTextures_ovr_2(target: TextureTarget; n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glCreateTextures';
+    private z_CreateTextures_ovr_2 := GetFuncOrNil&(z_CreateTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateTextures(target: TextureTarget; n: Int32; textures: IntPtr) :=
     z_CreateTextures_ovr_2(target, n, textures);
     
-    private static procedure z_TextureBuffer_ovr_0(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName);
-    external 'opengl32.dll' name 'glTextureBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBuffer(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName) :=
+    private z_TextureBuffer_adr := GetFuncAdr('glTextureBuffer');
+    private z_TextureBuffer_ovr_0 := GetFuncOrNil&(z_TextureBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBuffer(texture: gl_texture; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TextureBuffer_ovr_0(texture, _internalformat, buffer);
     
-    private static procedure z_TextureBufferRange_ovr_0(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glTextureBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRange(texture: TextureName; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TextureBufferRange_adr := GetFuncAdr('glTextureBufferRange');
+    private z_TextureBufferRange_ovr_0 := GetFuncOrNil&(z_TextureBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRange(texture: gl_texture; _internalformat: InternalFormat; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TextureBufferRange_ovr_0(texture, _internalformat, buffer, offset, size);
     
-    private static procedure z_TextureStorage1D_ovr_0(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32);
-    external 'opengl32.dll' name 'glTextureStorage1D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
+    private z_TextureStorage1D_adr := GetFuncAdr('glTextureStorage1D');
+    private z_TextureStorage1D_ovr_0 := GetFuncOrNil&(z_TextureStorage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
     z_TextureStorage1D_ovr_0(texture, levels, _internalformat, width);
     
-    private static procedure z_TextureStorage2D_ovr_0(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glTextureStorage2D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_TextureStorage2D_adr := GetFuncAdr('glTextureStorage2D');
+    private z_TextureStorage2D_ovr_0 := GetFuncOrNil&(z_TextureStorage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_TextureStorage2D_ovr_0(texture, levels, _internalformat, width, height);
     
-    private static procedure z_TextureStorage3D_ovr_0(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glTextureStorage3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3D(texture: TextureName; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
+    private z_TextureStorage3D_adr := GetFuncAdr('glTextureStorage3D');
+    private z_TextureStorage3D_ovr_0 := GetFuncOrNil&(z_TextureStorage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3D(texture: gl_texture; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
     z_TextureStorage3D_ovr_0(texture, levels, _internalformat, width, height, depth);
     
-    private static procedure z_TextureStorage2DMultisample_ovr_0(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTextureStorage2DMultisample';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisample(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage2DMultisample_adr := GetFuncAdr('glTextureStorage2DMultisample');
+    private z_TextureStorage2DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage2DMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisample(texture: gl_texture; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage2DMultisample_ovr_0(texture, samples, _internalformat, width, height, fixedsamplelocations);
     
-    private static procedure z_TextureStorage3DMultisample_ovr_0(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTextureStorage3DMultisample';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisample(texture: TextureName; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage3DMultisample_adr := GetFuncAdr('glTextureStorage3DMultisample');
+    private z_TextureStorage3DMultisample_ovr_0 := GetFuncOrNil&(z_TextureStorage3DMultisample_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisample(texture: gl_texture; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage3DMultisample_ovr_0(texture, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
-    private static procedure z_TextureSubImage1D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage1D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1D(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage1D_adr := GetFuncAdr('glTextureSubImage1D');
+    private z_TextureSubImage1D_ovr_0 := GetFuncOrNil&(z_TextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage1D_ovr_0(texture, level, xoffset, width, format, &type, pixels);
     
-    private static procedure z_TextureSubImage2D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage2D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage2D_adr := GetFuncAdr('glTextureSubImage2D');
+    private z_TextureSubImage2D_ovr_0 := GetFuncOrNil&(z_TextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, width, height, format, &type, pixels);
     
-    private static procedure z_TextureSubImage3D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage3D_adr := GetFuncAdr('glTextureSubImage3D');
+    private z_TextureSubImage3D_ovr_0 := GetFuncOrNil&(z_TextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, pixels);
     
-    private static procedure z_CompressedTextureSubImage1D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage1D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1D(texture: UInt32; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage1D_adr := GetFuncAdr('glCompressedTextureSubImage1D');
+    private z_CompressedTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage1D_ovr_0(texture, level, xoffset, width, format, imageSize, data);
     
-    private static procedure z_CompressedTextureSubImage2D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage2D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage2D_adr := GetFuncAdr('glCompressedTextureSubImage2D');
+    private z_CompressedTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, width, height, format, imageSize, data);
     
-    private static procedure z_CompressedTextureSubImage3D_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3D(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
+    private z_CompressedTextureSubImage3D_adr := GetFuncAdr('glCompressedTextureSubImage3D');
+    private z_CompressedTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, imageSize, data);
     
-    private static procedure z_CopyTextureSubImage1D_ovr_0(texture: TextureName; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage1D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1D(texture: TextureName; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
+    private z_CopyTextureSubImage1D_adr := GetFuncAdr('glCopyTextureSubImage1D');
+    private z_CopyTextureSubImage1D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1D(texture: gl_texture; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyTextureSubImage1D_ovr_0(texture, level, xoffset, x, y, width);
     
-    private static procedure z_CopyTextureSubImage2D_ovr_0(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage2D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2D(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage2D_adr := GetFuncAdr('glCopyTextureSubImage2D');
+    private z_CopyTextureSubImage2D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage2D_ovr_0(texture, level, xoffset, yoffset, x, y, width, height);
     
-    private static procedure z_CopyTextureSubImage3D_ovr_0(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3D(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage3D_adr := GetFuncAdr('glCopyTextureSubImage3D');
+    private z_CopyTextureSubImage3D_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3D(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage3D_ovr_0(texture, level, xoffset, yoffset, zoffset, x, y, width, height);
     
-    private static procedure z_TextureParameterf_ovr_0(texture: TextureName; pname: TextureParameterName; param: single);
-    external 'opengl32.dll' name 'glTextureParameterf';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterf(texture: TextureName; pname: TextureParameterName; param: single) :=
+    private z_TextureParameterf_adr := GetFuncAdr('glTextureParameterf');
+    private z_TextureParameterf_ovr_0 := GetFuncOrNil&(z_TextureParameterf_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterf(texture: gl_texture; pname: TextureParameterName; param: single) :=
     z_TextureParameterf_ovr_0(texture, pname, param);
     
-    private static procedure z_TextureParameterfv_ovr_0(texture: UInt32; pname: TextureParameterName; var param: single);
-    external 'opengl32.dll' name 'glTextureParameterfv';
-    private static procedure z_TextureParameterfv_ovr_0_anh0001(texture: UInt32; pname: TextureParameterName; param: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; param: array of single) :=
+    private z_TextureParameterfv_adr := GetFuncAdr('glTextureParameterfv');
+    private z_TextureParameterfv_ovr_0 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    private z_TextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_TextureParameterfv_ovr_0(texture, pname, param[0]) else
       z_TextureParameterfv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; var param: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; var param: single) :=
     z_TextureParameterfv_ovr_0(texture, pname, param);
-    private static procedure z_TextureParameterfv_ovr_2(texture: UInt32; pname: TextureParameterName; param: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: UInt32; pname: TextureParameterName; param: IntPtr) :=
+    private z_TextureParameterfv_ovr_2 := GetFuncOrNil&(z_TextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfv(texture: gl_texture; pname: TextureParameterName; param: IntPtr) :=
     z_TextureParameterfv_ovr_2(texture, pname, param);
     
-    private static procedure z_TextureParameteri_ovr_0(texture: UInt32; pname: TextureParameterName; param: Int32);
-    external 'opengl32.dll' name 'glTextureParameteri';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteri(texture: UInt32; pname: TextureParameterName; param: Int32) :=
+    private z_TextureParameteri_adr := GetFuncAdr('glTextureParameteri');
+    private z_TextureParameteri_ovr_0 := GetFuncOrNil&(z_TextureParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteri(texture: gl_texture; pname: TextureParameterName; param: Int32) :=
     z_TextureParameteri_ovr_0(texture, pname, param);
     
-    private static procedure z_TextureParameterIiv_ovr_0(texture: UInt32; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTextureParameterIiv';
-    private static procedure z_TextureParameterIiv_ovr_0_anh0001(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; ¶ms: array of Int32) :=
+    private z_TextureParameterIiv_adr := GetFuncAdr('glTextureParameterIiv');
+    private z_TextureParameterIiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    private z_TextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIiv_ovr_0(texture, pname, ¶ms[0]) else
       z_TextureParameterIiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; var ¶ms: Int32) :=
     z_TextureParameterIiv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_TextureParameterIiv_ovr_2(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIiv(texture: gl_texture; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIiv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_TextureParameterIuiv_ovr_0(texture: UInt32; pname: TextureParameterName; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glTextureParameterIuiv';
-    private static procedure z_TextureParameterIuiv_ovr_0_anh0001(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; ¶ms: array of UInt32) :=
+    private z_TextureParameterIuiv_adr := GetFuncAdr('glTextureParameterIuiv');
+    private z_TextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    private z_TextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIuiv_ovr_0(texture, pname, ¶ms[0]) else
       z_TextureParameterIuiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; var ¶ms: UInt32) :=
     z_TextureParameterIuiv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_TextureParameterIuiv_ovr_2(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: UInt32; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_TextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuiv(texture: gl_texture; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIuiv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_TextureParameteriv_ovr_0(texture: UInt32; pname: TextureParameterName; var param: Int32);
-    external 'opengl32.dll' name 'glTextureParameteriv';
-    private static procedure z_TextureParameteriv_ovr_0_anh0001(texture: UInt32; pname: TextureParameterName; param: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; param: array of Int32) :=
+    private z_TextureParameteriv_adr := GetFuncAdr('glTextureParameteriv');
+    private z_TextureParameteriv_ovr_0 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    private z_TextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_TextureParameteriv_ovr_0(texture, pname, param[0]) else
       z_TextureParameteriv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; var param: Int32) :=
     z_TextureParameteriv_ovr_0(texture, pname, param);
-    private static procedure z_TextureParameteriv_ovr_2(texture: UInt32; pname: TextureParameterName; param: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: UInt32; pname: TextureParameterName; param: IntPtr) :=
+    private z_TextureParameteriv_ovr_2 := GetFuncOrNil&(z_TextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriv(texture: gl_texture; pname: TextureParameterName; param: IntPtr) :=
     z_TextureParameteriv_ovr_2(texture, pname, param);
     
-    private static procedure z_GenerateTextureMipmap_ovr_0(texture: TextureName);
-    external 'opengl32.dll' name 'glGenerateTextureMipmap';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmap(texture: TextureName) :=
+    private z_GenerateTextureMipmap_adr := GetFuncAdr('glGenerateTextureMipmap');
+    private z_GenerateTextureMipmap_ovr_0 := GetFuncOrNil&(z_GenerateTextureMipmap_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmap(texture: gl_texture) :=
     z_GenerateTextureMipmap_ovr_0(texture);
     
-    private static procedure z_BindTextureUnit_ovr_0(&unit: UInt32; texture: TextureName);
-    external 'opengl32.dll' name 'glBindTextureUnit';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureUnit(&unit: UInt32; texture: TextureName) :=
+    private z_BindTextureUnit_adr := GetFuncAdr('glBindTextureUnit');
+    private z_BindTextureUnit_ovr_0 := GetFuncOrNil&(z_BindTextureUnit_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureUnit(&unit: UInt32; texture: gl_texture) :=
     z_BindTextureUnit_ovr_0(&unit, texture);
     
-    private static procedure z_GetTextureImage_ovr_0(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImage(texture: UInt32; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetTextureImage_adr := GetFuncAdr('glGetTextureImage');
+    private z_GetTextureImage_ovr_0 := GetFuncOrNil&(z_GetTextureImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImage(texture: gl_texture; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
     z_GetTextureImage_ovr_0(texture, level, format, &type, bufSize, pixels);
     
-    private static procedure z_GetCompressedTextureImage_ovr_0(texture: UInt32; level: Int32; bufSize: Int32; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetCompressedTextureImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImage(texture: UInt32; level: Int32; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetCompressedTextureImage_adr := GetFuncAdr('glGetCompressedTextureImage');
+    private z_GetCompressedTextureImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImage(texture: gl_texture; level: Int32; bufSize: Int32; pixels: IntPtr) :=
     z_GetCompressedTextureImage_ovr_0(texture, level, bufSize, pixels);
     
-    private static procedure z_GetTextureLevelParameterfv_ovr_0(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfv';
-    private static procedure z_GetTextureLevelParameterfv_ovr_0_anh00001(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureLevelParameterfv_adr := GetFuncAdr('glGetTextureLevelParameterfv');
+    private z_GetTextureLevelParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    private z_GetTextureLevelParameterfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameterfv_ovr_0(texture, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameterfv_ovr_0_anh00001(texture, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureLevelParameterfv_ovr_0(texture, level, pname, ¶ms);
-    private static procedure z_GetTextureLevelParameterfv_ovr_2(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameterfv_ovr_2(texture, level, pname, ¶ms);
     
-    private static procedure z_GetTextureLevelParameteriv_ovr_0(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureLevelParameteriv';
-    private static procedure z_GetTextureLevelParameteriv_ovr_0_anh00001(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureLevelParameteriv_adr := GetFuncAdr('glGetTextureLevelParameteriv');
+    private z_GetTextureLevelParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    private z_GetTextureLevelParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameteriv_ovr_0(texture, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameteriv_ovr_0_anh00001(texture, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureLevelParameteriv_ovr_0(texture, level, pname, ¶ms);
-    private static procedure z_GetTextureLevelParameteriv_ovr_2(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: UInt32; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameteriv(texture: gl_texture; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameteriv_ovr_2(texture, level, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterfv_ovr_0(texture: UInt32; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTextureParameterfv';
-    private static procedure z_GetTextureParameterfv_ovr_0_anh0001(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureParameterfv_adr := GetFuncAdr('glGetTextureParameterfv');
+    private z_GetTextureParameterfv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    private z_GetTextureParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterfv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterfv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureParameterfv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_GetTextureParameterfv_ovr_2(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterfv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterfv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterIiv_ovr_0(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureParameterIiv';
-    private static procedure z_GetTextureParameterIiv_ovr_0_anh0001(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameterIiv_adr := GetFuncAdr('glGetTextureParameterIiv');
+    private z_GetTextureParameterIiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    private z_GetTextureParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIiv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterIiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameterIiv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_GetTextureParameterIiv_ovr_2(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIiv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterIuiv_ovr_0(texture: UInt32; pname: GetTextureParameter; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetTextureParameterIuiv';
-    private static procedure z_GetTextureParameterIuiv_ovr_0_anh0001(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of UInt32) :=
+    private z_GetTextureParameterIuiv_adr := GetFuncAdr('glGetTextureParameterIuiv');
+    private z_GetTextureParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    private z_GetTextureParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIuiv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameterIuiv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: UInt32) :=
     z_GetTextureParameterIuiv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_GetTextureParameterIuiv_ovr_2(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuiv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIuiv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_GetTextureParameteriv_ovr_0(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureParameteriv';
-    private static procedure z_GetTextureParameteriv_ovr_0_anh0001(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameteriv_adr := GetFuncAdr('glGetTextureParameteriv');
+    private z_GetTextureParameteriv_ovr_0 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    private z_GetTextureParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameteriv_ovr_0(texture, pname, ¶ms[0]) else
       z_GetTextureParameteriv_ovr_0_anh0001(texture, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameteriv_ovr_0(texture, pname, ¶ms);
-    private static procedure z_GetTextureParameteriv_ovr_2(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: UInt32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameteriv_ovr_2 := GetFuncOrNil&(z_GetTextureParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameteriv(texture: gl_texture; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameteriv_ovr_2(texture, pname, ¶ms);
     
-    private static procedure z_CreateVertexArrays_ovr_0(n: Int32; var arrays: UInt32);
-    external 'opengl32.dll' name 'glCreateVertexArrays';
-    private static procedure z_CreateVertexArrays_ovr_0_anh001(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glCreateVertexArrays';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: array of UInt32) :=
+    private z_CreateVertexArrays_adr := GetFuncAdr('glCreateVertexArrays');
+    private z_CreateVertexArrays_ovr_0 := GetFuncOrNil&(z_CreateVertexArrays_adr);
+    private z_CreateVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_CreateVertexArrays_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_CreateVertexArrays_ovr_0(n, arrays[0]) else
       z_CreateVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_CreateVertexArrays_ovr_0(n, arrays);
-    private static procedure z_CreateVertexArrays_ovr_2(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glCreateVertexArrays';
+    private z_CreateVertexArrays_ovr_2 := GetFuncOrNil&(z_CreateVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateVertexArrays(n: Int32; arrays: IntPtr) :=
     z_CreateVertexArrays_ovr_2(n, arrays);
     
-    private static procedure z_DisableVertexArrayAttrib_ovr_0(vaobj: VertexArrayName; index: UInt32);
-    external 'opengl32.dll' name 'glDisableVertexArrayAttrib';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttrib(vaobj: VertexArrayName; index: UInt32) :=
+    private z_DisableVertexArrayAttrib_adr := GetFuncAdr('glDisableVertexArrayAttrib');
+    private z_DisableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_DisableVertexArrayAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttrib(vaobj: gl_vertex_array; index: UInt32) :=
     z_DisableVertexArrayAttrib_ovr_0(vaobj, index);
     
-    private static procedure z_EnableVertexArrayAttrib_ovr_0(vaobj: VertexArrayName; index: UInt32);
-    external 'opengl32.dll' name 'glEnableVertexArrayAttrib';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttrib(vaobj: VertexArrayName; index: UInt32) :=
+    private z_EnableVertexArrayAttrib_adr := GetFuncAdr('glEnableVertexArrayAttrib');
+    private z_EnableVertexArrayAttrib_ovr_0 := GetFuncOrNil&(z_EnableVertexArrayAttrib_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttrib(vaobj: gl_vertex_array; index: UInt32) :=
     z_EnableVertexArrayAttrib_ovr_0(vaobj, index);
     
-    private static procedure z_VertexArrayElementBuffer_ovr_0(vaobj: VertexArrayName; buffer: BufferName);
-    external 'opengl32.dll' name 'glVertexArrayElementBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayElementBuffer(vaobj: VertexArrayName; buffer: BufferName) :=
+    private z_VertexArrayElementBuffer_adr := GetFuncAdr('glVertexArrayElementBuffer');
+    private z_VertexArrayElementBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayElementBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayElementBuffer(vaobj: gl_vertex_array; buffer: gl_buffer) :=
     z_VertexArrayElementBuffer_ovr_0(vaobj, buffer);
     
-    private static procedure z_VertexArrayVertexBuffer_ovr_0(vaobj: VertexArrayName; bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffer(vaobj: VertexArrayName; bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32) :=
+    private z_VertexArrayVertexBuffer_adr := GetFuncAdr('glVertexArrayVertexBuffer');
+    private z_VertexArrayVertexBuffer_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffer(vaobj: gl_vertex_array; bindingindex: UInt32; buffer: gl_buffer; offset: IntPtr; stride: Int32) :=
     z_VertexArrayVertexBuffer_ovr_0(vaobj, bindingindex, buffer, offset, stride);
     
-    private static procedure z_VertexArrayVertexBuffers_ovr_0(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000110(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000001(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000101(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000011(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_0_anh0000111(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_adr := GetFuncAdr('glVertexArrayVertexBuffers');
+    private z_VertexArrayVertexBuffers_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_0_anh0000111 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (strides<>nil) and (strides.Length<>0) then
@@ -38228,13 +39334,10 @@ type
         if (strides<>nil) and (strides.Length<>0) then
           z_VertexArrayVertexBuffers_ovr_0_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides[0]) else
           z_VertexArrayVertexBuffers_ovr_0_anh0000111(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_VertexArrayVertexBuffers_ovr_1_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_1_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_1_anh0000110(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_1_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets[0], strides) else
@@ -38242,15 +39345,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets[0], strides) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_2(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_2_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_2_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_2_anh0000110(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_2 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_2_anh0000110 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers[0], offsets[0], strides) else
@@ -38258,11 +39357,9 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_2_anh0000100(vaobj, first, count, IntPtr.Zero, offsets[0], strides) else
         z_VertexArrayVertexBuffers_ovr_2_anh0000110(vaobj, first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_3_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_3_anh0000101(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_3_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_3_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets, strides[0]) else
@@ -38270,27 +39367,21 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000101(vaobj, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_VertexArrayVertexBuffers_ovr_4_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_4_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_5_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_5_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_2_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_6(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_6_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_6_anh0000001(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_6_anh0000101(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_6 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_6_anh0000101 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers[0], offsets, strides[0]) else
@@ -38298,25 +39389,20 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_6_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_6_anh0000101(vaobj, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_VertexArrayVertexBuffers_ovr_7_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_7_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_6_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_8(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_8_anh0000100(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_8 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_8_anh0000100 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_8(vaobj, first, count, buffers[0], offsets, strides) else
       z_VertexArrayVertexBuffers_ovr_8_anh0000100(vaobj, first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_9_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_9_anh0000011(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_9_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_9_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets[0], strides[0]) else
@@ -38324,43 +39410,37 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_0_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_0_anh0000011(vaobj, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_VertexArrayVertexBuffers_ovr_10_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_10_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_11_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_11_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_2_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_0_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_0(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_2(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_6_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_6(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_8(vaobj, first, count, buffers, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_18(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_18_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_18_anh0000001(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_18_anh0000011(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_18 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_18_anh0000011 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets[0], strides[0]) else
@@ -38368,277 +39448,256 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_VertexArrayVertexBuffers_ovr_18_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides[0]) else
         z_VertexArrayVertexBuffers_ovr_18_anh0000011(vaobj, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_VertexArrayVertexBuffers_ovr_19_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var strides: Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_19_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_18_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_20(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_20_anh0000010(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_20 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_20_anh0000010 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_20(vaobj, first, count, buffers, offsets[0], strides) else
       z_VertexArrayVertexBuffers_ovr_20_anh0000010(vaobj, first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_18_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_18(vaobj, first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_20(vaobj, first, count, buffers, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_24(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    private static procedure z_VertexArrayVertexBuffers_ovr_24_anh0000001(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: array of Int32) :=
+    private z_VertexArrayVertexBuffers_ovr_24 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    private z_VertexArrayVertexBuffers_ovr_24_anh0000001 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_VertexArrayVertexBuffers_ovr_24(vaobj, first, count, buffers, offsets, strides[0]) else
       z_VertexArrayVertexBuffers_ovr_24_anh0000001(vaobj, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32) :=
     z_VertexArrayVertexBuffers_ovr_24(vaobj, first, count, buffers, offsets, strides);
-    private static procedure z_VertexArrayVertexBuffers_ovr_26(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: UInt32; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr) :=
+    private z_VertexArrayVertexBuffers_ovr_26 := GetFuncOrNil&(z_VertexArrayVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBuffers(vaobj: gl_vertex_array; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr) :=
     z_VertexArrayVertexBuffers_ovr_26(vaobj, first, count, buffers, offsets, strides);
     
-    private static procedure z_VertexArrayAttribBinding_ovr_0(vaobj: VertexArrayName; attribindex: UInt32; bindingindex: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayAttribBinding';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribBinding(vaobj: VertexArrayName; attribindex: UInt32; bindingindex: UInt32) :=
+    private z_VertexArrayAttribBinding_adr := GetFuncAdr('glVertexArrayAttribBinding');
+    private z_VertexArrayAttribBinding_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribBinding(vaobj: gl_vertex_array; attribindex: UInt32; bindingindex: UInt32) :=
     z_VertexArrayAttribBinding_ovr_0(vaobj, attribindex, bindingindex);
     
-    private static procedure z_VertexArrayAttribFormat_ovr_0(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayAttribFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribFormat_adr := GetFuncAdr('glVertexArrayAttribFormat');
+    private z_VertexArrayAttribFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
     z_VertexArrayAttribFormat_ovr_0(vaobj, attribindex, size, &type, normalized, relativeoffset);
     
-    private static procedure z_VertexArrayAttribIFormat_ovr_0(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayAttribIFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribIFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribIFormat_adr := GetFuncAdr('glVertexArrayAttribIFormat');
+    private z_VertexArrayAttribIFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribIFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribIFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
     z_VertexArrayAttribIFormat_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexArrayAttribLFormat_ovr_0(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayAttribLFormat';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribLFormat(vaobj: VertexArrayName; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
+    private z_VertexArrayAttribLFormat_adr := GetFuncAdr('glVertexArrayAttribLFormat');
+    private z_VertexArrayAttribLFormat_ovr_0 := GetFuncOrNil&(z_VertexArrayAttribLFormat_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayAttribLFormat(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
     z_VertexArrayAttribLFormat_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexArrayBindingDivisor_ovr_0(vaobj: VertexArrayName; bindingindex: UInt32; divisor: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayBindingDivisor';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindingDivisor(vaobj: VertexArrayName; bindingindex: UInt32; divisor: UInt32) :=
+    private z_VertexArrayBindingDivisor_adr := GetFuncAdr('glVertexArrayBindingDivisor');
+    private z_VertexArrayBindingDivisor_ovr_0 := GetFuncOrNil&(z_VertexArrayBindingDivisor_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindingDivisor(vaobj: gl_vertex_array; bindingindex: UInt32; divisor: UInt32) :=
     z_VertexArrayBindingDivisor_ovr_0(vaobj, bindingindex, divisor);
     
-    private static procedure z_GetVertexArrayiv_ovr_0(vaobj: UInt32; pname: VertexArrayPName; var param: Int32);
-    external 'opengl32.dll' name 'glGetVertexArrayiv';
-    private static procedure z_GetVertexArrayiv_ovr_0_anh0001(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayiv_adr := GetFuncAdr('glGetVertexArrayiv');
+    private z_GetVertexArrayiv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    private z_GetVertexArrayiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayiv_ovr_0(vaobj, pname, param[0]) else
       z_GetVertexArrayiv_ovr_0_anh0001(vaobj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayiv_ovr_0(vaobj, pname, param);
-    private static procedure z_GetVertexArrayiv_ovr_2(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayiv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayiv(vaobj: gl_vertex_array; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayiv_ovr_2(vaobj, pname, param);
     
-    private static procedure z_GetVertexArrayIndexediv_ovr_0(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int32);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexediv';
-    private static procedure z_GetVertexArrayIndexediv_ovr_0_anh00001(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexediv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayIndexediv_adr := GetFuncAdr('glGetVertexArrayIndexediv');
+    private z_GetVertexArrayIndexediv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    private z_GetVertexArrayIndexediv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIndexediv_ovr_0(vaobj, index, pname, param[0]) else
       z_GetVertexArrayIndexediv_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayIndexediv_ovr_0(vaobj, index, pname, param);
-    private static procedure z_GetVertexArrayIndexediv_ovr_2(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexediv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIndexediv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexediv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexediv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIndexediv_ovr_2(vaobj, index, pname, param);
     
-    private static procedure z_GetVertexArrayIndexed64iv_ovr_0(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int64);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexed64iv';
-    private static procedure z_GetVertexArrayIndexed64iv_ovr_0_anh00001(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexed64iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of Int64) :=
+    private z_GetVertexArrayIndexed64iv_adr := GetFuncAdr('glGetVertexArrayIndexed64iv');
+    private z_GetVertexArrayIndexed64iv_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    private z_GetVertexArrayIndexed64iv_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: array of Int64) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIndexed64iv_ovr_0(vaobj, index, pname, param[0]) else
       z_GetVertexArrayIndexed64iv_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: Int64) :=
     z_GetVertexArrayIndexed64iv_ovr_0(vaobj, index, pname, param);
-    private static procedure z_GetVertexArrayIndexed64iv_ovr_2(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIndexed64iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIndexed64iv_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIndexed64iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIndexed64iv(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIndexed64iv_ovr_2(vaobj, index, pname, param);
     
-    private static procedure z_CreateSamplers_ovr_0(n: Int32; var samplers: UInt32);
-    external 'opengl32.dll' name 'glCreateSamplers';
-    private static procedure z_CreateSamplers_ovr_0_anh001(n: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glCreateSamplers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: array of UInt32) :=
+    private z_CreateSamplers_adr := GetFuncAdr('glCreateSamplers');
+    private z_CreateSamplers_ovr_0 := GetFuncOrNil&(z_CreateSamplers_adr);
+    private z_CreateSamplers_ovr_0_anh001 := GetFuncOrNil&(z_CreateSamplers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_CreateSamplers_ovr_0(n, samplers[0]) else
       z_CreateSamplers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; var samplers: gl_sampler) :=
     z_CreateSamplers_ovr_0(n, samplers);
-    private static procedure z_CreateSamplers_ovr_2(n: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glCreateSamplers';
+    private z_CreateSamplers_ovr_2 := GetFuncOrNil&(z_CreateSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSamplers(n: Int32; samplers: IntPtr) :=
     z_CreateSamplers_ovr_2(n, samplers);
     
-    private static procedure z_CreateProgramPipelines_ovr_0(n: Int32; var pipelines: UInt32);
-    external 'opengl32.dll' name 'glCreateProgramPipelines';
-    private static procedure z_CreateProgramPipelines_ovr_0_anh001(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glCreateProgramPipelines';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    private z_CreateProgramPipelines_adr := GetFuncAdr('glCreateProgramPipelines');
+    private z_CreateProgramPipelines_ovr_0 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
+    private z_CreateProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_CreateProgramPipelines_ovr_0(n, pipelines[0]) else
       z_CreateProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_CreateProgramPipelines_ovr_0(n, pipelines);
-    private static procedure z_CreateProgramPipelines_ovr_2(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glCreateProgramPipelines';
+    private z_CreateProgramPipelines_ovr_2 := GetFuncOrNil&(z_CreateProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateProgramPipelines(n: Int32; pipelines: IntPtr) :=
     z_CreateProgramPipelines_ovr_2(n, pipelines);
     
-    private static procedure z_CreateQueries_ovr_0(target: QueryTarget; n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glCreateQueries';
-    private static procedure z_CreateQueries_ovr_0_anh0001(target: QueryTarget; n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glCreateQueries';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: array of UInt32) :=
+    private z_CreateQueries_adr := GetFuncAdr('glCreateQueries');
+    private z_CreateQueries_ovr_0 := GetFuncOrNil&(z_CreateQueries_adr);
+    private z_CreateQueries_ovr_0_anh0001 := GetFuncOrNil&(z_CreateQueries_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_CreateQueries_ovr_0(target, n, ids[0]) else
       z_CreateQueries_ovr_0_anh0001(target, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; var ids: gl_query) :=
     z_CreateQueries_ovr_0(target, n, ids);
-    private static procedure z_CreateQueries_ovr_2(target: QueryTarget; n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glCreateQueries';
+    private z_CreateQueries_ovr_2 := GetFuncOrNil&(z_CreateQueries_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateQueries(target: QueryTarget; n: Int32; ids: IntPtr) :=
     z_CreateQueries_ovr_2(target, n, ids);
     
-    private static procedure z_GetQueryBufferObjecti64v_ovr_0(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryBufferObjecti64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjecti64v(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjecti64v_adr := GetFuncAdr('glGetQueryBufferObjecti64v');
+    private z_GetQueryBufferObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjecti64v(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjecti64v_ovr_0(id, buffer, pname, offset);
     
-    private static procedure z_GetQueryBufferObjectiv_ovr_0(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryBufferObjectiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectiv(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectiv_adr := GetFuncAdr('glGetQueryBufferObjectiv');
+    private z_GetQueryBufferObjectiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectiv(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectiv_ovr_0(id, buffer, pname, offset);
     
-    private static procedure z_GetQueryBufferObjectui64v_ovr_0(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryBufferObjectui64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectui64v(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectui64v_adr := GetFuncAdr('glGetQueryBufferObjectui64v');
+    private z_GetQueryBufferObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectui64v(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectui64v_ovr_0(id, buffer, pname, offset);
     
-    private static procedure z_GetQueryBufferObjectuiv_ovr_0(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryBufferObjectuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectuiv(id: QueryName; buffer: BufferName; pname: QueryObjectParameterName; offset: IntPtr) :=
+    private z_GetQueryBufferObjectuiv_adr := GetFuncAdr('glGetQueryBufferObjectuiv');
+    private z_GetQueryBufferObjectuiv_ovr_0 := GetFuncOrNil&(z_GetQueryBufferObjectuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryBufferObjectuiv(id: gl_query; buffer: gl_buffer; pname: QueryObjectParameterName; offset: IntPtr) :=
     z_GetQueryBufferObjectuiv_ovr_0(id, buffer, pname, offset);
     
   end;
   
   [PCUNotRestore]
-  glDrawBuffersARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawBuffersARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_draw_buffers';
     
-    private static procedure z_DrawBuffersARB_ovr_0(n: Int32; var bufs: DrawBufferMode);
-    external 'opengl32.dll' name 'glDrawBuffersARB';
-    private static procedure z_DrawBuffersARB_ovr_0_anh001(n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glDrawBuffersARB';
+    private z_DrawBuffersARB_adr := GetFuncAdr('glDrawBuffersARB');
+    private z_DrawBuffersARB_ovr_0 := GetFuncOrNil&(z_DrawBuffersARB_adr);
+    private z_DrawBuffersARB_ovr_0_anh001 := GetFuncOrNil&(z_DrawBuffersARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersARB(n: Int32; bufs: array of DrawBufferMode) :=
     if (bufs<>nil) and (bufs.Length<>0) then
       z_DrawBuffersARB_ovr_0(n, bufs[0]) else
       z_DrawBuffersARB_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersARB(n: Int32; var bufs: DrawBufferMode) :=
     z_DrawBuffersARB_ovr_0(n, bufs);
-    private static procedure z_DrawBuffersARB_ovr_2(n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glDrawBuffersARB';
+    private z_DrawBuffersARB_ovr_2 := GetFuncOrNil&(z_DrawBuffersARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersARB(n: Int32; bufs: IntPtr) :=
     z_DrawBuffersARB_ovr_2(n, bufs);
     
   end;
   
   [PCUNotRestore]
-  glDrawBuffersBlendARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawBuffersBlendARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_draw_buffers_blend';
     
-    private static procedure z_BlendEquationiARB_ovr_0(buf: UInt32; mode: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationiARB';
+    private z_BlendEquationiARB_adr := GetFuncAdr('glBlendEquationiARB');
+    private z_BlendEquationiARB_ovr_0 := GetFuncOrNil&(z_BlendEquationiARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationiARB(buf: UInt32; mode: BlendEquationModeEXT) :=
     z_BlendEquationiARB_ovr_0(buf, mode);
     
-    private static procedure z_BlendEquationSeparateiARB_ovr_0(buf: UInt32; modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationSeparateiARB';
+    private z_BlendEquationSeparateiARB_adr := GetFuncAdr('glBlendEquationSeparateiARB');
+    private z_BlendEquationSeparateiARB_ovr_0 := GetFuncOrNil&(z_BlendEquationSeparateiARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationSeparateiARB(buf: UInt32; modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT) :=
     z_BlendEquationSeparateiARB_ovr_0(buf, modeRGB, modeAlpha);
     
-    private static procedure z_BlendFunciARB_ovr_0(buf: UInt32; src: BlendingFactor; dst: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFunciARB';
+    private z_BlendFunciARB_adr := GetFuncAdr('glBlendFunciARB');
+    private z_BlendFunciARB_ovr_0 := GetFuncOrNil&(z_BlendFunciARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFunciARB(buf: UInt32; src: BlendingFactor; dst: BlendingFactor) :=
     z_BlendFunciARB_ovr_0(buf, src, dst);
     
-    private static procedure z_BlendFuncSeparateiARB_ovr_0(buf: UInt32; srcRGB: BlendingFactor; dstRGB: BlendingFactor; srcAlpha: BlendingFactor; dstAlpha: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFuncSeparateiARB';
+    private z_BlendFuncSeparateiARB_adr := GetFuncAdr('glBlendFuncSeparateiARB');
+    private z_BlendFuncSeparateiARB_ovr_0 := GetFuncOrNil&(z_BlendFuncSeparateiARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFuncSeparateiARB(buf: UInt32; srcRGB: BlendingFactor; dstRGB: BlendingFactor; srcAlpha: BlendingFactor; dstAlpha: BlendingFactor) :=
     z_BlendFuncSeparateiARB_ovr_0(buf, srcRGB, dstRGB, srcAlpha, dstAlpha);
     
   end;
   
   [PCUNotRestore]
-  glDrawElementsBaseVertexARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawElementsBaseVertexARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_draw_elements_base_vertex';
     
-    private static procedure z_DrawElementsBaseVertex_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; basevertex: Int32);
-    external 'opengl32.dll' name 'glDrawElementsBaseVertex';
+    private z_DrawElementsBaseVertex_adr := GetFuncAdr('glDrawElementsBaseVertex');
+    private z_DrawElementsBaseVertex_ovr_0 := GetFuncOrNil&(z_DrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsBaseVertex(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; basevertex: Int32) :=
     z_DrawElementsBaseVertex_ovr_0(mode, count, &type, indices, basevertex);
     
-    private static procedure z_DrawRangeElementsBaseVertex_ovr_0(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32; &type: DrawElementsType; indices: IntPtr; basevertex: Int32);
-    external 'opengl32.dll' name 'glDrawRangeElementsBaseVertex';
+    private z_DrawRangeElementsBaseVertex_adr := GetFuncAdr('glDrawRangeElementsBaseVertex');
+    private z_DrawRangeElementsBaseVertex_ovr_0 := GetFuncOrNil&(z_DrawRangeElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawRangeElementsBaseVertex(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32; &type: DrawElementsType; indices: IntPtr; basevertex: Int32) :=
     z_DrawRangeElementsBaseVertex_ovr_0(mode, start, &end, count, &type, indices, basevertex);
     
-    private static procedure z_DrawElementsInstancedBaseVertex_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; instancecount: Int32; basevertex: Int32);
-    external 'opengl32.dll' name 'glDrawElementsInstancedBaseVertex';
+    private z_DrawElementsInstancedBaseVertex_adr := GetFuncAdr('glDrawElementsInstancedBaseVertex');
+    private z_DrawElementsInstancedBaseVertex_ovr_0 := GetFuncOrNil&(z_DrawElementsInstancedBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsInstancedBaseVertex(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; instancecount: Int32; basevertex: Int32) :=
     z_DrawElementsInstancedBaseVertex_ovr_0(mode, count, &type, indices, instancecount, basevertex);
     
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0010100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0000001(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0010001(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0000101(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_0_anh0010101(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_adr := GetFuncAdr('glMultiDrawElementsBaseVertex');
+    private z_MultiDrawElementsBaseVertex_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0010100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0000001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0010001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0000101 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_0_anh0010101 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: array of Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -38655,12 +39714,9 @@ type
         if (basevertex<>nil) and (basevertex.Length<>0) then
           z_MultiDrawElementsBaseVertex_ovr_0_anh0010100(mode, IntPtr.Zero, &type, IntPtr.Zero, drawcount, basevertex[0]) else
           z_MultiDrawElementsBaseVertex_ovr_0_anh0010101(mode, IntPtr.Zero, &type, IntPtr.Zero, drawcount, IntPtr.Zero);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_1_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_1_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_1_anh0010100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_1_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_1_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_1_anh0010100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; var basevertex: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -38669,14 +39725,10 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_0_anh0010000(mode, IntPtr.Zero, &type, indices[0], drawcount, basevertex) else
         z_MultiDrawElementsBaseVertex_ovr_0_anh0010100(mode, IntPtr.Zero, &type, IntPtr.Zero, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_2(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_2_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_2_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_2_anh0010100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_2 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_2_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_2_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_2_anh0010100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: IntPtr) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -38685,10 +39737,8 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_2_anh0010000(mode, IntPtr.Zero, &type, indices[0], drawcount, basevertex) else
         z_MultiDrawElementsBaseVertex_ovr_2_anh0010100(mode, IntPtr.Zero, &type, IntPtr.Zero, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_3_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_3_anh0010001(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_3_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_3_anh0010001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: array of Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (basevertex<>nil) and (basevertex.Length<>0) then
@@ -38697,26 +39747,20 @@ type
       if (basevertex<>nil) and (basevertex.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_0_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex[0]) else
         z_MultiDrawElementsBaseVertex_ovr_0_anh0010001(mode, IntPtr.Zero, &type, indices, drawcount, IntPtr.Zero);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_4_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_4_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_0(mode, count[0], &type, indices, drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_0_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_5_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_5_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_2(mode, count[0], &type, indices, drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_2_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_6(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_6_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_6_anh0000001(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_6_anh0010001(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_6 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_6_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_6_anh0000001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_6_anh0010001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: array of Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (basevertex<>nil) and (basevertex.Length<>0) then
@@ -38725,24 +39769,19 @@ type
       if (basevertex<>nil) and (basevertex.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_6_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex[0]) else
         z_MultiDrawElementsBaseVertex_ovr_6_anh0010001(mode, IntPtr.Zero, &type, indices, drawcount, IntPtr.Zero);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_7_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_7_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_6(mode, count[0], &type, indices, drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_6_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_8(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_8_anh0010000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_8 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_8_anh0010000 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_8(mode, count[0], &type, indices, drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_8_anh0010000(mode, IntPtr.Zero, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_9_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_9_anh0000101(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_9_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_9_anh0000101 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: array of Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       if (basevertex<>nil) and (basevertex.Length<>0) then
@@ -38751,14 +39790,12 @@ type
       if (basevertex<>nil) and (basevertex.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_0_anh0000100(mode, count, &type, IntPtr.Zero, drawcount, basevertex[0]) else
         z_MultiDrawElementsBaseVertex_ovr_0_anh0000101(mode, count, &type, IntPtr.Zero, drawcount, IntPtr.Zero);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_10_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_10_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; var basevertex: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_0(mode, count, &type, indices[0], drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_0_anh0000100(mode, count, &type, IntPtr.Zero, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_11_anh0000100(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_11_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: IntPtr) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_2(mode, count, &type, indices[0], drawcount, basevertex) else
@@ -38779,14 +39816,10 @@ type
     z_MultiDrawElementsBaseVertex_ovr_6(mode, count, &type, indices, drawcount, basevertex);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr) :=
     z_MultiDrawElementsBaseVertex_ovr_8(mode, count, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_18(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_18_anh0000100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_18_anh0000001(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_18_anh0000101(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_18 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_18_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_18_anh0000001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_18_anh0000101 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: array of Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       if (basevertex<>nil) and (basevertex.Length<>0) then
@@ -38795,16 +39828,13 @@ type
       if (basevertex<>nil) and (basevertex.Length<>0) then
         z_MultiDrawElementsBaseVertex_ovr_18_anh0000100(mode, count, &type, IntPtr.Zero, drawcount, basevertex[0]) else
         z_MultiDrawElementsBaseVertex_ovr_18_anh0000101(mode, count, &type, IntPtr.Zero, drawcount, IntPtr.Zero);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_19_anh0000100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_19_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; var basevertex: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_18(mode, count, &type, indices[0], drawcount, basevertex) else
       z_MultiDrawElementsBaseVertex_ovr_18_anh0000100(mode, count, &type, IntPtr.Zero, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_20(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_20_anh0000100(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_20 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_20_anh0000100 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; drawcount: Int32; basevertex: IntPtr) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_20(mode, count, &type, indices[0], drawcount, basevertex) else
@@ -38817,627 +39847,559 @@ type
     z_MultiDrawElementsBaseVertex_ovr_18(mode, count, &type, indices, drawcount, basevertex);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; drawcount: Int32; basevertex: IntPtr) :=
     z_MultiDrawElementsBaseVertex_ovr_20(mode, count, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_24(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_24_anh0000001(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_24 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
+    private z_MultiDrawElementsBaseVertex_ovr_24_anh0000001 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: array of Int32) :=
     if (basevertex<>nil) and (basevertex.Length<>0) then
       z_MultiDrawElementsBaseVertex_ovr_24(mode, count, &type, indices, drawcount, basevertex[0]) else
       z_MultiDrawElementsBaseVertex_ovr_24_anh0000001(mode, count, &type, indices, drawcount, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; var basevertex: Int32) :=
     z_MultiDrawElementsBaseVertex_ovr_24(mode, count, &type, indices, drawcount, basevertex);
-    private static procedure z_MultiDrawElementsBaseVertex_ovr_26(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr);
-    external 'opengl32.dll' name 'glMultiDrawElementsBaseVertex';
+    private z_MultiDrawElementsBaseVertex_ovr_26 := GetFuncOrNil&(z_MultiDrawElementsBaseVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsBaseVertex(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; drawcount: Int32; basevertex: IntPtr) :=
     z_MultiDrawElementsBaseVertex_ovr_26(mode, count, &type, indices, drawcount, basevertex);
     
   end;
   
   [PCUNotRestore]
-  glDrawIndirectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawIndirectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_draw_indirect';
     
-    private static procedure z_DrawArraysIndirect_ovr_0(mode: PrimitiveType; indirect: IntPtr);
-    external 'opengl32.dll' name 'glDrawArraysIndirect';
+    private z_DrawArraysIndirect_adr := GetFuncAdr('glDrawArraysIndirect');
+    private z_DrawArraysIndirect_ovr_0 := GetFuncOrNil&(z_DrawArraysIndirect_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArraysIndirect(mode: PrimitiveType; indirect: IntPtr) :=
     z_DrawArraysIndirect_ovr_0(mode, indirect);
     
-    private static procedure z_DrawElementsIndirect_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr);
-    external 'opengl32.dll' name 'glDrawElementsIndirect';
+    private z_DrawElementsIndirect_adr := GetFuncAdr('glDrawElementsIndirect');
+    private z_DrawElementsIndirect_ovr_0 := GetFuncOrNil&(z_DrawElementsIndirect_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsIndirect(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr) :=
     z_DrawElementsIndirect_ovr_0(mode, &type, indirect);
     
   end;
   
   [PCUNotRestore]
-  glDrawInstancedARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawInstancedARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_draw_instanced';
     
-    private static procedure z_DrawArraysInstancedARB_ovr_0(mode: PrimitiveType; first: Int32; count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glDrawArraysInstancedARB';
+    private z_DrawArraysInstancedARB_adr := GetFuncAdr('glDrawArraysInstancedARB');
+    private z_DrawArraysInstancedARB_ovr_0 := GetFuncOrNil&(z_DrawArraysInstancedARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArraysInstancedARB(mode: PrimitiveType; first: Int32; count: Int32; primcount: Int32) :=
     z_DrawArraysInstancedARB_ovr_0(mode, first, count, primcount);
     
-    private static procedure z_DrawElementsInstancedARB_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glDrawElementsInstancedARB';
+    private z_DrawElementsInstancedARB_adr := GetFuncAdr('glDrawElementsInstancedARB');
+    private z_DrawElementsInstancedARB_ovr_0 := GetFuncOrNil&(z_DrawElementsInstancedARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsInstancedARB(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32) :=
     z_DrawElementsInstancedARB_ovr_0(mode, count, &type, indices, primcount);
     
   end;
   
   [PCUNotRestore]
-  glFragmentProgramARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFragmentProgramARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_fragment_program';
     
-    private static procedure z_ProgramStringARB_ovr_0(target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr);
-    external 'opengl32.dll' name 'glProgramStringARB';
+    private z_ProgramStringARB_adr := GetFuncAdr('glProgramStringARB');
+    private z_ProgramStringARB_ovr_0 := GetFuncOrNil&(z_ProgramStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramStringARB(target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr) :=
     z_ProgramStringARB_ovr_0(target, format, len, string);
     
-    private static procedure z_BindProgramARB_ovr_0(target: ProgramTarget; &program: UInt32);
-    external 'opengl32.dll' name 'glBindProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramARB(target: ProgramTarget; &program: UInt32) :=
+    private z_BindProgramARB_adr := GetFuncAdr('glBindProgramARB');
+    private z_BindProgramARB_ovr_0 := GetFuncOrNil&(z_BindProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramARB(target: ProgramTarget; &program: gl_program) :=
     z_BindProgramARB_ovr_0(target, &program);
     
-    private static procedure z_DeleteProgramsARB_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
-    private static procedure z_DeleteProgramsARB_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: array of UInt32) :=
+    private z_DeleteProgramsARB_adr := GetFuncAdr('glDeleteProgramsARB');
+    private z_DeleteProgramsARB_ovr_0 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
+    private z_DeleteProgramsARB_ovr_0_anh001 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_DeleteProgramsARB_ovr_0(n, programs[0]) else
       z_DeleteProgramsARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; var programs: gl_program) :=
     z_DeleteProgramsARB_ovr_0(n, programs);
-    private static procedure z_DeleteProgramsARB_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
+    private z_DeleteProgramsARB_ovr_2 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: IntPtr) :=
     z_DeleteProgramsARB_ovr_2(n, programs);
     
-    private static procedure z_GenProgramsARB_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glGenProgramsARB';
-    private static procedure z_GenProgramsARB_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: array of UInt32) :=
+    private z_GenProgramsARB_adr := GetFuncAdr('glGenProgramsARB');
+    private z_GenProgramsARB_ovr_0 := GetFuncOrNil&(z_GenProgramsARB_adr);
+    private z_GenProgramsARB_ovr_0_anh001 := GetFuncOrNil&(z_GenProgramsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_GenProgramsARB_ovr_0(n, programs[0]) else
       z_GenProgramsARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; var programs: gl_program) :=
     z_GenProgramsARB_ovr_0(n, programs);
-    private static procedure z_GenProgramsARB_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsARB';
+    private z_GenProgramsARB_ovr_2 := GetFuncOrNil&(z_GenProgramsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: IntPtr) :=
     z_GenProgramsARB_ovr_2(n, programs);
     
-    private static procedure z_ProgramEnvParameter4dARB_ovr_0(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dARB';
+    private z_ProgramEnvParameter4dARB_adr := GetFuncAdr('glProgramEnvParameter4dARB');
+    private z_ProgramEnvParameter4dARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dARB(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_ProgramEnvParameter4dARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
+    private z_ProgramEnvParameter4dvARB_adr := GetFuncAdr('glProgramEnvParameter4dvARB');
+    private z_ProgramEnvParameter4dvARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
+    private z_ProgramEnvParameter4dvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameter4dvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameter4dvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_ProgramEnvParameter4dvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
+    private z_ProgramEnvParameter4dvARB_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameter4dvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramEnvParameter4fARB_ovr_0(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fARB';
+    private z_ProgramEnvParameter4fARB_adr := GetFuncAdr('glProgramEnvParameter4fARB');
+    private z_ProgramEnvParameter4fARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fARB(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_ProgramEnvParameter4fARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
+    private z_ProgramEnvParameter4fvARB_adr := GetFuncAdr('glProgramEnvParameter4fvARB');
+    private z_ProgramEnvParameter4fvARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
+    private z_ProgramEnvParameter4fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameter4fvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameter4fvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_ProgramEnvParameter4fvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
+    private z_ProgramEnvParameter4fvARB_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameter4fvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParameter4dARB_ovr_0(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dARB';
+    private z_ProgramLocalParameter4dARB_adr := GetFuncAdr('glProgramLocalParameter4dARB');
+    private z_ProgramLocalParameter4dARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dARB(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_ProgramLocalParameter4dARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
+    private z_ProgramLocalParameter4dvARB_adr := GetFuncAdr('glProgramLocalParameter4dvARB');
+    private z_ProgramLocalParameter4dvARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
+    private z_ProgramLocalParameter4dvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameter4dvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameter4dvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_ProgramLocalParameter4dvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
+    private z_ProgramLocalParameter4dvARB_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameter4dvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParameter4fARB_ovr_0(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fARB';
+    private z_ProgramLocalParameter4fARB_adr := GetFuncAdr('glProgramLocalParameter4fARB');
+    private z_ProgramLocalParameter4fARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fARB(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_ProgramLocalParameter4fARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
+    private z_ProgramLocalParameter4fvARB_adr := GetFuncAdr('glProgramLocalParameter4fvARB');
+    private z_ProgramLocalParameter4fvARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
+    private z_ProgramLocalParameter4fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameter4fvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameter4fvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_ProgramLocalParameter4fvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
+    private z_ProgramLocalParameter4fvARB_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameter4fvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
+    private z_GetProgramEnvParameterdvARB_adr := GetFuncAdr('glGetProgramEnvParameterdvARB');
+    private z_GetProgramEnvParameterdvARB_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
+    private z_GetProgramEnvParameterdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterdvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterdvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_GetProgramEnvParameterdvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
+    private z_GetProgramEnvParameterdvARB_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterdvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
+    private z_GetProgramEnvParameterfvARB_adr := GetFuncAdr('glGetProgramEnvParameterfvARB');
+    private z_GetProgramEnvParameterfvARB_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
+    private z_GetProgramEnvParameterfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterfvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterfvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_GetProgramEnvParameterfvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
+    private z_GetProgramEnvParameterfvARB_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterfvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
+    private z_GetProgramLocalParameterdvARB_adr := GetFuncAdr('glGetProgramLocalParameterdvARB');
+    private z_GetProgramLocalParameterdvARB_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
+    private z_GetProgramLocalParameterdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterdvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterdvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_GetProgramLocalParameterdvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
+    private z_GetProgramLocalParameterdvARB_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterdvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
+    private z_GetProgramLocalParameterfvARB_adr := GetFuncAdr('glGetProgramLocalParameterfvARB');
+    private z_GetProgramLocalParameterfvARB_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
+    private z_GetProgramLocalParameterfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterfvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterfvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_GetProgramLocalParameterfvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
+    private z_GetProgramLocalParameterfvARB_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterfvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramivARB_ovr_0(target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramivARB';
-    private static procedure z_GetProgramivARB_ovr_0_anh0001(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramivARB_ovr_0(target, pname, ¶ms[0]) else
-      z_GetProgramivARB_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_GetProgramivARB_adr := GetFuncAdr('glGetProgramivARB');
+    private z_GetProgramivARB_ovr_0 := GetFuncOrNil&(z_GetProgramivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32) :=
     z_GetProgramivARB_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetProgramivARB_ovr_2(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivARB';
+    private z_GetProgramivARB_ovr_1 := GetFuncOrNil&(z_GetProgramivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
-    z_GetProgramivARB_ovr_2(target, pname, ¶ms);
+    z_GetProgramivARB_ovr_1(target, pname, ¶ms);
     
-    private static procedure z_GetProgramStringARB_ovr_0(target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStringARB';
+    private z_GetProgramStringARB_adr := GetFuncAdr('glGetProgramStringARB');
+    private z_GetProgramStringARB_ovr_0 := GetFuncOrNil&(z_GetProgramStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringARB(target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr) :=
     z_GetProgramStringARB_ovr_0(target, pname, string);
     
-    private static function z_IsProgramARB_ovr_0(&program: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramARB(&program: UInt32): boolean :=
+    private z_IsProgramARB_adr := GetFuncAdr('glIsProgramARB');
+    private z_IsProgramARB_ovr_0 := GetFuncOrNil&(z_IsProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramARB(&program: gl_program): boolean :=
     z_IsProgramARB_ovr_0(&program);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferNoAttachmentsARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferNoAttachmentsARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_framebuffer_no_attachments';
     
-    private static procedure z_FramebufferParameteri_ovr_0(target: FramebufferTarget; pname: FramebufferParameterName; param: Int32);
-    external 'opengl32.dll' name 'glFramebufferParameteri';
+    private z_FramebufferParameteri_adr := GetFuncAdr('glFramebufferParameteri');
+    private z_FramebufferParameteri_ovr_0 := GetFuncOrNil&(z_FramebufferParameteri_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferParameteri(target: FramebufferTarget; pname: FramebufferParameterName; param: Int32) :=
     z_FramebufferParameteri_ovr_0(target, pname, param);
     
-    private static procedure z_GetFramebufferParameteriv_ovr_0(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFramebufferParameteriv';
-    private static procedure z_GetFramebufferParameteriv_ovr_0_anh0001(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameteriv';
+    private z_GetFramebufferParameteriv_adr := GetFuncAdr('glGetFramebufferParameteriv');
+    private z_GetFramebufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetFramebufferParameteriv_adr);
+    private z_GetFramebufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetFramebufferParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameteriv(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFramebufferParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetFramebufferParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameteriv(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetFramebufferParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetFramebufferParameteriv_ovr_2(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameteriv';
+    private z_GetFramebufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetFramebufferParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameteriv(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetFramebufferParameteriv_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_framebuffer_object';
     
-    private static function z_IsRenderbuffer_ovr_0(renderbuffer: RenderbufferName): boolean;
-    external 'opengl32.dll' name 'glIsRenderbuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbuffer(renderbuffer: RenderbufferName): boolean :=
+    private z_IsRenderbuffer_adr := GetFuncAdr('glIsRenderbuffer');
+    private z_IsRenderbuffer_ovr_0 := GetFuncOrNil&(z_IsRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbuffer(renderbuffer: gl_renderbuffer): boolean :=
     z_IsRenderbuffer_ovr_0(renderbuffer);
     
-    private static procedure z_BindRenderbuffer_ovr_0(target: RenderbufferTarget; renderbuffer: RenderbufferName);
-    external 'opengl32.dll' name 'glBindRenderbuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbuffer(target: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_BindRenderbuffer_adr := GetFuncAdr('glBindRenderbuffer');
+    private z_BindRenderbuffer_ovr_0 := GetFuncOrNil&(z_BindRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbuffer(target: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_BindRenderbuffer_ovr_0(target, renderbuffer);
     
-    private static procedure z_DeleteRenderbuffers_ovr_0(n: Int32; var renderbuffers: UInt32);
-    external 'opengl32.dll' name 'glDeleteRenderbuffers';
-    private static procedure z_DeleteRenderbuffers_ovr_0_anh001(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteRenderbuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    private z_DeleteRenderbuffers_adr := GetFuncAdr('glDeleteRenderbuffers');
+    private z_DeleteRenderbuffers_ovr_0 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
+    private z_DeleteRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_DeleteRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_DeleteRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_DeleteRenderbuffers_ovr_0(n, renderbuffers);
-    private static procedure z_DeleteRenderbuffers_ovr_2(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteRenderbuffers';
+    private z_DeleteRenderbuffers_ovr_2 := GetFuncOrNil&(z_DeleteRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
     z_DeleteRenderbuffers_ovr_2(n, renderbuffers);
     
-    private static procedure z_GenRenderbuffers_ovr_0(n: Int32; var renderbuffers: UInt32);
-    external 'opengl32.dll' name 'glGenRenderbuffers';
-    private static procedure z_GenRenderbuffers_ovr_0_anh001(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenRenderbuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: array of UInt32) :=
+    private z_GenRenderbuffers_adr := GetFuncAdr('glGenRenderbuffers');
+    private z_GenRenderbuffers_ovr_0 := GetFuncOrNil&(z_GenRenderbuffers_adr);
+    private z_GenRenderbuffers_ovr_0_anh001 := GetFuncOrNil&(z_GenRenderbuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_GenRenderbuffers_ovr_0(n, renderbuffers[0]) else
       z_GenRenderbuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_GenRenderbuffers_ovr_0(n, renderbuffers);
-    private static procedure z_GenRenderbuffers_ovr_2(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenRenderbuffers';
+    private z_GenRenderbuffers_ovr_2 := GetFuncOrNil&(z_GenRenderbuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffers(n: Int32; renderbuffers: IntPtr) :=
     z_GenRenderbuffers_ovr_2(n, renderbuffers);
     
-    private static procedure z_RenderbufferStorage_ovr_0(target: RenderbufferTarget; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorage';
+    private z_RenderbufferStorage_adr := GetFuncAdr('glRenderbufferStorage');
+    private z_RenderbufferStorage_ovr_0 := GetFuncOrNil&(z_RenderbufferStorage_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorage(target: RenderbufferTarget; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorage_ovr_0(target, _internalformat, width, height);
     
-    private static procedure z_GetRenderbufferParameteriv_ovr_0(target: RenderbufferTarget; pname: RenderbufferParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetRenderbufferParameteriv';
-    private static procedure z_GetRenderbufferParameteriv_ovr_0_anh0001(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetRenderbufferParameteriv';
+    private z_GetRenderbufferParameteriv_adr := GetFuncAdr('glGetRenderbufferParameteriv');
+    private z_GetRenderbufferParameteriv_ovr_0 := GetFuncOrNil&(z_GetRenderbufferParameteriv_adr);
+    private z_GetRenderbufferParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetRenderbufferParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameteriv(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetRenderbufferParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetRenderbufferParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameteriv(target: RenderbufferTarget; pname: RenderbufferParameterName; var ¶ms: Int32) :=
     z_GetRenderbufferParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetRenderbufferParameteriv_ovr_2(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetRenderbufferParameteriv';
+    private z_GetRenderbufferParameteriv_ovr_2 := GetFuncOrNil&(z_GetRenderbufferParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameteriv(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
     z_GetRenderbufferParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static function z_IsFramebuffer_ovr_0(framebuffer: FramebufferName): boolean;
-    external 'opengl32.dll' name 'glIsFramebuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebuffer(framebuffer: FramebufferName): boolean :=
+    private z_IsFramebuffer_adr := GetFuncAdr('glIsFramebuffer');
+    private z_IsFramebuffer_ovr_0 := GetFuncOrNil&(z_IsFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebuffer(framebuffer: gl_framebuffer): boolean :=
     z_IsFramebuffer_ovr_0(framebuffer);
     
-    private static procedure z_BindFramebuffer_ovr_0(target: FramebufferTarget; framebuffer: FramebufferName);
-    external 'opengl32.dll' name 'glBindFramebuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebuffer(target: FramebufferTarget; framebuffer: FramebufferName) :=
+    private z_BindFramebuffer_adr := GetFuncAdr('glBindFramebuffer');
+    private z_BindFramebuffer_ovr_0 := GetFuncOrNil&(z_BindFramebuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebuffer(target: FramebufferTarget; framebuffer: gl_framebuffer) :=
     z_BindFramebuffer_ovr_0(target, framebuffer);
     
-    private static procedure z_DeleteFramebuffers_ovr_0(n: Int32; var framebuffers: UInt32);
-    external 'opengl32.dll' name 'glDeleteFramebuffers';
-    private static procedure z_DeleteFramebuffers_ovr_0_anh001(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFramebuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    private z_DeleteFramebuffers_adr := GetFuncAdr('glDeleteFramebuffers');
+    private z_DeleteFramebuffers_ovr_0 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
+    private z_DeleteFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_DeleteFramebuffers_ovr_0(n, framebuffers[0]) else
       z_DeleteFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_DeleteFramebuffers_ovr_0(n, framebuffers);
-    private static procedure z_DeleteFramebuffers_ovr_2(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFramebuffers';
+    private z_DeleteFramebuffers_ovr_2 := GetFuncOrNil&(z_DeleteFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffers(n: Int32; framebuffers: IntPtr) :=
     z_DeleteFramebuffers_ovr_2(n, framebuffers);
     
-    private static procedure z_GenFramebuffers_ovr_0(n: Int32; var framebuffers: UInt32);
-    external 'opengl32.dll' name 'glGenFramebuffers';
-    private static procedure z_GenFramebuffers_ovr_0_anh001(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenFramebuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: array of UInt32) :=
+    private z_GenFramebuffers_adr := GetFuncAdr('glGenFramebuffers');
+    private z_GenFramebuffers_ovr_0 := GetFuncOrNil&(z_GenFramebuffers_adr);
+    private z_GenFramebuffers_ovr_0_anh001 := GetFuncOrNil&(z_GenFramebuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_GenFramebuffers_ovr_0(n, framebuffers[0]) else
       z_GenFramebuffers_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; var framebuffers: gl_framebuffer) :=
     z_GenFramebuffers_ovr_0(n, framebuffers);
-    private static procedure z_GenFramebuffers_ovr_2(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenFramebuffers';
+    private z_GenFramebuffers_ovr_2 := GetFuncOrNil&(z_GenFramebuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffers(n: Int32; framebuffers: IntPtr) :=
     z_GenFramebuffers_ovr_2(n, framebuffers);
     
-    private static function z_CheckFramebufferStatus_ovr_0(target: FramebufferTarget): FramebufferStatus;
-    external 'opengl32.dll' name 'glCheckFramebufferStatus';
+    private z_CheckFramebufferStatus_adr := GetFuncAdr('glCheckFramebufferStatus');
+    private z_CheckFramebufferStatus_ovr_0 := GetFuncOrNil&(z_CheckFramebufferStatus_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckFramebufferStatus(target: FramebufferTarget): FramebufferStatus :=
     z_CheckFramebufferStatus_ovr_0(target);
     
-    private static procedure z_FramebufferTexture1D_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture1D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture1D_adr := GetFuncAdr('glFramebufferTexture1D');
+    private z_FramebufferTexture1D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture1D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture1D_ovr_0(target, attachment, textarget, texture, level);
     
-    private static procedure z_FramebufferTexture2D_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture2D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture2D_adr := GetFuncAdr('glFramebufferTexture2D');
+    private z_FramebufferTexture2D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture2D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture2D_ovr_0(target, attachment, textarget, texture, level);
     
-    private static procedure z_FramebufferTexture3D_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32) :=
+    private z_FramebufferTexture3D_adr := GetFuncAdr('glFramebufferTexture3D');
+    private z_FramebufferTexture3D_ovr_0 := GetFuncOrNil&(z_FramebufferTexture3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3D(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32; zoffset: Int32) :=
     z_FramebufferTexture3D_ovr_0(target, attachment, textarget, texture, level, zoffset);
     
-    private static procedure z_FramebufferRenderbuffer_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName);
-    external 'opengl32.dll' name 'glFramebufferRenderbuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbuffer(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: RenderbufferName) :=
+    private z_FramebufferRenderbuffer_adr := GetFuncAdr('glFramebufferRenderbuffer');
+    private z_FramebufferRenderbuffer_ovr_0 := GetFuncOrNil&(z_FramebufferRenderbuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbuffer(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_FramebufferRenderbuffer_ovr_0(target, attachment, _renderbuffertarget, renderbuffer);
     
-    private static procedure z_GetFramebufferAttachmentParameteriv_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameteriv';
-    private static procedure z_GetFramebufferAttachmentParameteriv_ovr_0_anh00001(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameteriv';
+    private z_GetFramebufferAttachmentParameteriv_adr := GetFuncAdr('glGetFramebufferAttachmentParameteriv');
+    private z_GetFramebufferAttachmentParameteriv_ovr_0 := GetFuncOrNil&(z_GetFramebufferAttachmentParameteriv_adr);
+    private z_GetFramebufferAttachmentParameteriv_ovr_0_anh00001 := GetFuncOrNil&(z_GetFramebufferAttachmentParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameteriv(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFramebufferAttachmentParameteriv_ovr_0(target, attachment, pname, ¶ms[0]) else
       z_GetFramebufferAttachmentParameteriv_ovr_0_anh00001(target, attachment, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameteriv(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetFramebufferAttachmentParameteriv_ovr_0(target, attachment, pname, ¶ms);
-    private static procedure z_GetFramebufferAttachmentParameteriv_ovr_2(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameteriv';
+    private z_GetFramebufferAttachmentParameteriv_ovr_2 := GetFuncOrNil&(z_GetFramebufferAttachmentParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameteriv(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetFramebufferAttachmentParameteriv_ovr_2(target, attachment, pname, ¶ms);
     
-    private static procedure z_GenerateMipmap_ovr_0(target: TextureTarget);
-    external 'opengl32.dll' name 'glGenerateMipmap';
+    private z_GenerateMipmap_adr := GetFuncAdr('glGenerateMipmap');
+    private z_GenerateMipmap_ovr_0 := GetFuncOrNil&(z_GenerateMipmap_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateMipmap(target: TextureTarget) :=
     z_GenerateMipmap_ovr_0(target);
     
-    private static procedure z_BlitFramebuffer_ovr_0(srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter);
-    external 'opengl32.dll' name 'glBlitFramebuffer';
+    private z_BlitFramebuffer_adr := GetFuncAdr('glBlitFramebuffer');
+    private z_BlitFramebuffer_ovr_0 := GetFuncOrNil&(z_BlitFramebuffer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitFramebuffer(srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
     z_BlitFramebuffer_ovr_0(srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
-    private static procedure z_RenderbufferStorageMultisample_ovr_0(target: RenderbufferTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorageMultisample';
+    private z_RenderbufferStorageMultisample_adr := GetFuncAdr('glRenderbufferStorageMultisample');
+    private z_RenderbufferStorageMultisample_ovr_0 := GetFuncOrNil&(z_RenderbufferStorageMultisample_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorageMultisample(target: RenderbufferTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorageMultisample_ovr_0(target, samples, _internalformat, width, height);
     
-    private static procedure z_FramebufferTextureLayer_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureLayer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayer(target: FramebufferTarget; attachment: FramebufferAttachment; texture: TextureName; level: Int32; layer: Int32) :=
+    private z_FramebufferTextureLayer_adr := GetFuncAdr('glFramebufferTextureLayer');
+    private z_FramebufferTextureLayer_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayer(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_FramebufferTextureLayer_ovr_0(target, attachment, texture, level, layer);
     
   end;
   
   [PCUNotRestore]
-  glGeometryShader4ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGeometryShader4ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_geometry_shader4';
     
-    private static procedure z_ProgramParameteriARB_ovr_0(&program: UInt32; pname: ProgramParameterPName; value: Int32);
-    external 'opengl32.dll' name 'glProgramParameteriARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteriARB(&program: UInt32; pname: ProgramParameterPName; value: Int32) :=
+    private z_ProgramParameteriARB_adr := GetFuncAdr('glProgramParameteriARB');
+    private z_ProgramParameteriARB_ovr_0 := GetFuncOrNil&(z_ProgramParameteriARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteriARB(&program: gl_program; pname: ProgramParameterPName; value: Int32) :=
     z_ProgramParameteriARB_ovr_0(&program, pname, value);
     
-    private static procedure z_FramebufferTextureARB_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32) :=
+    private z_FramebufferTextureARB_adr := GetFuncAdr('glFramebufferTextureARB');
+    private z_FramebufferTextureARB_ovr_0 := GetFuncOrNil&(z_FramebufferTextureARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_FramebufferTextureARB_ovr_0(target, attachment, texture, level);
     
-    private static procedure z_FramebufferTextureLayerARB_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureLayerARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32) :=
+    private z_FramebufferTextureLayerARB_adr := GetFuncAdr('glFramebufferTextureLayerARB');
+    private z_FramebufferTextureLayerARB_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayerARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_FramebufferTextureLayerARB_ovr_0(target, attachment, texture, level, layer);
     
-    private static procedure z_FramebufferTextureFaceARB_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget);
-    external 'opengl32.dll' name 'glFramebufferTextureFaceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureFaceARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget) :=
+    private z_FramebufferTextureFaceARB_adr := GetFuncAdr('glFramebufferTextureFaceARB');
+    private z_FramebufferTextureFaceARB_ovr_0 := GetFuncOrNil&(z_FramebufferTextureFaceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureFaceARB(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; face: TextureTarget) :=
     z_FramebufferTextureFaceARB_ovr_0(target, attachment, texture, level, face);
     
   end;
   
   [PCUNotRestore]
-  glGetProgramBinaryARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGetProgramBinaryARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_get_program_binary';
     
-    private static procedure z_GetProgramBinary_ovr_0(&program: UInt32; bufSize: Int32; var length: Int32; var binaryFormat: DummyEnum; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    private static procedure z_GetProgramBinary_ovr_0_anh000100(&program: UInt32; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    private static procedure z_GetProgramBinary_ovr_0_anh000010(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    private static procedure z_GetProgramBinary_ovr_0_anh000110(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-        z_GetProgramBinary_ovr_0(&program, bufSize, length[0], binaryFormat[0], binary) else
-        z_GetProgramBinary_ovr_0_anh000010(&program, bufSize, length[0], IntPtr.Zero, binary) else
-      if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-        z_GetProgramBinary_ovr_0_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat[0], binary) else
-        z_GetProgramBinary_ovr_0_anh000110(&program, bufSize, IntPtr.Zero, IntPtr.Zero, binary);
-    private static procedure z_GetProgramBinary_ovr_1_anh000100(&program: UInt32; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramBinary_ovr_0(&program, bufSize, length[0], binaryFormat, binary) else
-      z_GetProgramBinary_ovr_0_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat, binary);
-    private static procedure z_GetProgramBinary_ovr_2(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    private static procedure z_GetProgramBinary_ovr_2_anh000100(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: array of Int32; binaryFormat: IntPtr; binary: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramBinary_ovr_2(&program, bufSize, length[0], binaryFormat, binary) else
-      z_GetProgramBinary_ovr_2_anh000100(&program, bufSize, IntPtr.Zero, binaryFormat, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-      z_GetProgramBinary_ovr_0(&program, bufSize, length, binaryFormat[0], binary) else
-      z_GetProgramBinary_ovr_0_anh000010(&program, bufSize, length, IntPtr.Zero, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
+    private z_GetProgramBinary_adr := GetFuncAdr('glGetProgramBinary');
+    private z_GetProgramBinary_ovr_0 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; var length: Int32; var binaryFormat: DummyEnum; binary: IntPtr) :=
     z_GetProgramBinary_ovr_0(&program, bufSize, length, binaryFormat, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr) :=
+    private z_GetProgramBinary_ovr_1 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; var length: Int32; binaryFormat: IntPtr; binary: IntPtr) :=
+    z_GetProgramBinary_ovr_1(&program, bufSize, length, binaryFormat, binary);
+    private z_GetProgramBinary_ovr_2 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr) :=
     z_GetProgramBinary_ovr_2(&program, bufSize, length, binaryFormat, binary);
-    private static procedure z_GetProgramBinary_ovr_6(&program: UInt32; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    private static procedure z_GetProgramBinary_ovr_6_anh000010(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: array of DummyEnum; binary: IntPtr) :=
-    if (binaryFormat<>nil) and (binaryFormat.Length<>0) then
-      z_GetProgramBinary_ovr_6(&program, bufSize, length, binaryFormat[0], binary) else
-      z_GetProgramBinary_ovr_6_anh000010(&program, bufSize, length, IntPtr.Zero, binary);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; var binaryFormat: DummyEnum; binary: IntPtr) :=
-    z_GetProgramBinary_ovr_6(&program, bufSize, length, binaryFormat, binary);
-    private static procedure z_GetProgramBinary_ovr_8(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: UInt32; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr) :=
-    z_GetProgramBinary_ovr_8(&program, bufSize, length, binaryFormat, binary);
+    private z_GetProgramBinary_ovr_3 := GetFuncOrNil&(z_GetProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramBinary(&program: gl_program; bufSize: Int32; length: IntPtr; binaryFormat: IntPtr; binary: IntPtr) :=
+    z_GetProgramBinary_ovr_3(&program, bufSize, length, binaryFormat, binary);
     
-    private static procedure z_ProgramBinary_ovr_0(&program: UInt32; binaryFormat: DummyEnum; binary: IntPtr; length: Int32);
-    external 'opengl32.dll' name 'glProgramBinary';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBinary(&program: UInt32; binaryFormat: DummyEnum; binary: IntPtr; length: Int32) :=
+    private z_ProgramBinary_adr := GetFuncAdr('glProgramBinary');
+    private z_ProgramBinary_ovr_0 := GetFuncOrNil&(z_ProgramBinary_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBinary(&program: gl_program; binaryFormat: DummyEnum; binary: IntPtr; length: Int32) :=
     z_ProgramBinary_ovr_0(&program, binaryFormat, binary, length);
     
-    private static procedure z_ProgramParameteri_ovr_0(&program: ProgramName; pname: ProgramParameterPName; value: Int32);
-    external 'opengl32.dll' name 'glProgramParameteri';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: ProgramName; pname: ProgramParameterPName; value: Int32) :=
+    private z_ProgramParameteri_adr := GetFuncAdr('glProgramParameteri');
+    private z_ProgramParameteri_ovr_0 := GetFuncOrNil&(z_ProgramParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: gl_program; pname: ProgramParameterPName; value: Int32) :=
     z_ProgramParameteri_ovr_0(&program, pname, value);
     
   end;
   
   [PCUNotRestore]
-  glGetTextureSubImageARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGetTextureSubImageARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_get_texture_sub_image';
     
-    private static procedure z_GetTextureSubImage_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureSubImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetTextureSubImage_adr := GetFuncAdr('glGetTextureSubImage');
+    private z_GetTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetTextureSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; pixels: IntPtr) :=
     z_GetTextureSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, bufSize, pixels);
     
-    private static procedure z_GetCompressedTextureSubImage_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; bufSize: Int32; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetCompressedTextureSubImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureSubImage(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; bufSize: Int32; pixels: IntPtr) :=
+    private z_GetCompressedTextureSubImage_adr := GetFuncAdr('glGetCompressedTextureSubImage');
+    private z_GetCompressedTextureSubImage_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; bufSize: Int32; pixels: IntPtr) :=
     z_GetCompressedTextureSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, bufSize, pixels);
     
   end;
   
   [PCUNotRestore]
-  glGlSpirvARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGlSpirvARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_gl_spirv';
     
-    private static procedure z_SpecializeShaderARB_ovr_0(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    private static procedure z_SpecializeShaderARB_ovr_0_anh000010(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    private static procedure z_SpecializeShaderARB_ovr_0_anh000001(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    private static procedure z_SpecializeShaderARB_ovr_0_anh000011(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32);
+    private z_SpecializeShaderARB_adr := GetFuncAdr('glSpecializeShaderARB');
+    private z_SpecializeShaderARB_ovr_0 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    private z_SpecializeShaderARB_ovr_0_anh000010 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    private z_SpecializeShaderARB_ovr_0_anh000001 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    private z_SpecializeShaderARB_ovr_0_anh000011 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39453,9 +40415,8 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_SpecializeShaderARB_ovr_1_anh000010(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32);
+    private z_SpecializeShaderARB_ovr_1_anh000010 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39467,11 +40428,9 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_SpecializeShaderARB_ovr_2(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    private static procedure z_SpecializeShaderARB_ovr_2_anh000010(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr);
+    private z_SpecializeShaderARB_ovr_2 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    private z_SpecializeShaderARB_ovr_2_anh000010 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39483,7 +40442,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39495,7 +40454,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39505,7 +40464,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39515,11 +40474,9 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_SpecializeShaderARB_ovr_6(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    private static procedure z_SpecializeShaderARB_ovr_6_anh000001(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32);
+    private z_SpecializeShaderARB_ovr_6 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    private z_SpecializeShaderARB_ovr_6_anh000001 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39531,7 +40488,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39541,9 +40498,8 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_SpecializeShaderARB_ovr_8(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
-    external 'opengl32.dll' name 'glSpecializeShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
+    private z_SpecializeShaderARB_ovr_8 := GetFuncOrNil&(z_SpecializeShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: string; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -39553,7 +40509,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: array of UInt32) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
         z_SpecializeShaderARB_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue[0]) else
@@ -39561,1244 +40517,1151 @@ type
       if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
         z_SpecializeShaderARB_ovr_0_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue[0]) else
         z_SpecializeShaderARB_ovr_0_anh000011(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; var pConstantValue: UInt32) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       z_SpecializeShaderARB_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue) else
       z_SpecializeShaderARB_ovr_0_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: array of UInt32; pConstantValue: IntPtr) :=
     if (pConstantIndex<>nil) and (pConstantIndex.Length<>0) then
       z_SpecializeShaderARB_ovr_2(shader, pEntryPoint, numSpecializationConstants, pConstantIndex[0], pConstantValue) else
       z_SpecializeShaderARB_ovr_2_anh000010(shader, pEntryPoint, numSpecializationConstants, IntPtr.Zero, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: array of UInt32) :=
     if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
       z_SpecializeShaderARB_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue[0]) else
       z_SpecializeShaderARB_ovr_0_anh000001(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; var pConstantValue: UInt32) :=
     z_SpecializeShaderARB_ovr_0(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; var pConstantIndex: UInt32; pConstantValue: IntPtr) :=
     z_SpecializeShaderARB_ovr_2(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: array of UInt32) :=
     if (pConstantValue<>nil) and (pConstantValue.Length<>0) then
       z_SpecializeShaderARB_ovr_6(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue[0]) else
       z_SpecializeShaderARB_ovr_6_anh000001(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; var pConstantValue: UInt32) :=
     z_SpecializeShaderARB_ovr_6(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: UInt32; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpecializeShaderARB(shader: gl_shader; pEntryPoint: IntPtr; numSpecializationConstants: UInt32; pConstantIndex: IntPtr; pConstantValue: IntPtr) :=
     z_SpecializeShaderARB_ovr_8(shader, pEntryPoint, numSpecializationConstants, pConstantIndex, pConstantValue);
     
   end;
   
   [PCUNotRestore]
-  glGpuShaderFp64ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuShaderFp64ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_gpu_shader_fp64';
     
-    private static procedure z_Uniform1d_ovr_0(location: Int32; x: real);
-    external 'opengl32.dll' name 'glUniform1d';
+    private z_Uniform1d_adr := GetFuncAdr('glUniform1d');
+    private z_Uniform1d_ovr_0 := GetFuncOrNil&(z_Uniform1d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1d(location: Int32; x: real) :=
     z_Uniform1d_ovr_0(location, x);
     
-    private static procedure z_Uniform2d_ovr_0(location: Int32; x: real; y: real);
-    external 'opengl32.dll' name 'glUniform2d';
+    private z_Uniform2d_adr := GetFuncAdr('glUniform2d');
+    private z_Uniform2d_ovr_0 := GetFuncOrNil&(z_Uniform2d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2d(location: Int32; x: real; y: real) :=
     z_Uniform2d_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3d_ovr_0(location: Int32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glUniform3d';
+    private z_Uniform3d_adr := GetFuncAdr('glUniform3d');
+    private z_Uniform3d_ovr_0 := GetFuncOrNil&(z_Uniform3d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3d(location: Int32; x: real; y: real; z: real) :=
     z_Uniform3d_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4d_ovr_0(location: Int32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glUniform4d';
+    private z_Uniform4d_adr := GetFuncAdr('glUniform4d');
+    private z_Uniform4d_ovr_0 := GetFuncOrNil&(z_Uniform4d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4d(location: Int32; x: real; y: real; z: real; w: real) :=
     z_Uniform4d_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1dv_ovr_0(location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glUniform1dv';
-    private static procedure z_Uniform1dv_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1dv';
+    private z_Uniform1dv_adr := GetFuncAdr('glUniform1dv');
+    private z_Uniform1dv_ovr_0 := GetFuncOrNil&(z_Uniform1dv_adr);
+    private z_Uniform1dv_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1dv(location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1dv_ovr_0(location, count, value[0]) else
       z_Uniform1dv_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1dv(location: Int32; count: Int32; var value: real) :=
     z_Uniform1dv_ovr_0(location, count, value);
-    private static procedure z_Uniform1dv_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1dv';
+    private z_Uniform1dv_ovr_2 := GetFuncOrNil&(z_Uniform1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1dv(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1dv_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2dv_ovr_0(location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glUniform2dv';
-    private static procedure z_Uniform2dv_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2dv';
+    private z_Uniform2dv_adr := GetFuncAdr('glUniform2dv');
+    private z_Uniform2dv_ovr_0 := GetFuncOrNil&(z_Uniform2dv_adr);
+    private z_Uniform2dv_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2dv(location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2dv_ovr_0(location, count, value[0]) else
       z_Uniform2dv_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2dv(location: Int32; count: Int32; var value: real) :=
     z_Uniform2dv_ovr_0(location, count, value);
-    private static procedure z_Uniform2dv_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2dv';
+    private z_Uniform2dv_ovr_2 := GetFuncOrNil&(z_Uniform2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2dv(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2dv_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3dv_ovr_0(location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glUniform3dv';
-    private static procedure z_Uniform3dv_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3dv';
+    private z_Uniform3dv_adr := GetFuncAdr('glUniform3dv');
+    private z_Uniform3dv_ovr_0 := GetFuncOrNil&(z_Uniform3dv_adr);
+    private z_Uniform3dv_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3dv(location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3dv_ovr_0(location, count, value[0]) else
       z_Uniform3dv_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3dv(location: Int32; count: Int32; var value: real) :=
     z_Uniform3dv_ovr_0(location, count, value);
-    private static procedure z_Uniform3dv_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3dv';
+    private z_Uniform3dv_ovr_2 := GetFuncOrNil&(z_Uniform3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3dv(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3dv_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4dv_ovr_0(location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glUniform4dv';
-    private static procedure z_Uniform4dv_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4dv';
+    private z_Uniform4dv_adr := GetFuncAdr('glUniform4dv');
+    private z_Uniform4dv_ovr_0 := GetFuncOrNil&(z_Uniform4dv_adr);
+    private z_Uniform4dv_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4dv(location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4dv_ovr_0(location, count, value[0]) else
       z_Uniform4dv_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4dv(location: Int32; count: Int32; var value: real) :=
     z_Uniform4dv_ovr_0(location, count, value);
-    private static procedure z_Uniform4dv_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4dv';
+    private z_Uniform4dv_ovr_2 := GetFuncOrNil&(z_Uniform4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4dv(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4dv_ovr_2(location, count, value);
     
-    private static procedure z_UniformMatrix2dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix2dv';
-    private static procedure z_UniformMatrix2dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2dv';
+    private z_UniformMatrix2dv_adr := GetFuncAdr('glUniformMatrix2dv');
+    private z_UniformMatrix2dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix2dv_adr);
+    private z_UniformMatrix2dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix2dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix2dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix2dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix2dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2dv';
+    private z_UniformMatrix2dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix2dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix3dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix3dv';
-    private static procedure z_UniformMatrix3dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3dv';
+    private z_UniformMatrix3dv_adr := GetFuncAdr('glUniformMatrix3dv');
+    private z_UniformMatrix3dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix3dv_adr);
+    private z_UniformMatrix3dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix3dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix3dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix3dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix3dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3dv';
+    private z_UniformMatrix3dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix3dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix4dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix4dv';
-    private static procedure z_UniformMatrix4dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4dv';
+    private z_UniformMatrix4dv_adr := GetFuncAdr('glUniformMatrix4dv');
+    private z_UniformMatrix4dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix4dv_adr);
+    private z_UniformMatrix4dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix4dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix4dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix4dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix4dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4dv';
+    private z_UniformMatrix4dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix4dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix2x3dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix2x3dv';
-    private static procedure z_UniformMatrix2x3dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2x3dv';
+    private z_UniformMatrix2x3dv_adr := GetFuncAdr('glUniformMatrix2x3dv');
+    private z_UniformMatrix2x3dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix2x3dv_adr);
+    private z_UniformMatrix2x3dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix2x3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x3dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix2x3dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix2x3dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x3dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix2x3dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix2x3dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2x3dv';
+    private z_UniformMatrix2x3dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix2x3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x3dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix2x3dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix2x4dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix2x4dv';
-    private static procedure z_UniformMatrix2x4dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2x4dv';
+    private z_UniformMatrix2x4dv_adr := GetFuncAdr('glUniformMatrix2x4dv');
+    private z_UniformMatrix2x4dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix2x4dv_adr);
+    private z_UniformMatrix2x4dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix2x4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x4dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix2x4dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix2x4dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x4dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix2x4dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix2x4dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2x4dv';
+    private z_UniformMatrix2x4dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix2x4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2x4dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix2x4dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix3x2dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix3x2dv';
-    private static procedure z_UniformMatrix3x2dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3x2dv';
+    private z_UniformMatrix3x2dv_adr := GetFuncAdr('glUniformMatrix3x2dv');
+    private z_UniformMatrix3x2dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix3x2dv_adr);
+    private z_UniformMatrix3x2dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix3x2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x2dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix3x2dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix3x2dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x2dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix3x2dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix3x2dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3x2dv';
+    private z_UniformMatrix3x2dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix3x2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x2dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix3x2dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix3x4dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix3x4dv';
-    private static procedure z_UniformMatrix3x4dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3x4dv';
+    private z_UniformMatrix3x4dv_adr := GetFuncAdr('glUniformMatrix3x4dv');
+    private z_UniformMatrix3x4dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix3x4dv_adr);
+    private z_UniformMatrix3x4dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix3x4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x4dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix3x4dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix3x4dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x4dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix3x4dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix3x4dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3x4dv';
+    private z_UniformMatrix3x4dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix3x4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3x4dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix3x4dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix4x2dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix4x2dv';
-    private static procedure z_UniformMatrix4x2dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4x2dv';
+    private z_UniformMatrix4x2dv_adr := GetFuncAdr('glUniformMatrix4x2dv');
+    private z_UniformMatrix4x2dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix4x2dv_adr);
+    private z_UniformMatrix4x2dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix4x2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x2dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix4x2dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix4x2dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x2dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix4x2dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix4x2dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4x2dv';
+    private z_UniformMatrix4x2dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix4x2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x2dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix4x2dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix4x3dv_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glUniformMatrix4x3dv';
-    private static procedure z_UniformMatrix4x3dv_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4x3dv';
+    private z_UniformMatrix4x3dv_adr := GetFuncAdr('glUniformMatrix4x3dv');
+    private z_UniformMatrix4x3dv_ovr_0 := GetFuncOrNil&(z_UniformMatrix4x3dv_adr);
+    private z_UniformMatrix4x3dv_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix4x3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x3dv(location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix4x3dv_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix4x3dv_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x3dv(location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_UniformMatrix4x3dv_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix4x3dv_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4x3dv';
+    private z_UniformMatrix4x3dv_ovr_2 := GetFuncOrNil&(z_UniformMatrix4x3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4x3dv(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix4x3dv_ovr_2(location, count, transpose, value);
     
-    private static procedure z_GetUniformdv_ovr_0(&program: ProgramName; location: Int32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetUniformdv';
-    private static procedure z_GetUniformdv_ovr_0_anh0001(&program: ProgramName; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformdv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; ¶ms: array of real) :=
+    private z_GetUniformdv_adr := GetFuncAdr('glGetUniformdv');
+    private z_GetUniformdv_ovr_0 := GetFuncOrNil&(z_GetUniformdv_adr);
+    private z_GetUniformdv_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformdv_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformdv_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; var ¶ms: real) :=
     z_GetUniformdv_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformdv_ovr_2(&program: ProgramName; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformdv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: ProgramName; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformdv_ovr_2 := GetFuncOrNil&(z_GetUniformdv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformdv(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformdv_ovr_2(&program, location, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glGpuShaderInt64ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuShaderInt64ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_gpu_shader_int64';
     
-    private static procedure z_Uniform1i64ARB_ovr_0(location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glUniform1i64ARB';
+    private z_Uniform1i64ARB_adr := GetFuncAdr('glUniform1i64ARB');
+    private z_Uniform1i64ARB_ovr_0 := GetFuncOrNil&(z_Uniform1i64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64ARB(location: Int32; x: Int64) :=
     z_Uniform1i64ARB_ovr_0(location, x);
     
-    private static procedure z_Uniform2i64ARB_ovr_0(location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glUniform2i64ARB';
+    private z_Uniform2i64ARB_adr := GetFuncAdr('glUniform2i64ARB');
+    private z_Uniform2i64ARB_ovr_0 := GetFuncOrNil&(z_Uniform2i64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64ARB(location: Int32; x: Int64; y: Int64) :=
     z_Uniform2i64ARB_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3i64ARB_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glUniform3i64ARB';
+    private z_Uniform3i64ARB_adr := GetFuncAdr('glUniform3i64ARB');
+    private z_Uniform3i64ARB_ovr_0 := GetFuncOrNil&(z_Uniform3i64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64ARB(location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_Uniform3i64ARB_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4i64ARB_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glUniform4i64ARB';
+    private z_Uniform4i64ARB_adr := GetFuncAdr('glUniform4i64ARB');
+    private z_Uniform4i64ARB_ovr_0 := GetFuncOrNil&(z_Uniform4i64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64ARB(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_Uniform4i64ARB_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1i64vARB_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform1i64vARB';
-    private static procedure z_Uniform1i64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vARB';
+    private z_Uniform1i64vARB_adr := GetFuncAdr('glUniform1i64vARB');
+    private z_Uniform1i64vARB_ovr_0 := GetFuncOrNil&(z_Uniform1i64vARB_adr);
+    private z_Uniform1i64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vARB(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1i64vARB_ovr_0(location, count, value[0]) else
       z_Uniform1i64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vARB(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform1i64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform1i64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vARB';
+    private z_Uniform1i64vARB_ovr_2 := GetFuncOrNil&(z_Uniform1i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1i64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2i64vARB_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform2i64vARB';
-    private static procedure z_Uniform2i64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vARB';
+    private z_Uniform2i64vARB_adr := GetFuncAdr('glUniform2i64vARB');
+    private z_Uniform2i64vARB_ovr_0 := GetFuncOrNil&(z_Uniform2i64vARB_adr);
+    private z_Uniform2i64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vARB(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2i64vARB_ovr_0(location, count, value[0]) else
       z_Uniform2i64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vARB(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform2i64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform2i64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vARB';
+    private z_Uniform2i64vARB_ovr_2 := GetFuncOrNil&(z_Uniform2i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2i64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3i64vARB_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform3i64vARB';
-    private static procedure z_Uniform3i64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vARB';
+    private z_Uniform3i64vARB_adr := GetFuncAdr('glUniform3i64vARB');
+    private z_Uniform3i64vARB_ovr_0 := GetFuncOrNil&(z_Uniform3i64vARB_adr);
+    private z_Uniform3i64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vARB(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3i64vARB_ovr_0(location, count, value[0]) else
       z_Uniform3i64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vARB(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform3i64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform3i64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vARB';
+    private z_Uniform3i64vARB_ovr_2 := GetFuncOrNil&(z_Uniform3i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3i64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4i64vARB_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform4i64vARB';
-    private static procedure z_Uniform4i64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vARB';
+    private z_Uniform4i64vARB_adr := GetFuncAdr('glUniform4i64vARB');
+    private z_Uniform4i64vARB_ovr_0 := GetFuncOrNil&(z_Uniform4i64vARB_adr);
+    private z_Uniform4i64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vARB(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4i64vARB_ovr_0(location, count, value[0]) else
       z_Uniform4i64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vARB(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform4i64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform4i64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vARB';
+    private z_Uniform4i64vARB_ovr_2 := GetFuncOrNil&(z_Uniform4i64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4i64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform1ui64ARB_ovr_0(location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64ARB';
+    private z_Uniform1ui64ARB_adr := GetFuncAdr('glUniform1ui64ARB');
+    private z_Uniform1ui64ARB_ovr_0 := GetFuncOrNil&(z_Uniform1ui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64ARB(location: Int32; x: UInt64) :=
     z_Uniform1ui64ARB_ovr_0(location, x);
     
-    private static procedure z_Uniform2ui64ARB_ovr_0(location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64ARB';
+    private z_Uniform2ui64ARB_adr := GetFuncAdr('glUniform2ui64ARB');
+    private z_Uniform2ui64ARB_ovr_0 := GetFuncOrNil&(z_Uniform2ui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64ARB(location: Int32; x: UInt64; y: UInt64) :=
     z_Uniform2ui64ARB_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3ui64ARB_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64ARB';
+    private z_Uniform3ui64ARB_adr := GetFuncAdr('glUniform3ui64ARB');
+    private z_Uniform3ui64ARB_ovr_0 := GetFuncOrNil&(z_Uniform3ui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64ARB(location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_Uniform3ui64ARB_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4ui64ARB_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64ARB';
+    private z_Uniform4ui64ARB_adr := GetFuncAdr('glUniform4ui64ARB');
+    private z_Uniform4ui64ARB_ovr_0 := GetFuncOrNil&(z_Uniform4ui64ARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64ARB(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_Uniform4ui64ARB_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1ui64vARB_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64vARB';
-    private static procedure z_Uniform1ui64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vARB';
+    private z_Uniform1ui64vARB_adr := GetFuncAdr('glUniform1ui64vARB');
+    private z_Uniform1ui64vARB_ovr_0 := GetFuncOrNil&(z_Uniform1ui64vARB_adr);
+    private z_Uniform1ui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vARB(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1ui64vARB_ovr_0(location, count, value[0]) else
       z_Uniform1ui64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vARB(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform1ui64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform1ui64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vARB';
+    private z_Uniform1ui64vARB_ovr_2 := GetFuncOrNil&(z_Uniform1ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1ui64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2ui64vARB_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64vARB';
-    private static procedure z_Uniform2ui64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vARB';
+    private z_Uniform2ui64vARB_adr := GetFuncAdr('glUniform2ui64vARB');
+    private z_Uniform2ui64vARB_ovr_0 := GetFuncOrNil&(z_Uniform2ui64vARB_adr);
+    private z_Uniform2ui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vARB(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2ui64vARB_ovr_0(location, count, value[0]) else
       z_Uniform2ui64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vARB(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform2ui64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform2ui64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vARB';
+    private z_Uniform2ui64vARB_ovr_2 := GetFuncOrNil&(z_Uniform2ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2ui64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3ui64vARB_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64vARB';
-    private static procedure z_Uniform3ui64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vARB';
+    private z_Uniform3ui64vARB_adr := GetFuncAdr('glUniform3ui64vARB');
+    private z_Uniform3ui64vARB_ovr_0 := GetFuncOrNil&(z_Uniform3ui64vARB_adr);
+    private z_Uniform3ui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vARB(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3ui64vARB_ovr_0(location, count, value[0]) else
       z_Uniform3ui64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vARB(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform3ui64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform3ui64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vARB';
+    private z_Uniform3ui64vARB_ovr_2 := GetFuncOrNil&(z_Uniform3ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3ui64vARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4ui64vARB_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64vARB';
-    private static procedure z_Uniform4ui64vARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vARB';
+    private z_Uniform4ui64vARB_adr := GetFuncAdr('glUniform4ui64vARB');
+    private z_Uniform4ui64vARB_ovr_0 := GetFuncOrNil&(z_Uniform4ui64vARB_adr);
+    private z_Uniform4ui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vARB(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4ui64vARB_ovr_0(location, count, value[0]) else
       z_Uniform4ui64vARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vARB(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform4ui64vARB_ovr_0(location, count, value);
-    private static procedure z_Uniform4ui64vARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vARB';
+    private z_Uniform4ui64vARB_ovr_2 := GetFuncOrNil&(z_Uniform4ui64vARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4ui64vARB_ovr_2(location, count, value);
     
-    private static procedure z_GetUniformi64vARB_ovr_0(&program: UInt32; location: Int32; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetUniformi64vARB';
-    private static procedure z_GetUniformi64vARB_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: UInt32; location: Int32; ¶ms: array of Int64) :=
+    private z_GetUniformi64vARB_adr := GetFuncAdr('glGetUniformi64vARB');
+    private z_GetUniformi64vARB_ovr_0 := GetFuncOrNil&(z_GetUniformi64vARB_adr);
+    private z_GetUniformi64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformi64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: gl_program; location: Int32; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformi64vARB_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformi64vARB_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: UInt32; location: Int32; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: gl_program; location: Int32; var ¶ms: Int64) :=
     z_GetUniformi64vARB_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformi64vARB_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformi64vARB_ovr_2 := GetFuncOrNil&(z_GetUniformi64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vARB(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformi64vARB_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_GetUniformui64vARB_ovr_0(&program: UInt32; location: Int32; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetUniformui64vARB';
-    private static procedure z_GetUniformui64vARB_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: UInt32; location: Int32; ¶ms: array of UInt64) :=
+    private z_GetUniformui64vARB_adr := GetFuncAdr('glGetUniformui64vARB');
+    private z_GetUniformui64vARB_ovr_0 := GetFuncOrNil&(z_GetUniformui64vARB_adr);
+    private z_GetUniformui64vARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: gl_program; location: Int32; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformui64vARB_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformui64vARB_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: UInt32; location: Int32; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: gl_program; location: Int32; var ¶ms: UInt64) :=
     z_GetUniformui64vARB_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformui64vARB_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformui64vARB_ovr_2 := GetFuncOrNil&(z_GetUniformui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vARB(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformui64vARB_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_GetnUniformi64vARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetnUniformi64vARB';
-    private static procedure z_GetnUniformi64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformi64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of Int64) :=
+    private z_GetnUniformi64vARB_adr := GetFuncAdr('glGetnUniformi64vARB');
+    private z_GetnUniformi64vARB_ovr_0 := GetFuncOrNil&(z_GetnUniformi64vARB_adr);
+    private z_GetnUniformi64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformi64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformi64vARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformi64vARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: Int64) :=
     z_GetnUniformi64vARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformi64vARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformi64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformi64vARB_ovr_2 := GetFuncOrNil&(z_GetnUniformi64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformi64vARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformi64vARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformui64vARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetnUniformui64vARB';
-    private static procedure z_GetnUniformui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of UInt64) :=
+    private z_GetnUniformui64vARB_adr := GetFuncAdr('glGetnUniformui64vARB');
+    private z_GetnUniformui64vARB_ovr_0 := GetFuncOrNil&(z_GetnUniformui64vARB_adr);
+    private z_GetnUniformui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformui64vARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformui64vARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: UInt64) :=
     z_GetnUniformui64vARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformui64vARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformui64vARB_ovr_2 := GetFuncOrNil&(z_GetnUniformui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformui64vARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformui64vARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_ProgramUniform1i64ARB_ovr_0(&program: UInt32; location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64ARB(&program: UInt32; location: Int32; x: Int64) :=
+    private z_ProgramUniform1i64ARB_adr := GetFuncAdr('glProgramUniform1i64ARB');
+    private z_ProgramUniform1i64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64ARB(&program: gl_program; location: Int32; x: Int64) :=
     z_ProgramUniform1i64ARB_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2i64ARB_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64ARB(&program: UInt32; location: Int32; x: Int64; y: Int64) :=
+    private z_ProgramUniform2i64ARB_adr := GetFuncAdr('glProgramUniform2i64ARB');
+    private z_ProgramUniform2i64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64ARB(&program: gl_program; location: Int32; x: Int64; y: Int64) :=
     z_ProgramUniform2i64ARB_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3i64ARB_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64ARB(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64) :=
+    private z_ProgramUniform3i64ARB_adr := GetFuncAdr('glProgramUniform3i64ARB');
+    private z_ProgramUniform3i64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64ARB(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_ProgramUniform3i64ARB_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4i64ARB_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64ARB(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
+    private z_ProgramUniform4i64ARB_adr := GetFuncAdr('glProgramUniform4i64ARB');
+    private z_ProgramUniform4i64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64ARB(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_ProgramUniform4i64ARB_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1i64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64vARB';
-    private static procedure z_ProgramUniform1i64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform1i64vARB_adr := GetFuncAdr('glProgramUniform1i64vARB');
+    private z_ProgramUniform1i64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64vARB_adr);
+    private z_ProgramUniform1i64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1i64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1i64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform1i64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1i64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1i64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform1i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1i64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2i64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64vARB';
-    private static procedure z_ProgramUniform2i64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform2i64vARB_adr := GetFuncAdr('glProgramUniform2i64vARB');
+    private z_ProgramUniform2i64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64vARB_adr);
+    private z_ProgramUniform2i64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2i64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2i64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform2i64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2i64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2i64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform2i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2i64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3i64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64vARB';
-    private static procedure z_ProgramUniform3i64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform3i64vARB_adr := GetFuncAdr('glProgramUniform3i64vARB');
+    private z_ProgramUniform3i64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64vARB_adr);
+    private z_ProgramUniform3i64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3i64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3i64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform3i64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3i64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3i64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform3i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3i64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4i64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64vARB';
-    private static procedure z_ProgramUniform4i64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform4i64vARB_adr := GetFuncAdr('glProgramUniform4i64vARB');
+    private z_ProgramUniform4i64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64vARB_adr);
+    private z_ProgramUniform4i64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4i64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4i64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform4i64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4i64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4i64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform4i64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4i64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1ui64ARB_ovr_0(&program: UInt32; location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64ARB(&program: UInt32; location: Int32; x: UInt64) :=
+    private z_ProgramUniform1ui64ARB_adr := GetFuncAdr('glProgramUniform1ui64ARB');
+    private z_ProgramUniform1ui64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64ARB(&program: gl_program; location: Int32; x: UInt64) :=
     z_ProgramUniform1ui64ARB_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2ui64ARB_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64ARB(&program: UInt32; location: Int32; x: UInt64; y: UInt64) :=
+    private z_ProgramUniform2ui64ARB_adr := GetFuncAdr('glProgramUniform2ui64ARB');
+    private z_ProgramUniform2ui64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64ARB(&program: gl_program; location: Int32; x: UInt64; y: UInt64) :=
     z_ProgramUniform2ui64ARB_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3ui64ARB_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64ARB(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
+    private z_ProgramUniform3ui64ARB_adr := GetFuncAdr('glProgramUniform3ui64ARB');
+    private z_ProgramUniform3ui64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64ARB(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_ProgramUniform3ui64ARB_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4ui64ARB_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64ARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64ARB(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
+    private z_ProgramUniform4ui64ARB_adr := GetFuncAdr('glProgramUniform4ui64ARB');
+    private z_ProgramUniform4ui64ARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64ARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64ARB(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_ProgramUniform4ui64ARB_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1ui64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vARB';
-    private static procedure z_ProgramUniform1ui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform1ui64vARB_adr := GetFuncAdr('glProgramUniform1ui64vARB');
+    private z_ProgramUniform1ui64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64vARB_adr);
+    private z_ProgramUniform1ui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1ui64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1ui64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform1ui64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1ui64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1ui64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform1ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1ui64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2ui64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vARB';
-    private static procedure z_ProgramUniform2ui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform2ui64vARB_adr := GetFuncAdr('glProgramUniform2ui64vARB');
+    private z_ProgramUniform2ui64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64vARB_adr);
+    private z_ProgramUniform2ui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2ui64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2ui64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform2ui64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2ui64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2ui64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform2ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2ui64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3ui64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vARB';
-    private static procedure z_ProgramUniform3ui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform3ui64vARB_adr := GetFuncAdr('glProgramUniform3ui64vARB');
+    private z_ProgramUniform3ui64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64vARB_adr);
+    private z_ProgramUniform3ui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3ui64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3ui64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform3ui64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3ui64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3ui64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform3ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3ui64vARB_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4ui64vARB_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vARB';
-    private static procedure z_ProgramUniform4ui64vARB_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform4ui64vARB_adr := GetFuncAdr('glProgramUniform4ui64vARB');
+    private z_ProgramUniform4ui64vARB_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64vARB_adr);
+    private z_ProgramUniform4ui64vARB_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4ui64vARB_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4ui64vARB_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform4ui64vARB_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4ui64vARB_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4ui64vARB_ovr_2 := GetFuncOrNil&(z_ProgramUniform4ui64vARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vARB(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4ui64vARB_ovr_2(&program, location, count, value);
     
   end;
   
   [PCUNotRestore]
-  glImagingARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glImagingARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_imaging';
     
-    private static procedure z_BlendColor_ovr_0(red: single; green: single; blue: single; alpha: single);
-    external 'opengl32.dll' name 'glBlendColor';
+    private z_BlendColor_adr := GetFuncAdr('glBlendColor');
+    private z_BlendColor_ovr_0 := GetFuncOrNil&(z_BlendColor_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendColor(red: single; green: single; blue: single; alpha: single) :=
     z_BlendColor_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_BlendEquation_ovr_0(mode: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquation';
+    private z_BlendEquation_adr := GetFuncAdr('glBlendEquation');
+    private z_BlendEquation_ovr_0 := GetFuncOrNil&(z_BlendEquation_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquation(mode: BlendEquationModeEXT) :=
     z_BlendEquation_ovr_0(mode);
     
-    private static procedure z_ColorTable_ovr_0(target: ColorTableTarget; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr);
-    external 'opengl32.dll' name 'glColorTable';
+    private z_ColorTable_adr := GetFuncAdr('glColorTable');
+    private z_ColorTable_ovr_0 := GetFuncOrNil&(z_ColorTable_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTable(target: ColorTableTarget; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr) :=
     z_ColorTable_ovr_0(target, _internalformat, width, format, &type, table);
     
-    private static procedure z_ColorTableParameterfv_ovr_0(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: single);
-    external 'opengl32.dll' name 'glColorTableParameterfv';
-    private static procedure z_ColorTableParameterfv_ovr_0_anh0001(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterfv';
+    private z_ColorTableParameterfv_adr := GetFuncAdr('glColorTableParameterfv');
+    private z_ColorTableParameterfv_ovr_0 := GetFuncOrNil&(z_ColorTableParameterfv_adr);
+    private z_ColorTableParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_ColorTableParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ColorTableParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_ColorTableParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: single) :=
     z_ColorTableParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_ColorTableParameterfv_ovr_2(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterfv';
+    private z_ColorTableParameterfv_ovr_2 := GetFuncOrNil&(z_ColorTableParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_ColorTableParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ColorTableParameteriv_ovr_0(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glColorTableParameteriv';
-    private static procedure z_ColorTableParameteriv_ovr_0_anh0001(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameteriv';
+    private z_ColorTableParameteriv_adr := GetFuncAdr('glColorTableParameteriv');
+    private z_ColorTableParameteriv_ovr_0 := GetFuncOrNil&(z_ColorTableParameteriv_adr);
+    private z_ColorTableParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_ColorTableParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ColorTableParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_ColorTableParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; var ¶ms: Int32) :=
     z_ColorTableParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_ColorTableParameteriv_ovr_2(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameteriv';
+    private z_ColorTableParameteriv_ovr_2 := GetFuncOrNil&(z_ColorTableParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameteriv(target: ColorTableTarget; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_ColorTableParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_CopyColorTable_ovr_0(target: ColorTableTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyColorTable';
+    private z_CopyColorTable_adr := GetFuncAdr('glCopyColorTable');
+    private z_CopyColorTable_ovr_0 := GetFuncOrNil&(z_CopyColorTable_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyColorTable(target: ColorTableTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32) :=
     z_CopyColorTable_ovr_0(target, _internalformat, x, y, width);
     
-    private static procedure z_GetColorTable_ovr_0(target: ColorTableTarget; format: PixelFormat; &type: PixelType; table: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTable';
+    private z_GetColorTable_adr := GetFuncAdr('glGetColorTable');
+    private z_GetColorTable_ovr_0 := GetFuncOrNil&(z_GetColorTable_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTable(target: ColorTableTarget; format: PixelFormat; &type: PixelType; table: IntPtr) :=
     z_GetColorTable_ovr_0(target, format, &type, table);
     
-    private static procedure z_GetColorTableParameterfv_ovr_0(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetColorTableParameterfv';
-    private static procedure z_GetColorTableParameterfv_ovr_0_anh0001(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfv';
+    private z_GetColorTableParameterfv_adr := GetFuncAdr('glGetColorTableParameterfv');
+    private z_GetColorTableParameterfv_ovr_0 := GetFuncOrNil&(z_GetColorTableParameterfv_adr);
+    private z_GetColorTableParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: single) :=
     z_GetColorTableParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameterfv_ovr_2(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfv';
+    private z_GetColorTableParameterfv_ovr_2 := GetFuncOrNil&(z_GetColorTableParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetColorTableParameteriv_ovr_0(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetColorTableParameteriv';
-    private static procedure z_GetColorTableParameteriv_ovr_0_anh0001(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameteriv';
+    private z_GetColorTableParameteriv_adr := GetFuncAdr('glGetColorTableParameteriv');
+    private z_GetColorTableParameteriv_ovr_0 := GetFuncOrNil&(z_GetColorTableParameteriv_adr);
+    private z_GetColorTableParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameteriv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameteriv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32) :=
     z_GetColorTableParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameteriv_ovr_2(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameteriv';
+    private z_GetColorTableParameteriv_ovr_2 := GetFuncOrNil&(z_GetColorTableParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameteriv(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ColorSubTable_ovr_0(target: ColorTableTarget; start: Int32; count: Int32; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glColorSubTable';
+    private z_ColorSubTable_adr := GetFuncAdr('glColorSubTable');
+    private z_ColorSubTable_ovr_0 := GetFuncOrNil&(z_ColorSubTable_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorSubTable(target: ColorTableTarget; start: Int32; count: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ColorSubTable_ovr_0(target, start, count, format, &type, data);
     
-    private static procedure z_CopyColorSubTable_ovr_0(target: ColorTableTarget; start: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyColorSubTable';
+    private z_CopyColorSubTable_adr := GetFuncAdr('glCopyColorSubTable');
+    private z_CopyColorSubTable_ovr_0 := GetFuncOrNil&(z_CopyColorSubTable_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyColorSubTable(target: ColorTableTarget; start: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyColorSubTable_ovr_0(target, start, x, y, width);
     
-    private static procedure z_ConvolutionFilter1D_ovr_0(target: ConvolutionTarget; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionFilter1D';
+    private z_ConvolutionFilter1D_adr := GetFuncAdr('glConvolutionFilter1D');
+    private z_ConvolutionFilter1D_ovr_0 := GetFuncOrNil&(z_ConvolutionFilter1D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionFilter1D(target: ConvolutionTarget; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_ConvolutionFilter1D_ovr_0(target, _internalformat, width, format, &type, image);
     
-    private static procedure z_ConvolutionFilter2D_ovr_0(target: ConvolutionTarget; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionFilter2D';
+    private z_ConvolutionFilter2D_adr := GetFuncAdr('glConvolutionFilter2D');
+    private z_ConvolutionFilter2D_ovr_0 := GetFuncOrNil&(z_ConvolutionFilter2D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionFilter2D(target: ConvolutionTarget; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_ConvolutionFilter2D_ovr_0(target, _internalformat, width, height, format, &type, image);
     
-    private static procedure z_ConvolutionParameterf_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: single);
-    external 'opengl32.dll' name 'glConvolutionParameterf';
+    private z_ConvolutionParameterf_adr := GetFuncAdr('glConvolutionParameterf');
+    private z_ConvolutionParameterf_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterf_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterf(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: single) :=
     z_ConvolutionParameterf_ovr_0(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameterfv_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glConvolutionParameterfv';
-    private static procedure z_ConvolutionParameterfv_ovr_0_anh0001(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterfv';
+    private z_ConvolutionParameterfv_adr := GetFuncAdr('glConvolutionParameterfv');
+    private z_ConvolutionParameterfv_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterfv_adr);
+    private z_ConvolutionParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_ConvolutionParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ConvolutionParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_ConvolutionParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: single) :=
     z_ConvolutionParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_ConvolutionParameterfv_ovr_2(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterfv';
+    private z_ConvolutionParameterfv_ovr_2 := GetFuncOrNil&(z_ConvolutionParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_ConvolutionParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameteri_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: Int32);
-    external 'opengl32.dll' name 'glConvolutionParameteri';
+    private z_ConvolutionParameteri_adr := GetFuncAdr('glConvolutionParameteri');
+    private z_ConvolutionParameteri_ovr_0 := GetFuncOrNil&(z_ConvolutionParameteri_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameteri(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: Int32) :=
     z_ConvolutionParameteri_ovr_0(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameteriv_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glConvolutionParameteriv';
-    private static procedure z_ConvolutionParameteriv_ovr_0_anh0001(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameteriv';
+    private z_ConvolutionParameteriv_adr := GetFuncAdr('glConvolutionParameteriv');
+    private z_ConvolutionParameteriv_ovr_0 := GetFuncOrNil&(z_ConvolutionParameteriv_adr);
+    private z_ConvolutionParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_ConvolutionParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ConvolutionParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_ConvolutionParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: Int32) :=
     z_ConvolutionParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_ConvolutionParameteriv_ovr_2(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameteriv';
+    private z_ConvolutionParameteriv_ovr_2 := GetFuncOrNil&(z_ConvolutionParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_ConvolutionParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_CopyConvolutionFilter1D_ovr_0(target: ConvolutionTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyConvolutionFilter1D';
+    private z_CopyConvolutionFilter1D_adr := GetFuncAdr('glCopyConvolutionFilter1D');
+    private z_CopyConvolutionFilter1D_ovr_0 := GetFuncOrNil&(z_CopyConvolutionFilter1D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyConvolutionFilter1D(target: ConvolutionTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32) :=
     z_CopyConvolutionFilter1D_ovr_0(target, _internalformat, x, y, width);
     
-    private static procedure z_CopyConvolutionFilter2D_ovr_0(target: ConvolutionTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyConvolutionFilter2D';
+    private z_CopyConvolutionFilter2D_adr := GetFuncAdr('glCopyConvolutionFilter2D');
+    private z_CopyConvolutionFilter2D_ovr_0 := GetFuncOrNil&(z_CopyConvolutionFilter2D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyConvolutionFilter2D(target: ConvolutionTarget; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyConvolutionFilter2D_ovr_0(target, _internalformat, x, y, width, height);
     
-    private static procedure z_GetConvolutionFilter_ovr_0(target: ConvolutionTarget; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionFilter';
+    private z_GetConvolutionFilter_adr := GetFuncAdr('glGetConvolutionFilter');
+    private z_GetConvolutionFilter_ovr_0 := GetFuncOrNil&(z_GetConvolutionFilter_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionFilter(target: ConvolutionTarget; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_GetConvolutionFilter_ovr_0(target, format, &type, image);
     
-    private static procedure z_GetConvolutionParameterfv_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfv';
-    private static procedure z_GetConvolutionParameterfv_ovr_0_anh0001(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfv';
+    private z_GetConvolutionParameterfv_adr := GetFuncAdr('glGetConvolutionParameterfv');
+    private z_GetConvolutionParameterfv_ovr_0 := GetFuncOrNil&(z_GetConvolutionParameterfv_adr);
+    private z_GetConvolutionParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetConvolutionParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetConvolutionParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_GetConvolutionParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: single) :=
     z_GetConvolutionParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetConvolutionParameterfv_ovr_2(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfv';
+    private z_GetConvolutionParameterfv_ovr_2 := GetFuncOrNil&(z_GetConvolutionParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_GetConvolutionParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetConvolutionParameteriv_ovr_0(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetConvolutionParameteriv';
-    private static procedure z_GetConvolutionParameteriv_ovr_0_anh0001(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameteriv';
+    private z_GetConvolutionParameteriv_adr := GetFuncAdr('glGetConvolutionParameteriv');
+    private z_GetConvolutionParameteriv_ovr_0 := GetFuncOrNil&(z_GetConvolutionParameteriv_adr);
+    private z_GetConvolutionParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetConvolutionParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetConvolutionParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetConvolutionParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; var ¶ms: Int32) :=
     z_GetConvolutionParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetConvolutionParameteriv_ovr_2(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameteriv';
+    private z_GetConvolutionParameteriv_ovr_2 := GetFuncOrNil&(z_GetConvolutionParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameteriv(target: ConvolutionTarget; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_GetConvolutionParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetSeparableFilter_ovr_0(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr; span: IntPtr);
-    external 'opengl32.dll' name 'glGetSeparableFilter';
+    private z_GetSeparableFilter_adr := GetFuncAdr('glGetSeparableFilter');
+    private z_GetSeparableFilter_ovr_0 := GetFuncOrNil&(z_GetSeparableFilter_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSeparableFilter(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr; span: IntPtr) :=
     z_GetSeparableFilter_ovr_0(target, format, &type, row, column, span);
     
-    private static procedure z_SeparableFilter2D_ovr_0(target: SeparableTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr);
-    external 'opengl32.dll' name 'glSeparableFilter2D';
+    private z_SeparableFilter2D_adr := GetFuncAdr('glSeparableFilter2D');
+    private z_SeparableFilter2D_ovr_0 := GetFuncOrNil&(z_SeparableFilter2D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SeparableFilter2D(target: SeparableTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr) :=
     z_SeparableFilter2D_ovr_0(target, _internalformat, width, height, format, &type, row, column);
     
-    private static procedure z_GetHistogram_ovr_0(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogram';
+    private z_GetHistogram_adr := GetFuncAdr('glGetHistogram');
+    private z_GetHistogram_ovr_0 := GetFuncOrNil&(z_GetHistogram_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogram(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr) :=
     z_GetHistogram_ovr_0(target, reset, format, &type, values);
     
-    private static procedure z_GetHistogramParameterfv_ovr_0(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetHistogramParameterfv';
-    private static procedure z_GetHistogramParameterfv_ovr_0_anh0001(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterfv';
+    private z_GetHistogramParameterfv_adr := GetFuncAdr('glGetHistogramParameterfv');
+    private z_GetHistogramParameterfv_ovr_0 := GetFuncOrNil&(z_GetHistogramParameterfv_adr);
+    private z_GetHistogramParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetHistogramParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetHistogramParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_GetHistogramParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: single) :=
     z_GetHistogramParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetHistogramParameterfv_ovr_2(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterfv';
+    private z_GetHistogramParameterfv_ovr_2 := GetFuncOrNil&(z_GetHistogramParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetHistogramParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetHistogramParameteriv_ovr_0(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetHistogramParameteriv';
-    private static procedure z_GetHistogramParameteriv_ovr_0_anh0001(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameteriv';
+    private z_GetHistogramParameteriv_adr := GetFuncAdr('glGetHistogramParameteriv');
+    private z_GetHistogramParameteriv_ovr_0 := GetFuncOrNil&(z_GetHistogramParameteriv_adr);
+    private z_GetHistogramParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetHistogramParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameteriv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetHistogramParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetHistogramParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameteriv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Int32) :=
     z_GetHistogramParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetHistogramParameteriv_ovr_2(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameteriv';
+    private z_GetHistogramParameteriv_ovr_2 := GetFuncOrNil&(z_GetHistogramParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameteriv(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetHistogramParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMinmax_ovr_0(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmax';
+    private z_GetMinmax_adr := GetFuncAdr('glGetMinmax');
+    private z_GetMinmax_ovr_0 := GetFuncOrNil&(z_GetMinmax_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmax(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr) :=
     z_GetMinmax_ovr_0(target, reset, format, &type, values);
     
-    private static procedure z_GetMinmaxParameterfv_ovr_0(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfv';
-    private static procedure z_GetMinmaxParameterfv_ovr_0_anh0001(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfv';
+    private z_GetMinmaxParameterfv_adr := GetFuncAdr('glGetMinmaxParameterfv');
+    private z_GetMinmaxParameterfv_ovr_0 := GetFuncOrNil&(z_GetMinmaxParameterfv_adr);
+    private z_GetMinmaxParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetMinmaxParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMinmaxParameterfv_ovr_0(target, pname, ¶ms[0]) else
       z_GetMinmaxParameterfv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: single) :=
     z_GetMinmaxParameterfv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMinmaxParameterfv_ovr_2(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfv';
+    private z_GetMinmaxParameterfv_ovr_2 := GetFuncOrNil&(z_GetMinmaxParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetMinmaxParameterfv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMinmaxParameteriv_ovr_0(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMinmaxParameteriv';
-    private static procedure z_GetMinmaxParameteriv_ovr_0_anh0001(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameteriv';
+    private z_GetMinmaxParameteriv_adr := GetFuncAdr('glGetMinmaxParameteriv');
+    private z_GetMinmaxParameteriv_ovr_0 := GetFuncOrNil&(z_GetMinmaxParameteriv_adr);
+    private z_GetMinmaxParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetMinmaxParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameteriv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMinmaxParameteriv_ovr_0(target, pname, ¶ms[0]) else
       z_GetMinmaxParameteriv_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameteriv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: Int32) :=
     z_GetMinmaxParameteriv_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMinmaxParameteriv_ovr_2(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameteriv';
+    private z_GetMinmaxParameteriv_ovr_2 := GetFuncOrNil&(z_GetMinmaxParameteriv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameteriv(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetMinmaxParameteriv_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_Histogram_ovr_0(target: HistogramTargetEXT; width: Int32; _internalformat: InternalFormat; sink: boolean);
-    external 'opengl32.dll' name 'glHistogram';
+    private z_Histogram_adr := GetFuncAdr('glHistogram');
+    private z_Histogram_ovr_0 := GetFuncOrNil&(z_Histogram_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Histogram(target: HistogramTargetEXT; width: Int32; _internalformat: InternalFormat; sink: boolean) :=
     z_Histogram_ovr_0(target, width, _internalformat, sink);
     
-    private static procedure z_Minmax_ovr_0(target: MinmaxTargetEXT; _internalformat: InternalFormat; sink: boolean);
-    external 'opengl32.dll' name 'glMinmax';
+    private z_Minmax_adr := GetFuncAdr('glMinmax');
+    private z_Minmax_ovr_0 := GetFuncOrNil&(z_Minmax_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Minmax(target: MinmaxTargetEXT; _internalformat: InternalFormat; sink: boolean) :=
     z_Minmax_ovr_0(target, _internalformat, sink);
     
-    private static procedure z_ResetHistogram_ovr_0(target: HistogramTargetEXT);
-    external 'opengl32.dll' name 'glResetHistogram';
+    private z_ResetHistogram_adr := GetFuncAdr('glResetHistogram');
+    private z_ResetHistogram_ovr_0 := GetFuncOrNil&(z_ResetHistogram_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResetHistogram(target: HistogramTargetEXT) :=
     z_ResetHistogram_ovr_0(target);
     
-    private static procedure z_ResetMinmax_ovr_0(target: MinmaxTargetEXT);
-    external 'opengl32.dll' name 'glResetMinmax';
+    private z_ResetMinmax_adr := GetFuncAdr('glResetMinmax');
+    private z_ResetMinmax_ovr_0 := GetFuncOrNil&(z_ResetMinmax_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResetMinmax(target: MinmaxTargetEXT) :=
     z_ResetMinmax_ovr_0(target);
     
   end;
   
   [PCUNotRestore]
-  glIndirectParametersARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glIndirectParametersARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_indirect_parameters';
     
-    private static procedure z_MultiDrawArraysIndirectCountARB_ovr_0(mode: PrimitiveType; indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysIndirectCountARB';
+    private z_MultiDrawArraysIndirectCountARB_adr := GetFuncAdr('glMultiDrawArraysIndirectCountARB');
+    private z_MultiDrawArraysIndirectCountARB_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysIndirectCountARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysIndirectCountARB(mode: PrimitiveType; indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32) :=
     z_MultiDrawArraysIndirectCountARB_ovr_0(mode, indirect, drawcount, maxdrawcount, stride);
     
-    private static procedure z_MultiDrawElementsIndirectCountARB_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsIndirectCountARB';
+    private z_MultiDrawElementsIndirectCountARB_adr := GetFuncAdr('glMultiDrawElementsIndirectCountARB');
+    private z_MultiDrawElementsIndirectCountARB_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsIndirectCountARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsIndirectCountARB(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32) :=
     z_MultiDrawElementsIndirectCountARB_ovr_0(mode, &type, indirect, drawcount, maxdrawcount, stride);
     
   end;
   
   [PCUNotRestore]
-  glInstancedArraysARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInstancedArraysARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_instanced_arrays';
     
-    private static procedure z_VertexAttribDivisorARB_ovr_0(index: UInt32; divisor: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribDivisorARB';
+    private z_VertexAttribDivisorARB_adr := GetFuncAdr('glVertexAttribDivisorARB');
+    private z_VertexAttribDivisorARB_ovr_0 := GetFuncOrNil&(z_VertexAttribDivisorARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribDivisorARB(index: UInt32; divisor: UInt32) :=
     z_VertexAttribDivisorARB_ovr_0(index, divisor);
     
   end;
   
   [PCUNotRestore]
-  glInternalformatQueryARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInternalformatQueryARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_internalformat_query';
     
-    private static procedure z_GetInternalformativ_ovr_0(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetInternalformativ';
-    private static procedure z_GetInternalformativ_ovr_0_anh000001(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformativ';
+    private z_GetInternalformativ_adr := GetFuncAdr('glGetInternalformativ');
+    private z_GetInternalformativ_ovr_0 := GetFuncOrNil&(z_GetInternalformativ_adr);
+    private z_GetInternalformativ_ovr_0_anh000001 := GetFuncOrNil&(z_GetInternalformativ_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformativ(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetInternalformativ_ovr_0(target, _internalformat, pname, count, ¶ms[0]) else
       z_GetInternalformativ_ovr_0_anh000001(target, _internalformat, pname, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformativ(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; var ¶ms: Int32) :=
     z_GetInternalformativ_ovr_0(target, _internalformat, pname, count, ¶ms);
-    private static procedure z_GetInternalformativ_ovr_2(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformativ';
+    private z_GetInternalformativ_ovr_2 := GetFuncOrNil&(z_GetInternalformativ_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformativ(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr) :=
     z_GetInternalformativ_ovr_2(target, _internalformat, pname, count, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glInternalformatQuery2ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInternalformatQuery2ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_internalformat_query2';
     
-    private static procedure z_GetInternalformati64v_ovr_0(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetInternalformati64v';
-    private static procedure z_GetInternalformati64v_ovr_0_anh000001(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformati64v';
+    private z_GetInternalformati64v_adr := GetFuncAdr('glGetInternalformati64v');
+    private z_GetInternalformati64v_ovr_0 := GetFuncOrNil&(z_GetInternalformati64v_adr);
+    private z_GetInternalformati64v_ovr_0_anh000001 := GetFuncOrNil&(z_GetInternalformati64v_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformati64v(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetInternalformati64v_ovr_0(target, _internalformat, pname, count, ¶ms[0]) else
       z_GetInternalformati64v_ovr_0_anh000001(target, _internalformat, pname, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformati64v(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; var ¶ms: Int64) :=
     z_GetInternalformati64v_ovr_0(target, _internalformat, pname, count, ¶ms);
-    private static procedure z_GetInternalformati64v_ovr_2(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformati64v';
+    private z_GetInternalformati64v_ovr_2 := GetFuncOrNil&(z_GetInternalformati64v_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformati64v(target: TextureTarget; _internalformat: InternalFormat; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr) :=
     z_GetInternalformati64v_ovr_2(target, _internalformat, pname, count, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glInvalidateSubdataARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInvalidateSubdataARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_invalidate_subdata';
     
-    private static procedure z_InvalidateTexSubImage_ovr_0(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glInvalidateTexSubImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexSubImage(texture: TextureName; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32) :=
+    private z_InvalidateTexSubImage_adr := GetFuncAdr('glInvalidateTexSubImage');
+    private z_InvalidateTexSubImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexSubImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexSubImage(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32) :=
     z_InvalidateTexSubImage_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth);
     
-    private static procedure z_InvalidateTexImage_ovr_0(texture: TextureName; level: Int32);
-    external 'opengl32.dll' name 'glInvalidateTexImage';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexImage(texture: TextureName; level: Int32) :=
+    private z_InvalidateTexImage_adr := GetFuncAdr('glInvalidateTexImage');
+    private z_InvalidateTexImage_ovr_0 := GetFuncOrNil&(z_InvalidateTexImage_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateTexImage(texture: gl_texture; level: Int32) :=
     z_InvalidateTexImage_ovr_0(texture, level);
     
-    private static procedure z_InvalidateBufferSubData_ovr_0(buffer: BufferName; offset: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glInvalidateBufferSubData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferSubData(buffer: BufferName; offset: IntPtr; length: IntPtr) :=
+    private z_InvalidateBufferSubData_adr := GetFuncAdr('glInvalidateBufferSubData');
+    private z_InvalidateBufferSubData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferSubData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferSubData(buffer: gl_buffer; offset: IntPtr; length: IntPtr) :=
     z_InvalidateBufferSubData_ovr_0(buffer, offset, length);
     
-    private static procedure z_InvalidateBufferData_ovr_0(buffer: BufferName);
-    external 'opengl32.dll' name 'glInvalidateBufferData';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferData(buffer: BufferName) :=
+    private z_InvalidateBufferData_adr := GetFuncAdr('glInvalidateBufferData');
+    private z_InvalidateBufferData_ovr_0 := GetFuncOrNil&(z_InvalidateBufferData_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateBufferData(buffer: gl_buffer) :=
     z_InvalidateBufferData_ovr_0(buffer);
     
-    private static procedure z_InvalidateFramebuffer_ovr_0(target: FramebufferTarget; numAttachments: Int32; var attachments: InvalidateFramebufferAttachment);
-    external 'opengl32.dll' name 'glInvalidateFramebuffer';
-    private static procedure z_InvalidateFramebuffer_ovr_0_anh0001(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr);
-    external 'opengl32.dll' name 'glInvalidateFramebuffer';
+    private z_InvalidateFramebuffer_adr := GetFuncAdr('glInvalidateFramebuffer');
+    private z_InvalidateFramebuffer_ovr_0 := GetFuncOrNil&(z_InvalidateFramebuffer_adr);
+    private z_InvalidateFramebuffer_ovr_0_anh0001 := GetFuncOrNil&(z_InvalidateFramebuffer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateFramebuffer(target: FramebufferTarget; numAttachments: Int32; attachments: array of InvalidateFramebufferAttachment) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateFramebuffer_ovr_0(target, numAttachments, attachments[0]) else
       z_InvalidateFramebuffer_ovr_0_anh0001(target, numAttachments, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateFramebuffer(target: FramebufferTarget; numAttachments: Int32; var attachments: InvalidateFramebufferAttachment) :=
     z_InvalidateFramebuffer_ovr_0(target, numAttachments, attachments);
-    private static procedure z_InvalidateFramebuffer_ovr_2(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr);
-    external 'opengl32.dll' name 'glInvalidateFramebuffer';
+    private z_InvalidateFramebuffer_ovr_2 := GetFuncOrNil&(z_InvalidateFramebuffer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateFramebuffer(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr) :=
     z_InvalidateFramebuffer_ovr_2(target, numAttachments, attachments);
     
-    private static procedure z_InvalidateSubFramebuffer_ovr_0(target: FramebufferTarget; numAttachments: Int32; var attachments: InvalidateFramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateSubFramebuffer';
-    private static procedure z_InvalidateSubFramebuffer_ovr_0_anh00010000(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateSubFramebuffer';
+    private z_InvalidateSubFramebuffer_adr := GetFuncAdr('glInvalidateSubFramebuffer');
+    private z_InvalidateSubFramebuffer_ovr_0 := GetFuncOrNil&(z_InvalidateSubFramebuffer_adr);
+    private z_InvalidateSubFramebuffer_ovr_0_anh00010000 := GetFuncOrNil&(z_InvalidateSubFramebuffer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateSubFramebuffer(target: FramebufferTarget; numAttachments: Int32; attachments: array of InvalidateFramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     if (attachments<>nil) and (attachments.Length<>0) then
       z_InvalidateSubFramebuffer_ovr_0(target, numAttachments, attachments[0], x, y, width, height) else
       z_InvalidateSubFramebuffer_ovr_0_anh00010000(target, numAttachments, IntPtr.Zero, x, y, width, height);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateSubFramebuffer(target: FramebufferTarget; numAttachments: Int32; var attachments: InvalidateFramebufferAttachment; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateSubFramebuffer_ovr_0(target, numAttachments, attachments, x, y, width, height);
-    private static procedure z_InvalidateSubFramebuffer_ovr_2(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glInvalidateSubFramebuffer';
+    private z_InvalidateSubFramebuffer_ovr_2 := GetFuncOrNil&(z_InvalidateSubFramebuffer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InvalidateSubFramebuffer(target: FramebufferTarget; numAttachments: Int32; attachments: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_InvalidateSubFramebuffer_ovr_2(target, numAttachments, attachments, x, y, width, height);
     
   end;
   
   [PCUNotRestore]
-  glMapBufferRangeARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMapBufferRangeARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_map_buffer_range';
     
-    private static function z_MapBufferRange_ovr_0(target: BufferTargetARB; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr;
-    external 'opengl32.dll' name 'glMapBufferRange';
+    private z_MapBufferRange_adr := GetFuncAdr('glMapBufferRange');
+    private z_MapBufferRange_ovr_0 := GetFuncOrNil&(z_MapBufferRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapBufferRange(target: BufferTargetARB; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
     z_MapBufferRange_ovr_0(target, offset, length, access);
     
-    private static procedure z_FlushMappedBufferRange_ovr_0(target: BufferTargetARB; offset: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glFlushMappedBufferRange';
+    private z_FlushMappedBufferRange_adr := GetFuncAdr('glFlushMappedBufferRange');
+    private z_FlushMappedBufferRange_ovr_0 := GetFuncOrNil&(z_FlushMappedBufferRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedBufferRange(target: BufferTargetARB; offset: IntPtr; length: IntPtr) :=
     z_FlushMappedBufferRange_ovr_0(target, offset, length);
     
   end;
   
   [PCUNotRestore]
-  glMatrixPaletteARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMatrixPaletteARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_matrix_palette';
     
-    private static procedure z_CurrentPaletteMatrixARB_ovr_0(index: Int32);
-    external 'opengl32.dll' name 'glCurrentPaletteMatrixARB';
+    private z_CurrentPaletteMatrixARB_adr := GetFuncAdr('glCurrentPaletteMatrixARB');
+    private z_CurrentPaletteMatrixARB_ovr_0 := GetFuncOrNil&(z_CurrentPaletteMatrixARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CurrentPaletteMatrixARB(index: Int32) :=
     z_CurrentPaletteMatrixARB_ovr_0(index);
     
-    private static procedure z_MatrixIndexubvARB_ovr_0(size: Int32; var indices: Byte);
-    external 'opengl32.dll' name 'glMatrixIndexubvARB';
-    private static procedure z_MatrixIndexubvARB_ovr_0_anh001(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexubvARB';
+    private z_MatrixIndexubvARB_adr := GetFuncAdr('glMatrixIndexubvARB');
+    private z_MatrixIndexubvARB_ovr_0 := GetFuncOrNil&(z_MatrixIndexubvARB_adr);
+    private z_MatrixIndexubvARB_ovr_0_anh001 := GetFuncOrNil&(z_MatrixIndexubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexubvARB(size: Int32; indices: array of Byte) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MatrixIndexubvARB_ovr_0(size, indices[0]) else
       z_MatrixIndexubvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexubvARB(size: Int32; var indices: Byte) :=
     z_MatrixIndexubvARB_ovr_0(size, indices);
-    private static procedure z_MatrixIndexubvARB_ovr_2(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexubvARB';
+    private z_MatrixIndexubvARB_ovr_2 := GetFuncOrNil&(z_MatrixIndexubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexubvARB(size: Int32; indices: IntPtr) :=
     z_MatrixIndexubvARB_ovr_2(size, indices);
     
-    private static procedure z_MatrixIndexusvARB_ovr_0(size: Int32; var indices: UInt16);
-    external 'opengl32.dll' name 'glMatrixIndexusvARB';
-    private static procedure z_MatrixIndexusvARB_ovr_0_anh001(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexusvARB';
+    private z_MatrixIndexusvARB_adr := GetFuncAdr('glMatrixIndexusvARB');
+    private z_MatrixIndexusvARB_ovr_0 := GetFuncOrNil&(z_MatrixIndexusvARB_adr);
+    private z_MatrixIndexusvARB_ovr_0_anh001 := GetFuncOrNil&(z_MatrixIndexusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexusvARB(size: Int32; indices: array of UInt16) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MatrixIndexusvARB_ovr_0(size, indices[0]) else
       z_MatrixIndexusvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexusvARB(size: Int32; var indices: UInt16) :=
     z_MatrixIndexusvARB_ovr_0(size, indices);
-    private static procedure z_MatrixIndexusvARB_ovr_2(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexusvARB';
+    private z_MatrixIndexusvARB_ovr_2 := GetFuncOrNil&(z_MatrixIndexusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexusvARB(size: Int32; indices: IntPtr) :=
     z_MatrixIndexusvARB_ovr_2(size, indices);
     
-    private static procedure z_MatrixIndexuivARB_ovr_0(size: Int32; var indices: UInt32);
-    external 'opengl32.dll' name 'glMatrixIndexuivARB';
-    private static procedure z_MatrixIndexuivARB_ovr_0_anh001(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexuivARB';
+    private z_MatrixIndexuivARB_adr := GetFuncAdr('glMatrixIndexuivARB');
+    private z_MatrixIndexuivARB_ovr_0 := GetFuncOrNil&(z_MatrixIndexuivARB_adr);
+    private z_MatrixIndexuivARB_ovr_0_anh001 := GetFuncOrNil&(z_MatrixIndexuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexuivARB(size: Int32; indices: array of UInt32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MatrixIndexuivARB_ovr_0(size, indices[0]) else
       z_MatrixIndexuivARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexuivARB(size: Int32; var indices: UInt32) :=
     z_MatrixIndexuivARB_ovr_0(size, indices);
-    private static procedure z_MatrixIndexuivARB_ovr_2(size: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexuivARB';
+    private z_MatrixIndexuivARB_ovr_2 := GetFuncOrNil&(z_MatrixIndexuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexuivARB(size: Int32; indices: IntPtr) :=
     z_MatrixIndexuivARB_ovr_2(size, indices);
     
-    private static procedure z_MatrixIndexPointerARB_ovr_0(size: Int32; &type: MatrixIndexPointerTypeARB; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glMatrixIndexPointerARB';
+    private z_MatrixIndexPointerARB_adr := GetFuncAdr('glMatrixIndexPointerARB');
+    private z_MatrixIndexPointerARB_ovr_0 := GetFuncOrNil&(z_MatrixIndexPointerARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixIndexPointerARB(size: Int32; &type: MatrixIndexPointerTypeARB; stride: Int32; pointer: IntPtr) :=
     z_MatrixIndexPointerARB_ovr_0(size, &type, stride, pointer);
     
   end;
   
   [PCUNotRestore]
-  glMultiBindARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultiBindARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_multi_bind';
     
-    private static procedure z_BindBuffersBase_ovr_0(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32);
-    external 'opengl32.dll' name 'glBindBuffersBase';
-    private static procedure z_BindBuffersBase_ovr_0_anh00001(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersBase';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32) :=
+    private z_BindBuffersBase_adr := GetFuncAdr('glBindBuffersBase');
+    private z_BindBuffersBase_ovr_0 := GetFuncOrNil&(z_BindBuffersBase_adr);
+    private z_BindBuffersBase_ovr_0_anh00001 := GetFuncOrNil&(z_BindBuffersBase_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersBase_ovr_0(target, first, count, buffers[0]) else
       z_BindBuffersBase_ovr_0_anh00001(target, first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer) :=
     z_BindBuffersBase_ovr_0(target, first, count, buffers);
-    private static procedure z_BindBuffersBase_ovr_2(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersBase';
+    private z_BindBuffersBase_ovr_2 := GetFuncOrNil&(z_BindBuffersBase_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersBase(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr) :=
     z_BindBuffersBase_ovr_2(target, first, count, buffers);
     
-    private static procedure z_BindBuffersRange_ovr_0(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000110(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000101(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000011(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_0_anh0000111(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_adr := GetFuncAdr('glBindBuffersRange');
+    private z_BindBuffersRange_ovr_0 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_0_anh0000111 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (sizes<>nil) and (sizes.Length<>0) then
@@ -40814,13 +41677,10 @@ type
         if (sizes<>nil) and (sizes.Length<>0) then
           z_BindBuffersRange_ovr_0_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes[0]) else
           z_BindBuffersRange_ovr_0_anh0000111(target, first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindBuffersRange_ovr_1_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_1_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_1_anh0000110(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var sizes: IntPtr) :=
+    private z_BindBuffersRange_ovr_1_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_1_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_1_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets[0], sizes) else
@@ -40828,15 +41688,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets[0], sizes) else
         z_BindBuffersRange_ovr_0_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_2(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_2_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_2_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_2_anh0000110(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; sizes: pointer) :=
+    private z_BindBuffersRange_ovr_2 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_2_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_2_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_2_anh0000110 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_2(target, first, count, buffers[0], offsets[0], sizes) else
@@ -40844,13 +41700,10 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindBuffersRange_ovr_2_anh0000100(target, first, count, IntPtr.Zero, offsets[0], sizes) else
         z_BindBuffersRange_ovr_2_anh0000110(target, first, count, IntPtr.Zero, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_3_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_3_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_3_anh0000101(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_3_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_3_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_3_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets, sizes[0]) else
@@ -40858,27 +41711,21 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes[0]) else
         z_BindBuffersRange_ovr_0_anh0000101(target, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_BindBuffersRange_ovr_4_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var sizes: IntPtr) :=
+    private z_BindBuffersRange_ovr_4_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_0_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_5_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; sizes: pointer) :=
+    private z_BindBuffersRange_ovr_5_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_2(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_2_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_6(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_6_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_6_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_6_anh0000101(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_6 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_6_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_6_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_6_anh0000101 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; sizes: array of IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_6(target, first, count, buffers[0], offsets, sizes[0]) else
@@ -40886,27 +41733,21 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_6_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes[0]) else
         z_BindBuffersRange_ovr_6_anh0000101(target, first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_BindBuffersRange_ovr_7_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var sizes: IntPtr) :=
+    private z_BindBuffersRange_ovr_7_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var sizes: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_6(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_6_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_8(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_8_anh0000100(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; sizes: pointer) :=
+    private z_BindBuffersRange_ovr_8 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_8_anh0000100 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; sizes: pointer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindBuffersRange_ovr_8(target, first, count, buffers[0], offsets, sizes) else
       z_BindBuffersRange_ovr_8_anh0000100(target, first, count, IntPtr.Zero, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_9_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_9_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_9_anh0000011(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_9_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_9_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_9_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; sizes: array of IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets[0], sizes[0]) else
@@ -40914,46 +41755,38 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_0_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes[0]) else
         z_BindBuffersRange_ovr_0_anh0000011(target, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindBuffersRange_ovr_10_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var sizes: IntPtr) :=
+    private z_BindBuffersRange_ovr_10_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var sizes: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_0_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_11_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; sizes: pointer) :=
+    private z_BindBuffersRange_ovr_11_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; sizes: pointer) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_2(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_2_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_12_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_12_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets, sizes[0]) else
       z_BindBuffersRange_ovr_0_anh0000001(target, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var sizes: IntPtr) :=
     z_BindBuffersRange_ovr_0(target, first, count, buffers, offsets, sizes);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; sizes: pointer) :=
     z_BindBuffersRange_ovr_2(target, first, count, buffers, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_15_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: array of IntPtr) :=
+    private z_BindBuffersRange_ovr_15_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_6(target, first, count, buffers, offsets, sizes[0]) else
       z_BindBuffersRange_ovr_6_anh0000001(target, first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var sizes: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var sizes: IntPtr) :=
     z_BindBuffersRange_ovr_6(target, first, count, buffers, offsets, sizes);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; sizes: pointer) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; sizes: pointer) :=
     z_BindBuffersRange_ovr_8(target, first, count, buffers, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_18(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_18_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_18_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_18_anh0000011(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_18 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_18_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_18_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_18_anh0000011 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; sizes: array of IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -40962,22 +41795,18 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_BindBuffersRange_ovr_18_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes[0]) else
         z_BindBuffersRange_ovr_18_anh0000011(target, first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindBuffersRange_ovr_19_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_19_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var sizes: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_18(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_18_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_20(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_20_anh0000010(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_20 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_20_anh0000010 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; sizes: pointer) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindBuffersRange_ovr_20(target, first, count, buffers, offsets[0], sizes) else
       z_BindBuffersRange_ovr_20_anh0000010(target, first, count, buffers, IntPtr.Zero, sizes);
-    private static procedure z_BindBuffersRange_ovr_21_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_21_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_18(target, first, count, buffers, offsets, sizes[0]) else
@@ -40986,83 +41815,67 @@ type
     z_BindBuffersRange_ovr_18(target, first, count, buffers, offsets, sizes);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; sizes: pointer) :=
     z_BindBuffersRange_ovr_20(target, first, count, buffers, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_24(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
-    private static procedure z_BindBuffersRange_ovr_24_anh0000001(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: IntPtr);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_24 := GetFuncOrNil&(z_BindBuffersRange_adr);
+    private z_BindBuffersRange_ovr_24_anh0000001 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: array of IntPtr) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_BindBuffersRange_ovr_24(target, first, count, buffers, offsets, sizes[0]) else
       z_BindBuffersRange_ovr_24_anh0000001(target, first, count, buffers, offsets, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var sizes: IntPtr) :=
     z_BindBuffersRange_ovr_24(target, first, count, buffers, offsets, sizes);
-    private static procedure z_BindBuffersRange_ovr_26(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: pointer);
-    external 'opengl32.dll' name 'glBindBuffersRange';
+    private z_BindBuffersRange_ovr_26 := GetFuncOrNil&(z_BindBuffersRange_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBuffersRange(target: BufferTargetARB; first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; sizes: pointer) :=
     z_BindBuffersRange_ovr_26(target, first, count, buffers, offsets, sizes);
     
-    private static procedure z_BindTextures_ovr_0(first: UInt32; count: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glBindTextures';
-    private static procedure z_BindTextures_ovr_0_anh0001(first: UInt32; count: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glBindTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: array of UInt32) :=
+    private z_BindTextures_adr := GetFuncAdr('glBindTextures');
+    private z_BindTextures_ovr_0 := GetFuncOrNil&(z_BindTextures_adr);
+    private z_BindTextures_ovr_0_anh0001 := GetFuncOrNil&(z_BindTextures_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_BindTextures_ovr_0(first, count, textures[0]) else
       z_BindTextures_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; var textures: gl_texture) :=
     z_BindTextures_ovr_0(first, count, textures);
-    private static procedure z_BindTextures_ovr_2(first: UInt32; count: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glBindTextures';
+    private z_BindTextures_ovr_2 := GetFuncOrNil&(z_BindTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextures(first: UInt32; count: Int32; textures: IntPtr) :=
     z_BindTextures_ovr_2(first, count, textures);
     
-    private static procedure z_BindSamplers_ovr_0(first: UInt32; count: Int32; var samplers: UInt32);
-    external 'opengl32.dll' name 'glBindSamplers';
-    private static procedure z_BindSamplers_ovr_0_anh0001(first: UInt32; count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glBindSamplers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: array of UInt32) :=
+    private z_BindSamplers_adr := GetFuncAdr('glBindSamplers');
+    private z_BindSamplers_ovr_0 := GetFuncOrNil&(z_BindSamplers_adr);
+    private z_BindSamplers_ovr_0_anh0001 := GetFuncOrNil&(z_BindSamplers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_BindSamplers_ovr_0(first, count, samplers[0]) else
       z_BindSamplers_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; var samplers: gl_sampler) :=
     z_BindSamplers_ovr_0(first, count, samplers);
-    private static procedure z_BindSamplers_ovr_2(first: UInt32; count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glBindSamplers';
+    private z_BindSamplers_ovr_2 := GetFuncOrNil&(z_BindSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSamplers(first: UInt32; count: Int32; samplers: IntPtr) :=
     z_BindSamplers_ovr_2(first, count, samplers);
     
-    private static procedure z_BindImageTextures_ovr_0(first: UInt32; count: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glBindImageTextures';
-    private static procedure z_BindImageTextures_ovr_0_anh0001(first: UInt32; count: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glBindImageTextures';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: array of UInt32) :=
+    private z_BindImageTextures_adr := GetFuncAdr('glBindImageTextures');
+    private z_BindImageTextures_ovr_0 := GetFuncOrNil&(z_BindImageTextures_adr);
+    private z_BindImageTextures_ovr_0_anh0001 := GetFuncOrNil&(z_BindImageTextures_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_BindImageTextures_ovr_0(first, count, textures[0]) else
       z_BindImageTextures_ovr_0_anh0001(first, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; var textures: gl_texture) :=
     z_BindImageTextures_ovr_0(first, count, textures);
-    private static procedure z_BindImageTextures_ovr_2(first: UInt32; count: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glBindImageTextures';
+    private z_BindImageTextures_ovr_2 := GetFuncOrNil&(z_BindImageTextures_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextures(first: UInt32; count: Int32; textures: IntPtr) :=
     z_BindImageTextures_ovr_2(first, count, textures);
     
-    private static procedure z_BindVertexBuffers_ovr_0(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000110(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000001(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000101(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000011(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_0_anh000111(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_BindVertexBuffers_adr := GetFuncAdr('glBindVertexBuffers');
+    private z_BindVertexBuffers_ovr_0 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_0_anh000111 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         if (strides<>nil) and (strides.Length<>0) then
@@ -41078,13 +41891,10 @@ type
         if (strides<>nil) and (strides.Length<>0) then
           z_BindVertexBuffers_ovr_0_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides[0]) else
           z_BindVertexBuffers_ovr_0_anh000111(first, count, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindVertexBuffers_ovr_1_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_1_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_1_anh000110(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_BindVertexBuffers_ovr_1_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_1_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_1_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets[0], strides) else
@@ -41092,15 +41902,11 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets[0], strides) else
         z_BindVertexBuffers_ovr_0_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private static procedure z_BindVertexBuffers_ovr_2(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_2_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_2_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_2_anh000110(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_BindVertexBuffers_ovr_2 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_2_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_2_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_2_anh000110 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_2(first, count, buffers[0], offsets[0], strides) else
@@ -41108,11 +41914,9 @@ type
       if (offsets<>nil) and (offsets.Length<>0) then
         z_BindVertexBuffers_ovr_2_anh000100(first, count, IntPtr.Zero, offsets[0], strides) else
         z_BindVertexBuffers_ovr_2_anh000110(first, count, IntPtr.Zero, IntPtr.Zero, strides);
-    private static procedure z_BindVertexBuffers_ovr_3_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_3_anh000101(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    private z_BindVertexBuffers_ovr_3_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_3_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets, strides[0]) else
@@ -41120,27 +41924,21 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets, strides[0]) else
         z_BindVertexBuffers_ovr_0_anh000101(first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_BindVertexBuffers_ovr_4_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; var strides: Int32) :=
+    private z_BindVertexBuffers_ovr_4_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_0_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_5_anh000100(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    private z_BindVertexBuffers_ovr_5_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_2(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_2_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_6(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_6_anh000100(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_6_anh000001(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_6_anh000101(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: array of Int32) :=
+    private z_BindVertexBuffers_ovr_6 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_6_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_6_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_6_anh000101 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_6(first, count, buffers[0], offsets, strides[0]) else
@@ -41148,25 +41946,20 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_6_anh000100(first, count, IntPtr.Zero, offsets, strides[0]) else
         z_BindVertexBuffers_ovr_6_anh000101(first, count, IntPtr.Zero, offsets, IntPtr.Zero);
-    private static procedure z_BindVertexBuffers_ovr_7_anh000100(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; var strides: Int32) :=
+    private z_BindVertexBuffers_ovr_7_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; var strides: Int32) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_6(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_6_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_8(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_8_anh000100(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of UInt32; offsets: pointer; strides: IntPtr) :=
+    private z_BindVertexBuffers_ovr_8 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_8_anh000100 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: array of gl_buffer; offsets: pointer; strides: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_BindVertexBuffers_ovr_8(first, count, buffers[0], offsets, strides) else
       z_BindVertexBuffers_ovr_8_anh000100(first, count, IntPtr.Zero, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_9_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_9_anh000011(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: array of Int32) :=
+    private z_BindVertexBuffers_ovr_9_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_9_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0(first, count, buffers, offsets[0], strides[0]) else
@@ -41174,42 +41967,36 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_0_anh000010(first, count, buffers, IntPtr.Zero, strides[0]) else
         z_BindVertexBuffers_ovr_0_anh000011(first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindVertexBuffers_ovr_10_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; var strides: Int32) :=
+    private z_BindVertexBuffers_ovr_10_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers, offsets[0], strides) else
       z_BindVertexBuffers_ovr_0_anh000010(first, count, buffers, IntPtr.Zero, strides);
-    private static procedure z_BindVertexBuffers_ovr_11_anh000010(first: UInt32; count: Int32; var buffers: UInt32; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: array of IntPtr; strides: IntPtr) :=
+    private z_BindVertexBuffers_ovr_11_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_2(first, count, buffers, offsets[0], strides) else
       z_BindVertexBuffers_ovr_2_anh000010(first, count, buffers, IntPtr.Zero, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_BindVertexBuffers_ovr_0(first, count, buffers, offsets, strides[0]) else
       z_BindVertexBuffers_ovr_0_anh000001(first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; var strides: Int32) :=
     z_BindVertexBuffers_ovr_0(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; var offsets: IntPtr; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; var offsets: IntPtr; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_2(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_BindVertexBuffers_ovr_6(first, count, buffers, offsets, strides[0]) else
       z_BindVertexBuffers_ovr_6_anh000001(first, count, buffers, offsets, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; var strides: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; var strides: Int32) :=
     z_BindVertexBuffers_ovr_6(first, count, buffers, offsets, strides);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: UInt32; offsets: pointer; strides: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; var buffers: gl_buffer; offsets: pointer; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_8(first, count, buffers, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_18(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_18_anh000010(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_18_anh000001(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_18_anh000011(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
+    private z_BindVertexBuffers_ovr_18 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_18_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_18_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_18_anh000011 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: array of Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       if (strides<>nil) and (strides.Length<>0) then
@@ -41218,16 +42005,13 @@ type
       if (strides<>nil) and (strides.Length<>0) then
         z_BindVertexBuffers_ovr_18_anh000010(first, count, buffers, IntPtr.Zero, strides[0]) else
         z_BindVertexBuffers_ovr_18_anh000011(first, count, buffers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_BindVertexBuffers_ovr_19_anh000010(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
+    private z_BindVertexBuffers_ovr_19_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; var strides: Int32) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_18(first, count, buffers, offsets[0], strides) else
       z_BindVertexBuffers_ovr_18_anh000010(first, count, buffers, IntPtr.Zero, strides);
-    private static procedure z_BindVertexBuffers_ovr_20(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_20_anh000010(first: UInt32; count: Int32; buffers: IntPtr; offsets: IntPtr; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
+    private z_BindVertexBuffers_ovr_20 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_20_anh000010 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: array of IntPtr; strides: IntPtr) :=
     if (offsets<>nil) and (offsets.Length<>0) then
       z_BindVertexBuffers_ovr_20(first, count, buffers, offsets[0], strides) else
@@ -41240,592 +42024,539 @@ type
     z_BindVertexBuffers_ovr_18(first, count, buffers, offsets, strides);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; var offsets: IntPtr; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_20(first, count, buffers, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_24(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
-    private static procedure z_BindVertexBuffers_ovr_24_anh000001(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
+    private z_BindVertexBuffers_ovr_24 := GetFuncOrNil&(z_BindVertexBuffers_adr);
+    private z_BindVertexBuffers_ovr_24_anh000001 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: array of Int32) :=
     if (strides<>nil) and (strides.Length<>0) then
       z_BindVertexBuffers_ovr_24(first, count, buffers, offsets, strides[0]) else
       z_BindVertexBuffers_ovr_24_anh000001(first, count, buffers, offsets, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; var strides: Int32) :=
     z_BindVertexBuffers_ovr_24(first, count, buffers, offsets, strides);
-    private static procedure z_BindVertexBuffers_ovr_26(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr);
-    external 'opengl32.dll' name 'glBindVertexBuffers';
+    private z_BindVertexBuffers_ovr_26 := GetFuncOrNil&(z_BindVertexBuffers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffers(first: UInt32; count: Int32; buffers: IntPtr; offsets: pointer; strides: IntPtr) :=
     z_BindVertexBuffers_ovr_26(first, count, buffers, offsets, strides);
     
   end;
   
   [PCUNotRestore]
-  glMultiDrawIndirectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultiDrawIndirectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_multi_draw_indirect';
     
-    private static procedure z_MultiDrawArraysIndirect_ovr_0(mode: PrimitiveType; indirect: IntPtr; drawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysIndirect';
+    private z_MultiDrawArraysIndirect_adr := GetFuncAdr('glMultiDrawArraysIndirect');
+    private z_MultiDrawArraysIndirect_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysIndirect_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysIndirect(mode: PrimitiveType; indirect: IntPtr; drawcount: Int32; stride: Int32) :=
     z_MultiDrawArraysIndirect_ovr_0(mode, indirect, drawcount, stride);
     
-    private static procedure z_MultiDrawElementsIndirect_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsIndirect';
+    private z_MultiDrawElementsIndirect_adr := GetFuncAdr('glMultiDrawElementsIndirect');
+    private z_MultiDrawElementsIndirect_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsIndirect_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsIndirect(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawcount: Int32; stride: Int32) :=
     z_MultiDrawElementsIndirect_ovr_0(mode, &type, indirect, drawcount, stride);
     
   end;
   
   [PCUNotRestore]
-  glMultisampleARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultisampleARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_multisample';
     
-    private static procedure z_SampleCoverageARB_ovr_0(value: single; invert: boolean);
-    external 'opengl32.dll' name 'glSampleCoverageARB';
+    private z_SampleCoverageARB_adr := GetFuncAdr('glSampleCoverageARB');
+    private z_SampleCoverageARB_ovr_0 := GetFuncOrNil&(z_SampleCoverageARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleCoverageARB(value: single; invert: boolean) :=
     z_SampleCoverageARB_ovr_0(value, invert);
     
   end;
   
   [PCUNotRestore]
-  glMultitextureARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultitextureARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_multitexture';
     
-    private static procedure z_ActiveTextureARB_ovr_0(texture: TextureUnit);
-    external 'opengl32.dll' name 'glActiveTextureARB';
+    private z_ActiveTextureARB_adr := GetFuncAdr('glActiveTextureARB');
+    private z_ActiveTextureARB_ovr_0 := GetFuncOrNil&(z_ActiveTextureARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveTextureARB(texture: TextureUnit) :=
     z_ActiveTextureARB_ovr_0(texture);
     
-    private static procedure z_ClientActiveTextureARB_ovr_0(texture: TextureUnit);
-    external 'opengl32.dll' name 'glClientActiveTextureARB';
+    private z_ClientActiveTextureARB_adr := GetFuncAdr('glClientActiveTextureARB');
+    private z_ClientActiveTextureARB_ovr_0 := GetFuncOrNil&(z_ClientActiveTextureARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientActiveTextureARB(texture: TextureUnit) :=
     z_ClientActiveTextureARB_ovr_0(texture);
     
-    private static procedure z_MultiTexCoord1dARB_ovr_0(target: TextureUnit; s: real);
-    external 'opengl32.dll' name 'glMultiTexCoord1dARB';
+    private z_MultiTexCoord1dARB_adr := GetFuncAdr('glMultiTexCoord1dARB');
+    private z_MultiTexCoord1dARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dARB(target: TextureUnit; s: real) :=
     z_MultiTexCoord1dARB_ovr_0(target, s);
     
-    private static procedure z_MultiTexCoord1dvARB_ovr_0(target: TextureUnit; var v: real);
-    external 'opengl32.dll' name 'glMultiTexCoord1dvARB';
-    private static procedure z_MultiTexCoord1dvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1dvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dvARB(target: TextureUnit; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1dvARB_ovr_0(target, v[0]) else
-      z_MultiTexCoord1dvARB_ovr_0_anh001(target, IntPtr.Zero);
+    private z_MultiTexCoord1dvARB_adr := GetFuncAdr('glMultiTexCoord1dvARB');
+    private z_MultiTexCoord1dvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dvARB(target: TextureUnit; var v: real) :=
     z_MultiTexCoord1dvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord1dvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1dvARB';
+    private z_MultiTexCoord1dvARB_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1dvARB(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1dvARB_ovr_2(target, v);
+    z_MultiTexCoord1dvARB_ovr_1(target, v);
     
-    private static procedure z_MultiTexCoord1fARB_ovr_0(target: TextureUnit; s: single);
-    external 'opengl32.dll' name 'glMultiTexCoord1fARB';
+    private z_MultiTexCoord1fARB_adr := GetFuncAdr('glMultiTexCoord1fARB');
+    private z_MultiTexCoord1fARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fARB(target: TextureUnit; s: single) :=
     z_MultiTexCoord1fARB_ovr_0(target, s);
     
-    private static procedure z_MultiTexCoord1fvARB_ovr_0(target: TextureUnit; var v: single);
-    external 'opengl32.dll' name 'glMultiTexCoord1fvARB';
-    private static procedure z_MultiTexCoord1fvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1fvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fvARB(target: TextureUnit; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1fvARB_ovr_0(target, v[0]) else
-      z_MultiTexCoord1fvARB_ovr_0_anh001(target, IntPtr.Zero);
+    private z_MultiTexCoord1fvARB_adr := GetFuncAdr('glMultiTexCoord1fvARB');
+    private z_MultiTexCoord1fvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fvARB(target: TextureUnit; var v: single) :=
     z_MultiTexCoord1fvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord1fvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1fvARB';
+    private z_MultiTexCoord1fvARB_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1fvARB(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1fvARB_ovr_2(target, v);
+    z_MultiTexCoord1fvARB_ovr_1(target, v);
     
-    private static procedure z_MultiTexCoord1iARB_ovr_0(target: TextureUnit; s: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord1iARB';
+    private z_MultiTexCoord1iARB_adr := GetFuncAdr('glMultiTexCoord1iARB');
+    private z_MultiTexCoord1iARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1iARB(target: TextureUnit; s: Int32) :=
     z_MultiTexCoord1iARB_ovr_0(target, s);
     
-    private static procedure z_MultiTexCoord1ivARB_ovr_0(target: TextureUnit; var v: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord1ivARB';
-    private static procedure z_MultiTexCoord1ivARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1ivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1ivARB(target: TextureUnit; v: array of Int32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1ivARB_ovr_0(target, v[0]) else
-      z_MultiTexCoord1ivARB_ovr_0_anh001(target, IntPtr.Zero);
+    private z_MultiTexCoord1ivARB_adr := GetFuncAdr('glMultiTexCoord1ivARB');
+    private z_MultiTexCoord1ivARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1ivARB(target: TextureUnit; var v: Int32) :=
     z_MultiTexCoord1ivARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord1ivARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1ivARB';
+    private z_MultiTexCoord1ivARB_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1ivARB(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1ivARB_ovr_2(target, v);
+    z_MultiTexCoord1ivARB_ovr_1(target, v);
     
-    private static procedure z_MultiTexCoord1sARB_ovr_0(target: TextureUnit; s: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord1sARB';
+    private z_MultiTexCoord1sARB_adr := GetFuncAdr('glMultiTexCoord1sARB');
+    private z_MultiTexCoord1sARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1sARB(target: TextureUnit; s: Int16) :=
     z_MultiTexCoord1sARB_ovr_0(target, s);
     
-    private static procedure z_MultiTexCoord1svARB_ovr_0(target: TextureUnit; var v: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord1svARB';
-    private static procedure z_MultiTexCoord1svARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1svARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1svARB(target: TextureUnit; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1svARB_ovr_0(target, v[0]) else
-      z_MultiTexCoord1svARB_ovr_0_anh001(target, IntPtr.Zero);
+    private z_MultiTexCoord1svARB_adr := GetFuncAdr('glMultiTexCoord1svARB');
+    private z_MultiTexCoord1svARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1svARB(target: TextureUnit; var v: Int16) :=
     z_MultiTexCoord1svARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord1svARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1svARB';
+    private z_MultiTexCoord1svARB_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1svARB(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1svARB_ovr_2(target, v);
+    z_MultiTexCoord1svARB_ovr_1(target, v);
     
-    private static procedure z_MultiTexCoord2dARB_ovr_0(target: TextureUnit; s: real; t: real);
-    external 'opengl32.dll' name 'glMultiTexCoord2dARB';
+    private z_MultiTexCoord2dARB_adr := GetFuncAdr('glMultiTexCoord2dARB');
+    private z_MultiTexCoord2dARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2dARB(target: TextureUnit; s: real; t: real) :=
     z_MultiTexCoord2dARB_ovr_0(target, s, t);
     
-    private static procedure z_MultiTexCoord2dvARB_ovr_0(target: TextureUnit; var v: real);
-    external 'opengl32.dll' name 'glMultiTexCoord2dvARB';
-    private static procedure z_MultiTexCoord2dvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2dvARB';
+    private z_MultiTexCoord2dvARB_adr := GetFuncAdr('glMultiTexCoord2dvARB');
+    private z_MultiTexCoord2dvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2dvARB_adr);
+    private z_MultiTexCoord2dvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2dvARB(target: TextureUnit; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord2dvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord2dvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2dvARB(target: TextureUnit; var v: real) :=
     z_MultiTexCoord2dvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord2dvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2dvARB';
+    private z_MultiTexCoord2dvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2dvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord2dvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord2fARB_ovr_0(target: TextureUnit; s: single; t: single);
-    external 'opengl32.dll' name 'glMultiTexCoord2fARB';
+    private z_MultiTexCoord2fARB_adr := GetFuncAdr('glMultiTexCoord2fARB');
+    private z_MultiTexCoord2fARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2fARB(target: TextureUnit; s: single; t: single) :=
     z_MultiTexCoord2fARB_ovr_0(target, s, t);
     
-    private static procedure z_MultiTexCoord2fvARB_ovr_0(target: TextureUnit; var v: single);
-    external 'opengl32.dll' name 'glMultiTexCoord2fvARB';
-    private static procedure z_MultiTexCoord2fvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2fvARB';
+    private z_MultiTexCoord2fvARB_adr := GetFuncAdr('glMultiTexCoord2fvARB');
+    private z_MultiTexCoord2fvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2fvARB_adr);
+    private z_MultiTexCoord2fvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2fvARB(target: TextureUnit; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord2fvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord2fvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2fvARB(target: TextureUnit; var v: single) :=
     z_MultiTexCoord2fvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord2fvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2fvARB';
+    private z_MultiTexCoord2fvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2fvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord2fvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord2iARB_ovr_0(target: TextureUnit; s: Int32; t: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord2iARB';
+    private z_MultiTexCoord2iARB_adr := GetFuncAdr('glMultiTexCoord2iARB');
+    private z_MultiTexCoord2iARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2iARB(target: TextureUnit; s: Int32; t: Int32) :=
     z_MultiTexCoord2iARB_ovr_0(target, s, t);
     
-    private static procedure z_MultiTexCoord2ivARB_ovr_0(target: TextureUnit; var v: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord2ivARB';
-    private static procedure z_MultiTexCoord2ivARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2ivARB';
+    private z_MultiTexCoord2ivARB_adr := GetFuncAdr('glMultiTexCoord2ivARB');
+    private z_MultiTexCoord2ivARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2ivARB_adr);
+    private z_MultiTexCoord2ivARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2ivARB(target: TextureUnit; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord2ivARB_ovr_0(target, v[0]) else
       z_MultiTexCoord2ivARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2ivARB(target: TextureUnit; var v: Int32) :=
     z_MultiTexCoord2ivARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord2ivARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2ivARB';
+    private z_MultiTexCoord2ivARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2ivARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord2ivARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord2sARB_ovr_0(target: TextureUnit; s: Int16; t: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord2sARB';
+    private z_MultiTexCoord2sARB_adr := GetFuncAdr('glMultiTexCoord2sARB');
+    private z_MultiTexCoord2sARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2sARB(target: TextureUnit; s: Int16; t: Int16) :=
     z_MultiTexCoord2sARB_ovr_0(target, s, t);
     
-    private static procedure z_MultiTexCoord2svARB_ovr_0(target: TextureUnit; var v: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord2svARB';
-    private static procedure z_MultiTexCoord2svARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2svARB';
+    private z_MultiTexCoord2svARB_adr := GetFuncAdr('glMultiTexCoord2svARB');
+    private z_MultiTexCoord2svARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2svARB_adr);
+    private z_MultiTexCoord2svARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2svARB(target: TextureUnit; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord2svARB_ovr_0(target, v[0]) else
       z_MultiTexCoord2svARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2svARB(target: TextureUnit; var v: Int16) :=
     z_MultiTexCoord2svARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord2svARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2svARB';
+    private z_MultiTexCoord2svARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2svARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord2svARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord3dARB_ovr_0(target: TextureUnit; s: real; t: real; r: real);
-    external 'opengl32.dll' name 'glMultiTexCoord3dARB';
+    private z_MultiTexCoord3dARB_adr := GetFuncAdr('glMultiTexCoord3dARB');
+    private z_MultiTexCoord3dARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3dARB(target: TextureUnit; s: real; t: real; r: real) :=
     z_MultiTexCoord3dARB_ovr_0(target, s, t, r);
     
-    private static procedure z_MultiTexCoord3dvARB_ovr_0(target: TextureUnit; var v: real);
-    external 'opengl32.dll' name 'glMultiTexCoord3dvARB';
-    private static procedure z_MultiTexCoord3dvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3dvARB';
+    private z_MultiTexCoord3dvARB_adr := GetFuncAdr('glMultiTexCoord3dvARB');
+    private z_MultiTexCoord3dvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3dvARB_adr);
+    private z_MultiTexCoord3dvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3dvARB(target: TextureUnit; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord3dvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord3dvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3dvARB(target: TextureUnit; var v: real) :=
     z_MultiTexCoord3dvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord3dvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3dvARB';
+    private z_MultiTexCoord3dvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3dvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord3dvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord3fARB_ovr_0(target: TextureUnit; s: single; t: single; r: single);
-    external 'opengl32.dll' name 'glMultiTexCoord3fARB';
+    private z_MultiTexCoord3fARB_adr := GetFuncAdr('glMultiTexCoord3fARB');
+    private z_MultiTexCoord3fARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3fARB(target: TextureUnit; s: single; t: single; r: single) :=
     z_MultiTexCoord3fARB_ovr_0(target, s, t, r);
     
-    private static procedure z_MultiTexCoord3fvARB_ovr_0(target: TextureUnit; var v: single);
-    external 'opengl32.dll' name 'glMultiTexCoord3fvARB';
-    private static procedure z_MultiTexCoord3fvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3fvARB';
+    private z_MultiTexCoord3fvARB_adr := GetFuncAdr('glMultiTexCoord3fvARB');
+    private z_MultiTexCoord3fvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3fvARB_adr);
+    private z_MultiTexCoord3fvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3fvARB(target: TextureUnit; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord3fvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord3fvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3fvARB(target: TextureUnit; var v: single) :=
     z_MultiTexCoord3fvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord3fvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3fvARB';
+    private z_MultiTexCoord3fvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3fvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord3fvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord3iARB_ovr_0(target: TextureUnit; s: Int32; t: Int32; r: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord3iARB';
+    private z_MultiTexCoord3iARB_adr := GetFuncAdr('glMultiTexCoord3iARB');
+    private z_MultiTexCoord3iARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3iARB(target: TextureUnit; s: Int32; t: Int32; r: Int32) :=
     z_MultiTexCoord3iARB_ovr_0(target, s, t, r);
     
-    private static procedure z_MultiTexCoord3ivARB_ovr_0(target: TextureUnit; var v: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord3ivARB';
-    private static procedure z_MultiTexCoord3ivARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3ivARB';
+    private z_MultiTexCoord3ivARB_adr := GetFuncAdr('glMultiTexCoord3ivARB');
+    private z_MultiTexCoord3ivARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3ivARB_adr);
+    private z_MultiTexCoord3ivARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3ivARB(target: TextureUnit; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord3ivARB_ovr_0(target, v[0]) else
       z_MultiTexCoord3ivARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3ivARB(target: TextureUnit; var v: Int32) :=
     z_MultiTexCoord3ivARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord3ivARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3ivARB';
+    private z_MultiTexCoord3ivARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3ivARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord3ivARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord3sARB_ovr_0(target: TextureUnit; s: Int16; t: Int16; r: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord3sARB';
+    private z_MultiTexCoord3sARB_adr := GetFuncAdr('glMultiTexCoord3sARB');
+    private z_MultiTexCoord3sARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3sARB(target: TextureUnit; s: Int16; t: Int16; r: Int16) :=
     z_MultiTexCoord3sARB_ovr_0(target, s, t, r);
     
-    private static procedure z_MultiTexCoord3svARB_ovr_0(target: TextureUnit; var v: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord3svARB';
-    private static procedure z_MultiTexCoord3svARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3svARB';
+    private z_MultiTexCoord3svARB_adr := GetFuncAdr('glMultiTexCoord3svARB');
+    private z_MultiTexCoord3svARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3svARB_adr);
+    private z_MultiTexCoord3svARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3svARB(target: TextureUnit; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord3svARB_ovr_0(target, v[0]) else
       z_MultiTexCoord3svARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3svARB(target: TextureUnit; var v: Int16) :=
     z_MultiTexCoord3svARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord3svARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3svARB';
+    private z_MultiTexCoord3svARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3svARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord3svARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord4dARB_ovr_0(target: TextureUnit; s: real; t: real; r: real; q: real);
-    external 'opengl32.dll' name 'glMultiTexCoord4dARB';
+    private z_MultiTexCoord4dARB_adr := GetFuncAdr('glMultiTexCoord4dARB');
+    private z_MultiTexCoord4dARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4dARB(target: TextureUnit; s: real; t: real; r: real; q: real) :=
     z_MultiTexCoord4dARB_ovr_0(target, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4dvARB_ovr_0(target: TextureUnit; var v: real);
-    external 'opengl32.dll' name 'glMultiTexCoord4dvARB';
-    private static procedure z_MultiTexCoord4dvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4dvARB';
+    private z_MultiTexCoord4dvARB_adr := GetFuncAdr('glMultiTexCoord4dvARB');
+    private z_MultiTexCoord4dvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4dvARB_adr);
+    private z_MultiTexCoord4dvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4dvARB(target: TextureUnit; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord4dvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord4dvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4dvARB(target: TextureUnit; var v: real) :=
     z_MultiTexCoord4dvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord4dvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4dvARB';
+    private z_MultiTexCoord4dvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4dvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord4dvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord4fARB_ovr_0(target: TextureUnit; s: single; t: single; r: single; q: single);
-    external 'opengl32.dll' name 'glMultiTexCoord4fARB';
+    private z_MultiTexCoord4fARB_adr := GetFuncAdr('glMultiTexCoord4fARB');
+    private z_MultiTexCoord4fARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4fARB(target: TextureUnit; s: single; t: single; r: single; q: single) :=
     z_MultiTexCoord4fARB_ovr_0(target, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4fvARB_ovr_0(target: TextureUnit; var v: single);
-    external 'opengl32.dll' name 'glMultiTexCoord4fvARB';
-    private static procedure z_MultiTexCoord4fvARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4fvARB';
+    private z_MultiTexCoord4fvARB_adr := GetFuncAdr('glMultiTexCoord4fvARB');
+    private z_MultiTexCoord4fvARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4fvARB_adr);
+    private z_MultiTexCoord4fvARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4fvARB(target: TextureUnit; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord4fvARB_ovr_0(target, v[0]) else
       z_MultiTexCoord4fvARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4fvARB(target: TextureUnit; var v: single) :=
     z_MultiTexCoord4fvARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord4fvARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4fvARB';
+    private z_MultiTexCoord4fvARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4fvARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord4fvARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord4iARB_ovr_0(target: TextureUnit; s: Int32; t: Int32; r: Int32; q: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord4iARB';
+    private z_MultiTexCoord4iARB_adr := GetFuncAdr('glMultiTexCoord4iARB');
+    private z_MultiTexCoord4iARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4iARB(target: TextureUnit; s: Int32; t: Int32; r: Int32; q: Int32) :=
     z_MultiTexCoord4iARB_ovr_0(target, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4ivARB_ovr_0(target: TextureUnit; var v: Int32);
-    external 'opengl32.dll' name 'glMultiTexCoord4ivARB';
-    private static procedure z_MultiTexCoord4ivARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4ivARB';
+    private z_MultiTexCoord4ivARB_adr := GetFuncAdr('glMultiTexCoord4ivARB');
+    private z_MultiTexCoord4ivARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4ivARB_adr);
+    private z_MultiTexCoord4ivARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4ivARB(target: TextureUnit; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord4ivARB_ovr_0(target, v[0]) else
       z_MultiTexCoord4ivARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4ivARB(target: TextureUnit; var v: Int32) :=
     z_MultiTexCoord4ivARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord4ivARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4ivARB';
+    private z_MultiTexCoord4ivARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4ivARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord4ivARB_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord4sARB_ovr_0(target: TextureUnit; s: Int16; t: Int16; r: Int16; q: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord4sARB';
+    private z_MultiTexCoord4sARB_adr := GetFuncAdr('glMultiTexCoord4sARB');
+    private z_MultiTexCoord4sARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4sARB(target: TextureUnit; s: Int16; t: Int16; r: Int16; q: Int16) :=
     z_MultiTexCoord4sARB_ovr_0(target, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4svARB_ovr_0(target: TextureUnit; var v: Int16);
-    external 'opengl32.dll' name 'glMultiTexCoord4svARB';
-    private static procedure z_MultiTexCoord4svARB_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4svARB';
+    private z_MultiTexCoord4svARB_adr := GetFuncAdr('glMultiTexCoord4svARB');
+    private z_MultiTexCoord4svARB_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4svARB_adr);
+    private z_MultiTexCoord4svARB_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4svARB(target: TextureUnit; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord4svARB_ovr_0(target, v[0]) else
       z_MultiTexCoord4svARB_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4svARB(target: TextureUnit; var v: Int16) :=
     z_MultiTexCoord4svARB_ovr_0(target, v);
-    private static procedure z_MultiTexCoord4svARB_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4svARB';
+    private z_MultiTexCoord4svARB_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4svARB(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord4svARB_ovr_2(target, v);
     
   end;
   
   [PCUNotRestore]
-  glOcclusionQueryARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glOcclusionQueryARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_occlusion_query';
     
-    private static procedure z_GenQueriesARB_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glGenQueriesARB';
-    private static procedure z_GenQueriesARB_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenQueriesARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueriesARB(n: Int32; ids: array of UInt32) :=
+    private z_GenQueriesARB_adr := GetFuncAdr('glGenQueriesARB');
+    private z_GenQueriesARB_ovr_0 := GetFuncOrNil&(z_GenQueriesARB_adr);
+    private z_GenQueriesARB_ovr_0_anh001 := GetFuncOrNil&(z_GenQueriesARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueriesARB(n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenQueriesARB_ovr_0(n, ids[0]) else
       z_GenQueriesARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueriesARB(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueriesARB(n: Int32; var ids: gl_query) :=
     z_GenQueriesARB_ovr_0(n, ids);
-    private static procedure z_GenQueriesARB_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenQueriesARB';
+    private z_GenQueriesARB_ovr_2 := GetFuncOrNil&(z_GenQueriesARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueriesARB(n: Int32; ids: IntPtr) :=
     z_GenQueriesARB_ovr_2(n, ids);
     
-    private static procedure z_DeleteQueriesARB_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glDeleteQueriesARB';
-    private static procedure z_DeleteQueriesARB_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteQueriesARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueriesARB(n: Int32; ids: array of UInt32) :=
+    private z_DeleteQueriesARB_adr := GetFuncAdr('glDeleteQueriesARB');
+    private z_DeleteQueriesARB_ovr_0 := GetFuncOrNil&(z_DeleteQueriesARB_adr);
+    private z_DeleteQueriesARB_ovr_0_anh001 := GetFuncOrNil&(z_DeleteQueriesARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueriesARB(n: Int32; ids: array of gl_query) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteQueriesARB_ovr_0(n, ids[0]) else
       z_DeleteQueriesARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueriesARB(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueriesARB(n: Int32; var ids: gl_query) :=
     z_DeleteQueriesARB_ovr_0(n, ids);
-    private static procedure z_DeleteQueriesARB_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteQueriesARB';
+    private z_DeleteQueriesARB_ovr_2 := GetFuncOrNil&(z_DeleteQueriesARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueriesARB(n: Int32; ids: IntPtr) :=
     z_DeleteQueriesARB_ovr_2(n, ids);
     
-    private static function z_IsQueryARB_ovr_0(id: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsQueryARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsQueryARB(id: UInt32): boolean :=
+    private z_IsQueryARB_adr := GetFuncAdr('glIsQueryARB');
+    private z_IsQueryARB_ovr_0 := GetFuncOrNil&(z_IsQueryARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsQueryARB(id: gl_query): boolean :=
     z_IsQueryARB_ovr_0(id);
     
-    private static procedure z_BeginQueryARB_ovr_0(target: DummyEnum; id: UInt32);
-    external 'opengl32.dll' name 'glBeginQueryARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryARB(target: DummyEnum; id: UInt32) :=
+    private z_BeginQueryARB_adr := GetFuncAdr('glBeginQueryARB');
+    private z_BeginQueryARB_ovr_0 := GetFuncOrNil&(z_BeginQueryARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryARB(target: QueryTarget; id: gl_query) :=
     z_BeginQueryARB_ovr_0(target, id);
     
-    private static procedure z_EndQueryARB_ovr_0(target: QueryTarget);
-    external 'opengl32.dll' name 'glEndQueryARB';
+    private z_EndQueryARB_adr := GetFuncAdr('glEndQueryARB');
+    private z_EndQueryARB_ovr_0 := GetFuncOrNil&(z_EndQueryARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndQueryARB(target: QueryTarget) :=
     z_EndQueryARB_ovr_0(target);
     
-    private static procedure z_GetQueryivARB_ovr_0(target: QueryTarget; pname: QueryParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetQueryivARB';
-    private static procedure z_GetQueryivARB_ovr_0_anh0001(target: QueryTarget; pname: QueryParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryivARB';
+    private z_GetQueryivARB_adr := GetFuncAdr('glGetQueryivARB');
+    private z_GetQueryivARB_ovr_0 := GetFuncOrNil&(z_GetQueryivARB_adr);
+    private z_GetQueryivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryivARB(target: QueryTarget; pname: QueryParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryivARB_ovr_0(target, pname, ¶ms[0]) else
       z_GetQueryivARB_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryivARB(target: QueryTarget; pname: QueryParameterName; var ¶ms: Int32) :=
     z_GetQueryivARB_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetQueryivARB_ovr_2(target: QueryTarget; pname: QueryParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryivARB';
+    private z_GetQueryivARB_ovr_2 := GetFuncOrNil&(z_GetQueryivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryivARB(target: QueryTarget; pname: QueryParameterName; ¶ms: IntPtr) :=
     z_GetQueryivARB_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetQueryObjectivARB_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetQueryObjectivARB';
-    private static procedure z_GetQueryObjectivARB_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of Int32) :=
+    private z_GetQueryObjectivARB_adr := GetFuncAdr('glGetQueryObjectivARB');
+    private z_GetQueryObjectivARB_ovr_0 := GetFuncOrNil&(z_GetQueryObjectivARB_adr);
+    private z_GetQueryObjectivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectivARB_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectivARB_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: gl_query; pname: QueryObjectParameterName; var ¶ms: Int32) :=
     z_GetQueryObjectivARB_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjectivARB_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectivARB_ovr_2 := GetFuncOrNil&(z_GetQueryObjectivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectivARB(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectivARB_ovr_2(id, pname, ¶ms);
     
-    private static procedure z_GetQueryObjectuivARB_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetQueryObjectuivARB';
-    private static procedure z_GetQueryObjectuivARB_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectuivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of UInt32) :=
+    private z_GetQueryObjectuivARB_adr := GetFuncAdr('glGetQueryObjectuivARB');
+    private z_GetQueryObjectuivARB_ovr_0 := GetFuncOrNil&(z_GetQueryObjectuivARB_adr);
+    private z_GetQueryObjectuivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectuivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectuivARB_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectuivARB_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: gl_query; pname: QueryObjectParameterName; var ¶ms: UInt32) :=
     z_GetQueryObjectuivARB_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjectuivARB_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectuivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectuivARB_ovr_2 := GetFuncOrNil&(z_GetQueryObjectuivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectuivARB(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectuivARB_ovr_2(id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glParallelShaderCompileARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glParallelShaderCompileARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_parallel_shader_compile';
     
-    private static procedure z_MaxShaderCompilerThreadsARB_ovr_0(count: UInt32);
-    external 'opengl32.dll' name 'glMaxShaderCompilerThreadsARB';
+    private z_MaxShaderCompilerThreadsARB_adr := GetFuncAdr('glMaxShaderCompilerThreadsARB');
+    private z_MaxShaderCompilerThreadsARB_ovr_0 := GetFuncOrNil&(z_MaxShaderCompilerThreadsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaxShaderCompilerThreadsARB(count: UInt32) :=
     z_MaxShaderCompilerThreadsARB_ovr_0(count);
     
   end;
   
   [PCUNotRestore]
-  glPointParametersARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPointParametersARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_point_parameters';
     
-    private static procedure z_PointParameterfARB_ovr_0(pname: PointParameterNameARB; param: single);
-    external 'opengl32.dll' name 'glPointParameterfARB';
+    private z_PointParameterfARB_adr := GetFuncAdr('glPointParameterfARB');
+    private z_PointParameterfARB_ovr_0 := GetFuncOrNil&(z_PointParameterfARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfARB(pname: PointParameterNameARB; param: single) :=
     z_PointParameterfARB_ovr_0(pname, param);
     
-    private static procedure z_PointParameterfvARB_ovr_0(pname: PointParameterNameARB; var ¶ms: single);
-    external 'opengl32.dll' name 'glPointParameterfvARB';
-    private static procedure z_PointParameterfvARB_ovr_0_anh001(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvARB';
+    private z_PointParameterfvARB_adr := GetFuncAdr('glPointParameterfvARB');
+    private z_PointParameterfvARB_ovr_0 := GetFuncOrNil&(z_PointParameterfvARB_adr);
+    private z_PointParameterfvARB_ovr_0_anh001 := GetFuncOrNil&(z_PointParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvARB(pname: PointParameterNameARB; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PointParameterfvARB_ovr_0(pname, ¶ms[0]) else
       z_PointParameterfvARB_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvARB(pname: PointParameterNameARB; var ¶ms: single) :=
     z_PointParameterfvARB_ovr_0(pname, ¶ms);
-    private static procedure z_PointParameterfvARB_ovr_2(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvARB';
+    private z_PointParameterfvARB_ovr_2 := GetFuncOrNil&(z_PointParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvARB(pname: PointParameterNameARB; ¶ms: IntPtr) :=
     z_PointParameterfvARB_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPolygonOffsetClampARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPolygonOffsetClampARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_polygon_offset_clamp';
     
-    private static procedure z_PolygonOffsetClamp_ovr_0(factor: single; units: single; clamp: single);
-    external 'opengl32.dll' name 'glPolygonOffsetClamp';
+    private z_PolygonOffsetClamp_adr := GetFuncAdr('glPolygonOffsetClamp');
+    private z_PolygonOffsetClamp_ovr_0 := GetFuncOrNil&(z_PolygonOffsetClamp_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonOffsetClamp(factor: single; units: single; clamp: single) :=
     z_PolygonOffsetClamp_ovr_0(factor, units, clamp);
     
   end;
   
   [PCUNotRestore]
-  glProgramInterfaceQueryARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glProgramInterfaceQueryARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_program_interface_query';
     
-    private static procedure z_GetProgramInterfaceiv_ovr_0(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramInterfaceiv';
-    private static procedure z_GetProgramInterfaceiv_ovr_0_anh00001(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramInterfaceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: array of Int32) :=
+    private z_GetProgramInterfaceiv_adr := GetFuncAdr('glGetProgramInterfaceiv');
+    private z_GetProgramInterfaceiv_ovr_0 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    private z_GetProgramInterfaceiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramInterfaceiv_ovr_0(&program, _programInterface, pname, ¶ms[0]) else
       z_GetProgramInterfaceiv_ovr_0_anh00001(&program, _programInterface, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; var ¶ms: Int32) :=
     z_GetProgramInterfaceiv_ovr_0(&program, _programInterface, pname, ¶ms);
-    private static procedure z_GetProgramInterfaceiv_ovr_2(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramInterfaceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: ProgramName; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr) :=
+    private z_GetProgramInterfaceiv_ovr_2 := GetFuncOrNil&(z_GetProgramInterfaceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramInterfaceiv(&program: gl_program; _programInterface: ProgramInterface; pname: ProgramInterfacePName; ¶ms: IntPtr) :=
     z_GetProgramInterfaceiv_ovr_2(&program, _programInterface, pname, ¶ms);
     
-    private static function z_GetProgramResourceIndex_ovr_0(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetProgramResourceIndex';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: ProgramName; _programInterface: ProgramInterface; name: string): UInt32;
+    private z_GetProgramResourceIndex_adr := GetFuncAdr('glGetProgramResourceIndex');
+    private z_GetProgramResourceIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: gl_program; _programInterface: ProgramInterface; name: string): UInt32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -41835,91 +42566,23 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceIndex(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): UInt32 :=
     z_GetProgramResourceIndex_ovr_0(&program, _programInterface, name);
     
-    private static procedure z_GetProgramResourceName_ovr_0(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceName';
-    private static procedure z_GetProgramResourceName_ovr_0_anh0000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceName_ovr_0(&program, _programInterface, index, bufSize, length[0], name) else
-      z_GetProgramResourceName_ovr_0_anh0000010(&program, _programInterface, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetProgramResourceName_adr := GetFuncAdr('glGetProgramResourceName');
+    private z_GetProgramResourceName_ovr_0 := GetFuncOrNil&(z_GetProgramResourceName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetProgramResourceName_ovr_0(&program, _programInterface, index, bufSize, length, name);
-    private static procedure z_GetProgramResourceName_ovr_2(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetProgramResourceName_ovr_2(&program, _programInterface, index, bufSize, length, name);
+    private z_GetProgramResourceName_ovr_1 := GetFuncOrNil&(z_GetProgramResourceName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceName(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetProgramResourceName_ovr_1(&program, _programInterface, index, bufSize, length, name);
     
-    private static procedure z_GetProgramResourceiv_ovr_0(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000000011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_0_anh000001011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props[0], count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000000011(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, IntPtr.Zero) else
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourceiv_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourceiv_ovr_0_anh000001011(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramResourceiv_ovr_1_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_1_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_1_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_2(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_2_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_2_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_2_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_2_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourceiv_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourceiv_ovr_2_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_3_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_3_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+    private z_GetProgramResourceiv_adr := GetFuncAdr('glGetProgramResourceiv');
+    private z_GetProgramResourceiv_ovr_0 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_0_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
@@ -41927,136 +42590,82 @@ type
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
         z_GetProgramResourceiv_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private static procedure z_GetProgramResourceiv_ovr_4_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    private z_GetProgramResourceiv_ovr_1_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourceiv_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_5_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    private z_GetProgramResourceiv_ovr_2 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_2_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourceiv_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_6(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_6_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_6_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_6_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+    private z_GetProgramResourceiv_ovr_3 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_3_anh000001001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_6_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
+        z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
+        z_GetProgramResourceiv_ovr_3_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_6_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private static procedure z_GetProgramResourceiv_ovr_7_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+        z_GetProgramResourceiv_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
+        z_GetProgramResourceiv_ovr_3_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
+    private z_GetProgramResourceiv_ovr_4_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourceiv_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_8(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_8_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+      z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourceiv_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_5 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_5_anh000001000 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourceiv_ovr_8(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourceiv_ovr_8_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_0_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_2_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_5(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourceiv_ovr_5_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
       z_GetProgramResourceiv_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; var ¶ms: Int32) :=
     z_GetProgramResourceiv_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     z_GetProgramResourceiv_ovr_2(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_6_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_8(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_18(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_18_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_18_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_18_anh000000011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourceiv_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourceiv_ovr_18_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramResourceiv_ovr_19_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; var ¶ms: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_20(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_20_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourceiv_ovr_20(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourceiv_ovr_20_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_3_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: ProgramResourceProperty; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_5(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_12 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_12_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_20(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_24(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    private static procedure z_GetProgramResourceiv_ovr_24_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
+      z_GetProgramResourceiv_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_12_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_14 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_14(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_15 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    private z_GetProgramResourceiv_ovr_15_anh000000001 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourceiv_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourceiv_ovr_24_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32) :=
-    z_GetProgramResourceiv_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourceiv_ovr_26(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourceiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourceiv_ovr_26(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+      z_GetProgramResourceiv_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourceiv_ovr_15_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: Int32) :=
+    z_GetProgramResourceiv_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourceiv_ovr_17 := GetFuncOrNil&(z_GetProgramResourceiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourceiv(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourceiv_ovr_17(&program, _programInterface, index, propCount, props, count, length, ¶ms);
     
-    private static function z_GetProgramResourceLocation_ovr_0(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetProgramResourceLocation';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: ProgramName; _programInterface: ProgramInterface; name: string): Int32;
+    private z_GetProgramResourceLocation_adr := GetFuncAdr('glGetProgramResourceLocation');
+    private z_GetProgramResourceLocation_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: gl_program; _programInterface: ProgramInterface; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -42066,12 +42675,12 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocation(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
     z_GetProgramResourceLocation_ovr_0(&program, _programInterface, name);
     
-    private static function z_GetProgramResourceLocationIndex_ovr_0(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetProgramResourceLocationIndex';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: ProgramName; _programInterface: ProgramInterface; name: string): Int32;
+    private z_GetProgramResourceLocationIndex_adr := GetFuncAdr('glGetProgramResourceLocationIndex');
+    private z_GetProgramResourceLocationIndex_ovr_0 := GetFuncOrNil&(z_GetProgramResourceLocationIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: gl_program; _programInterface: ProgramInterface; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -42081,515 +42690,480 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: ProgramName; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProgramResourceLocationIndex(&program: gl_program; _programInterface: ProgramInterface; name: IntPtr): Int32 :=
     z_GetProgramResourceLocationIndex_ovr_0(&program, _programInterface, name);
     
   end;
   
   [PCUNotRestore]
-  glProvokingVertexARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glProvokingVertexARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_provoking_vertex';
     
-    private static procedure z_ProvokingVertex_ovr_0(mode: VertexProvokingMode);
-    external 'opengl32.dll' name 'glProvokingVertex';
+    private z_ProvokingVertex_adr := GetFuncAdr('glProvokingVertex');
+    private z_ProvokingVertex_ovr_0 := GetFuncOrNil&(z_ProvokingVertex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProvokingVertex(mode: VertexProvokingMode) :=
     z_ProvokingVertex_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glRobustnessARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glRobustnessARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_robustness';
     
-    private static function z_GetGraphicsResetStatusARB_ovr_0: GraphicsResetStatus;
-    external 'opengl32.dll' name 'glGetGraphicsResetStatusARB';
+    private z_GetGraphicsResetStatusARB_adr := GetFuncAdr('glGetGraphicsResetStatusARB');
+    private z_GetGraphicsResetStatusARB_ovr_0 := GetFuncOrNil&(z_GetGraphicsResetStatusARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGraphicsResetStatusARB: GraphicsResetStatus :=
     z_GetGraphicsResetStatusARB_ovr_0;
     
-    private static procedure z_GetnTexImageARB_ovr_0(target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; img: IntPtr);
-    external 'opengl32.dll' name 'glGetnTexImageARB';
+    private z_GetnTexImageARB_adr := GetFuncAdr('glGetnTexImageARB');
+    private z_GetnTexImageARB_ovr_0 := GetFuncOrNil&(z_GetnTexImageARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnTexImageARB(target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; img: IntPtr) :=
     z_GetnTexImageARB_ovr_0(target, level, format, &type, bufSize, img);
     
-    private static procedure z_ReadnPixelsARB_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glReadnPixelsARB';
+    private z_ReadnPixelsARB_adr := GetFuncAdr('glReadnPixelsARB');
+    private z_ReadnPixelsARB_ovr_0 := GetFuncOrNil&(z_ReadnPixelsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReadnPixelsARB(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; data: IntPtr) :=
     z_ReadnPixelsARB_ovr_0(x, y, width, height, format, &type, bufSize, data);
     
-    private static procedure z_GetnCompressedTexImageARB_ovr_0(target: TextureTarget; lod: Int32; bufSize: Int32; img: IntPtr);
-    external 'opengl32.dll' name 'glGetnCompressedTexImageARB';
+    private z_GetnCompressedTexImageARB_adr := GetFuncAdr('glGetnCompressedTexImageARB');
+    private z_GetnCompressedTexImageARB_ovr_0 := GetFuncOrNil&(z_GetnCompressedTexImageARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnCompressedTexImageARB(target: TextureTarget; lod: Int32; bufSize: Int32; img: IntPtr) :=
     z_GetnCompressedTexImageARB_ovr_0(target, lod, bufSize, img);
     
-    private static procedure z_GetnUniformfvARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetnUniformfvARB';
-    private static procedure z_GetnUniformfvARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of single) :=
+    private z_GetnUniformfvARB_adr := GetFuncAdr('glGetnUniformfvARB');
+    private z_GetnUniformfvARB_ovr_0 := GetFuncOrNil&(z_GetnUniformfvARB_adr);
+    private z_GetnUniformfvARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformfvARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformfvARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: single) :=
     z_GetnUniformfvARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformfvARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformfvARB_ovr_2 := GetFuncOrNil&(z_GetnUniformfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfvARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformfvARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformivARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetnUniformivARB';
-    private static procedure z_GetnUniformivARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
+    private z_GetnUniformivARB_adr := GetFuncAdr('glGetnUniformivARB');
+    private z_GetnUniformivARB_ovr_0 := GetFuncOrNil&(z_GetnUniformivARB_adr);
+    private z_GetnUniformivARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformivARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformivARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
     z_GetnUniformivARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformivARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformivARB_ovr_2 := GetFuncOrNil&(z_GetnUniformivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformivARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformivARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformuivARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetnUniformuivARB';
-    private static procedure z_GetnUniformuivARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformuivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
+    private z_GetnUniformuivARB_adr := GetFuncAdr('glGetnUniformuivARB');
+    private z_GetnUniformuivARB_ovr_0 := GetFuncOrNil&(z_GetnUniformuivARB_adr);
+    private z_GetnUniformuivARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformuivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformuivARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformuivARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
     z_GetnUniformuivARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformuivARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformuivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformuivARB_ovr_2 := GetFuncOrNil&(z_GetnUniformuivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuivARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformuivARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformdvARB_ovr_0(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetnUniformdvARB';
-    private static procedure z_GetnUniformdvARB_ovr_0_anh00001(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformdvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: array of real) :=
+    private z_GetnUniformdvARB_adr := GetFuncAdr('glGetnUniformdvARB');
+    private z_GetnUniformdvARB_ovr_0 := GetFuncOrNil&(z_GetnUniformdvARB_adr);
+    private z_GetnUniformdvARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformdvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformdvARB_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformdvARB_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: UInt32; location: Int32; bufSize: Int32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: real) :=
     z_GetnUniformdvARB_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformdvARB_ovr_2(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformdvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: UInt32; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformdvARB_ovr_2 := GetFuncOrNil&(z_GetnUniformdvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformdvARB(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformdvARB_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnMapdvARB_ovr_0(target: MapTarget; query: MapQuery; bufSize: Int32; var v: real);
-    external 'opengl32.dll' name 'glGetnMapdvARB';
-    private static procedure z_GetnMapdvARB_ovr_0_anh00001(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapdvARB';
+    private z_GetnMapdvARB_adr := GetFuncAdr('glGetnMapdvARB');
+    private z_GetnMapdvARB_ovr_0 := GetFuncOrNil&(z_GetnMapdvARB_adr);
+    private z_GetnMapdvARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnMapdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapdvARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_GetnMapdvARB_ovr_0(target, query, bufSize, v[0]) else
       z_GetnMapdvARB_ovr_0_anh00001(target, query, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapdvARB(target: MapTarget; query: MapQuery; bufSize: Int32; var v: real) :=
     z_GetnMapdvARB_ovr_0(target, query, bufSize, v);
-    private static procedure z_GetnMapdvARB_ovr_2(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapdvARB';
+    private z_GetnMapdvARB_ovr_2 := GetFuncOrNil&(z_GetnMapdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapdvARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr) :=
     z_GetnMapdvARB_ovr_2(target, query, bufSize, v);
     
-    private static procedure z_GetnMapfvARB_ovr_0(target: MapTarget; query: MapQuery; bufSize: Int32; var v: single);
-    external 'opengl32.dll' name 'glGetnMapfvARB';
-    private static procedure z_GetnMapfvARB_ovr_0_anh00001(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapfvARB';
+    private z_GetnMapfvARB_adr := GetFuncAdr('glGetnMapfvARB');
+    private z_GetnMapfvARB_ovr_0 := GetFuncOrNil&(z_GetnMapfvARB_adr);
+    private z_GetnMapfvARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnMapfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapfvARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_GetnMapfvARB_ovr_0(target, query, bufSize, v[0]) else
       z_GetnMapfvARB_ovr_0_anh00001(target, query, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapfvARB(target: MapTarget; query: MapQuery; bufSize: Int32; var v: single) :=
     z_GetnMapfvARB_ovr_0(target, query, bufSize, v);
-    private static procedure z_GetnMapfvARB_ovr_2(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapfvARB';
+    private z_GetnMapfvARB_ovr_2 := GetFuncOrNil&(z_GetnMapfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapfvARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr) :=
     z_GetnMapfvARB_ovr_2(target, query, bufSize, v);
     
-    private static procedure z_GetnMapivARB_ovr_0(target: MapTarget; query: MapQuery; bufSize: Int32; var v: Int32);
-    external 'opengl32.dll' name 'glGetnMapivARB';
-    private static procedure z_GetnMapivARB_ovr_0_anh00001(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapivARB';
+    private z_GetnMapivARB_adr := GetFuncAdr('glGetnMapivARB');
+    private z_GetnMapivARB_ovr_0 := GetFuncOrNil&(z_GetnMapivARB_adr);
+    private z_GetnMapivARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetnMapivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapivARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_GetnMapivARB_ovr_0(target, query, bufSize, v[0]) else
       z_GetnMapivARB_ovr_0_anh00001(target, query, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapivARB(target: MapTarget; query: MapQuery; bufSize: Int32; var v: Int32) :=
     z_GetnMapivARB_ovr_0(target, query, bufSize, v);
-    private static procedure z_GetnMapivARB_ovr_2(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetnMapivARB';
+    private z_GetnMapivARB_ovr_2 := GetFuncOrNil&(z_GetnMapivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMapivARB(target: MapTarget; query: MapQuery; bufSize: Int32; v: IntPtr) :=
     z_GetnMapivARB_ovr_2(target, query, bufSize, v);
     
-    private static procedure z_GetnPixelMapfvARB_ovr_0(map: PixelMap; bufSize: Int32; var values: single);
-    external 'opengl32.dll' name 'glGetnPixelMapfvARB';
-    private static procedure z_GetnPixelMapfvARB_ovr_0_anh0001(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapfvARB';
+    private z_GetnPixelMapfvARB_adr := GetFuncAdr('glGetnPixelMapfvARB');
+    private z_GetnPixelMapfvARB_ovr_0 := GetFuncOrNil&(z_GetnPixelMapfvARB_adr);
+    private z_GetnPixelMapfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetnPixelMapfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapfvARB(map: PixelMap; bufSize: Int32; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetnPixelMapfvARB_ovr_0(map, bufSize, values[0]) else
       z_GetnPixelMapfvARB_ovr_0_anh0001(map, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapfvARB(map: PixelMap; bufSize: Int32; var values: single) :=
     z_GetnPixelMapfvARB_ovr_0(map, bufSize, values);
-    private static procedure z_GetnPixelMapfvARB_ovr_2(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapfvARB';
+    private z_GetnPixelMapfvARB_ovr_2 := GetFuncOrNil&(z_GetnPixelMapfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapfvARB(map: PixelMap; bufSize: Int32; values: IntPtr) :=
     z_GetnPixelMapfvARB_ovr_2(map, bufSize, values);
     
-    private static procedure z_GetnPixelMapuivARB_ovr_0(map: PixelMap; bufSize: Int32; var values: UInt32);
-    external 'opengl32.dll' name 'glGetnPixelMapuivARB';
-    private static procedure z_GetnPixelMapuivARB_ovr_0_anh0001(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapuivARB';
+    private z_GetnPixelMapuivARB_adr := GetFuncAdr('glGetnPixelMapuivARB');
+    private z_GetnPixelMapuivARB_ovr_0 := GetFuncOrNil&(z_GetnPixelMapuivARB_adr);
+    private z_GetnPixelMapuivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetnPixelMapuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapuivARB(map: PixelMap; bufSize: Int32; values: array of UInt32) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetnPixelMapuivARB_ovr_0(map, bufSize, values[0]) else
       z_GetnPixelMapuivARB_ovr_0_anh0001(map, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapuivARB(map: PixelMap; bufSize: Int32; var values: UInt32) :=
     z_GetnPixelMapuivARB_ovr_0(map, bufSize, values);
-    private static procedure z_GetnPixelMapuivARB_ovr_2(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapuivARB';
+    private z_GetnPixelMapuivARB_ovr_2 := GetFuncOrNil&(z_GetnPixelMapuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapuivARB(map: PixelMap; bufSize: Int32; values: IntPtr) :=
     z_GetnPixelMapuivARB_ovr_2(map, bufSize, values);
     
-    private static procedure z_GetnPixelMapusvARB_ovr_0(map: PixelMap; bufSize: Int32; var values: UInt16);
-    external 'opengl32.dll' name 'glGetnPixelMapusvARB';
-    private static procedure z_GetnPixelMapusvARB_ovr_0_anh0001(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapusvARB';
+    private z_GetnPixelMapusvARB_adr := GetFuncAdr('glGetnPixelMapusvARB');
+    private z_GetnPixelMapusvARB_ovr_0 := GetFuncOrNil&(z_GetnPixelMapusvARB_adr);
+    private z_GetnPixelMapusvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetnPixelMapusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapusvARB(map: PixelMap; bufSize: Int32; values: array of UInt16) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetnPixelMapusvARB_ovr_0(map, bufSize, values[0]) else
       z_GetnPixelMapusvARB_ovr_0_anh0001(map, bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapusvARB(map: PixelMap; bufSize: Int32; var values: UInt16) :=
     z_GetnPixelMapusvARB_ovr_0(map, bufSize, values);
-    private static procedure z_GetnPixelMapusvARB_ovr_2(map: PixelMap; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnPixelMapusvARB';
+    private z_GetnPixelMapusvARB_ovr_2 := GetFuncOrNil&(z_GetnPixelMapusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPixelMapusvARB(map: PixelMap; bufSize: Int32; values: IntPtr) :=
     z_GetnPixelMapusvARB_ovr_2(map, bufSize, values);
     
-    private static procedure z_GetnPolygonStippleARB_ovr_0(bufSize: Int32; var pattern: Byte);
-    external 'opengl32.dll' name 'glGetnPolygonStippleARB';
-    private static procedure z_GetnPolygonStippleARB_ovr_0_anh001(bufSize: Int32; pattern: IntPtr);
-    external 'opengl32.dll' name 'glGetnPolygonStippleARB';
+    private z_GetnPolygonStippleARB_adr := GetFuncAdr('glGetnPolygonStippleARB');
+    private z_GetnPolygonStippleARB_ovr_0 := GetFuncOrNil&(z_GetnPolygonStippleARB_adr);
+    private z_GetnPolygonStippleARB_ovr_0_anh001 := GetFuncOrNil&(z_GetnPolygonStippleARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPolygonStippleARB(bufSize: Int32; pattern: array of Byte) :=
     if (pattern<>nil) and (pattern.Length<>0) then
       z_GetnPolygonStippleARB_ovr_0(bufSize, pattern[0]) else
       z_GetnPolygonStippleARB_ovr_0_anh001(bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPolygonStippleARB(bufSize: Int32; var pattern: Byte) :=
     z_GetnPolygonStippleARB_ovr_0(bufSize, pattern);
-    private static procedure z_GetnPolygonStippleARB_ovr_2(bufSize: Int32; pattern: IntPtr);
-    external 'opengl32.dll' name 'glGetnPolygonStippleARB';
+    private z_GetnPolygonStippleARB_ovr_2 := GetFuncOrNil&(z_GetnPolygonStippleARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnPolygonStippleARB(bufSize: Int32; pattern: IntPtr) :=
     z_GetnPolygonStippleARB_ovr_2(bufSize, pattern);
     
-    private static procedure z_GetnColorTableARB_ovr_0(target: ColorTableTarget; format: PixelFormat; &type: PixelType; bufSize: Int32; table: IntPtr);
-    external 'opengl32.dll' name 'glGetnColorTableARB';
+    private z_GetnColorTableARB_adr := GetFuncAdr('glGetnColorTableARB');
+    private z_GetnColorTableARB_ovr_0 := GetFuncOrNil&(z_GetnColorTableARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnColorTableARB(target: ColorTableTarget; format: PixelFormat; &type: PixelType; bufSize: Int32; table: IntPtr) :=
     z_GetnColorTableARB_ovr_0(target, format, &type, bufSize, table);
     
-    private static procedure z_GetnConvolutionFilterARB_ovr_0(target: ConvolutionTarget; format: PixelFormat; &type: PixelType; bufSize: Int32; image: IntPtr);
-    external 'opengl32.dll' name 'glGetnConvolutionFilterARB';
+    private z_GetnConvolutionFilterARB_adr := GetFuncAdr('glGetnConvolutionFilterARB');
+    private z_GetnConvolutionFilterARB_ovr_0 := GetFuncOrNil&(z_GetnConvolutionFilterARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnConvolutionFilterARB(target: ConvolutionTarget; format: PixelFormat; &type: PixelType; bufSize: Int32; image: IntPtr) :=
     z_GetnConvolutionFilterARB_ovr_0(target, format, &type, bufSize, image);
     
-    private static procedure z_GetnSeparableFilterARB_ovr_0(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; rowBufSize: Int32; row: IntPtr; columnBufSize: Int32; column: IntPtr; span: IntPtr);
-    external 'opengl32.dll' name 'glGetnSeparableFilterARB';
+    private z_GetnSeparableFilterARB_adr := GetFuncAdr('glGetnSeparableFilterARB');
+    private z_GetnSeparableFilterARB_ovr_0 := GetFuncOrNil&(z_GetnSeparableFilterARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnSeparableFilterARB(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; rowBufSize: Int32; row: IntPtr; columnBufSize: Int32; column: IntPtr; span: IntPtr) :=
     z_GetnSeparableFilterARB_ovr_0(target, format, &type, rowBufSize, row, columnBufSize, column, span);
     
-    private static procedure z_GetnHistogramARB_ovr_0(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnHistogramARB';
+    private z_GetnHistogramARB_adr := GetFuncAdr('glGetnHistogramARB');
+    private z_GetnHistogramARB_ovr_0 := GetFuncOrNil&(z_GetnHistogramARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnHistogramARB(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
     z_GetnHistogramARB_ovr_0(target, reset, format, &type, bufSize, values);
     
-    private static procedure z_GetnMinmaxARB_ovr_0(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetnMinmaxARB';
+    private z_GetnMinmaxARB_adr := GetFuncAdr('glGetnMinmaxARB');
+    private z_GetnMinmaxARB_ovr_0 := GetFuncOrNil&(z_GetnMinmaxARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnMinmaxARB(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; bufSize: Int32; values: IntPtr) :=
     z_GetnMinmaxARB_ovr_0(target, reset, format, &type, bufSize, values);
     
   end;
   
   [PCUNotRestore]
-  glSampleLocationsARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSampleLocationsARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sample_locations';
     
-    private static procedure z_FramebufferSampleLocationsfvARB_ovr_0(target: FramebufferTarget; start: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvARB';
-    private static procedure z_FramebufferSampleLocationsfvARB_ovr_0_anh00001(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvARB';
+    private z_FramebufferSampleLocationsfvARB_adr := GetFuncAdr('glFramebufferSampleLocationsfvARB');
+    private z_FramebufferSampleLocationsfvARB_ovr_0 := GetFuncOrNil&(z_FramebufferSampleLocationsfvARB_adr);
+    private z_FramebufferSampleLocationsfvARB_ovr_0_anh00001 := GetFuncOrNil&(z_FramebufferSampleLocationsfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvARB(target: FramebufferTarget; start: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_FramebufferSampleLocationsfvARB_ovr_0(target, start, count, v[0]) else
       z_FramebufferSampleLocationsfvARB_ovr_0_anh00001(target, start, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvARB(target: FramebufferTarget; start: UInt32; count: Int32; var v: single) :=
     z_FramebufferSampleLocationsfvARB_ovr_0(target, start, count, v);
-    private static procedure z_FramebufferSampleLocationsfvARB_ovr_2(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvARB';
+    private z_FramebufferSampleLocationsfvARB_ovr_2 := GetFuncOrNil&(z_FramebufferSampleLocationsfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvARB(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr) :=
     z_FramebufferSampleLocationsfvARB_ovr_2(target, start, count, v);
     
-    private static procedure z_NamedFramebufferSampleLocationsfvARB_ovr_0(framebuffer: UInt32; start: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvARB';
-    private static procedure z_NamedFramebufferSampleLocationsfvARB_ovr_0_anh00001(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: UInt32; start: UInt32; count: Int32; v: array of single) :=
+    private z_NamedFramebufferSampleLocationsfvARB_adr := GetFuncAdr('glNamedFramebufferSampleLocationsfvARB');
+    private z_NamedFramebufferSampleLocationsfvARB_ovr_0 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvARB_adr);
+    private z_NamedFramebufferSampleLocationsfvARB_ovr_0_anh00001 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_NamedFramebufferSampleLocationsfvARB_ovr_0(framebuffer, start, count, v[0]) else
       z_NamedFramebufferSampleLocationsfvARB_ovr_0_anh00001(framebuffer, start, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: UInt32; start: UInt32; count: Int32; var v: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: gl_framebuffer; start: UInt32; count: Int32; var v: single) :=
     z_NamedFramebufferSampleLocationsfvARB_ovr_0(framebuffer, start, count, v);
-    private static procedure z_NamedFramebufferSampleLocationsfvARB_ovr_2(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr) :=
+    private z_NamedFramebufferSampleLocationsfvARB_ovr_2 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvARB(framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: IntPtr) :=
     z_NamedFramebufferSampleLocationsfvARB_ovr_2(framebuffer, start, count, v);
     
-    private static procedure z_EvaluateDepthValuesARB_ovr_0;
-    external 'opengl32.dll' name 'glEvaluateDepthValuesARB';
+    private z_EvaluateDepthValuesARB_adr := GetFuncAdr('glEvaluateDepthValuesARB');
+    private z_EvaluateDepthValuesARB_ovr_0 := GetFuncOrNil&(z_EvaluateDepthValuesARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvaluateDepthValuesARB :=
     z_EvaluateDepthValuesARB_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glSampleShadingARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSampleShadingARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sample_shading';
     
-    private static procedure z_MinSampleShadingARB_ovr_0(value: single);
-    external 'opengl32.dll' name 'glMinSampleShadingARB';
+    private z_MinSampleShadingARB_adr := GetFuncAdr('glMinSampleShadingARB');
+    private z_MinSampleShadingARB_ovr_0 := GetFuncOrNil&(z_MinSampleShadingARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MinSampleShadingARB(value: single) :=
     z_MinSampleShadingARB_ovr_0(value);
     
   end;
   
   [PCUNotRestore]
-  glSamplerObjectsARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSamplerObjectsARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sampler_objects';
     
-    private static procedure z_GenSamplers_ovr_0(count: Int32; var samplers: UInt32);
-    external 'opengl32.dll' name 'glGenSamplers';
-    private static procedure z_GenSamplers_ovr_0_anh001(count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glGenSamplers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: array of UInt32) :=
+    private z_GenSamplers_adr := GetFuncAdr('glGenSamplers');
+    private z_GenSamplers_ovr_0 := GetFuncOrNil&(z_GenSamplers_adr);
+    private z_GenSamplers_ovr_0_anh001 := GetFuncOrNil&(z_GenSamplers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_GenSamplers_ovr_0(count, samplers[0]) else
       z_GenSamplers_ovr_0_anh001(count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; var samplers: gl_sampler) :=
     z_GenSamplers_ovr_0(count, samplers);
-    private static procedure z_GenSamplers_ovr_2(count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glGenSamplers';
+    private z_GenSamplers_ovr_2 := GetFuncOrNil&(z_GenSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSamplers(count: Int32; samplers: IntPtr) :=
     z_GenSamplers_ovr_2(count, samplers);
     
-    private static procedure z_DeleteSamplers_ovr_0(count: Int32; var samplers: UInt32);
-    external 'opengl32.dll' name 'glDeleteSamplers';
-    private static procedure z_DeleteSamplers_ovr_0_anh001(count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteSamplers';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: array of UInt32) :=
+    private z_DeleteSamplers_adr := GetFuncAdr('glDeleteSamplers');
+    private z_DeleteSamplers_ovr_0 := GetFuncOrNil&(z_DeleteSamplers_adr);
+    private z_DeleteSamplers_ovr_0_anh001 := GetFuncOrNil&(z_DeleteSamplers_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: array of gl_sampler) :=
     if (samplers<>nil) and (samplers.Length<>0) then
       z_DeleteSamplers_ovr_0(count, samplers[0]) else
       z_DeleteSamplers_ovr_0_anh001(count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; var samplers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; var samplers: gl_sampler) :=
     z_DeleteSamplers_ovr_0(count, samplers);
-    private static procedure z_DeleteSamplers_ovr_2(count: Int32; samplers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteSamplers';
+    private z_DeleteSamplers_ovr_2 := GetFuncOrNil&(z_DeleteSamplers_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSamplers(count: Int32; samplers: IntPtr) :=
     z_DeleteSamplers_ovr_2(count, samplers);
     
-    private static function z_IsSampler_ovr_0(sampler: SamplerName): boolean;
-    external 'opengl32.dll' name 'glIsSampler';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSampler(sampler: SamplerName): boolean :=
+    private z_IsSampler_adr := GetFuncAdr('glIsSampler');
+    private z_IsSampler_ovr_0 := GetFuncOrNil&(z_IsSampler_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSampler(sampler: gl_sampler): boolean :=
     z_IsSampler_ovr_0(sampler);
     
-    private static procedure z_BindSampler_ovr_0(&unit: UInt32; sampler: SamplerName);
-    external 'opengl32.dll' name 'glBindSampler';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSampler(&unit: UInt32; sampler: SamplerName) :=
+    private z_BindSampler_adr := GetFuncAdr('glBindSampler');
+    private z_BindSampler_ovr_0 := GetFuncOrNil&(z_BindSampler_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSampler(&unit: UInt32; sampler: gl_sampler) :=
     z_BindSampler_ovr_0(&unit, sampler);
     
-    private static procedure z_SamplerParameteri_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: Int32);
-    external 'opengl32.dll' name 'glSamplerParameteri';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteri(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: Int32) :=
+    private z_SamplerParameteri_adr := GetFuncAdr('glSamplerParameteri');
+    private z_SamplerParameteri_ovr_0 := GetFuncOrNil&(z_SamplerParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteri(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: Int32) :=
     z_SamplerParameteri_ovr_0(sampler, pname, param);
     
-    private static procedure z_SamplerParameteriv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32);
-    external 'opengl32.dll' name 'glSamplerParameteriv';
-    private static procedure z_SamplerParameteriv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
+    private z_SamplerParameteriv_adr := GetFuncAdr('glSamplerParameteriv');
+    private z_SamplerParameteriv_ovr_0 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    private z_SamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameteriv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameteriv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: Int32) :=
     z_SamplerParameteriv_ovr_0(sampler, pname, param);
-    private static procedure z_SamplerParameteriv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameteriv_ovr_2 := GetFuncOrNil&(z_SamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameteriv_ovr_2(sampler, pname, param);
     
-    private static procedure z_SamplerParameterf_ovr_0(sampler: SamplerName; pname: OpenGL.SamplerParameterF; param: single);
-    external 'opengl32.dll' name 'glSamplerParameterf';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterf(sampler: SamplerName; pname: OpenGL.SamplerParameterF; param: single) :=
+    private z_SamplerParameterf_adr := GetFuncAdr('glSamplerParameterf');
+    private z_SamplerParameterf_ovr_0 := GetFuncOrNil&(z_SamplerParameterf_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterf(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: single) :=
     z_SamplerParameterf_ovr_0(sampler, pname, param);
     
-    private static procedure z_SamplerParameterfv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterF; var param: single);
-    external 'opengl32.dll' name 'glSamplerParameterfv';
-    private static procedure z_SamplerParameterfv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: array of single) :=
+    private z_SamplerParameterfv_adr := GetFuncAdr('glSamplerParameterfv');
+    private z_SamplerParameterfv_ovr_0 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    private z_SamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterfv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterfv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; var param: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; var param: single) :=
     z_SamplerParameterfv_ovr_0(sampler, pname, param);
-    private static procedure z_SamplerParameterfv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; param: IntPtr) :=
+    private z_SamplerParameterfv_ovr_2 := GetFuncOrNil&(z_SamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; param: IntPtr) :=
     z_SamplerParameterfv_ovr_2(sampler, pname, param);
     
-    private static procedure z_SamplerParameterIiv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32);
-    external 'opengl32.dll' name 'glSamplerParameterIiv';
-    private static procedure z_SamplerParameterIiv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
+    private z_SamplerParameterIiv_adr := GetFuncAdr('glSamplerParameterIiv');
+    private z_SamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    private z_SamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterIiv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterIiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: Int32) :=
     z_SamplerParameterIiv_ovr_0(sampler, pname, param);
-    private static procedure z_SamplerParameterIiv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameterIiv_ovr_2(sampler, pname, param);
     
-    private static procedure z_SamplerParameterIuiv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: UInt32);
-    external 'opengl32.dll' name 'glSamplerParameterIuiv';
-    private static procedure z_SamplerParameterIuiv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: array of UInt32) :=
+    private z_SamplerParameterIuiv_adr := GetFuncAdr('glSamplerParameterIuiv');
+    private z_SamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    private z_SamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: array of UInt32) :=
     if (param<>nil) and (param.Length<>0) then
       z_SamplerParameterIuiv_ovr_0(sampler, pname, param[0]) else
       z_SamplerParameterIuiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var param: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var param: UInt32) :=
     z_SamplerParameterIuiv_ovr_0(sampler, pname, param);
-    private static procedure z_SamplerParameterIuiv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr);
-    external 'opengl32.dll' name 'glSamplerParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
+    private z_SamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_SamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; param: IntPtr) :=
     z_SamplerParameterIuiv_ovr_2(sampler, pname, param);
     
-    private static procedure z_GetSamplerParameteriv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetSamplerParameteriv';
-    private static procedure z_GetSamplerParameteriv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: array of Int32) :=
+    private z_GetSamplerParameteriv_adr := GetFuncAdr('glGetSamplerParameteriv');
+    private z_GetSamplerParameteriv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    private z_GetSamplerParameteriv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameteriv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameteriv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var ¶ms: Int32) :=
     z_GetSamplerParameteriv_ovr_0(sampler, pname, ¶ms);
-    private static procedure z_GetSamplerParameteriv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameteriv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameteriv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameteriv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameteriv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameteriv_ovr_2(sampler, pname, ¶ms);
     
-    private static procedure z_GetSamplerParameterIiv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetSamplerParameterIiv';
-    private static procedure z_GetSamplerParameterIiv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: array of Int32) :=
+    private z_GetSamplerParameterIiv_adr := GetFuncAdr('glGetSamplerParameterIiv');
+    private z_GetSamplerParameterIiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    private z_GetSamplerParameterIiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterIiv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterIiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var ¶ms: Int32) :=
     z_GetSamplerParameterIiv_ovr_0(sampler, pname, ¶ms);
-    private static procedure z_GetSamplerParameterIiv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterIiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterIiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameterIiv_ovr_2(sampler, pname, ¶ms);
     
-    private static procedure z_GetSamplerParameterfv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterF; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetSamplerParameterfv';
-    private static procedure z_GetSamplerParameterfv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterF; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; ¶ms: array of single) :=
+    private z_GetSamplerParameterfv_adr := GetFuncAdr('glGetSamplerParameterfv');
+    private z_GetSamplerParameterfv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    private z_GetSamplerParameterfv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterfv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterfv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; var ¶ms: single) :=
     z_GetSamplerParameterfv_ovr_0(sampler, pname, ¶ms);
-    private static procedure z_GetSamplerParameterfv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterF; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: UInt32; pname: OpenGL.SamplerParameterF; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterfv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterfv(sampler: gl_sampler; pname: OpenGL.SamplerParameterF; ¶ms: IntPtr) :=
     z_GetSamplerParameterfv_ovr_2(sampler, pname, ¶ms);
     
-    private static procedure z_GetSamplerParameterIuiv_ovr_0(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetSamplerParameterIuiv';
-    private static procedure z_GetSamplerParameterIuiv_ovr_0_anh0001(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: array of UInt32) :=
+    private z_GetSamplerParameterIuiv_adr := GetFuncAdr('glGetSamplerParameterIuiv');
+    private z_GetSamplerParameterIuiv_ovr_0 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    private z_GetSamplerParameterIuiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSamplerParameterIuiv_ovr_0(sampler, pname, ¶ms[0]) else
       z_GetSamplerParameterIuiv_ovr_0_anh0001(sampler, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; var ¶ms: UInt32) :=
     z_GetSamplerParameterIuiv_ovr_0(sampler, pname, ¶ms);
-    private static procedure z_GetSamplerParameterIuiv_ovr_2(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSamplerParameterIuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: UInt32; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
+    private z_GetSamplerParameterIuiv_ovr_2 := GetFuncOrNil&(z_GetSamplerParameterIuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSamplerParameterIuiv(sampler: gl_sampler; pname: OpenGL.SamplerParameterI; ¶ms: IntPtr) :=
     z_GetSamplerParameterIuiv_ovr_2(sampler, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glSeparateShaderObjectsARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSeparateShaderObjectsARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_separate_shader_objects';
     
-    private static procedure z_UseProgramStages_ovr_0(pipeline: ProgramPipelineName; stages: UseProgramStageMask; &program: ProgramName);
-    external 'opengl32.dll' name 'glUseProgramStages';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramStages(pipeline: ProgramPipelineName; stages: UseProgramStageMask; &program: ProgramName) :=
+    private z_UseProgramStages_adr := GetFuncAdr('glUseProgramStages');
+    private z_UseProgramStages_ovr_0 := GetFuncOrNil&(z_UseProgramStages_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramStages(pipeline: gl_program_pipeline; stages: UseProgramStageMask; &program: gl_program) :=
     z_UseProgramStages_ovr_0(pipeline, stages, &program);
     
-    private static procedure z_ActiveShaderProgram_ovr_0(pipeline: ProgramPipelineName; &program: ProgramName);
-    external 'opengl32.dll' name 'glActiveShaderProgram';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveShaderProgram(pipeline: ProgramPipelineName; &program: ProgramName) :=
+    private z_ActiveShaderProgram_adr := GetFuncAdr('glActiveShaderProgram');
+    private z_ActiveShaderProgram_ovr_0 := GetFuncOrNil&(z_ActiveShaderProgram_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveShaderProgram(pipeline: gl_program_pipeline; &program: gl_program) :=
     z_ActiveShaderProgram_ovr_0(pipeline, &program);
     
-    private static function z_CreateShaderProgramv_ovr_0(&type: ShaderType; count: Int32; var strings: IntPtr): ProgramName;
-    external 'opengl32.dll' name 'glCreateShaderProgramv';
-    private static function z_CreateShaderProgramv_ovr_0_anh0001(&type: ShaderType; count: Int32; strings: IntPtr): ProgramName;
-    external 'opengl32.dll' name 'glCreateShaderProgramv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of string): ProgramName;
+    private z_CreateShaderProgramv_adr := GetFuncAdr('glCreateShaderProgramv');
+    private z_CreateShaderProgramv_ovr_0 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    private z_CreateShaderProgramv_ovr_0_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of string): gl_program;
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -42601,774 +43175,692 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static function z_CreateShaderProgramv_ovr_1_anh0001(&type: ShaderType; count: Int32; strings: IntPtr): ProgramName;
-    external 'opengl32.dll' name 'glCreateShaderProgramv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of IntPtr): ProgramName :=
+    private z_CreateShaderProgramv_ovr_1_anh0001 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: array of IntPtr): gl_program :=
     if (strings<>nil) and (strings.Length<>0) then
       z_CreateShaderProgramv_ovr_0(&type, count, strings[0]) else
       z_CreateShaderProgramv_ovr_0_anh0001(&type, count, IntPtr.Zero);
-    private static function z_CreateShaderProgramv_ovr_2(&type: ShaderType; count: Int32; strings: IntPtr): ProgramName;
-    external 'opengl32.dll' name 'glCreateShaderProgramv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: IntPtr): ProgramName :=
+    private z_CreateShaderProgramv_ovr_2 := GetFuncOrNil&(z_CreateShaderProgramv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramv(&type: ShaderType; count: Int32; strings: IntPtr): gl_program :=
     z_CreateShaderProgramv_ovr_2(&type, count, strings);
     
-    private static procedure z_BindProgramPipeline_ovr_0(pipeline: ProgramPipelineName);
-    external 'opengl32.dll' name 'glBindProgramPipeline';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramPipeline(pipeline: ProgramPipelineName) :=
+    private z_BindProgramPipeline_adr := GetFuncAdr('glBindProgramPipeline');
+    private z_BindProgramPipeline_ovr_0 := GetFuncOrNil&(z_BindProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramPipeline(pipeline: gl_program_pipeline) :=
     z_BindProgramPipeline_ovr_0(pipeline);
     
-    private static procedure z_DeleteProgramPipelines_ovr_0(n: Int32; var pipelines: UInt32);
-    external 'opengl32.dll' name 'glDeleteProgramPipelines';
-    private static procedure z_DeleteProgramPipelines_ovr_0_anh001(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramPipelines';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    private z_DeleteProgramPipelines_adr := GetFuncAdr('glDeleteProgramPipelines');
+    private z_DeleteProgramPipelines_ovr_0 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
+    private z_DeleteProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_DeleteProgramPipelines_ovr_0(n, pipelines[0]) else
       z_DeleteProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_DeleteProgramPipelines_ovr_0(n, pipelines);
-    private static procedure z_DeleteProgramPipelines_ovr_2(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramPipelines';
+    private z_DeleteProgramPipelines_ovr_2 := GetFuncOrNil&(z_DeleteProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramPipelines(n: Int32; pipelines: IntPtr) :=
     z_DeleteProgramPipelines_ovr_2(n, pipelines);
     
-    private static procedure z_GenProgramPipelines_ovr_0(n: Int32; var pipelines: UInt32);
-    external 'opengl32.dll' name 'glGenProgramPipelines';
-    private static procedure z_GenProgramPipelines_ovr_0_anh001(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramPipelines';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: array of UInt32) :=
+    private z_GenProgramPipelines_adr := GetFuncAdr('glGenProgramPipelines');
+    private z_GenProgramPipelines_ovr_0 := GetFuncOrNil&(z_GenProgramPipelines_adr);
+    private z_GenProgramPipelines_ovr_0_anh001 := GetFuncOrNil&(z_GenProgramPipelines_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: array of gl_program_pipeline) :=
     if (pipelines<>nil) and (pipelines.Length<>0) then
       z_GenProgramPipelines_ovr_0(n, pipelines[0]) else
       z_GenProgramPipelines_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; var pipelines: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; var pipelines: gl_program_pipeline) :=
     z_GenProgramPipelines_ovr_0(n, pipelines);
-    private static procedure z_GenProgramPipelines_ovr_2(n: Int32; pipelines: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramPipelines';
+    private z_GenProgramPipelines_ovr_2 := GetFuncOrNil&(z_GenProgramPipelines_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramPipelines(n: Int32; pipelines: IntPtr) :=
     z_GenProgramPipelines_ovr_2(n, pipelines);
     
-    private static function z_IsProgramPipeline_ovr_0(pipeline: ProgramPipelineName): boolean;
-    external 'opengl32.dll' name 'glIsProgramPipeline';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramPipeline(pipeline: ProgramPipelineName): boolean :=
+    private z_IsProgramPipeline_adr := GetFuncAdr('glIsProgramPipeline');
+    private z_IsProgramPipeline_ovr_0 := GetFuncOrNil&(z_IsProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramPipeline(pipeline: gl_program_pipeline): boolean :=
     z_IsProgramPipeline_ovr_0(pipeline);
     
-    private static procedure z_GetProgramPipelineiv_ovr_0(pipeline: UInt32; pname: PipelineParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramPipelineiv';
-    private static procedure z_GetProgramPipelineiv_ovr_0_anh0001(pipeline: UInt32; pname: PipelineParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramPipelineiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; ¶ms: array of Int32) :=
+    private z_GetProgramPipelineiv_adr := GetFuncAdr('glGetProgramPipelineiv');
+    private z_GetProgramPipelineiv_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    private z_GetProgramPipelineiv_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramPipelineiv_ovr_0(pipeline, pname, ¶ms[0]) else
       z_GetProgramPipelineiv_ovr_0_anh0001(pipeline, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; var ¶ms: Int32) :=
     z_GetProgramPipelineiv_ovr_0(pipeline, pname, ¶ms);
-    private static procedure z_GetProgramPipelineiv_ovr_2(pipeline: UInt32; pname: PipelineParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramPipelineiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: UInt32; pname: PipelineParameterName; ¶ms: IntPtr) :=
+    private z_GetProgramPipelineiv_ovr_2 := GetFuncOrNil&(z_GetProgramPipelineiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineiv(pipeline: gl_program_pipeline; pname: PipelineParameterName; ¶ms: IntPtr) :=
     z_GetProgramPipelineiv_ovr_2(pipeline, pname, ¶ms);
     
-    private static procedure z_ProgramParameteri_ovr_0(&program: ProgramName; pname: ProgramParameterPName; value: Int32);
-    external 'opengl32.dll' name 'glProgramParameteri';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: ProgramName; pname: ProgramParameterPName; value: Int32) :=
+    private z_ProgramParameteri_adr := GetFuncAdr('glProgramParameteri');
+    private z_ProgramParameteri_ovr_0 := GetFuncOrNil&(z_ProgramParameteri_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteri(&program: gl_program; pname: ProgramParameterPName; value: Int32) :=
     z_ProgramParameteri_ovr_0(&program, pname, value);
     
-    private static procedure z_ProgramUniform1i_ovr_0(&program: ProgramName; location: Int32; v0: Int32);
-    external 'opengl32.dll' name 'glProgramUniform1i';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i(&program: ProgramName; location: Int32; v0: Int32) :=
+    private z_ProgramUniform1i_adr := GetFuncAdr('glProgramUniform1i');
+    private z_ProgramUniform1i_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i(&program: gl_program; location: Int32; v0: Int32) :=
     z_ProgramUniform1i_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform1iv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform1iv';
-    private static procedure z_ProgramUniform1iv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform1iv_adr := GetFuncAdr('glProgramUniform1iv');
+    private z_ProgramUniform1iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    private z_ProgramUniform1iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform1iv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1iv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1iv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1f_ovr_0(&program: ProgramName; location: Int32; v0: single);
-    external 'opengl32.dll' name 'glProgramUniform1f';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1f(&program: ProgramName; location: Int32; v0: single) :=
+    private z_ProgramUniform1f_adr := GetFuncAdr('glProgramUniform1f');
+    private z_ProgramUniform1f_ovr_0 := GetFuncOrNil&(z_ProgramUniform1f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1f(&program: gl_program; location: Int32; v0: single) :=
     z_ProgramUniform1f_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform1fv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform1fv';
-    private static procedure z_ProgramUniform1fv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform1fv_adr := GetFuncAdr('glProgramUniform1fv');
+    private z_ProgramUniform1fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    private z_ProgramUniform1fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform1fv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1fv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1fv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1d_ovr_0(&program: ProgramName; location: Int32; v0: real);
-    external 'opengl32.dll' name 'glProgramUniform1d';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1d(&program: ProgramName; location: Int32; v0: real) :=
+    private z_ProgramUniform1d_adr := GetFuncAdr('glProgramUniform1d');
+    private z_ProgramUniform1d_ovr_0 := GetFuncOrNil&(z_ProgramUniform1d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1d(&program: gl_program; location: Int32; v0: real) :=
     z_ProgramUniform1d_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform1dv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform1dv';
-    private static procedure z_ProgramUniform1dv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform1dv_adr := GetFuncAdr('glProgramUniform1dv');
+    private z_ProgramUniform1dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    private z_ProgramUniform1dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform1dv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1dv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1dv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1ui_ovr_0(&program: ProgramName; location: Int32; v0: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform1ui';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui(&program: ProgramName; location: Int32; v0: UInt32) :=
+    private z_ProgramUniform1ui_adr := GetFuncAdr('glProgramUniform1ui');
+    private z_ProgramUniform1ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui(&program: gl_program; location: Int32; v0: UInt32) :=
     z_ProgramUniform1ui_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform1uiv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform1uiv';
-    private static procedure z_ProgramUniform1uiv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform1uiv_adr := GetFuncAdr('glProgramUniform1uiv');
+    private z_ProgramUniform1uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    private z_ProgramUniform1uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform1uiv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1uiv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform1uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1uiv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2i_ovr_0(&program: ProgramName; location: Int32; v0: Int32; v1: Int32);
-    external 'opengl32.dll' name 'glProgramUniform2i';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32) :=
+    private z_ProgramUniform2i_adr := GetFuncAdr('glProgramUniform2i');
+    private z_ProgramUniform2i_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i(&program: gl_program; location: Int32; v0: Int32; v1: Int32) :=
     z_ProgramUniform2i_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform2iv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform2iv';
-    private static procedure z_ProgramUniform2iv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform2iv_adr := GetFuncAdr('glProgramUniform2iv');
+    private z_ProgramUniform2iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    private z_ProgramUniform2iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform2iv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2iv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2iv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2f_ovr_0(&program: ProgramName; location: Int32; v0: single; v1: single);
-    external 'opengl32.dll' name 'glProgramUniform2f';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2f(&program: ProgramName; location: Int32; v0: single; v1: single) :=
+    private z_ProgramUniform2f_adr := GetFuncAdr('glProgramUniform2f');
+    private z_ProgramUniform2f_ovr_0 := GetFuncOrNil&(z_ProgramUniform2f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2f(&program: gl_program; location: Int32; v0: single; v1: single) :=
     z_ProgramUniform2f_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform2fv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform2fv';
-    private static procedure z_ProgramUniform2fv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform2fv_adr := GetFuncAdr('glProgramUniform2fv');
+    private z_ProgramUniform2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    private z_ProgramUniform2fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform2fv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2fv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2fv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2d_ovr_0(&program: ProgramName; location: Int32; v0: real; v1: real);
-    external 'opengl32.dll' name 'glProgramUniform2d';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2d(&program: ProgramName; location: Int32; v0: real; v1: real) :=
+    private z_ProgramUniform2d_adr := GetFuncAdr('glProgramUniform2d');
+    private z_ProgramUniform2d_ovr_0 := GetFuncOrNil&(z_ProgramUniform2d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2d(&program: gl_program; location: Int32; v0: real; v1: real) :=
     z_ProgramUniform2d_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform2dv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform2dv';
-    private static procedure z_ProgramUniform2dv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform2dv_adr := GetFuncAdr('glProgramUniform2dv');
+    private z_ProgramUniform2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    private z_ProgramUniform2dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform2dv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2dv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2dv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2ui_ovr_0(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform2ui';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32) :=
+    private z_ProgramUniform2ui_adr := GetFuncAdr('glProgramUniform2ui');
+    private z_ProgramUniform2ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32) :=
     z_ProgramUniform2ui_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform2uiv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform2uiv';
-    private static procedure z_ProgramUniform2uiv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform2uiv_adr := GetFuncAdr('glProgramUniform2uiv');
+    private z_ProgramUniform2uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    private z_ProgramUniform2uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform2uiv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2uiv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform2uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2uiv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3i_ovr_0(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32);
-    external 'opengl32.dll' name 'glProgramUniform3i';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
+    private z_ProgramUniform3i_adr := GetFuncAdr('glProgramUniform3i');
+    private z_ProgramUniform3i_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
     z_ProgramUniform3i_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform3iv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform3iv';
-    private static procedure z_ProgramUniform3iv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform3iv_adr := GetFuncAdr('glProgramUniform3iv');
+    private z_ProgramUniform3iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    private z_ProgramUniform3iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform3iv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3iv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3iv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3f_ovr_0(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single);
-    external 'opengl32.dll' name 'glProgramUniform3f';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3f(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single) :=
+    private z_ProgramUniform3f_adr := GetFuncAdr('glProgramUniform3f');
+    private z_ProgramUniform3f_ovr_0 := GetFuncOrNil&(z_ProgramUniform3f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3f(&program: gl_program; location: Int32; v0: single; v1: single; v2: single) :=
     z_ProgramUniform3f_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform3fv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform3fv';
-    private static procedure z_ProgramUniform3fv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform3fv_adr := GetFuncAdr('glProgramUniform3fv');
+    private z_ProgramUniform3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    private z_ProgramUniform3fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform3fv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3fv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3fv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3d_ovr_0(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real);
-    external 'opengl32.dll' name 'glProgramUniform3d';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3d(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real) :=
+    private z_ProgramUniform3d_adr := GetFuncAdr('glProgramUniform3d');
+    private z_ProgramUniform3d_ovr_0 := GetFuncOrNil&(z_ProgramUniform3d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3d(&program: gl_program; location: Int32; v0: real; v1: real; v2: real) :=
     z_ProgramUniform3d_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform3dv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform3dv';
-    private static procedure z_ProgramUniform3dv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform3dv_adr := GetFuncAdr('glProgramUniform3dv');
+    private z_ProgramUniform3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    private z_ProgramUniform3dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform3dv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3dv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3dv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3ui_ovr_0(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform3ui';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
+    private z_ProgramUniform3ui_adr := GetFuncAdr('glProgramUniform3ui');
+    private z_ProgramUniform3ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
     z_ProgramUniform3ui_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform3uiv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform3uiv';
-    private static procedure z_ProgramUniform3uiv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform3uiv_adr := GetFuncAdr('glProgramUniform3uiv');
+    private z_ProgramUniform3uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    private z_ProgramUniform3uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform3uiv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3uiv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform3uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3uiv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4i_ovr_0(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32);
-    external 'opengl32.dll' name 'glProgramUniform4i';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i(&program: ProgramName; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
+    private z_ProgramUniform4i_adr := GetFuncAdr('glProgramUniform4i');
+    private z_ProgramUniform4i_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
     z_ProgramUniform4i_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform4iv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform4iv';
-    private static procedure z_ProgramUniform4iv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform4iv_adr := GetFuncAdr('glProgramUniform4iv');
+    private z_ProgramUniform4iv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    private z_ProgramUniform4iv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4iv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4iv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform4iv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4iv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4iv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4iv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4iv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4iv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4f_ovr_0(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single; v3: single);
-    external 'opengl32.dll' name 'glProgramUniform4f';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4f(&program: ProgramName; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
+    private z_ProgramUniform4f_adr := GetFuncAdr('glProgramUniform4f');
+    private z_ProgramUniform4f_ovr_0 := GetFuncOrNil&(z_ProgramUniform4f_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4f(&program: gl_program; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
     z_ProgramUniform4f_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform4fv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform4fv';
-    private static procedure z_ProgramUniform4fv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform4fv_adr := GetFuncAdr('glProgramUniform4fv');
+    private z_ProgramUniform4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    private z_ProgramUniform4fv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4fv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4fv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform4fv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4fv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4fv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4d_ovr_0(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real; v3: real);
-    external 'opengl32.dll' name 'glProgramUniform4d';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4d(&program: ProgramName; location: Int32; v0: real; v1: real; v2: real; v3: real) :=
+    private z_ProgramUniform4d_adr := GetFuncAdr('glProgramUniform4d');
+    private z_ProgramUniform4d_ovr_0 := GetFuncOrNil&(z_ProgramUniform4d_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4d(&program: gl_program; location: Int32; v0: real; v1: real; v2: real; v3: real) :=
     z_ProgramUniform4d_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform4dv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform4dv';
-    private static procedure z_ProgramUniform4dv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform4dv_adr := GetFuncAdr('glProgramUniform4dv');
+    private z_ProgramUniform4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    private z_ProgramUniform4dv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4dv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4dv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform4dv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4dv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4dv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4ui_ovr_0(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform4ui';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui(&program: ProgramName; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
+    private z_ProgramUniform4ui_adr := GetFuncAdr('glProgramUniform4ui');
+    private z_ProgramUniform4ui_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
     z_ProgramUniform4ui_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform4uiv_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform4uiv';
-    private static procedure z_ProgramUniform4uiv_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform4uiv_adr := GetFuncAdr('glProgramUniform4uiv');
+    private z_ProgramUniform4uiv_ovr_0 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    private z_ProgramUniform4uiv_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4uiv_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4uiv_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform4uiv_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4uiv_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4uiv_ovr_2 := GetFuncOrNil&(z_ProgramUniform4uiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiv(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4uiv_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniformMatrix2fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fv';
-    private static procedure z_ProgramUniformMatrix2fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2fv_adr := GetFuncAdr('glProgramUniformMatrix2fv');
+    private z_ProgramUniformMatrix2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    private z_ProgramUniformMatrix2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fv';
-    private static procedure z_ProgramUniformMatrix3fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3fv_adr := GetFuncAdr('glProgramUniformMatrix3fv');
+    private z_ProgramUniformMatrix3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    private z_ProgramUniformMatrix3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fv';
-    private static procedure z_ProgramUniformMatrix4fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4fv_adr := GetFuncAdr('glProgramUniformMatrix4fv');
+    private z_ProgramUniformMatrix4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    private z_ProgramUniformMatrix4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dv';
-    private static procedure z_ProgramUniformMatrix2dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2dv_adr := GetFuncAdr('glProgramUniformMatrix2dv');
+    private z_ProgramUniformMatrix2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    private z_ProgramUniformMatrix2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dv';
-    private static procedure z_ProgramUniformMatrix3dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3dv_adr := GetFuncAdr('glProgramUniformMatrix3dv');
+    private z_ProgramUniformMatrix3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    private z_ProgramUniformMatrix3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dv';
-    private static procedure z_ProgramUniformMatrix4dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4dv_adr := GetFuncAdr('glProgramUniformMatrix4dv');
+    private z_ProgramUniformMatrix4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    private z_ProgramUniformMatrix4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x3fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fv';
-    private static procedure z_ProgramUniformMatrix2x3fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x3fv_adr := GetFuncAdr('glProgramUniformMatrix2x3fv');
+    private z_ProgramUniformMatrix2x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    private z_ProgramUniformMatrix2x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x3fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x3fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x2fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fv';
-    private static procedure z_ProgramUniformMatrix3x2fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x2fv_adr := GetFuncAdr('glProgramUniformMatrix3x2fv');
+    private z_ProgramUniformMatrix3x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    private z_ProgramUniformMatrix3x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x2fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x2fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x4fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fv';
-    private static procedure z_ProgramUniformMatrix2x4fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x4fv_adr := GetFuncAdr('glProgramUniformMatrix2x4fv');
+    private z_ProgramUniformMatrix2x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    private z_ProgramUniformMatrix2x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x4fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x4fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x2fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fv';
-    private static procedure z_ProgramUniformMatrix4x2fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x2fv_adr := GetFuncAdr('glProgramUniformMatrix4x2fv');
+    private z_ProgramUniformMatrix4x2fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    private z_ProgramUniformMatrix4x2fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x2fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x2fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x4fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fv';
-    private static procedure z_ProgramUniformMatrix3x4fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x4fv_adr := GetFuncAdr('glProgramUniformMatrix3x4fv');
+    private z_ProgramUniformMatrix3x4fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    private z_ProgramUniformMatrix3x4fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x4fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x4fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x3fv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fv';
-    private static procedure z_ProgramUniformMatrix4x3fv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x3fv_adr := GetFuncAdr('glProgramUniformMatrix4x3fv');
+    private z_ProgramUniformMatrix4x3fv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    private z_ProgramUniformMatrix4x3fv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3fv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3fv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x3fv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x3fv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3fv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3fv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x3dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dv';
-    private static procedure z_ProgramUniformMatrix2x3dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x3dv_adr := GetFuncAdr('glProgramUniformMatrix2x3dv');
+    private z_ProgramUniformMatrix2x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    private z_ProgramUniformMatrix2x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x3dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x3dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x2dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dv';
-    private static procedure z_ProgramUniformMatrix3x2dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x2dv_adr := GetFuncAdr('glProgramUniformMatrix3x2dv');
+    private z_ProgramUniformMatrix3x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    private z_ProgramUniformMatrix3x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x2dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x2dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x4dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dv';
-    private static procedure z_ProgramUniformMatrix2x4dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x4dv_adr := GetFuncAdr('glProgramUniformMatrix2x4dv');
+    private z_ProgramUniformMatrix2x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    private z_ProgramUniformMatrix2x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x4dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x4dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x2dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dv';
-    private static procedure z_ProgramUniformMatrix4x2dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x2dv_adr := GetFuncAdr('glProgramUniformMatrix4x2dv');
+    private z_ProgramUniformMatrix4x2dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    private z_ProgramUniformMatrix4x2dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x2dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x2dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x4dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dv';
-    private static procedure z_ProgramUniformMatrix3x4dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x4dv_adr := GetFuncAdr('glProgramUniformMatrix3x4dv');
+    private z_ProgramUniformMatrix3x4dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    private z_ProgramUniformMatrix3x4dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x4dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x4dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x3dv_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dv';
-    private static procedure z_ProgramUniformMatrix4x3dv_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x3dv_adr := GetFuncAdr('glProgramUniformMatrix4x3dv');
+    private z_ProgramUniformMatrix4x3dv_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    private z_ProgramUniformMatrix4x3dv_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3dv_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3dv_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x3dv_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x3dv_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3dv_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dv(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3dv_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ValidateProgramPipeline_ovr_0(pipeline: ProgramPipelineName);
-    external 'opengl32.dll' name 'glValidateProgramPipeline';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramPipeline(pipeline: ProgramPipelineName) :=
+    private z_ValidateProgramPipeline_adr := GetFuncAdr('glValidateProgramPipeline');
+    private z_ValidateProgramPipeline_ovr_0 := GetFuncOrNil&(z_ValidateProgramPipeline_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramPipeline(pipeline: gl_program_pipeline) :=
     z_ValidateProgramPipeline_ovr_0(pipeline);
     
-    private static procedure z_GetProgramPipelineInfoLog_ovr_0(pipeline: UInt32; bufSize: Int32; var length: Int32; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramPipelineInfoLog';
-    private static procedure z_GetProgramPipelineInfoLog_ovr_0_anh00010(pipeline: UInt32; bufSize: Int32; length: IntPtr; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramPipelineInfoLog';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; length: array of Int32; infoLog: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramPipelineInfoLog_ovr_0(pipeline, bufSize, length[0], infoLog) else
-      z_GetProgramPipelineInfoLog_ovr_0_anh00010(pipeline, bufSize, IntPtr.Zero, infoLog);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
+    private z_GetProgramPipelineInfoLog_adr := GetFuncAdr('glGetProgramPipelineInfoLog');
+    private z_GetProgramPipelineInfoLog_ovr_0 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: gl_program_pipeline; bufSize: Int32; var length: Int32; infoLog: IntPtr) :=
     z_GetProgramPipelineInfoLog_ovr_0(pipeline, bufSize, length, infoLog);
-    private static procedure z_GetProgramPipelineInfoLog_ovr_2(pipeline: UInt32; bufSize: Int32; length: IntPtr; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramPipelineInfoLog';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: UInt32; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
-    z_GetProgramPipelineInfoLog_ovr_2(pipeline, bufSize, length, infoLog);
+    private z_GetProgramPipelineInfoLog_ovr_1 := GetFuncOrNil&(z_GetProgramPipelineInfoLog_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramPipelineInfoLog(pipeline: gl_program_pipeline; bufSize: Int32; length: IntPtr; infoLog: IntPtr) :=
+    z_GetProgramPipelineInfoLog_ovr_1(pipeline, bufSize, length, infoLog);
     
   end;
   
   [PCUNotRestore]
-  glShaderAtomicCountersARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderAtomicCountersARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shader_atomic_counters';
     
-    private static procedure z_GetActiveAtomicCounterBufferiv_ovr_0(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveAtomicCounterBufferiv';
-    private static procedure z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAtomicCounterBufferiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: array of Int32) :=
+    private z_GetActiveAtomicCounterBufferiv_adr := GetFuncAdr('glGetActiveAtomicCounterBufferiv');
+    private z_GetActiveAtomicCounterBufferiv_ovr_0 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    private z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveAtomicCounterBufferiv_ovr_0(&program, bufferIndex, pname, ¶ms[0]) else
       z_GetActiveAtomicCounterBufferiv_ovr_0_anh00001(&program, bufferIndex, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; var ¶ms: Int32) :=
     z_GetActiveAtomicCounterBufferiv_ovr_0(&program, bufferIndex, pname, ¶ms);
-    private static procedure z_GetActiveAtomicCounterBufferiv_ovr_2(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAtomicCounterBufferiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: UInt32; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr) :=
+    private z_GetActiveAtomicCounterBufferiv_ovr_2 := GetFuncOrNil&(z_GetActiveAtomicCounterBufferiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAtomicCounterBufferiv(&program: gl_program; bufferIndex: UInt32; pname: AtomicCounterBufferPName; ¶ms: IntPtr) :=
     z_GetActiveAtomicCounterBufferiv_ovr_2(&program, bufferIndex, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glShaderImageLoadStoreARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderImageLoadStoreARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shader_image_load_store';
     
-    private static procedure z_BindImageTexture_ovr_0(&unit: UInt32; texture: TextureName; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: InternalFormat);
-    external 'opengl32.dll' name 'glBindImageTexture';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTexture(&unit: UInt32; texture: TextureName; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: InternalFormat) :=
+    private z_BindImageTexture_adr := GetFuncAdr('glBindImageTexture');
+    private z_BindImageTexture_ovr_0 := GetFuncOrNil&(z_BindImageTexture_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTexture(&unit: UInt32; texture: gl_texture; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: InternalFormat) :=
     z_BindImageTexture_ovr_0(&unit, texture, level, layered, layer, access, format);
     
-    private static procedure z_MemoryBarrier_ovr_0(barriers: MemoryBarrierMask);
-    external 'opengl32.dll' name 'glMemoryBarrier';
+    private z_MemoryBarrier_adr := GetFuncAdr('glMemoryBarrier');
+    private z_MemoryBarrier_ovr_0 := GetFuncOrNil&(z_MemoryBarrier_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryBarrier(barriers: MemoryBarrierMask) :=
     z_MemoryBarrier_ovr_0(barriers);
     
   end;
   
   [PCUNotRestore]
-  glShaderObjectsARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderObjectsARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shader_objects';
     
-    private static procedure z_DeleteObjectARB_ovr_0(obj: GLhandleARB);
-    external 'opengl32.dll' name 'glDeleteObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteObjectARB(obj: GLhandleARB) :=
+    private z_DeleteObjectARB_adr := GetFuncAdr('glDeleteObjectARB');
+    private z_DeleteObjectARB_ovr_0 := GetFuncOrNil&(z_DeleteObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteObjectARB(obj: gl_handle_ARB) :=
     z_DeleteObjectARB_ovr_0(obj);
     
-    private static function z_GetHandleARB_ovr_0(pname: DummyEnum): GLhandleARB;
-    external 'opengl32.dll' name 'glGetHandleARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetHandleARB(pname: DummyEnum): GLhandleARB :=
+    private z_GetHandleARB_adr := GetFuncAdr('glGetHandleARB');
+    private z_GetHandleARB_ovr_0 := GetFuncOrNil&(z_GetHandleARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetHandleARB(pname: DummyEnum): gl_handle_ARB :=
     z_GetHandleARB_ovr_0(pname);
     
-    private static procedure z_DetachObjectARB_ovr_0(containerObj: GLhandleARB; attachedObj: GLhandleARB);
-    external 'opengl32.dll' name 'glDetachObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetachObjectARB(containerObj: GLhandleARB; attachedObj: GLhandleARB) :=
+    private z_DetachObjectARB_adr := GetFuncAdr('glDetachObjectARB');
+    private z_DetachObjectARB_ovr_0 := GetFuncOrNil&(z_DetachObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetachObjectARB(containerObj: gl_handle_ARB; attachedObj: gl_handle_ARB) :=
     z_DetachObjectARB_ovr_0(containerObj, attachedObj);
     
-    private static function z_CreateShaderObjectARB_ovr_0(_shaderType: ShaderType): GLhandleARB;
-    external 'opengl32.dll' name 'glCreateShaderObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderObjectARB(_shaderType: ShaderType): GLhandleARB :=
+    private z_CreateShaderObjectARB_adr := GetFuncAdr('glCreateShaderObjectARB');
+    private z_CreateShaderObjectARB_ovr_0 := GetFuncOrNil&(z_CreateShaderObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderObjectARB(_shaderType: ShaderType): gl_handle_ARB :=
     z_CreateShaderObjectARB_ovr_0(_shaderType);
     
-    private static procedure z_ShaderSourceARB_ovr_0(shaderObj: GLhandleARB; count: Int32; var _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_0_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_0_anh00001(shaderObj: GLhandleARB; count: Int32; var _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_0_anh00011(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of string; length: array of Int32);
+    private z_ShaderSourceARB_adr := GetFuncAdr('glShaderSourceARB');
+    private z_ShaderSourceARB_ovr_0 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_0_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_0_anh00001 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_0_anh00011 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of string; length: array of Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -43384,9 +43876,8 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_ShaderSourceARB_ovr_1_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of string; var length: Int32);
+    private z_ShaderSourceARB_ovr_1_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of string; var length: Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -43398,11 +43889,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_ShaderSourceARB_ovr_2(shaderObj: GLhandleARB; count: Int32; var _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_2_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of string; length: IntPtr);
+    private z_ShaderSourceARB_ovr_2 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_2_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of string; length: IntPtr);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -43414,11 +43903,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_ShaderSourceARB_ovr_3_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_3_anh00011(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of IntPtr; length: array of Int32) :=
+    private z_ShaderSourceARB_ovr_3_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_3_anh00011 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of IntPtr; length: array of Int32) :=
     if (_string<>nil) and (_string.Length<>0) then
       if (length<>nil) and (length.Length<>0) then
         z_ShaderSourceARB_ovr_0(shaderObj, count, _string[0], length[0]) else
@@ -43426,369 +43913,302 @@ type
       if (length<>nil) and (length.Length<>0) then
         z_ShaderSourceARB_ovr_0_anh00010(shaderObj, count, IntPtr.Zero, length[0]) else
         z_ShaderSourceARB_ovr_0_anh00011(shaderObj, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_ShaderSourceARB_ovr_4_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of IntPtr; var length: Int32) :=
+    private z_ShaderSourceARB_ovr_4_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of IntPtr; var length: Int32) :=
     if (_string<>nil) and (_string.Length<>0) then
       z_ShaderSourceARB_ovr_0(shaderObj, count, _string[0], length) else
       z_ShaderSourceARB_ovr_0_anh00010(shaderObj, count, IntPtr.Zero, length);
-    private static procedure z_ShaderSourceARB_ovr_5_anh00010(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: array of IntPtr; length: IntPtr) :=
+    private z_ShaderSourceARB_ovr_5_anh00010 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: array of IntPtr; length: IntPtr) :=
     if (_string<>nil) and (_string.Length<>0) then
       z_ShaderSourceARB_ovr_2(shaderObj, count, _string[0], length) else
       z_ShaderSourceARB_ovr_2_anh00010(shaderObj, count, IntPtr.Zero, length);
-    private static procedure z_ShaderSourceARB_ovr_6(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    private static procedure z_ShaderSourceARB_ovr_6_anh00001(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: array of Int32) :=
+    private z_ShaderSourceARB_ovr_6 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    private z_ShaderSourceARB_ovr_6_anh00001 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: IntPtr; length: array of Int32) :=
     if (length<>nil) and (length.Length<>0) then
       z_ShaderSourceARB_ovr_6(shaderObj, count, _string, length[0]) else
       z_ShaderSourceARB_ovr_6_anh00001(shaderObj, count, _string, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; var length: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: IntPtr; var length: Int32) :=
     z_ShaderSourceARB_ovr_6(shaderObj, count, _string, length);
-    private static procedure z_ShaderSourceARB_ovr_8(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: GLhandleARB; count: Int32; _string: IntPtr; length: IntPtr) :=
+    private z_ShaderSourceARB_ovr_8 := GetFuncOrNil&(z_ShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderSourceARB(shaderObj: gl_handle_ARB; count: Int32; _string: IntPtr; length: IntPtr) :=
     z_ShaderSourceARB_ovr_8(shaderObj, count, _string, length);
     
-    private static procedure z_CompileShaderARB_ovr_0(shaderObj: GLhandleARB);
-    external 'opengl32.dll' name 'glCompileShaderARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderARB(shaderObj: GLhandleARB) :=
+    private z_CompileShaderARB_adr := GetFuncAdr('glCompileShaderARB');
+    private z_CompileShaderARB_ovr_0 := GetFuncOrNil&(z_CompileShaderARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderARB(shaderObj: gl_handle_ARB) :=
     z_CompileShaderARB_ovr_0(shaderObj);
     
-    private static function z_CreateProgramObjectARB_ovr_0: GLhandleARB;
-    external 'opengl32.dll' name 'glCreateProgramObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateProgramObjectARB: GLhandleARB :=
+    private z_CreateProgramObjectARB_adr := GetFuncAdr('glCreateProgramObjectARB');
+    private z_CreateProgramObjectARB_ovr_0 := GetFuncOrNil&(z_CreateProgramObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateProgramObjectARB: gl_handle_ARB :=
     z_CreateProgramObjectARB_ovr_0;
     
-    private static procedure z_AttachObjectARB_ovr_0(containerObj: GLhandleARB; obj: GLhandleARB);
-    external 'opengl32.dll' name 'glAttachObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AttachObjectARB(containerObj: GLhandleARB; obj: GLhandleARB) :=
+    private z_AttachObjectARB_adr := GetFuncAdr('glAttachObjectARB');
+    private z_AttachObjectARB_ovr_0 := GetFuncOrNil&(z_AttachObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AttachObjectARB(containerObj: gl_handle_ARB; obj: gl_handle_ARB) :=
     z_AttachObjectARB_ovr_0(containerObj, obj);
     
-    private static procedure z_LinkProgramARB_ovr_0(programObj: GLhandleARB);
-    external 'opengl32.dll' name 'glLinkProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LinkProgramARB(programObj: GLhandleARB) :=
+    private z_LinkProgramARB_adr := GetFuncAdr('glLinkProgramARB');
+    private z_LinkProgramARB_ovr_0 := GetFuncOrNil&(z_LinkProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LinkProgramARB(programObj: gl_handle_ARB) :=
     z_LinkProgramARB_ovr_0(programObj);
     
-    private static procedure z_UseProgramObjectARB_ovr_0(programObj: GLhandleARB);
-    external 'opengl32.dll' name 'glUseProgramObjectARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramObjectARB(programObj: GLhandleARB) :=
+    private z_UseProgramObjectARB_adr := GetFuncAdr('glUseProgramObjectARB');
+    private z_UseProgramObjectARB_ovr_0 := GetFuncOrNil&(z_UseProgramObjectARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseProgramObjectARB(programObj: gl_handle_ARB) :=
     z_UseProgramObjectARB_ovr_0(programObj);
     
-    private static procedure z_ValidateProgramARB_ovr_0(programObj: GLhandleARB);
-    external 'opengl32.dll' name 'glValidateProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramARB(programObj: GLhandleARB) :=
+    private z_ValidateProgramARB_adr := GetFuncAdr('glValidateProgramARB');
+    private z_ValidateProgramARB_ovr_0 := GetFuncOrNil&(z_ValidateProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ValidateProgramARB(programObj: gl_handle_ARB) :=
     z_ValidateProgramARB_ovr_0(programObj);
     
-    private static procedure z_Uniform1fARB_ovr_0(location: Int32; v0: single);
-    external 'opengl32.dll' name 'glUniform1fARB';
+    private z_Uniform1fARB_adr := GetFuncAdr('glUniform1fARB');
+    private z_Uniform1fARB_ovr_0 := GetFuncOrNil&(z_Uniform1fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1fARB(location: Int32; v0: single) :=
     z_Uniform1fARB_ovr_0(location, v0);
     
-    private static procedure z_Uniform2fARB_ovr_0(location: Int32; v0: single; v1: single);
-    external 'opengl32.dll' name 'glUniform2fARB';
+    private z_Uniform2fARB_adr := GetFuncAdr('glUniform2fARB');
+    private z_Uniform2fARB_ovr_0 := GetFuncOrNil&(z_Uniform2fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2fARB(location: Int32; v0: single; v1: single) :=
     z_Uniform2fARB_ovr_0(location, v0, v1);
     
-    private static procedure z_Uniform3fARB_ovr_0(location: Int32; v0: single; v1: single; v2: single);
-    external 'opengl32.dll' name 'glUniform3fARB';
+    private z_Uniform3fARB_adr := GetFuncAdr('glUniform3fARB');
+    private z_Uniform3fARB_ovr_0 := GetFuncOrNil&(z_Uniform3fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3fARB(location: Int32; v0: single; v1: single; v2: single) :=
     z_Uniform3fARB_ovr_0(location, v0, v1, v2);
     
-    private static procedure z_Uniform4fARB_ovr_0(location: Int32; v0: single; v1: single; v2: single; v3: single);
-    external 'opengl32.dll' name 'glUniform4fARB';
+    private z_Uniform4fARB_adr := GetFuncAdr('glUniform4fARB');
+    private z_Uniform4fARB_ovr_0 := GetFuncOrNil&(z_Uniform4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4fARB(location: Int32; v0: single; v1: single; v2: single; v3: single) :=
     z_Uniform4fARB_ovr_0(location, v0, v1, v2, v3);
     
-    private static procedure z_Uniform1iARB_ovr_0(location: Int32; v0: Int32);
-    external 'opengl32.dll' name 'glUniform1iARB';
+    private z_Uniform1iARB_adr := GetFuncAdr('glUniform1iARB');
+    private z_Uniform1iARB_ovr_0 := GetFuncOrNil&(z_Uniform1iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1iARB(location: Int32; v0: Int32) :=
     z_Uniform1iARB_ovr_0(location, v0);
     
-    private static procedure z_Uniform2iARB_ovr_0(location: Int32; v0: Int32; v1: Int32);
-    external 'opengl32.dll' name 'glUniform2iARB';
+    private z_Uniform2iARB_adr := GetFuncAdr('glUniform2iARB');
+    private z_Uniform2iARB_ovr_0 := GetFuncOrNil&(z_Uniform2iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2iARB(location: Int32; v0: Int32; v1: Int32) :=
     z_Uniform2iARB_ovr_0(location, v0, v1);
     
-    private static procedure z_Uniform3iARB_ovr_0(location: Int32; v0: Int32; v1: Int32; v2: Int32);
-    external 'opengl32.dll' name 'glUniform3iARB';
+    private z_Uniform3iARB_adr := GetFuncAdr('glUniform3iARB');
+    private z_Uniform3iARB_ovr_0 := GetFuncOrNil&(z_Uniform3iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3iARB(location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
     z_Uniform3iARB_ovr_0(location, v0, v1, v2);
     
-    private static procedure z_Uniform4iARB_ovr_0(location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32);
-    external 'opengl32.dll' name 'glUniform4iARB';
+    private z_Uniform4iARB_adr := GetFuncAdr('glUniform4iARB');
+    private z_Uniform4iARB_ovr_0 := GetFuncOrNil&(z_Uniform4iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4iARB(location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
     z_Uniform4iARB_ovr_0(location, v0, v1, v2, v3);
     
-    private static procedure z_Uniform1fvARB_ovr_0(location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glUniform1fvARB';
-    private static procedure z_Uniform1fvARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1fvARB';
+    private z_Uniform1fvARB_adr := GetFuncAdr('glUniform1fvARB');
+    private z_Uniform1fvARB_ovr_0 := GetFuncOrNil&(z_Uniform1fvARB_adr);
+    private z_Uniform1fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1fvARB(location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1fvARB_ovr_0(location, count, value[0]) else
       z_Uniform1fvARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1fvARB(location: Int32; count: Int32; var value: single) :=
     z_Uniform1fvARB_ovr_0(location, count, value);
-    private static procedure z_Uniform1fvARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1fvARB';
+    private z_Uniform1fvARB_ovr_2 := GetFuncOrNil&(z_Uniform1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1fvARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1fvARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2fvARB_ovr_0(location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glUniform2fvARB';
-    private static procedure z_Uniform2fvARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2fvARB';
+    private z_Uniform2fvARB_adr := GetFuncAdr('glUniform2fvARB');
+    private z_Uniform2fvARB_ovr_0 := GetFuncOrNil&(z_Uniform2fvARB_adr);
+    private z_Uniform2fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2fvARB(location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2fvARB_ovr_0(location, count, value[0]) else
       z_Uniform2fvARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2fvARB(location: Int32; count: Int32; var value: single) :=
     z_Uniform2fvARB_ovr_0(location, count, value);
-    private static procedure z_Uniform2fvARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2fvARB';
+    private z_Uniform2fvARB_ovr_2 := GetFuncOrNil&(z_Uniform2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2fvARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2fvARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3fvARB_ovr_0(location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glUniform3fvARB';
-    private static procedure z_Uniform3fvARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3fvARB';
+    private z_Uniform3fvARB_adr := GetFuncAdr('glUniform3fvARB');
+    private z_Uniform3fvARB_ovr_0 := GetFuncOrNil&(z_Uniform3fvARB_adr);
+    private z_Uniform3fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3fvARB(location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3fvARB_ovr_0(location, count, value[0]) else
       z_Uniform3fvARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3fvARB(location: Int32; count: Int32; var value: single) :=
     z_Uniform3fvARB_ovr_0(location, count, value);
-    private static procedure z_Uniform3fvARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3fvARB';
+    private z_Uniform3fvARB_ovr_2 := GetFuncOrNil&(z_Uniform3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3fvARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3fvARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4fvARB_ovr_0(location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glUniform4fvARB';
-    private static procedure z_Uniform4fvARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4fvARB';
+    private z_Uniform4fvARB_adr := GetFuncAdr('glUniform4fvARB');
+    private z_Uniform4fvARB_ovr_0 := GetFuncOrNil&(z_Uniform4fvARB_adr);
+    private z_Uniform4fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4fvARB(location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4fvARB_ovr_0(location, count, value[0]) else
       z_Uniform4fvARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4fvARB(location: Int32; count: Int32; var value: single) :=
     z_Uniform4fvARB_ovr_0(location, count, value);
-    private static procedure z_Uniform4fvARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4fvARB';
+    private z_Uniform4fvARB_ovr_2 := GetFuncOrNil&(z_Uniform4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4fvARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4fvARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform1ivARB_ovr_0(location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glUniform1ivARB';
-    private static procedure z_Uniform1ivARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ivARB';
+    private z_Uniform1ivARB_adr := GetFuncAdr('glUniform1ivARB');
+    private z_Uniform1ivARB_ovr_0 := GetFuncOrNil&(z_Uniform1ivARB_adr);
+    private z_Uniform1ivARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ivARB(location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1ivARB_ovr_0(location, count, value[0]) else
       z_Uniform1ivARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ivARB(location: Int32; count: Int32; var value: Int32) :=
     z_Uniform1ivARB_ovr_0(location, count, value);
-    private static procedure z_Uniform1ivARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ivARB';
+    private z_Uniform1ivARB_ovr_2 := GetFuncOrNil&(z_Uniform1ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ivARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1ivARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2ivARB_ovr_0(location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glUniform2ivARB';
-    private static procedure z_Uniform2ivARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ivARB';
+    private z_Uniform2ivARB_adr := GetFuncAdr('glUniform2ivARB');
+    private z_Uniform2ivARB_ovr_0 := GetFuncOrNil&(z_Uniform2ivARB_adr);
+    private z_Uniform2ivARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ivARB(location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2ivARB_ovr_0(location, count, value[0]) else
       z_Uniform2ivARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ivARB(location: Int32; count: Int32; var value: Int32) :=
     z_Uniform2ivARB_ovr_0(location, count, value);
-    private static procedure z_Uniform2ivARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ivARB';
+    private z_Uniform2ivARB_ovr_2 := GetFuncOrNil&(z_Uniform2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ivARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2ivARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3ivARB_ovr_0(location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glUniform3ivARB';
-    private static procedure z_Uniform3ivARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ivARB';
+    private z_Uniform3ivARB_adr := GetFuncAdr('glUniform3ivARB');
+    private z_Uniform3ivARB_ovr_0 := GetFuncOrNil&(z_Uniform3ivARB_adr);
+    private z_Uniform3ivARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ivARB(location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3ivARB_ovr_0(location, count, value[0]) else
       z_Uniform3ivARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ivARB(location: Int32; count: Int32; var value: Int32) :=
     z_Uniform3ivARB_ovr_0(location, count, value);
-    private static procedure z_Uniform3ivARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ivARB';
+    private z_Uniform3ivARB_ovr_2 := GetFuncOrNil&(z_Uniform3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ivARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3ivARB_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4ivARB_ovr_0(location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glUniform4ivARB';
-    private static procedure z_Uniform4ivARB_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ivARB';
+    private z_Uniform4ivARB_adr := GetFuncAdr('glUniform4ivARB');
+    private z_Uniform4ivARB_ovr_0 := GetFuncOrNil&(z_Uniform4ivARB_adr);
+    private z_Uniform4ivARB_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ivARB(location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4ivARB_ovr_0(location, count, value[0]) else
       z_Uniform4ivARB_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ivARB(location: Int32; count: Int32; var value: Int32) :=
     z_Uniform4ivARB_ovr_0(location, count, value);
-    private static procedure z_Uniform4ivARB_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ivARB';
+    private z_Uniform4ivARB_ovr_2 := GetFuncOrNil&(z_Uniform4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ivARB(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4ivARB_ovr_2(location, count, value);
     
-    private static procedure z_UniformMatrix2fvARB_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glUniformMatrix2fvARB';
-    private static procedure z_UniformMatrix2fvARB_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2fvARB';
+    private z_UniformMatrix2fvARB_adr := GetFuncAdr('glUniformMatrix2fvARB');
+    private z_UniformMatrix2fvARB_ovr_0 := GetFuncOrNil&(z_UniformMatrix2fvARB_adr);
+    private z_UniformMatrix2fvARB_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2fvARB(location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix2fvARB_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix2fvARB_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2fvARB(location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_UniformMatrix2fvARB_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix2fvARB_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix2fvARB';
+    private z_UniformMatrix2fvARB_ovr_2 := GetFuncOrNil&(z_UniformMatrix2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix2fvARB(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix2fvARB_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix3fvARB_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glUniformMatrix3fvARB';
-    private static procedure z_UniformMatrix3fvARB_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3fvARB';
+    private z_UniformMatrix3fvARB_adr := GetFuncAdr('glUniformMatrix3fvARB');
+    private z_UniformMatrix3fvARB_ovr_0 := GetFuncOrNil&(z_UniformMatrix3fvARB_adr);
+    private z_UniformMatrix3fvARB_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3fvARB(location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix3fvARB_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix3fvARB_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3fvARB(location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_UniformMatrix3fvARB_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix3fvARB_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix3fvARB';
+    private z_UniformMatrix3fvARB_ovr_2 := GetFuncOrNil&(z_UniformMatrix3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix3fvARB(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix3fvARB_ovr_2(location, count, transpose, value);
     
-    private static procedure z_UniformMatrix4fvARB_ovr_0(location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glUniformMatrix4fvARB';
-    private static procedure z_UniformMatrix4fvARB_ovr_0_anh00001(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4fvARB';
+    private z_UniformMatrix4fvARB_adr := GetFuncAdr('glUniformMatrix4fvARB');
+    private z_UniformMatrix4fvARB_ovr_0 := GetFuncOrNil&(z_UniformMatrix4fvARB_adr);
+    private z_UniformMatrix4fvARB_ovr_0_anh00001 := GetFuncOrNil&(z_UniformMatrix4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4fvARB(location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformMatrix4fvARB_ovr_0(location, count, transpose, value[0]) else
       z_UniformMatrix4fvARB_ovr_0_anh00001(location, count, transpose, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4fvARB(location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_UniformMatrix4fvARB_ovr_0(location, count, transpose, value);
-    private static procedure z_UniformMatrix4fvARB_ovr_2(location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformMatrix4fvARB';
+    private z_UniformMatrix4fvARB_ovr_2 := GetFuncOrNil&(z_UniformMatrix4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformMatrix4fvARB(location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_UniformMatrix4fvARB_ovr_2(location, count, transpose, value);
     
-    private static procedure z_GetObjectParameterfvARB_ovr_0(obj: GLhandleARB; pname: DummyEnum; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetObjectParameterfvARB';
-    private static procedure z_GetObjectParameterfvARB_ovr_0_anh0001(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: GLhandleARB; pname: DummyEnum; ¶ms: array of single) :=
+    private z_GetObjectParameterfvARB_adr := GetFuncAdr('glGetObjectParameterfvARB');
+    private z_GetObjectParameterfvARB_ovr_0 := GetFuncOrNil&(z_GetObjectParameterfvARB_adr);
+    private z_GetObjectParameterfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetObjectParameterfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: gl_handle_ARB; pname: DummyEnum; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetObjectParameterfvARB_ovr_0(obj, pname, ¶ms[0]) else
       z_GetObjectParameterfvARB_ovr_0_anh0001(obj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: GLhandleARB; pname: DummyEnum; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: gl_handle_ARB; pname: DummyEnum; var ¶ms: single) :=
     z_GetObjectParameterfvARB_ovr_0(obj, pname, ¶ms);
-    private static procedure z_GetObjectParameterfvARB_ovr_2(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr) :=
+    private z_GetObjectParameterfvARB_ovr_2 := GetFuncOrNil&(z_GetObjectParameterfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterfvARB(obj: gl_handle_ARB; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetObjectParameterfvARB_ovr_2(obj, pname, ¶ms);
     
-    private static procedure z_GetObjectParameterivARB_ovr_0(obj: GLhandleARB; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetObjectParameterivARB';
-    private static procedure z_GetObjectParameterivARB_ovr_0_anh0001(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: GLhandleARB; pname: DummyEnum; ¶ms: array of Int32) :=
+    private z_GetObjectParameterivARB_adr := GetFuncAdr('glGetObjectParameterivARB');
+    private z_GetObjectParameterivARB_ovr_0 := GetFuncOrNil&(z_GetObjectParameterivARB_adr);
+    private z_GetObjectParameterivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetObjectParameterivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: gl_handle_ARB; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetObjectParameterivARB_ovr_0(obj, pname, ¶ms[0]) else
       z_GetObjectParameterivARB_ovr_0_anh0001(obj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: GLhandleARB; pname: DummyEnum; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: gl_handle_ARB; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetObjectParameterivARB_ovr_0(obj, pname, ¶ms);
-    private static procedure z_GetObjectParameterivARB_ovr_2(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectParameterivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: GLhandleARB; pname: DummyEnum; ¶ms: IntPtr) :=
+    private z_GetObjectParameterivARB_ovr_2 := GetFuncOrNil&(z_GetObjectParameterivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectParameterivARB(obj: gl_handle_ARB; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetObjectParameterivARB_ovr_2(obj, pname, ¶ms);
     
-    private static procedure z_GetInfoLogARB_ovr_0(obj: GLhandleARB; maxLength: Int32; var length: Int32; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetInfoLogARB';
-    private static procedure z_GetInfoLogARB_ovr_0_anh00010(obj: GLhandleARB; maxLength: Int32; length: IntPtr; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetInfoLogARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInfoLogARB(obj: GLhandleARB; maxLength: Int32; length: array of Int32; infoLog: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetInfoLogARB_ovr_0(obj, maxLength, length[0], infoLog) else
-      z_GetInfoLogARB_ovr_0_anh00010(obj, maxLength, IntPtr.Zero, infoLog);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInfoLogARB(obj: GLhandleARB; maxLength: Int32; var length: Int32; infoLog: IntPtr) :=
+    private z_GetInfoLogARB_adr := GetFuncAdr('glGetInfoLogARB');
+    private z_GetInfoLogARB_ovr_0 := GetFuncOrNil&(z_GetInfoLogARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInfoLogARB(obj: gl_handle_ARB; maxLength: Int32; var length: Int32; infoLog: IntPtr) :=
     z_GetInfoLogARB_ovr_0(obj, maxLength, length, infoLog);
-    private static procedure z_GetInfoLogARB_ovr_2(obj: GLhandleARB; maxLength: Int32; length: IntPtr; infoLog: IntPtr);
-    external 'opengl32.dll' name 'glGetInfoLogARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInfoLogARB(obj: GLhandleARB; maxLength: Int32; length: IntPtr; infoLog: IntPtr) :=
-    z_GetInfoLogARB_ovr_2(obj, maxLength, length, infoLog);
+    private z_GetInfoLogARB_ovr_1 := GetFuncOrNil&(z_GetInfoLogARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInfoLogARB(obj: gl_handle_ARB; maxLength: Int32; length: IntPtr; infoLog: IntPtr) :=
+    z_GetInfoLogARB_ovr_1(obj, maxLength, length, infoLog);
     
-    private static procedure z_GetAttachedObjectsARB_ovr_0(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; var obj: GLhandleARB);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    private static procedure z_GetAttachedObjectsARB_ovr_0_anh00010(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; var obj: GLhandleARB);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    private static procedure z_GetAttachedObjectsARB_ovr_0_anh00001(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    private static procedure z_GetAttachedObjectsARB_ovr_0_anh00011(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: array of Int32; obj: array of GLhandleARB) :=
-    if (count<>nil) and (count.Length<>0) then
-      if (obj<>nil) and (obj.Length<>0) then
-        z_GetAttachedObjectsARB_ovr_0(containerObj, maxCount, count[0], obj[0]) else
-        z_GetAttachedObjectsARB_ovr_0_anh00001(containerObj, maxCount, count[0], IntPtr.Zero) else
-      if (obj<>nil) and (obj.Length<>0) then
-        z_GetAttachedObjectsARB_ovr_0_anh00010(containerObj, maxCount, IntPtr.Zero, obj[0]) else
-        z_GetAttachedObjectsARB_ovr_0_anh00011(containerObj, maxCount, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetAttachedObjectsARB_ovr_1_anh00010(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; var obj: GLhandleARB);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: array of Int32; var obj: GLhandleARB) :=
-    if (count<>nil) and (count.Length<>0) then
-      z_GetAttachedObjectsARB_ovr_0(containerObj, maxCount, count[0], obj) else
-      z_GetAttachedObjectsARB_ovr_0_anh00010(containerObj, maxCount, IntPtr.Zero, obj);
-    private static procedure z_GetAttachedObjectsARB_ovr_2(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    private static procedure z_GetAttachedObjectsARB_ovr_2_anh00010(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: array of Int32; obj: IntPtr) :=
-    if (count<>nil) and (count.Length<>0) then
-      z_GetAttachedObjectsARB_ovr_2(containerObj, maxCount, count[0], obj) else
-      z_GetAttachedObjectsARB_ovr_2_anh00010(containerObj, maxCount, IntPtr.Zero, obj);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; obj: array of GLhandleARB) :=
+    private z_GetAttachedObjectsARB_adr := GetFuncAdr('glGetAttachedObjectsARB');
+    private z_GetAttachedObjectsARB_ovr_0 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    private z_GetAttachedObjectsARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; var count: Int32; obj: array of gl_handle_ARB) :=
     if (obj<>nil) and (obj.Length<>0) then
       z_GetAttachedObjectsARB_ovr_0(containerObj, maxCount, count, obj[0]) else
       z_GetAttachedObjectsARB_ovr_0_anh00001(containerObj, maxCount, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; var obj: GLhandleARB) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; var count: Int32; var obj: gl_handle_ARB) :=
     z_GetAttachedObjectsARB_ovr_0(containerObj, maxCount, count, obj);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; var count: Int32; obj: IntPtr) :=
+    private z_GetAttachedObjectsARB_ovr_2 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; var count: Int32; obj: IntPtr) :=
     z_GetAttachedObjectsARB_ovr_2(containerObj, maxCount, count, obj);
-    private static procedure z_GetAttachedObjectsARB_ovr_6(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; var obj: GLhandleARB);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    private static procedure z_GetAttachedObjectsARB_ovr_6_anh00001(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: array of GLhandleARB) :=
+    private z_GetAttachedObjectsARB_ovr_3 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    private z_GetAttachedObjectsARB_ovr_3_anh00001 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; count: IntPtr; obj: array of gl_handle_ARB) :=
     if (obj<>nil) and (obj.Length<>0) then
-      z_GetAttachedObjectsARB_ovr_6(containerObj, maxCount, count, obj[0]) else
-      z_GetAttachedObjectsARB_ovr_6_anh00001(containerObj, maxCount, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; var obj: GLhandleARB) :=
-    z_GetAttachedObjectsARB_ovr_6(containerObj, maxCount, count, obj);
-    private static procedure z_GetAttachedObjectsARB_ovr_8(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: IntPtr);
-    external 'opengl32.dll' name 'glGetAttachedObjectsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: GLhandleARB; maxCount: Int32; count: IntPtr; obj: IntPtr) :=
-    z_GetAttachedObjectsARB_ovr_8(containerObj, maxCount, count, obj);
+      z_GetAttachedObjectsARB_ovr_3(containerObj, maxCount, count, obj[0]) else
+      z_GetAttachedObjectsARB_ovr_3_anh00001(containerObj, maxCount, count, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; count: IntPtr; var obj: gl_handle_ARB) :=
+    z_GetAttachedObjectsARB_ovr_3(containerObj, maxCount, count, obj);
+    private z_GetAttachedObjectsARB_ovr_5 := GetFuncOrNil&(z_GetAttachedObjectsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetAttachedObjectsARB(containerObj: gl_handle_ARB; maxCount: Int32; count: IntPtr; obj: IntPtr) :=
+    z_GetAttachedObjectsARB_ovr_5(containerObj, maxCount, count, obj);
     
-    private static function z_GetUniformLocationARB_ovr_0(programObj: GLhandleARB; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetUniformLocationARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocationARB(programObj: GLhandleARB; name: string): Int32;
+    private z_GetUniformLocationARB_adr := GetFuncAdr('glGetUniformLocationARB');
+    private z_GetUniformLocationARB_ovr_0 := GetFuncOrNil&(z_GetUniformLocationARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocationARB(programObj: gl_handle_ARB; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -43798,285 +44218,103 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocationARB(programObj: GLhandleARB; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformLocationARB(programObj: gl_handle_ARB; name: IntPtr): Int32 :=
     z_GetUniformLocationARB_ovr_0(programObj, name);
     
-    private static procedure z_GetActiveUniformARB_ovr_0(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00000110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_0_anh00001110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length[0], size[0], &type[0], name) else
-          z_GetActiveUniformARB_ovr_0_anh00000010(programObj, index, maxLength, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniformARB_ovr_0_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetActiveUniformARB_ovr_0_anh00000110(programObj, index, maxLength, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniformARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetActiveUniformARB_ovr_0_anh00001010(programObj, index, maxLength, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveUniformARB_ovr_0_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetActiveUniformARB_ovr_0_anh00001110(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveUniformARB_ovr_1_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_1_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_1_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length[0], size[0], &type, name) else
-        z_GetActiveUniformARB_ovr_0_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniformARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveUniformARB_ovr_0_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_2(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_2_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_2_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_2_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniformARB_ovr_2(programObj, index, maxLength, length[0], size[0], &type, name) else
-        z_GetActiveUniformARB_ovr_2_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveUniformARB_ovr_2_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveUniformARB_ovr_2_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_3_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_3_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length[0], size, &type[0], name) else
-        z_GetActiveUniformARB_ovr_0_anh00000010(programObj, index, maxLength, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveUniformARB_ovr_0_anh00001010(programObj, index, maxLength, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveUniformARB_ovr_4_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveUniformARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_5_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformARB_ovr_2(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveUniformARB_ovr_2_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_6(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_6_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_6_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_6_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_6(programObj, index, maxLength, length[0], size, &type[0], name) else
-        z_GetActiveUniformARB_ovr_6_anh00000010(programObj, index, maxLength, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_6_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveUniformARB_ovr_6_anh00001010(programObj, index, maxLength, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveUniformARB_ovr_7_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformARB_ovr_6(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveUniformARB_ovr_6_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_8(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_8_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformARB_ovr_8(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveUniformARB_ovr_8_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length, size[0], &type[0], name) else
-        z_GetActiveUniformARB_ovr_0_anh00000010(programObj, index, maxLength, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_0_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveUniformARB_ovr_0_anh00000110(programObj, index, maxLength, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveUniformARB_ovr_0_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniformARB_ovr_2(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveUniformARB_ovr_2_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveUniformARB_ovr_0_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
+    private z_GetActiveUniformARB_adr := GetFuncAdr('glGetActiveUniformARB');
+    private z_GetActiveUniformARB_ovr_0 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniformARB_ovr_0(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetActiveUniformARB_ovr_1 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniformARB_ovr_1(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveUniformARB_ovr_2 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniformARB_ovr_2(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniformARB_ovr_6(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveUniformARB_ovr_6_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: UniformType; name: IntPtr) :=
+    private z_GetActiveUniformARB_ovr_3 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniformARB_ovr_3(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveUniformARB_ovr_4 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr) :=
+    z_GetActiveUniformARB_ovr_4(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveUniformARB_ovr_5 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniformARB_ovr_5(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveUniformARB_ovr_6 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr) :=
     z_GetActiveUniformARB_ovr_6(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniformARB_ovr_8(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_18(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_18_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_18_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_18_anh00000110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; &type: array of UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_18(programObj, index, maxLength, length, size[0], &type[0], name) else
-        z_GetActiveUniformARB_ovr_18_anh00000010(programObj, index, maxLength, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveUniformARB_ovr_18_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveUniformARB_ovr_18_anh00000110(programObj, index, maxLength, length, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveUniformARB_ovr_19_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; var &type: UniformType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniformARB_ovr_18(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveUniformARB_ovr_18_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_20(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_20_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveUniformARB_ovr_20(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveUniformARB_ovr_20_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniformARB_ovr_18(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveUniformARB_ovr_18_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: UniformType; name: IntPtr) :=
-    z_GetActiveUniformARB_ovr_18(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniformARB_ovr_20(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_24(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    private static procedure z_GetActiveUniformARB_ovr_24_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: array of UniformType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveUniformARB_ovr_24(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveUniformARB_ovr_24_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: UniformType; name: IntPtr) :=
-    z_GetActiveUniformARB_ovr_24(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveUniformARB_ovr_26(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveUniformARB_ovr_26(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveUniformARB_ovr_7 := GetFuncOrNil&(z_GetActiveUniformARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveUniformARB_ovr_7(programObj, index, maxLength, length, size, &type, name);
     
-    private static procedure z_GetUniformfvARB_ovr_0(programObj: GLhandleARB; location: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetUniformfvARB';
-    private static procedure z_GetUniformfvARB_ovr_0_anh0001(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: GLhandleARB; location: Int32; ¶ms: array of single) :=
+    private z_GetUniformfvARB_adr := GetFuncAdr('glGetUniformfvARB');
+    private z_GetUniformfvARB_ovr_0 := GetFuncOrNil&(z_GetUniformfvARB_adr);
+    private z_GetUniformfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: gl_handle_ARB; location: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformfvARB_ovr_0(programObj, location, ¶ms[0]) else
       z_GetUniformfvARB_ovr_0_anh0001(programObj, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: GLhandleARB; location: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: gl_handle_ARB; location: Int32; var ¶ms: single) :=
     z_GetUniformfvARB_ovr_0(programObj, location, ¶ms);
-    private static procedure z_GetUniformfvARB_ovr_2(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformfvARB_ovr_2 := GetFuncOrNil&(z_GetUniformfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformfvARB(programObj: gl_handle_ARB; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformfvARB_ovr_2(programObj, location, ¶ms);
     
-    private static procedure z_GetUniformivARB_ovr_0(programObj: GLhandleARB; location: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetUniformivARB';
-    private static procedure z_GetUniformivARB_ovr_0_anh0001(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: GLhandleARB; location: Int32; ¶ms: array of Int32) :=
+    private z_GetUniformivARB_adr := GetFuncAdr('glGetUniformivARB');
+    private z_GetUniformivARB_ovr_0 := GetFuncOrNil&(z_GetUniformivARB_adr);
+    private z_GetUniformivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: gl_handle_ARB; location: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformivARB_ovr_0(programObj, location, ¶ms[0]) else
       z_GetUniformivARB_ovr_0_anh0001(programObj, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: GLhandleARB; location: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: gl_handle_ARB; location: Int32; var ¶ms: Int32) :=
     z_GetUniformivARB_ovr_0(programObj, location, ¶ms);
-    private static procedure z_GetUniformivARB_ovr_2(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: GLhandleARB; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformivARB_ovr_2 := GetFuncOrNil&(z_GetUniformivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformivARB(programObj: gl_handle_ARB; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformivARB_ovr_2(programObj, location, ¶ms);
     
-    private static procedure z_GetShaderSourceARB_ovr_0(obj: GLhandleARB; maxLength: Int32; var length: Int32; source: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderSourceARB';
-    private static procedure z_GetShaderSourceARB_ovr_0_anh00010(obj: GLhandleARB; maxLength: Int32; length: IntPtr; source: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSourceARB(obj: GLhandleARB; maxLength: Int32; length: array of Int32; source: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetShaderSourceARB_ovr_0(obj, maxLength, length[0], source) else
-      z_GetShaderSourceARB_ovr_0_anh00010(obj, maxLength, IntPtr.Zero, source);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSourceARB(obj: GLhandleARB; maxLength: Int32; var length: Int32; source: IntPtr) :=
+    private z_GetShaderSourceARB_adr := GetFuncAdr('glGetShaderSourceARB');
+    private z_GetShaderSourceARB_ovr_0 := GetFuncOrNil&(z_GetShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSourceARB(obj: gl_handle_ARB; maxLength: Int32; var length: Int32; source: IntPtr) :=
     z_GetShaderSourceARB_ovr_0(obj, maxLength, length, source);
-    private static procedure z_GetShaderSourceARB_ovr_2(obj: GLhandleARB; maxLength: Int32; length: IntPtr; source: IntPtr);
-    external 'opengl32.dll' name 'glGetShaderSourceARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSourceARB(obj: GLhandleARB; maxLength: Int32; length: IntPtr; source: IntPtr) :=
-    z_GetShaderSourceARB_ovr_2(obj, maxLength, length, source);
+    private z_GetShaderSourceARB_ovr_1 := GetFuncOrNil&(z_GetShaderSourceARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShaderSourceARB(obj: gl_handle_ARB; maxLength: Int32; length: IntPtr; source: IntPtr) :=
+    z_GetShaderSourceARB_ovr_1(obj, maxLength, length, source);
     
   end;
   
   [PCUNotRestore]
-  glShaderStorageBufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderStorageBufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shader_storage_buffer_object';
     
-    private static procedure z_ShaderStorageBlockBinding_ovr_0(&program: ProgramName; storageBlockIndex: UInt32; storageBlockBinding: UInt32);
-    external 'opengl32.dll' name 'glShaderStorageBlockBinding';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderStorageBlockBinding(&program: ProgramName; storageBlockIndex: UInt32; storageBlockBinding: UInt32) :=
+    private z_ShaderStorageBlockBinding_adr := GetFuncAdr('glShaderStorageBlockBinding');
+    private z_ShaderStorageBlockBinding_ovr_0 := GetFuncOrNil&(z_ShaderStorageBlockBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderStorageBlockBinding(&program: gl_program; storageBlockIndex: UInt32; storageBlockBinding: UInt32) :=
     z_ShaderStorageBlockBinding_ovr_0(&program, storageBlockIndex, storageBlockBinding);
     
   end;
   
   [PCUNotRestore]
-  glShaderSubroutineARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderSubroutineARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shader_subroutine';
     
-    private static function z_GetSubroutineUniformLocation_ovr_0(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetSubroutineUniformLocation';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: ProgramName; _shadertype: ShaderType; name: string): Int32;
+    private z_GetSubroutineUniformLocation_adr := GetFuncAdr('glGetSubroutineUniformLocation');
+    private z_GetSubroutineUniformLocation_ovr_0 := GetFuncOrNil&(z_GetSubroutineUniformLocation_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: gl_program; _shadertype: ShaderType; name: string): Int32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -44086,12 +44324,12 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineUniformLocation(&program: gl_program; _shadertype: ShaderType; name: IntPtr): Int32 :=
     z_GetSubroutineUniformLocation_ovr_0(&program, _shadertype, name);
     
-    private static function z_GetSubroutineIndex_ovr_0(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetSubroutineIndex';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: ProgramName; _shadertype: ShaderType; name: string): UInt32;
+    private z_GetSubroutineIndex_adr := GetFuncAdr('glGetSubroutineIndex');
+    private z_GetSubroutineIndex_ovr_0 := GetFuncOrNil&(z_GetSubroutineIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: gl_program; _shadertype: ShaderType; name: string): UInt32;
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -44101,112 +44339,82 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: ProgramName; _shadertype: ShaderType; name: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSubroutineIndex(&program: gl_program; _shadertype: ShaderType; name: IntPtr): UInt32 :=
     z_GetSubroutineIndex_ovr_0(&program, _shadertype, name);
     
-    private static procedure z_GetActiveSubroutineUniformiv_ovr_0(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; var values: Int32);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformiv';
-    private static procedure z_GetActiveSubroutineUniformiv_ovr_0_anh000001(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: array of Int32) :=
+    private z_GetActiveSubroutineUniformiv_adr := GetFuncAdr('glGetActiveSubroutineUniformiv');
+    private z_GetActiveSubroutineUniformiv_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    private z_GetActiveSubroutineUniformiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetActiveSubroutineUniformiv_ovr_0(&program, _shadertype, index, pname, values[0]) else
       z_GetActiveSubroutineUniformiv_ovr_0_anh000001(&program, _shadertype, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; var values: Int32) :=
     z_GetActiveSubroutineUniformiv_ovr_0(&program, _shadertype, index, pname, values);
-    private static procedure z_GetActiveSubroutineUniformiv_ovr_2(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: ProgramName; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr) :=
+    private z_GetActiveSubroutineUniformiv_ovr_2 := GetFuncOrNil&(z_GetActiveSubroutineUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformiv(&program: gl_program; _shadertype: ShaderType; index: UInt32; pname: SubroutineParameterName; values: IntPtr) :=
     z_GetActiveSubroutineUniformiv_ovr_2(&program, _shadertype, index, pname, values);
     
-    private static procedure z_GetActiveSubroutineUniformName_ovr_0(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformName';
-    private static procedure z_GetActiveSubroutineUniformName_ovr_0_anh0000010(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveSubroutineUniformName_ovr_0(&program, _shadertype, index, bufSize, length[0], name) else
-      z_GetActiveSubroutineUniformName_ovr_0_anh0000010(&program, _shadertype, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetActiveSubroutineUniformName_adr := GetFuncAdr('glGetActiveSubroutineUniformName');
+    private z_GetActiveSubroutineUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetActiveSubroutineUniformName_ovr_0(&program, _shadertype, index, bufSize, length, name);
-    private static procedure z_GetActiveSubroutineUniformName_ovr_2(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineUniformName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetActiveSubroutineUniformName_ovr_2(&program, _shadertype, index, bufSize, length, name);
+    private z_GetActiveSubroutineUniformName_ovr_1 := GetFuncOrNil&(z_GetActiveSubroutineUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineUniformName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetActiveSubroutineUniformName_ovr_1(&program, _shadertype, index, bufSize, length, name);
     
-    private static procedure z_GetActiveSubroutineName_ovr_0(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineName';
-    private static procedure z_GetActiveSubroutineName_ovr_0_anh0000010(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: array of Int32; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveSubroutineName_ovr_0(&program, _shadertype, index, bufSize, length[0], name) else
-      z_GetActiveSubroutineName_ovr_0_anh0000010(&program, _shadertype, index, bufSize, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
+    private z_GetActiveSubroutineName_adr := GetFuncAdr('glGetActiveSubroutineName');
+    private z_GetActiveSubroutineName_ovr_0 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; var length: Int32; name: IntPtr) :=
     z_GetActiveSubroutineName_ovr_0(&program, _shadertype, index, bufSize, length, name);
-    private static procedure z_GetActiveSubroutineName_ovr_2(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveSubroutineName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: UInt32; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
-    z_GetActiveSubroutineName_ovr_2(&program, _shadertype, index, bufSize, length, name);
+    private z_GetActiveSubroutineName_ovr_1 := GetFuncOrNil&(z_GetActiveSubroutineName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveSubroutineName(&program: gl_program; _shadertype: ShaderType; index: UInt32; bufSize: Int32; length: IntPtr; name: IntPtr) :=
+    z_GetActiveSubroutineName_ovr_1(&program, _shadertype, index, bufSize, length, name);
     
-    private static procedure z_UniformSubroutinesuiv_ovr_0(_shadertype: ShaderType; count: Int32; var indices: UInt32);
-    external 'opengl32.dll' name 'glUniformSubroutinesuiv';
-    private static procedure z_UniformSubroutinesuiv_ovr_0_anh0001(_shadertype: ShaderType; count: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glUniformSubroutinesuiv';
+    private z_UniformSubroutinesuiv_adr := GetFuncAdr('glUniformSubroutinesuiv');
+    private z_UniformSubroutinesuiv_ovr_0 := GetFuncOrNil&(z_UniformSubroutinesuiv_adr);
+    private z_UniformSubroutinesuiv_ovr_0_anh0001 := GetFuncOrNil&(z_UniformSubroutinesuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformSubroutinesuiv(_shadertype: ShaderType; count: Int32; indices: array of UInt32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_UniformSubroutinesuiv_ovr_0(_shadertype, count, indices[0]) else
       z_UniformSubroutinesuiv_ovr_0_anh0001(_shadertype, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformSubroutinesuiv(_shadertype: ShaderType; count: Int32; var indices: UInt32) :=
     z_UniformSubroutinesuiv_ovr_0(_shadertype, count, indices);
-    private static procedure z_UniformSubroutinesuiv_ovr_2(_shadertype: ShaderType; count: Int32; indices: IntPtr);
-    external 'opengl32.dll' name 'glUniformSubroutinesuiv';
+    private z_UniformSubroutinesuiv_ovr_2 := GetFuncOrNil&(z_UniformSubroutinesuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformSubroutinesuiv(_shadertype: ShaderType; count: Int32; indices: IntPtr) :=
     z_UniformSubroutinesuiv_ovr_2(_shadertype, count, indices);
     
-    private static procedure z_GetUniformSubroutineuiv_ovr_0(_shadertype: ShaderType; location: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetUniformSubroutineuiv';
-    private static procedure z_GetUniformSubroutineuiv_ovr_0_anh0001(_shadertype: ShaderType; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformSubroutineuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; ¶ms: array of UInt32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetUniformSubroutineuiv_ovr_0(_shadertype, location, ¶ms[0]) else
-      z_GetUniformSubroutineuiv_ovr_0_anh0001(_shadertype, location, IntPtr.Zero);
+    private z_GetUniformSubroutineuiv_adr := GetFuncAdr('glGetUniformSubroutineuiv');
+    private z_GetUniformSubroutineuiv_ovr_0 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; var ¶ms: UInt32) :=
     z_GetUniformSubroutineuiv_ovr_0(_shadertype, location, ¶ms);
-    private static procedure z_GetUniformSubroutineuiv_ovr_2(_shadertype: ShaderType; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformSubroutineuiv';
+    private z_GetUniformSubroutineuiv_ovr_1 := GetFuncOrNil&(z_GetUniformSubroutineuiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformSubroutineuiv(_shadertype: ShaderType; location: Int32; ¶ms: IntPtr) :=
-    z_GetUniformSubroutineuiv_ovr_2(_shadertype, location, ¶ms);
+    z_GetUniformSubroutineuiv_ovr_1(_shadertype, location, ¶ms);
     
-    private static procedure z_GetProgramStageiv_ovr_0(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; var values: Int32);
-    external 'opengl32.dll' name 'glGetProgramStageiv';
-    private static procedure z_GetProgramStageiv_ovr_0_anh00001(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStageiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: array of Int32) :=
-    if (values<>nil) and (values.Length<>0) then
-      z_GetProgramStageiv_ovr_0(&program, _shadertype, pname, values[0]) else
-      z_GetProgramStageiv_ovr_0_anh00001(&program, _shadertype, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; var values: Int32) :=
+    private z_GetProgramStageiv_adr := GetFuncAdr('glGetProgramStageiv');
+    private z_GetProgramStageiv_ovr_0 := GetFuncOrNil&(z_GetProgramStageiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: gl_program; _shadertype: ShaderType; pname: ProgramStagePName; var values: Int32) :=
     z_GetProgramStageiv_ovr_0(&program, _shadertype, pname, values);
-    private static procedure z_GetProgramStageiv_ovr_2(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStageiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: ProgramName; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr) :=
-    z_GetProgramStageiv_ovr_2(&program, _shadertype, pname, values);
+    private z_GetProgramStageiv_ovr_1 := GetFuncOrNil&(z_GetProgramStageiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStageiv(&program: gl_program; _shadertype: ShaderType; pname: ProgramStagePName; values: IntPtr) :=
+    z_GetProgramStageiv_ovr_1(&program, _shadertype, pname, values);
     
   end;
   
   [PCUNotRestore]
-  glShadingLanguageIncludeARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShadingLanguageIncludeARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_shading_language_include';
     
-    private static procedure z_NamedStringARB_ovr_0(&type: DummyEnum; namelen: Int32; name: IntPtr; stringlen: Int32; _string: IntPtr);
-    external 'opengl32.dll' name 'glNamedStringARB';
+    private z_NamedStringARB_adr := GetFuncAdr('glNamedStringARB');
+    private z_NamedStringARB_ovr_0 := GetFuncOrNil&(z_NamedStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedStringARB(&type: DummyEnum; namelen: Int32; name: string; stringlen: Int32; _string: string);
     begin
       var par_3_str_ptr, par_5_str_ptr: IntPtr;
@@ -44242,8 +44450,8 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedStringARB(&type: DummyEnum; namelen: Int32; name: IntPtr; stringlen: Int32; _string: IntPtr) :=
     z_NamedStringARB_ovr_0(&type, namelen, name, stringlen, _string);
     
-    private static procedure z_DeleteNamedStringARB_ovr_0(namelen: Int32; name: IntPtr);
-    external 'opengl32.dll' name 'glDeleteNamedStringARB';
+    private z_DeleteNamedStringARB_adr := GetFuncAdr('glDeleteNamedStringARB');
+    private z_DeleteNamedStringARB_ovr_0 := GetFuncOrNil&(z_DeleteNamedStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteNamedStringARB(namelen: Int32; name: string);
     begin
       var par_2_str_ptr: IntPtr;
@@ -44257,15 +44465,12 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteNamedStringARB(namelen: Int32; name: IntPtr) :=
     z_DeleteNamedStringARB_ovr_0(namelen, name);
     
-    private static procedure z_CompileShaderIncludeARB_ovr_0(shader: UInt32; count: Int32; var path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_0_anh00010(shader: UInt32; count: Int32; path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_0_anh00001(shader: UInt32; count: Int32; var path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_0_anh00011(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of string; length: array of Int32);
+    private z_CompileShaderIncludeARB_adr := GetFuncAdr('glCompileShaderIncludeARB');
+    private z_CompileShaderIncludeARB_ovr_0 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_0_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_0_anh00001 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_0_anh00011 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of string; length: array of Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -44281,9 +44486,8 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_CompileShaderIncludeARB_ovr_1_anh00010(shader: UInt32; count: Int32; path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of string; var length: Int32);
+    private z_CompileShaderIncludeARB_ovr_1_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of string; var length: Int32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -44295,11 +44499,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_CompileShaderIncludeARB_ovr_2(shader: UInt32; count: Int32; var path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_2_anh00010(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of string; length: IntPtr);
+    private z_CompileShaderIncludeARB_ovr_2 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_2_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of string; length: IntPtr);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -44311,11 +44513,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_CompileShaderIncludeARB_ovr_3_anh00010(shader: UInt32; count: Int32; path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_3_anh00011(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of IntPtr; length: array of Int32) :=
+    private z_CompileShaderIncludeARB_ovr_3_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_3_anh00011 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of IntPtr; length: array of Int32) :=
     if (path<>nil) and (path.Length<>0) then
       if (length<>nil) and (length.Length<>0) then
         z_CompileShaderIncludeARB_ovr_0(shader, count, path[0], length[0]) else
@@ -44323,35 +44523,30 @@ type
       if (length<>nil) and (length.Length<>0) then
         z_CompileShaderIncludeARB_ovr_0_anh00010(shader, count, IntPtr.Zero, length[0]) else
         z_CompileShaderIncludeARB_ovr_0_anh00011(shader, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_CompileShaderIncludeARB_ovr_4_anh00010(shader: UInt32; count: Int32; path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of IntPtr; var length: Int32) :=
+    private z_CompileShaderIncludeARB_ovr_4_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of IntPtr; var length: Int32) :=
     if (path<>nil) and (path.Length<>0) then
       z_CompileShaderIncludeARB_ovr_0(shader, count, path[0], length) else
       z_CompileShaderIncludeARB_ovr_0_anh00010(shader, count, IntPtr.Zero, length);
-    private static procedure z_CompileShaderIncludeARB_ovr_5_anh00010(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: array of IntPtr; length: IntPtr) :=
+    private z_CompileShaderIncludeARB_ovr_5_anh00010 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: array of IntPtr; length: IntPtr) :=
     if (path<>nil) and (path.Length<>0) then
       z_CompileShaderIncludeARB_ovr_2(shader, count, path[0], length) else
       z_CompileShaderIncludeARB_ovr_2_anh00010(shader, count, IntPtr.Zero, length);
-    private static procedure z_CompileShaderIncludeARB_ovr_6(shader: UInt32; count: Int32; path: IntPtr; var length: Int32);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    private static procedure z_CompileShaderIncludeARB_ovr_6_anh00001(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: IntPtr; length: array of Int32) :=
+    private z_CompileShaderIncludeARB_ovr_6 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    private z_CompileShaderIncludeARB_ovr_6_anh00001 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: IntPtr; length: array of Int32) :=
     if (length<>nil) and (length.Length<>0) then
       z_CompileShaderIncludeARB_ovr_6(shader, count, path, length[0]) else
       z_CompileShaderIncludeARB_ovr_6_anh00001(shader, count, path, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: IntPtr; var length: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: IntPtr; var length: Int32) :=
     z_CompileShaderIncludeARB_ovr_6(shader, count, path, length);
-    private static procedure z_CompileShaderIncludeARB_ovr_8(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glCompileShaderIncludeARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: UInt32; count: Int32; path: IntPtr; length: IntPtr) :=
+    private z_CompileShaderIncludeARB_ovr_8 := GetFuncOrNil&(z_CompileShaderIncludeARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileShaderIncludeARB(shader: gl_shader; count: Int32; path: IntPtr; length: IntPtr) :=
     z_CompileShaderIncludeARB_ovr_8(shader, count, path, length);
     
-    private static function z_IsNamedStringARB_ovr_0(namelen: Int32; name: IntPtr): boolean;
-    external 'opengl32.dll' name 'glIsNamedStringARB';
+    private z_IsNamedStringARB_adr := GetFuncAdr('glIsNamedStringARB');
+    private z_IsNamedStringARB_ovr_0 := GetFuncOrNil&(z_IsNamedStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsNamedStringARB(namelen: Int32; name: string): boolean;
     begin
       var par_2_str_ptr: IntPtr;
@@ -44365,22 +44560,8 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsNamedStringARB(namelen: Int32; name: IntPtr): boolean :=
     z_IsNamedStringARB_ovr_0(namelen, name);
     
-    private static procedure z_GetNamedStringARB_ovr_0(namelen: Int32; name: IntPtr; bufSize: Int32; var stringlen: Int32; string: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedStringARB';
-    private static procedure z_GetNamedStringARB_ovr_0_anh000010(namelen: Int32; name: IntPtr; bufSize: Int32; stringlen: IntPtr; string: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedStringARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: string; bufSize: Int32; stringlen: array of Int32; string: IntPtr);
-    begin
-      var par_2_str_ptr: IntPtr;
-      try
-        par_2_str_ptr := Marshal.StringToHGlobalAnsi(name);
-        if (stringlen<>nil) and (stringlen.Length<>0) then
-          z_GetNamedStringARB_ovr_0(namelen, par_2_str_ptr, bufSize, stringlen[0], string) else
-          z_GetNamedStringARB_ovr_0_anh000010(namelen, par_2_str_ptr, bufSize, IntPtr.Zero, string);
-      finally
-        Marshal.FreeHGlobal(par_2_str_ptr);
-      end;
-    end;
+    private z_GetNamedStringARB_adr := GetFuncAdr('glGetNamedStringARB');
+    private z_GetNamedStringARB_ovr_0 := GetFuncOrNil&(z_GetNamedStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: string; bufSize: Int32; var stringlen: Int32; string: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
@@ -44391,31 +44572,25 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_GetNamedStringARB_ovr_2(namelen: Int32; name: IntPtr; bufSize: Int32; stringlen: IntPtr; string: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedStringARB';
+    private z_GetNamedStringARB_ovr_1 := GetFuncOrNil&(z_GetNamedStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: string; bufSize: Int32; stringlen: IntPtr; string: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
       try
         par_2_str_ptr := Marshal.StringToHGlobalAnsi(name);
-        z_GetNamedStringARB_ovr_2(namelen, par_2_str_ptr, bufSize, stringlen, string);
+        z_GetNamedStringARB_ovr_1(namelen, par_2_str_ptr, bufSize, stringlen, string);
       finally
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: IntPtr; bufSize: Int32; stringlen: array of Int32; string: IntPtr) :=
-    if (stringlen<>nil) and (stringlen.Length<>0) then
-      z_GetNamedStringARB_ovr_0(namelen, name, bufSize, stringlen[0], string) else
-      z_GetNamedStringARB_ovr_0_anh000010(namelen, name, bufSize, IntPtr.Zero, string);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: IntPtr; bufSize: Int32; var stringlen: Int32; string: IntPtr) :=
     z_GetNamedStringARB_ovr_0(namelen, name, bufSize, stringlen, string);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringARB(namelen: Int32; name: IntPtr; bufSize: Int32; stringlen: IntPtr; string: IntPtr) :=
-    z_GetNamedStringARB_ovr_2(namelen, name, bufSize, stringlen, string);
+    z_GetNamedStringARB_ovr_1(namelen, name, bufSize, stringlen, string);
     
-    private static procedure z_GetNamedStringivARB_ovr_0(namelen: Int32; name: IntPtr; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedStringivARB';
-    private static procedure z_GetNamedStringivARB_ovr_0_anh00001(namelen: Int32; name: IntPtr; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedStringivARB';
+    private z_GetNamedStringivARB_adr := GetFuncAdr('glGetNamedStringivARB');
+    private z_GetNamedStringivARB_ovr_0 := GetFuncOrNil&(z_GetNamedStringivARB_adr);
+    private z_GetNamedStringivARB_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedStringivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringivARB(namelen: Int32; name: string; pname: DummyEnum; ¶ms: array of Int32);
     begin
       var par_2_str_ptr: IntPtr;
@@ -44438,8 +44613,7 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    private static procedure z_GetNamedStringivARB_ovr_2(namelen: Int32; name: IntPtr; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedStringivARB';
+    private z_GetNamedStringivARB_ovr_2 := GetFuncOrNil&(z_GetNamedStringivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedStringivARB(namelen: Int32; name: string; pname: DummyEnum; ¶ms: IntPtr);
     begin
       var par_2_str_ptr: IntPtr;
@@ -44462,643 +44636,623 @@ type
   end;
   
   [PCUNotRestore]
-  glSparseBufferARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSparseBufferARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sparse_buffer';
     
-    private static procedure z_BufferPageCommitmentARB_ovr_0(target: DummyEnum; offset: IntPtr; size: IntPtr; commit: boolean);
-    external 'opengl32.dll' name 'glBufferPageCommitmentARB';
+    private z_BufferPageCommitmentARB_adr := GetFuncAdr('glBufferPageCommitmentARB');
+    private z_BufferPageCommitmentARB_ovr_0 := GetFuncOrNil&(z_BufferPageCommitmentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferPageCommitmentARB(target: DummyEnum; offset: IntPtr; size: IntPtr; commit: boolean) :=
     z_BufferPageCommitmentARB_ovr_0(target, offset, size, commit);
     
-    private static procedure z_NamedBufferPageCommitmentEXT_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; commit: boolean);
-    external 'opengl32.dll' name 'glNamedBufferPageCommitmentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferPageCommitmentEXT(buffer: UInt32; offset: IntPtr; size: IntPtr; commit: boolean) :=
+    private z_NamedBufferPageCommitmentEXT_adr := GetFuncAdr('glNamedBufferPageCommitmentEXT');
+    private z_NamedBufferPageCommitmentEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferPageCommitmentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferPageCommitmentEXT(buffer: gl_buffer; offset: IntPtr; size: IntPtr; commit: boolean) :=
     z_NamedBufferPageCommitmentEXT_ovr_0(buffer, offset, size, commit);
     
-    private static procedure z_NamedBufferPageCommitmentARB_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; commit: boolean);
-    external 'opengl32.dll' name 'glNamedBufferPageCommitmentARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferPageCommitmentARB(buffer: UInt32; offset: IntPtr; size: IntPtr; commit: boolean) :=
+    private z_NamedBufferPageCommitmentARB_adr := GetFuncAdr('glNamedBufferPageCommitmentARB');
+    private z_NamedBufferPageCommitmentARB_ovr_0 := GetFuncOrNil&(z_NamedBufferPageCommitmentARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferPageCommitmentARB(buffer: gl_buffer; offset: IntPtr; size: IntPtr; commit: boolean) :=
     z_NamedBufferPageCommitmentARB_ovr_0(buffer, offset, size, commit);
     
   end;
   
   [PCUNotRestore]
-  glSparseTextureARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSparseTextureARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sparse_texture';
     
-    private static procedure z_TexPageCommitmentARB_ovr_0(target: DummyEnum; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; commit: boolean);
-    external 'opengl32.dll' name 'glTexPageCommitmentARB';
+    private z_TexPageCommitmentARB_adr := GetFuncAdr('glTexPageCommitmentARB');
+    private z_TexPageCommitmentARB_ovr_0 := GetFuncOrNil&(z_TexPageCommitmentARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexPageCommitmentARB(target: DummyEnum; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; commit: boolean) :=
     z_TexPageCommitmentARB_ovr_0(target, level, xoffset, yoffset, zoffset, width, height, depth, commit);
     
   end;
   
   [PCUNotRestore]
-  glSyncARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSyncARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_sync';
     
-    private static function z_FenceSync_ovr_0(condition: SyncCondition; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glFenceSync';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FenceSync(condition: SyncCondition; flags: DummyFlags): GLsync :=
+    private z_FenceSync_adr := GetFuncAdr('glFenceSync');
+    private z_FenceSync_ovr_0 := GetFuncOrNil&(z_FenceSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FenceSync(condition: SyncCondition; flags: DummyFlags): gl_sync :=
     z_FenceSync_ovr_0(condition, flags);
     
-    private static function z_IsSync_ovr_0(sync: GLsync): boolean;
-    external 'opengl32.dll' name 'glIsSync';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSync(sync: GLsync): boolean :=
+    private z_IsSync_adr := GetFuncAdr('glIsSync');
+    private z_IsSync_ovr_0 := GetFuncOrNil&(z_IsSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSync(sync: gl_sync): boolean :=
     z_IsSync_ovr_0(sync);
     
-    private static procedure z_DeleteSync_ovr_0(sync: GLsync);
-    external 'opengl32.dll' name 'glDeleteSync';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSync(sync: GLsync) :=
+    private z_DeleteSync_adr := GetFuncAdr('glDeleteSync');
+    private z_DeleteSync_ovr_0 := GetFuncOrNil&(z_DeleteSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSync(sync: gl_sync) :=
     z_DeleteSync_ovr_0(sync);
     
-    private static function z_ClientWaitSync_ovr_0(sync: GLsync; flags: SyncObjectMask; timeout: UInt64): SyncStatus;
-    external 'opengl32.dll' name 'glClientWaitSync';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ClientWaitSync(sync: GLsync; flags: SyncObjectMask; timeout: UInt64): SyncStatus :=
+    private z_ClientWaitSync_adr := GetFuncAdr('glClientWaitSync');
+    private z_ClientWaitSync_ovr_0 := GetFuncOrNil&(z_ClientWaitSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ClientWaitSync(sync: gl_sync; flags: SyncObjectMask; timeout: UInt64): SyncStatus :=
     z_ClientWaitSync_ovr_0(sync, flags, timeout);
     
-    private static procedure z_WaitSync_ovr_0(sync: GLsync; flags: DummyFlags; timeout: UInt64);
-    external 'opengl32.dll' name 'glWaitSync';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSync(sync: GLsync; flags: DummyFlags; timeout: UInt64) :=
+    private z_WaitSync_adr := GetFuncAdr('glWaitSync');
+    private z_WaitSync_ovr_0 := GetFuncOrNil&(z_WaitSync_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSync(sync: gl_sync; flags: DummyFlags; timeout: UInt64) :=
     z_WaitSync_ovr_0(sync, flags, timeout);
     
-    private static procedure z_GetInteger64v_ovr_0(pname: GetPName; var data: Int64);
-    external 'opengl32.dll' name 'glGetInteger64v';
-    private static procedure z_GetInteger64v_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInteger64v';
+    private z_GetInteger64v_adr := GetFuncAdr('glGetInteger64v');
+    private z_GetInteger64v_ovr_0 := GetFuncOrNil&(z_GetInteger64v_adr);
+    private z_GetInteger64v_ovr_0_anh001 := GetFuncOrNil&(z_GetInteger64v_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64v(pname: GetPName; data: array of Int64) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetInteger64v_ovr_0(pname, data[0]) else
       z_GetInteger64v_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64v(pname: GetPName; var data: Int64) :=
     z_GetInteger64v_ovr_0(pname, data);
-    private static procedure z_GetInteger64v_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInteger64v';
+    private z_GetInteger64v_ovr_2 := GetFuncOrNil&(z_GetInteger64v_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInteger64v(pname: GetPName; data: IntPtr) :=
     z_GetInteger64v_ovr_2(pname, data);
     
-    private static procedure z_GetSynciv_ovr_0(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; var values: Int32);
-    external 'opengl32.dll' name 'glGetSynciv';
-    private static procedure z_GetSynciv_ovr_0_anh000010(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glGetSynciv';
-    private static procedure z_GetSynciv_ovr_0_anh000001(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    private static procedure z_GetSynciv_ovr_0_anh000011(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; values: array of Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (values<>nil) and (values.Length<>0) then
-        z_GetSynciv_ovr_0(sync, pname, count, length[0], values[0]) else
-        z_GetSynciv_ovr_0_anh000001(sync, pname, count, length[0], IntPtr.Zero) else
-      if (values<>nil) and (values.Length<>0) then
-        z_GetSynciv_ovr_0_anh000010(sync, pname, count, IntPtr.Zero, values[0]) else
-        z_GetSynciv_ovr_0_anh000011(sync, pname, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetSynciv_ovr_1_anh000010(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glGetSynciv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; var values: Int32) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetSynciv_ovr_0(sync, pname, count, length[0], values) else
-      z_GetSynciv_ovr_0_anh000010(sync, pname, count, IntPtr.Zero, values);
-    private static procedure z_GetSynciv_ovr_2(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    private static procedure z_GetSynciv_ovr_2_anh000010(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: array of Int32; values: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetSynciv_ovr_2(sync, pname, count, length[0], values) else
-      z_GetSynciv_ovr_2_anh000010(sync, pname, count, IntPtr.Zero, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: array of Int32) :=
+    private z_GetSynciv_adr := GetFuncAdr('glGetSynciv');
+    private z_GetSynciv_ovr_0 := GetFuncOrNil&(z_GetSynciv_adr);
+    private z_GetSynciv_ovr_0_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetSynciv_ovr_0(sync, pname, count, length, values[0]) else
       z_GetSynciv_ovr_0_anh000001(sync, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; var values: Int32) :=
     z_GetSynciv_ovr_0(sync, pname, count, length, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr) :=
+    private z_GetSynciv_ovr_2 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; var length: Int32; values: IntPtr) :=
     z_GetSynciv_ovr_2(sync, pname, count, length, values);
-    private static procedure z_GetSynciv_ovr_6(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glGetSynciv';
-    private static procedure z_GetSynciv_ovr_6_anh000001(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: array of Int32) :=
+    private z_GetSynciv_ovr_3 := GetFuncOrNil&(z_GetSynciv_adr);
+    private z_GetSynciv_ovr_3_anh000001 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
-      z_GetSynciv_ovr_6(sync, pname, count, length, values[0]) else
-      z_GetSynciv_ovr_6_anh000001(sync, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32) :=
-    z_GetSynciv_ovr_6(sync, pname, count, length, values);
-    private static procedure z_GetSynciv_ovr_8(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glGetSynciv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: GLsync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr) :=
-    z_GetSynciv_ovr_8(sync, pname, count, length, values);
+      z_GetSynciv_ovr_3(sync, pname, count, length, values[0]) else
+      z_GetSynciv_ovr_3_anh000001(sync, pname, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; var values: Int32) :=
+    z_GetSynciv_ovr_3(sync, pname, count, length, values);
+    private z_GetSynciv_ovr_5 := GetFuncOrNil&(z_GetSynciv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSynciv(sync: gl_sync; pname: SyncParameterName; count: Int32; length: IntPtr; values: IntPtr) :=
+    z_GetSynciv_ovr_5(sync, pname, count, length, values);
     
   end;
   
   [PCUNotRestore]
-  glTessellationShaderARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTessellationShaderARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_tessellation_shader';
     
-    private static procedure z_PatchParameteri_ovr_0(pname: PatchParameterName; value: Int32);
-    external 'opengl32.dll' name 'glPatchParameteri';
+    private z_PatchParameteri_adr := GetFuncAdr('glPatchParameteri');
+    private z_PatchParameteri_ovr_0 := GetFuncOrNil&(z_PatchParameteri_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PatchParameteri(pname: PatchParameterName; value: Int32) :=
     z_PatchParameteri_ovr_0(pname, value);
     
-    private static procedure z_PatchParameterfv_ovr_0(pname: PatchParameterName; var values: single);
-    external 'opengl32.dll' name 'glPatchParameterfv';
-    private static procedure z_PatchParameterfv_ovr_0_anh001(pname: PatchParameterName; values: IntPtr);
-    external 'opengl32.dll' name 'glPatchParameterfv';
+    private z_PatchParameterfv_adr := GetFuncAdr('glPatchParameterfv');
+    private z_PatchParameterfv_ovr_0 := GetFuncOrNil&(z_PatchParameterfv_adr);
+    private z_PatchParameterfv_ovr_0_anh001 := GetFuncOrNil&(z_PatchParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PatchParameterfv(pname: PatchParameterName; values: array of single) :=
     if (values<>nil) and (values.Length<>0) then
       z_PatchParameterfv_ovr_0(pname, values[0]) else
       z_PatchParameterfv_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PatchParameterfv(pname: PatchParameterName; var values: single) :=
     z_PatchParameterfv_ovr_0(pname, values);
-    private static procedure z_PatchParameterfv_ovr_2(pname: PatchParameterName; values: IntPtr);
-    external 'opengl32.dll' name 'glPatchParameterfv';
+    private z_PatchParameterfv_ovr_2 := GetFuncOrNil&(z_PatchParameterfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PatchParameterfv(pname: PatchParameterName; values: IntPtr) :=
     z_PatchParameterfv_ovr_2(pname, values);
     
   end;
   
   [PCUNotRestore]
-  glTextureBarrierARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureBarrierARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_barrier';
     
-    private static procedure z_TextureBarrier_ovr_0;
-    external 'opengl32.dll' name 'glTextureBarrier';
+    private z_TextureBarrier_adr := GetFuncAdr('glTextureBarrier');
+    private z_TextureBarrier_ovr_0 := GetFuncOrNil&(z_TextureBarrier_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBarrier :=
     z_TextureBarrier_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glTextureBufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureBufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_buffer_object';
     
-    private static procedure z_TexBufferARB_ovr_0(target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32);
-    external 'opengl32.dll' name 'glTexBufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferARB(target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32) :=
+    private z_TexBufferARB_adr := GetFuncAdr('glTexBufferARB');
+    private z_TexBufferARB_ovr_0 := GetFuncOrNil&(z_TexBufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferARB(target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TexBufferARB_ovr_0(target, _internalformat, buffer);
     
   end;
   
   [PCUNotRestore]
-  glTextureBufferRangeARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureBufferRangeARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_buffer_range';
     
-    private static procedure z_TexBufferRange_ovr_0(target: TextureTarget; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glTexBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferRange(target: TextureTarget; _internalformat: InternalFormat; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_TexBufferRange_adr := GetFuncAdr('glTexBufferRange');
+    private z_TexBufferRange_ovr_0 := GetFuncOrNil&(z_TexBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferRange(target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TexBufferRange_ovr_0(target, _internalformat, buffer, offset, size);
     
   end;
   
   [PCUNotRestore]
-  glTextureCompressionARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureCompressionARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_compression';
     
-    private static procedure z_CompressedTexImage3DARB_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexImage3DARB';
+    private z_CompressedTexImage3DARB_adr := GetFuncAdr('glCompressedTexImage3DARB');
+    private z_CompressedTexImage3DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexImage3DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexImage3DARB(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexImage3DARB_ovr_0(target, level, _internalformat, width, height, depth, border, imageSize, data);
     
-    private static procedure z_CompressedTexImage2DARB_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexImage2DARB';
+    private z_CompressedTexImage2DARB_adr := GetFuncAdr('glCompressedTexImage2DARB');
+    private z_CompressedTexImage2DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexImage2DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexImage2DARB(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexImage2DARB_ovr_0(target, level, _internalformat, width, height, border, imageSize, data);
     
-    private static procedure z_CompressedTexImage1DARB_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexImage1DARB';
+    private z_CompressedTexImage1DARB_adr := GetFuncAdr('glCompressedTexImage1DARB');
+    private z_CompressedTexImage1DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexImage1DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexImage1DARB(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexImage1DARB_ovr_0(target, level, _internalformat, width, border, imageSize, data);
     
-    private static procedure z_CompressedTexSubImage3DARB_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexSubImage3DARB';
+    private z_CompressedTexSubImage3DARB_adr := GetFuncAdr('glCompressedTexSubImage3DARB');
+    private z_CompressedTexSubImage3DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexSubImage3DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexSubImage3DARB(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexSubImage3DARB_ovr_0(target, level, xoffset, yoffset, zoffset, width, height, depth, format, imageSize, data);
     
-    private static procedure z_CompressedTexSubImage2DARB_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexSubImage2DARB';
+    private z_CompressedTexSubImage2DARB_adr := GetFuncAdr('glCompressedTexSubImage2DARB');
+    private z_CompressedTexSubImage2DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexSubImage2DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexSubImage2DARB(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexSubImage2DARB_ovr_0(target, level, xoffset, yoffset, width, height, format, imageSize, data);
     
-    private static procedure z_CompressedTexSubImage1DARB_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTexSubImage1DARB';
+    private z_CompressedTexSubImage1DARB_adr := GetFuncAdr('glCompressedTexSubImage1DARB');
+    private z_CompressedTexSubImage1DARB_ovr_0 := GetFuncOrNil&(z_CompressedTexSubImage1DARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTexSubImage1DARB(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; data: IntPtr) :=
     z_CompressedTexSubImage1DARB_ovr_0(target, level, xoffset, width, format, imageSize, data);
     
-    private static procedure z_GetCompressedTexImageARB_ovr_0(target: TextureTarget; level: Int32; img: IntPtr);
-    external 'opengl32.dll' name 'glGetCompressedTexImageARB';
+    private z_GetCompressedTexImageARB_adr := GetFuncAdr('glGetCompressedTexImageARB');
+    private z_GetCompressedTexImageARB_ovr_0 := GetFuncOrNil&(z_GetCompressedTexImageARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTexImageARB(target: TextureTarget; level: Int32; img: IntPtr) :=
     z_GetCompressedTexImageARB_ovr_0(target, level, img);
     
   end;
   
   [PCUNotRestore]
-  glTextureMultisampleARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureMultisampleARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_multisample';
     
-    private static procedure z_TexImage2DMultisample_ovr_0(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTexImage2DMultisample';
+    private z_TexImage2DMultisample_adr := GetFuncAdr('glTexImage2DMultisample');
+    private z_TexImage2DMultisample_ovr_0 := GetFuncOrNil&(z_TexImage2DMultisample_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage2DMultisample(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
     z_TexImage2DMultisample_ovr_0(target, samples, _internalformat, width, height, fixedsamplelocations);
     
-    private static procedure z_TexImage3DMultisample_ovr_0(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTexImage3DMultisample';
+    private z_TexImage3DMultisample_adr := GetFuncAdr('glTexImage3DMultisample');
+    private z_TexImage3DMultisample_ovr_0 := GetFuncOrNil&(z_TexImage3DMultisample_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage3DMultisample(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
     z_TexImage3DMultisample_ovr_0(target, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
-    private static procedure z_GetMultisamplefv_ovr_0(pname: GetMultisamplePNameNV; index: UInt32; var val: single);
-    external 'opengl32.dll' name 'glGetMultisamplefv';
-    private static procedure z_GetMultisamplefv_ovr_0_anh0001(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glGetMultisamplefv';
+    private z_GetMultisamplefv_adr := GetFuncAdr('glGetMultisamplefv');
+    private z_GetMultisamplefv_ovr_0 := GetFuncOrNil&(z_GetMultisamplefv_adr);
+    private z_GetMultisamplefv_ovr_0_anh0001 := GetFuncOrNil&(z_GetMultisamplefv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefv(pname: GetMultisamplePNameNV; index: UInt32; val: array of single) :=
     if (val<>nil) and (val.Length<>0) then
       z_GetMultisamplefv_ovr_0(pname, index, val[0]) else
       z_GetMultisamplefv_ovr_0_anh0001(pname, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefv(pname: GetMultisamplePNameNV; index: UInt32; var val: single) :=
     z_GetMultisamplefv_ovr_0(pname, index, val);
-    private static procedure z_GetMultisamplefv_ovr_2(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glGetMultisamplefv';
+    private z_GetMultisamplefv_ovr_2 := GetFuncOrNil&(z_GetMultisamplefv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefv(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr) :=
     z_GetMultisamplefv_ovr_2(pname, index, val);
     
-    private static procedure z_SampleMaski_ovr_0(maskNumber: UInt32; mask: DummyFlags);
-    external 'opengl32.dll' name 'glSampleMaski';
+    private z_SampleMaski_adr := GetFuncAdr('glSampleMaski');
+    private z_SampleMaski_ovr_0 := GetFuncOrNil&(z_SampleMaski_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleMaski(maskNumber: UInt32; mask: DummyFlags) :=
     z_SampleMaski_ovr_0(maskNumber, mask);
     
   end;
   
   [PCUNotRestore]
-  glTextureStorageARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureStorageARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_storage';
     
-    private static procedure z_TexStorage1D_ovr_0(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32);
-    external 'opengl32.dll' name 'glTexStorage1D';
+    private z_TexStorage1D_adr := GetFuncAdr('glTexStorage1D');
+    private z_TexStorage1D_ovr_0 := GetFuncOrNil&(z_TexStorage1D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage1D(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
     z_TexStorage1D_ovr_0(target, levels, _internalformat, width);
     
-    private static procedure z_TexStorage2D_ovr_0(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glTexStorage2D';
+    private z_TexStorage2D_adr := GetFuncAdr('glTexStorage2D');
+    private z_TexStorage2D_ovr_0 := GetFuncOrNil&(z_TexStorage2D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage2D(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_TexStorage2D_ovr_0(target, levels, _internalformat, width, height);
     
-    private static procedure z_TexStorage3D_ovr_0(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glTexStorage3D';
+    private z_TexStorage3D_adr := GetFuncAdr('glTexStorage3D');
+    private z_TexStorage3D_ovr_0 := GetFuncOrNil&(z_TexStorage3D_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage3D(target: TextureTarget; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
     z_TexStorage3D_ovr_0(target, levels, _internalformat, width, height, depth);
     
   end;
   
   [PCUNotRestore]
-  glTextureStorageMultisampleARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureStorageMultisampleARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_storage_multisample';
     
-    private static procedure z_TexStorage2DMultisample_ovr_0(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTexStorage2DMultisample';
+    private z_TexStorage2DMultisample_adr := GetFuncAdr('glTexStorage2DMultisample');
+    private z_TexStorage2DMultisample_ovr_0 := GetFuncOrNil&(z_TexStorage2DMultisample_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage2DMultisample(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
     z_TexStorage2DMultisample_ovr_0(target, samples, _internalformat, width, height, fixedsamplelocations);
     
-    private static procedure z_TexStorage3DMultisample_ovr_0(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTexStorage3DMultisample';
+    private z_TexStorage3DMultisample_adr := GetFuncAdr('glTexStorage3DMultisample');
+    private z_TexStorage3DMultisample_ovr_0 := GetFuncOrNil&(z_TexStorage3DMultisample_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorage3DMultisample(target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
     z_TexStorage3DMultisample_ovr_0(target, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
   end;
   
   [PCUNotRestore]
-  glTextureViewARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureViewARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_texture_view';
     
-    private static procedure z_TextureView_ovr_0(texture: TextureName; target: TextureTarget; origtexture: TextureName; _internalformat: InternalFormat; minlevel: UInt32; numlevels: UInt32; minlayer: UInt32; numlayers: UInt32);
-    external 'opengl32.dll' name 'glTextureView';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureView(texture: TextureName; target: TextureTarget; origtexture: TextureName; _internalformat: InternalFormat; minlevel: UInt32; numlevels: UInt32; minlayer: UInt32; numlayers: UInt32) :=
+    private z_TextureView_adr := GetFuncAdr('glTextureView');
+    private z_TextureView_ovr_0 := GetFuncOrNil&(z_TextureView_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureView(texture: gl_texture; target: TextureTarget; origtexture: gl_texture; _internalformat: InternalFormat; minlevel: UInt32; numlevels: UInt32; minlayer: UInt32; numlayers: UInt32) :=
     z_TextureView_ovr_0(texture, target, origtexture, _internalformat, minlevel, numlevels, minlayer, numlayers);
     
   end;
   
   [PCUNotRestore]
-  glTimerQueryARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTimerQueryARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_timer_query';
     
-    private static procedure z_QueryCounter_ovr_0(id: QueryName; target: QueryCounterTarget);
-    external 'opengl32.dll' name 'glQueryCounter';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryCounter(id: QueryName; target: QueryCounterTarget) :=
+    private z_QueryCounter_adr := GetFuncAdr('glQueryCounter');
+    private z_QueryCounter_ovr_0 := GetFuncOrNil&(z_QueryCounter_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryCounter(id: gl_query; target: QueryCounterTarget) :=
     z_QueryCounter_ovr_0(id, target);
     
-    private static procedure z_GetQueryObjecti64v_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetQueryObjecti64v';
-    private static procedure z_GetQueryObjecti64v_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjecti64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
+    private z_GetQueryObjecti64v_adr := GetFuncAdr('glGetQueryObjecti64v');
+    private z_GetQueryObjecti64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    private z_GetQueryObjecti64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjecti64v_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjecti64v_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; var ¶ms: Int64) :=
     z_GetQueryObjecti64v_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjecti64v_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjecti64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjecti64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjecti64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjecti64v_ovr_2(id, pname, ¶ms);
     
-    private static procedure z_GetQueryObjectui64v_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetQueryObjectui64v';
-    private static procedure z_GetQueryObjectui64v_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectui64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
+    private z_GetQueryObjectui64v_adr := GetFuncAdr('glGetQueryObjectui64v');
+    private z_GetQueryObjectui64v_ovr_0 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    private z_GetQueryObjectui64v_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectui64v_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectui64v_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
     z_GetQueryObjectui64v_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjectui64v_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectui64v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectui64v_ovr_2 := GetFuncOrNil&(z_GetQueryObjectui64v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64v(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectui64v_ovr_2(id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedback2ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedback2ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_transform_feedback2';
     
-    private static procedure z_BindTransformFeedback_ovr_0(target: BindTransformFeedbackTarget; id: TransformFeedbackName);
-    external 'opengl32.dll' name 'glBindTransformFeedback';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedback(target: BindTransformFeedbackTarget; id: TransformFeedbackName) :=
+    private z_BindTransformFeedback_adr := GetFuncAdr('glBindTransformFeedback');
+    private z_BindTransformFeedback_ovr_0 := GetFuncOrNil&(z_BindTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedback(target: BindTransformFeedbackTarget; id: gl_transform_feedback) :=
     z_BindTransformFeedback_ovr_0(target, id);
     
-    private static procedure z_DeleteTransformFeedbacks_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacks';
-    private static procedure z_DeleteTransformFeedbacks_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacks';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    private z_DeleteTransformFeedbacks_adr := GetFuncAdr('glDeleteTransformFeedbacks');
+    private z_DeleteTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
+    private z_DeleteTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteTransformFeedbacks_ovr_0(n, ids[0]) else
       z_DeleteTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_DeleteTransformFeedbacks_ovr_0(n, ids);
-    private static procedure z_DeleteTransformFeedbacks_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacks';
+    private z_DeleteTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_DeleteTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacks(n: Int32; ids: IntPtr) :=
     z_DeleteTransformFeedbacks_ovr_2(n, ids);
     
-    private static procedure z_GenTransformFeedbacks_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glGenTransformFeedbacks';
-    private static procedure z_GenTransformFeedbacks_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenTransformFeedbacks';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: array of UInt32) :=
+    private z_GenTransformFeedbacks_adr := GetFuncAdr('glGenTransformFeedbacks');
+    private z_GenTransformFeedbacks_ovr_0 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
+    private z_GenTransformFeedbacks_ovr_0_anh001 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenTransformFeedbacks_ovr_0(n, ids[0]) else
       z_GenTransformFeedbacks_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; var ids: gl_transform_feedback) :=
     z_GenTransformFeedbacks_ovr_0(n, ids);
-    private static procedure z_GenTransformFeedbacks_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenTransformFeedbacks';
+    private z_GenTransformFeedbacks_ovr_2 := GetFuncOrNil&(z_GenTransformFeedbacks_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacks(n: Int32; ids: IntPtr) :=
     z_GenTransformFeedbacks_ovr_2(n, ids);
     
-    private static function z_IsTransformFeedback_ovr_0(id: TransformFeedbackName): boolean;
-    external 'opengl32.dll' name 'glIsTransformFeedback';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedback(id: TransformFeedbackName): boolean :=
+    private z_IsTransformFeedback_adr := GetFuncAdr('glIsTransformFeedback');
+    private z_IsTransformFeedback_ovr_0 := GetFuncOrNil&(z_IsTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedback(id: gl_transform_feedback): boolean :=
     z_IsTransformFeedback_ovr_0(id);
     
-    private static procedure z_PauseTransformFeedback_ovr_0;
-    external 'opengl32.dll' name 'glPauseTransformFeedback';
+    private z_PauseTransformFeedback_adr := GetFuncAdr('glPauseTransformFeedback');
+    private z_PauseTransformFeedback_ovr_0 := GetFuncOrNil&(z_PauseTransformFeedback_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PauseTransformFeedback :=
     z_PauseTransformFeedback_ovr_0;
     
-    private static procedure z_ResumeTransformFeedback_ovr_0;
-    external 'opengl32.dll' name 'glResumeTransformFeedback';
+    private z_ResumeTransformFeedback_adr := GetFuncAdr('glResumeTransformFeedback');
+    private z_ResumeTransformFeedback_ovr_0 := GetFuncOrNil&(z_ResumeTransformFeedback_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResumeTransformFeedback :=
     z_ResumeTransformFeedback_ovr_0;
     
-    private static procedure z_DrawTransformFeedback_ovr_0(mode: PrimitiveType; id: TransformFeedbackName);
-    external 'opengl32.dll' name 'glDrawTransformFeedback';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedback(mode: PrimitiveType; id: TransformFeedbackName) :=
+    private z_DrawTransformFeedback_adr := GetFuncAdr('glDrawTransformFeedback');
+    private z_DrawTransformFeedback_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedback(mode: PrimitiveType; id: gl_transform_feedback) :=
     z_DrawTransformFeedback_ovr_0(mode, id);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedback3ARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedback3ARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_transform_feedback3';
     
-    private static procedure z_DrawTransformFeedbackStream_ovr_0(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32);
-    external 'opengl32.dll' name 'glDrawTransformFeedbackStream';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStream(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32) :=
+    private z_DrawTransformFeedbackStream_adr := GetFuncAdr('glDrawTransformFeedbackStream');
+    private z_DrawTransformFeedbackStream_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStream_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStream(mode: PrimitiveType; id: gl_transform_feedback; stream: UInt32) :=
     z_DrawTransformFeedbackStream_ovr_0(mode, id, stream);
     
-    private static procedure z_BeginQueryIndexed_ovr_0(target: QueryTarget; index: UInt32; id: QueryName);
-    external 'opengl32.dll' name 'glBeginQueryIndexed';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryIndexed(target: QueryTarget; index: UInt32; id: QueryName) :=
+    private z_BeginQueryIndexed_adr := GetFuncAdr('glBeginQueryIndexed');
+    private z_BeginQueryIndexed_ovr_0 := GetFuncOrNil&(z_BeginQueryIndexed_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginQueryIndexed(target: QueryTarget; index: UInt32; id: gl_query) :=
     z_BeginQueryIndexed_ovr_0(target, index, id);
     
-    private static procedure z_EndQueryIndexed_ovr_0(target: QueryTarget; index: UInt32);
-    external 'opengl32.dll' name 'glEndQueryIndexed';
+    private z_EndQueryIndexed_adr := GetFuncAdr('glEndQueryIndexed');
+    private z_EndQueryIndexed_ovr_0 := GetFuncOrNil&(z_EndQueryIndexed_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndQueryIndexed(target: QueryTarget; index: UInt32) :=
     z_EndQueryIndexed_ovr_0(target, index);
     
-    private static procedure z_GetQueryIndexediv_ovr_0(target: QueryTarget; index: UInt32; pname: QueryParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetQueryIndexediv';
-    private static procedure z_GetQueryIndexediv_ovr_0_anh00001(target: QueryTarget; index: UInt32; pname: QueryParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryIndexediv';
+    private z_GetQueryIndexediv_adr := GetFuncAdr('glGetQueryIndexediv');
+    private z_GetQueryIndexediv_ovr_0 := GetFuncOrNil&(z_GetQueryIndexediv_adr);
+    private z_GetQueryIndexediv_ovr_0_anh00001 := GetFuncOrNil&(z_GetQueryIndexediv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryIndexediv(target: QueryTarget; index: UInt32; pname: QueryParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryIndexediv_ovr_0(target, index, pname, ¶ms[0]) else
       z_GetQueryIndexediv_ovr_0_anh00001(target, index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryIndexediv(target: QueryTarget; index: UInt32; pname: QueryParameterName; var ¶ms: Int32) :=
     z_GetQueryIndexediv_ovr_0(target, index, pname, ¶ms);
-    private static procedure z_GetQueryIndexediv_ovr_2(target: QueryTarget; index: UInt32; pname: QueryParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryIndexediv';
+    private z_GetQueryIndexediv_ovr_2 := GetFuncOrNil&(z_GetQueryIndexediv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryIndexediv(target: QueryTarget; index: UInt32; pname: QueryParameterName; ¶ms: IntPtr) :=
     z_GetQueryIndexediv_ovr_2(target, index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedbackInstancedARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedbackInstancedARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_transform_feedback_instanced';
     
-    private static procedure z_DrawTransformFeedbackInstanced_ovr_0(mode: PrimitiveType; id: TransformFeedbackName; instancecount: Int32);
-    external 'opengl32.dll' name 'glDrawTransformFeedbackInstanced';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackInstanced(mode: PrimitiveType; id: TransformFeedbackName; instancecount: Int32) :=
+    private z_DrawTransformFeedbackInstanced_adr := GetFuncAdr('glDrawTransformFeedbackInstanced');
+    private z_DrawTransformFeedbackInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackInstanced_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackInstanced(mode: PrimitiveType; id: gl_transform_feedback; instancecount: Int32) :=
     z_DrawTransformFeedbackInstanced_ovr_0(mode, id, instancecount);
     
-    private static procedure z_DrawTransformFeedbackStreamInstanced_ovr_0(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32; instancecount: Int32);
-    external 'opengl32.dll' name 'glDrawTransformFeedbackStreamInstanced';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStreamInstanced(mode: PrimitiveType; id: TransformFeedbackName; stream: UInt32; instancecount: Int32) :=
+    private z_DrawTransformFeedbackStreamInstanced_adr := GetFuncAdr('glDrawTransformFeedbackStreamInstanced');
+    private z_DrawTransformFeedbackStreamInstanced_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackStreamInstanced_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackStreamInstanced(mode: PrimitiveType; id: gl_transform_feedback; stream: UInt32; instancecount: Int32) :=
     z_DrawTransformFeedbackStreamInstanced_ovr_0(mode, id, stream, instancecount);
     
   end;
   
   [PCUNotRestore]
-  glTransposeMatrixARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransposeMatrixARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_transpose_matrix';
     
-    private static procedure z_LoadTransposeMatrixfARB_ovr_0(var m: single);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixfARB';
-    private static procedure z_LoadTransposeMatrixfARB_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixfARB';
+    private z_LoadTransposeMatrixfARB_adr := GetFuncAdr('glLoadTransposeMatrixfARB');
+    private z_LoadTransposeMatrixfARB_ovr_0 := GetFuncOrNil&(z_LoadTransposeMatrixfARB_adr);
+    private z_LoadTransposeMatrixfARB_ovr_0_anh01 := GetFuncOrNil&(z_LoadTransposeMatrixfARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixfARB(m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_LoadTransposeMatrixfARB_ovr_0(m[0]) else
       z_LoadTransposeMatrixfARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixfARB(var m: single) :=
     z_LoadTransposeMatrixfARB_ovr_0(m);
-    private static procedure z_LoadTransposeMatrixfARB_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixfARB';
+    private z_LoadTransposeMatrixfARB_ovr_2 := GetFuncOrNil&(z_LoadTransposeMatrixfARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixfARB(m: IntPtr) :=
     z_LoadTransposeMatrixfARB_ovr_2(m);
     
-    private static procedure z_LoadTransposeMatrixdARB_ovr_0(var m: real);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixdARB';
-    private static procedure z_LoadTransposeMatrixdARB_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixdARB';
+    private z_LoadTransposeMatrixdARB_adr := GetFuncAdr('glLoadTransposeMatrixdARB');
+    private z_LoadTransposeMatrixdARB_ovr_0 := GetFuncOrNil&(z_LoadTransposeMatrixdARB_adr);
+    private z_LoadTransposeMatrixdARB_ovr_0_anh01 := GetFuncOrNil&(z_LoadTransposeMatrixdARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixdARB(m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_LoadTransposeMatrixdARB_ovr_0(m[0]) else
       z_LoadTransposeMatrixdARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixdARB(var m: real) :=
     z_LoadTransposeMatrixdARB_ovr_0(m);
-    private static procedure z_LoadTransposeMatrixdARB_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixdARB';
+    private z_LoadTransposeMatrixdARB_ovr_2 := GetFuncOrNil&(z_LoadTransposeMatrixdARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixdARB(m: IntPtr) :=
     z_LoadTransposeMatrixdARB_ovr_2(m);
     
-    private static procedure z_MultTransposeMatrixfARB_ovr_0(var m: single);
-    external 'opengl32.dll' name 'glMultTransposeMatrixfARB';
-    private static procedure z_MultTransposeMatrixfARB_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixfARB';
+    private z_MultTransposeMatrixfARB_adr := GetFuncAdr('glMultTransposeMatrixfARB');
+    private z_MultTransposeMatrixfARB_ovr_0 := GetFuncOrNil&(z_MultTransposeMatrixfARB_adr);
+    private z_MultTransposeMatrixfARB_ovr_0_anh01 := GetFuncOrNil&(z_MultTransposeMatrixfARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixfARB(m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MultTransposeMatrixfARB_ovr_0(m[0]) else
       z_MultTransposeMatrixfARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixfARB(var m: single) :=
     z_MultTransposeMatrixfARB_ovr_0(m);
-    private static procedure z_MultTransposeMatrixfARB_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixfARB';
+    private z_MultTransposeMatrixfARB_ovr_2 := GetFuncOrNil&(z_MultTransposeMatrixfARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixfARB(m: IntPtr) :=
     z_MultTransposeMatrixfARB_ovr_2(m);
     
-    private static procedure z_MultTransposeMatrixdARB_ovr_0(var m: real);
-    external 'opengl32.dll' name 'glMultTransposeMatrixdARB';
-    private static procedure z_MultTransposeMatrixdARB_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixdARB';
+    private z_MultTransposeMatrixdARB_adr := GetFuncAdr('glMultTransposeMatrixdARB');
+    private z_MultTransposeMatrixdARB_ovr_0 := GetFuncOrNil&(z_MultTransposeMatrixdARB_adr);
+    private z_MultTransposeMatrixdARB_ovr_0_anh01 := GetFuncOrNil&(z_MultTransposeMatrixdARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixdARB(m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MultTransposeMatrixdARB_ovr_0(m[0]) else
       z_MultTransposeMatrixdARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixdARB(var m: real) :=
     z_MultTransposeMatrixdARB_ovr_0(m);
-    private static procedure z_MultTransposeMatrixdARB_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixdARB';
+    private z_MultTransposeMatrixdARB_ovr_2 := GetFuncOrNil&(z_MultTransposeMatrixdARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixdARB(m: IntPtr) :=
     z_MultTransposeMatrixdARB_ovr_2(m);
     
   end;
   
   [PCUNotRestore]
-  glUniformBufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glUniformBufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_uniform_buffer_object';
     
-    private static procedure z_GetUniformIndices_ovr_0(&program: ProgramName; uniformCount: Int32; var uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_0_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_0_anh00001(&program: ProgramName; uniformCount: Int32; var uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_0_anh00011(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; uniformIndices: array of UInt32);
+    private z_GetUniformIndices_adr := GetFuncAdr('glGetUniformIndices');
+    private z_GetUniformIndices_ovr_0 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_0_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; uniformIndices: array of UInt32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -45114,9 +45268,8 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_GetUniformIndices_ovr_1_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; var uniformIndices: UInt32);
+    private z_GetUniformIndices_ovr_1_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; var uniformIndices: UInt32);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -45128,11 +45281,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_GetUniformIndices_ovr_2(&program: ProgramName; uniformCount: Int32; var uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_2_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of string; uniformIndices: IntPtr);
+    private z_GetUniformIndices_ovr_2 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_2_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of string; uniformIndices: IntPtr);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -45144,11 +45295,9 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_GetUniformIndices_ovr_3_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_3_anh00011(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: array of UInt32) :=
+    private z_GetUniformIndices_ovr_3_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_3_anh00011 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: array of UInt32) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
         z_GetUniformIndices_ovr_0(&program, uniformCount, uniformNames[0], uniformIndices[0]) else
@@ -45156,42 +45305,34 @@ type
       if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
         z_GetUniformIndices_ovr_0_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices[0]) else
         z_GetUniformIndices_ovr_0_anh00011(&program, uniformCount, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetUniformIndices_ovr_4_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; var uniformIndices: UInt32) :=
+    private z_GetUniformIndices_ovr_4_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; var uniformIndices: UInt32) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       z_GetUniformIndices_ovr_0(&program, uniformCount, uniformNames[0], uniformIndices) else
       z_GetUniformIndices_ovr_0_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices);
-    private static procedure z_GetUniformIndices_ovr_5_anh00010(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: IntPtr) :=
+    private z_GetUniformIndices_ovr_5_anh00010 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: array of IntPtr; uniformIndices: IntPtr) :=
     if (uniformNames<>nil) and (uniformNames.Length<>0) then
       z_GetUniformIndices_ovr_2(&program, uniformCount, uniformNames[0], uniformIndices) else
       z_GetUniformIndices_ovr_2_anh00010(&program, uniformCount, IntPtr.Zero, uniformIndices);
-    private static procedure z_GetUniformIndices_ovr_6(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    private static procedure z_GetUniformIndices_ovr_6_anh00001(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: array of UInt32) :=
+    private z_GetUniformIndices_ovr_6 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    private z_GetUniformIndices_ovr_6_anh00001 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: array of UInt32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetUniformIndices_ovr_6(&program, uniformCount, uniformNames, uniformIndices[0]) else
       z_GetUniformIndices_ovr_6_anh00001(&program, uniformCount, uniformNames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; var uniformIndices: UInt32) :=
     z_GetUniformIndices_ovr_6(&program, uniformCount, uniformNames, uniformIndices);
-    private static procedure z_GetUniformIndices_ovr_8(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformIndices';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: ProgramName; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr) :=
+    private z_GetUniformIndices_ovr_8 := GetFuncOrNil&(z_GetUniformIndices_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformIndices(&program: gl_program; uniformCount: Int32; uniformNames: IntPtr; uniformIndices: IntPtr) :=
     z_GetUniformIndices_ovr_8(&program, uniformCount, uniformNames, uniformIndices);
     
-    private static procedure z_GetActiveUniformsiv_ovr_0(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    private static procedure z_GetActiveUniformsiv_ovr_0_anh000100(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    private static procedure z_GetActiveUniformsiv_ovr_0_anh000001(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    private static procedure z_GetActiveUniformsiv_ovr_0_anh000101(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformsiv_adr := GetFuncAdr('glGetActiveUniformsiv');
+    private z_GetActiveUniformsiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_0_anh000101 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: array of Int32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices[0], pname, ¶ms[0]) else
@@ -45199,61 +45340,48 @@ type
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetActiveUniformsiv_ovr_0_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms[0]) else
         z_GetActiveUniformsiv_ovr_0_anh000101(&program, uniformCount, IntPtr.Zero, pname, IntPtr.Zero);
-    private static procedure z_GetActiveUniformsiv_ovr_1_anh000100(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; var ¶ms: Int32) :=
+    private z_GetActiveUniformsiv_ovr_1_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; var ¶ms: Int32) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices[0], pname, ¶ms) else
       z_GetActiveUniformsiv_ovr_0_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms);
-    private static procedure z_GetActiveUniformsiv_ovr_2(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    private static procedure z_GetActiveUniformsiv_ovr_2_anh000100(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformsiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_2_anh000100 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: array of UInt32; pname: UniformPName; ¶ms: IntPtr) :=
     if (uniformIndices<>nil) and (uniformIndices.Length<>0) then
       z_GetActiveUniformsiv_ovr_2(&program, uniformCount, uniformIndices[0], pname, ¶ms) else
       z_GetActiveUniformsiv_ovr_2_anh000100(&program, uniformCount, IntPtr.Zero, pname, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices, pname, ¶ms[0]) else
       z_GetActiveUniformsiv_ovr_0_anh000001(&program, uniformCount, uniformIndices, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; var ¶ms: Int32) :=
     z_GetActiveUniformsiv_ovr_0(&program, uniformCount, uniformIndices, pname, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; var uniformIndices: UInt32; pname: UniformPName; ¶ms: IntPtr) :=
     z_GetActiveUniformsiv_ovr_2(&program, uniformCount, uniformIndices, pname, ¶ms);
-    private static procedure z_GetActiveUniformsiv_ovr_6(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    private static procedure z_GetActiveUniformsiv_ovr_6_anh000001(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformsiv_ovr_6 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    private z_GetActiveUniformsiv_ovr_6_anh000001 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformsiv_ovr_6(&program, uniformCount, uniformIndices, pname, ¶ms[0]) else
       z_GetActiveUniformsiv_ovr_6_anh000001(&program, uniformCount, uniformIndices, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; var ¶ms: Int32) :=
     z_GetActiveUniformsiv_ovr_6(&program, uniformCount, uniformIndices, pname, ¶ms);
-    private static procedure z_GetActiveUniformsiv_ovr_8(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformsiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: UInt32; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformsiv_ovr_8 := GetFuncOrNil&(z_GetActiveUniformsiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformsiv(&program: gl_program; uniformCount: Int32; uniformIndices: IntPtr; pname: UniformPName; ¶ms: IntPtr) :=
     z_GetActiveUniformsiv_ovr_8(&program, uniformCount, uniformIndices, pname, ¶ms);
     
-    private static procedure z_GetActiveUniformName_ovr_0(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; var length: Int32; uniformName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformName';
-    private static procedure z_GetActiveUniformName_ovr_0_anh000010(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: array of Int32; uniformName: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformName_ovr_0(&program, uniformIndex, bufSize, length[0], uniformName) else
-      z_GetActiveUniformName_ovr_0_anh000010(&program, uniformIndex, bufSize, IntPtr.Zero, uniformName);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; var length: Int32; uniformName: IntPtr) :=
+    private z_GetActiveUniformName_adr := GetFuncAdr('glGetActiveUniformName');
+    private z_GetActiveUniformName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: gl_program; uniformIndex: UInt32; bufSize: Int32; var length: Int32; uniformName: IntPtr) :=
     z_GetActiveUniformName_ovr_0(&program, uniformIndex, bufSize, length, uniformName);
-    private static procedure z_GetActiveUniformName_ovr_2(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: UInt32; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr) :=
-    z_GetActiveUniformName_ovr_2(&program, uniformIndex, bufSize, length, uniformName);
+    private z_GetActiveUniformName_ovr_1 := GetFuncOrNil&(z_GetActiveUniformName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformName(&program: gl_program; uniformIndex: UInt32; bufSize: Int32; length: IntPtr; uniformName: IntPtr) :=
+    z_GetActiveUniformName_ovr_1(&program, uniformIndex, bufSize, length, uniformName);
     
-    private static function z_GetUniformBlockIndex_ovr_0(&program: ProgramName; uniformBlockName: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetUniformBlockIndex';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: ProgramName; uniformBlockName: string): UInt32;
+    private z_GetUniformBlockIndex_adr := GetFuncAdr('glGetUniformBlockIndex');
+    private z_GetUniformBlockIndex_ovr_0 := GetFuncOrNil&(z_GetUniformBlockIndex_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: gl_program; uniformBlockName: string): UInt32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -45263,1659 +45391,1452 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: ProgramName; uniformBlockName: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBlockIndex(&program: gl_program; uniformBlockName: IntPtr): UInt32 :=
     z_GetUniformBlockIndex_ovr_0(&program, uniformBlockName);
     
-    private static procedure z_GetActiveUniformBlockiv_ovr_0(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockiv';
-    private static procedure z_GetActiveUniformBlockiv_ovr_0_anh00001(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: array of Int32) :=
+    private z_GetActiveUniformBlockiv_adr := GetFuncAdr('glGetActiveUniformBlockiv');
+    private z_GetActiveUniformBlockiv_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    private z_GetActiveUniformBlockiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetActiveUniformBlockiv_ovr_0(&program, uniformBlockIndex, pname, ¶ms[0]) else
       z_GetActiveUniformBlockiv_ovr_0_anh00001(&program, uniformBlockIndex, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; var ¶ms: Int32) :=
     z_GetActiveUniformBlockiv_ovr_0(&program, uniformBlockIndex, pname, ¶ms);
-    private static procedure z_GetActiveUniformBlockiv_ovr_2(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: UInt32; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr) :=
+    private z_GetActiveUniformBlockiv_ovr_2 := GetFuncOrNil&(z_GetActiveUniformBlockiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockiv(&program: gl_program; uniformBlockIndex: UInt32; pname: UniformBlockPName; ¶ms: IntPtr) :=
     z_GetActiveUniformBlockiv_ovr_2(&program, uniformBlockIndex, pname, ¶ms);
     
-    private static procedure z_GetActiveUniformBlockName_ovr_0(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; var length: Int32; uniformBlockName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockName';
-    private static procedure z_GetActiveUniformBlockName_ovr_0_anh000010(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: array of Int32; uniformBlockName: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveUniformBlockName_ovr_0(&program, uniformBlockIndex, bufSize, length[0], uniformBlockName) else
-      z_GetActiveUniformBlockName_ovr_0_anh000010(&program, uniformBlockIndex, bufSize, IntPtr.Zero, uniformBlockName);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; var length: Int32; uniformBlockName: IntPtr) :=
+    private z_GetActiveUniformBlockName_adr := GetFuncAdr('glGetActiveUniformBlockName');
+    private z_GetActiveUniformBlockName_ovr_0 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: gl_program; uniformBlockIndex: UInt32; bufSize: Int32; var length: Int32; uniformBlockName: IntPtr) :=
     z_GetActiveUniformBlockName_ovr_0(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
-    private static procedure z_GetActiveUniformBlockName_ovr_2(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveUniformBlockName';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: UInt32; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr) :=
-    z_GetActiveUniformBlockName_ovr_2(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
+    private z_GetActiveUniformBlockName_ovr_1 := GetFuncOrNil&(z_GetActiveUniformBlockName_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveUniformBlockName(&program: gl_program; uniformBlockIndex: UInt32; bufSize: Int32; length: IntPtr; uniformBlockName: IntPtr) :=
+    z_GetActiveUniformBlockName_ovr_1(&program, uniformBlockIndex, bufSize, length, uniformBlockName);
     
-    private static procedure z_UniformBlockBinding_ovr_0(&program: ProgramName; uniformBlockIndex: UInt32; uniformBlockBinding: UInt32);
-    external 'opengl32.dll' name 'glUniformBlockBinding';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBlockBinding(&program: ProgramName; uniformBlockIndex: UInt32; uniformBlockBinding: UInt32) :=
+    private z_UniformBlockBinding_adr := GetFuncAdr('glUniformBlockBinding');
+    private z_UniformBlockBinding_ovr_0 := GetFuncOrNil&(z_UniformBlockBinding_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBlockBinding(&program: gl_program; uniformBlockIndex: UInt32; uniformBlockBinding: UInt32) :=
     z_UniformBlockBinding_ovr_0(&program, uniformBlockIndex, uniformBlockBinding);
     
-    private static procedure z_BindBufferRange_ovr_0(target: BufferTargetARB; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glBindBufferRange';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRange(target: BufferTargetARB; index: UInt32; buffer: BufferName; offset: IntPtr; size: IntPtr) :=
+    private z_BindBufferRange_adr := GetFuncAdr('glBindBufferRange');
+    private z_BindBufferRange_ovr_0 := GetFuncOrNil&(z_BindBufferRange_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRange(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_BindBufferRange_ovr_0(target, index, buffer, offset, size);
     
-    private static procedure z_BindBufferBase_ovr_0(target: BufferTargetARB; index: UInt32; buffer: BufferName);
-    external 'opengl32.dll' name 'glBindBufferBase';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBase(target: BufferTargetARB; index: UInt32; buffer: BufferName) :=
+    private z_BindBufferBase_adr := GetFuncAdr('glBindBufferBase');
+    private z_BindBufferBase_ovr_0 := GetFuncOrNil&(z_BindBufferBase_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBase(target: BufferTargetARB; index: UInt32; buffer: gl_buffer) :=
     z_BindBufferBase_ovr_0(target, index, buffer);
     
-    private static procedure z_GetIntegeri_v_ovr_0(target: DummyEnum; index: UInt32; var data: Int32);
-    external 'opengl32.dll' name 'glGetIntegeri_v';
-    private static procedure z_GetIntegeri_v_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegeri_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; data: array of Int32) :=
+    private z_GetIntegeri_v_adr := GetFuncAdr('glGetIntegeri_v');
+    private z_GetIntegeri_v_ovr_0 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    private z_GetIntegeri_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetIntegeri_v_ovr_0(target, index, data[0]) else
       z_GetIntegeri_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; var data: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; var data: Int32) :=
     z_GetIntegeri_v_ovr_0(target, index, data);
-    private static procedure z_GetIntegeri_v_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegeri_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetIntegeri_v_ovr_2 := GetFuncOrNil&(z_GetIntegeri_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegeri_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetIntegeri_v_ovr_2(target, index, data);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_array_object';
     
-    private static procedure z_BindVertexArray_ovr_0(&array: VertexArrayName);
-    external 'opengl32.dll' name 'glBindVertexArray';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArray(&array: VertexArrayName) :=
+    private z_BindVertexArray_adr := GetFuncAdr('glBindVertexArray');
+    private z_BindVertexArray_ovr_0 := GetFuncOrNil&(z_BindVertexArray_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexArray(&array: gl_vertex_array) :=
     z_BindVertexArray_ovr_0(&array);
     
-    private static procedure z_DeleteVertexArrays_ovr_0(n: Int32; var arrays: UInt32);
-    external 'opengl32.dll' name 'glDeleteVertexArrays';
-    private static procedure z_DeleteVertexArrays_ovr_0_anh001(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glDeleteVertexArrays';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: array of UInt32) :=
+    private z_DeleteVertexArrays_adr := GetFuncAdr('glDeleteVertexArrays');
+    private z_DeleteVertexArrays_ovr_0 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
+    private z_DeleteVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_DeleteVertexArrays_ovr_0(n, arrays[0]) else
       z_DeleteVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_DeleteVertexArrays_ovr_0(n, arrays);
-    private static procedure z_DeleteVertexArrays_ovr_2(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glDeleteVertexArrays';
+    private z_DeleteVertexArrays_ovr_2 := GetFuncOrNil&(z_DeleteVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexArrays(n: Int32; arrays: IntPtr) :=
     z_DeleteVertexArrays_ovr_2(n, arrays);
     
-    private static procedure z_GenVertexArrays_ovr_0(n: Int32; var arrays: UInt32);
-    external 'opengl32.dll' name 'glGenVertexArrays';
-    private static procedure z_GenVertexArrays_ovr_0_anh001(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glGenVertexArrays';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: array of UInt32) :=
+    private z_GenVertexArrays_adr := GetFuncAdr('glGenVertexArrays');
+    private z_GenVertexArrays_ovr_0 := GetFuncOrNil&(z_GenVertexArrays_adr);
+    private z_GenVertexArrays_ovr_0_anh001 := GetFuncOrNil&(z_GenVertexArrays_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: array of gl_vertex_array) :=
     if (arrays<>nil) and (arrays.Length<>0) then
       z_GenVertexArrays_ovr_0(n, arrays[0]) else
       z_GenVertexArrays_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; var arrays: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; var arrays: gl_vertex_array) :=
     z_GenVertexArrays_ovr_0(n, arrays);
-    private static procedure z_GenVertexArrays_ovr_2(n: Int32; arrays: IntPtr);
-    external 'opengl32.dll' name 'glGenVertexArrays';
+    private z_GenVertexArrays_ovr_2 := GetFuncOrNil&(z_GenVertexArrays_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenVertexArrays(n: Int32; arrays: IntPtr) :=
     z_GenVertexArrays_ovr_2(n, arrays);
     
-    private static function z_IsVertexArray_ovr_0(&array: VertexArrayName): boolean;
-    external 'opengl32.dll' name 'glIsVertexArray';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArray(&array: VertexArrayName): boolean :=
+    private z_IsVertexArray_adr := GetFuncAdr('glIsVertexArray');
+    private z_IsVertexArray_ovr_0 := GetFuncOrNil&(z_IsVertexArray_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVertexArray(&array: gl_vertex_array): boolean :=
     z_IsVertexArray_ovr_0(&array);
     
   end;
   
   [PCUNotRestore]
-  glVertexAttrib64bitARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexAttrib64bitARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_attrib_64bit';
     
-    private static procedure z_VertexAttribL1d_ovr_0(index: UInt32; x: real);
-    external 'opengl32.dll' name 'glVertexAttribL1d';
+    private z_VertexAttribL1d_adr := GetFuncAdr('glVertexAttribL1d');
+    private z_VertexAttribL1d_ovr_0 := GetFuncOrNil&(z_VertexAttribL1d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1d(index: UInt32; x: real) :=
     z_VertexAttribL1d_ovr_0(index, x);
     
-    private static procedure z_VertexAttribL2d_ovr_0(index: UInt32; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexAttribL2d';
+    private z_VertexAttribL2d_adr := GetFuncAdr('glVertexAttribL2d');
+    private z_VertexAttribL2d_ovr_0 := GetFuncOrNil&(z_VertexAttribL2d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2d(index: UInt32; x: real; y: real) :=
     z_VertexAttribL2d_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribL3d_ovr_0(index: UInt32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexAttribL3d';
+    private z_VertexAttribL3d_adr := GetFuncAdr('glVertexAttribL3d');
+    private z_VertexAttribL3d_ovr_0 := GetFuncOrNil&(z_VertexAttribL3d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3d(index: UInt32; x: real; y: real; z: real) :=
     z_VertexAttribL3d_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribL4d_ovr_0(index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexAttribL4d';
+    private z_VertexAttribL4d_adr := GetFuncAdr('glVertexAttribL4d');
+    private z_VertexAttribL4d_ovr_0 := GetFuncOrNil&(z_VertexAttribL4d_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4d(index: UInt32; x: real; y: real; z: real; w: real) :=
     z_VertexAttribL4d_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribL1dv_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL1dv';
-    private static procedure z_VertexAttribL1dv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1dv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribL1dv_ovr_0(index, v[0]) else
-      z_VertexAttribL1dv_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribL1dv_adr := GetFuncAdr('glVertexAttribL1dv');
+    private z_VertexAttribL1dv_ovr_0 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; var v: real) :=
     z_VertexAttribL1dv_ovr_0(index, v);
-    private static procedure z_VertexAttribL1dv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1dv';
+    private z_VertexAttribL1dv_ovr_1 := GetFuncOrNil&(z_VertexAttribL1dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dv(index: UInt32; v: IntPtr) :=
-    z_VertexAttribL1dv_ovr_2(index, v);
+    z_VertexAttribL1dv_ovr_1(index, v);
     
-    private static procedure z_VertexAttribL2dv_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL2dv';
-    private static procedure z_VertexAttribL2dv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2dv';
+    private z_VertexAttribL2dv_adr := GetFuncAdr('glVertexAttribL2dv');
+    private z_VertexAttribL2dv_ovr_0 := GetFuncOrNil&(z_VertexAttribL2dv_adr);
+    private z_VertexAttribL2dv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dv(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL2dv_ovr_0(index, v[0]) else
       z_VertexAttribL2dv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dv(index: UInt32; var v: real) :=
     z_VertexAttribL2dv_ovr_0(index, v);
-    private static procedure z_VertexAttribL2dv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2dv';
+    private z_VertexAttribL2dv_ovr_2 := GetFuncOrNil&(z_VertexAttribL2dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dv(index: UInt32; v: IntPtr) :=
     z_VertexAttribL2dv_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL3dv_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL3dv';
-    private static procedure z_VertexAttribL3dv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3dv';
+    private z_VertexAttribL3dv_adr := GetFuncAdr('glVertexAttribL3dv');
+    private z_VertexAttribL3dv_ovr_0 := GetFuncOrNil&(z_VertexAttribL3dv_adr);
+    private z_VertexAttribL3dv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dv(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL3dv_ovr_0(index, v[0]) else
       z_VertexAttribL3dv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dv(index: UInt32; var v: real) :=
     z_VertexAttribL3dv_ovr_0(index, v);
-    private static procedure z_VertexAttribL3dv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3dv';
+    private z_VertexAttribL3dv_ovr_2 := GetFuncOrNil&(z_VertexAttribL3dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dv(index: UInt32; v: IntPtr) :=
     z_VertexAttribL3dv_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL4dv_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL4dv';
-    private static procedure z_VertexAttribL4dv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4dv';
+    private z_VertexAttribL4dv_adr := GetFuncAdr('glVertexAttribL4dv');
+    private z_VertexAttribL4dv_ovr_0 := GetFuncOrNil&(z_VertexAttribL4dv_adr);
+    private z_VertexAttribL4dv_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dv(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL4dv_ovr_0(index, v[0]) else
       z_VertexAttribL4dv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dv(index: UInt32; var v: real) :=
     z_VertexAttribL4dv_ovr_0(index, v);
-    private static procedure z_VertexAttribL4dv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4dv';
+    private z_VertexAttribL4dv_ovr_2 := GetFuncOrNil&(z_VertexAttribL4dv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dv(index: UInt32; v: IntPtr) :=
     z_VertexAttribL4dv_ovr_2(index, v);
     
-    private static procedure z_VertexAttribLPointer_ovr_0(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribLPointer';
+    private z_VertexAttribLPointer_adr := GetFuncAdr('glVertexAttribLPointer');
+    private z_VertexAttribLPointer_ovr_0 := GetFuncOrNil&(z_VertexAttribLPointer_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribLPointer(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribLPointer_ovr_0(index, size, &type, stride, pointer);
     
-    private static procedure z_GetVertexAttribLdv_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVertexAttribLdv';
-    private static procedure z_GetVertexAttribLdv_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLdv';
+    private z_GetVertexAttribLdv_adr := GetFuncAdr('glGetVertexAttribLdv');
+    private z_GetVertexAttribLdv_ovr_0 := GetFuncOrNil&(z_GetVertexAttribLdv_adr);
+    private z_GetVertexAttribLdv_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribLdv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdv(index: UInt32; pname: VertexAttribEnum; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribLdv_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribLdv_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdv(index: UInt32; pname: VertexAttribEnum; var ¶ms: real) :=
     z_GetVertexAttribLdv_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribLdv_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLdv';
+    private z_GetVertexAttribLdv_ovr_2 := GetFuncOrNil&(z_GetVertexAttribLdv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdv(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
     z_GetVertexAttribLdv_ovr_2(index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexAttribBindingARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexAttribBindingARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_attrib_binding';
     
-    private static procedure z_BindVertexBuffer_ovr_0(bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32);
-    external 'opengl32.dll' name 'glBindVertexBuffer';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffer(bindingindex: UInt32; buffer: BufferName; offset: IntPtr; stride: Int32) :=
+    private z_BindVertexBuffer_adr := GetFuncAdr('glBindVertexBuffer');
+    private z_BindVertexBuffer_ovr_0 := GetFuncOrNil&(z_BindVertexBuffer_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexBuffer(bindingindex: UInt32; buffer: gl_buffer; offset: IntPtr; stride: Int32) :=
     z_BindVertexBuffer_ovr_0(bindingindex, buffer, offset, stride);
     
-    private static procedure z_VertexAttribFormat_ovr_0(attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribFormat';
+    private z_VertexAttribFormat_adr := GetFuncAdr('glVertexAttribFormat');
+    private z_VertexAttribFormat_ovr_0 := GetFuncOrNil&(z_VertexAttribFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribFormat(attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
     z_VertexAttribFormat_ovr_0(attribindex, size, &type, normalized, relativeoffset);
     
-    private static procedure z_VertexAttribIFormat_ovr_0(attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribIFormat';
+    private z_VertexAttribIFormat_adr := GetFuncAdr('glVertexAttribIFormat');
+    private z_VertexAttribIFormat_ovr_0 := GetFuncOrNil&(z_VertexAttribIFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribIFormat(attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
     z_VertexAttribIFormat_ovr_0(attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexAttribLFormat_ovr_0(attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribLFormat';
+    private z_VertexAttribLFormat_adr := GetFuncAdr('glVertexAttribLFormat');
+    private z_VertexAttribLFormat_ovr_0 := GetFuncOrNil&(z_VertexAttribLFormat_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribLFormat(attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
     z_VertexAttribLFormat_ovr_0(attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexAttribBinding_ovr_0(attribindex: UInt32; bindingindex: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribBinding';
+    private z_VertexAttribBinding_adr := GetFuncAdr('glVertexAttribBinding');
+    private z_VertexAttribBinding_ovr_0 := GetFuncOrNil&(z_VertexAttribBinding_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribBinding(attribindex: UInt32; bindingindex: UInt32) :=
     z_VertexAttribBinding_ovr_0(attribindex, bindingindex);
     
-    private static procedure z_VertexBindingDivisor_ovr_0(bindingindex: UInt32; divisor: UInt32);
-    external 'opengl32.dll' name 'glVertexBindingDivisor';
+    private z_VertexBindingDivisor_adr := GetFuncAdr('glVertexBindingDivisor');
+    private z_VertexBindingDivisor_ovr_0 := GetFuncOrNil&(z_VertexBindingDivisor_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexBindingDivisor(bindingindex: UInt32; divisor: UInt32) :=
     z_VertexBindingDivisor_ovr_0(bindingindex, divisor);
     
   end;
   
   [PCUNotRestore]
-  glVertexBlendARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexBlendARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_blend';
     
-    private static procedure z_WeightbvARB_ovr_0(size: Int32; var weights: SByte);
-    external 'opengl32.dll' name 'glWeightbvARB';
-    private static procedure z_WeightbvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightbvARB';
+    private z_WeightbvARB_adr := GetFuncAdr('glWeightbvARB');
+    private z_WeightbvARB_ovr_0 := GetFuncOrNil&(z_WeightbvARB_adr);
+    private z_WeightbvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightbvARB(size: Int32; weights: array of SByte) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightbvARB_ovr_0(size, weights[0]) else
       z_WeightbvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightbvARB(size: Int32; var weights: SByte) :=
     z_WeightbvARB_ovr_0(size, weights);
-    private static procedure z_WeightbvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightbvARB';
+    private z_WeightbvARB_ovr_2 := GetFuncOrNil&(z_WeightbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightbvARB(size: Int32; weights: IntPtr) :=
     z_WeightbvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightsvARB_ovr_0(size: Int32; var weights: Int16);
-    external 'opengl32.dll' name 'glWeightsvARB';
-    private static procedure z_WeightsvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightsvARB';
+    private z_WeightsvARB_adr := GetFuncAdr('glWeightsvARB');
+    private z_WeightsvARB_ovr_0 := GetFuncOrNil&(z_WeightsvARB_adr);
+    private z_WeightsvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightsvARB(size: Int32; weights: array of Int16) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightsvARB_ovr_0(size, weights[0]) else
       z_WeightsvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightsvARB(size: Int32; var weights: Int16) :=
     z_WeightsvARB_ovr_0(size, weights);
-    private static procedure z_WeightsvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightsvARB';
+    private z_WeightsvARB_ovr_2 := GetFuncOrNil&(z_WeightsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightsvARB(size: Int32; weights: IntPtr) :=
     z_WeightsvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightivARB_ovr_0(size: Int32; var weights: Int32);
-    external 'opengl32.dll' name 'glWeightivARB';
-    private static procedure z_WeightivARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightivARB';
+    private z_WeightivARB_adr := GetFuncAdr('glWeightivARB');
+    private z_WeightivARB_ovr_0 := GetFuncOrNil&(z_WeightivARB_adr);
+    private z_WeightivARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightivARB(size: Int32; weights: array of Int32) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightivARB_ovr_0(size, weights[0]) else
       z_WeightivARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightivARB(size: Int32; var weights: Int32) :=
     z_WeightivARB_ovr_0(size, weights);
-    private static procedure z_WeightivARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightivARB';
+    private z_WeightivARB_ovr_2 := GetFuncOrNil&(z_WeightivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightivARB(size: Int32; weights: IntPtr) :=
     z_WeightivARB_ovr_2(size, weights);
     
-    private static procedure z_WeightfvARB_ovr_0(size: Int32; var weights: single);
-    external 'opengl32.dll' name 'glWeightfvARB';
-    private static procedure z_WeightfvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightfvARB';
+    private z_WeightfvARB_adr := GetFuncAdr('glWeightfvARB');
+    private z_WeightfvARB_ovr_0 := GetFuncOrNil&(z_WeightfvARB_adr);
+    private z_WeightfvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightfvARB(size: Int32; weights: array of single) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightfvARB_ovr_0(size, weights[0]) else
       z_WeightfvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightfvARB(size: Int32; var weights: single) :=
     z_WeightfvARB_ovr_0(size, weights);
-    private static procedure z_WeightfvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightfvARB';
+    private z_WeightfvARB_ovr_2 := GetFuncOrNil&(z_WeightfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightfvARB(size: Int32; weights: IntPtr) :=
     z_WeightfvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightdvARB_ovr_0(size: Int32; var weights: real);
-    external 'opengl32.dll' name 'glWeightdvARB';
-    private static procedure z_WeightdvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightdvARB';
+    private z_WeightdvARB_adr := GetFuncAdr('glWeightdvARB');
+    private z_WeightdvARB_ovr_0 := GetFuncOrNil&(z_WeightdvARB_adr);
+    private z_WeightdvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightdvARB(size: Int32; weights: array of real) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightdvARB_ovr_0(size, weights[0]) else
       z_WeightdvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightdvARB(size: Int32; var weights: real) :=
     z_WeightdvARB_ovr_0(size, weights);
-    private static procedure z_WeightdvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightdvARB';
+    private z_WeightdvARB_ovr_2 := GetFuncOrNil&(z_WeightdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightdvARB(size: Int32; weights: IntPtr) :=
     z_WeightdvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightubvARB_ovr_0(size: Int32; var weights: Byte);
-    external 'opengl32.dll' name 'glWeightubvARB';
-    private static procedure z_WeightubvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightubvARB';
+    private z_WeightubvARB_adr := GetFuncAdr('glWeightubvARB');
+    private z_WeightubvARB_ovr_0 := GetFuncOrNil&(z_WeightubvARB_adr);
+    private z_WeightubvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightubvARB(size: Int32; weights: array of Byte) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightubvARB_ovr_0(size, weights[0]) else
       z_WeightubvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightubvARB(size: Int32; var weights: Byte) :=
     z_WeightubvARB_ovr_0(size, weights);
-    private static procedure z_WeightubvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightubvARB';
+    private z_WeightubvARB_ovr_2 := GetFuncOrNil&(z_WeightubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightubvARB(size: Int32; weights: IntPtr) :=
     z_WeightubvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightusvARB_ovr_0(size: Int32; var weights: UInt16);
-    external 'opengl32.dll' name 'glWeightusvARB';
-    private static procedure z_WeightusvARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightusvARB';
+    private z_WeightusvARB_adr := GetFuncAdr('glWeightusvARB');
+    private z_WeightusvARB_ovr_0 := GetFuncOrNil&(z_WeightusvARB_adr);
+    private z_WeightusvARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightusvARB(size: Int32; weights: array of UInt16) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightusvARB_ovr_0(size, weights[0]) else
       z_WeightusvARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightusvARB(size: Int32; var weights: UInt16) :=
     z_WeightusvARB_ovr_0(size, weights);
-    private static procedure z_WeightusvARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightusvARB';
+    private z_WeightusvARB_ovr_2 := GetFuncOrNil&(z_WeightusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightusvARB(size: Int32; weights: IntPtr) :=
     z_WeightusvARB_ovr_2(size, weights);
     
-    private static procedure z_WeightuivARB_ovr_0(size: Int32; var weights: UInt32);
-    external 'opengl32.dll' name 'glWeightuivARB';
-    private static procedure z_WeightuivARB_ovr_0_anh001(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightuivARB';
+    private z_WeightuivARB_adr := GetFuncAdr('glWeightuivARB');
+    private z_WeightuivARB_ovr_0 := GetFuncOrNil&(z_WeightuivARB_adr);
+    private z_WeightuivARB_ovr_0_anh001 := GetFuncOrNil&(z_WeightuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightuivARB(size: Int32; weights: array of UInt32) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightuivARB_ovr_0(size, weights[0]) else
       z_WeightuivARB_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightuivARB(size: Int32; var weights: UInt32) :=
     z_WeightuivARB_ovr_0(size, weights);
-    private static procedure z_WeightuivARB_ovr_2(size: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightuivARB';
+    private z_WeightuivARB_ovr_2 := GetFuncOrNil&(z_WeightuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightuivARB(size: Int32; weights: IntPtr) :=
     z_WeightuivARB_ovr_2(size, weights);
     
-    private static procedure z_WeightPointerARB_ovr_0(size: Int32; &type: WeightPointerTypeARB; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glWeightPointerARB';
+    private z_WeightPointerARB_adr := GetFuncAdr('glWeightPointerARB');
+    private z_WeightPointerARB_ovr_0 := GetFuncOrNil&(z_WeightPointerARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPointerARB(size: Int32; &type: WeightPointerTypeARB; stride: Int32; pointer: IntPtr) :=
     z_WeightPointerARB_ovr_0(size, &type, stride, pointer);
     
-    private static procedure z_VertexBlendARB_ovr_0(count: Int32);
-    external 'opengl32.dll' name 'glVertexBlendARB';
+    private z_VertexBlendARB_adr := GetFuncAdr('glVertexBlendARB');
+    private z_VertexBlendARB_ovr_0 := GetFuncOrNil&(z_VertexBlendARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexBlendARB(count: Int32) :=
     z_VertexBlendARB_ovr_0(count);
     
   end;
   
   [PCUNotRestore]
-  glVertexBufferObjectARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexBufferObjectARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_buffer_object';
     
-    private static procedure z_BindBufferARB_ovr_0(target: BufferTargetARB; buffer: UInt32);
-    external 'opengl32.dll' name 'glBindBufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferARB(target: BufferTargetARB; buffer: UInt32) :=
+    private z_BindBufferARB_adr := GetFuncAdr('glBindBufferARB');
+    private z_BindBufferARB_ovr_0 := GetFuncOrNil&(z_BindBufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferARB(target: BufferTargetARB; buffer: gl_buffer) :=
     z_BindBufferARB_ovr_0(target, buffer);
     
-    private static procedure z_DeleteBuffersARB_ovr_0(n: Int32; var buffers: UInt32);
-    external 'opengl32.dll' name 'glDeleteBuffersARB';
-    private static procedure z_DeleteBuffersARB_ovr_0_anh001(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteBuffersARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffersARB(n: Int32; buffers: array of UInt32) :=
+    private z_DeleteBuffersARB_adr := GetFuncAdr('glDeleteBuffersARB');
+    private z_DeleteBuffersARB_ovr_0 := GetFuncOrNil&(z_DeleteBuffersARB_adr);
+    private z_DeleteBuffersARB_ovr_0_anh001 := GetFuncOrNil&(z_DeleteBuffersARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffersARB(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_DeleteBuffersARB_ovr_0(n, buffers[0]) else
       z_DeleteBuffersARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffersARB(n: Int32; var buffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffersARB(n: Int32; var buffers: gl_buffer) :=
     z_DeleteBuffersARB_ovr_0(n, buffers);
-    private static procedure z_DeleteBuffersARB_ovr_2(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteBuffersARB';
+    private z_DeleteBuffersARB_ovr_2 := GetFuncOrNil&(z_DeleteBuffersARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBuffersARB(n: Int32; buffers: IntPtr) :=
     z_DeleteBuffersARB_ovr_2(n, buffers);
     
-    private static procedure z_GenBuffersARB_ovr_0(n: Int32; var buffers: UInt32);
-    external 'opengl32.dll' name 'glGenBuffersARB';
-    private static procedure z_GenBuffersARB_ovr_0_anh001(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glGenBuffersARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffersARB(n: Int32; buffers: array of UInt32) :=
+    private z_GenBuffersARB_adr := GetFuncAdr('glGenBuffersARB');
+    private z_GenBuffersARB_ovr_0 := GetFuncOrNil&(z_GenBuffersARB_adr);
+    private z_GenBuffersARB_ovr_0_anh001 := GetFuncOrNil&(z_GenBuffersARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffersARB(n: Int32; buffers: array of gl_buffer) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_GenBuffersARB_ovr_0(n, buffers[0]) else
       z_GenBuffersARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffersARB(n: Int32; var buffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffersARB(n: Int32; var buffers: gl_buffer) :=
     z_GenBuffersARB_ovr_0(n, buffers);
-    private static procedure z_GenBuffersARB_ovr_2(n: Int32; buffers: IntPtr);
-    external 'opengl32.dll' name 'glGenBuffersARB';
+    private z_GenBuffersARB_ovr_2 := GetFuncOrNil&(z_GenBuffersARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenBuffersARB(n: Int32; buffers: IntPtr) :=
     z_GenBuffersARB_ovr_2(n, buffers);
     
-    private static function z_IsBufferARB_ovr_0(buffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsBufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsBufferARB(buffer: UInt32): boolean :=
+    private z_IsBufferARB_adr := GetFuncAdr('glIsBufferARB');
+    private z_IsBufferARB_ovr_0 := GetFuncOrNil&(z_IsBufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsBufferARB(buffer: gl_buffer): boolean :=
     z_IsBufferARB_ovr_0(buffer);
     
-    private static procedure z_BufferDataARB_ovr_0(target: BufferTargetARB; size: IntPtr; data: IntPtr; usage: BufferUsageARB);
-    external 'opengl32.dll' name 'glBufferDataARB';
+    private z_BufferDataARB_adr := GetFuncAdr('glBufferDataARB');
+    private z_BufferDataARB_ovr_0 := GetFuncOrNil&(z_BufferDataARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferDataARB(target: BufferTargetARB; size: IntPtr; data: IntPtr; usage: BufferUsageARB) :=
     z_BufferDataARB_ovr_0(target, size, data, usage);
     
-    private static procedure z_BufferSubDataARB_ovr_0(target: BufferTargetARB; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glBufferSubDataARB';
+    private z_BufferSubDataARB_adr := GetFuncAdr('glBufferSubDataARB');
+    private z_BufferSubDataARB_ovr_0 := GetFuncOrNil&(z_BufferSubDataARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferSubDataARB(target: BufferTargetARB; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_BufferSubDataARB_ovr_0(target, offset, size, data);
     
-    private static procedure z_GetBufferSubDataARB_ovr_0(target: BufferTargetARB; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferSubDataARB';
+    private z_GetBufferSubDataARB_adr := GetFuncAdr('glGetBufferSubDataARB');
+    private z_GetBufferSubDataARB_ovr_0 := GetFuncOrNil&(z_GetBufferSubDataARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferSubDataARB(target: BufferTargetARB; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_GetBufferSubDataARB_ovr_0(target, offset, size, data);
     
-    private static function z_MapBufferARB_ovr_0(target: BufferTargetARB; access: BufferAccessARB): IntPtr;
-    external 'opengl32.dll' name 'glMapBufferARB';
+    private z_MapBufferARB_adr := GetFuncAdr('glMapBufferARB');
+    private z_MapBufferARB_ovr_0 := GetFuncOrNil&(z_MapBufferARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapBufferARB(target: BufferTargetARB; access: BufferAccessARB): IntPtr :=
     z_MapBufferARB_ovr_0(target, access);
     
-    private static function z_UnmapBufferARB_ovr_0(target: BufferTargetARB): boolean;
-    external 'opengl32.dll' name 'glUnmapBufferARB';
+    private z_UnmapBufferARB_adr := GetFuncAdr('glUnmapBufferARB');
+    private z_UnmapBufferARB_ovr_0 := GetFuncOrNil&(z_UnmapBufferARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapBufferARB(target: BufferTargetARB): boolean :=
     z_UnmapBufferARB_ovr_0(target);
     
-    private static procedure z_GetBufferParameterivARB_ovr_0(target: BufferTargetARB; pname: BufferPNameARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetBufferParameterivARB';
-    private static procedure z_GetBufferParameterivARB_ovr_0_anh0001(target: BufferTargetARB; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferParameterivARB';
+    private z_GetBufferParameterivARB_adr := GetFuncAdr('glGetBufferParameterivARB');
+    private z_GetBufferParameterivARB_ovr_0 := GetFuncOrNil&(z_GetBufferParameterivARB_adr);
+    private z_GetBufferParameterivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetBufferParameterivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterivARB(target: BufferTargetARB; pname: BufferPNameARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetBufferParameterivARB_ovr_0(target, pname, ¶ms[0]) else
       z_GetBufferParameterivARB_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterivARB(target: BufferTargetARB; pname: BufferPNameARB; var ¶ms: Int32) :=
     z_GetBufferParameterivARB_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetBufferParameterivARB_ovr_2(target: BufferTargetARB; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferParameterivARB';
+    private z_GetBufferParameterivARB_ovr_2 := GetFuncOrNil&(z_GetBufferParameterivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterivARB(target: BufferTargetARB; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetBufferParameterivARB_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetBufferPointervARB_ovr_0(target: BufferTargetARB; pname: BufferPointerNameARB; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferPointervARB';
-    private static procedure z_GetBufferPointervARB_ovr_0_anh0001(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferPointervARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointervARB(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetBufferPointervARB_ovr_0(target, pname, ¶ms[0]) else
-      z_GetBufferPointervARB_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_GetBufferPointervARB_adr := GetFuncAdr('glGetBufferPointervARB');
+    private z_GetBufferPointervARB_ovr_0 := GetFuncOrNil&(z_GetBufferPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointervARB(target: BufferTargetARB; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
     z_GetBufferPointervARB_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetBufferPointervARB_ovr_2(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetBufferPointervARB';
+    private z_GetBufferPointervARB_ovr_1 := GetFuncOrNil&(z_GetBufferPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferPointervARB(target: BufferTargetARB; pname: BufferPointerNameARB; ¶ms: pointer) :=
-    z_GetBufferPointervARB_ovr_2(target, pname, ¶ms);
+    z_GetBufferPointervARB_ovr_1(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexProgramARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexProgramARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_program';
     
-    private static procedure z_VertexAttrib1dARB_ovr_0(index: UInt32; x: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dARB';
+    private z_VertexAttrib1dARB_adr := GetFuncAdr('glVertexAttrib1dARB');
+    private z_VertexAttrib1dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dARB(index: UInt32; x: real) :=
     z_VertexAttrib1dARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
-    private static procedure z_VertexAttrib1dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1dvARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1dvARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1dvARB_adr := GetFuncAdr('glVertexAttrib1dvARB');
+    private z_VertexAttrib1dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib1dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
+    private z_VertexAttrib1dvARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1dvARB_ovr_2(index, v);
+    z_VertexAttrib1dvARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1fARB_ovr_0(index: UInt32; x: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fARB';
+    private z_VertexAttrib1fARB_adr := GetFuncAdr('glVertexAttrib1fARB');
+    private z_VertexAttrib1fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fARB(index: UInt32; x: single) :=
     z_VertexAttrib1fARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
-    private static procedure z_VertexAttrib1fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1fvARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1fvARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1fvARB_adr := GetFuncAdr('glVertexAttrib1fvARB');
+    private z_VertexAttrib1fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib1fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
+    private z_VertexAttrib1fvARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1fvARB_ovr_2(index, v);
+    z_VertexAttrib1fvARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1sARB_ovr_0(index: UInt32; x: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1sARB';
+    private z_VertexAttrib1sARB_adr := GetFuncAdr('glVertexAttrib1sARB');
+    private z_VertexAttrib1sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sARB(index: UInt32; x: Int16) :=
     z_VertexAttrib1sARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
-    private static procedure z_VertexAttrib1svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1svARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1svARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1svARB_adr := GetFuncAdr('glVertexAttrib1svARB');
+    private z_VertexAttrib1svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib1svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
+    private z_VertexAttrib1svARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1svARB_ovr_2(index, v);
+    z_VertexAttrib1svARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib2dARB_ovr_0(index: UInt32; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dARB';
+    private z_VertexAttrib2dARB_adr := GetFuncAdr('glVertexAttrib2dARB');
+    private z_VertexAttrib2dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dARB(index: UInt32; x: real; y: real) :=
     z_VertexAttrib2dARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
-    private static procedure z_VertexAttrib2dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
+    private z_VertexAttrib2dvARB_adr := GetFuncAdr('glVertexAttrib2dvARB');
+    private z_VertexAttrib2dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
+    private z_VertexAttrib2dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib2dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib2dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
+    private z_VertexAttrib2dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2fARB_ovr_0(index: UInt32; x: single; y: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fARB';
+    private z_VertexAttrib2fARB_adr := GetFuncAdr('glVertexAttrib2fARB');
+    private z_VertexAttrib2fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fARB(index: UInt32; x: single; y: single) :=
     z_VertexAttrib2fARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
-    private static procedure z_VertexAttrib2fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
+    private z_VertexAttrib2fvARB_adr := GetFuncAdr('glVertexAttrib2fvARB');
+    private z_VertexAttrib2fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
+    private z_VertexAttrib2fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib2fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib2fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
+    private z_VertexAttrib2fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2sARB_ovr_0(index: UInt32; x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2sARB';
+    private z_VertexAttrib2sARB_adr := GetFuncAdr('glVertexAttrib2sARB');
+    private z_VertexAttrib2sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2sARB(index: UInt32; x: Int16; y: Int16) :=
     z_VertexAttrib2sARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
-    private static procedure z_VertexAttrib2svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
+    private z_VertexAttrib2svARB_adr := GetFuncAdr('glVertexAttrib2svARB');
+    private z_VertexAttrib2svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
+    private z_VertexAttrib2svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2svARB_ovr_0(index, v[0]) else
       z_VertexAttrib2svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib2svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
+    private z_VertexAttrib2svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3dARB_ovr_0(index: UInt32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dARB';
+    private z_VertexAttrib3dARB_adr := GetFuncAdr('glVertexAttrib3dARB');
+    private z_VertexAttrib3dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dARB(index: UInt32; x: real; y: real; z: real) :=
     z_VertexAttrib3dARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
-    private static procedure z_VertexAttrib3dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
+    private z_VertexAttrib3dvARB_adr := GetFuncAdr('glVertexAttrib3dvARB');
+    private z_VertexAttrib3dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
+    private z_VertexAttrib3dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib3dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib3dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
+    private z_VertexAttrib3dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3fARB_ovr_0(index: UInt32; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fARB';
+    private z_VertexAttrib3fARB_adr := GetFuncAdr('glVertexAttrib3fARB');
+    private z_VertexAttrib3fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fARB(index: UInt32; x: single; y: single; z: single) :=
     z_VertexAttrib3fARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
-    private static procedure z_VertexAttrib3fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
+    private z_VertexAttrib3fvARB_adr := GetFuncAdr('glVertexAttrib3fvARB');
+    private z_VertexAttrib3fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
+    private z_VertexAttrib3fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib3fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib3fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
+    private z_VertexAttrib3fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3sARB_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3sARB';
+    private z_VertexAttrib3sARB_adr := GetFuncAdr('glVertexAttrib3sARB');
+    private z_VertexAttrib3sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3sARB(index: UInt32; x: Int16; y: Int16; z: Int16) :=
     z_VertexAttrib3sARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
-    private static procedure z_VertexAttrib3svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
+    private z_VertexAttrib3svARB_adr := GetFuncAdr('glVertexAttrib3svARB');
+    private z_VertexAttrib3svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
+    private z_VertexAttrib3svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3svARB_ovr_0(index, v[0]) else
       z_VertexAttrib3svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib3svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
+    private z_VertexAttrib3svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NbvARB_ovr_0(index: UInt32; var v: SByte);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
-    private static procedure z_VertexAttrib4NbvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
+    private z_VertexAttrib4NbvARB_adr := GetFuncAdr('glVertexAttrib4NbvARB');
+    private z_VertexAttrib4NbvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
+    private z_VertexAttrib4NbvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NbvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NbvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; var v: SByte) :=
     z_VertexAttrib4NbvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NbvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
+    private z_VertexAttrib4NbvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NbvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NivARB_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
-    private static procedure z_VertexAttrib4NivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
+    private z_VertexAttrib4NivARB_adr := GetFuncAdr('glVertexAttrib4NivARB');
+    private z_VertexAttrib4NivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
+    private z_VertexAttrib4NivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; var v: Int32) :=
     z_VertexAttrib4NivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
+    private z_VertexAttrib4NivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NsvARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
-    private static procedure z_VertexAttrib4NsvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
+    private z_VertexAttrib4NsvARB_adr := GetFuncAdr('glVertexAttrib4NsvARB');
+    private z_VertexAttrib4NsvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
+    private z_VertexAttrib4NsvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NsvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NsvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib4NsvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NsvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
+    private z_VertexAttrib4NsvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NsvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NubARB_ovr_0(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4NubARB';
+    private z_VertexAttrib4NubARB_adr := GetFuncAdr('glVertexAttrib4NubARB');
+    private z_VertexAttrib4NubARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NubARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubARB(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte) :=
     z_VertexAttrib4NubARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4NubvARB_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
-    private static procedure z_VertexAttrib4NubvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
+    private z_VertexAttrib4NubvARB_adr := GetFuncAdr('glVertexAttrib4NubvARB');
+    private z_VertexAttrib4NubvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
+    private z_VertexAttrib4NubvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NubvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NubvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; var v: Byte) :=
     z_VertexAttrib4NubvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NubvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
+    private z_VertexAttrib4NubvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NubvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NuivARB_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
-    private static procedure z_VertexAttrib4NuivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
+    private z_VertexAttrib4NuivARB_adr := GetFuncAdr('glVertexAttrib4NuivARB');
+    private z_VertexAttrib4NuivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
+    private z_VertexAttrib4NuivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NuivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NuivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; var v: UInt32) :=
     z_VertexAttrib4NuivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NuivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
+    private z_VertexAttrib4NuivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NuivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NusvARB_ovr_0(index: UInt32; var v: UInt16);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
-    private static procedure z_VertexAttrib4NusvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
+    private z_VertexAttrib4NusvARB_adr := GetFuncAdr('glVertexAttrib4NusvARB');
+    private z_VertexAttrib4NusvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
+    private z_VertexAttrib4NusvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NusvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NusvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; var v: UInt16) :=
     z_VertexAttrib4NusvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NusvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
+    private z_VertexAttrib4NusvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NusvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4bvARB_ovr_0(index: UInt32; var v: SByte);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
-    private static procedure z_VertexAttrib4bvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
+    private z_VertexAttrib4bvARB_adr := GetFuncAdr('glVertexAttrib4bvARB');
+    private z_VertexAttrib4bvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
+    private z_VertexAttrib4bvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4bvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4bvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; var v: SByte) :=
     z_VertexAttrib4bvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4bvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
+    private z_VertexAttrib4bvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4bvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4dARB_ovr_0(index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dARB';
+    private z_VertexAttrib4dARB_adr := GetFuncAdr('glVertexAttrib4dARB');
+    private z_VertexAttrib4dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dARB(index: UInt32; x: real; y: real; z: real; w: real) :=
     z_VertexAttrib4dARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
-    private static procedure z_VertexAttrib4dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
+    private z_VertexAttrib4dvARB_adr := GetFuncAdr('glVertexAttrib4dvARB');
+    private z_VertexAttrib4dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
+    private z_VertexAttrib4dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib4dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
+    private z_VertexAttrib4dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4fARB_ovr_0(index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fARB';
+    private z_VertexAttrib4fARB_adr := GetFuncAdr('glVertexAttrib4fARB');
+    private z_VertexAttrib4fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fARB(index: UInt32; x: single; y: single; z: single; w: single) :=
     z_VertexAttrib4fARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
-    private static procedure z_VertexAttrib4fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
+    private z_VertexAttrib4fvARB_adr := GetFuncAdr('glVertexAttrib4fvARB');
+    private z_VertexAttrib4fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
+    private z_VertexAttrib4fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib4fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
+    private z_VertexAttrib4fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4ivARB_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
-    private static procedure z_VertexAttrib4ivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
+    private z_VertexAttrib4ivARB_adr := GetFuncAdr('glVertexAttrib4ivARB');
+    private z_VertexAttrib4ivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
+    private z_VertexAttrib4ivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4ivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4ivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; var v: Int32) :=
     z_VertexAttrib4ivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4ivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
+    private z_VertexAttrib4ivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4ivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4sARB_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4sARB';
+    private z_VertexAttrib4sARB_adr := GetFuncAdr('glVertexAttrib4sARB');
+    private z_VertexAttrib4sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4sARB(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16) :=
     z_VertexAttrib4sARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
-    private static procedure z_VertexAttrib4svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
+    private z_VertexAttrib4svARB_adr := GetFuncAdr('glVertexAttrib4svARB');
+    private z_VertexAttrib4svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
+    private z_VertexAttrib4svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4svARB_ovr_0(index, v[0]) else
       z_VertexAttrib4svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib4svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
+    private z_VertexAttrib4svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4ubvARB_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
-    private static procedure z_VertexAttrib4ubvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
+    private z_VertexAttrib4ubvARB_adr := GetFuncAdr('glVertexAttrib4ubvARB');
+    private z_VertexAttrib4ubvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
+    private z_VertexAttrib4ubvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4ubvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4ubvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; var v: Byte) :=
     z_VertexAttrib4ubvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4ubvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
+    private z_VertexAttrib4ubvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4ubvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4uivARB_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
-    private static procedure z_VertexAttrib4uivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
+    private z_VertexAttrib4uivARB_adr := GetFuncAdr('glVertexAttrib4uivARB');
+    private z_VertexAttrib4uivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
+    private z_VertexAttrib4uivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4uivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4uivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; var v: UInt32) :=
     z_VertexAttrib4uivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4uivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
+    private z_VertexAttrib4uivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4uivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4usvARB_ovr_0(index: UInt32; var v: UInt16);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
-    private static procedure z_VertexAttrib4usvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
+    private z_VertexAttrib4usvARB_adr := GetFuncAdr('glVertexAttrib4usvARB');
+    private z_VertexAttrib4usvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
+    private z_VertexAttrib4usvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4usvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4usvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; var v: UInt16) :=
     z_VertexAttrib4usvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4usvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
+    private z_VertexAttrib4usvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4usvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttribPointerARB_ovr_0(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribPointerARB';
+    private z_VertexAttribPointerARB_adr := GetFuncAdr('glVertexAttribPointerARB');
+    private z_VertexAttribPointerARB_ovr_0 := GetFuncOrNil&(z_VertexAttribPointerARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribPointerARB(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribPointerARB_ovr_0(index, size, &type, normalized, stride, pointer);
     
-    private static procedure z_EnableVertexAttribArrayARB_ovr_0(index: UInt32);
-    external 'opengl32.dll' name 'glEnableVertexAttribArrayARB';
+    private z_EnableVertexAttribArrayARB_adr := GetFuncAdr('glEnableVertexAttribArrayARB');
+    private z_EnableVertexAttribArrayARB_ovr_0 := GetFuncOrNil&(z_EnableVertexAttribArrayARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexAttribArrayARB(index: UInt32) :=
     z_EnableVertexAttribArrayARB_ovr_0(index);
     
-    private static procedure z_DisableVertexAttribArrayARB_ovr_0(index: UInt32);
-    external 'opengl32.dll' name 'glDisableVertexAttribArrayARB';
+    private z_DisableVertexAttribArrayARB_adr := GetFuncAdr('glDisableVertexAttribArrayARB');
+    private z_DisableVertexAttribArrayARB_ovr_0 := GetFuncOrNil&(z_DisableVertexAttribArrayARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexAttribArrayARB(index: UInt32) :=
     z_DisableVertexAttribArrayARB_ovr_0(index);
     
-    private static procedure z_ProgramStringARB_ovr_0(target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr);
-    external 'opengl32.dll' name 'glProgramStringARB';
+    private z_ProgramStringARB_adr := GetFuncAdr('glProgramStringARB');
+    private z_ProgramStringARB_ovr_0 := GetFuncOrNil&(z_ProgramStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramStringARB(target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr) :=
     z_ProgramStringARB_ovr_0(target, format, len, string);
     
-    private static procedure z_BindProgramARB_ovr_0(target: ProgramTarget; &program: UInt32);
-    external 'opengl32.dll' name 'glBindProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramARB(target: ProgramTarget; &program: UInt32) :=
+    private z_BindProgramARB_adr := GetFuncAdr('glBindProgramARB');
+    private z_BindProgramARB_ovr_0 := GetFuncOrNil&(z_BindProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramARB(target: ProgramTarget; &program: gl_program) :=
     z_BindProgramARB_ovr_0(target, &program);
     
-    private static procedure z_DeleteProgramsARB_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
-    private static procedure z_DeleteProgramsARB_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: array of UInt32) :=
+    private z_DeleteProgramsARB_adr := GetFuncAdr('glDeleteProgramsARB');
+    private z_DeleteProgramsARB_ovr_0 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
+    private z_DeleteProgramsARB_ovr_0_anh001 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_DeleteProgramsARB_ovr_0(n, programs[0]) else
       z_DeleteProgramsARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; var programs: gl_program) :=
     z_DeleteProgramsARB_ovr_0(n, programs);
-    private static procedure z_DeleteProgramsARB_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsARB';
+    private z_DeleteProgramsARB_ovr_2 := GetFuncOrNil&(z_DeleteProgramsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsARB(n: Int32; programs: IntPtr) :=
     z_DeleteProgramsARB_ovr_2(n, programs);
     
-    private static procedure z_GenProgramsARB_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glGenProgramsARB';
-    private static procedure z_GenProgramsARB_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: array of UInt32) :=
+    private z_GenProgramsARB_adr := GetFuncAdr('glGenProgramsARB');
+    private z_GenProgramsARB_ovr_0 := GetFuncOrNil&(z_GenProgramsARB_adr);
+    private z_GenProgramsARB_ovr_0_anh001 := GetFuncOrNil&(z_GenProgramsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_GenProgramsARB_ovr_0(n, programs[0]) else
       z_GenProgramsARB_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; var programs: gl_program) :=
     z_GenProgramsARB_ovr_0(n, programs);
-    private static procedure z_GenProgramsARB_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsARB';
+    private z_GenProgramsARB_ovr_2 := GetFuncOrNil&(z_GenProgramsARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsARB(n: Int32; programs: IntPtr) :=
     z_GenProgramsARB_ovr_2(n, programs);
     
-    private static procedure z_ProgramEnvParameter4dARB_ovr_0(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dARB';
+    private z_ProgramEnvParameter4dARB_adr := GetFuncAdr('glProgramEnvParameter4dARB');
+    private z_ProgramEnvParameter4dARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dARB(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_ProgramEnvParameter4dARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
+    private z_ProgramEnvParameter4dvARB_adr := GetFuncAdr('glProgramEnvParameter4dvARB');
+    private z_ProgramEnvParameter4dvARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
+    private z_ProgramEnvParameter4dvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameter4dvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameter4dvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_ProgramEnvParameter4dvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameter4dvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4dvARB';
+    private z_ProgramEnvParameter4dvARB_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameter4dvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramEnvParameter4fARB_ovr_0(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fARB';
+    private z_ProgramEnvParameter4fARB_adr := GetFuncAdr('glProgramEnvParameter4fARB');
+    private z_ProgramEnvParameter4fARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fARB(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_ProgramEnvParameter4fARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
+    private z_ProgramEnvParameter4fvARB_adr := GetFuncAdr('glProgramEnvParameter4fvARB');
+    private z_ProgramEnvParameter4fvARB_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
+    private z_ProgramEnvParameter4fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameter4fvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameter4fvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_ProgramEnvParameter4fvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameter4fvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameter4fvARB';
+    private z_ProgramEnvParameter4fvARB_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameter4fvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParameter4dARB_ovr_0(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dARB';
+    private z_ProgramLocalParameter4dARB_adr := GetFuncAdr('glProgramLocalParameter4dARB');
+    private z_ProgramLocalParameter4dARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dARB(target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_ProgramLocalParameter4dARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
+    private z_ProgramLocalParameter4dvARB_adr := GetFuncAdr('glProgramLocalParameter4dvARB');
+    private z_ProgramLocalParameter4dvARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
+    private z_ProgramLocalParameter4dvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameter4dvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameter4dvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_ProgramLocalParameter4dvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameter4dvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4dvARB';
+    private z_ProgramLocalParameter4dvARB_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameter4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4dvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameter4dvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParameter4fARB_ovr_0(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fARB';
+    private z_ProgramLocalParameter4fARB_adr := GetFuncAdr('glProgramLocalParameter4fARB');
+    private z_ProgramLocalParameter4fARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fARB(target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_ProgramLocalParameter4fARB_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
+    private z_ProgramLocalParameter4fvARB_adr := GetFuncAdr('glProgramLocalParameter4fvARB');
+    private z_ProgramLocalParameter4fvARB_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
+    private z_ProgramLocalParameter4fvARB_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameter4fvARB_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameter4fvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_ProgramLocalParameter4fvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameter4fvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameter4fvARB';
+    private z_ProgramLocalParameter4fvARB_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameter4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameter4fvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameter4fvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
+    private z_GetProgramEnvParameterdvARB_adr := GetFuncAdr('glGetProgramEnvParameterdvARB');
+    private z_GetProgramEnvParameterdvARB_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
+    private z_GetProgramEnvParameterdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterdvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterdvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_GetProgramEnvParameterdvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterdvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterdvARB';
+    private z_GetProgramEnvParameterdvARB_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterdvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
+    private z_GetProgramEnvParameterfvARB_adr := GetFuncAdr('glGetProgramEnvParameterfvARB');
+    private z_GetProgramEnvParameterfvARB_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
+    private z_GetProgramEnvParameterfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterfvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterfvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_GetProgramEnvParameterfvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterfvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterfvARB';
+    private z_GetProgramEnvParameterfvARB_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterfvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
+    private z_GetProgramLocalParameterdvARB_adr := GetFuncAdr('glGetProgramLocalParameterdvARB');
+    private z_GetProgramLocalParameterdvARB_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
+    private z_GetProgramLocalParameterdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterdvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterdvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_GetProgramLocalParameterdvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterdvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterdvARB';
+    private z_GetProgramLocalParameterdvARB_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterdvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterdvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
+    private z_GetProgramLocalParameterfvARB_adr := GetFuncAdr('glGetProgramLocalParameterfvARB');
+    private z_GetProgramLocalParameterfvARB_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
+    private z_GetProgramLocalParameterfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterfvARB_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterfvARB_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_GetProgramLocalParameterfvARB_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterfvARB_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterfvARB';
+    private z_GetProgramLocalParameterfvARB_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterfvARB(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterfvARB_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramivARB_ovr_0(target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramivARB';
-    private static procedure z_GetProgramivARB_ovr_0_anh0001(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramivARB_ovr_0(target, pname, ¶ms[0]) else
-      z_GetProgramivARB_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_GetProgramivARB_adr := GetFuncAdr('glGetProgramivARB');
+    private z_GetProgramivARB_ovr_0 := GetFuncOrNil&(z_GetProgramivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32) :=
     z_GetProgramivARB_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetProgramivARB_ovr_2(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivARB';
+    private z_GetProgramivARB_ovr_1 := GetFuncOrNil&(z_GetProgramivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivARB(target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
-    z_GetProgramivARB_ovr_2(target, pname, ¶ms);
+    z_GetProgramivARB_ovr_1(target, pname, ¶ms);
     
-    private static procedure z_GetProgramStringARB_ovr_0(target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStringARB';
+    private z_GetProgramStringARB_adr := GetFuncAdr('glGetProgramStringARB');
+    private z_GetProgramStringARB_ovr_0 := GetFuncOrNil&(z_GetProgramStringARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringARB(target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr) :=
     z_GetProgramStringARB_ovr_0(target, pname, string);
     
-    private static procedure z_GetVertexAttribdvARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
-    private static procedure z_GetVertexAttribdvARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
+    private z_GetVertexAttribdvARB_adr := GetFuncAdr('glGetVertexAttribdvARB');
+    private z_GetVertexAttribdvARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
+    private z_GetVertexAttribdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribdvARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribdvARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: real) :=
     z_GetVertexAttribdvARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribdvARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
+    private z_GetVertexAttribdvARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribdvARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribfvARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
-    private static procedure z_GetVertexAttribfvARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
+    private z_GetVertexAttribfvARB_adr := GetFuncAdr('glGetVertexAttribfvARB');
+    private z_GetVertexAttribfvARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
+    private z_GetVertexAttribfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribfvARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribfvARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: single) :=
     z_GetVertexAttribfvARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribfvARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
+    private z_GetVertexAttribfvARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribfvARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribivARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
-    private static procedure z_GetVertexAttribivARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
+    private z_GetVertexAttribivARB_adr := GetFuncAdr('glGetVertexAttribivARB');
+    private z_GetVertexAttribivARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
+    private z_GetVertexAttribivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribivARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribivARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: Int32) :=
     z_GetVertexAttribivARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribivARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
+    private z_GetVertexAttribivARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribivARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribPointervARB_ovr_0(index: UInt32; pname: VertexAttribPointerPropertyARB; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
-    private static procedure z_GetVertexAttribPointervARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: array of IntPtr) :=
-    if (_pointer<>nil) and (_pointer.Length<>0) then
-      z_GetVertexAttribPointervARB_ovr_0(index, pname, _pointer[0]) else
-      z_GetVertexAttribPointervARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribPointervARB_adr := GetFuncAdr('glGetVertexAttribPointervARB');
+    private z_GetVertexAttribPointervARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; var _pointer: IntPtr) :=
     z_GetVertexAttribPointervARB_ovr_0(index, pname, _pointer);
-    private static procedure z_GetVertexAttribPointervARB_ovr_2(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: pointer);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
+    private z_GetVertexAttribPointervARB_ovr_1 := GetFuncOrNil&(z_GetVertexAttribPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: pointer) :=
-    z_GetVertexAttribPointervARB_ovr_2(index, pname, _pointer);
+    z_GetVertexAttribPointervARB_ovr_1(index, pname, _pointer);
     
-    private static function z_IsProgramARB_ovr_0(&program: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsProgramARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramARB(&program: UInt32): boolean :=
+    private z_IsProgramARB_adr := GetFuncAdr('glIsProgramARB');
+    private z_IsProgramARB_ovr_0 := GetFuncOrNil&(z_IsProgramARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramARB(&program: gl_program): boolean :=
     z_IsProgramARB_ovr_0(&program);
     
   end;
   
   [PCUNotRestore]
-  glVertexShaderARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexShaderARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_shader';
     
-    private static procedure z_VertexAttrib1fARB_ovr_0(index: UInt32; x: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fARB';
+    private z_VertexAttrib1fARB_adr := GetFuncAdr('glVertexAttrib1fARB');
+    private z_VertexAttrib1fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fARB(index: UInt32; x: single) :=
     z_VertexAttrib1fARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1sARB_ovr_0(index: UInt32; x: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1sARB';
+    private z_VertexAttrib1sARB_adr := GetFuncAdr('glVertexAttrib1sARB');
+    private z_VertexAttrib1sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sARB(index: UInt32; x: Int16) :=
     z_VertexAttrib1sARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1dARB_ovr_0(index: UInt32; x: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dARB';
+    private z_VertexAttrib1dARB_adr := GetFuncAdr('glVertexAttrib1dARB');
+    private z_VertexAttrib1dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dARB(index: UInt32; x: real) :=
     z_VertexAttrib1dARB_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib2fARB_ovr_0(index: UInt32; x: single; y: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fARB';
+    private z_VertexAttrib2fARB_adr := GetFuncAdr('glVertexAttrib2fARB');
+    private z_VertexAttrib2fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fARB(index: UInt32; x: single; y: single) :=
     z_VertexAttrib2fARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2sARB_ovr_0(index: UInt32; x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2sARB';
+    private z_VertexAttrib2sARB_adr := GetFuncAdr('glVertexAttrib2sARB');
+    private z_VertexAttrib2sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2sARB(index: UInt32; x: Int16; y: Int16) :=
     z_VertexAttrib2sARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2dARB_ovr_0(index: UInt32; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dARB';
+    private z_VertexAttrib2dARB_adr := GetFuncAdr('glVertexAttrib2dARB');
+    private z_VertexAttrib2dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dARB(index: UInt32; x: real; y: real) :=
     z_VertexAttrib2dARB_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib3fARB_ovr_0(index: UInt32; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fARB';
+    private z_VertexAttrib3fARB_adr := GetFuncAdr('glVertexAttrib3fARB');
+    private z_VertexAttrib3fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fARB(index: UInt32; x: single; y: single; z: single) :=
     z_VertexAttrib3fARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3sARB_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3sARB';
+    private z_VertexAttrib3sARB_adr := GetFuncAdr('glVertexAttrib3sARB');
+    private z_VertexAttrib3sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3sARB(index: UInt32; x: Int16; y: Int16; z: Int16) :=
     z_VertexAttrib3sARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3dARB_ovr_0(index: UInt32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dARB';
+    private z_VertexAttrib3dARB_adr := GetFuncAdr('glVertexAttrib3dARB');
+    private z_VertexAttrib3dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dARB(index: UInt32; x: real; y: real; z: real) :=
     z_VertexAttrib3dARB_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib4fARB_ovr_0(index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fARB';
+    private z_VertexAttrib4fARB_adr := GetFuncAdr('glVertexAttrib4fARB');
+    private z_VertexAttrib4fARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fARB(index: UInt32; x: single; y: single; z: single; w: single) :=
     z_VertexAttrib4fARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4sARB_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4sARB';
+    private z_VertexAttrib4sARB_adr := GetFuncAdr('glVertexAttrib4sARB');
+    private z_VertexAttrib4sARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4sARB(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16) :=
     z_VertexAttrib4sARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4dARB_ovr_0(index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dARB';
+    private z_VertexAttrib4dARB_adr := GetFuncAdr('glVertexAttrib4dARB');
+    private z_VertexAttrib4dARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dARB(index: UInt32; x: real; y: real; z: real; w: real) :=
     z_VertexAttrib4dARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4NubARB_ovr_0(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4NubARB';
+    private z_VertexAttrib4NubARB_adr := GetFuncAdr('glVertexAttrib4NubARB');
+    private z_VertexAttrib4NubARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NubARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubARB(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte) :=
     z_VertexAttrib4NubARB_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib1fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
-    private static procedure z_VertexAttrib1fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1fvARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1fvARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1fvARB_adr := GetFuncAdr('glVertexAttrib1fvARB');
+    private z_VertexAttrib1fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib1fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvARB';
+    private z_VertexAttrib1fvARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1fvARB_ovr_2(index, v);
+    z_VertexAttrib1fvARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
-    private static procedure z_VertexAttrib1svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1svARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1svARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1svARB_adr := GetFuncAdr('glVertexAttrib1svARB');
+    private z_VertexAttrib1svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib1svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svARB';
+    private z_VertexAttrib1svARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1svARB_ovr_2(index, v);
+    z_VertexAttrib1svARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
-    private static procedure z_VertexAttrib1dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1dvARB_ovr_0(index, v[0]) else
-      z_VertexAttrib1dvARB_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1dvARB_adr := GetFuncAdr('glVertexAttrib1dvARB');
+    private z_VertexAttrib1dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib1dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib1dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvARB';
+    private z_VertexAttrib1dvARB_ovr_1 := GetFuncOrNil&(z_VertexAttrib1dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvARB(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1dvARB_ovr_2(index, v);
+    z_VertexAttrib1dvARB_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib2fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
-    private static procedure z_VertexAttrib2fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
+    private z_VertexAttrib2fvARB_adr := GetFuncAdr('glVertexAttrib2fvARB');
+    private z_VertexAttrib2fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
+    private z_VertexAttrib2fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib2fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib2fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvARB';
+    private z_VertexAttrib2fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
-    private static procedure z_VertexAttrib2svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
+    private z_VertexAttrib2svARB_adr := GetFuncAdr('glVertexAttrib2svARB');
+    private z_VertexAttrib2svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
+    private z_VertexAttrib2svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2svARB_ovr_0(index, v[0]) else
       z_VertexAttrib2svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib2svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svARB';
+    private z_VertexAttrib2svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
-    private static procedure z_VertexAttrib2dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
+    private z_VertexAttrib2dvARB_adr := GetFuncAdr('glVertexAttrib2dvARB');
+    private z_VertexAttrib2dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
+    private z_VertexAttrib2dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib2dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib2dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib2dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvARB';
+    private z_VertexAttrib2dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
-    private static procedure z_VertexAttrib3fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
+    private z_VertexAttrib3fvARB_adr := GetFuncAdr('glVertexAttrib3fvARB');
+    private z_VertexAttrib3fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
+    private z_VertexAttrib3fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib3fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib3fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvARB';
+    private z_VertexAttrib3fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
-    private static procedure z_VertexAttrib3svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
+    private z_VertexAttrib3svARB_adr := GetFuncAdr('glVertexAttrib3svARB');
+    private z_VertexAttrib3svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
+    private z_VertexAttrib3svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3svARB_ovr_0(index, v[0]) else
       z_VertexAttrib3svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib3svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svARB';
+    private z_VertexAttrib3svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
-    private static procedure z_VertexAttrib3dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
+    private z_VertexAttrib3dvARB_adr := GetFuncAdr('glVertexAttrib3dvARB');
+    private z_VertexAttrib3dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
+    private z_VertexAttrib3dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib3dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib3dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib3dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvARB';
+    private z_VertexAttrib3dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4fvARB_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
-    private static procedure z_VertexAttrib4fvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
+    private z_VertexAttrib4fvARB_adr := GetFuncAdr('glVertexAttrib4fvARB');
+    private z_VertexAttrib4fvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
+    private z_VertexAttrib4fvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4fvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4fvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; var v: single) :=
     z_VertexAttrib4fvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4fvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvARB';
+    private z_VertexAttrib4fvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4fvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4svARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
-    private static procedure z_VertexAttrib4svARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
+    private z_VertexAttrib4svARB_adr := GetFuncAdr('glVertexAttrib4svARB');
+    private z_VertexAttrib4svARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
+    private z_VertexAttrib4svARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4svARB_ovr_0(index, v[0]) else
       z_VertexAttrib4svARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib4svARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4svARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svARB';
+    private z_VertexAttrib4svARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4svARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4dvARB_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
-    private static procedure z_VertexAttrib4dvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
+    private z_VertexAttrib4dvARB_adr := GetFuncAdr('glVertexAttrib4dvARB');
+    private z_VertexAttrib4dvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
+    private z_VertexAttrib4dvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4dvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4dvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; var v: real) :=
     z_VertexAttrib4dvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4dvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvARB';
+    private z_VertexAttrib4dvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4dvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4ivARB_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
-    private static procedure z_VertexAttrib4ivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
+    private z_VertexAttrib4ivARB_adr := GetFuncAdr('glVertexAttrib4ivARB');
+    private z_VertexAttrib4ivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
+    private z_VertexAttrib4ivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4ivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4ivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; var v: Int32) :=
     z_VertexAttrib4ivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4ivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ivARB';
+    private z_VertexAttrib4ivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4ivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4bvARB_ovr_0(index: UInt32; var v: SByte);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
-    private static procedure z_VertexAttrib4bvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
+    private z_VertexAttrib4bvARB_adr := GetFuncAdr('glVertexAttrib4bvARB');
+    private z_VertexAttrib4bvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
+    private z_VertexAttrib4bvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4bvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4bvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; var v: SByte) :=
     z_VertexAttrib4bvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4bvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4bvARB';
+    private z_VertexAttrib4bvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4bvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4bvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4bvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4ubvARB_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
-    private static procedure z_VertexAttrib4ubvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
+    private z_VertexAttrib4ubvARB_adr := GetFuncAdr('glVertexAttrib4ubvARB');
+    private z_VertexAttrib4ubvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
+    private z_VertexAttrib4ubvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4ubvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4ubvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; var v: Byte) :=
     z_VertexAttrib4ubvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4ubvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvARB';
+    private z_VertexAttrib4ubvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4ubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4ubvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4usvARB_ovr_0(index: UInt32; var v: UInt16);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
-    private static procedure z_VertexAttrib4usvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
+    private z_VertexAttrib4usvARB_adr := GetFuncAdr('glVertexAttrib4usvARB');
+    private z_VertexAttrib4usvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
+    private z_VertexAttrib4usvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4usvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4usvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; var v: UInt16) :=
     z_VertexAttrib4usvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4usvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4usvARB';
+    private z_VertexAttrib4usvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4usvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4usvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4usvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4uivARB_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
-    private static procedure z_VertexAttrib4uivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
+    private z_VertexAttrib4uivARB_adr := GetFuncAdr('glVertexAttrib4uivARB');
+    private z_VertexAttrib4uivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
+    private z_VertexAttrib4uivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4uivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4uivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; var v: UInt32) :=
     z_VertexAttrib4uivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4uivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4uivARB';
+    private z_VertexAttrib4uivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4uivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4uivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4uivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NbvARB_ovr_0(index: UInt32; var v: SByte);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
-    private static procedure z_VertexAttrib4NbvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
+    private z_VertexAttrib4NbvARB_adr := GetFuncAdr('glVertexAttrib4NbvARB');
+    private z_VertexAttrib4NbvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
+    private z_VertexAttrib4NbvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NbvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NbvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; var v: SByte) :=
     z_VertexAttrib4NbvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NbvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NbvARB';
+    private z_VertexAttrib4NbvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NbvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NbvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NbvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NsvARB_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
-    private static procedure z_VertexAttrib4NsvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
+    private z_VertexAttrib4NsvARB_adr := GetFuncAdr('glVertexAttrib4NsvARB');
+    private z_VertexAttrib4NsvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
+    private z_VertexAttrib4NsvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NsvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NsvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; var v: Int16) :=
     z_VertexAttrib4NsvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NsvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NsvARB';
+    private z_VertexAttrib4NsvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NsvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NsvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NsvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NivARB_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
-    private static procedure z_VertexAttrib4NivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
+    private z_VertexAttrib4NivARB_adr := GetFuncAdr('glVertexAttrib4NivARB');
+    private z_VertexAttrib4NivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
+    private z_VertexAttrib4NivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; var v: Int32) :=
     z_VertexAttrib4NivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NivARB';
+    private z_VertexAttrib4NivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NubvARB_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
-    private static procedure z_VertexAttrib4NubvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
+    private z_VertexAttrib4NubvARB_adr := GetFuncAdr('glVertexAttrib4NubvARB');
+    private z_VertexAttrib4NubvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
+    private z_VertexAttrib4NubvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NubvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NubvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; var v: Byte) :=
     z_VertexAttrib4NubvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NubvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NubvARB';
+    private z_VertexAttrib4NubvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NubvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NubvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NubvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NusvARB_ovr_0(index: UInt32; var v: UInt16);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
-    private static procedure z_VertexAttrib4NusvARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
+    private z_VertexAttrib4NusvARB_adr := GetFuncAdr('glVertexAttrib4NusvARB');
+    private z_VertexAttrib4NusvARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
+    private z_VertexAttrib4NusvARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NusvARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NusvARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; var v: UInt16) :=
     z_VertexAttrib4NusvARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NusvARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NusvARB';
+    private z_VertexAttrib4NusvARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NusvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NusvARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NusvARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4NuivARB_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
-    private static procedure z_VertexAttrib4NuivARB_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
+    private z_VertexAttrib4NuivARB_adr := GetFuncAdr('glVertexAttrib4NuivARB');
+    private z_VertexAttrib4NuivARB_ovr_0 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
+    private z_VertexAttrib4NuivARB_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4NuivARB_ovr_0(index, v[0]) else
       z_VertexAttrib4NuivARB_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; var v: UInt32) :=
     z_VertexAttrib4NuivARB_ovr_0(index, v);
-    private static procedure z_VertexAttrib4NuivARB_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4NuivARB';
+    private z_VertexAttrib4NuivARB_ovr_2 := GetFuncOrNil&(z_VertexAttrib4NuivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4NuivARB(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4NuivARB_ovr_2(index, v);
     
-    private static procedure z_VertexAttribPointerARB_ovr_0(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribPointerARB';
+    private z_VertexAttribPointerARB_adr := GetFuncAdr('glVertexAttribPointerARB');
+    private z_VertexAttribPointerARB_ovr_0 := GetFuncOrNil&(z_VertexAttribPointerARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribPointerARB(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribPointerARB_ovr_0(index, size, &type, normalized, stride, pointer);
     
-    private static procedure z_EnableVertexAttribArrayARB_ovr_0(index: UInt32);
-    external 'opengl32.dll' name 'glEnableVertexAttribArrayARB';
+    private z_EnableVertexAttribArrayARB_adr := GetFuncAdr('glEnableVertexAttribArrayARB');
+    private z_EnableVertexAttribArrayARB_ovr_0 := GetFuncOrNil&(z_EnableVertexAttribArrayARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexAttribArrayARB(index: UInt32) :=
     z_EnableVertexAttribArrayARB_ovr_0(index);
     
-    private static procedure z_DisableVertexAttribArrayARB_ovr_0(index: UInt32);
-    external 'opengl32.dll' name 'glDisableVertexAttribArrayARB';
+    private z_DisableVertexAttribArrayARB_adr := GetFuncAdr('glDisableVertexAttribArrayARB');
+    private z_DisableVertexAttribArrayARB_ovr_0 := GetFuncOrNil&(z_DisableVertexAttribArrayARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexAttribArrayARB(index: UInt32) :=
     z_DisableVertexAttribArrayARB_ovr_0(index);
     
-    private static procedure z_BindAttribLocationARB_ovr_0(programObj: GLhandleARB; index: UInt32; name: IntPtr);
-    external 'opengl32.dll' name 'glBindAttribLocationARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocationARB(programObj: GLhandleARB; index: UInt32; name: string);
+    private z_BindAttribLocationARB_adr := GetFuncAdr('glBindAttribLocationARB');
+    private z_BindAttribLocationARB_ovr_0 := GetFuncOrNil&(z_BindAttribLocationARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocationARB(programObj: gl_handle_ARB; index: UInt32; name: string);
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -46925,213 +46846,38 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocationARB(programObj: GLhandleARB; index: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindAttribLocationARB(programObj: gl_handle_ARB; index: UInt32; name: IntPtr) :=
     z_BindAttribLocationARB_ovr_0(programObj, index, name);
     
-    private static procedure z_GetActiveAttribARB_ovr_0(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00000110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_0_anh00001110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length[0], size[0], &type[0], name) else
-          z_GetActiveAttribARB_ovr_0_anh00000010(programObj, index, maxLength, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttribARB_ovr_0_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetActiveAttribARB_ovr_0_anh00000110(programObj, index, maxLength, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttribARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetActiveAttribARB_ovr_0_anh00001010(programObj, index, maxLength, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveAttribARB_ovr_0_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetActiveAttribARB_ovr_0_anh00001110(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveAttribARB_ovr_1_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_1_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_1_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length[0], size[0], &type, name) else
-        z_GetActiveAttribARB_ovr_0_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttribARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveAttribARB_ovr_0_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_2(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_2_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_2_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_2_anh00001100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttribARB_ovr_2(programObj, index, maxLength, length[0], size[0], &type, name) else
-        z_GetActiveAttribARB_ovr_2_anh00000100(programObj, index, maxLength, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveAttribARB_ovr_2_anh00001000(programObj, index, maxLength, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveAttribARB_ovr_2_anh00001100(programObj, index, maxLength, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_3_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_3_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length[0], size, &type[0], name) else
-        z_GetActiveAttribARB_ovr_0_anh00000010(programObj, index, maxLength, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveAttribARB_ovr_0_anh00001010(programObj, index, maxLength, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveAttribARB_ovr_4_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveAttribARB_ovr_0_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_5_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttribARB_ovr_2(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveAttribARB_ovr_2_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_6(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_6_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_6_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_6_anh00001010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_6(programObj, index, maxLength, length[0], size, &type[0], name) else
-        z_GetActiveAttribARB_ovr_6_anh00000010(programObj, index, maxLength, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_6_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveAttribARB_ovr_6_anh00001010(programObj, index, maxLength, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveAttribARB_ovr_7_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttribARB_ovr_6(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveAttribARB_ovr_6_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_8(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_8_anh00001000(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveAttribARB_ovr_8(programObj, index, maxLength, length[0], size, &type, name) else
-      z_GetActiveAttribARB_ovr_8_anh00001000(programObj, index, maxLength, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length, size[0], &type[0], name) else
-        z_GetActiveAttribARB_ovr_0_anh00000010(programObj, index, maxLength, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_0_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveAttribARB_ovr_0_anh00000110(programObj, index, maxLength, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveAttribARB_ovr_0_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttribARB_ovr_2(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveAttribARB_ovr_2_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveAttribARB_ovr_0_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    private z_GetActiveAttribARB_adr := GetFuncAdr('glGetActiveAttribARB');
+    private z_GetActiveAttribARB_ovr_0 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttribARB_ovr_0(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetActiveAttribARB_ovr_1 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttribARB_ovr_1(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveAttribARB_ovr_2 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttribARB_ovr_2(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttribARB_ovr_6(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveAttribARB_ovr_6_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
+    private z_GetActiveAttribARB_ovr_3 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttribARB_ovr_3(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveAttribARB_ovr_4 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    z_GetActiveAttribARB_ovr_4(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveAttribARB_ovr_5 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttribARB_ovr_5(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveAttribARB_ovr_6 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetActiveAttribARB_ovr_6(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttribARB_ovr_8(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_18(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_18_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_18_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_18_anh00000110(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_18(programObj, index, maxLength, length, size[0], &type[0], name) else
-        z_GetActiveAttribARB_ovr_18_anh00000010(programObj, index, maxLength, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveAttribARB_ovr_18_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveAttribARB_ovr_18_anh00000110(programObj, index, maxLength, length, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveAttribARB_ovr_19_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttribARB_ovr_18(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveAttribARB_ovr_18_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_20(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_20_anh00000100(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveAttribARB_ovr_20(programObj, index, maxLength, length, size[0], &type, name) else
-      z_GetActiveAttribARB_ovr_20_anh00000100(programObj, index, maxLength, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttribARB_ovr_18(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveAttribARB_ovr_18_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    z_GetActiveAttribARB_ovr_18(programObj, index, maxLength, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttribARB_ovr_20(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_24(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    private static procedure z_GetActiveAttribARB_ovr_24_anh00000010(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveAttribARB_ovr_24(programObj, index, maxLength, length, size, &type[0], name) else
-      z_GetActiveAttribARB_ovr_24_anh00000010(programObj, index, maxLength, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    z_GetActiveAttribARB_ovr_24(programObj, index, maxLength, length, size, &type, name);
-    private static procedure z_GetActiveAttribARB_ovr_26(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: GLhandleARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveAttribARB_ovr_26(programObj, index, maxLength, length, size, &type, name);
+    private z_GetActiveAttribARB_ovr_7 := GetFuncOrNil&(z_GetActiveAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveAttribARB(programObj: gl_handle_ARB; index: UInt32; maxLength: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveAttribARB_ovr_7(programObj, index, maxLength, length, size, &type, name);
     
-    private static function z_GetAttribLocationARB_ovr_0(programObj: GLhandleARB; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetAttribLocationARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocationARB(programObj: GLhandleARB; name: string): Int32;
+    private z_GetAttribLocationARB_adr := GetFuncAdr('glGetAttribLocationARB');
+    private z_GetAttribLocationARB_ovr_0 := GetFuncOrNil&(z_GetAttribLocationARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocationARB(programObj: gl_handle_ARB; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -47141,2282 +46887,2000 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocationARB(programObj: GLhandleARB; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAttribLocationARB(programObj: gl_handle_ARB; name: IntPtr): Int32 :=
     z_GetAttribLocationARB_ovr_0(programObj, name);
     
-    private static procedure z_GetVertexAttribdvARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
-    private static procedure z_GetVertexAttribdvARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
+    private z_GetVertexAttribdvARB_adr := GetFuncAdr('glGetVertexAttribdvARB');
+    private z_GetVertexAttribdvARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
+    private z_GetVertexAttribdvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribdvARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribdvARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: real) :=
     z_GetVertexAttribdvARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribdvARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvARB';
+    private z_GetVertexAttribdvARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribdvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribdvARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribfvARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
-    private static procedure z_GetVertexAttribfvARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
+    private z_GetVertexAttribfvARB_adr := GetFuncAdr('glGetVertexAttribfvARB');
+    private z_GetVertexAttribfvARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
+    private z_GetVertexAttribfvARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribfvARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribfvARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: single) :=
     z_GetVertexAttribfvARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribfvARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvARB';
+    private z_GetVertexAttribfvARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribfvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribfvARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribivARB_ovr_0(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
-    private static procedure z_GetVertexAttribivARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
+    private z_GetVertexAttribivARB_adr := GetFuncAdr('glGetVertexAttribivARB');
+    private z_GetVertexAttribivARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
+    private z_GetVertexAttribivARB_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribivARB_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribivARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; var ¶ms: Int32) :=
     z_GetVertexAttribivARB_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribivARB_ovr_2(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivARB';
+    private z_GetVertexAttribivARB_ovr_2 := GetFuncOrNil&(z_GetVertexAttribivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivARB(index: UInt32; pname: VertexAttribPropertyARB; ¶ms: IntPtr) :=
     z_GetVertexAttribivARB_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribPointervARB_ovr_0(index: UInt32; pname: VertexAttribPointerPropertyARB; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
-    private static procedure z_GetVertexAttribPointervARB_ovr_0_anh0001(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: array of IntPtr) :=
-    if (_pointer<>nil) and (_pointer.Length<>0) then
-      z_GetVertexAttribPointervARB_ovr_0(index, pname, _pointer[0]) else
-      z_GetVertexAttribPointervARB_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribPointervARB_adr := GetFuncAdr('glGetVertexAttribPointervARB');
+    private z_GetVertexAttribPointervARB_ovr_0 := GetFuncOrNil&(z_GetVertexAttribPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; var _pointer: IntPtr) :=
     z_GetVertexAttribPointervARB_ovr_0(index, pname, _pointer);
-    private static procedure z_GetVertexAttribPointervARB_ovr_2(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: pointer);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervARB';
+    private z_GetVertexAttribPointervARB_ovr_1 := GetFuncOrNil&(z_GetVertexAttribPointervARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervARB(index: UInt32; pname: VertexAttribPointerPropertyARB; _pointer: pointer) :=
-    z_GetVertexAttribPointervARB_ovr_2(index, pname, _pointer);
+    z_GetVertexAttribPointervARB_ovr_1(index, pname, _pointer);
     
   end;
   
   [PCUNotRestore]
-  glVertexType2101010RevARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexType2101010RevARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_vertex_type_2_10_10_10_rev';
     
-    private static procedure z_VertexAttribP1ui_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP1ui';
+    private z_VertexAttribP1ui_adr := GetFuncAdr('glVertexAttribP1ui');
+    private z_VertexAttribP1ui_ovr_0 := GetFuncOrNil&(z_VertexAttribP1ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1ui(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32) :=
     z_VertexAttribP1ui_ovr_0(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP1uiv_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP1uiv';
-    private static procedure z_VertexAttribP1uiv_ovr_0_anh00001(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP1uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP1uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP1uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
+    private z_VertexAttribP1uiv_adr := GetFuncAdr('glVertexAttribP1uiv');
+    private z_VertexAttribP1uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP1uiv_ovr_0(index, &type, normalized, value);
-    private static procedure z_VertexAttribP1uiv_ovr_2(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP1uiv';
+    private z_VertexAttribP1uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP1uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP1uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP1uiv_ovr_1(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP2ui_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP2ui';
+    private z_VertexAttribP2ui_adr := GetFuncAdr('glVertexAttribP2ui');
+    private z_VertexAttribP2ui_ovr_0 := GetFuncOrNil&(z_VertexAttribP2ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2ui(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32) :=
     z_VertexAttribP2ui_ovr_0(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP2uiv_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP2uiv';
-    private static procedure z_VertexAttribP2uiv_ovr_0_anh00001(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP2uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP2uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
+    private z_VertexAttribP2uiv_adr := GetFuncAdr('glVertexAttribP2uiv');
+    private z_VertexAttribP2uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP2uiv_ovr_0(index, &type, normalized, value);
-    private static procedure z_VertexAttribP2uiv_ovr_2(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP2uiv';
+    private z_VertexAttribP2uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP2uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP2uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP2uiv_ovr_1(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP3ui_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP3ui';
+    private z_VertexAttribP3ui_adr := GetFuncAdr('glVertexAttribP3ui');
+    private z_VertexAttribP3ui_ovr_0 := GetFuncOrNil&(z_VertexAttribP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3ui(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32) :=
     z_VertexAttribP3ui_ovr_0(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP3uiv_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP3uiv';
-    private static procedure z_VertexAttribP3uiv_ovr_0_anh00001(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP3uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP3uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
+    private z_VertexAttribP3uiv_adr := GetFuncAdr('glVertexAttribP3uiv');
+    private z_VertexAttribP3uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP3uiv_ovr_0(index, &type, normalized, value);
-    private static procedure z_VertexAttribP3uiv_ovr_2(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP3uiv';
+    private z_VertexAttribP3uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP3uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP3uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP3uiv_ovr_1(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP4ui_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP4ui';
+    private z_VertexAttribP4ui_adr := GetFuncAdr('glVertexAttribP4ui');
+    private z_VertexAttribP4ui_ovr_0 := GetFuncOrNil&(z_VertexAttribP4ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4ui(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: UInt32) :=
     z_VertexAttribP4ui_ovr_0(index, &type, normalized, value);
     
-    private static procedure z_VertexAttribP4uiv_ovr_0(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribP4uiv';
-    private static procedure z_VertexAttribP4uiv_ovr_0_anh00001(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexAttribP4uiv_ovr_0(index, &type, normalized, value[0]) else
-      z_VertexAttribP4uiv_ovr_0_anh00001(index, &type, normalized, IntPtr.Zero);
+    private z_VertexAttribP4uiv_adr := GetFuncAdr('glVertexAttribP4uiv');
+    private z_VertexAttribP4uiv_ovr_0 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; var value: UInt32) :=
     z_VertexAttribP4uiv_ovr_0(index, &type, normalized, value);
-    private static procedure z_VertexAttribP4uiv_ovr_2(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribP4uiv';
+    private z_VertexAttribP4uiv_ovr_1 := GetFuncOrNil&(z_VertexAttribP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribP4uiv(index: UInt32; &type: VertexAttribPointerType; normalized: boolean; value: IntPtr) :=
-    z_VertexAttribP4uiv_ovr_2(index, &type, normalized, value);
+    z_VertexAttribP4uiv_ovr_1(index, &type, normalized, value);
     
-    private static procedure z_VertexP2ui_ovr_0(&type: VertexPointerType; value: UInt32);
-    external 'opengl32.dll' name 'glVertexP2ui';
+    private z_VertexP2ui_adr := GetFuncAdr('glVertexP2ui');
+    private z_VertexP2ui_ovr_0 := GetFuncOrNil&(z_VertexP2ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2ui(&type: VertexPointerType; value: UInt32) :=
     z_VertexP2ui_ovr_0(&type, value);
     
-    private static procedure z_VertexP2uiv_ovr_0(&type: VertexPointerType; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexP2uiv';
-    private static procedure z_VertexP2uiv_ovr_0_anh001(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP2uiv_ovr_0(&type, value[0]) else
-      z_VertexP2uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_VertexP2uiv_adr := GetFuncAdr('glVertexP2uiv');
+    private z_VertexP2uiv_ovr_0 := GetFuncOrNil&(z_VertexP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP2uiv_ovr_0(&type, value);
-    private static procedure z_VertexP2uiv_ovr_2(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP2uiv';
+    private z_VertexP2uiv_ovr_1 := GetFuncOrNil&(z_VertexP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP2uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP2uiv_ovr_2(&type, value);
+    z_VertexP2uiv_ovr_1(&type, value);
     
-    private static procedure z_VertexP3ui_ovr_0(&type: VertexPointerType; value: UInt32);
-    external 'opengl32.dll' name 'glVertexP3ui';
+    private z_VertexP3ui_adr := GetFuncAdr('glVertexP3ui');
+    private z_VertexP3ui_ovr_0 := GetFuncOrNil&(z_VertexP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3ui(&type: VertexPointerType; value: UInt32) :=
     z_VertexP3ui_ovr_0(&type, value);
     
-    private static procedure z_VertexP3uiv_ovr_0(&type: VertexPointerType; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexP3uiv';
-    private static procedure z_VertexP3uiv_ovr_0_anh001(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP3uiv_ovr_0(&type, value[0]) else
-      z_VertexP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_VertexP3uiv_adr := GetFuncAdr('glVertexP3uiv');
+    private z_VertexP3uiv_ovr_0 := GetFuncOrNil&(z_VertexP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP3uiv_ovr_0(&type, value);
-    private static procedure z_VertexP3uiv_ovr_2(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP3uiv';
+    private z_VertexP3uiv_ovr_1 := GetFuncOrNil&(z_VertexP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP3uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP3uiv_ovr_2(&type, value);
+    z_VertexP3uiv_ovr_1(&type, value);
     
-    private static procedure z_VertexP4ui_ovr_0(&type: VertexPointerType; value: UInt32);
-    external 'opengl32.dll' name 'glVertexP4ui';
+    private z_VertexP4ui_adr := GetFuncAdr('glVertexP4ui');
+    private z_VertexP4ui_ovr_0 := GetFuncOrNil&(z_VertexP4ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4ui(&type: VertexPointerType; value: UInt32) :=
     z_VertexP4ui_ovr_0(&type, value);
     
-    private static procedure z_VertexP4uiv_ovr_0(&type: VertexPointerType; var value: UInt32);
-    external 'opengl32.dll' name 'glVertexP4uiv';
-    private static procedure z_VertexP4uiv_ovr_0_anh001(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; value: array of UInt32) :=
-    if (value<>nil) and (value.Length<>0) then
-      z_VertexP4uiv_ovr_0(&type, value[0]) else
-      z_VertexP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_VertexP4uiv_adr := GetFuncAdr('glVertexP4uiv');
+    private z_VertexP4uiv_ovr_0 := GetFuncOrNil&(z_VertexP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; var value: UInt32) :=
     z_VertexP4uiv_ovr_0(&type, value);
-    private static procedure z_VertexP4uiv_ovr_2(&type: VertexPointerType; value: IntPtr);
-    external 'opengl32.dll' name 'glVertexP4uiv';
+    private z_VertexP4uiv_ovr_1 := GetFuncOrNil&(z_VertexP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexP4uiv(&type: VertexPointerType; value: IntPtr) :=
-    z_VertexP4uiv_ovr_2(&type, value);
+    z_VertexP4uiv_ovr_1(&type, value);
     
-    private static procedure z_TexCoordP1ui_ovr_0(&type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP1ui';
+    private z_TexCoordP1ui_adr := GetFuncAdr('glTexCoordP1ui');
+    private z_TexCoordP1ui_ovr_0 := GetFuncOrNil&(z_TexCoordP1ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1ui(&type: TexCoordPointerType; coords: UInt32) :=
     z_TexCoordP1ui_ovr_0(&type, coords);
     
-    private static procedure z_TexCoordP1uiv_ovr_0(&type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP1uiv';
-    private static procedure z_TexCoordP1uiv_ovr_0_anh001(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP1uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP1uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP1uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_TexCoordP1uiv_adr := GetFuncAdr('glTexCoordP1uiv');
+    private z_TexCoordP1uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP1uiv_ovr_0(&type, coords);
-    private static procedure z_TexCoordP1uiv_ovr_2(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP1uiv';
+    private z_TexCoordP1uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP1uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP1uiv_ovr_2(&type, coords);
+    z_TexCoordP1uiv_ovr_1(&type, coords);
     
-    private static procedure z_TexCoordP2ui_ovr_0(&type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP2ui';
+    private z_TexCoordP2ui_adr := GetFuncAdr('glTexCoordP2ui');
+    private z_TexCoordP2ui_ovr_0 := GetFuncOrNil&(z_TexCoordP2ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2ui(&type: TexCoordPointerType; coords: UInt32) :=
     z_TexCoordP2ui_ovr_0(&type, coords);
     
-    private static procedure z_TexCoordP2uiv_ovr_0(&type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP2uiv';
-    private static procedure z_TexCoordP2uiv_ovr_0_anh001(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP2uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP2uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_TexCoordP2uiv_adr := GetFuncAdr('glTexCoordP2uiv');
+    private z_TexCoordP2uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP2uiv_ovr_0(&type, coords);
-    private static procedure z_TexCoordP2uiv_ovr_2(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP2uiv';
+    private z_TexCoordP2uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP2uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP2uiv_ovr_2(&type, coords);
+    z_TexCoordP2uiv_ovr_1(&type, coords);
     
-    private static procedure z_TexCoordP3ui_ovr_0(&type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP3ui';
+    private z_TexCoordP3ui_adr := GetFuncAdr('glTexCoordP3ui');
+    private z_TexCoordP3ui_ovr_0 := GetFuncOrNil&(z_TexCoordP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3ui(&type: TexCoordPointerType; coords: UInt32) :=
     z_TexCoordP3ui_ovr_0(&type, coords);
     
-    private static procedure z_TexCoordP3uiv_ovr_0(&type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP3uiv';
-    private static procedure z_TexCoordP3uiv_ovr_0_anh001(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP3uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_TexCoordP3uiv_adr := GetFuncAdr('glTexCoordP3uiv');
+    private z_TexCoordP3uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP3uiv_ovr_0(&type, coords);
-    private static procedure z_TexCoordP3uiv_ovr_2(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP3uiv';
+    private z_TexCoordP3uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP3uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP3uiv_ovr_2(&type, coords);
+    z_TexCoordP3uiv_ovr_1(&type, coords);
     
-    private static procedure z_TexCoordP4ui_ovr_0(&type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP4ui';
+    private z_TexCoordP4ui_adr := GetFuncAdr('glTexCoordP4ui');
+    private z_TexCoordP4ui_ovr_0 := GetFuncOrNil&(z_TexCoordP4ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4ui(&type: TexCoordPointerType; coords: UInt32) :=
     z_TexCoordP4ui_ovr_0(&type, coords);
     
-    private static procedure z_TexCoordP4uiv_ovr_0(&type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glTexCoordP4uiv';
-    private static procedure z_TexCoordP4uiv_ovr_0_anh001(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoordP4uiv_ovr_0(&type, coords[0]) else
-      z_TexCoordP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_TexCoordP4uiv_adr := GetFuncAdr('glTexCoordP4uiv');
+    private z_TexCoordP4uiv_ovr_0 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; var coords: UInt32) :=
     z_TexCoordP4uiv_ovr_0(&type, coords);
-    private static procedure z_TexCoordP4uiv_ovr_2(&type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordP4uiv';
+    private z_TexCoordP4uiv_ovr_1 := GetFuncOrNil&(z_TexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordP4uiv(&type: TexCoordPointerType; coords: IntPtr) :=
-    z_TexCoordP4uiv_ovr_2(&type, coords);
+    z_TexCoordP4uiv_ovr_1(&type, coords);
     
-    private static procedure z_MultiTexCoordP1ui_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP1ui';
+    private z_MultiTexCoordP1ui_adr := GetFuncAdr('glMultiTexCoordP1ui');
+    private z_MultiTexCoordP1ui_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP1ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1ui(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32) :=
     z_MultiTexCoordP1ui_ovr_0(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP1uiv_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP1uiv';
-    private static procedure z_MultiTexCoordP1uiv_ovr_0_anh0001(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP1uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP1uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP1uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
+    private z_MultiTexCoordP1uiv_adr := GetFuncAdr('glMultiTexCoordP1uiv');
+    private z_MultiTexCoordP1uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP1uiv_ovr_0(texture, &type, coords);
-    private static procedure z_MultiTexCoordP1uiv_ovr_2(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP1uiv';
+    private z_MultiTexCoordP1uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP1uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP1uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP1uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP1uiv_ovr_1(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP2ui_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP2ui';
+    private z_MultiTexCoordP2ui_adr := GetFuncAdr('glMultiTexCoordP2ui');
+    private z_MultiTexCoordP2ui_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP2ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2ui(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32) :=
     z_MultiTexCoordP2ui_ovr_0(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP2uiv_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP2uiv';
-    private static procedure z_MultiTexCoordP2uiv_ovr_0_anh0001(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP2uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP2uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP2uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
+    private z_MultiTexCoordP2uiv_adr := GetFuncAdr('glMultiTexCoordP2uiv');
+    private z_MultiTexCoordP2uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP2uiv_ovr_0(texture, &type, coords);
-    private static procedure z_MultiTexCoordP2uiv_ovr_2(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP2uiv';
+    private z_MultiTexCoordP2uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP2uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP2uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP2uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP2uiv_ovr_1(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP3ui_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP3ui';
+    private z_MultiTexCoordP3ui_adr := GetFuncAdr('glMultiTexCoordP3ui');
+    private z_MultiTexCoordP3ui_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3ui(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32) :=
     z_MultiTexCoordP3ui_ovr_0(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP3uiv_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP3uiv';
-    private static procedure z_MultiTexCoordP3uiv_ovr_0_anh0001(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP3uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP3uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
+    private z_MultiTexCoordP3uiv_adr := GetFuncAdr('glMultiTexCoordP3uiv');
+    private z_MultiTexCoordP3uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP3uiv_ovr_0(texture, &type, coords);
-    private static procedure z_MultiTexCoordP3uiv_ovr_2(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP3uiv';
+    private z_MultiTexCoordP3uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP3uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP3uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP3uiv_ovr_1(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP4ui_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP4ui';
+    private z_MultiTexCoordP4ui_adr := GetFuncAdr('glMultiTexCoordP4ui');
+    private z_MultiTexCoordP4ui_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP4ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4ui(texture: TextureUnit; &type: TexCoordPointerType; coords: UInt32) :=
     z_MultiTexCoordP4ui_ovr_0(texture, &type, coords);
     
-    private static procedure z_MultiTexCoordP4uiv_ovr_0(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glMultiTexCoordP4uiv';
-    private static procedure z_MultiTexCoordP4uiv_ovr_0_anh0001(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoordP4uiv_ovr_0(texture, &type, coords[0]) else
-      z_MultiTexCoordP4uiv_ovr_0_anh0001(texture, &type, IntPtr.Zero);
+    private z_MultiTexCoordP4uiv_adr := GetFuncAdr('glMultiTexCoordP4uiv');
+    private z_MultiTexCoordP4uiv_ovr_0 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; var coords: UInt32) :=
     z_MultiTexCoordP4uiv_ovr_0(texture, &type, coords);
-    private static procedure z_MultiTexCoordP4uiv_ovr_2(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordP4uiv';
+    private z_MultiTexCoordP4uiv_ovr_1 := GetFuncOrNil&(z_MultiTexCoordP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordP4uiv(texture: TextureUnit; &type: TexCoordPointerType; coords: IntPtr) :=
-    z_MultiTexCoordP4uiv_ovr_2(texture, &type, coords);
+    z_MultiTexCoordP4uiv_ovr_1(texture, &type, coords);
     
-    private static procedure z_NormalP3ui_ovr_0(&type: NormalPointerType; coords: UInt32);
-    external 'opengl32.dll' name 'glNormalP3ui';
+    private z_NormalP3ui_adr := GetFuncAdr('glNormalP3ui');
+    private z_NormalP3ui_ovr_0 := GetFuncOrNil&(z_NormalP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3ui(&type: NormalPointerType; coords: UInt32) :=
     z_NormalP3ui_ovr_0(&type, coords);
     
-    private static procedure z_NormalP3uiv_ovr_0(&type: NormalPointerType; var coords: UInt32);
-    external 'opengl32.dll' name 'glNormalP3uiv';
-    private static procedure z_NormalP3uiv_ovr_0_anh001(&type: NormalPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; coords: array of UInt32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_NormalP3uiv_ovr_0(&type, coords[0]) else
-      z_NormalP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_NormalP3uiv_adr := GetFuncAdr('glNormalP3uiv');
+    private z_NormalP3uiv_ovr_0 := GetFuncOrNil&(z_NormalP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; var coords: UInt32) :=
     z_NormalP3uiv_ovr_0(&type, coords);
-    private static procedure z_NormalP3uiv_ovr_2(&type: NormalPointerType; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalP3uiv';
+    private z_NormalP3uiv_ovr_1 := GetFuncOrNil&(z_NormalP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalP3uiv(&type: NormalPointerType; coords: IntPtr) :=
-    z_NormalP3uiv_ovr_2(&type, coords);
+    z_NormalP3uiv_ovr_1(&type, coords);
     
-    private static procedure z_ColorP3ui_ovr_0(&type: ColorPointerType; color: UInt32);
-    external 'opengl32.dll' name 'glColorP3ui';
+    private z_ColorP3ui_adr := GetFuncAdr('glColorP3ui');
+    private z_ColorP3ui_ovr_0 := GetFuncOrNil&(z_ColorP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3ui(&type: ColorPointerType; color: UInt32) :=
     z_ColorP3ui_ovr_0(&type, color);
     
-    private static procedure z_ColorP3uiv_ovr_0(&type: ColorPointerType; var color: UInt32);
-    external 'opengl32.dll' name 'glColorP3uiv';
-    private static procedure z_ColorP3uiv_ovr_0_anh001(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glColorP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_ColorP3uiv_ovr_0(&type, color[0]) else
-      z_ColorP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_ColorP3uiv_adr := GetFuncAdr('glColorP3uiv');
+    private z_ColorP3uiv_ovr_0 := GetFuncOrNil&(z_ColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; var color: UInt32) :=
     z_ColorP3uiv_ovr_0(&type, color);
-    private static procedure z_ColorP3uiv_ovr_2(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glColorP3uiv';
+    private z_ColorP3uiv_ovr_1 := GetFuncOrNil&(z_ColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP3uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_ColorP3uiv_ovr_2(&type, color);
+    z_ColorP3uiv_ovr_1(&type, color);
     
-    private static procedure z_ColorP4ui_ovr_0(&type: ColorPointerType; color: UInt32);
-    external 'opengl32.dll' name 'glColorP4ui';
+    private z_ColorP4ui_adr := GetFuncAdr('glColorP4ui');
+    private z_ColorP4ui_ovr_0 := GetFuncOrNil&(z_ColorP4ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4ui(&type: ColorPointerType; color: UInt32) :=
     z_ColorP4ui_ovr_0(&type, color);
     
-    private static procedure z_ColorP4uiv_ovr_0(&type: ColorPointerType; var color: UInt32);
-    external 'opengl32.dll' name 'glColorP4uiv';
-    private static procedure z_ColorP4uiv_ovr_0_anh001(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glColorP4uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_ColorP4uiv_ovr_0(&type, color[0]) else
-      z_ColorP4uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_ColorP4uiv_adr := GetFuncAdr('glColorP4uiv');
+    private z_ColorP4uiv_ovr_0 := GetFuncOrNil&(z_ColorP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; var color: UInt32) :=
     z_ColorP4uiv_ovr_0(&type, color);
-    private static procedure z_ColorP4uiv_ovr_2(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glColorP4uiv';
+    private z_ColorP4uiv_ovr_1 := GetFuncOrNil&(z_ColorP4uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorP4uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_ColorP4uiv_ovr_2(&type, color);
+    z_ColorP4uiv_ovr_1(&type, color);
     
-    private static procedure z_SecondaryColorP3ui_ovr_0(&type: ColorPointerType; color: UInt32);
-    external 'opengl32.dll' name 'glSecondaryColorP3ui';
+    private z_SecondaryColorP3ui_adr := GetFuncAdr('glSecondaryColorP3ui');
+    private z_SecondaryColorP3ui_ovr_0 := GetFuncOrNil&(z_SecondaryColorP3ui_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3ui(&type: ColorPointerType; color: UInt32) :=
     z_SecondaryColorP3ui_ovr_0(&type, color);
     
-    private static procedure z_SecondaryColorP3uiv_ovr_0(&type: ColorPointerType; var color: UInt32);
-    external 'opengl32.dll' name 'glSecondaryColorP3uiv';
-    private static procedure z_SecondaryColorP3uiv_ovr_0_anh001(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColorP3uiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; color: array of UInt32) :=
-    if (color<>nil) and (color.Length<>0) then
-      z_SecondaryColorP3uiv_ovr_0(&type, color[0]) else
-      z_SecondaryColorP3uiv_ovr_0_anh001(&type, IntPtr.Zero);
+    private z_SecondaryColorP3uiv_adr := GetFuncAdr('glSecondaryColorP3uiv');
+    private z_SecondaryColorP3uiv_ovr_0 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; var color: UInt32) :=
     z_SecondaryColorP3uiv_ovr_0(&type, color);
-    private static procedure z_SecondaryColorP3uiv_ovr_2(&type: ColorPointerType; color: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColorP3uiv';
+    private z_SecondaryColorP3uiv_ovr_1 := GetFuncOrNil&(z_SecondaryColorP3uiv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorP3uiv(&type: ColorPointerType; color: IntPtr) :=
-    z_SecondaryColorP3uiv_ovr_2(&type, color);
+    z_SecondaryColorP3uiv_ovr_1(&type, color);
     
   end;
   
   [PCUNotRestore]
-  glViewportArrayARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glViewportArrayARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_viewport_array';
     
-    private static procedure z_ViewportArrayv_ovr_0(first: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glViewportArrayv';
-    private static procedure z_ViewportArrayv_ovr_0_anh0001(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glViewportArrayv';
+    private z_ViewportArrayv_adr := GetFuncAdr('glViewportArrayv');
+    private z_ViewportArrayv_ovr_0 := GetFuncOrNil&(z_ViewportArrayv_adr);
+    private z_ViewportArrayv_ovr_0_anh0001 := GetFuncOrNil&(z_ViewportArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportArrayv(first: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ViewportArrayv_ovr_0(first, count, v[0]) else
       z_ViewportArrayv_ovr_0_anh0001(first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportArrayv(first: UInt32; count: Int32; var v: single) :=
     z_ViewportArrayv_ovr_0(first, count, v);
-    private static procedure z_ViewportArrayv_ovr_2(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glViewportArrayv';
+    private z_ViewportArrayv_ovr_2 := GetFuncOrNil&(z_ViewportArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportArrayv(first: UInt32; count: Int32; v: IntPtr) :=
     z_ViewportArrayv_ovr_2(first, count, v);
     
-    private static procedure z_ViewportIndexedf_ovr_0(index: UInt32; x: single; y: single; w: single; h: single);
-    external 'opengl32.dll' name 'glViewportIndexedf';
+    private z_ViewportIndexedf_adr := GetFuncAdr('glViewportIndexedf');
+    private z_ViewportIndexedf_ovr_0 := GetFuncOrNil&(z_ViewportIndexedf_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportIndexedf(index: UInt32; x: single; y: single; w: single; h: single) :=
     z_ViewportIndexedf_ovr_0(index, x, y, w, h);
     
-    private static procedure z_ViewportIndexedfv_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glViewportIndexedfv';
-    private static procedure z_ViewportIndexedfv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glViewportIndexedfv';
+    private z_ViewportIndexedfv_adr := GetFuncAdr('glViewportIndexedfv');
+    private z_ViewportIndexedfv_ovr_0 := GetFuncOrNil&(z_ViewportIndexedfv_adr);
+    private z_ViewportIndexedfv_ovr_0_anh001 := GetFuncOrNil&(z_ViewportIndexedfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportIndexedfv(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ViewportIndexedfv_ovr_0(index, v[0]) else
       z_ViewportIndexedfv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportIndexedfv(index: UInt32; var v: single) :=
     z_ViewportIndexedfv_ovr_0(index, v);
-    private static procedure z_ViewportIndexedfv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glViewportIndexedfv';
+    private z_ViewportIndexedfv_ovr_2 := GetFuncOrNil&(z_ViewportIndexedfv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportIndexedfv(index: UInt32; v: IntPtr) :=
     z_ViewportIndexedfv_ovr_2(index, v);
     
-    private static procedure z_ScissorArrayv_ovr_0(first: UInt32; count: Int32; var v: Int32);
-    external 'opengl32.dll' name 'glScissorArrayv';
-    private static procedure z_ScissorArrayv_ovr_0_anh0001(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorArrayv';
+    private z_ScissorArrayv_adr := GetFuncAdr('glScissorArrayv');
+    private z_ScissorArrayv_ovr_0 := GetFuncOrNil&(z_ScissorArrayv_adr);
+    private z_ScissorArrayv_ovr_0_anh0001 := GetFuncOrNil&(z_ScissorArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorArrayv(first: UInt32; count: Int32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_ScissorArrayv_ovr_0(first, count, v[0]) else
       z_ScissorArrayv_ovr_0_anh0001(first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorArrayv(first: UInt32; count: Int32; var v: Int32) :=
     z_ScissorArrayv_ovr_0(first, count, v);
-    private static procedure z_ScissorArrayv_ovr_2(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorArrayv';
+    private z_ScissorArrayv_ovr_2 := GetFuncOrNil&(z_ScissorArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorArrayv(first: UInt32; count: Int32; v: IntPtr) :=
     z_ScissorArrayv_ovr_2(first, count, v);
     
-    private static procedure z_ScissorIndexed_ovr_0(index: UInt32; left: Int32; bottom: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glScissorIndexed';
+    private z_ScissorIndexed_adr := GetFuncAdr('glScissorIndexed');
+    private z_ScissorIndexed_ovr_0 := GetFuncOrNil&(z_ScissorIndexed_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorIndexed(index: UInt32; left: Int32; bottom: Int32; width: Int32; height: Int32) :=
     z_ScissorIndexed_ovr_0(index, left, bottom, width, height);
     
-    private static procedure z_ScissorIndexedv_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glScissorIndexedv';
-    private static procedure z_ScissorIndexedv_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorIndexedv';
+    private z_ScissorIndexedv_adr := GetFuncAdr('glScissorIndexedv');
+    private z_ScissorIndexedv_ovr_0 := GetFuncOrNil&(z_ScissorIndexedv_adr);
+    private z_ScissorIndexedv_ovr_0_anh001 := GetFuncOrNil&(z_ScissorIndexedv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorIndexedv(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_ScissorIndexedv_ovr_0(index, v[0]) else
       z_ScissorIndexedv_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorIndexedv(index: UInt32; var v: Int32) :=
     z_ScissorIndexedv_ovr_0(index, v);
-    private static procedure z_ScissorIndexedv_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorIndexedv';
+    private z_ScissorIndexedv_ovr_2 := GetFuncOrNil&(z_ScissorIndexedv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorIndexedv(index: UInt32; v: IntPtr) :=
     z_ScissorIndexedv_ovr_2(index, v);
     
-    private static procedure z_DepthRangeArrayv_ovr_0(first: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glDepthRangeArrayv';
-    private static procedure z_DepthRangeArrayv_ovr_0_anh0001(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glDepthRangeArrayv';
+    private z_DepthRangeArrayv_adr := GetFuncAdr('glDepthRangeArrayv');
+    private z_DepthRangeArrayv_ovr_0 := GetFuncOrNil&(z_DepthRangeArrayv_adr);
+    private z_DepthRangeArrayv_ovr_0_anh0001 := GetFuncOrNil&(z_DepthRangeArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArrayv(first: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_DepthRangeArrayv_ovr_0(first, count, v[0]) else
       z_DepthRangeArrayv_ovr_0_anh0001(first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArrayv(first: UInt32; count: Int32; var v: real) :=
     z_DepthRangeArrayv_ovr_0(first, count, v);
-    private static procedure z_DepthRangeArrayv_ovr_2(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glDepthRangeArrayv';
+    private z_DepthRangeArrayv_ovr_2 := GetFuncOrNil&(z_DepthRangeArrayv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArrayv(first: UInt32; count: Int32; v: IntPtr) :=
     z_DepthRangeArrayv_ovr_2(first, count, v);
     
-    private static procedure z_DepthRangeIndexed_ovr_0(index: UInt32; n: real; f: real);
-    external 'opengl32.dll' name 'glDepthRangeIndexed';
+    private z_DepthRangeIndexed_adr := GetFuncAdr('glDepthRangeIndexed');
+    private z_DepthRangeIndexed_ovr_0 := GetFuncOrNil&(z_DepthRangeIndexed_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeIndexed(index: UInt32; n: real; f: real) :=
     z_DepthRangeIndexed_ovr_0(index, n, f);
     
-    private static procedure z_GetFloati_v_ovr_0(target: DummyEnum; index: UInt32; var data: single);
-    external 'opengl32.dll' name 'glGetFloati_v';
-    private static procedure z_GetFloati_v_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloati_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; data: array of single) :=
+    private z_GetFloati_v_adr := GetFuncAdr('glGetFloati_v');
+    private z_GetFloati_v_ovr_0 := GetFuncOrNil&(z_GetFloati_v_adr);
+    private z_GetFloati_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetFloati_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetFloati_v_ovr_0(target, index, data[0]) else
       z_GetFloati_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; var data: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; var data: single) :=
     z_GetFloati_v_ovr_0(target, index, data);
-    private static procedure z_GetFloati_v_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloati_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetFloati_v_ovr_2 := GetFuncOrNil&(z_GetFloati_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetFloati_v_ovr_2(target, index, data);
     
-    private static procedure z_GetDoublei_v_ovr_0(target: DummyEnum; index: UInt32; var data: real);
-    external 'opengl32.dll' name 'glGetDoublei_v';
-    private static procedure z_GetDoublei_v_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublei_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; data: array of real) :=
+    private z_GetDoublei_v_adr := GetFuncAdr('glGetDoublei_v');
+    private z_GetDoublei_v_ovr_0 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    private z_GetDoublei_v_ovr_0_anh0001 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; data: array of real) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetDoublei_v_ovr_0(target, index, data[0]) else
       z_GetDoublei_v_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; var data: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; var data: real) :=
     z_GetDoublei_v_ovr_0(target, index, data);
-    private static procedure z_GetDoublei_v_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublei_v';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetDoublei_v_ovr_2 := GetFuncOrNil&(z_GetDoublei_v_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_v(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetDoublei_v_ovr_2(target, index, data);
     
-    private static procedure z_DepthRangeArraydvNV_ovr_0(first: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glDepthRangeArraydvNV';
-    private static procedure z_DepthRangeArraydvNV_ovr_0_anh0001(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glDepthRangeArraydvNV';
+    private z_DepthRangeArraydvNV_adr := GetFuncAdr('glDepthRangeArraydvNV');
+    private z_DepthRangeArraydvNV_ovr_0 := GetFuncOrNil&(z_DepthRangeArraydvNV_adr);
+    private z_DepthRangeArraydvNV_ovr_0_anh0001 := GetFuncOrNil&(z_DepthRangeArraydvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArraydvNV(first: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_DepthRangeArraydvNV_ovr_0(first, count, v[0]) else
       z_DepthRangeArraydvNV_ovr_0_anh0001(first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArraydvNV(first: UInt32; count: Int32; var v: real) :=
     z_DepthRangeArraydvNV_ovr_0(first, count, v);
-    private static procedure z_DepthRangeArraydvNV_ovr_2(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glDepthRangeArraydvNV';
+    private z_DepthRangeArraydvNV_ovr_2 := GetFuncOrNil&(z_DepthRangeArraydvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeArraydvNV(first: UInt32; count: Int32; v: IntPtr) :=
     z_DepthRangeArraydvNV_ovr_2(first, count, v);
     
-    private static procedure z_DepthRangeIndexeddNV_ovr_0(index: UInt32; n: real; f: real);
-    external 'opengl32.dll' name 'glDepthRangeIndexeddNV';
+    private z_DepthRangeIndexeddNV_adr := GetFuncAdr('glDepthRangeIndexeddNV');
+    private z_DepthRangeIndexeddNV_ovr_0 := GetFuncOrNil&(z_DepthRangeIndexeddNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangeIndexeddNV(index: UInt32; n: real; f: real) :=
     z_DepthRangeIndexeddNV_ovr_0(index, n, f);
     
   end;
   
   [PCUNotRestore]
-  glWindowPosARB = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glWindowPosARB = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_window_pos';
     
-    private static procedure z_WindowPos2dARB_ovr_0(x: real; y: real);
-    external 'opengl32.dll' name 'glWindowPos2dARB';
+    private z_WindowPos2dARB_adr := GetFuncAdr('glWindowPos2dARB');
+    private z_WindowPos2dARB_ovr_0 := GetFuncOrNil&(z_WindowPos2dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dARB(x: real; y: real) :=
     z_WindowPos2dARB_ovr_0(x, y);
     
-    private static procedure z_WindowPos2dvARB_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glWindowPos2dvARB';
-    private static procedure z_WindowPos2dvARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2dvARB';
+    private z_WindowPos2dvARB_adr := GetFuncAdr('glWindowPos2dvARB');
+    private z_WindowPos2dvARB_ovr_0 := GetFuncOrNil&(z_WindowPos2dvARB_adr);
+    private z_WindowPos2dvARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvARB(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2dvARB_ovr_0(v[0]) else
       z_WindowPos2dvARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvARB(var v: real) :=
     z_WindowPos2dvARB_ovr_0(v);
-    private static procedure z_WindowPos2dvARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2dvARB';
+    private z_WindowPos2dvARB_ovr_2 := GetFuncOrNil&(z_WindowPos2dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvARB(v: IntPtr) :=
     z_WindowPos2dvARB_ovr_2(v);
     
-    private static procedure z_WindowPos2fARB_ovr_0(x: single; y: single);
-    external 'opengl32.dll' name 'glWindowPos2fARB';
+    private z_WindowPos2fARB_adr := GetFuncAdr('glWindowPos2fARB');
+    private z_WindowPos2fARB_ovr_0 := GetFuncOrNil&(z_WindowPos2fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fARB(x: single; y: single) :=
     z_WindowPos2fARB_ovr_0(x, y);
     
-    private static procedure z_WindowPos2fvARB_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glWindowPos2fvARB';
-    private static procedure z_WindowPos2fvARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2fvARB';
+    private z_WindowPos2fvARB_adr := GetFuncAdr('glWindowPos2fvARB');
+    private z_WindowPos2fvARB_ovr_0 := GetFuncOrNil&(z_WindowPos2fvARB_adr);
+    private z_WindowPos2fvARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvARB(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2fvARB_ovr_0(v[0]) else
       z_WindowPos2fvARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvARB(var v: single) :=
     z_WindowPos2fvARB_ovr_0(v);
-    private static procedure z_WindowPos2fvARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2fvARB';
+    private z_WindowPos2fvARB_ovr_2 := GetFuncOrNil&(z_WindowPos2fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvARB(v: IntPtr) :=
     z_WindowPos2fvARB_ovr_2(v);
     
-    private static procedure z_WindowPos2iARB_ovr_0(x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glWindowPos2iARB';
+    private z_WindowPos2iARB_adr := GetFuncAdr('glWindowPos2iARB');
+    private z_WindowPos2iARB_ovr_0 := GetFuncOrNil&(z_WindowPos2iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2iARB(x: Int32; y: Int32) :=
     z_WindowPos2iARB_ovr_0(x, y);
     
-    private static procedure z_WindowPos2ivARB_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glWindowPos2ivARB';
-    private static procedure z_WindowPos2ivARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2ivARB';
+    private z_WindowPos2ivARB_adr := GetFuncAdr('glWindowPos2ivARB');
+    private z_WindowPos2ivARB_ovr_0 := GetFuncOrNil&(z_WindowPos2ivARB_adr);
+    private z_WindowPos2ivARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivARB(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2ivARB_ovr_0(v[0]) else
       z_WindowPos2ivARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivARB(var v: Int32) :=
     z_WindowPos2ivARB_ovr_0(v);
-    private static procedure z_WindowPos2ivARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2ivARB';
+    private z_WindowPos2ivARB_ovr_2 := GetFuncOrNil&(z_WindowPos2ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivARB(v: IntPtr) :=
     z_WindowPos2ivARB_ovr_2(v);
     
-    private static procedure z_WindowPos2sARB_ovr_0(x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glWindowPos2sARB';
+    private z_WindowPos2sARB_adr := GetFuncAdr('glWindowPos2sARB');
+    private z_WindowPos2sARB_ovr_0 := GetFuncOrNil&(z_WindowPos2sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2sARB(x: Int16; y: Int16) :=
     z_WindowPos2sARB_ovr_0(x, y);
     
-    private static procedure z_WindowPos2svARB_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glWindowPos2svARB';
-    private static procedure z_WindowPos2svARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2svARB';
+    private z_WindowPos2svARB_adr := GetFuncAdr('glWindowPos2svARB');
+    private z_WindowPos2svARB_ovr_0 := GetFuncOrNil&(z_WindowPos2svARB_adr);
+    private z_WindowPos2svARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svARB(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2svARB_ovr_0(v[0]) else
       z_WindowPos2svARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svARB(var v: Int16) :=
     z_WindowPos2svARB_ovr_0(v);
-    private static procedure z_WindowPos2svARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2svARB';
+    private z_WindowPos2svARB_ovr_2 := GetFuncOrNil&(z_WindowPos2svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svARB(v: IntPtr) :=
     z_WindowPos2svARB_ovr_2(v);
     
-    private static procedure z_WindowPos3dARB_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glWindowPos3dARB';
+    private z_WindowPos3dARB_adr := GetFuncAdr('glWindowPos3dARB');
+    private z_WindowPos3dARB_ovr_0 := GetFuncOrNil&(z_WindowPos3dARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dARB(x: real; y: real; z: real) :=
     z_WindowPos3dARB_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3dvARB_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glWindowPos3dvARB';
-    private static procedure z_WindowPos3dvARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3dvARB';
+    private z_WindowPos3dvARB_adr := GetFuncAdr('glWindowPos3dvARB');
+    private z_WindowPos3dvARB_ovr_0 := GetFuncOrNil&(z_WindowPos3dvARB_adr);
+    private z_WindowPos3dvARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvARB(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3dvARB_ovr_0(v[0]) else
       z_WindowPos3dvARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvARB(var v: real) :=
     z_WindowPos3dvARB_ovr_0(v);
-    private static procedure z_WindowPos3dvARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3dvARB';
+    private z_WindowPos3dvARB_ovr_2 := GetFuncOrNil&(z_WindowPos3dvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvARB(v: IntPtr) :=
     z_WindowPos3dvARB_ovr_2(v);
     
-    private static procedure z_WindowPos3fARB_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glWindowPos3fARB';
+    private z_WindowPos3fARB_adr := GetFuncAdr('glWindowPos3fARB');
+    private z_WindowPos3fARB_ovr_0 := GetFuncOrNil&(z_WindowPos3fARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fARB(x: single; y: single; z: single) :=
     z_WindowPos3fARB_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3fvARB_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glWindowPos3fvARB';
-    private static procedure z_WindowPos3fvARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3fvARB';
+    private z_WindowPos3fvARB_adr := GetFuncAdr('glWindowPos3fvARB');
+    private z_WindowPos3fvARB_ovr_0 := GetFuncOrNil&(z_WindowPos3fvARB_adr);
+    private z_WindowPos3fvARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvARB(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3fvARB_ovr_0(v[0]) else
       z_WindowPos3fvARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvARB(var v: single) :=
     z_WindowPos3fvARB_ovr_0(v);
-    private static procedure z_WindowPos3fvARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3fvARB';
+    private z_WindowPos3fvARB_ovr_2 := GetFuncOrNil&(z_WindowPos3fvARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvARB(v: IntPtr) :=
     z_WindowPos3fvARB_ovr_2(v);
     
-    private static procedure z_WindowPos3iARB_ovr_0(x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glWindowPos3iARB';
+    private z_WindowPos3iARB_adr := GetFuncAdr('glWindowPos3iARB');
+    private z_WindowPos3iARB_ovr_0 := GetFuncOrNil&(z_WindowPos3iARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3iARB(x: Int32; y: Int32; z: Int32) :=
     z_WindowPos3iARB_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3ivARB_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glWindowPos3ivARB';
-    private static procedure z_WindowPos3ivARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3ivARB';
+    private z_WindowPos3ivARB_adr := GetFuncAdr('glWindowPos3ivARB');
+    private z_WindowPos3ivARB_ovr_0 := GetFuncOrNil&(z_WindowPos3ivARB_adr);
+    private z_WindowPos3ivARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivARB(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3ivARB_ovr_0(v[0]) else
       z_WindowPos3ivARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivARB(var v: Int32) :=
     z_WindowPos3ivARB_ovr_0(v);
-    private static procedure z_WindowPos3ivARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3ivARB';
+    private z_WindowPos3ivARB_ovr_2 := GetFuncOrNil&(z_WindowPos3ivARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivARB(v: IntPtr) :=
     z_WindowPos3ivARB_ovr_2(v);
     
-    private static procedure z_WindowPos3sARB_ovr_0(x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glWindowPos3sARB';
+    private z_WindowPos3sARB_adr := GetFuncAdr('glWindowPos3sARB');
+    private z_WindowPos3sARB_ovr_0 := GetFuncOrNil&(z_WindowPos3sARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3sARB(x: Int16; y: Int16; z: Int16) :=
     z_WindowPos3sARB_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3svARB_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glWindowPos3svARB';
-    private static procedure z_WindowPos3svARB_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3svARB';
+    private z_WindowPos3svARB_adr := GetFuncAdr('glWindowPos3svARB');
+    private z_WindowPos3svARB_ovr_0 := GetFuncOrNil&(z_WindowPos3svARB_adr);
+    private z_WindowPos3svARB_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svARB(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3svARB_ovr_0(v[0]) else
       z_WindowPos3svARB_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svARB(var v: Int16) :=
     z_WindowPos3svARB_ovr_0(v);
-    private static procedure z_WindowPos3svARB_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3svARB';
+    private z_WindowPos3svARB_ovr_2 := GetFuncOrNil&(z_WindowPos3svARB_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svARB(v: IntPtr) :=
     z_WindowPos3svARB_ovr_2(v);
     
   end;
   
   [PCUNotRestore]
-  glDrawBuffersATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawBuffersATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_draw_buffers';
     
-    private static procedure z_DrawBuffersATI_ovr_0(n: Int32; var bufs: DrawBufferMode);
-    external 'opengl32.dll' name 'glDrawBuffersATI';
-    private static procedure z_DrawBuffersATI_ovr_0_anh001(n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glDrawBuffersATI';
+    private z_DrawBuffersATI_adr := GetFuncAdr('glDrawBuffersATI');
+    private z_DrawBuffersATI_ovr_0 := GetFuncOrNil&(z_DrawBuffersATI_adr);
+    private z_DrawBuffersATI_ovr_0_anh001 := GetFuncOrNil&(z_DrawBuffersATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersATI(n: Int32; bufs: array of DrawBufferMode) :=
     if (bufs<>nil) and (bufs.Length<>0) then
       z_DrawBuffersATI_ovr_0(n, bufs[0]) else
       z_DrawBuffersATI_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersATI(n: Int32; var bufs: DrawBufferMode) :=
     z_DrawBuffersATI_ovr_0(n, bufs);
-    private static procedure z_DrawBuffersATI_ovr_2(n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glDrawBuffersATI';
+    private z_DrawBuffersATI_ovr_2 := GetFuncOrNil&(z_DrawBuffersATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawBuffersATI(n: Int32; bufs: IntPtr) :=
     z_DrawBuffersATI_ovr_2(n, bufs);
     
   end;
   
   [PCUNotRestore]
-  glElementArrayATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glElementArrayATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_element_array';
     
-    private static procedure z_ElementPointerATI_ovr_0(&type: ElementPointerTypeATI; pointer: IntPtr);
-    external 'opengl32.dll' name 'glElementPointerATI';
+    private z_ElementPointerATI_adr := GetFuncAdr('glElementPointerATI');
+    private z_ElementPointerATI_ovr_0 := GetFuncOrNil&(z_ElementPointerATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ElementPointerATI(&type: ElementPointerTypeATI; pointer: IntPtr) :=
     z_ElementPointerATI_ovr_0(&type, pointer);
     
-    private static procedure z_DrawElementArrayATI_ovr_0(mode: PrimitiveType; count: Int32);
-    external 'opengl32.dll' name 'glDrawElementArrayATI';
+    private z_DrawElementArrayATI_adr := GetFuncAdr('glDrawElementArrayATI');
+    private z_DrawElementArrayATI_ovr_0 := GetFuncOrNil&(z_DrawElementArrayATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementArrayATI(mode: PrimitiveType; count: Int32) :=
     z_DrawElementArrayATI_ovr_0(mode, count);
     
-    private static procedure z_DrawRangeElementArrayATI_ovr_0(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32);
-    external 'opengl32.dll' name 'glDrawRangeElementArrayATI';
+    private z_DrawRangeElementArrayATI_adr := GetFuncAdr('glDrawRangeElementArrayATI');
+    private z_DrawRangeElementArrayATI_ovr_0 := GetFuncOrNil&(z_DrawRangeElementArrayATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawRangeElementArrayATI(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32) :=
     z_DrawRangeElementArrayATI_ovr_0(mode, start, &end, count);
     
   end;
   
   [PCUNotRestore]
-  glEnvmapBumpmapATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glEnvmapBumpmapATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_envmap_bumpmap';
     
-    private static procedure z_TexBumpParameterivATI_ovr_0(pname: TexBumpParameterATI; var param: Int32);
-    external 'opengl32.dll' name 'glTexBumpParameterivATI';
-    private static procedure z_TexBumpParameterivATI_ovr_0_anh001(pname: TexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glTexBumpParameterivATI';
+    private z_TexBumpParameterivATI_adr := GetFuncAdr('glTexBumpParameterivATI');
+    private z_TexBumpParameterivATI_ovr_0 := GetFuncOrNil&(z_TexBumpParameterivATI_adr);
+    private z_TexBumpParameterivATI_ovr_0_anh001 := GetFuncOrNil&(z_TexBumpParameterivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_TexBumpParameterivATI_ovr_0(pname, param[0]) else
       z_TexBumpParameterivATI_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; var param: Int32) :=
     z_TexBumpParameterivATI_ovr_0(pname, param);
-    private static procedure z_TexBumpParameterivATI_ovr_2(pname: TexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glTexBumpParameterivATI';
+    private z_TexBumpParameterivATI_ovr_2 := GetFuncOrNil&(z_TexBumpParameterivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterivATI(pname: TexBumpParameterATI; param: IntPtr) :=
     z_TexBumpParameterivATI_ovr_2(pname, param);
     
-    private static procedure z_TexBumpParameterfvATI_ovr_0(pname: TexBumpParameterATI; var param: single);
-    external 'opengl32.dll' name 'glTexBumpParameterfvATI';
-    private static procedure z_TexBumpParameterfvATI_ovr_0_anh001(pname: TexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glTexBumpParameterfvATI';
+    private z_TexBumpParameterfvATI_adr := GetFuncAdr('glTexBumpParameterfvATI');
+    private z_TexBumpParameterfvATI_ovr_0 := GetFuncOrNil&(z_TexBumpParameterfvATI_adr);
+    private z_TexBumpParameterfvATI_ovr_0_anh001 := GetFuncOrNil&(z_TexBumpParameterfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_TexBumpParameterfvATI_ovr_0(pname, param[0]) else
       z_TexBumpParameterfvATI_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; var param: single) :=
     z_TexBumpParameterfvATI_ovr_0(pname, param);
-    private static procedure z_TexBumpParameterfvATI_ovr_2(pname: TexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glTexBumpParameterfvATI';
+    private z_TexBumpParameterfvATI_ovr_2 := GetFuncOrNil&(z_TexBumpParameterfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBumpParameterfvATI(pname: TexBumpParameterATI; param: IntPtr) :=
     z_TexBumpParameterfvATI_ovr_2(pname, param);
     
-    private static procedure z_GetTexBumpParameterivATI_ovr_0(pname: GetTexBumpParameterATI; var param: Int32);
-    external 'opengl32.dll' name 'glGetTexBumpParameterivATI';
-    private static procedure z_GetTexBumpParameterivATI_ovr_0_anh001(pname: GetTexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTexBumpParameterivATI';
+    private z_GetTexBumpParameterivATI_adr := GetFuncAdr('glGetTexBumpParameterivATI');
+    private z_GetTexBumpParameterivATI_ovr_0 := GetFuncOrNil&(z_GetTexBumpParameterivATI_adr);
+    private z_GetTexBumpParameterivATI_ovr_0_anh001 := GetFuncOrNil&(z_GetTexBumpParameterivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterivATI(pname: GetTexBumpParameterATI; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTexBumpParameterivATI_ovr_0(pname, param[0]) else
       z_GetTexBumpParameterivATI_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterivATI(pname: GetTexBumpParameterATI; var param: Int32) :=
     z_GetTexBumpParameterivATI_ovr_0(pname, param);
-    private static procedure z_GetTexBumpParameterivATI_ovr_2(pname: GetTexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTexBumpParameterivATI';
+    private z_GetTexBumpParameterivATI_ovr_2 := GetFuncOrNil&(z_GetTexBumpParameterivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterivATI(pname: GetTexBumpParameterATI; param: IntPtr) :=
     z_GetTexBumpParameterivATI_ovr_2(pname, param);
     
-    private static procedure z_GetTexBumpParameterfvATI_ovr_0(pname: GetTexBumpParameterATI; var param: single);
-    external 'opengl32.dll' name 'glGetTexBumpParameterfvATI';
-    private static procedure z_GetTexBumpParameterfvATI_ovr_0_anh001(pname: GetTexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTexBumpParameterfvATI';
+    private z_GetTexBumpParameterfvATI_adr := GetFuncAdr('glGetTexBumpParameterfvATI');
+    private z_GetTexBumpParameterfvATI_ovr_0 := GetFuncOrNil&(z_GetTexBumpParameterfvATI_adr);
+    private z_GetTexBumpParameterfvATI_ovr_0_anh001 := GetFuncOrNil&(z_GetTexBumpParameterfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterfvATI(pname: GetTexBumpParameterATI; param: array of single) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetTexBumpParameterfvATI_ovr_0(pname, param[0]) else
       z_GetTexBumpParameterfvATI_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterfvATI(pname: GetTexBumpParameterATI; var param: single) :=
     z_GetTexBumpParameterfvATI_ovr_0(pname, param);
-    private static procedure z_GetTexBumpParameterfvATI_ovr_2(pname: GetTexBumpParameterATI; param: IntPtr);
-    external 'opengl32.dll' name 'glGetTexBumpParameterfvATI';
+    private z_GetTexBumpParameterfvATI_ovr_2 := GetFuncOrNil&(z_GetTexBumpParameterfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexBumpParameterfvATI(pname: GetTexBumpParameterATI; param: IntPtr) :=
     z_GetTexBumpParameterfvATI_ovr_2(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glFragmentShaderATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFragmentShaderATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_fragment_shader';
     
-    private static function z_GenFragmentShadersATI_ovr_0(range: UInt32): UInt32;
-    external 'opengl32.dll' name 'glGenFragmentShadersATI';
+    private z_GenFragmentShadersATI_adr := GetFuncAdr('glGenFragmentShadersATI');
+    private z_GenFragmentShadersATI_ovr_0 := GetFuncOrNil&(z_GenFragmentShadersATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenFragmentShadersATI(range: UInt32): UInt32 :=
     z_GenFragmentShadersATI_ovr_0(range);
     
-    private static procedure z_BindFragmentShaderATI_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glBindFragmentShaderATI';
+    private z_BindFragmentShaderATI_adr := GetFuncAdr('glBindFragmentShaderATI');
+    private z_BindFragmentShaderATI_ovr_0 := GetFuncOrNil&(z_BindFragmentShaderATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragmentShaderATI(id: UInt32) :=
     z_BindFragmentShaderATI_ovr_0(id);
     
-    private static procedure z_DeleteFragmentShaderATI_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glDeleteFragmentShaderATI';
+    private z_DeleteFragmentShaderATI_adr := GetFuncAdr('glDeleteFragmentShaderATI');
+    private z_DeleteFragmentShaderATI_ovr_0 := GetFuncOrNil&(z_DeleteFragmentShaderATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFragmentShaderATI(id: UInt32) :=
     z_DeleteFragmentShaderATI_ovr_0(id);
     
-    private static procedure z_BeginFragmentShaderATI_ovr_0;
-    external 'opengl32.dll' name 'glBeginFragmentShaderATI';
+    private z_BeginFragmentShaderATI_adr := GetFuncAdr('glBeginFragmentShaderATI');
+    private z_BeginFragmentShaderATI_ovr_0 := GetFuncOrNil&(z_BeginFragmentShaderATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginFragmentShaderATI :=
     z_BeginFragmentShaderATI_ovr_0;
     
-    private static procedure z_EndFragmentShaderATI_ovr_0;
-    external 'opengl32.dll' name 'glEndFragmentShaderATI';
+    private z_EndFragmentShaderATI_adr := GetFuncAdr('glEndFragmentShaderATI');
+    private z_EndFragmentShaderATI_ovr_0 := GetFuncOrNil&(z_EndFragmentShaderATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndFragmentShaderATI :=
     z_EndFragmentShaderATI_ovr_0;
     
-    private static procedure z_PassTexCoordATI_ovr_0(dst: UInt32; coord: UInt32; swizzle: SwizzleOpATI);
-    external 'opengl32.dll' name 'glPassTexCoordATI';
+    private z_PassTexCoordATI_adr := GetFuncAdr('glPassTexCoordATI');
+    private z_PassTexCoordATI_ovr_0 := GetFuncOrNil&(z_PassTexCoordATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PassTexCoordATI(dst: UInt32; coord: UInt32; swizzle: SwizzleOpATI) :=
     z_PassTexCoordATI_ovr_0(dst, coord, swizzle);
     
-    private static procedure z_SampleMapATI_ovr_0(dst: UInt32; interp: UInt32; swizzle: SwizzleOpATI);
-    external 'opengl32.dll' name 'glSampleMapATI';
+    private z_SampleMapATI_adr := GetFuncAdr('glSampleMapATI');
+    private z_SampleMapATI_ovr_0 := GetFuncOrNil&(z_SampleMapATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleMapATI(dst: UInt32; interp: UInt32; swizzle: SwizzleOpATI) :=
     z_SampleMapATI_ovr_0(dst, interp, swizzle);
     
-    private static procedure z_ColorFragmentOp1ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32);
-    external 'opengl32.dll' name 'glColorFragmentOp1ATI';
+    private z_ColorFragmentOp1ATI_adr := GetFuncAdr('glColorFragmentOp1ATI');
+    private z_ColorFragmentOp1ATI_ovr_0 := GetFuncOrNil&(z_ColorFragmentOp1ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorFragmentOp1ATI(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32) :=
     z_ColorFragmentOp1ATI_ovr_0(op, dst, dstMask, dstMod, arg1, arg1Rep, arg1Mod);
     
-    private static procedure z_ColorFragmentOp2ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32);
-    external 'opengl32.dll' name 'glColorFragmentOp2ATI';
+    private z_ColorFragmentOp2ATI_adr := GetFuncAdr('glColorFragmentOp2ATI');
+    private z_ColorFragmentOp2ATI_ovr_0 := GetFuncOrNil&(z_ColorFragmentOp2ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorFragmentOp2ATI(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32) :=
     z_ColorFragmentOp2ATI_ovr_0(op, dst, dstMask, dstMod, arg1, arg1Rep, arg1Mod, arg2, arg2Rep, arg2Mod);
     
-    private static procedure z_ColorFragmentOp3ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32; arg3: UInt32; arg3Rep: UInt32; arg3Mod: UInt32);
-    external 'opengl32.dll' name 'glColorFragmentOp3ATI';
+    private z_ColorFragmentOp3ATI_adr := GetFuncAdr('glColorFragmentOp3ATI');
+    private z_ColorFragmentOp3ATI_ovr_0 := GetFuncOrNil&(z_ColorFragmentOp3ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorFragmentOp3ATI(op: FragmentOpATI; dst: UInt32; dstMask: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32; arg3: UInt32; arg3Rep: UInt32; arg3Mod: UInt32) :=
     z_ColorFragmentOp3ATI_ovr_0(op, dst, dstMask, dstMod, arg1, arg1Rep, arg1Mod, arg2, arg2Rep, arg2Mod, arg3, arg3Rep, arg3Mod);
     
-    private static procedure z_AlphaFragmentOp1ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32);
-    external 'opengl32.dll' name 'glAlphaFragmentOp1ATI';
+    private z_AlphaFragmentOp1ATI_adr := GetFuncAdr('glAlphaFragmentOp1ATI');
+    private z_AlphaFragmentOp1ATI_ovr_0 := GetFuncOrNil&(z_AlphaFragmentOp1ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaFragmentOp1ATI(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32) :=
     z_AlphaFragmentOp1ATI_ovr_0(op, dst, dstMod, arg1, arg1Rep, arg1Mod);
     
-    private static procedure z_AlphaFragmentOp2ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32);
-    external 'opengl32.dll' name 'glAlphaFragmentOp2ATI';
+    private z_AlphaFragmentOp2ATI_adr := GetFuncAdr('glAlphaFragmentOp2ATI');
+    private z_AlphaFragmentOp2ATI_ovr_0 := GetFuncOrNil&(z_AlphaFragmentOp2ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaFragmentOp2ATI(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32) :=
     z_AlphaFragmentOp2ATI_ovr_0(op, dst, dstMod, arg1, arg1Rep, arg1Mod, arg2, arg2Rep, arg2Mod);
     
-    private static procedure z_AlphaFragmentOp3ATI_ovr_0(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32; arg3: UInt32; arg3Rep: UInt32; arg3Mod: UInt32);
-    external 'opengl32.dll' name 'glAlphaFragmentOp3ATI';
+    private z_AlphaFragmentOp3ATI_adr := GetFuncAdr('glAlphaFragmentOp3ATI');
+    private z_AlphaFragmentOp3ATI_ovr_0 := GetFuncOrNil&(z_AlphaFragmentOp3ATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaFragmentOp3ATI(op: FragmentOpATI; dst: UInt32; dstMod: UInt32; arg1: UInt32; arg1Rep: UInt32; arg1Mod: UInt32; arg2: UInt32; arg2Rep: UInt32; arg2Mod: UInt32; arg3: UInt32; arg3Rep: UInt32; arg3Mod: UInt32) :=
     z_AlphaFragmentOp3ATI_ovr_0(op, dst, dstMod, arg1, arg1Rep, arg1Mod, arg2, arg2Rep, arg2Mod, arg3, arg3Rep, arg3Mod);
     
-    private static procedure z_SetFragmentShaderConstantATI_ovr_0(dst: UInt32; var value: single);
-    external 'opengl32.dll' name 'glSetFragmentShaderConstantATI';
-    private static procedure z_SetFragmentShaderConstantATI_ovr_0_anh001(dst: UInt32; value: IntPtr);
-    external 'opengl32.dll' name 'glSetFragmentShaderConstantATI';
+    private z_SetFragmentShaderConstantATI_adr := GetFuncAdr('glSetFragmentShaderConstantATI');
+    private z_SetFragmentShaderConstantATI_ovr_0 := GetFuncOrNil&(z_SetFragmentShaderConstantATI_adr);
+    private z_SetFragmentShaderConstantATI_ovr_0_anh001 := GetFuncOrNil&(z_SetFragmentShaderConstantATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetFragmentShaderConstantATI(dst: UInt32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_SetFragmentShaderConstantATI_ovr_0(dst, value[0]) else
       z_SetFragmentShaderConstantATI_ovr_0_anh001(dst, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetFragmentShaderConstantATI(dst: UInt32; var value: single) :=
     z_SetFragmentShaderConstantATI_ovr_0(dst, value);
-    private static procedure z_SetFragmentShaderConstantATI_ovr_2(dst: UInt32; value: IntPtr);
-    external 'opengl32.dll' name 'glSetFragmentShaderConstantATI';
+    private z_SetFragmentShaderConstantATI_ovr_2 := GetFuncOrNil&(z_SetFragmentShaderConstantATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetFragmentShaderConstantATI(dst: UInt32; value: IntPtr) :=
     z_SetFragmentShaderConstantATI_ovr_2(dst, value);
     
   end;
   
   [PCUNotRestore]
-  glMapObjectBufferATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMapObjectBufferATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_map_object_buffer';
     
-    private static function z_MapObjectBufferATI_ovr_0(buffer: UInt32): IntPtr;
-    external 'opengl32.dll' name 'glMapObjectBufferATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapObjectBufferATI(buffer: UInt32): IntPtr :=
+    private z_MapObjectBufferATI_adr := GetFuncAdr('glMapObjectBufferATI');
+    private z_MapObjectBufferATI_ovr_0 := GetFuncOrNil&(z_MapObjectBufferATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapObjectBufferATI(buffer: gl_buffer): IntPtr :=
     z_MapObjectBufferATI_ovr_0(buffer);
     
-    private static procedure z_UnmapObjectBufferATI_ovr_0(buffer: UInt32);
-    external 'opengl32.dll' name 'glUnmapObjectBufferATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UnmapObjectBufferATI(buffer: UInt32) :=
+    private z_UnmapObjectBufferATI_adr := GetFuncAdr('glUnmapObjectBufferATI');
+    private z_UnmapObjectBufferATI_ovr_0 := GetFuncOrNil&(z_UnmapObjectBufferATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UnmapObjectBufferATI(buffer: gl_buffer) :=
     z_UnmapObjectBufferATI_ovr_0(buffer);
     
   end;
   
   [PCUNotRestore]
-  glPnTrianglesATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPnTrianglesATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_pn_triangles';
     
-    private static procedure z_PNTrianglesiATI_ovr_0(pname: PNTrianglesPNameATI; param: Int32);
-    external 'opengl32.dll' name 'glPNTrianglesiATI';
+    private z_PNTrianglesiATI_adr := GetFuncAdr('glPNTrianglesiATI');
+    private z_PNTrianglesiATI_ovr_0 := GetFuncOrNil&(z_PNTrianglesiATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PNTrianglesiATI(pname: PNTrianglesPNameATI; param: Int32) :=
     z_PNTrianglesiATI_ovr_0(pname, param);
     
-    private static procedure z_PNTrianglesfATI_ovr_0(pname: PNTrianglesPNameATI; param: single);
-    external 'opengl32.dll' name 'glPNTrianglesfATI';
+    private z_PNTrianglesfATI_adr := GetFuncAdr('glPNTrianglesfATI');
+    private z_PNTrianglesfATI_ovr_0 := GetFuncOrNil&(z_PNTrianglesfATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PNTrianglesfATI(pname: PNTrianglesPNameATI; param: single) :=
     z_PNTrianglesfATI_ovr_0(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glSeparateStencilATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSeparateStencilATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_separate_stencil';
     
-    private static procedure z_StencilOpSeparateATI_ovr_0(face: StencilFaceDirection; sfail: StencilOp; dpfail: StencilOp; dppass: StencilOp);
-    external 'opengl32.dll' name 'glStencilOpSeparateATI';
+    private z_StencilOpSeparateATI_adr := GetFuncAdr('glStencilOpSeparateATI');
+    private z_StencilOpSeparateATI_ovr_0 := GetFuncOrNil&(z_StencilOpSeparateATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilOpSeparateATI(face: StencilFaceDirection; sfail: StencilOp; dpfail: StencilOp; dppass: StencilOp) :=
     z_StencilOpSeparateATI_ovr_0(face, sfail, dpfail, dppass);
     
-    private static procedure z_StencilFuncSeparateATI_ovr_0(frontfunc: StencilFunction; backfunc: StencilFunction; ref: Int32; mask: UInt32);
-    external 'opengl32.dll' name 'glStencilFuncSeparateATI';
+    private z_StencilFuncSeparateATI_adr := GetFuncAdr('glStencilFuncSeparateATI');
+    private z_StencilFuncSeparateATI_ovr_0 := GetFuncOrNil&(z_StencilFuncSeparateATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFuncSeparateATI(frontfunc: StencilFunction; backfunc: StencilFunction; ref: Int32; mask: UInt32) :=
     z_StencilFuncSeparateATI_ovr_0(frontfunc, backfunc, ref, mask);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayObjectATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayObjectATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_vertex_array_object';
     
-    private static function z_NewObjectBufferATI_ovr_0(size: Int32; pointer: IntPtr; usage: ArrayObjectUsageATI): UInt32;
-    external 'opengl32.dll' name 'glNewObjectBufferATI';
+    private z_NewObjectBufferATI_adr := GetFuncAdr('glNewObjectBufferATI');
+    private z_NewObjectBufferATI_ovr_0 := GetFuncOrNil&(z_NewObjectBufferATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function NewObjectBufferATI(size: Int32; pointer: IntPtr; usage: ArrayObjectUsageATI): UInt32 :=
     z_NewObjectBufferATI_ovr_0(size, pointer, usage);
     
-    private static function z_IsObjectBufferATI_ovr_0(buffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsObjectBufferATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsObjectBufferATI(buffer: UInt32): boolean :=
+    private z_IsObjectBufferATI_adr := GetFuncAdr('glIsObjectBufferATI');
+    private z_IsObjectBufferATI_ovr_0 := GetFuncOrNil&(z_IsObjectBufferATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsObjectBufferATI(buffer: gl_buffer): boolean :=
     z_IsObjectBufferATI_ovr_0(buffer);
     
-    private static procedure z_UpdateObjectBufferATI_ovr_0(buffer: UInt32; offset: UInt32; size: Int32; pointer: IntPtr; preserve: PreserveModeATI);
-    external 'opengl32.dll' name 'glUpdateObjectBufferATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UpdateObjectBufferATI(buffer: UInt32; offset: UInt32; size: Int32; pointer: IntPtr; preserve: PreserveModeATI) :=
+    private z_UpdateObjectBufferATI_adr := GetFuncAdr('glUpdateObjectBufferATI');
+    private z_UpdateObjectBufferATI_ovr_0 := GetFuncOrNil&(z_UpdateObjectBufferATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UpdateObjectBufferATI(buffer: gl_buffer; offset: UInt32; size: Int32; pointer: IntPtr; preserve: PreserveModeATI) :=
     z_UpdateObjectBufferATI_ovr_0(buffer, offset, size, pointer, preserve);
     
-    private static procedure z_GetObjectBufferfvATI_ovr_0(buffer: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetObjectBufferfvATI';
-    private static procedure z_GetObjectBufferfvATI_ovr_0_anh0001(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectBufferfvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferfvATI(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of single) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetObjectBufferfvATI_ovr_0(buffer, pname, ¶ms[0]) else
-      z_GetObjectBufferfvATI_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferfvATI(buffer: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single) :=
+    private z_GetObjectBufferfvATI_adr := GetFuncAdr('glGetObjectBufferfvATI');
+    private z_GetObjectBufferfvATI_ovr_0 := GetFuncOrNil&(z_GetObjectBufferfvATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferfvATI(buffer: gl_buffer; pname: ArrayObjectPNameATI; var ¶ms: single) :=
     z_GetObjectBufferfvATI_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetObjectBufferfvATI_ovr_2(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectBufferfvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferfvATI(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetObjectBufferfvATI_ovr_2(buffer, pname, ¶ms);
+    private z_GetObjectBufferfvATI_ovr_1 := GetFuncOrNil&(z_GetObjectBufferfvATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferfvATI(buffer: gl_buffer; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
+    z_GetObjectBufferfvATI_ovr_1(buffer, pname, ¶ms);
     
-    private static procedure z_GetObjectBufferivATI_ovr_0(buffer: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetObjectBufferivATI';
-    private static procedure z_GetObjectBufferivATI_ovr_0_anh0001(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectBufferivATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferivATI(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetObjectBufferivATI_ovr_0(buffer, pname, ¶ms[0]) else
-      z_GetObjectBufferivATI_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferivATI(buffer: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32) :=
+    private z_GetObjectBufferivATI_adr := GetFuncAdr('glGetObjectBufferivATI');
+    private z_GetObjectBufferivATI_ovr_0 := GetFuncOrNil&(z_GetObjectBufferivATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferivATI(buffer: gl_buffer; pname: ArrayObjectPNameATI; var ¶ms: Int32) :=
     z_GetObjectBufferivATI_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetObjectBufferivATI_ovr_2(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectBufferivATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferivATI(buffer: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetObjectBufferivATI_ovr_2(buffer, pname, ¶ms);
+    private z_GetObjectBufferivATI_ovr_1 := GetFuncOrNil&(z_GetObjectBufferivATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectBufferivATI(buffer: gl_buffer; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
+    z_GetObjectBufferivATI_ovr_1(buffer, pname, ¶ms);
     
-    private static procedure z_FreeObjectBufferATI_ovr_0(buffer: UInt32);
-    external 'opengl32.dll' name 'glFreeObjectBufferATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FreeObjectBufferATI(buffer: UInt32) :=
+    private z_FreeObjectBufferATI_adr := GetFuncAdr('glFreeObjectBufferATI');
+    private z_FreeObjectBufferATI_ovr_0 := GetFuncOrNil&(z_FreeObjectBufferATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FreeObjectBufferATI(buffer: gl_buffer) :=
     z_FreeObjectBufferATI_ovr_0(buffer);
     
-    private static procedure z_ArrayObjectATI_ovr_0(&array: EnableCap; size: Int32; &type: ScalarType; stride: Int32; buffer: UInt32; offset: UInt32);
-    external 'opengl32.dll' name 'glArrayObjectATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ArrayObjectATI(&array: EnableCap; size: Int32; &type: ScalarType; stride: Int32; buffer: UInt32; offset: UInt32) :=
+    private z_ArrayObjectATI_adr := GetFuncAdr('glArrayObjectATI');
+    private z_ArrayObjectATI_ovr_0 := GetFuncOrNil&(z_ArrayObjectATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ArrayObjectATI(&array: EnableCap; size: Int32; &type: ScalarType; stride: Int32; buffer: gl_buffer; offset: UInt32) :=
     z_ArrayObjectATI_ovr_0(&array, size, &type, stride, buffer, offset);
     
-    private static procedure z_GetArrayObjectfvATI_ovr_0(&array: EnableCap; pname: ArrayObjectPNameATI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetArrayObjectfvATI';
-    private static procedure z_GetArrayObjectfvATI_ovr_0_anh0001(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetArrayObjectfvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectfvATI(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: array of single) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetArrayObjectfvATI_ovr_0(&array, pname, ¶ms[0]) else
-      z_GetArrayObjectfvATI_ovr_0_anh0001(&array, pname, IntPtr.Zero);
+    private z_GetArrayObjectfvATI_adr := GetFuncAdr('glGetArrayObjectfvATI');
+    private z_GetArrayObjectfvATI_ovr_0 := GetFuncOrNil&(z_GetArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectfvATI(&array: EnableCap; pname: ArrayObjectPNameATI; var ¶ms: single) :=
     z_GetArrayObjectfvATI_ovr_0(&array, pname, ¶ms);
-    private static procedure z_GetArrayObjectfvATI_ovr_2(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetArrayObjectfvATI';
+    private z_GetArrayObjectfvATI_ovr_1 := GetFuncOrNil&(z_GetArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectfvATI(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetArrayObjectfvATI_ovr_2(&array, pname, ¶ms);
+    z_GetArrayObjectfvATI_ovr_1(&array, pname, ¶ms);
     
-    private static procedure z_GetArrayObjectivATI_ovr_0(&array: EnableCap; pname: ArrayObjectPNameATI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetArrayObjectivATI';
-    private static procedure z_GetArrayObjectivATI_ovr_0_anh0001(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetArrayObjectivATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectivATI(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetArrayObjectivATI_ovr_0(&array, pname, ¶ms[0]) else
-      z_GetArrayObjectivATI_ovr_0_anh0001(&array, pname, IntPtr.Zero);
+    private z_GetArrayObjectivATI_adr := GetFuncAdr('glGetArrayObjectivATI');
+    private z_GetArrayObjectivATI_ovr_0 := GetFuncOrNil&(z_GetArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectivATI(&array: EnableCap; pname: ArrayObjectPNameATI; var ¶ms: Int32) :=
     z_GetArrayObjectivATI_ovr_0(&array, pname, ¶ms);
-    private static procedure z_GetArrayObjectivATI_ovr_2(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetArrayObjectivATI';
+    private z_GetArrayObjectivATI_ovr_1 := GetFuncOrNil&(z_GetArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetArrayObjectivATI(&array: EnableCap; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetArrayObjectivATI_ovr_2(&array, pname, ¶ms);
+    z_GetArrayObjectivATI_ovr_1(&array, pname, ¶ms);
     
-    private static procedure z_VariantArrayObjectATI_ovr_0(id: UInt32; &type: ScalarType; stride: Int32; buffer: UInt32; offset: UInt32);
-    external 'opengl32.dll' name 'glVariantArrayObjectATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantArrayObjectATI(id: UInt32; &type: ScalarType; stride: Int32; buffer: UInt32; offset: UInt32) :=
+    private z_VariantArrayObjectATI_adr := GetFuncAdr('glVariantArrayObjectATI');
+    private z_VariantArrayObjectATI_ovr_0 := GetFuncOrNil&(z_VariantArrayObjectATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantArrayObjectATI(id: UInt32; &type: ScalarType; stride: Int32; buffer: gl_buffer; offset: UInt32) :=
     z_VariantArrayObjectATI_ovr_0(id, &type, stride, buffer, offset);
     
-    private static procedure z_GetVariantArrayObjectfvATI_ovr_0(id: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectfvATI';
-    private static procedure z_GetVariantArrayObjectfvATI_ovr_0_anh0001(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectfvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectfvATI(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of single) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVariantArrayObjectfvATI_ovr_0(id, pname, ¶ms[0]) else
-      z_GetVariantArrayObjectfvATI_ovr_0_anh0001(id, pname, IntPtr.Zero);
+    private z_GetVariantArrayObjectfvATI_adr := GetFuncAdr('glGetVariantArrayObjectfvATI');
+    private z_GetVariantArrayObjectfvATI_ovr_0 := GetFuncOrNil&(z_GetVariantArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectfvATI(id: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single) :=
     z_GetVariantArrayObjectfvATI_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetVariantArrayObjectfvATI_ovr_2(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectfvATI';
+    private z_GetVariantArrayObjectfvATI_ovr_1 := GetFuncOrNil&(z_GetVariantArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectfvATI(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetVariantArrayObjectfvATI_ovr_2(id, pname, ¶ms);
+    z_GetVariantArrayObjectfvATI_ovr_1(id, pname, ¶ms);
     
-    private static procedure z_GetVariantArrayObjectivATI_ovr_0(id: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectivATI';
-    private static procedure z_GetVariantArrayObjectivATI_ovr_0_anh0001(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectivATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectivATI(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVariantArrayObjectivATI_ovr_0(id, pname, ¶ms[0]) else
-      z_GetVariantArrayObjectivATI_ovr_0_anh0001(id, pname, IntPtr.Zero);
+    private z_GetVariantArrayObjectivATI_adr := GetFuncAdr('glGetVariantArrayObjectivATI');
+    private z_GetVariantArrayObjectivATI_ovr_0 := GetFuncOrNil&(z_GetVariantArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectivATI(id: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32) :=
     z_GetVariantArrayObjectivATI_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetVariantArrayObjectivATI_ovr_2(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantArrayObjectivATI';
+    private z_GetVariantArrayObjectivATI_ovr_1 := GetFuncOrNil&(z_GetVariantArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantArrayObjectivATI(id: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
-    z_GetVariantArrayObjectivATI_ovr_2(id, pname, ¶ms);
+    z_GetVariantArrayObjectivATI_ovr_1(id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexAttribArrayObjectATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexAttribArrayObjectATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_vertex_attrib_array_object';
     
-    private static procedure z_VertexAttribArrayObjectATI_ovr_0(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; buffer: UInt32; offset: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribArrayObjectATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribArrayObjectATI(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; buffer: UInt32; offset: UInt32) :=
+    private z_VertexAttribArrayObjectATI_adr := GetFuncAdr('glVertexAttribArrayObjectATI');
+    private z_VertexAttribArrayObjectATI_ovr_0 := GetFuncOrNil&(z_VertexAttribArrayObjectATI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribArrayObjectATI(index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; buffer: gl_buffer; offset: UInt32) :=
     z_VertexAttribArrayObjectATI_ovr_0(index, size, &type, normalized, stride, buffer, offset);
     
-    private static procedure z_GetVertexAttribArrayObjectfvATI_ovr_0(index: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectfvATI';
-    private static procedure z_GetVertexAttribArrayObjectfvATI_ovr_0_anh0001(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectfvATI';
+    private z_GetVertexAttribArrayObjectfvATI_adr := GetFuncAdr('glGetVertexAttribArrayObjectfvATI');
+    private z_GetVertexAttribArrayObjectfvATI_ovr_0 := GetFuncOrNil&(z_GetVertexAttribArrayObjectfvATI_adr);
+    private z_GetVertexAttribArrayObjectfvATI_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectfvATI(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribArrayObjectfvATI_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribArrayObjectfvATI_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectfvATI(index: UInt32; pname: ArrayObjectPNameATI; var ¶ms: single) :=
     z_GetVertexAttribArrayObjectfvATI_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribArrayObjectfvATI_ovr_2(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectfvATI';
+    private z_GetVertexAttribArrayObjectfvATI_ovr_2 := GetFuncOrNil&(z_GetVertexAttribArrayObjectfvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectfvATI(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
     z_GetVertexAttribArrayObjectfvATI_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribArrayObjectivATI_ovr_0(index: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectivATI';
-    private static procedure z_GetVertexAttribArrayObjectivATI_ovr_0_anh0001(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectivATI';
+    private z_GetVertexAttribArrayObjectivATI_adr := GetFuncAdr('glGetVertexAttribArrayObjectivATI');
+    private z_GetVertexAttribArrayObjectivATI_ovr_0 := GetFuncOrNil&(z_GetVertexAttribArrayObjectivATI_adr);
+    private z_GetVertexAttribArrayObjectivATI_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectivATI(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribArrayObjectivATI_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribArrayObjectivATI_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectivATI(index: UInt32; pname: ArrayObjectPNameATI; var ¶ms: Int32) :=
     z_GetVertexAttribArrayObjectivATI_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribArrayObjectivATI_ovr_2(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribArrayObjectivATI';
+    private z_GetVertexAttribArrayObjectivATI_ovr_2 := GetFuncOrNil&(z_GetVertexAttribArrayObjectivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribArrayObjectivATI(index: UInt32; pname: ArrayObjectPNameATI; ¶ms: IntPtr) :=
     z_GetVertexAttribArrayObjectivATI_ovr_2(index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexStreamsATI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexStreamsATI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ATI_vertex_streams';
     
-    private static procedure z_VertexStream1sATI_ovr_0(stream: VertexStreamATI; x: Int16);
-    external 'opengl32.dll' name 'glVertexStream1sATI';
+    private z_VertexStream1sATI_adr := GetFuncAdr('glVertexStream1sATI');
+    private z_VertexStream1sATI_ovr_0 := GetFuncOrNil&(z_VertexStream1sATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1sATI(stream: VertexStreamATI; x: Int16) :=
     z_VertexStream1sATI_ovr_0(stream, x);
     
-    private static procedure z_VertexStream1svATI_ovr_0(stream: VertexStreamATI; var coords: Int16);
-    external 'opengl32.dll' name 'glVertexStream1svATI';
-    private static procedure z_VertexStream1svATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1svATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1svATI(stream: VertexStreamATI; coords: array of Int16) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_VertexStream1svATI_ovr_0(stream, coords[0]) else
-      z_VertexStream1svATI_ovr_0_anh001(stream, IntPtr.Zero);
+    private z_VertexStream1svATI_adr := GetFuncAdr('glVertexStream1svATI');
+    private z_VertexStream1svATI_ovr_0 := GetFuncOrNil&(z_VertexStream1svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1svATI(stream: VertexStreamATI; var coords: Int16) :=
     z_VertexStream1svATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream1svATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1svATI';
+    private z_VertexStream1svATI_ovr_1 := GetFuncOrNil&(z_VertexStream1svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1svATI(stream: VertexStreamATI; coords: IntPtr) :=
-    z_VertexStream1svATI_ovr_2(stream, coords);
+    z_VertexStream1svATI_ovr_1(stream, coords);
     
-    private static procedure z_VertexStream1iATI_ovr_0(stream: VertexStreamATI; x: Int32);
-    external 'opengl32.dll' name 'glVertexStream1iATI';
+    private z_VertexStream1iATI_adr := GetFuncAdr('glVertexStream1iATI');
+    private z_VertexStream1iATI_ovr_0 := GetFuncOrNil&(z_VertexStream1iATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1iATI(stream: VertexStreamATI; x: Int32) :=
     z_VertexStream1iATI_ovr_0(stream, x);
     
-    private static procedure z_VertexStream1ivATI_ovr_0(stream: VertexStreamATI; var coords: Int32);
-    external 'opengl32.dll' name 'glVertexStream1ivATI';
-    private static procedure z_VertexStream1ivATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1ivATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1ivATI(stream: VertexStreamATI; coords: array of Int32) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_VertexStream1ivATI_ovr_0(stream, coords[0]) else
-      z_VertexStream1ivATI_ovr_0_anh001(stream, IntPtr.Zero);
+    private z_VertexStream1ivATI_adr := GetFuncAdr('glVertexStream1ivATI');
+    private z_VertexStream1ivATI_ovr_0 := GetFuncOrNil&(z_VertexStream1ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1ivATI(stream: VertexStreamATI; var coords: Int32) :=
     z_VertexStream1ivATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream1ivATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1ivATI';
+    private z_VertexStream1ivATI_ovr_1 := GetFuncOrNil&(z_VertexStream1ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1ivATI(stream: VertexStreamATI; coords: IntPtr) :=
-    z_VertexStream1ivATI_ovr_2(stream, coords);
+    z_VertexStream1ivATI_ovr_1(stream, coords);
     
-    private static procedure z_VertexStream1fATI_ovr_0(stream: VertexStreamATI; x: single);
-    external 'opengl32.dll' name 'glVertexStream1fATI';
+    private z_VertexStream1fATI_adr := GetFuncAdr('glVertexStream1fATI');
+    private z_VertexStream1fATI_ovr_0 := GetFuncOrNil&(z_VertexStream1fATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1fATI(stream: VertexStreamATI; x: single) :=
     z_VertexStream1fATI_ovr_0(stream, x);
     
-    private static procedure z_VertexStream1fvATI_ovr_0(stream: VertexStreamATI; var coords: single);
-    external 'opengl32.dll' name 'glVertexStream1fvATI';
-    private static procedure z_VertexStream1fvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1fvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1fvATI(stream: VertexStreamATI; coords: array of single) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_VertexStream1fvATI_ovr_0(stream, coords[0]) else
-      z_VertexStream1fvATI_ovr_0_anh001(stream, IntPtr.Zero);
+    private z_VertexStream1fvATI_adr := GetFuncAdr('glVertexStream1fvATI');
+    private z_VertexStream1fvATI_ovr_0 := GetFuncOrNil&(z_VertexStream1fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1fvATI(stream: VertexStreamATI; var coords: single) :=
     z_VertexStream1fvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream1fvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1fvATI';
+    private z_VertexStream1fvATI_ovr_1 := GetFuncOrNil&(z_VertexStream1fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1fvATI(stream: VertexStreamATI; coords: IntPtr) :=
-    z_VertexStream1fvATI_ovr_2(stream, coords);
+    z_VertexStream1fvATI_ovr_1(stream, coords);
     
-    private static procedure z_VertexStream1dATI_ovr_0(stream: VertexStreamATI; x: real);
-    external 'opengl32.dll' name 'glVertexStream1dATI';
+    private z_VertexStream1dATI_adr := GetFuncAdr('glVertexStream1dATI');
+    private z_VertexStream1dATI_ovr_0 := GetFuncOrNil&(z_VertexStream1dATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1dATI(stream: VertexStreamATI; x: real) :=
     z_VertexStream1dATI_ovr_0(stream, x);
     
-    private static procedure z_VertexStream1dvATI_ovr_0(stream: VertexStreamATI; var coords: real);
-    external 'opengl32.dll' name 'glVertexStream1dvATI';
-    private static procedure z_VertexStream1dvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1dvATI';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1dvATI(stream: VertexStreamATI; coords: array of real) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_VertexStream1dvATI_ovr_0(stream, coords[0]) else
-      z_VertexStream1dvATI_ovr_0_anh001(stream, IntPtr.Zero);
+    private z_VertexStream1dvATI_adr := GetFuncAdr('glVertexStream1dvATI');
+    private z_VertexStream1dvATI_ovr_0 := GetFuncOrNil&(z_VertexStream1dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1dvATI(stream: VertexStreamATI; var coords: real) :=
     z_VertexStream1dvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream1dvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream1dvATI';
+    private z_VertexStream1dvATI_ovr_1 := GetFuncOrNil&(z_VertexStream1dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream1dvATI(stream: VertexStreamATI; coords: IntPtr) :=
-    z_VertexStream1dvATI_ovr_2(stream, coords);
+    z_VertexStream1dvATI_ovr_1(stream, coords);
     
-    private static procedure z_VertexStream2sATI_ovr_0(stream: VertexStreamATI; x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glVertexStream2sATI';
+    private z_VertexStream2sATI_adr := GetFuncAdr('glVertexStream2sATI');
+    private z_VertexStream2sATI_ovr_0 := GetFuncOrNil&(z_VertexStream2sATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2sATI(stream: VertexStreamATI; x: Int16; y: Int16) :=
     z_VertexStream2sATI_ovr_0(stream, x, y);
     
-    private static procedure z_VertexStream2svATI_ovr_0(stream: VertexStreamATI; var coords: Int16);
-    external 'opengl32.dll' name 'glVertexStream2svATI';
-    private static procedure z_VertexStream2svATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2svATI';
+    private z_VertexStream2svATI_adr := GetFuncAdr('glVertexStream2svATI');
+    private z_VertexStream2svATI_ovr_0 := GetFuncOrNil&(z_VertexStream2svATI_adr);
+    private z_VertexStream2svATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream2svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2svATI(stream: VertexStreamATI; coords: array of Int16) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream2svATI_ovr_0(stream, coords[0]) else
       z_VertexStream2svATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2svATI(stream: VertexStreamATI; var coords: Int16) :=
     z_VertexStream2svATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream2svATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2svATI';
+    private z_VertexStream2svATI_ovr_2 := GetFuncOrNil&(z_VertexStream2svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2svATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream2svATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream2iATI_ovr_0(stream: VertexStreamATI; x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glVertexStream2iATI';
+    private z_VertexStream2iATI_adr := GetFuncAdr('glVertexStream2iATI');
+    private z_VertexStream2iATI_ovr_0 := GetFuncOrNil&(z_VertexStream2iATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2iATI(stream: VertexStreamATI; x: Int32; y: Int32) :=
     z_VertexStream2iATI_ovr_0(stream, x, y);
     
-    private static procedure z_VertexStream2ivATI_ovr_0(stream: VertexStreamATI; var coords: Int32);
-    external 'opengl32.dll' name 'glVertexStream2ivATI';
-    private static procedure z_VertexStream2ivATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2ivATI';
+    private z_VertexStream2ivATI_adr := GetFuncAdr('glVertexStream2ivATI');
+    private z_VertexStream2ivATI_ovr_0 := GetFuncOrNil&(z_VertexStream2ivATI_adr);
+    private z_VertexStream2ivATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream2ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2ivATI(stream: VertexStreamATI; coords: array of Int32) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream2ivATI_ovr_0(stream, coords[0]) else
       z_VertexStream2ivATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2ivATI(stream: VertexStreamATI; var coords: Int32) :=
     z_VertexStream2ivATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream2ivATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2ivATI';
+    private z_VertexStream2ivATI_ovr_2 := GetFuncOrNil&(z_VertexStream2ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2ivATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream2ivATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream2fATI_ovr_0(stream: VertexStreamATI; x: single; y: single);
-    external 'opengl32.dll' name 'glVertexStream2fATI';
+    private z_VertexStream2fATI_adr := GetFuncAdr('glVertexStream2fATI');
+    private z_VertexStream2fATI_ovr_0 := GetFuncOrNil&(z_VertexStream2fATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2fATI(stream: VertexStreamATI; x: single; y: single) :=
     z_VertexStream2fATI_ovr_0(stream, x, y);
     
-    private static procedure z_VertexStream2fvATI_ovr_0(stream: VertexStreamATI; var coords: single);
-    external 'opengl32.dll' name 'glVertexStream2fvATI';
-    private static procedure z_VertexStream2fvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2fvATI';
+    private z_VertexStream2fvATI_adr := GetFuncAdr('glVertexStream2fvATI');
+    private z_VertexStream2fvATI_ovr_0 := GetFuncOrNil&(z_VertexStream2fvATI_adr);
+    private z_VertexStream2fvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream2fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2fvATI(stream: VertexStreamATI; coords: array of single) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream2fvATI_ovr_0(stream, coords[0]) else
       z_VertexStream2fvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2fvATI(stream: VertexStreamATI; var coords: single) :=
     z_VertexStream2fvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream2fvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2fvATI';
+    private z_VertexStream2fvATI_ovr_2 := GetFuncOrNil&(z_VertexStream2fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2fvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream2fvATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream2dATI_ovr_0(stream: VertexStreamATI; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexStream2dATI';
+    private z_VertexStream2dATI_adr := GetFuncAdr('glVertexStream2dATI');
+    private z_VertexStream2dATI_ovr_0 := GetFuncOrNil&(z_VertexStream2dATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2dATI(stream: VertexStreamATI; x: real; y: real) :=
     z_VertexStream2dATI_ovr_0(stream, x, y);
     
-    private static procedure z_VertexStream2dvATI_ovr_0(stream: VertexStreamATI; var coords: real);
-    external 'opengl32.dll' name 'glVertexStream2dvATI';
-    private static procedure z_VertexStream2dvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2dvATI';
+    private z_VertexStream2dvATI_adr := GetFuncAdr('glVertexStream2dvATI');
+    private z_VertexStream2dvATI_ovr_0 := GetFuncOrNil&(z_VertexStream2dvATI_adr);
+    private z_VertexStream2dvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream2dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2dvATI(stream: VertexStreamATI; coords: array of real) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream2dvATI_ovr_0(stream, coords[0]) else
       z_VertexStream2dvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2dvATI(stream: VertexStreamATI; var coords: real) :=
     z_VertexStream2dvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream2dvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream2dvATI';
+    private z_VertexStream2dvATI_ovr_2 := GetFuncOrNil&(z_VertexStream2dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream2dvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream2dvATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream3sATI_ovr_0(stream: VertexStreamATI; x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glVertexStream3sATI';
+    private z_VertexStream3sATI_adr := GetFuncAdr('glVertexStream3sATI');
+    private z_VertexStream3sATI_ovr_0 := GetFuncOrNil&(z_VertexStream3sATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3sATI(stream: VertexStreamATI; x: Int16; y: Int16; z: Int16) :=
     z_VertexStream3sATI_ovr_0(stream, x, y, z);
     
-    private static procedure z_VertexStream3svATI_ovr_0(stream: VertexStreamATI; var coords: Int16);
-    external 'opengl32.dll' name 'glVertexStream3svATI';
-    private static procedure z_VertexStream3svATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3svATI';
+    private z_VertexStream3svATI_adr := GetFuncAdr('glVertexStream3svATI');
+    private z_VertexStream3svATI_ovr_0 := GetFuncOrNil&(z_VertexStream3svATI_adr);
+    private z_VertexStream3svATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream3svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3svATI(stream: VertexStreamATI; coords: array of Int16) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream3svATI_ovr_0(stream, coords[0]) else
       z_VertexStream3svATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3svATI(stream: VertexStreamATI; var coords: Int16) :=
     z_VertexStream3svATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream3svATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3svATI';
+    private z_VertexStream3svATI_ovr_2 := GetFuncOrNil&(z_VertexStream3svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3svATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream3svATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream3iATI_ovr_0(stream: VertexStreamATI; x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glVertexStream3iATI';
+    private z_VertexStream3iATI_adr := GetFuncAdr('glVertexStream3iATI');
+    private z_VertexStream3iATI_ovr_0 := GetFuncOrNil&(z_VertexStream3iATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3iATI(stream: VertexStreamATI; x: Int32; y: Int32; z: Int32) :=
     z_VertexStream3iATI_ovr_0(stream, x, y, z);
     
-    private static procedure z_VertexStream3ivATI_ovr_0(stream: VertexStreamATI; var coords: Int32);
-    external 'opengl32.dll' name 'glVertexStream3ivATI';
-    private static procedure z_VertexStream3ivATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3ivATI';
+    private z_VertexStream3ivATI_adr := GetFuncAdr('glVertexStream3ivATI');
+    private z_VertexStream3ivATI_ovr_0 := GetFuncOrNil&(z_VertexStream3ivATI_adr);
+    private z_VertexStream3ivATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream3ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3ivATI(stream: VertexStreamATI; coords: array of Int32) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream3ivATI_ovr_0(stream, coords[0]) else
       z_VertexStream3ivATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3ivATI(stream: VertexStreamATI; var coords: Int32) :=
     z_VertexStream3ivATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream3ivATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3ivATI';
+    private z_VertexStream3ivATI_ovr_2 := GetFuncOrNil&(z_VertexStream3ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3ivATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream3ivATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream3fATI_ovr_0(stream: VertexStreamATI; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glVertexStream3fATI';
+    private z_VertexStream3fATI_adr := GetFuncAdr('glVertexStream3fATI');
+    private z_VertexStream3fATI_ovr_0 := GetFuncOrNil&(z_VertexStream3fATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3fATI(stream: VertexStreamATI; x: single; y: single; z: single) :=
     z_VertexStream3fATI_ovr_0(stream, x, y, z);
     
-    private static procedure z_VertexStream3fvATI_ovr_0(stream: VertexStreamATI; var coords: single);
-    external 'opengl32.dll' name 'glVertexStream3fvATI';
-    private static procedure z_VertexStream3fvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3fvATI';
+    private z_VertexStream3fvATI_adr := GetFuncAdr('glVertexStream3fvATI');
+    private z_VertexStream3fvATI_ovr_0 := GetFuncOrNil&(z_VertexStream3fvATI_adr);
+    private z_VertexStream3fvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream3fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3fvATI(stream: VertexStreamATI; coords: array of single) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream3fvATI_ovr_0(stream, coords[0]) else
       z_VertexStream3fvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3fvATI(stream: VertexStreamATI; var coords: single) :=
     z_VertexStream3fvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream3fvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3fvATI';
+    private z_VertexStream3fvATI_ovr_2 := GetFuncOrNil&(z_VertexStream3fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3fvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream3fvATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream3dATI_ovr_0(stream: VertexStreamATI; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexStream3dATI';
+    private z_VertexStream3dATI_adr := GetFuncAdr('glVertexStream3dATI');
+    private z_VertexStream3dATI_ovr_0 := GetFuncOrNil&(z_VertexStream3dATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3dATI(stream: VertexStreamATI; x: real; y: real; z: real) :=
     z_VertexStream3dATI_ovr_0(stream, x, y, z);
     
-    private static procedure z_VertexStream3dvATI_ovr_0(stream: VertexStreamATI; var coords: real);
-    external 'opengl32.dll' name 'glVertexStream3dvATI';
-    private static procedure z_VertexStream3dvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3dvATI';
+    private z_VertexStream3dvATI_adr := GetFuncAdr('glVertexStream3dvATI');
+    private z_VertexStream3dvATI_ovr_0 := GetFuncOrNil&(z_VertexStream3dvATI_adr);
+    private z_VertexStream3dvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream3dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3dvATI(stream: VertexStreamATI; coords: array of real) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream3dvATI_ovr_0(stream, coords[0]) else
       z_VertexStream3dvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3dvATI(stream: VertexStreamATI; var coords: real) :=
     z_VertexStream3dvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream3dvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream3dvATI';
+    private z_VertexStream3dvATI_ovr_2 := GetFuncOrNil&(z_VertexStream3dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream3dvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream3dvATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream4sATI_ovr_0(stream: VertexStreamATI; x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glVertexStream4sATI';
+    private z_VertexStream4sATI_adr := GetFuncAdr('glVertexStream4sATI');
+    private z_VertexStream4sATI_ovr_0 := GetFuncOrNil&(z_VertexStream4sATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4sATI(stream: VertexStreamATI; x: Int16; y: Int16; z: Int16; w: Int16) :=
     z_VertexStream4sATI_ovr_0(stream, x, y, z, w);
     
-    private static procedure z_VertexStream4svATI_ovr_0(stream: VertexStreamATI; var coords: Int16);
-    external 'opengl32.dll' name 'glVertexStream4svATI';
-    private static procedure z_VertexStream4svATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4svATI';
+    private z_VertexStream4svATI_adr := GetFuncAdr('glVertexStream4svATI');
+    private z_VertexStream4svATI_ovr_0 := GetFuncOrNil&(z_VertexStream4svATI_adr);
+    private z_VertexStream4svATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream4svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4svATI(stream: VertexStreamATI; coords: array of Int16) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream4svATI_ovr_0(stream, coords[0]) else
       z_VertexStream4svATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4svATI(stream: VertexStreamATI; var coords: Int16) :=
     z_VertexStream4svATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream4svATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4svATI';
+    private z_VertexStream4svATI_ovr_2 := GetFuncOrNil&(z_VertexStream4svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4svATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream4svATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream4iATI_ovr_0(stream: VertexStreamATI; x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glVertexStream4iATI';
+    private z_VertexStream4iATI_adr := GetFuncAdr('glVertexStream4iATI');
+    private z_VertexStream4iATI_ovr_0 := GetFuncOrNil&(z_VertexStream4iATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4iATI(stream: VertexStreamATI; x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_VertexStream4iATI_ovr_0(stream, x, y, z, w);
     
-    private static procedure z_VertexStream4ivATI_ovr_0(stream: VertexStreamATI; var coords: Int32);
-    external 'opengl32.dll' name 'glVertexStream4ivATI';
-    private static procedure z_VertexStream4ivATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4ivATI';
+    private z_VertexStream4ivATI_adr := GetFuncAdr('glVertexStream4ivATI');
+    private z_VertexStream4ivATI_ovr_0 := GetFuncOrNil&(z_VertexStream4ivATI_adr);
+    private z_VertexStream4ivATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream4ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4ivATI(stream: VertexStreamATI; coords: array of Int32) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream4ivATI_ovr_0(stream, coords[0]) else
       z_VertexStream4ivATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4ivATI(stream: VertexStreamATI; var coords: Int32) :=
     z_VertexStream4ivATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream4ivATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4ivATI';
+    private z_VertexStream4ivATI_ovr_2 := GetFuncOrNil&(z_VertexStream4ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4ivATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream4ivATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream4fATI_ovr_0(stream: VertexStreamATI; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glVertexStream4fATI';
+    private z_VertexStream4fATI_adr := GetFuncAdr('glVertexStream4fATI');
+    private z_VertexStream4fATI_ovr_0 := GetFuncOrNil&(z_VertexStream4fATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4fATI(stream: VertexStreamATI; x: single; y: single; z: single; w: single) :=
     z_VertexStream4fATI_ovr_0(stream, x, y, z, w);
     
-    private static procedure z_VertexStream4fvATI_ovr_0(stream: VertexStreamATI; var coords: single);
-    external 'opengl32.dll' name 'glVertexStream4fvATI';
-    private static procedure z_VertexStream4fvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4fvATI';
+    private z_VertexStream4fvATI_adr := GetFuncAdr('glVertexStream4fvATI');
+    private z_VertexStream4fvATI_ovr_0 := GetFuncOrNil&(z_VertexStream4fvATI_adr);
+    private z_VertexStream4fvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream4fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4fvATI(stream: VertexStreamATI; coords: array of single) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream4fvATI_ovr_0(stream, coords[0]) else
       z_VertexStream4fvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4fvATI(stream: VertexStreamATI; var coords: single) :=
     z_VertexStream4fvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream4fvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4fvATI';
+    private z_VertexStream4fvATI_ovr_2 := GetFuncOrNil&(z_VertexStream4fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4fvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream4fvATI_ovr_2(stream, coords);
     
-    private static procedure z_VertexStream4dATI_ovr_0(stream: VertexStreamATI; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexStream4dATI';
+    private z_VertexStream4dATI_adr := GetFuncAdr('glVertexStream4dATI');
+    private z_VertexStream4dATI_ovr_0 := GetFuncOrNil&(z_VertexStream4dATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4dATI(stream: VertexStreamATI; x: real; y: real; z: real; w: real) :=
     z_VertexStream4dATI_ovr_0(stream, x, y, z, w);
     
-    private static procedure z_VertexStream4dvATI_ovr_0(stream: VertexStreamATI; var coords: real);
-    external 'opengl32.dll' name 'glVertexStream4dvATI';
-    private static procedure z_VertexStream4dvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4dvATI';
+    private z_VertexStream4dvATI_adr := GetFuncAdr('glVertexStream4dvATI');
+    private z_VertexStream4dvATI_ovr_0 := GetFuncOrNil&(z_VertexStream4dvATI_adr);
+    private z_VertexStream4dvATI_ovr_0_anh001 := GetFuncOrNil&(z_VertexStream4dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4dvATI(stream: VertexStreamATI; coords: array of real) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_VertexStream4dvATI_ovr_0(stream, coords[0]) else
       z_VertexStream4dvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4dvATI(stream: VertexStreamATI; var coords: real) :=
     z_VertexStream4dvATI_ovr_0(stream, coords);
-    private static procedure z_VertexStream4dvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glVertexStream4dvATI';
+    private z_VertexStream4dvATI_ovr_2 := GetFuncOrNil&(z_VertexStream4dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexStream4dvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_VertexStream4dvATI_ovr_2(stream, coords);
     
-    private static procedure z_NormalStream3bATI_ovr_0(stream: VertexStreamATI; nx: SByte; ny: SByte; nz: SByte);
-    external 'opengl32.dll' name 'glNormalStream3bATI';
+    private z_NormalStream3bATI_adr := GetFuncAdr('glNormalStream3bATI');
+    private z_NormalStream3bATI_ovr_0 := GetFuncOrNil&(z_NormalStream3bATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3bATI(stream: VertexStreamATI; nx: SByte; ny: SByte; nz: SByte) :=
     z_NormalStream3bATI_ovr_0(stream, nx, ny, nz);
     
-    private static procedure z_NormalStream3bvATI_ovr_0(stream: VertexStreamATI; var coords: SByte);
-    external 'opengl32.dll' name 'glNormalStream3bvATI';
-    private static procedure z_NormalStream3bvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3bvATI';
+    private z_NormalStream3bvATI_adr := GetFuncAdr('glNormalStream3bvATI');
+    private z_NormalStream3bvATI_ovr_0 := GetFuncOrNil&(z_NormalStream3bvATI_adr);
+    private z_NormalStream3bvATI_ovr_0_anh001 := GetFuncOrNil&(z_NormalStream3bvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3bvATI(stream: VertexStreamATI; coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_NormalStream3bvATI_ovr_0(stream, coords[0]) else
       z_NormalStream3bvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3bvATI(stream: VertexStreamATI; var coords: SByte) :=
     z_NormalStream3bvATI_ovr_0(stream, coords);
-    private static procedure z_NormalStream3bvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3bvATI';
+    private z_NormalStream3bvATI_ovr_2 := GetFuncOrNil&(z_NormalStream3bvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3bvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_NormalStream3bvATI_ovr_2(stream, coords);
     
-    private static procedure z_NormalStream3sATI_ovr_0(stream: VertexStreamATI; nx: Int16; ny: Int16; nz: Int16);
-    external 'opengl32.dll' name 'glNormalStream3sATI';
+    private z_NormalStream3sATI_adr := GetFuncAdr('glNormalStream3sATI');
+    private z_NormalStream3sATI_ovr_0 := GetFuncOrNil&(z_NormalStream3sATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3sATI(stream: VertexStreamATI; nx: Int16; ny: Int16; nz: Int16) :=
     z_NormalStream3sATI_ovr_0(stream, nx, ny, nz);
     
-    private static procedure z_NormalStream3svATI_ovr_0(stream: VertexStreamATI; var coords: Int16);
-    external 'opengl32.dll' name 'glNormalStream3svATI';
-    private static procedure z_NormalStream3svATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3svATI';
+    private z_NormalStream3svATI_adr := GetFuncAdr('glNormalStream3svATI');
+    private z_NormalStream3svATI_ovr_0 := GetFuncOrNil&(z_NormalStream3svATI_adr);
+    private z_NormalStream3svATI_ovr_0_anh001 := GetFuncOrNil&(z_NormalStream3svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3svATI(stream: VertexStreamATI; coords: array of Int16) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_NormalStream3svATI_ovr_0(stream, coords[0]) else
       z_NormalStream3svATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3svATI(stream: VertexStreamATI; var coords: Int16) :=
     z_NormalStream3svATI_ovr_0(stream, coords);
-    private static procedure z_NormalStream3svATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3svATI';
+    private z_NormalStream3svATI_ovr_2 := GetFuncOrNil&(z_NormalStream3svATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3svATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_NormalStream3svATI_ovr_2(stream, coords);
     
-    private static procedure z_NormalStream3iATI_ovr_0(stream: VertexStreamATI; nx: Int32; ny: Int32; nz: Int32);
-    external 'opengl32.dll' name 'glNormalStream3iATI';
+    private z_NormalStream3iATI_adr := GetFuncAdr('glNormalStream3iATI');
+    private z_NormalStream3iATI_ovr_0 := GetFuncOrNil&(z_NormalStream3iATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3iATI(stream: VertexStreamATI; nx: Int32; ny: Int32; nz: Int32) :=
     z_NormalStream3iATI_ovr_0(stream, nx, ny, nz);
     
-    private static procedure z_NormalStream3ivATI_ovr_0(stream: VertexStreamATI; var coords: Int32);
-    external 'opengl32.dll' name 'glNormalStream3ivATI';
-    private static procedure z_NormalStream3ivATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3ivATI';
+    private z_NormalStream3ivATI_adr := GetFuncAdr('glNormalStream3ivATI');
+    private z_NormalStream3ivATI_ovr_0 := GetFuncOrNil&(z_NormalStream3ivATI_adr);
+    private z_NormalStream3ivATI_ovr_0_anh001 := GetFuncOrNil&(z_NormalStream3ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3ivATI(stream: VertexStreamATI; coords: array of Int32) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_NormalStream3ivATI_ovr_0(stream, coords[0]) else
       z_NormalStream3ivATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3ivATI(stream: VertexStreamATI; var coords: Int32) :=
     z_NormalStream3ivATI_ovr_0(stream, coords);
-    private static procedure z_NormalStream3ivATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3ivATI';
+    private z_NormalStream3ivATI_ovr_2 := GetFuncOrNil&(z_NormalStream3ivATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3ivATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_NormalStream3ivATI_ovr_2(stream, coords);
     
-    private static procedure z_NormalStream3fATI_ovr_0(stream: VertexStreamATI; nx: single; ny: single; nz: single);
-    external 'opengl32.dll' name 'glNormalStream3fATI';
+    private z_NormalStream3fATI_adr := GetFuncAdr('glNormalStream3fATI');
+    private z_NormalStream3fATI_ovr_0 := GetFuncOrNil&(z_NormalStream3fATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3fATI(stream: VertexStreamATI; nx: single; ny: single; nz: single) :=
     z_NormalStream3fATI_ovr_0(stream, nx, ny, nz);
     
-    private static procedure z_NormalStream3fvATI_ovr_0(stream: VertexStreamATI; var coords: single);
-    external 'opengl32.dll' name 'glNormalStream3fvATI';
-    private static procedure z_NormalStream3fvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3fvATI';
+    private z_NormalStream3fvATI_adr := GetFuncAdr('glNormalStream3fvATI');
+    private z_NormalStream3fvATI_ovr_0 := GetFuncOrNil&(z_NormalStream3fvATI_adr);
+    private z_NormalStream3fvATI_ovr_0_anh001 := GetFuncOrNil&(z_NormalStream3fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3fvATI(stream: VertexStreamATI; coords: array of single) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_NormalStream3fvATI_ovr_0(stream, coords[0]) else
       z_NormalStream3fvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3fvATI(stream: VertexStreamATI; var coords: single) :=
     z_NormalStream3fvATI_ovr_0(stream, coords);
-    private static procedure z_NormalStream3fvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3fvATI';
+    private z_NormalStream3fvATI_ovr_2 := GetFuncOrNil&(z_NormalStream3fvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3fvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_NormalStream3fvATI_ovr_2(stream, coords);
     
-    private static procedure z_NormalStream3dATI_ovr_0(stream: VertexStreamATI; nx: real; ny: real; nz: real);
-    external 'opengl32.dll' name 'glNormalStream3dATI';
+    private z_NormalStream3dATI_adr := GetFuncAdr('glNormalStream3dATI');
+    private z_NormalStream3dATI_ovr_0 := GetFuncOrNil&(z_NormalStream3dATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3dATI(stream: VertexStreamATI; nx: real; ny: real; nz: real) :=
     z_NormalStream3dATI_ovr_0(stream, nx, ny, nz);
     
-    private static procedure z_NormalStream3dvATI_ovr_0(stream: VertexStreamATI; var coords: real);
-    external 'opengl32.dll' name 'glNormalStream3dvATI';
-    private static procedure z_NormalStream3dvATI_ovr_0_anh001(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3dvATI';
+    private z_NormalStream3dvATI_adr := GetFuncAdr('glNormalStream3dvATI');
+    private z_NormalStream3dvATI_ovr_0 := GetFuncOrNil&(z_NormalStream3dvATI_adr);
+    private z_NormalStream3dvATI_ovr_0_anh001 := GetFuncOrNil&(z_NormalStream3dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3dvATI(stream: VertexStreamATI; coords: array of real) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_NormalStream3dvATI_ovr_0(stream, coords[0]) else
       z_NormalStream3dvATI_ovr_0_anh001(stream, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3dvATI(stream: VertexStreamATI; var coords: real) :=
     z_NormalStream3dvATI_ovr_0(stream, coords);
-    private static procedure z_NormalStream3dvATI_ovr_2(stream: VertexStreamATI; coords: IntPtr);
-    external 'opengl32.dll' name 'glNormalStream3dvATI';
+    private z_NormalStream3dvATI_ovr_2 := GetFuncOrNil&(z_NormalStream3dvATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalStream3dvATI(stream: VertexStreamATI; coords: IntPtr) :=
     z_NormalStream3dvATI_ovr_2(stream, coords);
     
-    private static procedure z_ClientActiveVertexStreamATI_ovr_0(stream: VertexStreamATI);
-    external 'opengl32.dll' name 'glClientActiveVertexStreamATI';
+    private z_ClientActiveVertexStreamATI_adr := GetFuncAdr('glClientActiveVertexStreamATI');
+    private z_ClientActiveVertexStreamATI_ovr_0 := GetFuncOrNil&(z_ClientActiveVertexStreamATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientActiveVertexStreamATI(stream: VertexStreamATI) :=
     z_ClientActiveVertexStreamATI_ovr_0(stream);
     
-    private static procedure z_VertexBlendEnviATI_ovr_0(pname: VertexStreamATI; param: Int32);
-    external 'opengl32.dll' name 'glVertexBlendEnviATI';
+    private z_VertexBlendEnviATI_adr := GetFuncAdr('glVertexBlendEnviATI');
+    private z_VertexBlendEnviATI_ovr_0 := GetFuncOrNil&(z_VertexBlendEnviATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexBlendEnviATI(pname: VertexStreamATI; param: Int32) :=
     z_VertexBlendEnviATI_ovr_0(pname, param);
     
-    private static procedure z_VertexBlendEnvfATI_ovr_0(pname: VertexStreamATI; param: single);
-    external 'opengl32.dll' name 'glVertexBlendEnvfATI';
+    private z_VertexBlendEnvfATI_adr := GetFuncAdr('glVertexBlendEnvfATI');
+    private z_VertexBlendEnvfATI_ovr_0 := GetFuncOrNil&(z_VertexBlendEnvfATI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexBlendEnvfATI(pname: VertexStreamATI; param: single) :=
     z_VertexBlendEnvfATI_ovr_0(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glEGLImageStorageEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glEGLImageStorageEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_EGL_image_storage';
     
-    private static procedure z_EGLImageTargetTexStorageEXT_ovr_0(target: DummyEnum; image: GLeglImageOES; var attrib_list: Int32);
-    external 'opengl32.dll' name 'glEGLImageTargetTexStorageEXT';
-    private static procedure z_EGLImageTargetTexStorageEXT_ovr_0_anh0001(target: DummyEnum; image: GLeglImageOES; attrib_list: IntPtr);
-    external 'opengl32.dll' name 'glEGLImageTargetTexStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: GLeglImageOES; attrib_list: array of Int32) :=
+    private z_EGLImageTargetTexStorageEXT_adr := GetFuncAdr('glEGLImageTargetTexStorageEXT');
+    private z_EGLImageTargetTexStorageEXT_ovr_0 := GetFuncOrNil&(z_EGLImageTargetTexStorageEXT_adr);
+    private z_EGLImageTargetTexStorageEXT_ovr_0_anh0001 := GetFuncOrNil&(z_EGLImageTargetTexStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: egl_image_OES; attrib_list: array of Int32) :=
     if (attrib_list<>nil) and (attrib_list.Length<>0) then
       z_EGLImageTargetTexStorageEXT_ovr_0(target, image, attrib_list[0]) else
       z_EGLImageTargetTexStorageEXT_ovr_0_anh0001(target, image, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: GLeglImageOES; var attrib_list: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: egl_image_OES; var attrib_list: Int32) :=
     z_EGLImageTargetTexStorageEXT_ovr_0(target, image, attrib_list);
-    private static procedure z_EGLImageTargetTexStorageEXT_ovr_2(target: DummyEnum; image: GLeglImageOES; attrib_list: IntPtr);
-    external 'opengl32.dll' name 'glEGLImageTargetTexStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: GLeglImageOES; attrib_list: IntPtr) :=
+    private z_EGLImageTargetTexStorageEXT_ovr_2 := GetFuncOrNil&(z_EGLImageTargetTexStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTexStorageEXT(target: DummyEnum; image: egl_image_OES; attrib_list: IntPtr) :=
     z_EGLImageTargetTexStorageEXT_ovr_2(target, image, attrib_list);
     
-    private static procedure z_EGLImageTargetTextureStorageEXT_ovr_0(texture: UInt32; image: GLeglImageOES; var attrib_list: Int32);
-    external 'opengl32.dll' name 'glEGLImageTargetTextureStorageEXT';
-    private static procedure z_EGLImageTargetTextureStorageEXT_ovr_0_anh0001(texture: UInt32; image: GLeglImageOES; attrib_list: IntPtr);
-    external 'opengl32.dll' name 'glEGLImageTargetTextureStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: UInt32; image: GLeglImageOES; attrib_list: array of Int32) :=
+    private z_EGLImageTargetTextureStorageEXT_adr := GetFuncAdr('glEGLImageTargetTextureStorageEXT');
+    private z_EGLImageTargetTextureStorageEXT_ovr_0 := GetFuncOrNil&(z_EGLImageTargetTextureStorageEXT_adr);
+    private z_EGLImageTargetTextureStorageEXT_ovr_0_anh0001 := GetFuncOrNil&(z_EGLImageTargetTextureStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: gl_texture; image: egl_image_OES; attrib_list: array of Int32) :=
     if (attrib_list<>nil) and (attrib_list.Length<>0) then
       z_EGLImageTargetTextureStorageEXT_ovr_0(texture, image, attrib_list[0]) else
       z_EGLImageTargetTextureStorageEXT_ovr_0_anh0001(texture, image, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: UInt32; image: GLeglImageOES; var attrib_list: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: gl_texture; image: egl_image_OES; var attrib_list: Int32) :=
     z_EGLImageTargetTextureStorageEXT_ovr_0(texture, image, attrib_list);
-    private static procedure z_EGLImageTargetTextureStorageEXT_ovr_2(texture: UInt32; image: GLeglImageOES; attrib_list: IntPtr);
-    external 'opengl32.dll' name 'glEGLImageTargetTextureStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: UInt32; image: GLeglImageOES; attrib_list: IntPtr) :=
+    private z_EGLImageTargetTextureStorageEXT_ovr_2 := GetFuncOrNil&(z_EGLImageTargetTextureStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EGLImageTargetTextureStorageEXT(texture: gl_texture; image: egl_image_OES; attrib_list: IntPtr) :=
     z_EGLImageTargetTextureStorageEXT_ovr_2(texture, image, attrib_list);
     
   end;
   
   [PCUNotRestore]
-  glBindableUniformEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBindableUniformEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_bindable_uniform';
     
-    private static procedure z_UniformBufferEXT_ovr_0(&program: UInt32; location: Int32; buffer: UInt32);
-    external 'opengl32.dll' name 'glUniformBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBufferEXT(&program: UInt32; location: Int32; buffer: UInt32) :=
+    private z_UniformBufferEXT_adr := GetFuncAdr('glUniformBufferEXT');
+    private z_UniformBufferEXT_ovr_0 := GetFuncOrNil&(z_UniformBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformBufferEXT(&program: gl_program; location: Int32; buffer: gl_buffer) :=
     z_UniformBufferEXT_ovr_0(&program, location, buffer);
     
-    private static function z_GetUniformBufferSizeEXT_ovr_0(&program: UInt32; location: Int32): Int32;
-    external 'opengl32.dll' name 'glGetUniformBufferSizeEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBufferSizeEXT(&program: UInt32; location: Int32): Int32 :=
+    private z_GetUniformBufferSizeEXT_adr := GetFuncAdr('glGetUniformBufferSizeEXT');
+    private z_GetUniformBufferSizeEXT_ovr_0 := GetFuncOrNil&(z_GetUniformBufferSizeEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformBufferSizeEXT(&program: gl_program; location: Int32): Int32 :=
     z_GetUniformBufferSizeEXT_ovr_0(&program, location);
     
-    private static function z_GetUniformOffsetEXT_ovr_0(&program: UInt32; location: Int32): IntPtr;
-    external 'opengl32.dll' name 'glGetUniformOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformOffsetEXT(&program: UInt32; location: Int32): IntPtr :=
+    private z_GetUniformOffsetEXT_adr := GetFuncAdr('glGetUniformOffsetEXT');
+    private z_GetUniformOffsetEXT_ovr_0 := GetFuncOrNil&(z_GetUniformOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetUniformOffsetEXT(&program: gl_program; location: Int32): IntPtr :=
     z_GetUniformOffsetEXT_ovr_0(&program, location);
     
   end;
   
   [PCUNotRestore]
-  glBlendColorEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendColorEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_blend_color';
     
-    private static procedure z_BlendColorEXT_ovr_0(red: single; green: single; blue: single; alpha: single);
-    external 'opengl32.dll' name 'glBlendColorEXT';
+    private z_BlendColorEXT_adr := GetFuncAdr('glBlendColorEXT');
+    private z_BlendColorEXT_ovr_0 := GetFuncOrNil&(z_BlendColorEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendColorEXT(red: single; green: single; blue: single; alpha: single) :=
     z_BlendColorEXT_ovr_0(red, green, blue, alpha);
     
   end;
   
   [PCUNotRestore]
-  glBlendEquationSeparateEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendEquationSeparateEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_blend_equation_separate';
     
-    private static procedure z_BlendEquationSeparateEXT_ovr_0(modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationSeparateEXT';
+    private z_BlendEquationSeparateEXT_adr := GetFuncAdr('glBlendEquationSeparateEXT');
+    private z_BlendEquationSeparateEXT_ovr_0 := GetFuncOrNil&(z_BlendEquationSeparateEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationSeparateEXT(modeRGB: BlendEquationModeEXT; modeAlpha: BlendEquationModeEXT) :=
     z_BlendEquationSeparateEXT_ovr_0(modeRGB, modeAlpha);
     
   end;
   
   [PCUNotRestore]
-  glBlendFuncSeparateEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendFuncSeparateEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_blend_func_separate';
     
-    private static procedure z_BlendFuncSeparateEXT_ovr_0(sfactorRGB: BlendingFactor; dfactorRGB: BlendingFactor; sfactorAlpha: BlendingFactor; dfactorAlpha: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFuncSeparateEXT';
+    private z_BlendFuncSeparateEXT_adr := GetFuncAdr('glBlendFuncSeparateEXT');
+    private z_BlendFuncSeparateEXT_ovr_0 := GetFuncOrNil&(z_BlendFuncSeparateEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFuncSeparateEXT(sfactorRGB: BlendingFactor; dfactorRGB: BlendingFactor; sfactorAlpha: BlendingFactor; dfactorAlpha: BlendingFactor) :=
     z_BlendFuncSeparateEXT_ovr_0(sfactorRGB, dfactorRGB, sfactorAlpha, dfactorAlpha);
     
   end;
   
   [PCUNotRestore]
-  glBlendMinmaxEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendMinmaxEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_blend_minmax';
     
-    private static procedure z_BlendEquationEXT_ovr_0(mode: BlendEquationModeEXT);
-    external 'opengl32.dll' name 'glBlendEquationEXT';
+    private z_BlendEquationEXT_adr := GetFuncAdr('glBlendEquationEXT');
+    private z_BlendEquationEXT_ovr_0 := GetFuncOrNil&(z_BlendEquationEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendEquationEXT(mode: BlendEquationModeEXT) :=
     z_BlendEquationEXT_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glColorSubtableEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glColorSubtableEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_color_subtable';
     
-    private static procedure z_ColorSubTableEXT_ovr_0(target: ColorTableTarget; start: Int32; count: Int32; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glColorSubTableEXT';
+    private z_ColorSubTableEXT_adr := GetFuncAdr('glColorSubTableEXT');
+    private z_ColorSubTableEXT_ovr_0 := GetFuncOrNil&(z_ColorSubTableEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorSubTableEXT(target: ColorTableTarget; start: Int32; count: Int32; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ColorSubTableEXT_ovr_0(target, start, count, format, &type, data);
     
-    private static procedure z_CopyColorSubTableEXT_ovr_0(target: ColorTableTarget; start: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyColorSubTableEXT';
+    private z_CopyColorSubTableEXT_adr := GetFuncAdr('glCopyColorSubTableEXT');
+    private z_CopyColorSubTableEXT_ovr_0 := GetFuncOrNil&(z_CopyColorSubTableEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyColorSubTableEXT(target: ColorTableTarget; start: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyColorSubTableEXT_ovr_0(target, start, x, y, width);
     
   end;
   
   [PCUNotRestore]
-  glCompiledVertexArrayEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCompiledVertexArrayEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_compiled_vertex_array';
     
-    private static procedure z_LockArraysEXT_ovr_0(first: Int32; count: Int32);
-    external 'opengl32.dll' name 'glLockArraysEXT';
+    private z_LockArraysEXT_adr := GetFuncAdr('glLockArraysEXT');
+    private z_LockArraysEXT_ovr_0 := GetFuncOrNil&(z_LockArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LockArraysEXT(first: Int32; count: Int32) :=
     z_LockArraysEXT_ovr_0(first, count);
     
-    private static procedure z_UnlockArraysEXT_ovr_0;
-    external 'opengl32.dll' name 'glUnlockArraysEXT';
+    private z_UnlockArraysEXT_adr := GetFuncAdr('glUnlockArraysEXT');
+    private z_UnlockArraysEXT_ovr_0 := GetFuncOrNil&(z_UnlockArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UnlockArraysEXT :=
     z_UnlockArraysEXT_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glConvolutionEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConvolutionEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_convolution';
     
-    private static procedure z_ConvolutionFilter1DEXT_ovr_0(target: ConvolutionTargetEXT; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionFilter1DEXT';
+    private z_ConvolutionFilter1DEXT_adr := GetFuncAdr('glConvolutionFilter1DEXT');
+    private z_ConvolutionFilter1DEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionFilter1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionFilter1DEXT(target: ConvolutionTargetEXT; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_ConvolutionFilter1DEXT_ovr_0(target, _internalformat, width, format, &type, image);
     
-    private static procedure z_ConvolutionFilter2DEXT_ovr_0(target: ConvolutionTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionFilter2DEXT';
+    private z_ConvolutionFilter2DEXT_adr := GetFuncAdr('glConvolutionFilter2DEXT');
+    private z_ConvolutionFilter2DEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionFilter2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionFilter2DEXT(target: ConvolutionTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_ConvolutionFilter2DEXT_ovr_0(target, _internalformat, width, height, format, &type, image);
     
-    private static procedure z_ConvolutionParameterfEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: single);
-    external 'opengl32.dll' name 'glConvolutionParameterfEXT';
+    private z_ConvolutionParameterfEXT_adr := GetFuncAdr('glConvolutionParameterfEXT');
+    private z_ConvolutionParameterfEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: single) :=
     z_ConvolutionParameterfEXT_ovr_0(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameterfvEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glConvolutionParameterfvEXT';
-    private static procedure z_ConvolutionParameterfvEXT_ovr_0_anh0001(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterfvEXT';
+    private z_ConvolutionParameterfvEXT_adr := GetFuncAdr('glConvolutionParameterfvEXT');
+    private z_ConvolutionParameterfvEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterfvEXT_adr);
+    private z_ConvolutionParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_ConvolutionParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ConvolutionParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_ConvolutionParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: single) :=
     z_ConvolutionParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_ConvolutionParameterfvEXT_ovr_2(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterfvEXT';
+    private z_ConvolutionParameterfvEXT_ovr_2 := GetFuncOrNil&(z_ConvolutionParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_ConvolutionParameterfvEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameteriEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: Int32);
-    external 'opengl32.dll' name 'glConvolutionParameteriEXT';
+    private z_ConvolutionParameteriEXT_adr := GetFuncAdr('glConvolutionParameteriEXT');
+    private z_ConvolutionParameteriEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionParameteriEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameteriEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: Int32) :=
     z_ConvolutionParameteriEXT_ovr_0(target, pname, ¶ms);
     
-    private static procedure z_ConvolutionParameterivEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glConvolutionParameterivEXT';
-    private static procedure z_ConvolutionParameterivEXT_ovr_0_anh0001(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterivEXT';
+    private z_ConvolutionParameterivEXT_adr := GetFuncAdr('glConvolutionParameterivEXT');
+    private z_ConvolutionParameterivEXT_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterivEXT_adr);
+    private z_ConvolutionParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_ConvolutionParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ConvolutionParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_ConvolutionParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Int32) :=
     z_ConvolutionParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_ConvolutionParameterivEXT_ovr_2(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterivEXT';
+    private z_ConvolutionParameterivEXT_ovr_2 := GetFuncOrNil&(z_ConvolutionParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_ConvolutionParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_CopyConvolutionFilter1DEXT_ovr_0(target: ConvolutionTargetEXT; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyConvolutionFilter1DEXT';
+    private z_CopyConvolutionFilter1DEXT_adr := GetFuncAdr('glCopyConvolutionFilter1DEXT');
+    private z_CopyConvolutionFilter1DEXT_ovr_0 := GetFuncOrNil&(z_CopyConvolutionFilter1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyConvolutionFilter1DEXT(target: ConvolutionTargetEXT; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32) :=
     z_CopyConvolutionFilter1DEXT_ovr_0(target, _internalformat, x, y, width);
     
-    private static procedure z_CopyConvolutionFilter2DEXT_ovr_0(target: ConvolutionTargetEXT; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyConvolutionFilter2DEXT';
+    private z_CopyConvolutionFilter2DEXT_adr := GetFuncAdr('glCopyConvolutionFilter2DEXT');
+    private z_CopyConvolutionFilter2DEXT_ovr_0 := GetFuncOrNil&(z_CopyConvolutionFilter2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyConvolutionFilter2DEXT(target: ConvolutionTargetEXT; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyConvolutionFilter2DEXT_ovr_0(target, _internalformat, x, y, width, height);
     
-    private static procedure z_GetConvolutionFilterEXT_ovr_0(target: ConvolutionTargetEXT; format: PixelFormat; &type: PixelType; image: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionFilterEXT';
+    private z_GetConvolutionFilterEXT_adr := GetFuncAdr('glGetConvolutionFilterEXT');
+    private z_GetConvolutionFilterEXT_ovr_0 := GetFuncOrNil&(z_GetConvolutionFilterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionFilterEXT(target: ConvolutionTargetEXT; format: PixelFormat; &type: PixelType; image: IntPtr) :=
     z_GetConvolutionFilterEXT_ovr_0(target, format, &type, image);
     
-    private static procedure z_GetConvolutionParameterfvEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfvEXT';
-    private static procedure z_GetConvolutionParameterfvEXT_ovr_0_anh0001(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfvEXT';
+    private z_GetConvolutionParameterfvEXT_adr := GetFuncAdr('glGetConvolutionParameterfvEXT');
+    private z_GetConvolutionParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetConvolutionParameterfvEXT_adr);
+    private z_GetConvolutionParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetConvolutionParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetConvolutionParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetConvolutionParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: single) :=
     z_GetConvolutionParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetConvolutionParameterfvEXT_ovr_2(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterfvEXT';
+    private z_GetConvolutionParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetConvolutionParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterfvEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_GetConvolutionParameterfvEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetConvolutionParameterivEXT_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetConvolutionParameterivEXT';
-    private static procedure z_GetConvolutionParameterivEXT_ovr_0_anh0001(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterivEXT';
+    private z_GetConvolutionParameterivEXT_adr := GetFuncAdr('glGetConvolutionParameterivEXT');
+    private z_GetConvolutionParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetConvolutionParameterivEXT_adr);
+    private z_GetConvolutionParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetConvolutionParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetConvolutionParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetConvolutionParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Int32) :=
     z_GetConvolutionParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetConvolutionParameterivEXT_ovr_2(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterivEXT';
+    private z_GetConvolutionParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetConvolutionParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterivEXT(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_GetConvolutionParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetSeparableFilterEXT_ovr_0(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr; span: IntPtr);
-    external 'opengl32.dll' name 'glGetSeparableFilterEXT';
+    private z_GetSeparableFilterEXT_adr := GetFuncAdr('glGetSeparableFilterEXT');
+    private z_GetSeparableFilterEXT_ovr_0 := GetFuncOrNil&(z_GetSeparableFilterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSeparableFilterEXT(target: SeparableTargetEXT; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr; span: IntPtr) :=
     z_GetSeparableFilterEXT_ovr_0(target, format, &type, row, column, span);
     
-    private static procedure z_SeparableFilter2DEXT_ovr_0(target: SeparableTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr);
-    external 'opengl32.dll' name 'glSeparableFilter2DEXT';
+    private z_SeparableFilter2DEXT_adr := GetFuncAdr('glSeparableFilter2DEXT');
+    private z_SeparableFilter2DEXT_ovr_0 := GetFuncOrNil&(z_SeparableFilter2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SeparableFilter2DEXT(target: SeparableTargetEXT; _internalformat: InternalFormat; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; row: IntPtr; column: IntPtr) :=
     z_SeparableFilter2DEXT_ovr_0(target, _internalformat, width, height, format, &type, row, column);
     
   end;
   
   [PCUNotRestore]
-  glCoordinateFrameEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCoordinateFrameEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_coordinate_frame';
     
-    private static procedure z_Tangent3bEXT_ovr_0(tx: SByte; ty: SByte; tz: SByte);
-    external 'opengl32.dll' name 'glTangent3bEXT';
+    private z_Tangent3bEXT_adr := GetFuncAdr('glTangent3bEXT');
+    private z_Tangent3bEXT_ovr_0 := GetFuncOrNil&(z_Tangent3bEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3bEXT(tx: SByte; ty: SByte; tz: SByte) :=
     z_Tangent3bEXT_ovr_0(tx, ty, tz);
     
-    private static procedure z_Tangent3bvEXT_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glTangent3bvEXT';
-    private static procedure z_Tangent3bvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3bvEXT';
+    private z_Tangent3bvEXT_adr := GetFuncAdr('glTangent3bvEXT');
+    private z_Tangent3bvEXT_ovr_0 := GetFuncOrNil&(z_Tangent3bvEXT_adr);
+    private z_Tangent3bvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Tangent3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3bvEXT(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_Tangent3bvEXT_ovr_0(v[0]) else
       z_Tangent3bvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3bvEXT(var v: SByte) :=
     z_Tangent3bvEXT_ovr_0(v);
-    private static procedure z_Tangent3bvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3bvEXT';
+    private z_Tangent3bvEXT_ovr_2 := GetFuncOrNil&(z_Tangent3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3bvEXT(v: IntPtr) :=
     z_Tangent3bvEXT_ovr_2(v);
     
-    private static procedure z_Tangent3dEXT_ovr_0(tx: real; ty: real; tz: real);
-    external 'opengl32.dll' name 'glTangent3dEXT';
+    private z_Tangent3dEXT_adr := GetFuncAdr('glTangent3dEXT');
+    private z_Tangent3dEXT_ovr_0 := GetFuncOrNil&(z_Tangent3dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3dEXT(tx: real; ty: real; tz: real) :=
     z_Tangent3dEXT_ovr_0(tx, ty, tz);
     
-    private static procedure z_Tangent3dvEXT_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glTangent3dvEXT';
-    private static procedure z_Tangent3dvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3dvEXT';
+    private z_Tangent3dvEXT_adr := GetFuncAdr('glTangent3dvEXT');
+    private z_Tangent3dvEXT_ovr_0 := GetFuncOrNil&(z_Tangent3dvEXT_adr);
+    private z_Tangent3dvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Tangent3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3dvEXT(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_Tangent3dvEXT_ovr_0(v[0]) else
       z_Tangent3dvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3dvEXT(var v: real) :=
     z_Tangent3dvEXT_ovr_0(v);
-    private static procedure z_Tangent3dvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3dvEXT';
+    private z_Tangent3dvEXT_ovr_2 := GetFuncOrNil&(z_Tangent3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3dvEXT(v: IntPtr) :=
     z_Tangent3dvEXT_ovr_2(v);
     
-    private static procedure z_Tangent3fEXT_ovr_0(tx: single; ty: single; tz: single);
-    external 'opengl32.dll' name 'glTangent3fEXT';
+    private z_Tangent3fEXT_adr := GetFuncAdr('glTangent3fEXT');
+    private z_Tangent3fEXT_ovr_0 := GetFuncOrNil&(z_Tangent3fEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3fEXT(tx: single; ty: single; tz: single) :=
     z_Tangent3fEXT_ovr_0(tx, ty, tz);
     
-    private static procedure z_Tangent3fvEXT_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glTangent3fvEXT';
-    private static procedure z_Tangent3fvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3fvEXT';
+    private z_Tangent3fvEXT_adr := GetFuncAdr('glTangent3fvEXT');
+    private z_Tangent3fvEXT_ovr_0 := GetFuncOrNil&(z_Tangent3fvEXT_adr);
+    private z_Tangent3fvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Tangent3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3fvEXT(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_Tangent3fvEXT_ovr_0(v[0]) else
       z_Tangent3fvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3fvEXT(var v: single) :=
     z_Tangent3fvEXT_ovr_0(v);
-    private static procedure z_Tangent3fvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3fvEXT';
+    private z_Tangent3fvEXT_ovr_2 := GetFuncOrNil&(z_Tangent3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3fvEXT(v: IntPtr) :=
     z_Tangent3fvEXT_ovr_2(v);
     
-    private static procedure z_Tangent3iEXT_ovr_0(tx: Int32; ty: Int32; tz: Int32);
-    external 'opengl32.dll' name 'glTangent3iEXT';
+    private z_Tangent3iEXT_adr := GetFuncAdr('glTangent3iEXT');
+    private z_Tangent3iEXT_ovr_0 := GetFuncOrNil&(z_Tangent3iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3iEXT(tx: Int32; ty: Int32; tz: Int32) :=
     z_Tangent3iEXT_ovr_0(tx, ty, tz);
     
-    private static procedure z_Tangent3ivEXT_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glTangent3ivEXT';
-    private static procedure z_Tangent3ivEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3ivEXT';
+    private z_Tangent3ivEXT_adr := GetFuncAdr('glTangent3ivEXT');
+    private z_Tangent3ivEXT_ovr_0 := GetFuncOrNil&(z_Tangent3ivEXT_adr);
+    private z_Tangent3ivEXT_ovr_0_anh01 := GetFuncOrNil&(z_Tangent3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3ivEXT(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_Tangent3ivEXT_ovr_0(v[0]) else
       z_Tangent3ivEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3ivEXT(var v: Int32) :=
     z_Tangent3ivEXT_ovr_0(v);
-    private static procedure z_Tangent3ivEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3ivEXT';
+    private z_Tangent3ivEXT_ovr_2 := GetFuncOrNil&(z_Tangent3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3ivEXT(v: IntPtr) :=
     z_Tangent3ivEXT_ovr_2(v);
     
-    private static procedure z_Tangent3sEXT_ovr_0(tx: Int16; ty: Int16; tz: Int16);
-    external 'opengl32.dll' name 'glTangent3sEXT';
+    private z_Tangent3sEXT_adr := GetFuncAdr('glTangent3sEXT');
+    private z_Tangent3sEXT_ovr_0 := GetFuncOrNil&(z_Tangent3sEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3sEXT(tx: Int16; ty: Int16; tz: Int16) :=
     z_Tangent3sEXT_ovr_0(tx, ty, tz);
     
-    private static procedure z_Tangent3svEXT_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glTangent3svEXT';
-    private static procedure z_Tangent3svEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3svEXT';
+    private z_Tangent3svEXT_adr := GetFuncAdr('glTangent3svEXT');
+    private z_Tangent3svEXT_ovr_0 := GetFuncOrNil&(z_Tangent3svEXT_adr);
+    private z_Tangent3svEXT_ovr_0_anh01 := GetFuncOrNil&(z_Tangent3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3svEXT(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_Tangent3svEXT_ovr_0(v[0]) else
       z_Tangent3svEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3svEXT(var v: Int16) :=
     z_Tangent3svEXT_ovr_0(v);
-    private static procedure z_Tangent3svEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTangent3svEXT';
+    private z_Tangent3svEXT_ovr_2 := GetFuncOrNil&(z_Tangent3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Tangent3svEXT(v: IntPtr) :=
     z_Tangent3svEXT_ovr_2(v);
     
-    private static procedure z_Binormal3bEXT_ovr_0(bx: SByte; by: SByte; bz: SByte);
-    external 'opengl32.dll' name 'glBinormal3bEXT';
+    private z_Binormal3bEXT_adr := GetFuncAdr('glBinormal3bEXT');
+    private z_Binormal3bEXT_ovr_0 := GetFuncOrNil&(z_Binormal3bEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3bEXT(bx: SByte; by: SByte; bz: SByte) :=
     z_Binormal3bEXT_ovr_0(bx, by, bz);
     
-    private static procedure z_Binormal3bvEXT_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glBinormal3bvEXT';
-    private static procedure z_Binormal3bvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3bvEXT';
+    private z_Binormal3bvEXT_adr := GetFuncAdr('glBinormal3bvEXT');
+    private z_Binormal3bvEXT_ovr_0 := GetFuncOrNil&(z_Binormal3bvEXT_adr);
+    private z_Binormal3bvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Binormal3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3bvEXT(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_Binormal3bvEXT_ovr_0(v[0]) else
       z_Binormal3bvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3bvEXT(var v: SByte) :=
     z_Binormal3bvEXT_ovr_0(v);
-    private static procedure z_Binormal3bvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3bvEXT';
+    private z_Binormal3bvEXT_ovr_2 := GetFuncOrNil&(z_Binormal3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3bvEXT(v: IntPtr) :=
     z_Binormal3bvEXT_ovr_2(v);
     
-    private static procedure z_Binormal3dEXT_ovr_0(bx: real; by: real; bz: real);
-    external 'opengl32.dll' name 'glBinormal3dEXT';
+    private z_Binormal3dEXT_adr := GetFuncAdr('glBinormal3dEXT');
+    private z_Binormal3dEXT_ovr_0 := GetFuncOrNil&(z_Binormal3dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3dEXT(bx: real; by: real; bz: real) :=
     z_Binormal3dEXT_ovr_0(bx, by, bz);
     
-    private static procedure z_Binormal3dvEXT_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glBinormal3dvEXT';
-    private static procedure z_Binormal3dvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3dvEXT';
+    private z_Binormal3dvEXT_adr := GetFuncAdr('glBinormal3dvEXT');
+    private z_Binormal3dvEXT_ovr_0 := GetFuncOrNil&(z_Binormal3dvEXT_adr);
+    private z_Binormal3dvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Binormal3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3dvEXT(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_Binormal3dvEXT_ovr_0(v[0]) else
       z_Binormal3dvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3dvEXT(var v: real) :=
     z_Binormal3dvEXT_ovr_0(v);
-    private static procedure z_Binormal3dvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3dvEXT';
+    private z_Binormal3dvEXT_ovr_2 := GetFuncOrNil&(z_Binormal3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3dvEXT(v: IntPtr) :=
     z_Binormal3dvEXT_ovr_2(v);
     
-    private static procedure z_Binormal3fEXT_ovr_0(bx: single; by: single; bz: single);
-    external 'opengl32.dll' name 'glBinormal3fEXT';
+    private z_Binormal3fEXT_adr := GetFuncAdr('glBinormal3fEXT');
+    private z_Binormal3fEXT_ovr_0 := GetFuncOrNil&(z_Binormal3fEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3fEXT(bx: single; by: single; bz: single) :=
     z_Binormal3fEXT_ovr_0(bx, by, bz);
     
-    private static procedure z_Binormal3fvEXT_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glBinormal3fvEXT';
-    private static procedure z_Binormal3fvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3fvEXT';
+    private z_Binormal3fvEXT_adr := GetFuncAdr('glBinormal3fvEXT');
+    private z_Binormal3fvEXT_ovr_0 := GetFuncOrNil&(z_Binormal3fvEXT_adr);
+    private z_Binormal3fvEXT_ovr_0_anh01 := GetFuncOrNil&(z_Binormal3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3fvEXT(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_Binormal3fvEXT_ovr_0(v[0]) else
       z_Binormal3fvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3fvEXT(var v: single) :=
     z_Binormal3fvEXT_ovr_0(v);
-    private static procedure z_Binormal3fvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3fvEXT';
+    private z_Binormal3fvEXT_ovr_2 := GetFuncOrNil&(z_Binormal3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3fvEXT(v: IntPtr) :=
     z_Binormal3fvEXT_ovr_2(v);
     
-    private static procedure z_Binormal3iEXT_ovr_0(bx: Int32; by: Int32; bz: Int32);
-    external 'opengl32.dll' name 'glBinormal3iEXT';
+    private z_Binormal3iEXT_adr := GetFuncAdr('glBinormal3iEXT');
+    private z_Binormal3iEXT_ovr_0 := GetFuncOrNil&(z_Binormal3iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3iEXT(bx: Int32; by: Int32; bz: Int32) :=
     z_Binormal3iEXT_ovr_0(bx, by, bz);
     
-    private static procedure z_Binormal3ivEXT_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glBinormal3ivEXT';
-    private static procedure z_Binormal3ivEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3ivEXT';
+    private z_Binormal3ivEXT_adr := GetFuncAdr('glBinormal3ivEXT');
+    private z_Binormal3ivEXT_ovr_0 := GetFuncOrNil&(z_Binormal3ivEXT_adr);
+    private z_Binormal3ivEXT_ovr_0_anh01 := GetFuncOrNil&(z_Binormal3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3ivEXT(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_Binormal3ivEXT_ovr_0(v[0]) else
       z_Binormal3ivEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3ivEXT(var v: Int32) :=
     z_Binormal3ivEXT_ovr_0(v);
-    private static procedure z_Binormal3ivEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3ivEXT';
+    private z_Binormal3ivEXT_ovr_2 := GetFuncOrNil&(z_Binormal3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3ivEXT(v: IntPtr) :=
     z_Binormal3ivEXT_ovr_2(v);
     
-    private static procedure z_Binormal3sEXT_ovr_0(bx: Int16; by: Int16; bz: Int16);
-    external 'opengl32.dll' name 'glBinormal3sEXT';
+    private z_Binormal3sEXT_adr := GetFuncAdr('glBinormal3sEXT');
+    private z_Binormal3sEXT_ovr_0 := GetFuncOrNil&(z_Binormal3sEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3sEXT(bx: Int16; by: Int16; bz: Int16) :=
     z_Binormal3sEXT_ovr_0(bx, by, bz);
     
-    private static procedure z_Binormal3svEXT_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glBinormal3svEXT';
-    private static procedure z_Binormal3svEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3svEXT';
+    private z_Binormal3svEXT_adr := GetFuncAdr('glBinormal3svEXT');
+    private z_Binormal3svEXT_ovr_0 := GetFuncOrNil&(z_Binormal3svEXT_adr);
+    private z_Binormal3svEXT_ovr_0_anh01 := GetFuncOrNil&(z_Binormal3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3svEXT(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_Binormal3svEXT_ovr_0(v[0]) else
       z_Binormal3svEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3svEXT(var v: Int16) :=
     z_Binormal3svEXT_ovr_0(v);
-    private static procedure z_Binormal3svEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glBinormal3svEXT';
+    private z_Binormal3svEXT_ovr_2 := GetFuncOrNil&(z_Binormal3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Binormal3svEXT(v: IntPtr) :=
     z_Binormal3svEXT_ovr_2(v);
     
-    private static procedure z_TangentPointerEXT_ovr_0(&type: TangentPointerTypeEXT; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glTangentPointerEXT';
+    private z_TangentPointerEXT_adr := GetFuncAdr('glTangentPointerEXT');
+    private z_TangentPointerEXT_ovr_0 := GetFuncOrNil&(z_TangentPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TangentPointerEXT(&type: TangentPointerTypeEXT; stride: Int32; pointer: IntPtr) :=
     z_TangentPointerEXT_ovr_0(&type, stride, pointer);
     
-    private static procedure z_BinormalPointerEXT_ovr_0(&type: BinormalPointerTypeEXT; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glBinormalPointerEXT';
+    private z_BinormalPointerEXT_adr := GetFuncAdr('glBinormalPointerEXT');
+    private z_BinormalPointerEXT_ovr_0 := GetFuncOrNil&(z_BinormalPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BinormalPointerEXT(&type: BinormalPointerTypeEXT; stride: Int32; pointer: IntPtr) :=
     z_BinormalPointerEXT_ovr_0(&type, stride, pointer);
     
   end;
   
   [PCUNotRestore]
-  glCopyTextureEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCopyTextureEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_copy_texture';
     
-    private static procedure z_CopyTexImage1DEXT_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTexImage1DEXT';
+    private z_CopyTexImage1DEXT_adr := GetFuncAdr('glCopyTexImage1DEXT');
+    private z_CopyTexImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyTexImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexImage1DEXT(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32) :=
     z_CopyTexImage1DEXT_ovr_0(target, level, _internalformat, x, y, width, border);
     
-    private static procedure z_CopyTexImage2DEXT_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTexImage2DEXT';
+    private z_CopyTexImage2DEXT_adr := GetFuncAdr('glCopyTexImage2DEXT');
+    private z_CopyTexImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyTexImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexImage2DEXT(target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32) :=
     z_CopyTexImage2DEXT_ovr_0(target, level, _internalformat, x, y, width, height, border);
     
-    private static procedure z_CopyTexSubImage1DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyTexSubImage1DEXT';
+    private z_CopyTexSubImage1DEXT_adr := GetFuncAdr('glCopyTexSubImage1DEXT');
+    private z_CopyTexSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyTexSubImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexSubImage1DEXT(target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyTexSubImage1DEXT_ovr_0(target, level, xoffset, x, y, width);
     
-    private static procedure z_CopyTexSubImage2DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTexSubImage2DEXT';
+    private z_CopyTexSubImage2DEXT_adr := GetFuncAdr('glCopyTexSubImage2DEXT');
+    private z_CopyTexSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyTexSubImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexSubImage2DEXT(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTexSubImage2DEXT_ovr_0(target, level, xoffset, yoffset, x, y, width, height);
     
-    private static procedure z_CopyTexSubImage3DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTexSubImage3DEXT';
+    private z_CopyTexSubImage3DEXT_adr := GetFuncAdr('glCopyTexSubImage3DEXT');
+    private z_CopyTexSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_CopyTexSubImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTexSubImage3DEXT(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTexSubImage3DEXT_ovr_0(target, level, xoffset, yoffset, zoffset, x, y, width, height);
     
   end;
   
   [PCUNotRestore]
-  glCullVertexEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCullVertexEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_cull_vertex';
     
-    private static procedure z_CullParameterdvEXT_ovr_0(pname: CullParameterEXT; var ¶ms: real);
-    external 'opengl32.dll' name 'glCullParameterdvEXT';
-    private static procedure z_CullParameterdvEXT_ovr_0_anh001(pname: CullParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCullParameterdvEXT';
+    private z_CullParameterdvEXT_adr := GetFuncAdr('glCullParameterdvEXT');
+    private z_CullParameterdvEXT_ovr_0 := GetFuncOrNil&(z_CullParameterdvEXT_adr);
+    private z_CullParameterdvEXT_ovr_0_anh001 := GetFuncOrNil&(z_CullParameterdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterdvEXT(pname: CullParameterEXT; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_CullParameterdvEXT_ovr_0(pname, ¶ms[0]) else
       z_CullParameterdvEXT_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterdvEXT(pname: CullParameterEXT; var ¶ms: real) :=
     z_CullParameterdvEXT_ovr_0(pname, ¶ms);
-    private static procedure z_CullParameterdvEXT_ovr_2(pname: CullParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCullParameterdvEXT';
+    private z_CullParameterdvEXT_ovr_2 := GetFuncOrNil&(z_CullParameterdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterdvEXT(pname: CullParameterEXT; ¶ms: IntPtr) :=
     z_CullParameterdvEXT_ovr_2(pname, ¶ms);
     
-    private static procedure z_CullParameterfvEXT_ovr_0(pname: CullParameterEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glCullParameterfvEXT';
-    private static procedure z_CullParameterfvEXT_ovr_0_anh001(pname: CullParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCullParameterfvEXT';
+    private z_CullParameterfvEXT_adr := GetFuncAdr('glCullParameterfvEXT');
+    private z_CullParameterfvEXT_ovr_0 := GetFuncOrNil&(z_CullParameterfvEXT_adr);
+    private z_CullParameterfvEXT_ovr_0_anh001 := GetFuncOrNil&(z_CullParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterfvEXT(pname: CullParameterEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_CullParameterfvEXT_ovr_0(pname, ¶ms[0]) else
       z_CullParameterfvEXT_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterfvEXT(pname: CullParameterEXT; var ¶ms: single) :=
     z_CullParameterfvEXT_ovr_0(pname, ¶ms);
-    private static procedure z_CullParameterfvEXT_ovr_2(pname: CullParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCullParameterfvEXT';
+    private z_CullParameterfvEXT_ovr_2 := GetFuncOrNil&(z_CullParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CullParameterfvEXT(pname: CullParameterEXT; ¶ms: IntPtr) :=
     z_CullParameterfvEXT_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glDebugLabelEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDebugLabelEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_debug_label';
     
-    private static procedure z_LabelObjectEXT_ovr_0(&type: DummyEnum; object: UInt32; length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glLabelObjectEXT';
+    private z_LabelObjectEXT_adr := GetFuncAdr('glLabelObjectEXT');
+    private z_LabelObjectEXT_ovr_0 := GetFuncOrNil&(z_LabelObjectEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LabelObjectEXT(&type: DummyEnum; object: UInt32; length: Int32; &label: string);
     begin
       var par_4_str_ptr: IntPtr;
@@ -49430,34 +48894,29 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LabelObjectEXT(&type: DummyEnum; object: UInt32; length: Int32; &label: IntPtr) :=
     z_LabelObjectEXT_ovr_0(&type, object, length, &label);
     
-    private static procedure z_GetObjectLabelEXT_ovr_0(&type: DummyEnum; object: UInt32; bufSize: Int32; var length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabelEXT';
-    private static procedure z_GetObjectLabelEXT_ovr_0_anh000010(&type: DummyEnum; object: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabelEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabelEXT(&type: DummyEnum; object: UInt32; bufSize: Int32; length: array of Int32; &label: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetObjectLabelEXT_ovr_0(&type, object, bufSize, length[0], &label) else
-      z_GetObjectLabelEXT_ovr_0_anh000010(&type, object, bufSize, IntPtr.Zero, &label);
+    private z_GetObjectLabelEXT_adr := GetFuncAdr('glGetObjectLabelEXT');
+    private z_GetObjectLabelEXT_ovr_0 := GetFuncOrNil&(z_GetObjectLabelEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabelEXT(&type: DummyEnum; object: UInt32; bufSize: Int32; var length: Int32; &label: IntPtr) :=
     z_GetObjectLabelEXT_ovr_0(&type, object, bufSize, length, &label);
-    private static procedure z_GetObjectLabelEXT_ovr_2(&type: DummyEnum; object: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabelEXT';
+    private z_GetObjectLabelEXT_ovr_1 := GetFuncOrNil&(z_GetObjectLabelEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabelEXT(&type: DummyEnum; object: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr) :=
-    z_GetObjectLabelEXT_ovr_2(&type, object, bufSize, length, &label);
+    z_GetObjectLabelEXT_ovr_1(&type, object, bufSize, length, &label);
     
   end;
   
   [PCUNotRestore]
-  glDebugMarkerEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDebugMarkerEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_debug_marker';
     
-    private static procedure z_InsertEventMarkerEXT_ovr_0(length: Int32; marker: IntPtr);
-    external 'opengl32.dll' name 'glInsertEventMarkerEXT';
+    private z_InsertEventMarkerEXT_adr := GetFuncAdr('glInsertEventMarkerEXT');
+    private z_InsertEventMarkerEXT_ovr_0 := GetFuncOrNil&(z_InsertEventMarkerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InsertEventMarkerEXT(length: Int32; marker: string);
     begin
       var par_2_str_ptr: IntPtr;
@@ -49471,8 +48930,8 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InsertEventMarkerEXT(length: Int32; marker: IntPtr) :=
     z_InsertEventMarkerEXT_ovr_0(length, marker);
     
-    private static procedure z_PushGroupMarkerEXT_ovr_0(length: Int32; marker: IntPtr);
-    external 'opengl32.dll' name 'glPushGroupMarkerEXT';
+    private z_PushGroupMarkerEXT_adr := GetFuncAdr('glPushGroupMarkerEXT');
+    private z_PushGroupMarkerEXT_ovr_0 := GetFuncOrNil&(z_PushGroupMarkerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushGroupMarkerEXT(length: Int32; marker: string);
     begin
       var par_2_str_ptr: IntPtr;
@@ -49486,2792 +48945,2546 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushGroupMarkerEXT(length: Int32; marker: IntPtr) :=
     z_PushGroupMarkerEXT_ovr_0(length, marker);
     
-    private static procedure z_PopGroupMarkerEXT_ovr_0;
-    external 'opengl32.dll' name 'glPopGroupMarkerEXT';
+    private z_PopGroupMarkerEXT_adr := GetFuncAdr('glPopGroupMarkerEXT');
+    private z_PopGroupMarkerEXT_ovr_0 := GetFuncOrNil&(z_PopGroupMarkerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopGroupMarkerEXT :=
     z_PopGroupMarkerEXT_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glDepthBoundsTestEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDepthBoundsTestEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_depth_bounds_test';
     
-    private static procedure z_DepthBoundsEXT_ovr_0(zmin: real; zmax: real);
-    external 'opengl32.dll' name 'glDepthBoundsEXT';
+    private z_DepthBoundsEXT_adr := GetFuncAdr('glDepthBoundsEXT');
+    private z_DepthBoundsEXT_ovr_0 := GetFuncOrNil&(z_DepthBoundsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthBoundsEXT(zmin: real; zmax: real) :=
     z_DepthBoundsEXT_ovr_0(zmin, zmax);
     
   end;
   
   [PCUNotRestore]
-  glDirectStateAccessEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDirectStateAccessEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_direct_state_access';
     
-    private static procedure z_MatrixLoadfEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
-    private static procedure z_MatrixLoadfEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
+    private z_MatrixLoadfEXT_adr := GetFuncAdr('glMatrixLoadfEXT');
+    private z_MatrixLoadfEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
+    private z_MatrixLoadfEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadfEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadfEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; var m: single) :=
     z_MatrixLoadfEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadfEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
+    private z_MatrixLoadfEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadfEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoaddEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
-    private static procedure z_MatrixLoaddEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
+    private z_MatrixLoaddEXT_adr := GetFuncAdr('glMatrixLoaddEXT');
+    private z_MatrixLoaddEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
+    private z_MatrixLoaddEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoaddEXT_ovr_0(mode, m[0]) else
       z_MatrixLoaddEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; var m: real) :=
     z_MatrixLoaddEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoaddEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
+    private z_MatrixLoaddEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoaddEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultfEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
-    private static procedure z_MatrixMultfEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
+    private z_MatrixMultfEXT_adr := GetFuncAdr('glMatrixMultfEXT');
+    private z_MatrixMultfEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
+    private z_MatrixMultfEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultfEXT_ovr_0(mode, m[0]) else
       z_MatrixMultfEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; var m: single) :=
     z_MatrixMultfEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultfEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
+    private z_MatrixMultfEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultfEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultdEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
-    private static procedure z_MatrixMultdEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
+    private z_MatrixMultdEXT_adr := GetFuncAdr('glMatrixMultdEXT');
+    private z_MatrixMultdEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
+    private z_MatrixMultdEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultdEXT_ovr_0(mode, m[0]) else
       z_MatrixMultdEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; var m: real) :=
     z_MatrixMultdEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultdEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
+    private z_MatrixMultdEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultdEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoadIdentityEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixLoadIdentityEXT';
+    private z_MatrixLoadIdentityEXT_adr := GetFuncAdr('glMatrixLoadIdentityEXT');
+    private z_MatrixLoadIdentityEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadIdentityEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadIdentityEXT(mode: MatrixMode) :=
     z_MatrixLoadIdentityEXT_ovr_0(mode);
     
-    private static procedure z_MatrixRotatefEXT_ovr_0(mode: MatrixMode; angle: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixRotatefEXT';
+    private z_MatrixRotatefEXT_adr := GetFuncAdr('glMatrixRotatefEXT');
+    private z_MatrixRotatefEXT_ovr_0 := GetFuncOrNil&(z_MatrixRotatefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixRotatefEXT(mode: MatrixMode; angle: single; x: single; y: single; z: single) :=
     z_MatrixRotatefEXT_ovr_0(mode, angle, x, y, z);
     
-    private static procedure z_MatrixRotatedEXT_ovr_0(mode: MatrixMode; angle: real; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixRotatedEXT';
+    private z_MatrixRotatedEXT_adr := GetFuncAdr('glMatrixRotatedEXT');
+    private z_MatrixRotatedEXT_ovr_0 := GetFuncOrNil&(z_MatrixRotatedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixRotatedEXT(mode: MatrixMode; angle: real; x: real; y: real; z: real) :=
     z_MatrixRotatedEXT_ovr_0(mode, angle, x, y, z);
     
-    private static procedure z_MatrixScalefEXT_ovr_0(mode: MatrixMode; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixScalefEXT';
+    private z_MatrixScalefEXT_adr := GetFuncAdr('glMatrixScalefEXT');
+    private z_MatrixScalefEXT_ovr_0 := GetFuncOrNil&(z_MatrixScalefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixScalefEXT(mode: MatrixMode; x: single; y: single; z: single) :=
     z_MatrixScalefEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixScaledEXT_ovr_0(mode: MatrixMode; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixScaledEXT';
+    private z_MatrixScaledEXT_adr := GetFuncAdr('glMatrixScaledEXT');
+    private z_MatrixScaledEXT_ovr_0 := GetFuncOrNil&(z_MatrixScaledEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixScaledEXT(mode: MatrixMode; x: real; y: real; z: real) :=
     z_MatrixScaledEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixTranslatefEXT_ovr_0(mode: MatrixMode; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixTranslatefEXT';
+    private z_MatrixTranslatefEXT_adr := GetFuncAdr('glMatrixTranslatefEXT');
+    private z_MatrixTranslatefEXT_ovr_0 := GetFuncOrNil&(z_MatrixTranslatefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixTranslatefEXT(mode: MatrixMode; x: single; y: single; z: single) :=
     z_MatrixTranslatefEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixTranslatedEXT_ovr_0(mode: MatrixMode; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixTranslatedEXT';
+    private z_MatrixTranslatedEXT_adr := GetFuncAdr('glMatrixTranslatedEXT');
+    private z_MatrixTranslatedEXT_ovr_0 := GetFuncOrNil&(z_MatrixTranslatedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixTranslatedEXT(mode: MatrixMode; x: real; y: real; z: real) :=
     z_MatrixTranslatedEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixFrustumEXT_ovr_0(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glMatrixFrustumEXT';
+    private z_MatrixFrustumEXT_adr := GetFuncAdr('glMatrixFrustumEXT');
+    private z_MatrixFrustumEXT_ovr_0 := GetFuncOrNil&(z_MatrixFrustumEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixFrustumEXT(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
     z_MatrixFrustumEXT_ovr_0(mode, left, right, bottom, top, zNear, zFar);
     
-    private static procedure z_MatrixOrthoEXT_ovr_0(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glMatrixOrthoEXT';
+    private z_MatrixOrthoEXT_adr := GetFuncAdr('glMatrixOrthoEXT');
+    private z_MatrixOrthoEXT_ovr_0 := GetFuncOrNil&(z_MatrixOrthoEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixOrthoEXT(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
     z_MatrixOrthoEXT_ovr_0(mode, left, right, bottom, top, zNear, zFar);
     
-    private static procedure z_MatrixPopEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixPopEXT';
+    private z_MatrixPopEXT_adr := GetFuncAdr('glMatrixPopEXT');
+    private z_MatrixPopEXT_ovr_0 := GetFuncOrNil&(z_MatrixPopEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixPopEXT(mode: MatrixMode) :=
     z_MatrixPopEXT_ovr_0(mode);
     
-    private static procedure z_MatrixPushEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixPushEXT';
+    private z_MatrixPushEXT_adr := GetFuncAdr('glMatrixPushEXT');
+    private z_MatrixPushEXT_ovr_0 := GetFuncOrNil&(z_MatrixPushEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixPushEXT(mode: MatrixMode) :=
     z_MatrixPushEXT_ovr_0(mode);
     
-    private static procedure z_ClientAttribDefaultEXT_ovr_0(mask: ClientAttribMask);
-    external 'opengl32.dll' name 'glClientAttribDefaultEXT';
+    private z_ClientAttribDefaultEXT_adr := GetFuncAdr('glClientAttribDefaultEXT');
+    private z_ClientAttribDefaultEXT_ovr_0 := GetFuncOrNil&(z_ClientAttribDefaultEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientAttribDefaultEXT(mask: ClientAttribMask) :=
     z_ClientAttribDefaultEXT_ovr_0(mask);
     
-    private static procedure z_PushClientAttribDefaultEXT_ovr_0(mask: ClientAttribMask);
-    external 'opengl32.dll' name 'glPushClientAttribDefaultEXT';
+    private z_PushClientAttribDefaultEXT_adr := GetFuncAdr('glPushClientAttribDefaultEXT');
+    private z_PushClientAttribDefaultEXT_ovr_0 := GetFuncOrNil&(z_PushClientAttribDefaultEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushClientAttribDefaultEXT(mask: ClientAttribMask) :=
     z_PushClientAttribDefaultEXT_ovr_0(mask);
     
-    private static procedure z_TextureParameterfEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; param: single);
-    external 'opengl32.dll' name 'glTextureParameterfEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; param: single) :=
+    private z_TextureParameterfEXT_adr := GetFuncAdr('glTextureParameterfEXT');
+    private z_TextureParameterfEXT_ovr_0 := GetFuncOrNil&(z_TextureParameterfEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; param: single) :=
     z_TextureParameterfEXT_ovr_0(texture, target, pname, param);
     
-    private static procedure z_TextureParameterfvEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: single);
-    external 'opengl32.dll' name 'glTextureParameterfvEXT';
-    private static procedure z_TextureParameterfvEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: array of single) :=
+    private z_TextureParameterfvEXT_adr := GetFuncAdr('glTextureParameterfvEXT');
+    private z_TextureParameterfvEXT_ovr_0 := GetFuncOrNil&(z_TextureParameterfvEXT_adr);
+    private z_TextureParameterfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_TextureParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterfvEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_TextureParameterfvEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; var ¶ms: single) :=
     z_TextureParameterfvEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_TextureParameterfvEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterfvEXT_ovr_2 := GetFuncOrNil&(z_TextureParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterfvEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_TextureParameteriEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; param: Int32);
-    external 'opengl32.dll' name 'glTextureParameteriEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; param: Int32) :=
+    private z_TextureParameteriEXT_adr := GetFuncAdr('glTextureParameteriEXT');
+    private z_TextureParameteriEXT_ovr_0 := GetFuncOrNil&(z_TextureParameteriEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameteriEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; param: Int32) :=
     z_TextureParameteriEXT_ovr_0(texture, target, pname, param);
     
-    private static procedure z_TextureParameterivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTextureParameterivEXT';
-    private static procedure z_TextureParameterivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
+    private z_TextureParameterivEXT_adr := GetFuncAdr('glTextureParameterivEXT');
+    private z_TextureParameterivEXT_ovr_0 := GetFuncOrNil&(z_TextureParameterivEXT_adr);
+    private z_TextureParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_TextureParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_TextureParameterivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
     z_TextureParameterivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_TextureParameterivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterivEXT_ovr_2 := GetFuncOrNil&(z_TextureParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_TextureImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureImage1DEXT_adr := GetFuncAdr('glTextureImage1DEXT');
+    private z_TextureImage1DEXT_ovr_0 := GetFuncOrNil&(z_TextureImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureImage1DEXT_ovr_0(texture, target, level, internalformat, width, border, format, &type, pixels);
     
-    private static procedure z_TextureImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureImage2DEXT_adr := GetFuncAdr('glTextureImage2DEXT');
+    private z_TextureImage2DEXT_ovr_0 := GetFuncOrNil&(z_TextureImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureImage2DEXT_ovr_0(texture, target, level, internalformat, width, height, border, format, &type, pixels);
     
-    private static procedure z_TextureSubImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage1DEXT_adr := GetFuncAdr('glTextureSubImage1DEXT');
+    private z_TextureSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_TextureSubImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage1DEXT_ovr_0(texture, target, level, xoffset, width, format, &type, pixels);
     
-    private static procedure z_TextureSubImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage2DEXT_adr := GetFuncAdr('glTextureSubImage2DEXT');
+    private z_TextureSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_TextureSubImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage2DEXT_ovr_0(texture, target, level, xoffset, yoffset, width, height, format, &type, pixels);
     
-    private static procedure z_CopyTextureImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTextureImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32) :=
+    private z_CopyTextureImage1DEXT_adr := GetFuncAdr('glCopyTextureImage1DEXT');
+    private z_CopyTextureImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyTextureImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32) :=
     z_CopyTextureImage1DEXT_ovr_0(texture, target, level, _internalformat, x, y, width, border);
     
-    private static procedure z_CopyTextureImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyTextureImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32) :=
+    private z_CopyTextureImage2DEXT_adr := GetFuncAdr('glCopyTextureImage2DEXT');
+    private z_CopyTextureImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyTextureImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32) :=
     z_CopyTextureImage2DEXT_ovr_0(texture, target, level, _internalformat, x, y, width, height, border);
     
-    private static procedure z_CopyTextureSubImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
+    private z_CopyTextureSubImage1DEXT_adr := GetFuncAdr('glCopyTextureSubImage1DEXT');
+    private z_CopyTextureSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyTextureSubImage1DEXT_ovr_0(texture, target, level, xoffset, x, y, width);
     
-    private static procedure z_CopyTextureSubImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage2DEXT_adr := GetFuncAdr('glCopyTextureSubImage2DEXT');
+    private z_CopyTextureSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage2DEXT_ovr_0(texture, target, level, xoffset, yoffset, x, y, width, height);
     
-    private static procedure z_GetTextureImageEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureImageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImageEXT(texture: UInt32; target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_GetTextureImageEXT_adr := GetFuncAdr('glGetTextureImageEXT');
+    private z_GetTextureImageEXT_ovr_0 := GetFuncOrNil&(z_GetTextureImageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureImageEXT(texture: gl_texture; target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_GetTextureImageEXT_ovr_0(texture, target, level, format, &type, pixels);
     
-    private static procedure z_GetTextureParameterfvEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTextureParameterfvEXT';
-    private static procedure z_GetTextureParameterfvEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureParameterfvEXT_adr := GetFuncAdr('glGetTextureParameterfvEXT');
+    private z_GetTextureParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetTextureParameterfvEXT_adr);
+    private z_GetTextureParameterfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterfvEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_GetTextureParameterfvEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureParameterfvEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_GetTextureParameterfvEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetTextureParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterfvEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterfvEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureParameterivEXT';
-    private static procedure z_GetTextureParameterivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameterivEXT_adr := GetFuncAdr('glGetTextureParameterivEXT');
+    private z_GetTextureParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetTextureParameterivEXT_adr);
+    private z_GetTextureParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_GetTextureParameterivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameterivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_GetTextureParameterivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetTextureParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_GetTextureLevelParameterfvEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfvEXT';
-    private static procedure z_GetTextureLevelParameterfvEXT_ovr_0_anh000001(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
+    private z_GetTextureLevelParameterfvEXT_adr := GetFuncAdr('glGetTextureLevelParameterfvEXT');
+    private z_GetTextureLevelParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameterfvEXT_adr);
+    private z_GetTextureLevelParameterfvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_GetTextureLevelParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameterfvEXT_ovr_0(texture, target, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameterfvEXT_ovr_0_anh000001(texture, target, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetTextureLevelParameterfvEXT_ovr_0(texture, target, level, pname, ¶ms);
-    private static procedure z_GetTextureLevelParameterfvEXT_ovr_2(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterfvEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameterfvEXT_ovr_2(texture, target, level, pname, ¶ms);
     
-    private static procedure z_GetTextureLevelParameterivEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterivEXT';
-    private static procedure z_GetTextureLevelParameterivEXT_ovr_0_anh000001(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureLevelParameterivEXT_adr := GetFuncAdr('glGetTextureLevelParameterivEXT');
+    private z_GetTextureLevelParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetTextureLevelParameterivEXT_adr);
+    private z_GetTextureLevelParameterivEXT_ovr_0_anh000001 := GetFuncOrNil&(z_GetTextureLevelParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureLevelParameterivEXT_ovr_0(texture, target, level, pname, ¶ms[0]) else
       z_GetTextureLevelParameterivEXT_ovr_0_anh000001(texture, target, level, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureLevelParameterivEXT_ovr_0(texture, target, level, pname, ¶ms);
-    private static procedure z_GetTextureLevelParameterivEXT_ovr_2(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureLevelParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: UInt32; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureLevelParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetTextureLevelParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureLevelParameterivEXT(texture: gl_texture; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureLevelParameterivEXT_ovr_2(texture, target, level, pname, ¶ms);
     
-    private static procedure z_TextureImage3DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureImage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DEXT(texture: UInt32; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureImage3DEXT_adr := GetFuncAdr('glTextureImage3DEXT');
+    private z_TextureImage3DEXT_ovr_0 := GetFuncOrNil&(z_TextureImage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DEXT(texture: gl_texture; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureImage3DEXT_ovr_0(texture, target, level, internalformat, width, height, depth, border, format, &type, pixels);
     
-    private static procedure z_TextureSubImage3DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTextureSubImage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
+    private z_TextureSubImage3DEXT_adr := GetFuncAdr('glTextureSubImage3DEXT');
+    private z_TextureSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_TextureSubImage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureSubImage3DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TextureSubImage3DEXT_ovr_0(texture, target, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, pixels);
     
-    private static procedure z_CopyTextureSubImage3DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyTextureSubImage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    private z_CopyTextureSubImage3DEXT_adr := GetFuncAdr('glCopyTextureSubImage3DEXT');
+    private z_CopyTextureSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_CopyTextureSubImage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyTextureSubImage3DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyTextureSubImage3DEXT_ovr_0(texture, target, level, xoffset, yoffset, zoffset, x, y, width, height);
     
-    private static procedure z_BindMultiTextureEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; texture: UInt32);
-    external 'opengl32.dll' name 'glBindMultiTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindMultiTextureEXT(texunit: TextureUnit; target: TextureTarget; texture: UInt32) :=
+    private z_BindMultiTextureEXT_adr := GetFuncAdr('glBindMultiTextureEXT');
+    private z_BindMultiTextureEXT_ovr_0 := GetFuncOrNil&(z_BindMultiTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindMultiTextureEXT(texunit: TextureUnit; target: TextureTarget; texture: gl_texture) :=
     z_BindMultiTextureEXT_ovr_0(texunit, target, texture);
     
-    private static procedure z_MultiTexCoordPointerEXT_ovr_0(texunit: TextureUnit; size: Int32; &type: TexCoordPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoordPointerEXT';
+    private z_MultiTexCoordPointerEXT_adr := GetFuncAdr('glMultiTexCoordPointerEXT');
+    private z_MultiTexCoordPointerEXT_ovr_0 := GetFuncOrNil&(z_MultiTexCoordPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoordPointerEXT(texunit: TextureUnit; size: Int32; &type: TexCoordPointerType; stride: Int32; pointer: IntPtr) :=
     z_MultiTexCoordPointerEXT_ovr_0(texunit, size, &type, stride, pointer);
     
-    private static procedure z_MultiTexEnvfEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; param: single);
-    external 'opengl32.dll' name 'glMultiTexEnvfEXT';
+    private z_MultiTexEnvfEXT_adr := GetFuncAdr('glMultiTexEnvfEXT');
+    private z_MultiTexEnvfEXT_ovr_0 := GetFuncOrNil&(z_MultiTexEnvfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvfEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; param: single) :=
     z_MultiTexEnvfEXT_ovr_0(texunit, target, pname, param);
     
-    private static procedure z_MultiTexEnvfvEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glMultiTexEnvfvEXT';
-    private static procedure z_MultiTexEnvfvEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexEnvfvEXT';
+    private z_MultiTexEnvfvEXT_adr := GetFuncAdr('glMultiTexEnvfvEXT');
+    private z_MultiTexEnvfvEXT_ovr_0 := GetFuncOrNil&(z_MultiTexEnvfvEXT_adr);
+    private z_MultiTexEnvfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexEnvfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexEnvfvEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexEnvfvEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single) :=
     z_MultiTexEnvfvEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexEnvfvEXT_ovr_2(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexEnvfvEXT';
+    private z_MultiTexEnvfvEXT_ovr_2 := GetFuncOrNil&(z_MultiTexEnvfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_MultiTexEnvfvEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_MultiTexEnviEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; param: Int32);
-    external 'opengl32.dll' name 'glMultiTexEnviEXT';
+    private z_MultiTexEnviEXT_adr := GetFuncAdr('glMultiTexEnviEXT');
+    private z_MultiTexEnviEXT_ovr_0 := GetFuncOrNil&(z_MultiTexEnviEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnviEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; param: Int32) :=
     z_MultiTexEnviEXT_ovr_0(texunit, target, pname, param);
     
-    private static procedure z_MultiTexEnvivEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMultiTexEnvivEXT';
-    private static procedure z_MultiTexEnvivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexEnvivEXT';
+    private z_MultiTexEnvivEXT_adr := GetFuncAdr('glMultiTexEnvivEXT');
+    private z_MultiTexEnvivEXT_ovr_0 := GetFuncOrNil&(z_MultiTexEnvivEXT_adr);
+    private z_MultiTexEnvivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexEnvivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexEnvivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexEnvivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32) :=
     z_MultiTexEnvivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexEnvivEXT_ovr_2(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexEnvivEXT';
+    private z_MultiTexEnvivEXT_ovr_2 := GetFuncOrNil&(z_MultiTexEnvivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_MultiTexEnvivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_MultiTexGendEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: real);
-    external 'opengl32.dll' name 'glMultiTexGendEXT';
+    private z_MultiTexGendEXT_adr := GetFuncAdr('glMultiTexGendEXT');
+    private z_MultiTexGendEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGendEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGendEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: real) :=
     z_MultiTexGendEXT_ovr_0(texunit, coord, pname, param);
     
-    private static procedure z_MultiTexGendvEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
-    external 'opengl32.dll' name 'glMultiTexGendvEXT';
-    private static procedure z_MultiTexGendvEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGendvEXT';
+    private z_MultiTexGendvEXT_adr := GetFuncAdr('glMultiTexGendvEXT');
+    private z_MultiTexGendvEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGendvEXT_adr);
+    private z_MultiTexGendvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexGendvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexGendvEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_MultiTexGendvEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real) :=
     z_MultiTexGendvEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_MultiTexGendvEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGendvEXT';
+    private z_MultiTexGendvEXT_ovr_2 := GetFuncOrNil&(z_MultiTexGendvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_MultiTexGendvEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_MultiTexGenfEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: single);
-    external 'opengl32.dll' name 'glMultiTexGenfEXT';
+    private z_MultiTexGenfEXT_adr := GetFuncAdr('glMultiTexGenfEXT');
+    private z_MultiTexGenfEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGenfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenfEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: single) :=
     z_MultiTexGenfEXT_ovr_0(texunit, coord, pname, param);
     
-    private static procedure z_MultiTexGenfvEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glMultiTexGenfvEXT';
-    private static procedure z_MultiTexGenfvEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGenfvEXT';
+    private z_MultiTexGenfvEXT_adr := GetFuncAdr('glMultiTexGenfvEXT');
+    private z_MultiTexGenfvEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGenfvEXT_adr);
+    private z_MultiTexGenfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexGenfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexGenfvEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_MultiTexGenfvEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single) :=
     z_MultiTexGenfvEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_MultiTexGenfvEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGenfvEXT';
+    private z_MultiTexGenfvEXT_ovr_2 := GetFuncOrNil&(z_MultiTexGenfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_MultiTexGenfvEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_MultiTexGeniEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: Int32);
-    external 'opengl32.dll' name 'glMultiTexGeniEXT';
+    private z_MultiTexGeniEXT_adr := GetFuncAdr('glMultiTexGeniEXT');
+    private z_MultiTexGeniEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGeniEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGeniEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; param: Int32) :=
     z_MultiTexGeniEXT_ovr_0(texunit, coord, pname, param);
     
-    private static procedure z_MultiTexGenivEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMultiTexGenivEXT';
-    private static procedure z_MultiTexGenivEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGenivEXT';
+    private z_MultiTexGenivEXT_adr := GetFuncAdr('glMultiTexGenivEXT');
+    private z_MultiTexGenivEXT_ovr_0 := GetFuncOrNil&(z_MultiTexGenivEXT_adr);
+    private z_MultiTexGenivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexGenivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexGenivEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_MultiTexGenivEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32) :=
     z_MultiTexGenivEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_MultiTexGenivEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexGenivEXT';
+    private z_MultiTexGenivEXT_ovr_2 := GetFuncOrNil&(z_MultiTexGenivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_MultiTexGenivEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_GetMultiTexEnvfvEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMultiTexEnvfvEXT';
-    private static procedure z_GetMultiTexEnvfvEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexEnvfvEXT';
+    private z_GetMultiTexEnvfvEXT_adr := GetFuncAdr('glGetMultiTexEnvfvEXT');
+    private z_GetMultiTexEnvfvEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexEnvfvEXT_adr);
+    private z_GetMultiTexEnvfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexEnvfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexEnvfvEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexEnvfvEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: single) :=
     z_GetMultiTexEnvfvEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexEnvfvEXT_ovr_2(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexEnvfvEXT';
+    private z_GetMultiTexEnvfvEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexEnvfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvfvEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_GetMultiTexEnvfvEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexEnvivEXT_ovr_0(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMultiTexEnvivEXT';
-    private static procedure z_GetMultiTexEnvivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexEnvivEXT';
+    private z_GetMultiTexEnvivEXT_adr := GetFuncAdr('glGetMultiTexEnvivEXT');
+    private z_GetMultiTexEnvivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexEnvivEXT_adr);
+    private z_GetMultiTexEnvivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexEnvivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexEnvivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexEnvivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Int32) :=
     z_GetMultiTexEnvivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexEnvivEXT_ovr_2(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexEnvivEXT';
+    private z_GetMultiTexEnvivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexEnvivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexEnvivEXT(texunit: TextureUnit; target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_GetMultiTexEnvivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexGendvEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetMultiTexGendvEXT';
-    private static procedure z_GetMultiTexGendvEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGendvEXT';
+    private z_GetMultiTexGendvEXT_adr := GetFuncAdr('glGetMultiTexGendvEXT');
+    private z_GetMultiTexGendvEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexGendvEXT_adr);
+    private z_GetMultiTexGendvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexGendvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexGendvEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_GetMultiTexGendvEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: real) :=
     z_GetMultiTexGendvEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_GetMultiTexGendvEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGendvEXT';
+    private z_GetMultiTexGendvEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexGendvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGendvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_GetMultiTexGendvEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_GetMultiTexGenfvEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMultiTexGenfvEXT';
-    private static procedure z_GetMultiTexGenfvEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGenfvEXT';
+    private z_GetMultiTexGenfvEXT_adr := GetFuncAdr('glGetMultiTexGenfvEXT');
+    private z_GetMultiTexGenfvEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexGenfvEXT_adr);
+    private z_GetMultiTexGenfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexGenfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexGenfvEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_GetMultiTexGenfvEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: single) :=
     z_GetMultiTexGenfvEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_GetMultiTexGenfvEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGenfvEXT';
+    private z_GetMultiTexGenfvEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexGenfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenfvEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_GetMultiTexGenfvEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_GetMultiTexGenivEXT_ovr_0(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMultiTexGenivEXT';
-    private static procedure z_GetMultiTexGenivEXT_ovr_0_anh00001(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGenivEXT';
+    private z_GetMultiTexGenivEXT_adr := GetFuncAdr('glGetMultiTexGenivEXT');
+    private z_GetMultiTexGenivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexGenivEXT_adr);
+    private z_GetMultiTexGenivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexGenivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexGenivEXT_ovr_0(texunit, coord, pname, ¶ms[0]) else
       z_GetMultiTexGenivEXT_ovr_0_anh00001(texunit, coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Int32) :=
     z_GetMultiTexGenivEXT_ovr_0(texunit, coord, pname, ¶ms);
-    private static procedure z_GetMultiTexGenivEXT_ovr_2(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexGenivEXT';
+    private z_GetMultiTexGenivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexGenivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexGenivEXT(texunit: TextureUnit; coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_GetMultiTexGenivEXT_ovr_2(texunit, coord, pname, ¶ms);
     
-    private static procedure z_MultiTexParameteriEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; param: Int32);
-    external 'opengl32.dll' name 'glMultiTexParameteriEXT';
+    private z_MultiTexParameteriEXT_adr := GetFuncAdr('glMultiTexParameteriEXT');
+    private z_MultiTexParameteriEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameteriEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameteriEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; param: Int32) :=
     z_MultiTexParameteriEXT_ovr_0(texunit, target, pname, param);
     
-    private static procedure z_MultiTexParameterivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMultiTexParameterivEXT';
-    private static procedure z_MultiTexParameterivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterivEXT';
+    private z_MultiTexParameterivEXT_adr := GetFuncAdr('glMultiTexParameterivEXT');
+    private z_MultiTexParameterivEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameterivEXT_adr);
+    private z_MultiTexParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexParameterivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexParameterivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
     z_MultiTexParameterivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexParameterivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterivEXT';
+    private z_MultiTexParameterivEXT_ovr_2 := GetFuncOrNil&(z_MultiTexParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_MultiTexParameterivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_MultiTexParameterfEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; param: single);
-    external 'opengl32.dll' name 'glMultiTexParameterfEXT';
+    private z_MultiTexParameterfEXT_adr := GetFuncAdr('glMultiTexParameterfEXT');
+    private z_MultiTexParameterfEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameterfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterfEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; param: single) :=
     z_MultiTexParameterfEXT_ovr_0(texunit, target, pname, param);
     
-    private static procedure z_MultiTexParameterfvEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: single);
-    external 'opengl32.dll' name 'glMultiTexParameterfvEXT';
-    private static procedure z_MultiTexParameterfvEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterfvEXT';
+    private z_MultiTexParameterfvEXT_adr := GetFuncAdr('glMultiTexParameterfvEXT');
+    private z_MultiTexParameterfvEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameterfvEXT_adr);
+    private z_MultiTexParameterfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexParameterfvEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexParameterfvEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: single) :=
     z_MultiTexParameterfvEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexParameterfvEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterfvEXT';
+    private z_MultiTexParameterfvEXT_ovr_2 := GetFuncOrNil&(z_MultiTexParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_MultiTexParameterfvEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_MultiTexImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexImage1DEXT';
+    private z_MultiTexImage1DEXT_adr := GetFuncAdr('glMultiTexImage1DEXT');
+    private z_MultiTexImage1DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexImage1DEXT_ovr_0(texunit, target, level, internalformat, width, border, format, &type, pixels);
     
-    private static procedure z_MultiTexImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexImage2DEXT';
+    private z_MultiTexImage2DEXT_adr := GetFuncAdr('glMultiTexImage2DEXT');
+    private z_MultiTexImage2DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexImage2DEXT_ovr_0(texunit, target, level, internalformat, width, height, border, format, &type, pixels);
     
-    private static procedure z_MultiTexSubImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexSubImage1DEXT';
+    private z_MultiTexSubImage1DEXT_adr := GetFuncAdr('glMultiTexSubImage1DEXT');
+    private z_MultiTexSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexSubImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexSubImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexSubImage1DEXT_ovr_0(texunit, target, level, xoffset, width, format, &type, pixels);
     
-    private static procedure z_MultiTexSubImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexSubImage2DEXT';
+    private z_MultiTexSubImage2DEXT_adr := GetFuncAdr('glMultiTexSubImage2DEXT');
+    private z_MultiTexSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexSubImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexSubImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexSubImage2DEXT_ovr_0(texunit, target, level, xoffset, yoffset, width, height, format, &type, pixels);
     
-    private static procedure z_CopyMultiTexImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyMultiTexImage1DEXT';
+    private z_CopyMultiTexImage1DEXT_adr := GetFuncAdr('glCopyMultiTexImage1DEXT');
+    private z_CopyMultiTexImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyMultiTexImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyMultiTexImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; border: Int32) :=
     z_CopyMultiTexImage1DEXT_ovr_0(texunit, target, level, _internalformat, x, y, width, border);
     
-    private static procedure z_CopyMultiTexImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32);
-    external 'opengl32.dll' name 'glCopyMultiTexImage2DEXT';
+    private z_CopyMultiTexImage2DEXT_adr := GetFuncAdr('glCopyMultiTexImage2DEXT');
+    private z_CopyMultiTexImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyMultiTexImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyMultiTexImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32; height: Int32; border: Int32) :=
     z_CopyMultiTexImage2DEXT_ovr_0(texunit, target, level, _internalformat, x, y, width, height, border);
     
-    private static procedure z_CopyMultiTexSubImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyMultiTexSubImage1DEXT';
+    private z_CopyMultiTexSubImage1DEXT_adr := GetFuncAdr('glCopyMultiTexSubImage1DEXT');
+    private z_CopyMultiTexSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_CopyMultiTexSubImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyMultiTexSubImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; x: Int32; y: Int32; width: Int32) :=
     z_CopyMultiTexSubImage1DEXT_ovr_0(texunit, target, level, xoffset, x, y, width);
     
-    private static procedure z_CopyMultiTexSubImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyMultiTexSubImage2DEXT';
+    private z_CopyMultiTexSubImage2DEXT_adr := GetFuncAdr('glCopyMultiTexSubImage2DEXT');
+    private z_CopyMultiTexSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_CopyMultiTexSubImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyMultiTexSubImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyMultiTexSubImage2DEXT_ovr_0(texunit, target, level, xoffset, yoffset, x, y, width, height);
     
-    private static procedure z_GetMultiTexImageEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexImageEXT';
+    private z_GetMultiTexImageEXT_adr := GetFuncAdr('glGetMultiTexImageEXT');
+    private z_GetMultiTexImageEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexImageEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexImageEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_GetMultiTexImageEXT_ovr_0(texunit, target, level, format, &type, pixels);
     
-    private static procedure z_GetMultiTexParameterfvEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMultiTexParameterfvEXT';
-    private static procedure z_GetMultiTexParameterfvEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterfvEXT';
+    private z_GetMultiTexParameterfvEXT_adr := GetFuncAdr('glGetMultiTexParameterfvEXT');
+    private z_GetMultiTexParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexParameterfvEXT_adr);
+    private z_GetMultiTexParameterfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexParameterfvEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexParameterfvEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetMultiTexParameterfvEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexParameterfvEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterfvEXT';
+    private z_GetMultiTexParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterfvEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexParameterfvEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexParameterivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMultiTexParameterivEXT';
-    private static procedure z_GetMultiTexParameterivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterivEXT';
+    private z_GetMultiTexParameterivEXT_adr := GetFuncAdr('glGetMultiTexParameterivEXT');
+    private z_GetMultiTexParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexParameterivEXT_adr);
+    private z_GetMultiTexParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexParameterivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexParameterivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetMultiTexParameterivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexParameterivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterivEXT';
+    private z_GetMultiTexParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexParameterivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexLevelParameterfvEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterfvEXT';
-    private static procedure z_GetMultiTexLevelParameterfvEXT_ovr_0_anh000001(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterfvEXT';
+    private z_GetMultiTexLevelParameterfvEXT_adr := GetFuncAdr('glGetMultiTexLevelParameterfvEXT');
+    private z_GetMultiTexLevelParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexLevelParameterfvEXT_adr);
+    private z_GetMultiTexLevelParameterfvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_GetMultiTexLevelParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterfvEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexLevelParameterfvEXT_ovr_0(texunit, target, level, pname, ¶ms[0]) else
       z_GetMultiTexLevelParameterfvEXT_ovr_0_anh000001(texunit, target, level, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterfvEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: single) :=
     z_GetMultiTexLevelParameterfvEXT_ovr_0(texunit, target, level, pname, ¶ms);
-    private static procedure z_GetMultiTexLevelParameterfvEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterfvEXT';
+    private z_GetMultiTexLevelParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexLevelParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterfvEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexLevelParameterfvEXT_ovr_2(texunit, target, level, pname, ¶ms);
     
-    private static procedure z_GetMultiTexLevelParameterivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterivEXT';
-    private static procedure z_GetMultiTexLevelParameterivEXT_ovr_0_anh000001(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterivEXT';
+    private z_GetMultiTexLevelParameterivEXT_adr := GetFuncAdr('glGetMultiTexLevelParameterivEXT');
+    private z_GetMultiTexLevelParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexLevelParameterivEXT_adr);
+    private z_GetMultiTexLevelParameterivEXT_ovr_0_anh000001 := GetFuncOrNil&(z_GetMultiTexLevelParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterivEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexLevelParameterivEXT_ovr_0(texunit, target, level, pname, ¶ms[0]) else
       z_GetMultiTexLevelParameterivEXT_ovr_0_anh000001(texunit, target, level, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterivEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetMultiTexLevelParameterivEXT_ovr_0(texunit, target, level, pname, ¶ms);
-    private static procedure z_GetMultiTexLevelParameterivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexLevelParameterivEXT';
+    private z_GetMultiTexLevelParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexLevelParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexLevelParameterivEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexLevelParameterivEXT_ovr_2(texunit, target, level, pname, ¶ms);
     
-    private static procedure z_MultiTexImage3DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexImage3DEXT';
+    private z_MultiTexImage3DEXT_adr := GetFuncAdr('glMultiTexImage3DEXT');
+    private z_MultiTexImage3DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexImage3DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; internalformat: Int32; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexImage3DEXT_ovr_0(texunit, target, level, internalformat, width, height, depth, border, format, &type, pixels);
     
-    private static procedure z_MultiTexSubImage3DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexSubImage3DEXT';
+    private z_MultiTexSubImage3DEXT_adr := GetFuncAdr('glMultiTexSubImage3DEXT');
+    private z_MultiTexSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_MultiTexSubImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexSubImage3DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_MultiTexSubImage3DEXT_ovr_0(texunit, target, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, pixels);
     
-    private static procedure z_CopyMultiTexSubImage3DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glCopyMultiTexSubImage3DEXT';
+    private z_CopyMultiTexSubImage3DEXT_adr := GetFuncAdr('glCopyMultiTexSubImage3DEXT');
+    private z_CopyMultiTexSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_CopyMultiTexSubImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyMultiTexSubImage3DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_CopyMultiTexSubImage3DEXT_ovr_0(texunit, target, level, xoffset, yoffset, zoffset, x, y, width, height);
     
-    private static procedure z_EnableClientStateIndexedEXT_ovr_0(&array: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glEnableClientStateIndexedEXT';
+    private z_EnableClientStateIndexedEXT_adr := GetFuncAdr('glEnableClientStateIndexedEXT');
+    private z_EnableClientStateIndexedEXT_ovr_0 := GetFuncOrNil&(z_EnableClientStateIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableClientStateIndexedEXT(&array: EnableCap; index: UInt32) :=
     z_EnableClientStateIndexedEXT_ovr_0(&array, index);
     
-    private static procedure z_DisableClientStateIndexedEXT_ovr_0(&array: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glDisableClientStateIndexedEXT';
+    private z_DisableClientStateIndexedEXT_adr := GetFuncAdr('glDisableClientStateIndexedEXT');
+    private z_DisableClientStateIndexedEXT_ovr_0 := GetFuncOrNil&(z_DisableClientStateIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableClientStateIndexedEXT(&array: EnableCap; index: UInt32) :=
     z_DisableClientStateIndexedEXT_ovr_0(&array, index);
     
-    private static procedure z_GetFloatIndexedvEXT_ovr_0(target: DummyEnum; index: UInt32; var data: single);
-    external 'opengl32.dll' name 'glGetFloatIndexedvEXT';
-    private static procedure z_GetFloatIndexedvEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloatIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: DummyEnum; index: UInt32; data: array of single) :=
+    private z_GetFloatIndexedvEXT_adr := GetFuncAdr('glGetFloatIndexedvEXT');
+    private z_GetFloatIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetFloatIndexedvEXT_adr);
+    private z_GetFloatIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetFloatIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: GetPName; index: UInt32; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetFloatIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetFloatIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: DummyEnum; index: UInt32; var data: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: GetPName; index: UInt32; var data: single) :=
     z_GetFloatIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetFloatIndexedvEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetFloatIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetFloatIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetFloatIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloatIndexedvEXT(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetFloatIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_GetDoubleIndexedvEXT_ovr_0(target: DummyEnum; index: UInt32; var data: real);
-    external 'opengl32.dll' name 'glGetDoubleIndexedvEXT';
-    private static procedure z_GetDoubleIndexedvEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoubleIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: DummyEnum; index: UInt32; data: array of real) :=
+    private z_GetDoubleIndexedvEXT_adr := GetFuncAdr('glGetDoubleIndexedvEXT');
+    private z_GetDoubleIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetDoubleIndexedvEXT_adr);
+    private z_GetDoubleIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetDoubleIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: GetPName; index: UInt32; data: array of real) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetDoubleIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetDoubleIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: DummyEnum; index: UInt32; var data: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: GetPName; index: UInt32; var data: real) :=
     z_GetDoubleIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetDoubleIndexedvEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetDoubleIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetDoubleIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetDoubleIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoubleIndexedvEXT(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetDoubleIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_GetPointerIndexedvEXT_ovr_0(target: DummyEnum; index: UInt32; var data: IntPtr);
-    external 'opengl32.dll' name 'glGetPointerIndexedvEXT';
-    private static procedure z_GetPointerIndexedvEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetPointerIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerIndexedvEXT(target: DummyEnum; index: UInt32; data: array of IntPtr) :=
-    if (data<>nil) and (data.Length<>0) then
-      z_GetPointerIndexedvEXT_ovr_0(target, index, data[0]) else
-      z_GetPointerIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
+    private z_GetPointerIndexedvEXT_adr := GetFuncAdr('glGetPointerIndexedvEXT');
+    private z_GetPointerIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetPointerIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerIndexedvEXT(target: DummyEnum; index: UInt32; var data: IntPtr) :=
     z_GetPointerIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetPointerIndexedvEXT_ovr_2(target: DummyEnum; index: UInt32; data: pointer);
-    external 'opengl32.dll' name 'glGetPointerIndexedvEXT';
+    private z_GetPointerIndexedvEXT_ovr_1 := GetFuncOrNil&(z_GetPointerIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerIndexedvEXT(target: DummyEnum; index: UInt32; data: pointer) :=
-    z_GetPointerIndexedvEXT_ovr_2(target, index, data);
+    z_GetPointerIndexedvEXT_ovr_1(target, index, data);
     
-    private static procedure z_EnableIndexedEXT_ovr_0(target: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glEnableIndexedEXT';
+    private z_EnableIndexedEXT_adr := GetFuncAdr('glEnableIndexedEXT');
+    private z_EnableIndexedEXT_ovr_0 := GetFuncOrNil&(z_EnableIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableIndexedEXT(target: EnableCap; index: UInt32) :=
     z_EnableIndexedEXT_ovr_0(target, index);
     
-    private static procedure z_DisableIndexedEXT_ovr_0(target: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glDisableIndexedEXT';
+    private z_DisableIndexedEXT_adr := GetFuncAdr('glDisableIndexedEXT');
+    private z_DisableIndexedEXT_ovr_0 := GetFuncOrNil&(z_DisableIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableIndexedEXT(target: EnableCap; index: UInt32) :=
     z_DisableIndexedEXT_ovr_0(target, index);
     
-    private static function z_IsEnabledIndexedEXT_ovr_0(target: EnableCap; index: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsEnabledIndexedEXT';
+    private z_IsEnabledIndexedEXT_adr := GetFuncAdr('glIsEnabledIndexedEXT');
+    private z_IsEnabledIndexedEXT_ovr_0 := GetFuncOrNil&(z_IsEnabledIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledIndexedEXT(target: EnableCap; index: UInt32): boolean :=
     z_IsEnabledIndexedEXT_ovr_0(target, index);
     
-    private static procedure z_GetIntegerIndexedvEXT_ovr_0(target: DummyEnum; index: UInt32; var data: Int32);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    private static procedure z_GetIntegerIndexedvEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; data: array of Int32) :=
+    private z_GetIntegerIndexedvEXT_adr := GetFuncAdr('glGetIntegerIndexedvEXT');
+    private z_GetIntegerIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    private z_GetIntegerIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetIntegerIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetIntegerIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; var data: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; var data: Int32) :=
     z_GetIntegerIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetIntegerIndexedvEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetIntegerIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetIntegerIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_GetBooleanIndexedvEXT_ovr_0(target: BufferTargetARB; index: UInt32; var data: boolean);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
-    private static procedure z_GetBooleanIndexedvEXT_ovr_0_anh0001(target: BufferTargetARB; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
+    private z_GetBooleanIndexedvEXT_adr := GetFuncAdr('glGetBooleanIndexedvEXT');
+    private z_GetBooleanIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
+    private z_GetBooleanIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetBooleanIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetBooleanIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; var data: boolean) :=
     z_GetBooleanIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetBooleanIndexedvEXT_ovr_2(target: BufferTargetARB; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
+    private z_GetBooleanIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; data: IntPtr) :=
     z_GetBooleanIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_CompressedTextureImage3DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureImage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage3DEXT(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureImage3DEXT_adr := GetFuncAdr('glCompressedTextureImage3DEXT');
+    private z_CompressedTextureImage3DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureImage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage3DEXT(texture: gl_texture; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureImage3DEXT_ovr_0(texture, target, level, _internalformat, width, height, depth, border, imageSize, bits);
     
-    private static procedure z_CompressedTextureImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureImage2DEXT_adr := GetFuncAdr('glCompressedTextureImage2DEXT');
+    private z_CompressedTextureImage2DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureImage2DEXT_ovr_0(texture, target, level, _internalformat, width, height, border, imageSize, bits);
     
-    private static procedure z_CompressedTextureImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureImage1DEXT_adr := GetFuncAdr('glCompressedTextureImage1DEXT');
+    private z_CompressedTextureImage1DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureImage1DEXT_ovr_0(texture, target, level, _internalformat, width, border, imageSize, bits);
     
-    private static procedure z_CompressedTextureSubImage3DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureSubImage3DEXT_adr := GetFuncAdr('glCompressedTextureSubImage3DEXT');
+    private z_CompressedTextureSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage3DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureSubImage3DEXT_ovr_0(texture, target, level, xoffset, yoffset, zoffset, width, height, depth, format, imageSize, bits);
     
-    private static procedure z_CompressedTextureSubImage2DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureSubImage2DEXT_adr := GetFuncAdr('glCompressedTextureSubImage2DEXT');
+    private z_CompressedTextureSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage2DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureSubImage2DEXT_ovr_0(texture, target, level, xoffset, yoffset, width, height, format, imageSize, bits);
     
-    private static procedure z_CompressedTextureSubImage1DEXT_ovr_0(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedTextureSubImage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1DEXT(texture: UInt32; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
+    private z_CompressedTextureSubImage1DEXT_adr := GetFuncAdr('glCompressedTextureSubImage1DEXT');
+    private z_CompressedTextureSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_CompressedTextureSubImage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedTextureSubImage1DEXT(texture: gl_texture; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedTextureSubImage1DEXT_ovr_0(texture, target, level, xoffset, width, format, imageSize, bits);
     
-    private static procedure z_GetCompressedTextureImageEXT_ovr_0(texture: UInt32; target: TextureTarget; lod: Int32; img: IntPtr);
-    external 'opengl32.dll' name 'glGetCompressedTextureImageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImageEXT(texture: UInt32; target: TextureTarget; lod: Int32; img: IntPtr) :=
+    private z_GetCompressedTextureImageEXT_adr := GetFuncAdr('glGetCompressedTextureImageEXT');
+    private z_GetCompressedTextureImageEXT_ovr_0 := GetFuncOrNil&(z_GetCompressedTextureImageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedTextureImageEXT(texture: gl_texture; target: TextureTarget; lod: Int32; img: IntPtr) :=
     z_GetCompressedTextureImageEXT_ovr_0(texture, target, lod, img);
     
-    private static procedure z_CompressedMultiTexImage3DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexImage3DEXT';
+    private z_CompressedMultiTexImage3DEXT_adr := GetFuncAdr('glCompressedMultiTexImage3DEXT');
+    private z_CompressedMultiTexImage3DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexImage3DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexImage3DEXT_ovr_0(texunit, target, level, _internalformat, width, height, depth, border, imageSize, bits);
     
-    private static procedure z_CompressedMultiTexImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexImage2DEXT';
+    private z_CompressedMultiTexImage2DEXT_adr := GetFuncAdr('glCompressedMultiTexImage2DEXT');
+    private z_CompressedMultiTexImage2DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexImage2DEXT_ovr_0(texunit, target, level, _internalformat, width, height, border, imageSize, bits);
     
-    private static procedure z_CompressedMultiTexImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexImage1DEXT';
+    private z_CompressedMultiTexImage1DEXT_adr := GetFuncAdr('glCompressedMultiTexImage1DEXT');
+    private z_CompressedMultiTexImage1DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; border: Int32; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexImage1DEXT_ovr_0(texunit, target, level, _internalformat, width, border, imageSize, bits);
     
-    private static procedure z_CompressedMultiTexSubImage3DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexSubImage3DEXT';
+    private z_CompressedMultiTexSubImage3DEXT_adr := GetFuncAdr('glCompressedMultiTexSubImage3DEXT');
+    private z_CompressedMultiTexSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexSubImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexSubImage3DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexSubImage3DEXT_ovr_0(texunit, target, level, xoffset, yoffset, zoffset, width, height, depth, format, imageSize, bits);
     
-    private static procedure z_CompressedMultiTexSubImage2DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexSubImage2DEXT';
+    private z_CompressedMultiTexSubImage2DEXT_adr := GetFuncAdr('glCompressedMultiTexSubImage2DEXT');
+    private z_CompressedMultiTexSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexSubImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexSubImage2DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexSubImage2DEXT_ovr_0(texunit, target, level, xoffset, yoffset, width, height, format, imageSize, bits);
     
-    private static procedure z_CompressedMultiTexSubImage1DEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr);
-    external 'opengl32.dll' name 'glCompressedMultiTexSubImage1DEXT';
+    private z_CompressedMultiTexSubImage1DEXT_adr := GetFuncAdr('glCompressedMultiTexSubImage1DEXT');
+    private z_CompressedMultiTexSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_CompressedMultiTexSubImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompressedMultiTexSubImage1DEXT(texunit: TextureUnit; target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; imageSize: Int32; bits: IntPtr) :=
     z_CompressedMultiTexSubImage1DEXT_ovr_0(texunit, target, level, xoffset, width, format, imageSize, bits);
     
-    private static procedure z_GetCompressedMultiTexImageEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; lod: Int32; img: IntPtr);
-    external 'opengl32.dll' name 'glGetCompressedMultiTexImageEXT';
+    private z_GetCompressedMultiTexImageEXT_adr := GetFuncAdr('glGetCompressedMultiTexImageEXT');
+    private z_GetCompressedMultiTexImageEXT_ovr_0 := GetFuncOrNil&(z_GetCompressedMultiTexImageEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCompressedMultiTexImageEXT(texunit: TextureUnit; target: TextureTarget; lod: Int32; img: IntPtr) :=
     z_GetCompressedMultiTexImageEXT_ovr_0(texunit, target, lod, img);
     
-    private static procedure z_MatrixLoadTransposefEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
-    private static procedure z_MatrixLoadTransposefEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
+    private z_MatrixLoadTransposefEXT_adr := GetFuncAdr('glMatrixLoadTransposefEXT');
+    private z_MatrixLoadTransposefEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
+    private z_MatrixLoadTransposefEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadTransposefEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadTransposefEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; var m: single) :=
     z_MatrixLoadTransposefEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadTransposefEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
+    private z_MatrixLoadTransposefEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadTransposefEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoadTransposedEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
-    private static procedure z_MatrixLoadTransposedEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
+    private z_MatrixLoadTransposedEXT_adr := GetFuncAdr('glMatrixLoadTransposedEXT');
+    private z_MatrixLoadTransposedEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
+    private z_MatrixLoadTransposedEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadTransposedEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadTransposedEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; var m: real) :=
     z_MatrixLoadTransposedEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadTransposedEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
+    private z_MatrixLoadTransposedEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadTransposedEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultTransposefEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
-    private static procedure z_MatrixMultTransposefEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
+    private z_MatrixMultTransposefEXT_adr := GetFuncAdr('glMatrixMultTransposefEXT');
+    private z_MatrixMultTransposefEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
+    private z_MatrixMultTransposefEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultTransposefEXT_ovr_0(mode, m[0]) else
       z_MatrixMultTransposefEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; var m: single) :=
     z_MatrixMultTransposefEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultTransposefEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
+    private z_MatrixMultTransposefEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultTransposefEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultTransposedEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
-    private static procedure z_MatrixMultTransposedEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
+    private z_MatrixMultTransposedEXT_adr := GetFuncAdr('glMatrixMultTransposedEXT');
+    private z_MatrixMultTransposedEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
+    private z_MatrixMultTransposedEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultTransposedEXT_ovr_0(mode, m[0]) else
       z_MatrixMultTransposedEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; var m: real) :=
     z_MatrixMultTransposedEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultTransposedEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
+    private z_MatrixMultTransposedEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultTransposedEXT_ovr_2(mode, m);
     
-    private static procedure z_NamedBufferDataEXT_ovr_0(buffer: UInt32; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage);
-    external 'opengl32.dll' name 'glNamedBufferDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferDataEXT(buffer: UInt32; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
+    private z_NamedBufferDataEXT_adr := GetFuncAdr('glNamedBufferDataEXT');
+    private z_NamedBufferDataEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferDataEXT(buffer: gl_buffer; size: IntPtr; data: IntPtr; usage: VertexBufferObjectUsage) :=
     z_NamedBufferDataEXT_ovr_0(buffer, size, data, usage);
     
-    private static procedure z_NamedBufferSubDataEXT_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glNamedBufferSubDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubDataEXT(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_NamedBufferSubDataEXT_adr := GetFuncAdr('glNamedBufferSubDataEXT');
+    private z_NamedBufferSubDataEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferSubDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferSubDataEXT(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_NamedBufferSubDataEXT_ovr_0(buffer, offset, size, data);
     
-    private static function z_MapNamedBufferEXT_ovr_0(buffer: UInt32; access: BufferAccessARB): IntPtr;
-    external 'opengl32.dll' name 'glMapNamedBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferEXT(buffer: UInt32; access: BufferAccessARB): IntPtr :=
+    private z_MapNamedBufferEXT_adr := GetFuncAdr('glMapNamedBufferEXT');
+    private z_MapNamedBufferEXT_ovr_0 := GetFuncOrNil&(z_MapNamedBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferEXT(buffer: gl_buffer; access: BufferAccessARB): IntPtr :=
     z_MapNamedBufferEXT_ovr_0(buffer, access);
     
-    private static function z_UnmapNamedBufferEXT_ovr_0(buffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glUnmapNamedBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBufferEXT(buffer: UInt32): boolean :=
+    private z_UnmapNamedBufferEXT_adr := GetFuncAdr('glUnmapNamedBufferEXT');
+    private z_UnmapNamedBufferEXT_ovr_0 := GetFuncOrNil&(z_UnmapNamedBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function UnmapNamedBufferEXT(buffer: gl_buffer): boolean :=
     z_UnmapNamedBufferEXT_ovr_0(buffer);
     
-    private static procedure z_GetNamedBufferParameterivEXT_ovr_0(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterivEXT';
-    private static procedure z_GetNamedBufferParameterivEXT_ovr_0_anh0001(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of Int32) :=
+    private z_GetNamedBufferParameterivEXT_adr := GetFuncAdr('glGetNamedBufferParameterivEXT');
+    private z_GetNamedBufferParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameterivEXT_adr);
+    private z_GetNamedBufferParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameterivEXT_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameterivEXT_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: UInt32; pname: BufferPNameARB; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: Int32) :=
     z_GetNamedBufferParameterivEXT_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferParameterivEXT_ovr_2(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterivEXT(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameterivEXT_ovr_2(buffer, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferPointervEXT_ovr_0(buffer: UInt32; pname: BufferPointerNameARB; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferPointervEXT';
-    private static procedure z_GetNamedBufferPointervEXT_ovr_0_anh0001(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferPointervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointervEXT(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetNamedBufferPointervEXT_ovr_0(buffer, pname, ¶ms[0]) else
-      z_GetNamedBufferPointervEXT_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointervEXT(buffer: UInt32; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
+    private z_GetNamedBufferPointervEXT_adr := GetFuncAdr('glGetNamedBufferPointervEXT');
+    private z_GetNamedBufferPointervEXT_ovr_0 := GetFuncOrNil&(z_GetNamedBufferPointervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointervEXT(buffer: gl_buffer; pname: BufferPointerNameARB; var ¶ms: IntPtr) :=
     z_GetNamedBufferPointervEXT_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferPointervEXT_ovr_2(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetNamedBufferPointervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointervEXT(buffer: UInt32; pname: BufferPointerNameARB; ¶ms: pointer) :=
-    z_GetNamedBufferPointervEXT_ovr_2(buffer, pname, ¶ms);
+    private z_GetNamedBufferPointervEXT_ovr_1 := GetFuncOrNil&(z_GetNamedBufferPointervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferPointervEXT(buffer: gl_buffer; pname: BufferPointerNameARB; ¶ms: pointer) :=
+    z_GetNamedBufferPointervEXT_ovr_1(buffer, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferSubDataEXT_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferSubDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubDataEXT(buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_GetNamedBufferSubDataEXT_adr := GetFuncAdr('glGetNamedBufferSubDataEXT');
+    private z_GetNamedBufferSubDataEXT_ovr_0 := GetFuncOrNil&(z_GetNamedBufferSubDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferSubDataEXT(buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_GetNamedBufferSubDataEXT_ovr_0(buffer, offset, size, data);
     
-    private static procedure z_ProgramUniform1fEXT_ovr_0(&program: UInt32; location: Int32; v0: single);
-    external 'opengl32.dll' name 'glProgramUniform1fEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fEXT(&program: UInt32; location: Int32; v0: single) :=
+    private z_ProgramUniform1fEXT_adr := GetFuncAdr('glProgramUniform1fEXT');
+    private z_ProgramUniform1fEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1fEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fEXT(&program: gl_program; location: Int32; v0: single) :=
     z_ProgramUniform1fEXT_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform2fEXT_ovr_0(&program: UInt32; location: Int32; v0: single; v1: single);
-    external 'opengl32.dll' name 'glProgramUniform2fEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fEXT(&program: UInt32; location: Int32; v0: single; v1: single) :=
+    private z_ProgramUniform2fEXT_adr := GetFuncAdr('glProgramUniform2fEXT');
+    private z_ProgramUniform2fEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2fEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fEXT(&program: gl_program; location: Int32; v0: single; v1: single) :=
     z_ProgramUniform2fEXT_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform3fEXT_ovr_0(&program: UInt32; location: Int32; v0: single; v1: single; v2: single);
-    external 'opengl32.dll' name 'glProgramUniform3fEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fEXT(&program: UInt32; location: Int32; v0: single; v1: single; v2: single) :=
+    private z_ProgramUniform3fEXT_adr := GetFuncAdr('glProgramUniform3fEXT');
+    private z_ProgramUniform3fEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3fEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fEXT(&program: gl_program; location: Int32; v0: single; v1: single; v2: single) :=
     z_ProgramUniform3fEXT_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform4fEXT_ovr_0(&program: UInt32; location: Int32; v0: single; v1: single; v2: single; v3: single);
-    external 'opengl32.dll' name 'glProgramUniform4fEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fEXT(&program: UInt32; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
+    private z_ProgramUniform4fEXT_adr := GetFuncAdr('glProgramUniform4fEXT');
+    private z_ProgramUniform4fEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4fEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fEXT(&program: gl_program; location: Int32; v0: single; v1: single; v2: single; v3: single) :=
     z_ProgramUniform4fEXT_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform1iEXT_ovr_0(&program: UInt32; location: Int32; v0: Int32);
-    external 'opengl32.dll' name 'glProgramUniform1iEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iEXT(&program: UInt32; location: Int32; v0: Int32) :=
+    private z_ProgramUniform1iEXT_adr := GetFuncAdr('glProgramUniform1iEXT');
+    private z_ProgramUniform1iEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1iEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1iEXT(&program: gl_program; location: Int32; v0: Int32) :=
     z_ProgramUniform1iEXT_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform2iEXT_ovr_0(&program: UInt32; location: Int32; v0: Int32; v1: Int32);
-    external 'opengl32.dll' name 'glProgramUniform2iEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iEXT(&program: UInt32; location: Int32; v0: Int32; v1: Int32) :=
+    private z_ProgramUniform2iEXT_adr := GetFuncAdr('glProgramUniform2iEXT');
+    private z_ProgramUniform2iEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2iEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2iEXT(&program: gl_program; location: Int32; v0: Int32; v1: Int32) :=
     z_ProgramUniform2iEXT_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform3iEXT_ovr_0(&program: UInt32; location: Int32; v0: Int32; v1: Int32; v2: Int32);
-    external 'opengl32.dll' name 'glProgramUniform3iEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iEXT(&program: UInt32; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
+    private z_ProgramUniform3iEXT_adr := GetFuncAdr('glProgramUniform3iEXT');
+    private z_ProgramUniform3iEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3iEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3iEXT(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32) :=
     z_ProgramUniform3iEXT_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform4iEXT_ovr_0(&program: UInt32; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32);
-    external 'opengl32.dll' name 'glProgramUniform4iEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iEXT(&program: UInt32; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
+    private z_ProgramUniform4iEXT_adr := GetFuncAdr('glProgramUniform4iEXT');
+    private z_ProgramUniform4iEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4iEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4iEXT(&program: gl_program; location: Int32; v0: Int32; v1: Int32; v2: Int32; v3: Int32) :=
     z_ProgramUniform4iEXT_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform1fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform1fvEXT';
-    private static procedure z_ProgramUniform1fvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform1fvEXT_adr := GetFuncAdr('glProgramUniform1fvEXT');
+    private z_ProgramUniform1fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1fvEXT_adr);
+    private z_ProgramUniform1fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1fvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1fvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform1fvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform1fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1fvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1fvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform2fvEXT';
-    private static procedure z_ProgramUniform2fvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform2fvEXT_adr := GetFuncAdr('glProgramUniform2fvEXT');
+    private z_ProgramUniform2fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2fvEXT_adr);
+    private z_ProgramUniform2fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2fvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2fvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform2fvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2fvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2fvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform3fvEXT';
-    private static procedure z_ProgramUniform3fvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform3fvEXT_adr := GetFuncAdr('glProgramUniform3fvEXT');
+    private z_ProgramUniform3fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3fvEXT_adr);
+    private z_ProgramUniform3fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3fvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3fvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform3fvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3fvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3fvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: single);
-    external 'opengl32.dll' name 'glProgramUniform4fvEXT';
-    private static procedure z_ProgramUniform4fvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: UInt32; location: Int32; count: Int32; value: array of single) :=
+    private z_ProgramUniform4fvEXT_adr := GetFuncAdr('glProgramUniform4fvEXT');
+    private z_ProgramUniform4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4fvEXT_adr);
+    private z_ProgramUniform4fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: gl_program; location: Int32; count: Int32; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4fvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4fvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: UInt32; location: Int32; count: Int32; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: gl_program; location: Int32; count: Int32; var value: single) :=
     z_ProgramUniform4fvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4fvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4fvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1ivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform1ivEXT';
-    private static procedure z_ProgramUniform1ivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform1ivEXT_adr := GetFuncAdr('glProgramUniform1ivEXT');
+    private z_ProgramUniform1ivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ivEXT_adr);
+    private z_ProgramUniform1ivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1ivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1ivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform1ivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1ivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1ivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform1ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1ivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2ivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform2ivEXT';
-    private static procedure z_ProgramUniform2ivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform2ivEXT_adr := GetFuncAdr('glProgramUniform2ivEXT');
+    private z_ProgramUniform2ivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ivEXT_adr);
+    private z_ProgramUniform2ivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2ivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2ivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform2ivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2ivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2ivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform2ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2ivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3ivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform3ivEXT';
-    private static procedure z_ProgramUniform3ivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform3ivEXT_adr := GetFuncAdr('glProgramUniform3ivEXT');
+    private z_ProgramUniform3ivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ivEXT_adr);
+    private z_ProgramUniform3ivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3ivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3ivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform3ivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3ivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3ivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform3ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3ivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4ivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int32);
-    external 'opengl32.dll' name 'glProgramUniform4ivEXT';
-    private static procedure z_ProgramUniform4ivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: UInt32; location: Int32; count: Int32; value: array of Int32) :=
+    private z_ProgramUniform4ivEXT_adr := GetFuncAdr('glProgramUniform4ivEXT');
+    private z_ProgramUniform4ivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ivEXT_adr);
+    private z_ProgramUniform4ivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: gl_program; location: Int32; count: Int32; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4ivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4ivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: UInt32; location: Int32; count: Int32; var value: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: gl_program; location: Int32; count: Int32; var value: Int32) :=
     z_ProgramUniform4ivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4ivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4ivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4ivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniformMatrix2fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fvEXT';
-    private static procedure z_ProgramUniformMatrix2fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2fvEXT_adr := GetFuncAdr('glProgramUniformMatrix2fvEXT');
+    private z_ProgramUniformMatrix2fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2fvEXT_adr);
+    private z_ProgramUniformMatrix2fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fvEXT';
-    private static procedure z_ProgramUniformMatrix3fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3fvEXT_adr := GetFuncAdr('glProgramUniformMatrix3fvEXT');
+    private z_ProgramUniformMatrix3fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3fvEXT_adr);
+    private z_ProgramUniformMatrix3fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fvEXT';
-    private static procedure z_ProgramUniformMatrix4fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4fvEXT_adr := GetFuncAdr('glProgramUniformMatrix4fvEXT');
+    private z_ProgramUniformMatrix4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4fvEXT_adr);
+    private z_ProgramUniformMatrix4fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x3fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fvEXT';
-    private static procedure z_ProgramUniformMatrix2x3fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x3fvEXT_adr := GetFuncAdr('glProgramUniformMatrix2x3fvEXT');
+    private z_ProgramUniformMatrix2x3fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fvEXT_adr);
+    private z_ProgramUniformMatrix2x3fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x3fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x3fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x2fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fvEXT';
-    private static procedure z_ProgramUniformMatrix3x2fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x2fvEXT_adr := GetFuncAdr('glProgramUniformMatrix3x2fvEXT');
+    private z_ProgramUniformMatrix3x2fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fvEXT_adr);
+    private z_ProgramUniformMatrix3x2fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x2fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x2fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x4fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fvEXT';
-    private static procedure z_ProgramUniformMatrix2x4fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix2x4fvEXT_adr := GetFuncAdr('glProgramUniformMatrix2x4fvEXT');
+    private z_ProgramUniformMatrix2x4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fvEXT_adr);
+    private z_ProgramUniformMatrix2x4fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix2x4fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x4fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x2fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fvEXT';
-    private static procedure z_ProgramUniformMatrix4x2fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x2fvEXT_adr := GetFuncAdr('glProgramUniformMatrix4x2fvEXT');
+    private z_ProgramUniformMatrix4x2fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fvEXT_adr);
+    private z_ProgramUniformMatrix4x2fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x2fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x2fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x4fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fvEXT';
-    private static procedure z_ProgramUniformMatrix3x4fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix3x4fvEXT_adr := GetFuncAdr('glProgramUniformMatrix3x4fvEXT');
+    private z_ProgramUniformMatrix3x4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fvEXT_adr);
+    private z_ProgramUniformMatrix3x4fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix3x4fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x4fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x3fvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fvEXT';
-    private static procedure z_ProgramUniformMatrix4x3fvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
+    private z_ProgramUniformMatrix4x3fvEXT_adr := GetFuncAdr('glProgramUniformMatrix4x3fvEXT');
+    private z_ProgramUniformMatrix4x3fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fvEXT_adr);
+    private z_ProgramUniformMatrix4x3fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3fvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3fvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: single) :=
     z_ProgramUniformMatrix4x3fvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x3fvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3fvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3fvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_TextureBufferEXT_ovr_0(texture: UInt32; target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32);
-    external 'opengl32.dll' name 'glTextureBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferEXT(texture: UInt32; target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32) :=
+    private z_TextureBufferEXT_adr := GetFuncAdr('glTextureBufferEXT');
+    private z_TextureBufferEXT_ovr_0 := GetFuncOrNil&(z_TextureBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferEXT(texture: gl_texture; target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TextureBufferEXT_ovr_0(texture, target, _internalformat, buffer);
     
-    private static procedure z_MultiTexBufferEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; internalformat: DummyEnum; buffer: UInt32);
-    external 'opengl32.dll' name 'glMultiTexBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexBufferEXT(texunit: TextureUnit; target: TextureTarget; internalformat: DummyEnum; buffer: UInt32) :=
+    private z_MultiTexBufferEXT_adr := GetFuncAdr('glMultiTexBufferEXT');
+    private z_MultiTexBufferEXT_ovr_0 := GetFuncOrNil&(z_MultiTexBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexBufferEXT(texunit: TextureUnit; target: TextureTarget; internalformat: DummyEnum; buffer: gl_buffer) :=
     z_MultiTexBufferEXT_ovr_0(texunit, target, internalformat, buffer);
     
-    private static procedure z_TextureParameterIivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTextureParameterIivEXT';
-    private static procedure z_TextureParameterIivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
+    private z_TextureParameterIivEXT_adr := GetFuncAdr('glTextureParameterIivEXT');
+    private z_TextureParameterIivEXT_ovr_0 := GetFuncOrNil&(z_TextureParameterIivEXT_adr);
+    private z_TextureParameterIivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_TextureParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_TextureParameterIivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
     z_TextureParameterIivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_TextureParameterIivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIivEXT_ovr_2 := GetFuncOrNil&(z_TextureParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_TextureParameterIuivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glTextureParameterIuivEXT';
-    private static procedure z_TextureParameterIuivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: array of UInt32) :=
+    private z_TextureParameterIuivEXT_adr := GetFuncAdr('glTextureParameterIuivEXT');
+    private z_TextureParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_TextureParameterIuivEXT_adr);
+    private z_TextureParameterIuivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_TextureParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TextureParameterIuivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_TextureParameterIuivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32) :=
     z_TextureParameterIuivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_TextureParameterIuivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTextureParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
+    private z_TextureParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_TextureParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TextureParameterIuivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterIivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTextureParameterIivEXT';
-    private static procedure z_GetTextureParameterIivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
+    private z_GetTextureParameterIivEXT_adr := GetFuncAdr('glGetTextureParameterIivEXT');
+    private z_GetTextureParameterIivEXT_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIivEXT_adr);
+    private z_GetTextureParameterIivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_GetTextureParameterIivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTextureParameterIivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_GetTextureParameterIivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIivEXT_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_GetTextureParameterIuivEXT_ovr_0(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetTextureParameterIuivEXT';
-    private static procedure z_GetTextureParameterIuivEXT_ovr_0_anh00001(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of UInt32) :=
+    private z_GetTextureParameterIuivEXT_adr := GetFuncAdr('glGetTextureParameterIuivEXT');
+    private z_GetTextureParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_GetTextureParameterIuivEXT_adr);
+    private z_GetTextureParameterIuivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetTextureParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTextureParameterIuivEXT_ovr_0(texture, target, pname, ¶ms[0]) else
       z_GetTextureParameterIuivEXT_ovr_0_anh00001(texture, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32) :=
     z_GetTextureParameterIuivEXT_ovr_0(texture, target, pname, ¶ms);
-    private static procedure z_GetTextureParameterIuivEXT_ovr_2(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTextureParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: UInt32; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
+    private z_GetTextureParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_GetTextureParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTextureParameterIuivEXT(texture: gl_texture; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTextureParameterIuivEXT_ovr_2(texture, target, pname, ¶ms);
     
-    private static procedure z_MultiTexParameterIivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMultiTexParameterIivEXT';
-    private static procedure z_MultiTexParameterIivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterIivEXT';
+    private z_MultiTexParameterIivEXT_adr := GetFuncAdr('glMultiTexParameterIivEXT');
+    private z_MultiTexParameterIivEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameterIivEXT_adr);
+    private z_MultiTexParameterIivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexParameterIivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexParameterIivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
     z_MultiTexParameterIivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexParameterIivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterIivEXT';
+    private z_MultiTexParameterIivEXT_ovr_2 := GetFuncOrNil&(z_MultiTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_MultiTexParameterIivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_MultiTexParameterIuivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glMultiTexParameterIuivEXT';
-    private static procedure z_MultiTexParameterIuivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterIuivEXT';
+    private z_MultiTexParameterIuivEXT_adr := GetFuncAdr('glMultiTexParameterIuivEXT');
+    private z_MultiTexParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_MultiTexParameterIuivEXT_adr);
+    private z_MultiTexParameterIuivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_MultiTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MultiTexParameterIuivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_MultiTexParameterIuivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32) :=
     z_MultiTexParameterIuivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_MultiTexParameterIuivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexParameterIuivEXT';
+    private z_MultiTexParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_MultiTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_MultiTexParameterIuivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexParameterIivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIivEXT';
-    private static procedure z_GetMultiTexParameterIivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIivEXT';
+    private z_GetMultiTexParameterIivEXT_adr := GetFuncAdr('glGetMultiTexParameterIivEXT');
+    private z_GetMultiTexParameterIivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexParameterIivEXT_adr);
+    private z_GetMultiTexParameterIivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexParameterIivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexParameterIivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetMultiTexParameterIivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexParameterIivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIivEXT';
+    private z_GetMultiTexParameterIivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexParameterIivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_GetMultiTexParameterIuivEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIuivEXT';
-    private static procedure z_GetMultiTexParameterIuivEXT_ovr_0_anh00001(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIuivEXT';
+    private z_GetMultiTexParameterIuivEXT_adr := GetFuncAdr('glGetMultiTexParameterIuivEXT');
+    private z_GetMultiTexParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_GetMultiTexParameterIuivEXT_adr);
+    private z_GetMultiTexParameterIuivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetMultiTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMultiTexParameterIuivEXT_ovr_0(texunit, target, pname, ¶ms[0]) else
       z_GetMultiTexParameterIuivEXT_ovr_0_anh00001(texunit, target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32) :=
     z_GetMultiTexParameterIuivEXT_ovr_0(texunit, target, pname, ¶ms);
-    private static procedure z_GetMultiTexParameterIuivEXT_ovr_2(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMultiTexParameterIuivEXT';
+    private z_GetMultiTexParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_GetMultiTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultiTexParameterIuivEXT(texunit: TextureUnit; target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetMultiTexParameterIuivEXT_ovr_2(texunit, target, pname, ¶ms);
     
-    private static procedure z_ProgramUniform1uiEXT_ovr_0(&program: UInt32; location: Int32; v0: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform1uiEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiEXT(&program: UInt32; location: Int32; v0: UInt32) :=
+    private z_ProgramUniform1uiEXT_adr := GetFuncAdr('glProgramUniform1uiEXT');
+    private z_ProgramUniform1uiEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1uiEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uiEXT(&program: gl_program; location: Int32; v0: UInt32) :=
     z_ProgramUniform1uiEXT_ovr_0(&program, location, v0);
     
-    private static procedure z_ProgramUniform2uiEXT_ovr_0(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform2uiEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiEXT(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32) :=
+    private z_ProgramUniform2uiEXT_adr := GetFuncAdr('glProgramUniform2uiEXT');
+    private z_ProgramUniform2uiEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2uiEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uiEXT(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32) :=
     z_ProgramUniform2uiEXT_ovr_0(&program, location, v0, v1);
     
-    private static procedure z_ProgramUniform3uiEXT_ovr_0(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform3uiEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiEXT(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
+    private z_ProgramUniform3uiEXT_adr := GetFuncAdr('glProgramUniform3uiEXT');
+    private z_ProgramUniform3uiEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3uiEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uiEXT(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
     z_ProgramUniform3uiEXT_ovr_0(&program, location, v0, v1, v2);
     
-    private static procedure z_ProgramUniform4uiEXT_ovr_0(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform4uiEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiEXT(&program: UInt32; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
+    private z_ProgramUniform4uiEXT_adr := GetFuncAdr('glProgramUniform4uiEXT');
+    private z_ProgramUniform4uiEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4uiEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uiEXT(&program: gl_program; location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
     z_ProgramUniform4uiEXT_ovr_0(&program, location, v0, v1, v2, v3);
     
-    private static procedure z_ProgramUniform1uivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform1uivEXT';
-    private static procedure z_ProgramUniform1uivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform1uivEXT_adr := GetFuncAdr('glProgramUniform1uivEXT');
+    private z_ProgramUniform1uivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1uivEXT_adr);
+    private z_ProgramUniform1uivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1uivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1uivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform1uivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1uivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1uivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform1uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1uivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1uivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2uivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform2uivEXT';
-    private static procedure z_ProgramUniform2uivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform2uivEXT_adr := GetFuncAdr('glProgramUniform2uivEXT');
+    private z_ProgramUniform2uivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2uivEXT_adr);
+    private z_ProgramUniform2uivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2uivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2uivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform2uivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2uivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2uivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform2uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2uivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2uivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3uivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform3uivEXT';
-    private static procedure z_ProgramUniform3uivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform3uivEXT_adr := GetFuncAdr('glProgramUniform3uivEXT');
+    private z_ProgramUniform3uivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3uivEXT_adr);
+    private z_ProgramUniform3uivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3uivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3uivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform3uivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3uivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3uivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform3uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3uivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3uivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4uivEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glProgramUniform4uivEXT';
-    private static procedure z_ProgramUniform4uivEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: UInt32; location: Int32; count: Int32; value: array of UInt32) :=
+    private z_ProgramUniform4uivEXT_adr := GetFuncAdr('glProgramUniform4uivEXT');
+    private z_ProgramUniform4uivEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4uivEXT_adr);
+    private z_ProgramUniform4uivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: gl_program; location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4uivEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4uivEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: UInt32; location: Int32; count: Int32; var value: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: gl_program; location: Int32; count: Int32; var value: UInt32) :=
     z_ProgramUniform4uivEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4uivEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4uivEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4uivEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4uivEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_NamedProgramLocalParameters4fvEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameters4fvEXT';
-    private static procedure z_NamedProgramLocalParameters4fvEXT_ovr_0_anh000001(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameters4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of single) :=
+    private z_NamedProgramLocalParameters4fvEXT_adr := GetFuncAdr('glNamedProgramLocalParameters4fvEXT');
+    private z_NamedProgramLocalParameters4fvEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameters4fvEXT_adr);
+    private z_NamedProgramLocalParameters4fvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_NamedProgramLocalParameters4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParameters4fvEXT_ovr_0(&program, target, index, count, ¶ms[0]) else
       z_NamedProgramLocalParameters4fvEXT_ovr_0_anh000001(&program, target, index, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single) :=
     z_NamedProgramLocalParameters4fvEXT_ovr_0(&program, target, index, count, ¶ms);
-    private static procedure z_NamedProgramLocalParameters4fvEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameters4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParameters4fvEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParameters4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameters4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParameters4fvEXT_ovr_2(&program, target, index, count, ¶ms);
     
-    private static procedure z_NamedProgramLocalParameterI4iEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4iEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4iEXT(&program: UInt32; target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32) :=
+    private z_NamedProgramLocalParameterI4iEXT_adr := GetFuncAdr('glNamedProgramLocalParameterI4iEXT');
+    private z_NamedProgramLocalParameterI4iEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameterI4iEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4iEXT(&program: gl_program; target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_NamedProgramLocalParameterI4iEXT_ovr_0(&program, target, index, x, y, z, w);
     
-    private static procedure z_NamedProgramLocalParameterI4ivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4ivEXT';
-    private static procedure z_NamedProgramLocalParameterI4ivEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
+    private z_NamedProgramLocalParameterI4ivEXT_adr := GetFuncAdr('glNamedProgramLocalParameterI4ivEXT');
+    private z_NamedProgramLocalParameterI4ivEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameterI4ivEXT_adr);
+    private z_NamedProgramLocalParameterI4ivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_NamedProgramLocalParameterI4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParameterI4ivEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_NamedProgramLocalParameterI4ivEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_NamedProgramLocalParameterI4ivEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_NamedProgramLocalParameterI4ivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParameterI4ivEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParameterI4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParameterI4ivEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_NamedProgramLocalParametersI4ivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4ivEXT';
-    private static procedure z_NamedProgramLocalParametersI4ivEXT_ovr_0_anh000001(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of Int32) :=
+    private z_NamedProgramLocalParametersI4ivEXT_adr := GetFuncAdr('glNamedProgramLocalParametersI4ivEXT');
+    private z_NamedProgramLocalParametersI4ivEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParametersI4ivEXT_adr);
+    private z_NamedProgramLocalParametersI4ivEXT_ovr_0_anh000001 := GetFuncOrNil&(z_NamedProgramLocalParametersI4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParametersI4ivEXT_ovr_0(&program, target, index, count, ¶ms[0]) else
       z_NamedProgramLocalParametersI4ivEXT_ovr_0_anh000001(&program, target, index, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32) :=
     z_NamedProgramLocalParametersI4ivEXT_ovr_0(&program, target, index, count, ¶ms);
-    private static procedure z_NamedProgramLocalParametersI4ivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParametersI4ivEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParametersI4ivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4ivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParametersI4ivEXT_ovr_2(&program, target, index, count, ¶ms);
     
-    private static procedure z_NamedProgramLocalParameterI4uiEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4uiEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uiEXT(&program: UInt32; target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32) :=
+    private z_NamedProgramLocalParameterI4uiEXT_adr := GetFuncAdr('glNamedProgramLocalParameterI4uiEXT');
+    private z_NamedProgramLocalParameterI4uiEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameterI4uiEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uiEXT(&program: gl_program; target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32) :=
     z_NamedProgramLocalParameterI4uiEXT_ovr_0(&program, target, index, x, y, z, w);
     
-    private static procedure z_NamedProgramLocalParameterI4uivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4uivEXT';
-    private static procedure z_NamedProgramLocalParameterI4uivEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
+    private z_NamedProgramLocalParameterI4uivEXT_adr := GetFuncAdr('glNamedProgramLocalParameterI4uivEXT');
+    private z_NamedProgramLocalParameterI4uivEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameterI4uivEXT_adr);
+    private z_NamedProgramLocalParameterI4uivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_NamedProgramLocalParameterI4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParameterI4uivEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_NamedProgramLocalParameterI4uivEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_NamedProgramLocalParameterI4uivEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_NamedProgramLocalParameterI4uivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameterI4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParameterI4uivEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParameterI4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameterI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParameterI4uivEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_NamedProgramLocalParametersI4uivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4uivEXT';
-    private static procedure z_NamedProgramLocalParametersI4uivEXT_ovr_0_anh000001(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of UInt32) :=
+    private z_NamedProgramLocalParametersI4uivEXT_adr := GetFuncAdr('glNamedProgramLocalParametersI4uivEXT');
+    private z_NamedProgramLocalParametersI4uivEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParametersI4uivEXT_adr);
+    private z_NamedProgramLocalParametersI4uivEXT_ovr_0_anh000001 := GetFuncOrNil&(z_NamedProgramLocalParametersI4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParametersI4uivEXT_ovr_0(&program, target, index, count, ¶ms[0]) else
       z_NamedProgramLocalParametersI4uivEXT_ovr_0_anh000001(&program, target, index, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32) :=
     z_NamedProgramLocalParametersI4uivEXT_ovr_0(&program, target, index, count, ¶ms);
-    private static procedure z_NamedProgramLocalParametersI4uivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParametersI4uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParametersI4uivEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParametersI4uivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParametersI4uivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParametersI4uivEXT_ovr_2(&program, target, index, count, ¶ms);
     
-    private static procedure z_GetNamedProgramLocalParameterIivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIivEXT';
-    private static procedure z_GetNamedProgramLocalParameterIivEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
+    private z_GetNamedProgramLocalParameterIivEXT_adr := GetFuncAdr('glGetNamedProgramLocalParameterIivEXT');
+    private z_GetNamedProgramLocalParameterIivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIivEXT_adr);
+    private z_GetNamedProgramLocalParameterIivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedProgramLocalParameterIivEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_GetNamedProgramLocalParameterIivEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_GetNamedProgramLocalParameterIivEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_GetNamedProgramLocalParameterIivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetNamedProgramLocalParameterIivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetNamedProgramLocalParameterIivEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_GetNamedProgramLocalParameterIuivEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIuivEXT';
-    private static procedure z_GetNamedProgramLocalParameterIuivEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
+    private z_GetNamedProgramLocalParameterIuivEXT_adr := GetFuncAdr('glGetNamedProgramLocalParameterIuivEXT');
+    private z_GetNamedProgramLocalParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIuivEXT_adr);
+    private z_GetNamedProgramLocalParameterIuivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedProgramLocalParameterIuivEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_GetNamedProgramLocalParameterIuivEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_GetNamedProgramLocalParameterIuivEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_GetNamedProgramLocalParameterIuivEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetNamedProgramLocalParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedProgramLocalParameterIuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterIuivEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetNamedProgramLocalParameterIuivEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_EnableClientStateiEXT_ovr_0(&array: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glEnableClientStateiEXT';
+    private z_EnableClientStateiEXT_adr := GetFuncAdr('glEnableClientStateiEXT');
+    private z_EnableClientStateiEXT_ovr_0 := GetFuncOrNil&(z_EnableClientStateiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableClientStateiEXT(&array: EnableCap; index: UInt32) :=
     z_EnableClientStateiEXT_ovr_0(&array, index);
     
-    private static procedure z_DisableClientStateiEXT_ovr_0(&array: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glDisableClientStateiEXT';
+    private z_DisableClientStateiEXT_adr := GetFuncAdr('glDisableClientStateiEXT');
+    private z_DisableClientStateiEXT_ovr_0 := GetFuncOrNil&(z_DisableClientStateiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableClientStateiEXT(&array: EnableCap; index: UInt32) :=
     z_DisableClientStateiEXT_ovr_0(&array, index);
     
-    private static procedure z_GetFloati_vEXT_ovr_0(pname: DummyEnum; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetFloati_vEXT';
-    private static procedure z_GetFloati_vEXT_ovr_0_anh0001(pname: DummyEnum; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFloati_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: DummyEnum; index: UInt32; ¶ms: array of single) :=
+    private z_GetFloati_vEXT_adr := GetFuncAdr('glGetFloati_vEXT');
+    private z_GetFloati_vEXT_ovr_0 := GetFuncOrNil&(z_GetFloati_vEXT_adr);
+    private z_GetFloati_vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetFloati_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: GetPName; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFloati_vEXT_ovr_0(pname, index, ¶ms[0]) else
       z_GetFloati_vEXT_ovr_0_anh0001(pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: DummyEnum; index: UInt32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: GetPName; index: UInt32; var ¶ms: single) :=
     z_GetFloati_vEXT_ovr_0(pname, index, ¶ms);
-    private static procedure z_GetFloati_vEXT_ovr_2(pname: DummyEnum; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFloati_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: DummyEnum; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetFloati_vEXT_ovr_2 := GetFuncOrNil&(z_GetFloati_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFloati_vEXT(pname: GetPName; index: UInt32; ¶ms: IntPtr) :=
     z_GetFloati_vEXT_ovr_2(pname, index, ¶ms);
     
-    private static procedure z_GetDoublei_vEXT_ovr_0(pname: DummyEnum; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetDoublei_vEXT';
-    private static procedure z_GetDoublei_vEXT_ovr_0_anh0001(pname: DummyEnum; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublei_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: DummyEnum; index: UInt32; ¶ms: array of real) :=
+    private z_GetDoublei_vEXT_adr := GetFuncAdr('glGetDoublei_vEXT');
+    private z_GetDoublei_vEXT_ovr_0 := GetFuncOrNil&(z_GetDoublei_vEXT_adr);
+    private z_GetDoublei_vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetDoublei_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: GetPName; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetDoublei_vEXT_ovr_0(pname, index, ¶ms[0]) else
       z_GetDoublei_vEXT_ovr_0_anh0001(pname, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: DummyEnum; index: UInt32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: GetPName; index: UInt32; var ¶ms: real) :=
     z_GetDoublei_vEXT_ovr_0(pname, index, ¶ms);
-    private static procedure z_GetDoublei_vEXT_ovr_2(pname: DummyEnum; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetDoublei_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: DummyEnum; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetDoublei_vEXT_ovr_2 := GetFuncOrNil&(z_GetDoublei_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDoublei_vEXT(pname: GetPName; index: UInt32; ¶ms: IntPtr) :=
     z_GetDoublei_vEXT_ovr_2(pname, index, ¶ms);
     
-    private static procedure z_GetPointeri_vEXT_ovr_0(pname: DummyEnum; index: UInt32; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointeri_vEXT';
-    private static procedure z_GetPointeri_vEXT_ovr_0_anh0001(pname: DummyEnum; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointeri_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointeri_vEXT(pname: DummyEnum; index: UInt32; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetPointeri_vEXT_ovr_0(pname, index, ¶ms[0]) else
-      z_GetPointeri_vEXT_ovr_0_anh0001(pname, index, IntPtr.Zero);
+    private z_GetPointeri_vEXT_adr := GetFuncAdr('glGetPointeri_vEXT');
+    private z_GetPointeri_vEXT_ovr_0 := GetFuncOrNil&(z_GetPointeri_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointeri_vEXT(pname: DummyEnum; index: UInt32; var ¶ms: IntPtr) :=
     z_GetPointeri_vEXT_ovr_0(pname, index, ¶ms);
-    private static procedure z_GetPointeri_vEXT_ovr_2(pname: DummyEnum; index: UInt32; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetPointeri_vEXT';
+    private z_GetPointeri_vEXT_ovr_1 := GetFuncOrNil&(z_GetPointeri_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointeri_vEXT(pname: DummyEnum; index: UInt32; ¶ms: pointer) :=
-    z_GetPointeri_vEXT_ovr_2(pname, index, ¶ms);
+    z_GetPointeri_vEXT_ovr_1(pname, index, ¶ms);
     
-    private static procedure z_NamedProgramStringEXT_ovr_0(&program: UInt32; target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramStringEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramStringEXT(&program: UInt32; target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr) :=
+    private z_NamedProgramStringEXT_adr := GetFuncAdr('glNamedProgramStringEXT');
+    private z_NamedProgramStringEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramStringEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramStringEXT(&program: gl_program; target: ProgramTarget; format: ProgramFormat; len: Int32; string: IntPtr) :=
     z_NamedProgramStringEXT_ovr_0(&program, target, format, len, string);
     
-    private static procedure z_NamedProgramLocalParameter4dEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4dEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dEXT(&program: UInt32; target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
+    private z_NamedProgramLocalParameter4dEXT_adr := GetFuncAdr('glNamedProgramLocalParameter4dEXT');
+    private z_NamedProgramLocalParameter4dEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameter4dEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dEXT(&program: gl_program; target: ProgramTarget; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_NamedProgramLocalParameter4dEXT_ovr_0(&program, target, index, x, y, z, w);
     
-    private static procedure z_NamedProgramLocalParameter4dvEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4dvEXT';
-    private static procedure z_NamedProgramLocalParameter4dvEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
+    private z_NamedProgramLocalParameter4dvEXT_adr := GetFuncAdr('glNamedProgramLocalParameter4dvEXT');
+    private z_NamedProgramLocalParameter4dvEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameter4dvEXT_adr);
+    private z_NamedProgramLocalParameter4dvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_NamedProgramLocalParameter4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParameter4dvEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_NamedProgramLocalParameter4dvEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_NamedProgramLocalParameter4dvEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_NamedProgramLocalParameter4dvEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParameter4dvEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParameter4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4dvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParameter4dvEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_NamedProgramLocalParameter4fEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4fEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fEXT(&program: UInt32; target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
+    private z_NamedProgramLocalParameter4fEXT_adr := GetFuncAdr('glNamedProgramLocalParameter4fEXT');
+    private z_NamedProgramLocalParameter4fEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameter4fEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fEXT(&program: gl_program; target: ProgramTarget; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_NamedProgramLocalParameter4fEXT_ovr_0(&program, target, index, x, y, z, w);
     
-    private static procedure z_NamedProgramLocalParameter4fvEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4fvEXT';
-    private static procedure z_NamedProgramLocalParameter4fvEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
+    private z_NamedProgramLocalParameter4fvEXT_adr := GetFuncAdr('glNamedProgramLocalParameter4fvEXT');
+    private z_NamedProgramLocalParameter4fvEXT_ovr_0 := GetFuncOrNil&(z_NamedProgramLocalParameter4fvEXT_adr);
+    private z_NamedProgramLocalParameter4fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_NamedProgramLocalParameter4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_NamedProgramLocalParameter4fvEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_NamedProgramLocalParameter4fvEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_NamedProgramLocalParameter4fvEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_NamedProgramLocalParameter4fvEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glNamedProgramLocalParameter4fvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_NamedProgramLocalParameter4fvEXT_ovr_2 := GetFuncOrNil&(z_NamedProgramLocalParameter4fvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedProgramLocalParameter4fvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_NamedProgramLocalParameter4fvEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_GetNamedProgramLocalParameterdvEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterdvEXT';
-    private static procedure z_GetNamedProgramLocalParameterdvEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterdvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
+    private z_GetNamedProgramLocalParameterdvEXT_adr := GetFuncAdr('glGetNamedProgramLocalParameterdvEXT');
+    private z_GetNamedProgramLocalParameterdvEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramLocalParameterdvEXT_adr);
+    private z_GetNamedProgramLocalParameterdvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedProgramLocalParameterdvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedProgramLocalParameterdvEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_GetNamedProgramLocalParameterdvEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: real) :=
     z_GetNamedProgramLocalParameterdvEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_GetNamedProgramLocalParameterdvEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterdvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetNamedProgramLocalParameterdvEXT_ovr_2 := GetFuncOrNil&(z_GetNamedProgramLocalParameterdvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterdvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetNamedProgramLocalParameterdvEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_GetNamedProgramLocalParameterfvEXT_ovr_0(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterfvEXT';
-    private static procedure z_GetNamedProgramLocalParameterfvEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
+    private z_GetNamedProgramLocalParameterfvEXT_adr := GetFuncAdr('glGetNamedProgramLocalParameterfvEXT');
+    private z_GetNamedProgramLocalParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramLocalParameterfvEXT_adr);
+    private z_GetNamedProgramLocalParameterfvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedProgramLocalParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedProgramLocalParameterfvEXT_ovr_0(&program, target, index, ¶ms[0]) else
       z_GetNamedProgramLocalParameterfvEXT_ovr_0_anh00001(&program, target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; var ¶ms: single) :=
     z_GetNamedProgramLocalParameterfvEXT_ovr_0(&program, target, index, ¶ms);
-    private static procedure z_GetNamedProgramLocalParameterfvEXT_ovr_2(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramLocalParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: UInt32; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
+    private z_GetNamedProgramLocalParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetNamedProgramLocalParameterfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramLocalParameterfvEXT(&program: gl_program; target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetNamedProgramLocalParameterfvEXT_ovr_2(&program, target, index, ¶ms);
     
-    private static procedure z_GetNamedProgramivEXT_ovr_0(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedProgramivEXT';
-    private static procedure z_GetNamedProgramivEXT_ovr_0_anh00001(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramivEXT(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetNamedProgramivEXT_ovr_0(&program, target, pname, ¶ms[0]) else
-      z_GetNamedProgramivEXT_ovr_0_anh00001(&program, target, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramivEXT(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32) :=
+    private z_GetNamedProgramivEXT_adr := GetFuncAdr('glGetNamedProgramivEXT');
+    private z_GetNamedProgramivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramivEXT(&program: gl_program; target: ProgramTarget; pname: ProgramPropertyARB; var ¶ms: Int32) :=
     z_GetNamedProgramivEXT_ovr_0(&program, target, pname, ¶ms);
-    private static procedure z_GetNamedProgramivEXT_ovr_2(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramivEXT(&program: UInt32; target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
-    z_GetNamedProgramivEXT_ovr_2(&program, target, pname, ¶ms);
+    private z_GetNamedProgramivEXT_ovr_1 := GetFuncOrNil&(z_GetNamedProgramivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramivEXT(&program: gl_program; target: ProgramTarget; pname: ProgramPropertyARB; ¶ms: IntPtr) :=
+    z_GetNamedProgramivEXT_ovr_1(&program, target, pname, ¶ms);
     
-    private static procedure z_GetNamedProgramStringEXT_ovr_0(&program: UInt32; target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedProgramStringEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramStringEXT(&program: UInt32; target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr) :=
+    private z_GetNamedProgramStringEXT_adr := GetFuncAdr('glGetNamedProgramStringEXT');
+    private z_GetNamedProgramStringEXT_ovr_0 := GetFuncOrNil&(z_GetNamedProgramStringEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedProgramStringEXT(&program: gl_program; target: ProgramTarget; pname: ProgramStringProperty; string: IntPtr) :=
     z_GetNamedProgramStringEXT_ovr_0(&program, target, pname, string);
     
-    private static procedure z_NamedRenderbufferStorageEXT_ovr_0(renderbuffer: UInt32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageEXT(renderbuffer: UInt32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageEXT_adr := GetFuncAdr('glNamedRenderbufferStorageEXT');
+    private z_NamedRenderbufferStorageEXT_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageEXT(renderbuffer: gl_renderbuffer; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageEXT_ovr_0(renderbuffer, _internalformat, width, height);
     
-    private static procedure z_GetNamedRenderbufferParameterivEXT_ovr_0(renderbuffer: UInt32; pname: RenderbufferParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameterivEXT';
-    private static procedure z_GetNamedRenderbufferParameterivEXT_ovr_0_anh0001(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedRenderbufferParameterivEXT_adr := GetFuncAdr('glGetNamedRenderbufferParameterivEXT');
+    private z_GetNamedRenderbufferParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedRenderbufferParameterivEXT_adr);
+    private z_GetNamedRenderbufferParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedRenderbufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedRenderbufferParameterivEXT_ovr_0(renderbuffer, pname, ¶ms[0]) else
       z_GetNamedRenderbufferParameterivEXT_ovr_0_anh0001(renderbuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: UInt32; pname: RenderbufferParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; var ¶ms: Int32) :=
     z_GetNamedRenderbufferParameterivEXT_ovr_0(renderbuffer, pname, ¶ms);
-    private static procedure z_GetNamedRenderbufferParameterivEXT_ovr_2(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedRenderbufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: UInt32; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedRenderbufferParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedRenderbufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedRenderbufferParameterivEXT(renderbuffer: gl_renderbuffer; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
     z_GetNamedRenderbufferParameterivEXT_ovr_2(renderbuffer, pname, ¶ms);
     
-    private static procedure z_NamedRenderbufferStorageMultisampleEXT_ovr_0(renderbuffer: UInt32; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorageMultisampleEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleEXT(renderbuffer: UInt32; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageMultisampleEXT_adr := GetFuncAdr('glNamedRenderbufferStorageMultisampleEXT');
+    private z_NamedRenderbufferStorageMultisampleEXT_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisampleEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleEXT(renderbuffer: gl_renderbuffer; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageMultisampleEXT_ovr_0(renderbuffer, samples, _internalformat, width, height);
     
-    private static procedure z_NamedRenderbufferStorageMultisampleCoverageEXT_ovr_0(renderbuffer: UInt32; coverageSamples: Int32; colorSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glNamedRenderbufferStorageMultisampleCoverageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleCoverageEXT(renderbuffer: UInt32; coverageSamples: Int32; colorSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_NamedRenderbufferStorageMultisampleCoverageEXT_adr := GetFuncAdr('glNamedRenderbufferStorageMultisampleCoverageEXT');
+    private z_NamedRenderbufferStorageMultisampleCoverageEXT_ovr_0 := GetFuncOrNil&(z_NamedRenderbufferStorageMultisampleCoverageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedRenderbufferStorageMultisampleCoverageEXT(renderbuffer: gl_renderbuffer; coverageSamples: Int32; colorSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_NamedRenderbufferStorageMultisampleCoverageEXT_ovr_0(renderbuffer, coverageSamples, colorSamples, _internalformat, width, height);
     
-    private static function z_CheckNamedFramebufferStatusEXT_ovr_0(framebuffer: UInt32; target: FramebufferTarget): FramebufferStatus;
-    external 'opengl32.dll' name 'glCheckNamedFramebufferStatusEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatusEXT(framebuffer: UInt32; target: FramebufferTarget): FramebufferStatus :=
+    private z_CheckNamedFramebufferStatusEXT_adr := GetFuncAdr('glCheckNamedFramebufferStatusEXT');
+    private z_CheckNamedFramebufferStatusEXT_ovr_0 := GetFuncOrNil&(z_CheckNamedFramebufferStatusEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckNamedFramebufferStatusEXT(framebuffer: gl_framebuffer; target: FramebufferTarget): FramebufferStatus :=
     z_CheckNamedFramebufferStatusEXT_ovr_0(framebuffer, target);
     
-    private static procedure z_NamedFramebufferTexture1DEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTexture1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture1DEXT(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_NamedFramebufferTexture1DEXT_adr := GetFuncAdr('glNamedFramebufferTexture1DEXT');
+    private z_NamedFramebufferTexture1DEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture1DEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_NamedFramebufferTexture1DEXT_ovr_0(framebuffer, attachment, textarget, texture, level);
     
-    private static procedure z_NamedFramebufferTexture2DEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTexture2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture2DEXT(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_NamedFramebufferTexture2DEXT_adr := GetFuncAdr('glNamedFramebufferTexture2DEXT');
+    private z_NamedFramebufferTexture2DEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture2DEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_NamedFramebufferTexture2DEXT_ovr_0(framebuffer, attachment, textarget, texture, level);
     
-    private static procedure z_NamedFramebufferTexture3DEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTexture3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture3DEXT(framebuffer: UInt32; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32) :=
+    private z_NamedFramebufferTexture3DEXT_adr := GetFuncAdr('glNamedFramebufferTexture3DEXT');
+    private z_NamedFramebufferTexture3DEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTexture3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTexture3DEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32; zoffset: Int32) :=
     z_NamedFramebufferTexture3DEXT_ovr_0(framebuffer, attachment, textarget, texture, level, zoffset);
     
-    private static procedure z_NamedFramebufferRenderbufferEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glNamedFramebufferRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbufferEXT(framebuffer: UInt32; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: UInt32) :=
+    private z_NamedFramebufferRenderbufferEXT_adr := GetFuncAdr('glNamedFramebufferRenderbufferEXT');
+    private z_NamedFramebufferRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferRenderbufferEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_NamedFramebufferRenderbufferEXT_ovr_0(framebuffer, attachment, _renderbuffertarget, renderbuffer);
     
-    private static procedure z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameterivEXT';
-    private static procedure z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0_anh00001(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
+    private z_GetNamedFramebufferAttachmentParameterivEXT_adr := GetFuncAdr('glGetNamedFramebufferAttachmentParameterivEXT');
+    private z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameterivEXT_adr);
+    private z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0(framebuffer, attachment, pname, ¶ms[0]) else
       z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0_anh00001(framebuffer, attachment, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetNamedFramebufferAttachmentParameterivEXT_ovr_0(framebuffer, attachment, pname, ¶ms);
-    private static procedure z_GetNamedFramebufferAttachmentParameterivEXT_ovr_2(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferAttachmentParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: UInt32; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
+    private z_GetNamedFramebufferAttachmentParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferAttachmentParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferAttachmentParameterivEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetNamedFramebufferAttachmentParameterivEXT_ovr_2(framebuffer, attachment, pname, ¶ms);
     
-    private static procedure z_GenerateTextureMipmapEXT_ovr_0(texture: UInt32; target: TextureTarget);
-    external 'opengl32.dll' name 'glGenerateTextureMipmapEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmapEXT(texture: UInt32; target: TextureTarget) :=
+    private z_GenerateTextureMipmapEXT_adr := GetFuncAdr('glGenerateTextureMipmapEXT');
+    private z_GenerateTextureMipmapEXT_ovr_0 := GetFuncOrNil&(z_GenerateTextureMipmapEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateTextureMipmapEXT(texture: gl_texture; target: TextureTarget) :=
     z_GenerateTextureMipmapEXT_ovr_0(texture, target);
     
-    private static procedure z_GenerateMultiTexMipmapEXT_ovr_0(texunit: TextureUnit; target: TextureTarget);
-    external 'opengl32.dll' name 'glGenerateMultiTexMipmapEXT';
+    private z_GenerateMultiTexMipmapEXT_adr := GetFuncAdr('glGenerateMultiTexMipmapEXT');
+    private z_GenerateMultiTexMipmapEXT_ovr_0 := GetFuncOrNil&(z_GenerateMultiTexMipmapEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateMultiTexMipmapEXT(texunit: TextureUnit; target: TextureTarget) :=
     z_GenerateMultiTexMipmapEXT_ovr_0(texunit, target);
     
-    private static procedure z_FramebufferDrawBufferEXT_ovr_0(framebuffer: UInt32; mode: DrawBufferMode);
-    external 'opengl32.dll' name 'glFramebufferDrawBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBufferEXT(framebuffer: UInt32; mode: DrawBufferMode) :=
+    private z_FramebufferDrawBufferEXT_adr := GetFuncAdr('glFramebufferDrawBufferEXT');
+    private z_FramebufferDrawBufferEXT_ovr_0 := GetFuncOrNil&(z_FramebufferDrawBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBufferEXT(framebuffer: gl_framebuffer; mode: DrawBufferMode) :=
     z_FramebufferDrawBufferEXT_ovr_0(framebuffer, mode);
     
-    private static procedure z_FramebufferDrawBuffersEXT_ovr_0(framebuffer: UInt32; n: Int32; var bufs: DrawBufferMode);
-    external 'opengl32.dll' name 'glFramebufferDrawBuffersEXT';
-    private static procedure z_FramebufferDrawBuffersEXT_ovr_0_anh0001(framebuffer: UInt32; n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferDrawBuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: UInt32; n: Int32; bufs: array of DrawBufferMode) :=
+    private z_FramebufferDrawBuffersEXT_adr := GetFuncAdr('glFramebufferDrawBuffersEXT');
+    private z_FramebufferDrawBuffersEXT_ovr_0 := GetFuncOrNil&(z_FramebufferDrawBuffersEXT_adr);
+    private z_FramebufferDrawBuffersEXT_ovr_0_anh0001 := GetFuncOrNil&(z_FramebufferDrawBuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: gl_framebuffer; n: Int32; bufs: array of DrawBufferMode) :=
     if (bufs<>nil) and (bufs.Length<>0) then
       z_FramebufferDrawBuffersEXT_ovr_0(framebuffer, n, bufs[0]) else
       z_FramebufferDrawBuffersEXT_ovr_0_anh0001(framebuffer, n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: UInt32; n: Int32; var bufs: DrawBufferMode) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: gl_framebuffer; n: Int32; var bufs: DrawBufferMode) :=
     z_FramebufferDrawBuffersEXT_ovr_0(framebuffer, n, bufs);
-    private static procedure z_FramebufferDrawBuffersEXT_ovr_2(framebuffer: UInt32; n: Int32; bufs: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferDrawBuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: UInt32; n: Int32; bufs: IntPtr) :=
+    private z_FramebufferDrawBuffersEXT_ovr_2 := GetFuncOrNil&(z_FramebufferDrawBuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferDrawBuffersEXT(framebuffer: gl_framebuffer; n: Int32; bufs: IntPtr) :=
     z_FramebufferDrawBuffersEXT_ovr_2(framebuffer, n, bufs);
     
-    private static procedure z_FramebufferReadBufferEXT_ovr_0(framebuffer: UInt32; mode: ReadBufferMode);
-    external 'opengl32.dll' name 'glFramebufferReadBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferReadBufferEXT(framebuffer: UInt32; mode: ReadBufferMode) :=
+    private z_FramebufferReadBufferEXT_adr := GetFuncAdr('glFramebufferReadBufferEXT');
+    private z_FramebufferReadBufferEXT_ovr_0 := GetFuncOrNil&(z_FramebufferReadBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferReadBufferEXT(framebuffer: gl_framebuffer; mode: ReadBufferMode) :=
     z_FramebufferReadBufferEXT_ovr_0(framebuffer, mode);
     
-    private static procedure z_GetFramebufferParameterivEXT_ovr_0(framebuffer: UInt32; pname: GetFramebufferParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivEXT';
-    private static procedure z_GetFramebufferParameterivEXT_ovr_0_anh0001(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: array of Int32) :=
+    private z_GetFramebufferParameterivEXT_adr := GetFuncAdr('glGetFramebufferParameterivEXT');
+    private z_GetFramebufferParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetFramebufferParameterivEXT_adr);
+    private z_GetFramebufferParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetFramebufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFramebufferParameterivEXT_ovr_0(framebuffer, pname, ¶ms[0]) else
       z_GetFramebufferParameterivEXT_ovr_0_anh0001(framebuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; var ¶ms: Int32) :=
     z_GetFramebufferParameterivEXT_ovr_0(framebuffer, pname, ¶ms);
-    private static procedure z_GetFramebufferParameterivEXT_ovr_2(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr) :=
+    private z_GetFramebufferParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetFramebufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; ¶ms: IntPtr) :=
     z_GetFramebufferParameterivEXT_ovr_2(framebuffer, pname, ¶ms);
     
-    private static procedure z_NamedCopyBufferSubDataEXT_ovr_0(readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glNamedCopyBufferSubDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedCopyBufferSubDataEXT(readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    private z_NamedCopyBufferSubDataEXT_adr := GetFuncAdr('glNamedCopyBufferSubDataEXT');
+    private z_NamedCopyBufferSubDataEXT_ovr_0 := GetFuncOrNil&(z_NamedCopyBufferSubDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedCopyBufferSubDataEXT(readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
     z_NamedCopyBufferSubDataEXT_ovr_0(readBuffer, writeBuffer, readOffset, writeOffset, size);
     
-    private static procedure z_NamedFramebufferTextureEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureEXT(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32) :=
+    private z_NamedFramebufferTextureEXT_adr := GetFuncAdr('glNamedFramebufferTextureEXT');
+    private z_NamedFramebufferTextureEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_NamedFramebufferTextureEXT_ovr_0(framebuffer, attachment, texture, level);
     
-    private static procedure z_NamedFramebufferTextureLayerEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferTextureLayerEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayerEXT(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32) :=
+    private z_NamedFramebufferTextureLayerEXT_adr := GetFuncAdr('glNamedFramebufferTextureLayerEXT');
+    private z_NamedFramebufferTextureLayerEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureLayerEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureLayerEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_NamedFramebufferTextureLayerEXT_ovr_0(framebuffer, attachment, texture, level, layer);
     
-    private static procedure z_NamedFramebufferTextureFaceEXT_ovr_0(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget);
-    external 'opengl32.dll' name 'glNamedFramebufferTextureFaceEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureFaceEXT(framebuffer: UInt32; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget) :=
+    private z_NamedFramebufferTextureFaceEXT_adr := GetFuncAdr('glNamedFramebufferTextureFaceEXT');
+    private z_NamedFramebufferTextureFaceEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferTextureFaceEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferTextureFaceEXT(framebuffer: gl_framebuffer; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; face: TextureTarget) :=
     z_NamedFramebufferTextureFaceEXT_ovr_0(framebuffer, attachment, texture, level, face);
     
-    private static procedure z_TextureRenderbufferEXT_ovr_0(texture: UInt32; target: TextureTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glTextureRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureRenderbufferEXT(texture: UInt32; target: TextureTarget; renderbuffer: UInt32) :=
+    private z_TextureRenderbufferEXT_adr := GetFuncAdr('glTextureRenderbufferEXT');
+    private z_TextureRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_TextureRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureRenderbufferEXT(texture: gl_texture; target: TextureTarget; renderbuffer: gl_renderbuffer) :=
     z_TextureRenderbufferEXT_ovr_0(texture, target, renderbuffer);
     
-    private static procedure z_MultiTexRenderbufferEXT_ovr_0(texunit: TextureUnit; target: TextureTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glMultiTexRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexRenderbufferEXT(texunit: TextureUnit; target: TextureTarget; renderbuffer: UInt32) :=
+    private z_MultiTexRenderbufferEXT_adr := GetFuncAdr('glMultiTexRenderbufferEXT');
+    private z_MultiTexRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_MultiTexRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexRenderbufferEXT(texunit: TextureUnit; target: TextureTarget; renderbuffer: gl_renderbuffer) :=
     z_MultiTexRenderbufferEXT_ovr_0(texunit, target, renderbuffer);
     
-    private static procedure z_VertexArrayVertexOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; size: Int32; &type: VertexPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexOffsetEXT(vaobj: UInt32; buffer: UInt32; size: Int32; &type: VertexPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayVertexOffsetEXT_adr := GetFuncAdr('glVertexArrayVertexOffsetEXT');
+    private z_VertexArrayVertexOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; size: Int32; &type: VertexPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayVertexOffsetEXT_ovr_0(vaobj, buffer, size, &type, stride, offset);
     
-    private static procedure z_VertexArrayColorOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayColorOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayColorOffsetEXT(vaobj: UInt32; buffer: UInt32; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayColorOffsetEXT_adr := GetFuncAdr('glVertexArrayColorOffsetEXT');
+    private z_VertexArrayColorOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayColorOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayColorOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayColorOffsetEXT_ovr_0(vaobj, buffer, size, &type, stride, offset);
     
-    private static procedure z_VertexArrayEdgeFlagOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayEdgeFlagOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayEdgeFlagOffsetEXT(vaobj: UInt32; buffer: UInt32; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayEdgeFlagOffsetEXT_adr := GetFuncAdr('glVertexArrayEdgeFlagOffsetEXT');
+    private z_VertexArrayEdgeFlagOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayEdgeFlagOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayEdgeFlagOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; stride: Int32; offset: IntPtr) :=
     z_VertexArrayEdgeFlagOffsetEXT_ovr_0(vaobj, buffer, stride, offset);
     
-    private static procedure z_VertexArrayIndexOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; &type: IndexPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayIndexOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayIndexOffsetEXT(vaobj: UInt32; buffer: UInt32; &type: IndexPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayIndexOffsetEXT_adr := GetFuncAdr('glVertexArrayIndexOffsetEXT');
+    private z_VertexArrayIndexOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayIndexOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayIndexOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; &type: IndexPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayIndexOffsetEXT_ovr_0(vaobj, buffer, &type, stride, offset);
     
-    private static procedure z_VertexArrayNormalOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; &type: NormalPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayNormalOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayNormalOffsetEXT(vaobj: UInt32; buffer: UInt32; &type: NormalPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayNormalOffsetEXT_adr := GetFuncAdr('glVertexArrayNormalOffsetEXT');
+    private z_VertexArrayNormalOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayNormalOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayNormalOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; &type: NormalPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayNormalOffsetEXT_ovr_0(vaobj, buffer, &type, stride, offset);
     
-    private static procedure z_VertexArrayTexCoordOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayTexCoordOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayTexCoordOffsetEXT(vaobj: UInt32; buffer: UInt32; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayTexCoordOffsetEXT_adr := GetFuncAdr('glVertexArrayTexCoordOffsetEXT');
+    private z_VertexArrayTexCoordOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayTexCoordOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayTexCoordOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayTexCoordOffsetEXT_ovr_0(vaobj, buffer, size, &type, stride, offset);
     
-    private static procedure z_VertexArrayMultiTexCoordOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; texunit: DummyEnum; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayMultiTexCoordOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayMultiTexCoordOffsetEXT(vaobj: UInt32; buffer: UInt32; texunit: DummyEnum; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayMultiTexCoordOffsetEXT_adr := GetFuncAdr('glVertexArrayMultiTexCoordOffsetEXT');
+    private z_VertexArrayMultiTexCoordOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayMultiTexCoordOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayMultiTexCoordOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; texunit: DummyEnum; size: Int32; &type: TexCoordPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayMultiTexCoordOffsetEXT_ovr_0(vaobj, buffer, texunit, size, &type, stride, offset);
     
-    private static procedure z_VertexArrayFogCoordOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; &type: FogCoordinatePointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayFogCoordOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayFogCoordOffsetEXT(vaobj: UInt32; buffer: UInt32; &type: FogCoordinatePointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayFogCoordOffsetEXT_adr := GetFuncAdr('glVertexArrayFogCoordOffsetEXT');
+    private z_VertexArrayFogCoordOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayFogCoordOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayFogCoordOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; &type: FogCoordinatePointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayFogCoordOffsetEXT_ovr_0(vaobj, buffer, &type, stride, offset);
     
-    private static procedure z_VertexArraySecondaryColorOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArraySecondaryColorOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArraySecondaryColorOffsetEXT(vaobj: UInt32; buffer: UInt32; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArraySecondaryColorOffsetEXT_adr := GetFuncAdr('glVertexArraySecondaryColorOffsetEXT');
+    private z_VertexArraySecondaryColorOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArraySecondaryColorOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArraySecondaryColorOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; size: Int32; &type: ColorPointerType; stride: Int32; offset: IntPtr) :=
     z_VertexArraySecondaryColorOffsetEXT_ovr_0(vaobj, buffer, size, &type, stride, offset);
     
-    private static procedure z_VertexArrayVertexAttribOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribOffsetEXT(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayVertexAttribOffsetEXT_adr := GetFuncAdr('glVertexArrayVertexAttribOffsetEXT');
+    private z_VertexArrayVertexAttribOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; index: UInt32; size: Int32; &type: VertexAttribPointerType; normalized: boolean; stride: Int32; offset: IntPtr) :=
     z_VertexArrayVertexAttribOffsetEXT_ovr_0(vaobj, buffer, index, size, &type, normalized, stride, offset);
     
-    private static procedure z_VertexArrayVertexAttribIOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribIOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribIOffsetEXT(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayVertexAttribIOffsetEXT_adr := GetFuncAdr('glVertexArrayVertexAttribIOffsetEXT');
+    private z_VertexArrayVertexAttribIOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribIOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribIOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; index: UInt32; size: Int32; &type: VertexAttribType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayVertexAttribIOffsetEXT_ovr_0(vaobj, buffer, index, size, &type, stride, offset);
     
-    private static procedure z_EnableVertexArrayEXT_ovr_0(vaobj: UInt32; &array: EnableCap);
-    external 'opengl32.dll' name 'glEnableVertexArrayEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayEXT(vaobj: UInt32; &array: EnableCap) :=
+    private z_EnableVertexArrayEXT_adr := GetFuncAdr('glEnableVertexArrayEXT');
+    private z_EnableVertexArrayEXT_ovr_0 := GetFuncOrNil&(z_EnableVertexArrayEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayEXT(vaobj: gl_vertex_array; &array: EnableCap) :=
     z_EnableVertexArrayEXT_ovr_0(vaobj, &array);
     
-    private static procedure z_DisableVertexArrayEXT_ovr_0(vaobj: UInt32; &array: EnableCap);
-    external 'opengl32.dll' name 'glDisableVertexArrayEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayEXT(vaobj: UInt32; &array: EnableCap) :=
+    private z_DisableVertexArrayEXT_adr := GetFuncAdr('glDisableVertexArrayEXT');
+    private z_DisableVertexArrayEXT_ovr_0 := GetFuncOrNil&(z_DisableVertexArrayEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayEXT(vaobj: gl_vertex_array; &array: EnableCap) :=
     z_DisableVertexArrayEXT_ovr_0(vaobj, &array);
     
-    private static procedure z_EnableVertexArrayAttribEXT_ovr_0(vaobj: UInt32; index: UInt32);
-    external 'opengl32.dll' name 'glEnableVertexArrayAttribEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttribEXT(vaobj: UInt32; index: UInt32) :=
+    private z_EnableVertexArrayAttribEXT_adr := GetFuncAdr('glEnableVertexArrayAttribEXT');
+    private z_EnableVertexArrayAttribEXT_ovr_0 := GetFuncOrNil&(z_EnableVertexArrayAttribEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVertexArrayAttribEXT(vaobj: gl_vertex_array; index: UInt32) :=
     z_EnableVertexArrayAttribEXT_ovr_0(vaobj, index);
     
-    private static procedure z_DisableVertexArrayAttribEXT_ovr_0(vaobj: UInt32; index: UInt32);
-    external 'opengl32.dll' name 'glDisableVertexArrayAttribEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttribEXT(vaobj: UInt32; index: UInt32) :=
+    private z_DisableVertexArrayAttribEXT_adr := GetFuncAdr('glDisableVertexArrayAttribEXT');
+    private z_DisableVertexArrayAttribEXT_ovr_0 := GetFuncOrNil&(z_DisableVertexArrayAttribEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVertexArrayAttribEXT(vaobj: gl_vertex_array; index: UInt32) :=
     z_DisableVertexArrayAttribEXT_ovr_0(vaobj, index);
     
-    private static procedure z_GetVertexArrayIntegervEXT_ovr_0(vaobj: UInt32; pname: VertexArrayPName; var param: Int32);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegervEXT';
-    private static procedure z_GetVertexArrayIntegervEXT_ovr_0_anh0001(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayIntegervEXT_adr := GetFuncAdr('glGetVertexArrayIntegervEXT');
+    private z_GetVertexArrayIntegervEXT_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIntegervEXT_adr);
+    private z_GetVertexArrayIntegervEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexArrayIntegervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: gl_vertex_array; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIntegervEXT_ovr_0(vaobj, pname, param[0]) else
       z_GetVertexArrayIntegervEXT_ovr_0_anh0001(vaobj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: gl_vertex_array; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayIntegervEXT_ovr_0(vaobj, pname, param);
-    private static procedure z_GetVertexArrayIntegervEXT_ovr_2(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIntegervEXT_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIntegervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegervEXT(vaobj: gl_vertex_array; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIntegervEXT_ovr_2(vaobj, pname, param);
     
-    private static procedure z_GetVertexArrayPointervEXT_ovr_0(vaobj: UInt32; pname: VertexArrayPName; var param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayPointervEXT';
-    private static procedure z_GetVertexArrayPointervEXT_ovr_0_anh0001(vaobj: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayPointervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointervEXT(vaobj: UInt32; pname: VertexArrayPName; param: array of IntPtr) :=
-    if (param<>nil) and (param.Length<>0) then
-      z_GetVertexArrayPointervEXT_ovr_0(vaobj, pname, param[0]) else
-      z_GetVertexArrayPointervEXT_ovr_0_anh0001(vaobj, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointervEXT(vaobj: UInt32; pname: VertexArrayPName; var param: IntPtr) :=
+    private z_GetVertexArrayPointervEXT_adr := GetFuncAdr('glGetVertexArrayPointervEXT');
+    private z_GetVertexArrayPointervEXT_ovr_0 := GetFuncOrNil&(z_GetVertexArrayPointervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointervEXT(vaobj: gl_vertex_array; pname: VertexArrayPName; var param: IntPtr) :=
     z_GetVertexArrayPointervEXT_ovr_0(vaobj, pname, param);
-    private static procedure z_GetVertexArrayPointervEXT_ovr_2(vaobj: UInt32; pname: VertexArrayPName; param: pointer);
-    external 'opengl32.dll' name 'glGetVertexArrayPointervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointervEXT(vaobj: UInt32; pname: VertexArrayPName; param: pointer) :=
-    z_GetVertexArrayPointervEXT_ovr_2(vaobj, pname, param);
+    private z_GetVertexArrayPointervEXT_ovr_1 := GetFuncOrNil&(z_GetVertexArrayPointervEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointervEXT(vaobj: gl_vertex_array; pname: VertexArrayPName; param: pointer) :=
+    z_GetVertexArrayPointervEXT_ovr_1(vaobj, pname, param);
     
-    private static procedure z_GetVertexArrayIntegeri_vEXT_ovr_0(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int32);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegeri_vEXT';
-    private static procedure z_GetVertexArrayIntegeri_vEXT_ovr_0_anh00001(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegeri_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
+    private z_GetVertexArrayIntegeri_vEXT_adr := GetFuncAdr('glGetVertexArrayIntegeri_vEXT');
+    private z_GetVertexArrayIntegeri_vEXT_ovr_0 := GetFuncOrNil&(z_GetVertexArrayIntegeri_vEXT_adr);
+    private z_GetVertexArrayIntegeri_vEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetVertexArrayIntegeri_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: array of Int32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetVertexArrayIntegeri_vEXT_ovr_0(vaobj, index, pname, param[0]) else
       z_GetVertexArrayIntegeri_vEXT_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: Int32) :=
     z_GetVertexArrayIntegeri_vEXT_ovr_0(vaobj, index, pname, param);
-    private static procedure z_GetVertexArrayIntegeri_vEXT_ovr_2(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayIntegeri_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
+    private z_GetVertexArrayIntegeri_vEXT_ovr_2 := GetFuncOrNil&(z_GetVertexArrayIntegeri_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayIntegeri_vEXT(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: IntPtr) :=
     z_GetVertexArrayIntegeri_vEXT_ovr_2(vaobj, index, pname, param);
     
-    private static procedure z_GetVertexArrayPointeri_vEXT_ovr_0(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayPointeri_vEXT';
-    private static procedure z_GetVertexArrayPointeri_vEXT_ovr_0_anh00001(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexArrayPointeri_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: array of IntPtr) :=
-    if (param<>nil) and (param.Length<>0) then
-      z_GetVertexArrayPointeri_vEXT_ovr_0(vaobj, index, pname, param[0]) else
-      z_GetVertexArrayPointeri_vEXT_ovr_0_anh00001(vaobj, index, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; var param: IntPtr) :=
+    private z_GetVertexArrayPointeri_vEXT_adr := GetFuncAdr('glGetVertexArrayPointeri_vEXT');
+    private z_GetVertexArrayPointeri_vEXT_ovr_0 := GetFuncOrNil&(z_GetVertexArrayPointeri_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointeri_vEXT(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; var param: IntPtr) :=
     z_GetVertexArrayPointeri_vEXT_ovr_0(vaobj, index, pname, param);
-    private static procedure z_GetVertexArrayPointeri_vEXT_ovr_2(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: pointer);
-    external 'opengl32.dll' name 'glGetVertexArrayPointeri_vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointeri_vEXT(vaobj: UInt32; index: UInt32; pname: VertexArrayPName; param: pointer) :=
-    z_GetVertexArrayPointeri_vEXT_ovr_2(vaobj, index, pname, param);
+    private z_GetVertexArrayPointeri_vEXT_ovr_1 := GetFuncOrNil&(z_GetVertexArrayPointeri_vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexArrayPointeri_vEXT(vaobj: gl_vertex_array; index: UInt32; pname: VertexArrayPName; param: pointer) :=
+    z_GetVertexArrayPointeri_vEXT_ovr_1(vaobj, index, pname, param);
     
-    private static function z_MapNamedBufferRangeEXT_ovr_0(buffer: UInt32; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr;
-    external 'opengl32.dll' name 'glMapNamedBufferRangeEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRangeEXT(buffer: UInt32; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
+    private z_MapNamedBufferRangeEXT_adr := GetFuncAdr('glMapNamedBufferRangeEXT');
+    private z_MapNamedBufferRangeEXT_ovr_0 := GetFuncOrNil&(z_MapNamedBufferRangeEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapNamedBufferRangeEXT(buffer: gl_buffer; offset: IntPtr; length: IntPtr; access: MapBufferAccessMask): IntPtr :=
     z_MapNamedBufferRangeEXT_ovr_0(buffer, offset, length, access);
     
-    private static procedure z_FlushMappedNamedBufferRangeEXT_ovr_0(buffer: UInt32; offset: IntPtr; length: IntPtr);
-    external 'opengl32.dll' name 'glFlushMappedNamedBufferRangeEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRangeEXT(buffer: UInt32; offset: IntPtr; length: IntPtr) :=
+    private z_FlushMappedNamedBufferRangeEXT_adr := GetFuncAdr('glFlushMappedNamedBufferRangeEXT');
+    private z_FlushMappedNamedBufferRangeEXT_ovr_0 := GetFuncOrNil&(z_FlushMappedNamedBufferRangeEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushMappedNamedBufferRangeEXT(buffer: gl_buffer; offset: IntPtr; length: IntPtr) :=
     z_FlushMappedNamedBufferRangeEXT_ovr_0(buffer, offset, length);
     
-    private static procedure z_NamedBufferStorageEXT_ovr_0(buffer: UInt32; size: IntPtr; data: IntPtr; flags: BufferStorageMask);
-    external 'opengl32.dll' name 'glNamedBufferStorageEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageEXT(buffer: UInt32; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
+    private z_NamedBufferStorageEXT_adr := GetFuncAdr('glNamedBufferStorageEXT');
+    private z_NamedBufferStorageEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferStorageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageEXT(buffer: gl_buffer; size: IntPtr; data: IntPtr; flags: BufferStorageMask) :=
     z_NamedBufferStorageEXT_ovr_0(buffer, size, data, flags);
     
-    private static procedure z_ClearNamedBufferDataEXT_ovr_0(buffer: UInt32; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedBufferDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferDataEXT(buffer: UInt32; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferDataEXT_adr := GetFuncAdr('glClearNamedBufferDataEXT');
+    private z_ClearNamedBufferDataEXT_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferDataEXT(buffer: gl_buffer; _internalformat: InternalFormat; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferDataEXT_ovr_0(buffer, _internalformat, format, &type, data);
     
-    private static procedure z_ClearNamedBufferSubDataEXT_ovr_0(buffer: UInt32; internalformat: DummyEnum; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glClearNamedBufferSubDataEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubDataEXT(buffer: UInt32; internalformat: DummyEnum; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
+    private z_ClearNamedBufferSubDataEXT_adr := GetFuncAdr('glClearNamedBufferSubDataEXT');
+    private z_ClearNamedBufferSubDataEXT_ovr_0 := GetFuncOrNil&(z_ClearNamedBufferSubDataEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearNamedBufferSubDataEXT(buffer: gl_buffer; internalformat: DummyEnum; offset: IntPtr; size: IntPtr; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_ClearNamedBufferSubDataEXT_ovr_0(buffer, internalformat, offset, size, format, &type, data);
     
-    private static procedure z_NamedFramebufferParameteriEXT_ovr_0(framebuffer: UInt32; pname: FramebufferParameterName; param: Int32);
-    external 'opengl32.dll' name 'glNamedFramebufferParameteriEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteriEXT(framebuffer: UInt32; pname: FramebufferParameterName; param: Int32) :=
+    private z_NamedFramebufferParameteriEXT_adr := GetFuncAdr('glNamedFramebufferParameteriEXT');
+    private z_NamedFramebufferParameteriEXT_ovr_0 := GetFuncOrNil&(z_NamedFramebufferParameteriEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferParameteriEXT(framebuffer: gl_framebuffer; pname: FramebufferParameterName; param: Int32) :=
     z_NamedFramebufferParameteriEXT_ovr_0(framebuffer, pname, param);
     
-    private static procedure z_GetNamedFramebufferParameterivEXT_ovr_0(framebuffer: UInt32; pname: GetFramebufferParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterivEXT';
-    private static procedure z_GetNamedFramebufferParameterivEXT_ovr_0_anh0001(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: array of Int32) :=
+    private z_GetNamedFramebufferParameterivEXT_adr := GetFuncAdr('glGetNamedFramebufferParameterivEXT');
+    private z_GetNamedFramebufferParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetNamedFramebufferParameterivEXT_adr);
+    private z_GetNamedFramebufferParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedFramebufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedFramebufferParameterivEXT_ovr_0(framebuffer, pname, ¶ms[0]) else
       z_GetNamedFramebufferParameterivEXT_ovr_0_anh0001(framebuffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; var ¶ms: Int32) :=
     z_GetNamedFramebufferParameterivEXT_ovr_0(framebuffer, pname, ¶ms);
-    private static procedure z_GetNamedFramebufferParameterivEXT_ovr_2(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedFramebufferParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: UInt32; pname: GetFramebufferParameter; ¶ms: IntPtr) :=
+    private z_GetNamedFramebufferParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetNamedFramebufferParameterivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedFramebufferParameterivEXT(framebuffer: gl_framebuffer; pname: GetFramebufferParameter; ¶ms: IntPtr) :=
     z_GetNamedFramebufferParameterivEXT_ovr_2(framebuffer, pname, ¶ms);
     
-    private static procedure z_ProgramUniform1dEXT_ovr_0(&program: UInt32; location: Int32; x: real);
-    external 'opengl32.dll' name 'glProgramUniform1dEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dEXT(&program: UInt32; location: Int32; x: real) :=
+    private z_ProgramUniform1dEXT_adr := GetFuncAdr('glProgramUniform1dEXT');
+    private z_ProgramUniform1dEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1dEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dEXT(&program: gl_program; location: Int32; x: real) :=
     z_ProgramUniform1dEXT_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2dEXT_ovr_0(&program: UInt32; location: Int32; x: real; y: real);
-    external 'opengl32.dll' name 'glProgramUniform2dEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dEXT(&program: UInt32; location: Int32; x: real; y: real) :=
+    private z_ProgramUniform2dEXT_adr := GetFuncAdr('glProgramUniform2dEXT');
+    private z_ProgramUniform2dEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2dEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dEXT(&program: gl_program; location: Int32; x: real; y: real) :=
     z_ProgramUniform2dEXT_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3dEXT_ovr_0(&program: UInt32; location: Int32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glProgramUniform3dEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dEXT(&program: UInt32; location: Int32; x: real; y: real; z: real) :=
+    private z_ProgramUniform3dEXT_adr := GetFuncAdr('glProgramUniform3dEXT');
+    private z_ProgramUniform3dEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3dEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dEXT(&program: gl_program; location: Int32; x: real; y: real; z: real) :=
     z_ProgramUniform3dEXT_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4dEXT_ovr_0(&program: UInt32; location: Int32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramUniform4dEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dEXT(&program: UInt32; location: Int32; x: real; y: real; z: real; w: real) :=
+    private z_ProgramUniform4dEXT_adr := GetFuncAdr('glProgramUniform4dEXT');
+    private z_ProgramUniform4dEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4dEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dEXT(&program: gl_program; location: Int32; x: real; y: real; z: real; w: real) :=
     z_ProgramUniform4dEXT_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform1dvEXT';
-    private static procedure z_ProgramUniform1dvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform1dvEXT_adr := GetFuncAdr('glProgramUniform1dvEXT');
+    private z_ProgramUniform1dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform1dvEXT_adr);
+    private z_ProgramUniform1dvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1dvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1dvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform1dvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform1dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1dvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1dvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform2dvEXT';
-    private static procedure z_ProgramUniform2dvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform2dvEXT_adr := GetFuncAdr('glProgramUniform2dvEXT');
+    private z_ProgramUniform2dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform2dvEXT_adr);
+    private z_ProgramUniform2dvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2dvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2dvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform2dvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2dvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2dvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform3dvEXT';
-    private static procedure z_ProgramUniform3dvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform3dvEXT_adr := GetFuncAdr('glProgramUniform3dvEXT');
+    private z_ProgramUniform3dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform3dvEXT_adr);
+    private z_ProgramUniform3dvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3dvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3dvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform3dvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3dvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3dvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: real);
-    external 'opengl32.dll' name 'glProgramUniform4dvEXT';
-    private static procedure z_ProgramUniform4dvEXT_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: UInt32; location: Int32; count: Int32; value: array of real) :=
+    private z_ProgramUniform4dvEXT_adr := GetFuncAdr('glProgramUniform4dvEXT');
+    private z_ProgramUniform4dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniform4dvEXT_adr);
+    private z_ProgramUniform4dvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: gl_program; location: Int32; count: Int32; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4dvEXT_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4dvEXT_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: UInt32; location: Int32; count: Int32; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: gl_program; location: Int32; count: Int32; var value: real) :=
     z_ProgramUniform4dvEXT_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniform4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4dvEXT(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4dvEXT_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniformMatrix2dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dvEXT';
-    private static procedure z_ProgramUniformMatrix2dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2dvEXT_adr := GetFuncAdr('glProgramUniformMatrix2dvEXT');
+    private z_ProgramUniformMatrix2dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2dvEXT_adr);
+    private z_ProgramUniformMatrix2dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dvEXT';
-    private static procedure z_ProgramUniformMatrix3dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3dvEXT_adr := GetFuncAdr('glProgramUniformMatrix3dvEXT');
+    private z_ProgramUniformMatrix3dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3dvEXT_adr);
+    private z_ProgramUniformMatrix3dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dvEXT';
-    private static procedure z_ProgramUniformMatrix4dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4dvEXT_adr := GetFuncAdr('glProgramUniformMatrix4dvEXT');
+    private z_ProgramUniformMatrix4dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4dvEXT_adr);
+    private z_ProgramUniformMatrix4dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x3dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dvEXT';
-    private static procedure z_ProgramUniformMatrix2x3dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x3dvEXT_adr := GetFuncAdr('glProgramUniformMatrix2x3dvEXT');
+    private z_ProgramUniformMatrix2x3dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dvEXT_adr);
+    private z_ProgramUniformMatrix2x3dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x3dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x3dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x3dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x3dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x3dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x3dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix2x4dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dvEXT';
-    private static procedure z_ProgramUniformMatrix2x4dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix2x4dvEXT_adr := GetFuncAdr('glProgramUniformMatrix2x4dvEXT');
+    private z_ProgramUniformMatrix2x4dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dvEXT_adr);
+    private z_ProgramUniformMatrix2x4dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix2x4dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix2x4dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix2x4dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix2x4dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix2x4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix2x4dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix2x4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix2x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix2x4dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x2dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dvEXT';
-    private static procedure z_ProgramUniformMatrix3x2dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x2dvEXT_adr := GetFuncAdr('glProgramUniformMatrix3x2dvEXT');
+    private z_ProgramUniformMatrix3x2dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dvEXT_adr);
+    private z_ProgramUniformMatrix3x2dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x2dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x2dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x2dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x2dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x2dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x2dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix3x4dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dvEXT';
-    private static procedure z_ProgramUniformMatrix3x4dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix3x4dvEXT_adr := GetFuncAdr('glProgramUniformMatrix3x4dvEXT');
+    private z_ProgramUniformMatrix3x4dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dvEXT_adr);
+    private z_ProgramUniformMatrix3x4dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix3x4dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix3x4dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix3x4dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix3x4dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix3x4dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix3x4dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix3x4dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix3x4dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix3x4dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x2dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dvEXT';
-    private static procedure z_ProgramUniformMatrix4x2dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x2dvEXT_adr := GetFuncAdr('glProgramUniformMatrix4x2dvEXT');
+    private z_ProgramUniformMatrix4x2dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dvEXT_adr);
+    private z_ProgramUniformMatrix4x2dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x2dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x2dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x2dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x2dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x2dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x2dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x2dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x2dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x2dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_ProgramUniformMatrix4x3dvEXT_ovr_0(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dvEXT';
-    private static procedure z_ProgramUniformMatrix4x3dvEXT_ovr_0_anh000001(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
+    private z_ProgramUniformMatrix4x3dvEXT_adr := GetFuncAdr('glProgramUniformMatrix4x3dvEXT');
+    private z_ProgramUniformMatrix4x3dvEXT_ovr_0 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dvEXT_adr);
+    private z_ProgramUniformMatrix4x3dvEXT_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: array of real) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformMatrix4x3dvEXT_ovr_0(&program, location, count, transpose, value[0]) else
       z_ProgramUniformMatrix4x3dvEXT_ovr_0_anh000001(&program, location, count, transpose, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; var value: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; var value: real) :=
     z_ProgramUniformMatrix4x3dvEXT_ovr_0(&program, location, count, transpose, value);
-    private static procedure z_ProgramUniformMatrix4x3dvEXT_ovr_2(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformMatrix4x3dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: UInt32; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
+    private z_ProgramUniformMatrix4x3dvEXT_ovr_2 := GetFuncOrNil&(z_ProgramUniformMatrix4x3dvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformMatrix4x3dvEXT(&program: gl_program; location: Int32; count: Int32; transpose: boolean; value: IntPtr) :=
     z_ProgramUniformMatrix4x3dvEXT_ovr_2(&program, location, count, transpose, value);
     
-    private static procedure z_TextureBufferRangeEXT_ovr_0(texture: UInt32; target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glTextureBufferRangeEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRangeEXT(texture: UInt32; target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32; offset: IntPtr; size: IntPtr) :=
+    private z_TextureBufferRangeEXT_adr := GetFuncAdr('glTextureBufferRangeEXT');
+    private z_TextureBufferRangeEXT_ovr_0 := GetFuncOrNil&(z_TextureBufferRangeEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBufferRangeEXT(texture: gl_texture; target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_TextureBufferRangeEXT_ovr_0(texture, target, _internalformat, buffer, offset, size);
     
-    private static procedure z_TextureStorage1DEXT_ovr_0(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32);
-    external 'opengl32.dll' name 'glTextureStorage1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1DEXT(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
+    private z_TextureStorage1DEXT_adr := GetFuncAdr('glTextureStorage1DEXT');
+    private z_TextureStorage1DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorage1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage1DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32) :=
     z_TextureStorage1DEXT_ovr_0(texture, target, levels, _internalformat, width);
     
-    private static procedure z_TextureStorage2DEXT_ovr_0(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glTextureStorage2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DEXT(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
+    private z_TextureStorage2DEXT_adr := GetFuncAdr('glTextureStorage2DEXT');
+    private z_TextureStorage2DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorage2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_TextureStorage2DEXT_ovr_0(texture, target, levels, _internalformat, width, height);
     
-    private static procedure z_TextureStorage3DEXT_ovr_0(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glTextureStorage3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DEXT(texture: UInt32; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
+    private z_TextureStorage3DEXT_adr := GetFuncAdr('glTextureStorage3DEXT');
+    private z_TextureStorage3DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorage3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DEXT(texture: gl_texture; target: DummyEnum; levels: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32) :=
     z_TextureStorage3DEXT_ovr_0(texture, target, levels, _internalformat, width, height, depth);
     
-    private static procedure z_TextureStorage2DMultisampleEXT_ovr_0(texture: UInt32; target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTextureStorage2DMultisampleEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisampleEXT(texture: UInt32; target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage2DMultisampleEXT_adr := GetFuncAdr('glTextureStorage2DMultisampleEXT');
+    private z_TextureStorage2DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TextureStorage2DMultisampleEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage2DMultisampleEXT(texture: gl_texture; target: TextureTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage2DMultisampleEXT_ovr_0(texture, target, samples, _internalformat, width, height, fixedsamplelocations);
     
-    private static procedure z_TextureStorage3DMultisampleEXT_ovr_0(texture: UInt32; target: DummyEnum; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glTextureStorage3DMultisampleEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisampleEXT(texture: UInt32; target: DummyEnum; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
+    private z_TextureStorage3DMultisampleEXT_adr := GetFuncAdr('glTextureStorage3DMultisampleEXT');
+    private z_TextureStorage3DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TextureStorage3DMultisampleEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorage3DMultisampleEXT(texture: gl_texture; target: DummyEnum; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; fixedsamplelocations: boolean) :=
     z_TextureStorage3DMultisampleEXT_ovr_0(texture, target, samples, _internalformat, width, height, depth, fixedsamplelocations);
     
-    private static procedure z_VertexArrayBindVertexBufferEXT_ovr_0(vaobj: UInt32; bindingindex: UInt32; buffer: UInt32; offset: IntPtr; stride: Int32);
-    external 'opengl32.dll' name 'glVertexArrayBindVertexBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindVertexBufferEXT(vaobj: UInt32; bindingindex: UInt32; buffer: UInt32; offset: IntPtr; stride: Int32) :=
+    private z_VertexArrayBindVertexBufferEXT_adr := GetFuncAdr('glVertexArrayBindVertexBufferEXT');
+    private z_VertexArrayBindVertexBufferEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayBindVertexBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayBindVertexBufferEXT(vaobj: gl_vertex_array; bindingindex: UInt32; buffer: gl_buffer; offset: IntPtr; stride: Int32) :=
     z_VertexArrayBindVertexBufferEXT_ovr_0(vaobj, bindingindex, buffer, offset, stride);
     
-    private static procedure z_VertexArrayVertexAttribFormatEXT_ovr_0(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribFormatEXT(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
+    private z_VertexArrayVertexAttribFormatEXT_adr := GetFuncAdr('glVertexArrayVertexAttribFormatEXT');
+    private z_VertexArrayVertexAttribFormatEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribFormatEXT(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; relativeoffset: UInt32) :=
     z_VertexArrayVertexAttribFormatEXT_ovr_0(vaobj, attribindex, size, &type, normalized, relativeoffset);
     
-    private static procedure z_VertexArrayVertexAttribIFormatEXT_ovr_0(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribIFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribIFormatEXT(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
+    private z_VertexArrayVertexAttribIFormatEXT_adr := GetFuncAdr('glVertexArrayVertexAttribIFormatEXT');
+    private z_VertexArrayVertexAttribIFormatEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribIFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribIFormatEXT(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribIType; relativeoffset: UInt32) :=
     z_VertexArrayVertexAttribIFormatEXT_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexArrayVertexAttribLFormatEXT_ovr_0(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribLFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribLFormatEXT(vaobj: UInt32; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
+    private z_VertexArrayVertexAttribLFormatEXT_adr := GetFuncAdr('glVertexArrayVertexAttribLFormatEXT');
+    private z_VertexArrayVertexAttribLFormatEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribLFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribLFormatEXT(vaobj: gl_vertex_array; attribindex: UInt32; size: Int32; &type: VertexAttribLType; relativeoffset: UInt32) :=
     z_VertexArrayVertexAttribLFormatEXT_ovr_0(vaobj, attribindex, size, &type, relativeoffset);
     
-    private static procedure z_VertexArrayVertexAttribBindingEXT_ovr_0(vaobj: UInt32; attribindex: UInt32; bindingindex: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribBindingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribBindingEXT(vaobj: UInt32; attribindex: UInt32; bindingindex: UInt32) :=
+    private z_VertexArrayVertexAttribBindingEXT_adr := GetFuncAdr('glVertexArrayVertexAttribBindingEXT');
+    private z_VertexArrayVertexAttribBindingEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribBindingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribBindingEXT(vaobj: gl_vertex_array; attribindex: UInt32; bindingindex: UInt32) :=
     z_VertexArrayVertexAttribBindingEXT_ovr_0(vaobj, attribindex, bindingindex);
     
-    private static procedure z_VertexArrayVertexBindingDivisorEXT_ovr_0(vaobj: UInt32; bindingindex: UInt32; divisor: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexBindingDivisorEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBindingDivisorEXT(vaobj: UInt32; bindingindex: UInt32; divisor: UInt32) :=
+    private z_VertexArrayVertexBindingDivisorEXT_adr := GetFuncAdr('glVertexArrayVertexBindingDivisorEXT');
+    private z_VertexArrayVertexBindingDivisorEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexBindingDivisorEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexBindingDivisorEXT(vaobj: gl_vertex_array; bindingindex: UInt32; divisor: UInt32) :=
     z_VertexArrayVertexBindingDivisorEXT_ovr_0(vaobj, bindingindex, divisor);
     
-    private static procedure z_VertexArrayVertexAttribLOffsetEXT_ovr_0(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; offset: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribLOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribLOffsetEXT(vaobj: UInt32; buffer: UInt32; index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; offset: IntPtr) :=
+    private z_VertexArrayVertexAttribLOffsetEXT_adr := GetFuncAdr('glVertexArrayVertexAttribLOffsetEXT');
+    private z_VertexArrayVertexAttribLOffsetEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribLOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribLOffsetEXT(vaobj: gl_vertex_array; buffer: gl_buffer; index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; offset: IntPtr) :=
     z_VertexArrayVertexAttribLOffsetEXT_ovr_0(vaobj, buffer, index, size, &type, stride, offset);
     
-    private static procedure z_TexturePageCommitmentEXT_ovr_0(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; commit: boolean);
-    external 'opengl32.dll' name 'glTexturePageCommitmentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexturePageCommitmentEXT(texture: UInt32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; commit: boolean) :=
+    private z_TexturePageCommitmentEXT_adr := GetFuncAdr('glTexturePageCommitmentEXT');
+    private z_TexturePageCommitmentEXT_ovr_0 := GetFuncOrNil&(z_TexturePageCommitmentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexturePageCommitmentEXT(texture: gl_texture; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; commit: boolean) :=
     z_TexturePageCommitmentEXT_ovr_0(texture, level, xoffset, yoffset, zoffset, width, height, depth, commit);
     
-    private static procedure z_VertexArrayVertexAttribDivisorEXT_ovr_0(vaobj: UInt32; index: UInt32; divisor: UInt32);
-    external 'opengl32.dll' name 'glVertexArrayVertexAttribDivisorEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribDivisorEXT(vaobj: UInt32; index: UInt32; divisor: UInt32) :=
+    private z_VertexArrayVertexAttribDivisorEXT_adr := GetFuncAdr('glVertexArrayVertexAttribDivisorEXT');
+    private z_VertexArrayVertexAttribDivisorEXT_ovr_0 := GetFuncOrNil&(z_VertexArrayVertexAttribDivisorEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayVertexAttribDivisorEXT(vaobj: gl_vertex_array; index: UInt32; divisor: UInt32) :=
     z_VertexArrayVertexAttribDivisorEXT_ovr_0(vaobj, index, divisor);
     
   end;
   
   [PCUNotRestore]
-  glDrawBuffers2EXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawBuffers2EXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_draw_buffers2';
     
-    private static procedure z_ColorMaskIndexedEXT_ovr_0(index: UInt32; r: boolean; g: boolean; b: boolean; a: boolean);
-    external 'opengl32.dll' name 'glColorMaskIndexedEXT';
+    private z_ColorMaskIndexedEXT_adr := GetFuncAdr('glColorMaskIndexedEXT');
+    private z_ColorMaskIndexedEXT_ovr_0 := GetFuncOrNil&(z_ColorMaskIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorMaskIndexedEXT(index: UInt32; r: boolean; g: boolean; b: boolean; a: boolean) :=
     z_ColorMaskIndexedEXT_ovr_0(index, r, g, b, a);
     
-    private static procedure z_GetBooleanIndexedvEXT_ovr_0(target: BufferTargetARB; index: UInt32; var data: boolean);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
-    private static procedure z_GetBooleanIndexedvEXT_ovr_0_anh0001(target: BufferTargetARB; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
+    private z_GetBooleanIndexedvEXT_adr := GetFuncAdr('glGetBooleanIndexedvEXT');
+    private z_GetBooleanIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
+    private z_GetBooleanIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetBooleanIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetBooleanIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; var data: boolean) :=
     z_GetBooleanIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetBooleanIndexedvEXT_ovr_2(target: BufferTargetARB; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetBooleanIndexedvEXT';
+    private z_GetBooleanIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetBooleanIndexedvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBooleanIndexedvEXT(target: BufferTargetARB; index: UInt32; data: IntPtr) :=
     z_GetBooleanIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_GetIntegerIndexedvEXT_ovr_0(target: DummyEnum; index: UInt32; var data: Int32);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    private static procedure z_GetIntegerIndexedvEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; data: array of Int32) :=
+    private z_GetIntegerIndexedvEXT_adr := GetFuncAdr('glGetIntegerIndexedvEXT');
+    private z_GetIntegerIndexedvEXT_ovr_0 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    private z_GetIntegerIndexedvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetIntegerIndexedvEXT_ovr_0(target, index, data[0]) else
       z_GetIntegerIndexedvEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; var data: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; var data: Int32) :=
     z_GetIntegerIndexedvEXT_ovr_0(target, index, data);
-    private static procedure z_GetIntegerIndexedvEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerIndexedvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
+    private z_GetIntegerIndexedvEXT_ovr_2 := GetFuncOrNil&(z_GetIntegerIndexedvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerIndexedvEXT(target: GetPName; index: UInt32; data: IntPtr) :=
     z_GetIntegerIndexedvEXT_ovr_2(target, index, data);
     
-    private static procedure z_EnableIndexedEXT_ovr_0(target: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glEnableIndexedEXT';
+    private z_EnableIndexedEXT_adr := GetFuncAdr('glEnableIndexedEXT');
+    private z_EnableIndexedEXT_ovr_0 := GetFuncOrNil&(z_EnableIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableIndexedEXT(target: EnableCap; index: UInt32) :=
     z_EnableIndexedEXT_ovr_0(target, index);
     
-    private static procedure z_DisableIndexedEXT_ovr_0(target: EnableCap; index: UInt32);
-    external 'opengl32.dll' name 'glDisableIndexedEXT';
+    private z_DisableIndexedEXT_adr := GetFuncAdr('glDisableIndexedEXT');
+    private z_DisableIndexedEXT_ovr_0 := GetFuncOrNil&(z_DisableIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableIndexedEXT(target: EnableCap; index: UInt32) :=
     z_DisableIndexedEXT_ovr_0(target, index);
     
-    private static function z_IsEnabledIndexedEXT_ovr_0(target: EnableCap; index: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsEnabledIndexedEXT';
+    private z_IsEnabledIndexedEXT_adr := GetFuncAdr('glIsEnabledIndexedEXT');
+    private z_IsEnabledIndexedEXT_ovr_0 := GetFuncOrNil&(z_IsEnabledIndexedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledIndexedEXT(target: EnableCap; index: UInt32): boolean :=
     z_IsEnabledIndexedEXT_ovr_0(target, index);
     
   end;
   
   [PCUNotRestore]
-  glDrawInstancedEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawInstancedEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_draw_instanced';
     
-    private static procedure z_DrawArraysInstancedEXT_ovr_0(mode: PrimitiveType; start: Int32; count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glDrawArraysInstancedEXT';
+    private z_DrawArraysInstancedEXT_adr := GetFuncAdr('glDrawArraysInstancedEXT');
+    private z_DrawArraysInstancedEXT_ovr_0 := GetFuncOrNil&(z_DrawArraysInstancedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArraysInstancedEXT(mode: PrimitiveType; start: Int32; count: Int32; primcount: Int32) :=
     z_DrawArraysInstancedEXT_ovr_0(mode, start, count, primcount);
     
-    private static procedure z_DrawElementsInstancedEXT_ovr_0(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glDrawElementsInstancedEXT';
+    private z_DrawElementsInstancedEXT_adr := GetFuncAdr('glDrawElementsInstancedEXT');
+    private z_DrawElementsInstancedEXT_ovr_0 := GetFuncOrNil&(z_DrawElementsInstancedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawElementsInstancedEXT(mode: PrimitiveType; count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32) :=
     z_DrawElementsInstancedEXT_ovr_0(mode, count, &type, indices, primcount);
     
   end;
   
   [PCUNotRestore]
-  glDrawRangeElementsEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawRangeElementsEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_draw_range_elements';
     
-    private static procedure z_DrawRangeElementsEXT_ovr_0(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32; &type: DrawElementsType; indices: IntPtr);
-    external 'opengl32.dll' name 'glDrawRangeElementsEXT';
+    private z_DrawRangeElementsEXT_adr := GetFuncAdr('glDrawRangeElementsEXT');
+    private z_DrawRangeElementsEXT_ovr_0 := GetFuncOrNil&(z_DrawRangeElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawRangeElementsEXT(mode: PrimitiveType; start: UInt32; &end: UInt32; count: Int32; &type: DrawElementsType; indices: IntPtr) :=
     z_DrawRangeElementsEXT_ovr_0(mode, start, &end, count, &type, indices);
     
   end;
   
   [PCUNotRestore]
-  glExternalBufferEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glExternalBufferEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_external_buffer';
     
-    private static procedure z_BufferStorageExternalEXT_ovr_0(target: DummyEnum; offset: IntPtr; size: IntPtr; clientBuffer: GLeglClientBufferEXT; flags: BufferStorageMask);
-    external 'opengl32.dll' name 'glBufferStorageExternalEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferStorageExternalEXT(target: DummyEnum; offset: IntPtr; size: IntPtr; clientBuffer: GLeglClientBufferEXT; flags: BufferStorageMask) :=
+    private z_BufferStorageExternalEXT_adr := GetFuncAdr('glBufferStorageExternalEXT');
+    private z_BufferStorageExternalEXT_ovr_0 := GetFuncOrNil&(z_BufferStorageExternalEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferStorageExternalEXT(target: DummyEnum; offset: IntPtr; size: IntPtr; clientBuffer: egl_chient_buffer_EXT; flags: BufferStorageMask) :=
     z_BufferStorageExternalEXT_ovr_0(target, offset, size, clientBuffer, flags);
     
-    private static procedure z_NamedBufferStorageExternalEXT_ovr_0(buffer: UInt32; offset: IntPtr; size: IntPtr; clientBuffer: GLeglClientBufferEXT; flags: BufferStorageMask);
-    external 'opengl32.dll' name 'glNamedBufferStorageExternalEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageExternalEXT(buffer: UInt32; offset: IntPtr; size: IntPtr; clientBuffer: GLeglClientBufferEXT; flags: BufferStorageMask) :=
+    private z_NamedBufferStorageExternalEXT_adr := GetFuncAdr('glNamedBufferStorageExternalEXT');
+    private z_NamedBufferStorageExternalEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferStorageExternalEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageExternalEXT(buffer: gl_buffer; offset: IntPtr; size: IntPtr; clientBuffer: egl_chient_buffer_EXT; flags: BufferStorageMask) :=
     z_NamedBufferStorageExternalEXT_ovr_0(buffer, offset, size, clientBuffer, flags);
     
   end;
   
   [PCUNotRestore]
-  glFogCoordEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFogCoordEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_fog_coord';
     
-    private static procedure z_FogCoordfEXT_ovr_0(coord: single);
-    external 'opengl32.dll' name 'glFogCoordfEXT';
+    private z_FogCoordfEXT_adr := GetFuncAdr('glFogCoordfEXT');
+    private z_FogCoordfEXT_ovr_0 := GetFuncOrNil&(z_FogCoordfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfEXT(coord: single) :=
     z_FogCoordfEXT_ovr_0(coord);
     
-    private static procedure z_FogCoordfvEXT_ovr_0(var coord: single);
-    external 'opengl32.dll' name 'glFogCoordfvEXT';
-    private static procedure z_FogCoordfvEXT_ovr_0_anh01(coord: IntPtr);
-    external 'opengl32.dll' name 'glFogCoordfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfvEXT(coord: array of single) :=
-    if (coord<>nil) and (coord.Length<>0) then
-      z_FogCoordfvEXT_ovr_0(coord[0]) else
-      z_FogCoordfvEXT_ovr_0_anh01(IntPtr.Zero);
+    private z_FogCoordfvEXT_adr := GetFuncAdr('glFogCoordfvEXT');
+    private z_FogCoordfvEXT_ovr_0 := GetFuncOrNil&(z_FogCoordfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfvEXT(var coord: single) :=
     z_FogCoordfvEXT_ovr_0(coord);
-    private static procedure z_FogCoordfvEXT_ovr_2(coord: IntPtr);
-    external 'opengl32.dll' name 'glFogCoordfvEXT';
+    private z_FogCoordfvEXT_ovr_1 := GetFuncOrNil&(z_FogCoordfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordfvEXT(coord: IntPtr) :=
-    z_FogCoordfvEXT_ovr_2(coord);
+    z_FogCoordfvEXT_ovr_1(coord);
     
-    private static procedure z_FogCoorddEXT_ovr_0(coord: real);
-    external 'opengl32.dll' name 'glFogCoorddEXT';
+    private z_FogCoorddEXT_adr := GetFuncAdr('glFogCoorddEXT');
+    private z_FogCoorddEXT_ovr_0 := GetFuncOrNil&(z_FogCoorddEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddEXT(coord: real) :=
     z_FogCoorddEXT_ovr_0(coord);
     
-    private static procedure z_FogCoorddvEXT_ovr_0(var coord: real);
-    external 'opengl32.dll' name 'glFogCoorddvEXT';
-    private static procedure z_FogCoorddvEXT_ovr_0_anh01(coord: IntPtr);
-    external 'opengl32.dll' name 'glFogCoorddvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddvEXT(coord: array of real) :=
-    if (coord<>nil) and (coord.Length<>0) then
-      z_FogCoorddvEXT_ovr_0(coord[0]) else
-      z_FogCoorddvEXT_ovr_0_anh01(IntPtr.Zero);
+    private z_FogCoorddvEXT_adr := GetFuncAdr('glFogCoorddvEXT');
+    private z_FogCoorddvEXT_ovr_0 := GetFuncOrNil&(z_FogCoorddvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddvEXT(var coord: real) :=
     z_FogCoorddvEXT_ovr_0(coord);
-    private static procedure z_FogCoorddvEXT_ovr_2(coord: IntPtr);
-    external 'opengl32.dll' name 'glFogCoorddvEXT';
+    private z_FogCoorddvEXT_ovr_1 := GetFuncOrNil&(z_FogCoorddvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoorddvEXT(coord: IntPtr) :=
-    z_FogCoorddvEXT_ovr_2(coord);
+    z_FogCoorddvEXT_ovr_1(coord);
     
-    private static procedure z_FogCoordPointerEXT_ovr_0(&type: FogPointerTypeEXT; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glFogCoordPointerEXT';
+    private z_FogCoordPointerEXT_adr := GetFuncAdr('glFogCoordPointerEXT');
+    private z_FogCoordPointerEXT_ovr_0 := GetFuncOrNil&(z_FogCoordPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordPointerEXT(&type: FogPointerTypeEXT; stride: Int32; pointer: IntPtr) :=
     z_FogCoordPointerEXT_ovr_0(&type, stride, pointer);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferBlitEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferBlitEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_framebuffer_blit';
     
-    private static procedure z_BlitFramebufferEXT_ovr_0(srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter);
-    external 'opengl32.dll' name 'glBlitFramebufferEXT';
+    private z_BlitFramebufferEXT_adr := GetFuncAdr('glBlitFramebufferEXT');
+    private z_BlitFramebufferEXT_ovr_0 := GetFuncOrNil&(z_BlitFramebufferEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitFramebufferEXT(srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: BlitFramebufferFilter) :=
     z_BlitFramebufferEXT_ovr_0(srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferMultisampleEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferMultisampleEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_framebuffer_multisample';
     
-    private static procedure z_RenderbufferStorageMultisampleEXT_ovr_0(target: RenderbufferTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorageMultisampleEXT';
+    private z_RenderbufferStorageMultisampleEXT_adr := GetFuncAdr('glRenderbufferStorageMultisampleEXT');
+    private z_RenderbufferStorageMultisampleEXT_ovr_0 := GetFuncOrNil&(z_RenderbufferStorageMultisampleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorageMultisampleEXT(target: RenderbufferTarget; samples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorageMultisampleEXT_ovr_0(target, samples, _internalformat, width, height);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferObjectEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferObjectEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_framebuffer_object';
     
-    private static function z_IsRenderbufferEXT_ovr_0(renderbuffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbufferEXT(renderbuffer: UInt32): boolean :=
+    private z_IsRenderbufferEXT_adr := GetFuncAdr('glIsRenderbufferEXT');
+    private z_IsRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_IsRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsRenderbufferEXT(renderbuffer: gl_renderbuffer): boolean :=
     z_IsRenderbufferEXT_ovr_0(renderbuffer);
     
-    private static procedure z_BindRenderbufferEXT_ovr_0(target: RenderbufferTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glBindRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbufferEXT(target: RenderbufferTarget; renderbuffer: UInt32) :=
+    private z_BindRenderbufferEXT_adr := GetFuncAdr('glBindRenderbufferEXT');
+    private z_BindRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_BindRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindRenderbufferEXT(target: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_BindRenderbufferEXT_ovr_0(target, renderbuffer);
     
-    private static procedure z_DeleteRenderbuffersEXT_ovr_0(n: Int32; var renderbuffers: UInt32);
-    external 'opengl32.dll' name 'glDeleteRenderbuffersEXT';
-    private static procedure z_DeleteRenderbuffersEXT_ovr_0_anh001(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteRenderbuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffersEXT(n: Int32; renderbuffers: array of UInt32) :=
+    private z_DeleteRenderbuffersEXT_adr := GetFuncAdr('glDeleteRenderbuffersEXT');
+    private z_DeleteRenderbuffersEXT_ovr_0 := GetFuncOrNil&(z_DeleteRenderbuffersEXT_adr);
+    private z_DeleteRenderbuffersEXT_ovr_0_anh001 := GetFuncOrNil&(z_DeleteRenderbuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffersEXT(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_DeleteRenderbuffersEXT_ovr_0(n, renderbuffers[0]) else
       z_DeleteRenderbuffersEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffersEXT(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffersEXT(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_DeleteRenderbuffersEXT_ovr_0(n, renderbuffers);
-    private static procedure z_DeleteRenderbuffersEXT_ovr_2(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteRenderbuffersEXT';
+    private z_DeleteRenderbuffersEXT_ovr_2 := GetFuncOrNil&(z_DeleteRenderbuffersEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteRenderbuffersEXT(n: Int32; renderbuffers: IntPtr) :=
     z_DeleteRenderbuffersEXT_ovr_2(n, renderbuffers);
     
-    private static procedure z_GenRenderbuffersEXT_ovr_0(n: Int32; var renderbuffers: UInt32);
-    external 'opengl32.dll' name 'glGenRenderbuffersEXT';
-    private static procedure z_GenRenderbuffersEXT_ovr_0_anh001(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenRenderbuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffersEXT(n: Int32; renderbuffers: array of UInt32) :=
+    private z_GenRenderbuffersEXT_adr := GetFuncAdr('glGenRenderbuffersEXT');
+    private z_GenRenderbuffersEXT_ovr_0 := GetFuncOrNil&(z_GenRenderbuffersEXT_adr);
+    private z_GenRenderbuffersEXT_ovr_0_anh001 := GetFuncOrNil&(z_GenRenderbuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffersEXT(n: Int32; renderbuffers: array of gl_renderbuffer) :=
     if (renderbuffers<>nil) and (renderbuffers.Length<>0) then
       z_GenRenderbuffersEXT_ovr_0(n, renderbuffers[0]) else
       z_GenRenderbuffersEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffersEXT(n: Int32; var renderbuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffersEXT(n: Int32; var renderbuffers: gl_renderbuffer) :=
     z_GenRenderbuffersEXT_ovr_0(n, renderbuffers);
-    private static procedure z_GenRenderbuffersEXT_ovr_2(n: Int32; renderbuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenRenderbuffersEXT';
+    private z_GenRenderbuffersEXT_ovr_2 := GetFuncOrNil&(z_GenRenderbuffersEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenRenderbuffersEXT(n: Int32; renderbuffers: IntPtr) :=
     z_GenRenderbuffersEXT_ovr_2(n, renderbuffers);
     
-    private static procedure z_RenderbufferStorageEXT_ovr_0(target: RenderbufferTarget; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorageEXT';
+    private z_RenderbufferStorageEXT_adr := GetFuncAdr('glRenderbufferStorageEXT');
+    private z_RenderbufferStorageEXT_ovr_0 := GetFuncOrNil&(z_RenderbufferStorageEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorageEXT(target: RenderbufferTarget; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorageEXT_ovr_0(target, _internalformat, width, height);
     
-    private static procedure z_GetRenderbufferParameterivEXT_ovr_0(target: RenderbufferTarget; pname: RenderbufferParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetRenderbufferParameterivEXT';
-    private static procedure z_GetRenderbufferParameterivEXT_ovr_0_anh0001(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetRenderbufferParameterivEXT';
+    private z_GetRenderbufferParameterivEXT_adr := GetFuncAdr('glGetRenderbufferParameterivEXT');
+    private z_GetRenderbufferParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetRenderbufferParameterivEXT_adr);
+    private z_GetRenderbufferParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetRenderbufferParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameterivEXT(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetRenderbufferParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetRenderbufferParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameterivEXT(target: RenderbufferTarget; pname: RenderbufferParameterName; var ¶ms: Int32) :=
     z_GetRenderbufferParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetRenderbufferParameterivEXT_ovr_2(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetRenderbufferParameterivEXT';
+    private z_GetRenderbufferParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetRenderbufferParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetRenderbufferParameterivEXT(target: RenderbufferTarget; pname: RenderbufferParameterName; ¶ms: IntPtr) :=
     z_GetRenderbufferParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static function z_IsFramebufferEXT_ovr_0(framebuffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsFramebufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebufferEXT(framebuffer: UInt32): boolean :=
+    private z_IsFramebufferEXT_adr := GetFuncAdr('glIsFramebufferEXT');
+    private z_IsFramebufferEXT_ovr_0 := GetFuncOrNil&(z_IsFramebufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFramebufferEXT(framebuffer: gl_framebuffer): boolean :=
     z_IsFramebufferEXT_ovr_0(framebuffer);
     
-    private static procedure z_BindFramebufferEXT_ovr_0(target: FramebufferTarget; framebuffer: UInt32);
-    external 'opengl32.dll' name 'glBindFramebufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebufferEXT(target: FramebufferTarget; framebuffer: UInt32) :=
+    private z_BindFramebufferEXT_adr := GetFuncAdr('glBindFramebufferEXT');
+    private z_BindFramebufferEXT_ovr_0 := GetFuncOrNil&(z_BindFramebufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFramebufferEXT(target: FramebufferTarget; framebuffer: gl_framebuffer) :=
     z_BindFramebufferEXT_ovr_0(target, framebuffer);
     
-    private static procedure z_DeleteFramebuffersEXT_ovr_0(n: Int32; var framebuffers: UInt32);
-    external 'opengl32.dll' name 'glDeleteFramebuffersEXT';
-    private static procedure z_DeleteFramebuffersEXT_ovr_0_anh001(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFramebuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffersEXT(n: Int32; framebuffers: array of UInt32) :=
+    private z_DeleteFramebuffersEXT_adr := GetFuncAdr('glDeleteFramebuffersEXT');
+    private z_DeleteFramebuffersEXT_ovr_0 := GetFuncOrNil&(z_DeleteFramebuffersEXT_adr);
+    private z_DeleteFramebuffersEXT_ovr_0_anh001 := GetFuncOrNil&(z_DeleteFramebuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffersEXT(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_DeleteFramebuffersEXT_ovr_0(n, framebuffers[0]) else
       z_DeleteFramebuffersEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffersEXT(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffersEXT(n: Int32; var framebuffers: gl_framebuffer) :=
     z_DeleteFramebuffersEXT_ovr_0(n, framebuffers);
-    private static procedure z_DeleteFramebuffersEXT_ovr_2(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFramebuffersEXT';
+    private z_DeleteFramebuffersEXT_ovr_2 := GetFuncOrNil&(z_DeleteFramebuffersEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFramebuffersEXT(n: Int32; framebuffers: IntPtr) :=
     z_DeleteFramebuffersEXT_ovr_2(n, framebuffers);
     
-    private static procedure z_GenFramebuffersEXT_ovr_0(n: Int32; var framebuffers: UInt32);
-    external 'opengl32.dll' name 'glGenFramebuffersEXT';
-    private static procedure z_GenFramebuffersEXT_ovr_0_anh001(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenFramebuffersEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffersEXT(n: Int32; framebuffers: array of UInt32) :=
+    private z_GenFramebuffersEXT_adr := GetFuncAdr('glGenFramebuffersEXT');
+    private z_GenFramebuffersEXT_ovr_0 := GetFuncOrNil&(z_GenFramebuffersEXT_adr);
+    private z_GenFramebuffersEXT_ovr_0_anh001 := GetFuncOrNil&(z_GenFramebuffersEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffersEXT(n: Int32; framebuffers: array of gl_framebuffer) :=
     if (framebuffers<>nil) and (framebuffers.Length<>0) then
       z_GenFramebuffersEXT_ovr_0(n, framebuffers[0]) else
       z_GenFramebuffersEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffersEXT(n: Int32; var framebuffers: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffersEXT(n: Int32; var framebuffers: gl_framebuffer) :=
     z_GenFramebuffersEXT_ovr_0(n, framebuffers);
-    private static procedure z_GenFramebuffersEXT_ovr_2(n: Int32; framebuffers: IntPtr);
-    external 'opengl32.dll' name 'glGenFramebuffersEXT';
+    private z_GenFramebuffersEXT_ovr_2 := GetFuncOrNil&(z_GenFramebuffersEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFramebuffersEXT(n: Int32; framebuffers: IntPtr) :=
     z_GenFramebuffersEXT_ovr_2(n, framebuffers);
     
-    private static function z_CheckFramebufferStatusEXT_ovr_0(target: FramebufferTarget): FramebufferStatus;
-    external 'opengl32.dll' name 'glCheckFramebufferStatusEXT';
+    private z_CheckFramebufferStatusEXT_adr := GetFuncAdr('glCheckFramebufferStatusEXT');
+    private z_CheckFramebufferStatusEXT_ovr_0 := GetFuncOrNil&(z_CheckFramebufferStatusEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CheckFramebufferStatusEXT(target: FramebufferTarget): FramebufferStatus :=
     z_CheckFramebufferStatusEXT_ovr_0(target);
     
-    private static procedure z_FramebufferTexture1DEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture1DEXT_adr := GetFuncAdr('glFramebufferTexture1DEXT');
+    private z_FramebufferTexture1DEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTexture1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture1DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture1DEXT_ovr_0(target, attachment, textarget, texture, level);
     
-    private static procedure z_FramebufferTexture2DEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32) :=
+    private z_FramebufferTexture2DEXT_adr := GetFuncAdr('glFramebufferTexture2DEXT');
+    private z_FramebufferTexture2DEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTexture2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture2DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32) :=
     z_FramebufferTexture2DEXT_ovr_0(target, attachment, textarget, texture, level);
     
-    private static procedure z_FramebufferTexture3DEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32);
-    external 'opengl32.dll' name 'glFramebufferTexture3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: UInt32; level: Int32; zoffset: Int32) :=
+    private z_FramebufferTexture3DEXT_adr := GetFuncAdr('glFramebufferTexture3DEXT');
+    private z_FramebufferTexture3DEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTexture3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTexture3DEXT(target: FramebufferTarget; attachment: FramebufferAttachment; textarget: TextureTarget; texture: gl_texture; level: Int32; zoffset: Int32) :=
     z_FramebufferTexture3DEXT_ovr_0(target, attachment, textarget, texture, level, zoffset);
     
-    private static procedure z_FramebufferRenderbufferEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glFramebufferRenderbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbufferEXT(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: UInt32) :=
+    private z_FramebufferRenderbufferEXT_adr := GetFuncAdr('glFramebufferRenderbufferEXT');
+    private z_FramebufferRenderbufferEXT_ovr_0 := GetFuncOrNil&(z_FramebufferRenderbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferRenderbufferEXT(target: FramebufferTarget; attachment: FramebufferAttachment; _renderbuffertarget: RenderbufferTarget; renderbuffer: gl_renderbuffer) :=
     z_FramebufferRenderbufferEXT_ovr_0(target, attachment, _renderbuffertarget, renderbuffer);
     
-    private static procedure z_GetFramebufferAttachmentParameterivEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameterivEXT';
-    private static procedure z_GetFramebufferAttachmentParameterivEXT_ovr_0_anh00001(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameterivEXT';
+    private z_GetFramebufferAttachmentParameterivEXT_adr := GetFuncAdr('glGetFramebufferAttachmentParameterivEXT');
+    private z_GetFramebufferAttachmentParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetFramebufferAttachmentParameterivEXT_adr);
+    private z_GetFramebufferAttachmentParameterivEXT_ovr_0_anh00001 := GetFuncOrNil&(z_GetFramebufferAttachmentParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameterivEXT(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFramebufferAttachmentParameterivEXT_ovr_0(target, attachment, pname, ¶ms[0]) else
       z_GetFramebufferAttachmentParameterivEXT_ovr_0_anh00001(target, attachment, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameterivEXT(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetFramebufferAttachmentParameterivEXT_ovr_0(target, attachment, pname, ¶ms);
-    private static procedure z_GetFramebufferAttachmentParameterivEXT_ovr_2(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferAttachmentParameterivEXT';
+    private z_GetFramebufferAttachmentParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetFramebufferAttachmentParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferAttachmentParameterivEXT(target: FramebufferTarget; attachment: FramebufferAttachment; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetFramebufferAttachmentParameterivEXT_ovr_2(target, attachment, pname, ¶ms);
     
-    private static procedure z_GenerateMipmapEXT_ovr_0(target: TextureTarget);
-    external 'opengl32.dll' name 'glGenerateMipmapEXT';
+    private z_GenerateMipmapEXT_adr := GetFuncAdr('glGenerateMipmapEXT');
+    private z_GenerateMipmapEXT_ovr_0 := GetFuncOrNil&(z_GenerateMipmapEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenerateMipmapEXT(target: TextureTarget) :=
     z_GenerateMipmapEXT_ovr_0(target);
     
   end;
   
   [PCUNotRestore]
-  glGeometryShader4EXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGeometryShader4EXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_geometry_shader4';
     
-    private static procedure z_ProgramParameteriEXT_ovr_0(&program: UInt32; pname: ProgramParameterPName; value: Int32);
-    external 'opengl32.dll' name 'glProgramParameteriEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteriEXT(&program: UInt32; pname: ProgramParameterPName; value: Int32) :=
+    private z_ProgramParameteriEXT_adr := GetFuncAdr('glProgramParameteriEXT');
+    private z_ProgramParameteriEXT_ovr_0 := GetFuncOrNil&(z_ProgramParameteriEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameteriEXT(&program: gl_program; pname: ProgramParameterPName; value: Int32) :=
     z_ProgramParameteriEXT_ovr_0(&program, pname, value);
     
   end;
   
   [PCUNotRestore]
-  glGpuProgramParametersEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuProgramParametersEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_gpu_program_parameters';
     
-    private static procedure z_ProgramEnvParameters4fvEXT_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramEnvParameters4fvEXT';
-    private static procedure z_ProgramEnvParameters4fvEXT_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameters4fvEXT';
+    private z_ProgramEnvParameters4fvEXT_adr := GetFuncAdr('glProgramEnvParameters4fvEXT');
+    private z_ProgramEnvParameters4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameters4fvEXT_adr);
+    private z_ProgramEnvParameters4fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramEnvParameters4fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameters4fvEXT_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramEnvParameters4fvEXT_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single) :=
     z_ProgramEnvParameters4fvEXT_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramEnvParameters4fvEXT_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameters4fvEXT';
+    private z_ProgramEnvParameters4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameters4fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramEnvParameters4fvEXT_ovr_2(target, index, count, ¶ms);
     
-    private static procedure z_ProgramLocalParameters4fvEXT_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramLocalParameters4fvEXT';
-    private static procedure z_ProgramLocalParameters4fvEXT_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameters4fvEXT';
+    private z_ProgramLocalParameters4fvEXT_adr := GetFuncAdr('glProgramLocalParameters4fvEXT');
+    private z_ProgramLocalParameters4fvEXT_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameters4fvEXT_adr);
+    private z_ProgramLocalParameters4fvEXT_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramLocalParameters4fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameters4fvEXT_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramLocalParameters4fvEXT_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: single) :=
     z_ProgramLocalParameters4fvEXT_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramLocalParameters4fvEXT_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameters4fvEXT';
+    private z_ProgramLocalParameters4fvEXT_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameters4fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameters4fvEXT(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramLocalParameters4fvEXT_ovr_2(target, index, count, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glGpuShader4EXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuShader4EXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_gpu_shader4';
     
-    private static procedure z_GetUniformuivEXT_ovr_0(&program: UInt32; location: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetUniformuivEXT';
-    private static procedure z_GetUniformuivEXT_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: UInt32; location: Int32; ¶ms: array of UInt32) :=
+    private z_GetUniformuivEXT_adr := GetFuncAdr('glGetUniformuivEXT');
+    private z_GetUniformuivEXT_ovr_0 := GetFuncOrNil&(z_GetUniformuivEXT_adr);
+    private z_GetUniformuivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: gl_program; location: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformuivEXT_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformuivEXT_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: UInt32; location: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: gl_program; location: Int32; var ¶ms: UInt32) :=
     z_GetUniformuivEXT_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformuivEXT_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformuivEXT_ovr_2 := GetFuncOrNil&(z_GetUniformuivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformuivEXT(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformuivEXT_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_BindFragDataLocationEXT_ovr_0(&program: UInt32; color: UInt32; name: IntPtr);
-    external 'opengl32.dll' name 'glBindFragDataLocationEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationEXT(&program: UInt32; color: UInt32; name: string);
+    private z_BindFragDataLocationEXT_adr := GetFuncAdr('glBindFragDataLocationEXT');
+    private z_BindFragDataLocationEXT_ovr_0 := GetFuncOrNil&(z_BindFragDataLocationEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationEXT(&program: gl_program; color: UInt32; name: string);
     begin
       var par_3_str_ptr: IntPtr;
       try
@@ -52281,12 +51494,12 @@ type
         Marshal.FreeHGlobal(par_3_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationEXT(&program: UInt32; color: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindFragDataLocationEXT(&program: gl_program; color: UInt32; name: IntPtr) :=
     z_BindFragDataLocationEXT_ovr_0(&program, color, name);
     
-    private static function z_GetFragDataLocationEXT_ovr_0(&program: UInt32; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetFragDataLocationEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocationEXT(&program: UInt32; name: string): Int32;
+    private z_GetFragDataLocationEXT_adr := GetFuncAdr('glGetFragDataLocationEXT');
+    private z_GetFragDataLocationEXT_ovr_0 := GetFuncOrNil&(z_GetFragDataLocationEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocationEXT(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -52296,470 +51509,455 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocationEXT(&program: UInt32; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFragDataLocationEXT(&program: gl_program; name: IntPtr): Int32 :=
     z_GetFragDataLocationEXT_ovr_0(&program, name);
     
-    private static procedure z_Uniform1uiEXT_ovr_0(location: Int32; v0: UInt32);
-    external 'opengl32.dll' name 'glUniform1uiEXT';
+    private z_Uniform1uiEXT_adr := GetFuncAdr('glUniform1uiEXT');
+    private z_Uniform1uiEXT_ovr_0 := GetFuncOrNil&(z_Uniform1uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1uiEXT(location: Int32; v0: UInt32) :=
     z_Uniform1uiEXT_ovr_0(location, v0);
     
-    private static procedure z_Uniform2uiEXT_ovr_0(location: Int32; v0: UInt32; v1: UInt32);
-    external 'opengl32.dll' name 'glUniform2uiEXT';
+    private z_Uniform2uiEXT_adr := GetFuncAdr('glUniform2uiEXT');
+    private z_Uniform2uiEXT_ovr_0 := GetFuncOrNil&(z_Uniform2uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2uiEXT(location: Int32; v0: UInt32; v1: UInt32) :=
     z_Uniform2uiEXT_ovr_0(location, v0, v1);
     
-    private static procedure z_Uniform3uiEXT_ovr_0(location: Int32; v0: UInt32; v1: UInt32; v2: UInt32);
-    external 'opengl32.dll' name 'glUniform3uiEXT';
+    private z_Uniform3uiEXT_adr := GetFuncAdr('glUniform3uiEXT');
+    private z_Uniform3uiEXT_ovr_0 := GetFuncOrNil&(z_Uniform3uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3uiEXT(location: Int32; v0: UInt32; v1: UInt32; v2: UInt32) :=
     z_Uniform3uiEXT_ovr_0(location, v0, v1, v2);
     
-    private static procedure z_Uniform4uiEXT_ovr_0(location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32);
-    external 'opengl32.dll' name 'glUniform4uiEXT';
+    private z_Uniform4uiEXT_adr := GetFuncAdr('glUniform4uiEXT');
+    private z_Uniform4uiEXT_ovr_0 := GetFuncOrNil&(z_Uniform4uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4uiEXT(location: Int32; v0: UInt32; v1: UInt32; v2: UInt32; v3: UInt32) :=
     z_Uniform4uiEXT_ovr_0(location, v0, v1, v2, v3);
     
-    private static procedure z_Uniform1uivEXT_ovr_0(location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glUniform1uivEXT';
-    private static procedure z_Uniform1uivEXT_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1uivEXT';
+    private z_Uniform1uivEXT_adr := GetFuncAdr('glUniform1uivEXT');
+    private z_Uniform1uivEXT_ovr_0 := GetFuncOrNil&(z_Uniform1uivEXT_adr);
+    private z_Uniform1uivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1uivEXT(location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1uivEXT_ovr_0(location, count, value[0]) else
       z_Uniform1uivEXT_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1uivEXT(location: Int32; count: Int32; var value: UInt32) :=
     z_Uniform1uivEXT_ovr_0(location, count, value);
-    private static procedure z_Uniform1uivEXT_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1uivEXT';
+    private z_Uniform1uivEXT_ovr_2 := GetFuncOrNil&(z_Uniform1uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1uivEXT(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1uivEXT_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2uivEXT_ovr_0(location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glUniform2uivEXT';
-    private static procedure z_Uniform2uivEXT_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2uivEXT';
+    private z_Uniform2uivEXT_adr := GetFuncAdr('glUniform2uivEXT');
+    private z_Uniform2uivEXT_ovr_0 := GetFuncOrNil&(z_Uniform2uivEXT_adr);
+    private z_Uniform2uivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2uivEXT(location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2uivEXT_ovr_0(location, count, value[0]) else
       z_Uniform2uivEXT_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2uivEXT(location: Int32; count: Int32; var value: UInt32) :=
     z_Uniform2uivEXT_ovr_0(location, count, value);
-    private static procedure z_Uniform2uivEXT_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2uivEXT';
+    private z_Uniform2uivEXT_ovr_2 := GetFuncOrNil&(z_Uniform2uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2uivEXT(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2uivEXT_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3uivEXT_ovr_0(location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glUniform3uivEXT';
-    private static procedure z_Uniform3uivEXT_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3uivEXT';
+    private z_Uniform3uivEXT_adr := GetFuncAdr('glUniform3uivEXT');
+    private z_Uniform3uivEXT_ovr_0 := GetFuncOrNil&(z_Uniform3uivEXT_adr);
+    private z_Uniform3uivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3uivEXT(location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3uivEXT_ovr_0(location, count, value[0]) else
       z_Uniform3uivEXT_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3uivEXT(location: Int32; count: Int32; var value: UInt32) :=
     z_Uniform3uivEXT_ovr_0(location, count, value);
-    private static procedure z_Uniform3uivEXT_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3uivEXT';
+    private z_Uniform3uivEXT_ovr_2 := GetFuncOrNil&(z_Uniform3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3uivEXT(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3uivEXT_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4uivEXT_ovr_0(location: Int32; count: Int32; var value: UInt32);
-    external 'opengl32.dll' name 'glUniform4uivEXT';
-    private static procedure z_Uniform4uivEXT_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4uivEXT';
+    private z_Uniform4uivEXT_adr := GetFuncAdr('glUniform4uivEXT');
+    private z_Uniform4uivEXT_ovr_0 := GetFuncOrNil&(z_Uniform4uivEXT_adr);
+    private z_Uniform4uivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4uivEXT(location: Int32; count: Int32; value: array of UInt32) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4uivEXT_ovr_0(location, count, value[0]) else
       z_Uniform4uivEXT_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4uivEXT(location: Int32; count: Int32; var value: UInt32) :=
     z_Uniform4uivEXT_ovr_0(location, count, value);
-    private static procedure z_Uniform4uivEXT_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4uivEXT';
+    private z_Uniform4uivEXT_ovr_2 := GetFuncOrNil&(z_Uniform4uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4uivEXT(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4uivEXT_ovr_2(location, count, value);
     
   end;
   
   [PCUNotRestore]
-  glHistogramEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glHistogramEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_histogram';
     
-    private static procedure z_GetHistogramEXT_ovr_0(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramEXT';
+    private z_GetHistogramEXT_adr := GetFuncAdr('glGetHistogramEXT');
+    private z_GetHistogramEXT_ovr_0 := GetFuncOrNil&(z_GetHistogramEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramEXT(target: HistogramTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr) :=
     z_GetHistogramEXT_ovr_0(target, reset, format, &type, values);
     
-    private static procedure z_GetHistogramParameterfvEXT_ovr_0(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetHistogramParameterfvEXT';
-    private static procedure z_GetHistogramParameterfvEXT_ovr_0_anh0001(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterfvEXT';
+    private z_GetHistogramParameterfvEXT_adr := GetFuncAdr('glGetHistogramParameterfvEXT');
+    private z_GetHistogramParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetHistogramParameterfvEXT_adr);
+    private z_GetHistogramParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetHistogramParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfvEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetHistogramParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetHistogramParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfvEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: single) :=
     z_GetHistogramParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetHistogramParameterfvEXT_ovr_2(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterfvEXT';
+    private z_GetHistogramParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetHistogramParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterfvEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetHistogramParameterfvEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetHistogramParameterivEXT_ovr_0(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetHistogramParameterivEXT';
-    private static procedure z_GetHistogramParameterivEXT_ovr_0_anh0001(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterivEXT';
+    private z_GetHistogramParameterivEXT_adr := GetFuncAdr('glGetHistogramParameterivEXT');
+    private z_GetHistogramParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetHistogramParameterivEXT_adr);
+    private z_GetHistogramParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetHistogramParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterivEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetHistogramParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetHistogramParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterivEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Int32) :=
     z_GetHistogramParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetHistogramParameterivEXT_ovr_2(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterivEXT';
+    private z_GetHistogramParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetHistogramParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterivEXT(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetHistogramParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMinmaxEXT_ovr_0(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxEXT';
+    private z_GetMinmaxEXT_adr := GetFuncAdr('glGetMinmaxEXT');
+    private z_GetMinmaxEXT_ovr_0 := GetFuncOrNil&(z_GetMinmaxEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxEXT(target: MinmaxTargetEXT; reset: boolean; format: PixelFormat; &type: PixelType; values: IntPtr) :=
     z_GetMinmaxEXT_ovr_0(target, reset, format, &type, values);
     
-    private static procedure z_GetMinmaxParameterfvEXT_ovr_0(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfvEXT';
-    private static procedure z_GetMinmaxParameterfvEXT_ovr_0_anh0001(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfvEXT';
+    private z_GetMinmaxParameterfvEXT_adr := GetFuncAdr('glGetMinmaxParameterfvEXT');
+    private z_GetMinmaxParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetMinmaxParameterfvEXT_adr);
+    private z_GetMinmaxParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetMinmaxParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfvEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMinmaxParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetMinmaxParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfvEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: single) :=
     z_GetMinmaxParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMinmaxParameterfvEXT_ovr_2(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterfvEXT';
+    private z_GetMinmaxParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetMinmaxParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterfvEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetMinmaxParameterfvEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMinmaxParameterivEXT_ovr_0(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMinmaxParameterivEXT';
-    private static procedure z_GetMinmaxParameterivEXT_ovr_0_anh0001(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterivEXT';
+    private z_GetMinmaxParameterivEXT_adr := GetFuncAdr('glGetMinmaxParameterivEXT');
+    private z_GetMinmaxParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetMinmaxParameterivEXT_adr);
+    private z_GetMinmaxParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetMinmaxParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterivEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMinmaxParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetMinmaxParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterivEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; var ¶ms: Int32) :=
     z_GetMinmaxParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMinmaxParameterivEXT_ovr_2(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMinmaxParameterivEXT';
+    private z_GetMinmaxParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetMinmaxParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMinmaxParameterivEXT(target: MinmaxTargetEXT; pname: GetMinmaxParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetMinmaxParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_HistogramEXT_ovr_0(target: HistogramTargetEXT; width: Int32; _internalformat: InternalFormat; sink: boolean);
-    external 'opengl32.dll' name 'glHistogramEXT';
+    private z_HistogramEXT_adr := GetFuncAdr('glHistogramEXT');
+    private z_HistogramEXT_ovr_0 := GetFuncOrNil&(z_HistogramEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure HistogramEXT(target: HistogramTargetEXT; width: Int32; _internalformat: InternalFormat; sink: boolean) :=
     z_HistogramEXT_ovr_0(target, width, _internalformat, sink);
     
-    private static procedure z_MinmaxEXT_ovr_0(target: MinmaxTargetEXT; _internalformat: InternalFormat; sink: boolean);
-    external 'opengl32.dll' name 'glMinmaxEXT';
+    private z_MinmaxEXT_adr := GetFuncAdr('glMinmaxEXT');
+    private z_MinmaxEXT_ovr_0 := GetFuncOrNil&(z_MinmaxEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MinmaxEXT(target: MinmaxTargetEXT; _internalformat: InternalFormat; sink: boolean) :=
     z_MinmaxEXT_ovr_0(target, _internalformat, sink);
     
-    private static procedure z_ResetHistogramEXT_ovr_0(target: HistogramTargetEXT);
-    external 'opengl32.dll' name 'glResetHistogramEXT';
+    private z_ResetHistogramEXT_adr := GetFuncAdr('glResetHistogramEXT');
+    private z_ResetHistogramEXT_ovr_0 := GetFuncOrNil&(z_ResetHistogramEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResetHistogramEXT(target: HistogramTargetEXT) :=
     z_ResetHistogramEXT_ovr_0(target);
     
-    private static procedure z_ResetMinmaxEXT_ovr_0(target: MinmaxTargetEXT);
-    external 'opengl32.dll' name 'glResetMinmaxEXT';
+    private z_ResetMinmaxEXT_adr := GetFuncAdr('glResetMinmaxEXT');
+    private z_ResetMinmaxEXT_ovr_0 := GetFuncOrNil&(z_ResetMinmaxEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResetMinmaxEXT(target: MinmaxTargetEXT) :=
     z_ResetMinmaxEXT_ovr_0(target);
     
   end;
   
   [PCUNotRestore]
-  glIndexFuncEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glIndexFuncEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_index_func';
     
-    private static procedure z_IndexFuncEXT_ovr_0(func: IndexFunctionEXT; ref: single);
-    external 'opengl32.dll' name 'glIndexFuncEXT';
+    private z_IndexFuncEXT_adr := GetFuncAdr('glIndexFuncEXT');
+    private z_IndexFuncEXT_ovr_0 := GetFuncOrNil&(z_IndexFuncEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexFuncEXT(func: IndexFunctionEXT; ref: single) :=
     z_IndexFuncEXT_ovr_0(func, ref);
     
   end;
   
   [PCUNotRestore]
-  glIndexMaterialEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glIndexMaterialEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_index_material';
     
-    private static procedure z_IndexMaterialEXT_ovr_0(face: MaterialFace; mode: IndexMaterialParameterEXT);
-    external 'opengl32.dll' name 'glIndexMaterialEXT';
+    private z_IndexMaterialEXT_adr := GetFuncAdr('glIndexMaterialEXT');
+    private z_IndexMaterialEXT_ovr_0 := GetFuncOrNil&(z_IndexMaterialEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexMaterialEXT(face: MaterialFace; mode: IndexMaterialParameterEXT) :=
     z_IndexMaterialEXT_ovr_0(face, mode);
     
   end;
   
   [PCUNotRestore]
-  glLightTextureEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glLightTextureEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_light_texture';
     
-    private static procedure z_ApplyTextureEXT_ovr_0(mode: LightTextureModeEXT);
-    external 'opengl32.dll' name 'glApplyTextureEXT';
+    private z_ApplyTextureEXT_adr := GetFuncAdr('glApplyTextureEXT');
+    private z_ApplyTextureEXT_ovr_0 := GetFuncOrNil&(z_ApplyTextureEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ApplyTextureEXT(mode: LightTextureModeEXT) :=
     z_ApplyTextureEXT_ovr_0(mode);
     
-    private static procedure z_TextureLightEXT_ovr_0(pname: LightTexturePNameEXT);
-    external 'opengl32.dll' name 'glTextureLightEXT';
+    private z_TextureLightEXT_adr := GetFuncAdr('glTextureLightEXT');
+    private z_TextureLightEXT_ovr_0 := GetFuncOrNil&(z_TextureLightEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureLightEXT(pname: LightTexturePNameEXT) :=
     z_TextureLightEXT_ovr_0(pname);
     
-    private static procedure z_TextureMaterialEXT_ovr_0(face: MaterialFace; mode: MaterialParameter);
-    external 'opengl32.dll' name 'glTextureMaterialEXT';
+    private z_TextureMaterialEXT_adr := GetFuncAdr('glTextureMaterialEXT');
+    private z_TextureMaterialEXT_ovr_0 := GetFuncOrNil&(z_TextureMaterialEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureMaterialEXT(face: MaterialFace; mode: MaterialParameter) :=
     z_TextureMaterialEXT_ovr_0(face, mode);
     
   end;
   
   [PCUNotRestore]
-  glMemoryObjectEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMemoryObjectEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_memory_object';
     
-    private static procedure z_GetUnsignedBytevEXT_ovr_0(pname: GetPName; var data: Byte);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
-    private static procedure z_GetUnsignedBytevEXT_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
+    private z_GetUnsignedBytevEXT_adr := GetFuncAdr('glGetUnsignedBytevEXT');
+    private z_GetUnsignedBytevEXT_ovr_0 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
+    private z_GetUnsignedBytevEXT_ovr_0_anh001 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; data: array of Byte) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetUnsignedBytevEXT_ovr_0(pname, data[0]) else
       z_GetUnsignedBytevEXT_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; var data: Byte) :=
     z_GetUnsignedBytevEXT_ovr_0(pname, data);
-    private static procedure z_GetUnsignedBytevEXT_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
+    private z_GetUnsignedBytevEXT_ovr_2 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; data: IntPtr) :=
     z_GetUnsignedBytevEXT_ovr_2(pname, data);
     
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_0(target: DummyEnum; index: UInt32; var data: Byte);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
+    private z_GetUnsignedBytei_vEXT_adr := GetFuncAdr('glGetUnsignedBytei_vEXT');
+    private z_GetUnsignedBytei_vEXT_ovr_0 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
+    private z_GetUnsignedBytei_vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; data: array of Byte) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetUnsignedBytei_vEXT_ovr_0(target, index, data[0]) else
       z_GetUnsignedBytei_vEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; var data: Byte) :=
     z_GetUnsignedBytei_vEXT_ovr_0(target, index, data);
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
+    private z_GetUnsignedBytei_vEXT_ovr_2 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
     z_GetUnsignedBytei_vEXT_ovr_2(target, index, data);
     
-    private static procedure z_DeleteMemoryObjectsEXT_ovr_0(n: Int32; var memoryObjects: UInt32);
-    external 'opengl32.dll' name 'glDeleteMemoryObjectsEXT';
-    private static procedure z_DeleteMemoryObjectsEXT_ovr_0_anh001(n: Int32; memoryObjects: IntPtr);
-    external 'opengl32.dll' name 'glDeleteMemoryObjectsEXT';
+    private z_DeleteMemoryObjectsEXT_adr := GetFuncAdr('glDeleteMemoryObjectsEXT');
+    private z_DeleteMemoryObjectsEXT_ovr_0 := GetFuncOrNil&(z_DeleteMemoryObjectsEXT_adr);
+    private z_DeleteMemoryObjectsEXT_ovr_0_anh001 := GetFuncOrNil&(z_DeleteMemoryObjectsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteMemoryObjectsEXT(n: Int32; memoryObjects: array of UInt32) :=
     if (memoryObjects<>nil) and (memoryObjects.Length<>0) then
       z_DeleteMemoryObjectsEXT_ovr_0(n, memoryObjects[0]) else
       z_DeleteMemoryObjectsEXT_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteMemoryObjectsEXT(n: Int32; var memoryObjects: UInt32) :=
     z_DeleteMemoryObjectsEXT_ovr_0(n, memoryObjects);
-    private static procedure z_DeleteMemoryObjectsEXT_ovr_2(n: Int32; memoryObjects: IntPtr);
-    external 'opengl32.dll' name 'glDeleteMemoryObjectsEXT';
+    private z_DeleteMemoryObjectsEXT_ovr_2 := GetFuncOrNil&(z_DeleteMemoryObjectsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteMemoryObjectsEXT(n: Int32; memoryObjects: IntPtr) :=
     z_DeleteMemoryObjectsEXT_ovr_2(n, memoryObjects);
     
-    private static function z_IsMemoryObjectEXT_ovr_0(memoryObject: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsMemoryObjectEXT';
+    private z_IsMemoryObjectEXT_adr := GetFuncAdr('glIsMemoryObjectEXT');
+    private z_IsMemoryObjectEXT_ovr_0 := GetFuncOrNil&(z_IsMemoryObjectEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsMemoryObjectEXT(memoryObject: UInt32): boolean :=
     z_IsMemoryObjectEXT_ovr_0(memoryObject);
     
-    private static procedure z_CreateMemoryObjectsEXT_ovr_0(n: Int32; var memoryObjects: UInt32);
-    external 'opengl32.dll' name 'glCreateMemoryObjectsEXT';
-    private static procedure z_CreateMemoryObjectsEXT_ovr_0_anh001(n: Int32; memoryObjects: IntPtr);
-    external 'opengl32.dll' name 'glCreateMemoryObjectsEXT';
+    private z_CreateMemoryObjectsEXT_adr := GetFuncAdr('glCreateMemoryObjectsEXT');
+    private z_CreateMemoryObjectsEXT_ovr_0 := GetFuncOrNil&(z_CreateMemoryObjectsEXT_adr);
+    private z_CreateMemoryObjectsEXT_ovr_0_anh001 := GetFuncOrNil&(z_CreateMemoryObjectsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateMemoryObjectsEXT(n: Int32; memoryObjects: array of UInt32) :=
     if (memoryObjects<>nil) and (memoryObjects.Length<>0) then
       z_CreateMemoryObjectsEXT_ovr_0(n, memoryObjects[0]) else
       z_CreateMemoryObjectsEXT_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateMemoryObjectsEXT(n: Int32; var memoryObjects: UInt32) :=
     z_CreateMemoryObjectsEXT_ovr_0(n, memoryObjects);
-    private static procedure z_CreateMemoryObjectsEXT_ovr_2(n: Int32; memoryObjects: IntPtr);
-    external 'opengl32.dll' name 'glCreateMemoryObjectsEXT';
+    private z_CreateMemoryObjectsEXT_ovr_2 := GetFuncOrNil&(z_CreateMemoryObjectsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateMemoryObjectsEXT(n: Int32; memoryObjects: IntPtr) :=
     z_CreateMemoryObjectsEXT_ovr_2(n, memoryObjects);
     
-    private static procedure z_MemoryObjectParameterivEXT_ovr_0(memoryObject: UInt32; pname: MemoryObjectParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMemoryObjectParameterivEXT';
-    private static procedure z_MemoryObjectParameterivEXT_ovr_0_anh0001(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMemoryObjectParameterivEXT';
+    private z_MemoryObjectParameterivEXT_adr := GetFuncAdr('glMemoryObjectParameterivEXT');
+    private z_MemoryObjectParameterivEXT_ovr_0 := GetFuncOrNil&(z_MemoryObjectParameterivEXT_adr);
+    private z_MemoryObjectParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_MemoryObjectParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MemoryObjectParameterivEXT_ovr_0(memoryObject, pname, ¶ms[0]) else
       z_MemoryObjectParameterivEXT_ovr_0_anh0001(memoryObject, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; var ¶ms: Int32) :=
     z_MemoryObjectParameterivEXT_ovr_0(memoryObject, pname, ¶ms);
-    private static procedure z_MemoryObjectParameterivEXT_ovr_2(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMemoryObjectParameterivEXT';
+    private z_MemoryObjectParameterivEXT_ovr_2 := GetFuncOrNil&(z_MemoryObjectParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr) :=
     z_MemoryObjectParameterivEXT_ovr_2(memoryObject, pname, ¶ms);
     
-    private static procedure z_GetMemoryObjectParameterivEXT_ovr_0(memoryObject: UInt32; pname: MemoryObjectParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMemoryObjectParameterivEXT';
-    private static procedure z_GetMemoryObjectParameterivEXT_ovr_0_anh0001(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMemoryObjectParameterivEXT';
+    private z_GetMemoryObjectParameterivEXT_adr := GetFuncAdr('glGetMemoryObjectParameterivEXT');
+    private z_GetMemoryObjectParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetMemoryObjectParameterivEXT_adr);
+    private z_GetMemoryObjectParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetMemoryObjectParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMemoryObjectParameterivEXT_ovr_0(memoryObject, pname, ¶ms[0]) else
       z_GetMemoryObjectParameterivEXT_ovr_0_anh0001(memoryObject, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; var ¶ms: Int32) :=
     z_GetMemoryObjectParameterivEXT_ovr_0(memoryObject, pname, ¶ms);
-    private static procedure z_GetMemoryObjectParameterivEXT_ovr_2(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMemoryObjectParameterivEXT';
+    private z_GetMemoryObjectParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetMemoryObjectParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectParameterivEXT(memoryObject: UInt32; pname: MemoryObjectParameterName; ¶ms: IntPtr) :=
     z_GetMemoryObjectParameterivEXT_ovr_2(memoryObject, pname, ¶ms);
     
-    private static procedure z_TexStorageMem2DEXT_ovr_0(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexStorageMem2DEXT';
+    private z_TexStorageMem2DEXT_adr := GetFuncAdr('glTexStorageMem2DEXT');
+    private z_TexStorageMem2DEXT_ovr_0 := GetFuncOrNil&(z_TexStorageMem2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageMem2DEXT(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; memory: UInt32; offset: UInt64) :=
     z_TexStorageMem2DEXT_ovr_0(target, levels, internalFormat, width, height, memory, offset);
     
-    private static procedure z_TexStorageMem2DMultisampleEXT_ovr_0(target: TextureTarget; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexStorageMem2DMultisampleEXT';
+    private z_TexStorageMem2DMultisampleEXT_adr := GetFuncAdr('glTexStorageMem2DMultisampleEXT');
+    private z_TexStorageMem2DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TexStorageMem2DMultisampleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageMem2DMultisampleEXT(target: TextureTarget; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
     z_TexStorageMem2DMultisampleEXT_ovr_0(target, samples, internalFormat, width, height, fixedSampleLocations, memory, offset);
     
-    private static procedure z_TexStorageMem3DEXT_ovr_0(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexStorageMem3DEXT';
+    private z_TexStorageMem3DEXT_adr := GetFuncAdr('glTexStorageMem3DEXT');
+    private z_TexStorageMem3DEXT_ovr_0 := GetFuncOrNil&(z_TexStorageMem3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageMem3DEXT(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64) :=
     z_TexStorageMem3DEXT_ovr_0(target, levels, internalFormat, width, height, depth, memory, offset);
     
-    private static procedure z_TexStorageMem3DMultisampleEXT_ovr_0(target: TextureTarget; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexStorageMem3DMultisampleEXT';
+    private z_TexStorageMem3DMultisampleEXT_adr := GetFuncAdr('glTexStorageMem3DMultisampleEXT');
+    private z_TexStorageMem3DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TexStorageMem3DMultisampleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageMem3DMultisampleEXT(target: TextureTarget; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
     z_TexStorageMem3DMultisampleEXT_ovr_0(target, samples, internalFormat, width, height, depth, fixedSampleLocations, memory, offset);
     
-    private static procedure z_BufferStorageMemEXT_ovr_0(target: BufferTargetARB; size: IntPtr; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glBufferStorageMemEXT';
+    private z_BufferStorageMemEXT_adr := GetFuncAdr('glBufferStorageMemEXT');
+    private z_BufferStorageMemEXT_ovr_0 := GetFuncOrNil&(z_BufferStorageMemEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferStorageMemEXT(target: BufferTargetARB; size: IntPtr; memory: UInt32; offset: UInt64) :=
     z_BufferStorageMemEXT_ovr_0(target, size, memory, offset);
     
-    private static procedure z_TextureStorageMem2DEXT_ovr_0(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureStorageMem2DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem2DEXT(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; memory: UInt32; offset: UInt64) :=
+    private z_TextureStorageMem2DEXT_adr := GetFuncAdr('glTextureStorageMem2DEXT');
+    private z_TextureStorageMem2DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorageMem2DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem2DEXT(texture: gl_texture; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; memory: UInt32; offset: UInt64) :=
     z_TextureStorageMem2DEXT_ovr_0(texture, levels, internalFormat, width, height, memory, offset);
     
-    private static procedure z_TextureStorageMem2DMultisampleEXT_ovr_0(texture: UInt32; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureStorageMem2DMultisampleEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem2DMultisampleEXT(texture: UInt32; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
+    private z_TextureStorageMem2DMultisampleEXT_adr := GetFuncAdr('glTextureStorageMem2DMultisampleEXT');
+    private z_TextureStorageMem2DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TextureStorageMem2DMultisampleEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem2DMultisampleEXT(texture: gl_texture; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
     z_TextureStorageMem2DMultisampleEXT_ovr_0(texture, samples, internalFormat, width, height, fixedSampleLocations, memory, offset);
     
-    private static procedure z_TextureStorageMem3DEXT_ovr_0(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureStorageMem3DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem3DEXT(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64) :=
+    private z_TextureStorageMem3DEXT_adr := GetFuncAdr('glTextureStorageMem3DEXT');
+    private z_TextureStorageMem3DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorageMem3DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem3DEXT(texture: gl_texture; levels: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64) :=
     z_TextureStorageMem3DEXT_ovr_0(texture, levels, internalFormat, width, height, depth, memory, offset);
     
-    private static procedure z_TextureStorageMem3DMultisampleEXT_ovr_0(texture: UInt32; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureStorageMem3DMultisampleEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem3DMultisampleEXT(texture: UInt32; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
+    private z_TextureStorageMem3DMultisampleEXT_adr := GetFuncAdr('glTextureStorageMem3DMultisampleEXT');
+    private z_TextureStorageMem3DMultisampleEXT_ovr_0 := GetFuncOrNil&(z_TextureStorageMem3DMultisampleEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem3DMultisampleEXT(texture: gl_texture; samples: Int32; internalFormat: DummyEnum; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean; memory: UInt32; offset: UInt64) :=
     z_TextureStorageMem3DMultisampleEXT_ovr_0(texture, samples, internalFormat, width, height, depth, fixedSampleLocations, memory, offset);
     
-    private static procedure z_NamedBufferStorageMemEXT_ovr_0(buffer: UInt32; size: IntPtr; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glNamedBufferStorageMemEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageMemEXT(buffer: UInt32; size: IntPtr; memory: UInt32; offset: UInt64) :=
+    private z_NamedBufferStorageMemEXT_adr := GetFuncAdr('glNamedBufferStorageMemEXT');
+    private z_NamedBufferStorageMemEXT_ovr_0 := GetFuncOrNil&(z_NamedBufferStorageMemEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferStorageMemEXT(buffer: gl_buffer; size: IntPtr; memory: UInt32; offset: UInt64) :=
     z_NamedBufferStorageMemEXT_ovr_0(buffer, size, memory, offset);
     
-    private static procedure z_TexStorageMem1DEXT_ovr_0(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexStorageMem1DEXT';
+    private z_TexStorageMem1DEXT_adr := GetFuncAdr('glTexStorageMem1DEXT');
+    private z_TexStorageMem1DEXT_ovr_0 := GetFuncOrNil&(z_TexStorageMem1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexStorageMem1DEXT(target: TextureTarget; levels: Int32; internalFormat: DummyEnum; width: Int32; memory: UInt32; offset: UInt64) :=
     z_TexStorageMem1DEXT_ovr_0(target, levels, internalFormat, width, memory, offset);
     
-    private static procedure z_TextureStorageMem1DEXT_ovr_0(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureStorageMem1DEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem1DEXT(texture: UInt32; levels: Int32; internalFormat: DummyEnum; width: Int32; memory: UInt32; offset: UInt64) :=
+    private z_TextureStorageMem1DEXT_adr := GetFuncAdr('glTextureStorageMem1DEXT');
+    private z_TextureStorageMem1DEXT_ovr_0 := GetFuncOrNil&(z_TextureStorageMem1DEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureStorageMem1DEXT(texture: gl_texture; levels: Int32; internalFormat: DummyEnum; width: Int32; memory: UInt32; offset: UInt64) :=
     z_TextureStorageMem1DEXT_ovr_0(texture, levels, internalFormat, width, memory, offset);
     
   end;
   
   [PCUNotRestore]
-  glMemoryObjectFdEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMemoryObjectFdEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_memory_object_fd';
     
-    private static procedure z_ImportMemoryFdEXT_ovr_0(memory: UInt32; size: UInt64; handleType: ExternalHandleType; fd: Int32);
-    external 'opengl32.dll' name 'glImportMemoryFdEXT';
+    private z_ImportMemoryFdEXT_adr := GetFuncAdr('glImportMemoryFdEXT');
+    private z_ImportMemoryFdEXT_ovr_0 := GetFuncOrNil&(z_ImportMemoryFdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportMemoryFdEXT(memory: UInt32; size: UInt64; handleType: ExternalHandleType; fd: Int32) :=
     z_ImportMemoryFdEXT_ovr_0(memory, size, handleType, fd);
     
   end;
   
   [PCUNotRestore]
-  glMemoryObjectWin32EXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMemoryObjectWin32EXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_memory_object_win32';
     
-    private static procedure z_ImportMemoryWin32HandleEXT_ovr_0(memory: UInt32; size: UInt64; handleType: ExternalHandleType; handle: IntPtr);
-    external 'opengl32.dll' name 'glImportMemoryWin32HandleEXT';
+    private z_ImportMemoryWin32HandleEXT_adr := GetFuncAdr('glImportMemoryWin32HandleEXT');
+    private z_ImportMemoryWin32HandleEXT_ovr_0 := GetFuncOrNil&(z_ImportMemoryWin32HandleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportMemoryWin32HandleEXT(memory: UInt32; size: UInt64; handleType: ExternalHandleType; handle: IntPtr) :=
     z_ImportMemoryWin32HandleEXT_ovr_0(memory, size, handleType, handle);
     
-    private static procedure z_ImportMemoryWin32NameEXT_ovr_0(memory: UInt32; size: UInt64; handleType: ExternalHandleType; name: IntPtr);
-    external 'opengl32.dll' name 'glImportMemoryWin32NameEXT';
+    private z_ImportMemoryWin32NameEXT_adr := GetFuncAdr('glImportMemoryWin32NameEXT');
+    private z_ImportMemoryWin32NameEXT_ovr_0 := GetFuncOrNil&(z_ImportMemoryWin32NameEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportMemoryWin32NameEXT(memory: UInt32; size: UInt64; handleType: ExternalHandleType; name: IntPtr) :=
     z_ImportMemoryWin32NameEXT_ovr_0(memory, size, handleType, name);
     
   end;
   
   [PCUNotRestore]
-  glMultiDrawArraysEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultiDrawArraysEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_multi_draw_arrays';
     
-    private static procedure z_MultiDrawArraysEXT_ovr_0(mode: PrimitiveType; var first: Int32; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
-    private static procedure z_MultiDrawArraysEXT_ovr_0_anh00100(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
-    private static procedure z_MultiDrawArraysEXT_ovr_0_anh00010(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
-    private static procedure z_MultiDrawArraysEXT_ovr_0_anh00110(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
+    private z_MultiDrawArraysEXT_adr := GetFuncAdr('glMultiDrawArraysEXT');
+    private z_MultiDrawArraysEXT_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
+    private z_MultiDrawArraysEXT_ovr_0_anh00100 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
+    private z_MultiDrawArraysEXT_ovr_0_anh00010 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
+    private z_MultiDrawArraysEXT_ovr_0_anh00110 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: array of Int32; count: array of Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -52768,16 +51966,13 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiDrawArraysEXT_ovr_0_anh00100(mode, IntPtr.Zero, count[0], primcount) else
         z_MultiDrawArraysEXT_ovr_0_anh00110(mode, IntPtr.Zero, IntPtr.Zero, primcount);
-    private static procedure z_MultiDrawArraysEXT_ovr_1_anh00100(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
+    private z_MultiDrawArraysEXT_ovr_1_anh00100 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: array of Int32; var count: Int32; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawArraysEXT_ovr_0(mode, first[0], count, primcount) else
       z_MultiDrawArraysEXT_ovr_0_anh00100(mode, IntPtr.Zero, count, primcount);
-    private static procedure z_MultiDrawArraysEXT_ovr_2(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
-    private static procedure z_MultiDrawArraysEXT_ovr_2_anh00100(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
+    private z_MultiDrawArraysEXT_ovr_2 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
+    private z_MultiDrawArraysEXT_ovr_2_anh00100 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: array of Int32; count: IntPtr; primcount: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiDrawArraysEXT_ovr_2(mode, first[0], count, primcount) else
@@ -52790,29 +51985,23 @@ type
     z_MultiDrawArraysEXT_ovr_0(mode, first, count, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32) :=
     z_MultiDrawArraysEXT_ovr_2(mode, first, count, primcount);
-    private static procedure z_MultiDrawArraysEXT_ovr_6(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
-    private static procedure z_MultiDrawArraysEXT_ovr_6_anh00010(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
+    private z_MultiDrawArraysEXT_ovr_6 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
+    private z_MultiDrawArraysEXT_ovr_6_anh00010 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: IntPtr; count: array of Int32; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawArraysEXT_ovr_6(mode, first, count[0], primcount) else
       z_MultiDrawArraysEXT_ovr_6_anh00010(mode, first, IntPtr.Zero, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32) :=
     z_MultiDrawArraysEXT_ovr_6(mode, first, count, primcount);
-    private static procedure z_MultiDrawArraysEXT_ovr_8(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysEXT';
+    private z_MultiDrawArraysEXT_ovr_8 := GetFuncOrNil&(z_MultiDrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysEXT(mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32) :=
     z_MultiDrawArraysEXT_ovr_8(mode, first, count, primcount);
     
-    private static procedure z_MultiDrawElementsEXT_ovr_0(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
-    private static procedure z_MultiDrawElementsEXT_ovr_0_anh001000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
-    private static procedure z_MultiDrawElementsEXT_ovr_0_anh000010(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
-    private static procedure z_MultiDrawElementsEXT_ovr_0_anh001010(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_adr := GetFuncAdr('glMultiDrawElementsEXT');
+    private z_MultiDrawElementsEXT_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
+    private z_MultiDrawElementsEXT_ovr_0_anh001000 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
+    private z_MultiDrawElementsEXT_ovr_0_anh000010 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
+    private z_MultiDrawElementsEXT_ovr_0_anh001010 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -52821,22 +52010,18 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiDrawElementsEXT_ovr_0_anh001000(mode, IntPtr.Zero, &type, indices[0], primcount) else
         z_MultiDrawElementsEXT_ovr_0_anh001010(mode, IntPtr.Zero, &type, IntPtr.Zero, primcount);
-    private static procedure z_MultiDrawElementsEXT_ovr_1_anh001000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_ovr_1_anh001000 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsEXT_ovr_0(mode, count[0], &type, indices, primcount) else
       z_MultiDrawElementsEXT_ovr_0_anh001000(mode, IntPtr.Zero, &type, indices, primcount);
-    private static procedure z_MultiDrawElementsEXT_ovr_2(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
-    private static procedure z_MultiDrawElementsEXT_ovr_2_anh001000(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_ovr_2 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
+    private z_MultiDrawElementsEXT_ovr_2_anh001000 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: pointer; primcount: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiDrawElementsEXT_ovr_2(mode, count[0], &type, indices, primcount) else
       z_MultiDrawElementsEXT_ovr_2_anh001000(mode, IntPtr.Zero, &type, indices, primcount);
-    private static procedure z_MultiDrawElementsEXT_ovr_3_anh000010(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_ovr_3_anh000010 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsEXT_ovr_0(mode, count, &type, indices[0], primcount) else
@@ -52845,392 +52030,364 @@ type
     z_MultiDrawElementsEXT_ovr_0(mode, count, &type, indices, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32) :=
     z_MultiDrawElementsEXT_ovr_2(mode, count, &type, indices, primcount);
-    private static procedure z_MultiDrawElementsEXT_ovr_6(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
-    private static procedure z_MultiDrawElementsEXT_ovr_6_anh000010(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_ovr_6 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
+    private z_MultiDrawElementsEXT_ovr_6_anh000010 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiDrawElementsEXT_ovr_6(mode, count, &type, indices[0], primcount) else
       z_MultiDrawElementsEXT_ovr_6_anh000010(mode, count, &type, IntPtr.Zero, primcount);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32) :=
     z_MultiDrawElementsEXT_ovr_6(mode, count, &type, indices, primcount);
-    private static procedure z_MultiDrawElementsEXT_ovr_8(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsEXT';
+    private z_MultiDrawElementsEXT_ovr_8 := GetFuncOrNil&(z_MultiDrawElementsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsEXT(mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32) :=
     z_MultiDrawElementsEXT_ovr_8(mode, count, &type, indices, primcount);
     
   end;
   
   [PCUNotRestore]
-  glMultisampleEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultisampleEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_multisample';
     
-    private static procedure z_SampleMaskEXT_ovr_0(value: single; invert: boolean);
-    external 'opengl32.dll' name 'glSampleMaskEXT';
+    private z_SampleMaskEXT_adr := GetFuncAdr('glSampleMaskEXT');
+    private z_SampleMaskEXT_ovr_0 := GetFuncOrNil&(z_SampleMaskEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleMaskEXT(value: single; invert: boolean) :=
     z_SampleMaskEXT_ovr_0(value, invert);
     
-    private static procedure z_SamplePatternEXT_ovr_0(pattern: OpenGL.SamplePatternEXT);
-    external 'opengl32.dll' name 'glSamplePatternEXT';
+    private z_SamplePatternEXT_adr := GetFuncAdr('glSamplePatternEXT');
+    private z_SamplePatternEXT_ovr_0 := GetFuncOrNil&(z_SamplePatternEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplePatternEXT(pattern: OpenGL.SamplePatternEXT) :=
     z_SamplePatternEXT_ovr_0(pattern);
     
   end;
   
   [PCUNotRestore]
-  glPalettedTextureEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPalettedTextureEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_paletted_texture';
     
-    private static procedure z_ColorTableEXT_ovr_0(target: ColorTableTarget; _internalFormat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr);
-    external 'opengl32.dll' name 'glColorTableEXT';
+    private z_ColorTableEXT_adr := GetFuncAdr('glColorTableEXT');
+    private z_ColorTableEXT_ovr_0 := GetFuncOrNil&(z_ColorTableEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableEXT(target: ColorTableTarget; _internalFormat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr) :=
     z_ColorTableEXT_ovr_0(target, _internalFormat, width, format, &type, table);
     
-    private static procedure z_GetColorTableEXT_ovr_0(target: ColorTableTarget; format: PixelFormat; &type: PixelType; data: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableEXT';
+    private z_GetColorTableEXT_adr := GetFuncAdr('glGetColorTableEXT');
+    private z_GetColorTableEXT_ovr_0 := GetFuncOrNil&(z_GetColorTableEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableEXT(target: ColorTableTarget; format: PixelFormat; &type: PixelType; data: IntPtr) :=
     z_GetColorTableEXT_ovr_0(target, format, &type, data);
     
-    private static procedure z_GetColorTableParameterivEXT_ovr_0(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetColorTableParameterivEXT';
-    private static procedure z_GetColorTableParameterivEXT_ovr_0_anh0001(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterivEXT';
+    private z_GetColorTableParameterivEXT_adr := GetFuncAdr('glGetColorTableParameterivEXT');
+    private z_GetColorTableParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetColorTableParameterivEXT_adr);
+    private z_GetColorTableParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32) :=
     z_GetColorTableParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameterivEXT_ovr_2(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterivEXT';
+    private z_GetColorTableParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetColorTableParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetColorTableParameterfvEXT_ovr_0(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvEXT';
-    private static procedure z_GetColorTableParameterfvEXT_ovr_0_anh0001(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvEXT';
+    private z_GetColorTableParameterfvEXT_adr := GetFuncAdr('glGetColorTableParameterfvEXT');
+    private z_GetColorTableParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetColorTableParameterfvEXT_adr);
+    private z_GetColorTableParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; var ¶ms: single) :=
     z_GetColorTableParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameterfvEXT_ovr_2(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvEXT';
+    private z_GetColorTableParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetColorTableParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvEXT(target: ColorTableTarget; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameterfvEXT_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPixelTransformEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPixelTransformEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_pixel_transform';
     
-    private static procedure z_PixelTransformParameteriEXT_ovr_0(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; param: Int32);
-    external 'opengl32.dll' name 'glPixelTransformParameteriEXT';
+    private z_PixelTransformParameteriEXT_adr := GetFuncAdr('glPixelTransformParameteriEXT');
+    private z_PixelTransformParameteriEXT_ovr_0 := GetFuncOrNil&(z_PixelTransformParameteriEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameteriEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; param: Int32) :=
     z_PixelTransformParameteriEXT_ovr_0(target, pname, param);
     
-    private static procedure z_PixelTransformParameterfEXT_ovr_0(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; param: single);
-    external 'opengl32.dll' name 'glPixelTransformParameterfEXT';
+    private z_PixelTransformParameterfEXT_adr := GetFuncAdr('glPixelTransformParameterfEXT');
+    private z_PixelTransformParameterfEXT_ovr_0 := GetFuncOrNil&(z_PixelTransformParameterfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterfEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; param: single) :=
     z_PixelTransformParameterfEXT_ovr_0(target, pname, param);
     
-    private static procedure z_PixelTransformParameterivEXT_ovr_0(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glPixelTransformParameterivEXT';
-    private static procedure z_PixelTransformParameterivEXT_ovr_0_anh0001(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTransformParameterivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterivEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_PixelTransformParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
-      z_PixelTransformParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_PixelTransformParameterivEXT_adr := GetFuncAdr('glPixelTransformParameterivEXT');
+    private z_PixelTransformParameterivEXT_ovr_0 := GetFuncOrNil&(z_PixelTransformParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterivEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; var ¶ms: Int32) :=
     z_PixelTransformParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_PixelTransformParameterivEXT_ovr_2(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTransformParameterivEXT';
+    private z_PixelTransformParameterivEXT_ovr_1 := GetFuncOrNil&(z_PixelTransformParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterivEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr) :=
-    z_PixelTransformParameterivEXT_ovr_2(target, pname, ¶ms);
+    z_PixelTransformParameterivEXT_ovr_1(target, pname, ¶ms);
     
-    private static procedure z_PixelTransformParameterfvEXT_ovr_0(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; var ¶ms: single);
-    external 'opengl32.dll' name 'glPixelTransformParameterfvEXT';
-    private static procedure z_PixelTransformParameterfvEXT_ovr_0_anh0001(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTransformParameterfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterfvEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: array of single) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_PixelTransformParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
-      z_PixelTransformParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
+    private z_PixelTransformParameterfvEXT_adr := GetFuncAdr('glPixelTransformParameterfvEXT');
+    private z_PixelTransformParameterfvEXT_ovr_0 := GetFuncOrNil&(z_PixelTransformParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterfvEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; var ¶ms: single) :=
     z_PixelTransformParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_PixelTransformParameterfvEXT_ovr_2(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTransformParameterfvEXT';
+    private z_PixelTransformParameterfvEXT_ovr_1 := GetFuncOrNil&(z_PixelTransformParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransformParameterfvEXT(target: PixelTransformTargetEXT; pname: PixelTransformPNameEXT; ¶ms: IntPtr) :=
-    z_PixelTransformParameterfvEXT_ovr_2(target, pname, ¶ms);
+    z_PixelTransformParameterfvEXT_ovr_1(target, pname, ¶ms);
     
-    private static procedure z_GetPixelTransformParameterivEXT_ovr_0(target: DummyEnum; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterivEXT';
-    private static procedure z_GetPixelTransformParameterivEXT_ovr_0_anh0001(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterivEXT';
+    private z_GetPixelTransformParameterivEXT_adr := GetFuncAdr('glGetPixelTransformParameterivEXT');
+    private z_GetPixelTransformParameterivEXT_ovr_0 := GetFuncOrNil&(z_GetPixelTransformParameterivEXT_adr);
+    private z_GetPixelTransformParameterivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetPixelTransformParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterivEXT(target: DummyEnum; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetPixelTransformParameterivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetPixelTransformParameterivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterivEXT(target: DummyEnum; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetPixelTransformParameterivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetPixelTransformParameterivEXT_ovr_2(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterivEXT';
+    private z_GetPixelTransformParameterivEXT_ovr_2 := GetFuncOrNil&(z_GetPixelTransformParameterivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterivEXT(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetPixelTransformParameterivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetPixelTransformParameterfvEXT_ovr_0(target: DummyEnum; pname: DummyEnum; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterfvEXT';
-    private static procedure z_GetPixelTransformParameterfvEXT_ovr_0_anh0001(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterfvEXT';
+    private z_GetPixelTransformParameterfvEXT_adr := GetFuncAdr('glGetPixelTransformParameterfvEXT');
+    private z_GetPixelTransformParameterfvEXT_ovr_0 := GetFuncOrNil&(z_GetPixelTransformParameterfvEXT_adr);
+    private z_GetPixelTransformParameterfvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetPixelTransformParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterfvEXT(target: DummyEnum; pname: DummyEnum; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetPixelTransformParameterfvEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetPixelTransformParameterfvEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterfvEXT(target: DummyEnum; pname: DummyEnum; var ¶ms: single) :=
     z_GetPixelTransformParameterfvEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetPixelTransformParameterfvEXT_ovr_2(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTransformParameterfvEXT';
+    private z_GetPixelTransformParameterfvEXT_ovr_2 := GetFuncOrNil&(z_GetPixelTransformParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTransformParameterfvEXT(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetPixelTransformParameterfvEXT_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPointParametersEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPointParametersEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_point_parameters';
     
-    private static procedure z_PointParameterfEXT_ovr_0(pname: PointParameterNameARB; param: single);
-    external 'opengl32.dll' name 'glPointParameterfEXT';
+    private z_PointParameterfEXT_adr := GetFuncAdr('glPointParameterfEXT');
+    private z_PointParameterfEXT_ovr_0 := GetFuncOrNil&(z_PointParameterfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfEXT(pname: PointParameterNameARB; param: single) :=
     z_PointParameterfEXT_ovr_0(pname, param);
     
-    private static procedure z_PointParameterfvEXT_ovr_0(pname: PointParameterNameARB; var ¶ms: single);
-    external 'opengl32.dll' name 'glPointParameterfvEXT';
-    private static procedure z_PointParameterfvEXT_ovr_0_anh001(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvEXT';
+    private z_PointParameterfvEXT_adr := GetFuncAdr('glPointParameterfvEXT');
+    private z_PointParameterfvEXT_ovr_0 := GetFuncOrNil&(z_PointParameterfvEXT_adr);
+    private z_PointParameterfvEXT_ovr_0_anh001 := GetFuncOrNil&(z_PointParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvEXT(pname: PointParameterNameARB; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PointParameterfvEXT_ovr_0(pname, ¶ms[0]) else
       z_PointParameterfvEXT_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvEXT(pname: PointParameterNameARB; var ¶ms: single) :=
     z_PointParameterfvEXT_ovr_0(pname, ¶ms);
-    private static procedure z_PointParameterfvEXT_ovr_2(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvEXT';
+    private z_PointParameterfvEXT_ovr_2 := GetFuncOrNil&(z_PointParameterfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvEXT(pname: PointParameterNameARB; ¶ms: IntPtr) :=
     z_PointParameterfvEXT_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPolygonOffsetEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPolygonOffsetEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_polygon_offset';
     
-    private static procedure z_PolygonOffsetEXT_ovr_0(factor: single; bias: single);
-    external 'opengl32.dll' name 'glPolygonOffsetEXT';
+    private z_PolygonOffsetEXT_adr := GetFuncAdr('glPolygonOffsetEXT');
+    private z_PolygonOffsetEXT_ovr_0 := GetFuncOrNil&(z_PolygonOffsetEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonOffsetEXT(factor: single; bias: single) :=
     z_PolygonOffsetEXT_ovr_0(factor, bias);
     
   end;
   
   [PCUNotRestore]
-  glPolygonOffsetClampEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPolygonOffsetClampEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_polygon_offset_clamp';
     
-    private static procedure z_PolygonOffsetClampEXT_ovr_0(factor: single; units: single; clamp: single);
-    external 'opengl32.dll' name 'glPolygonOffsetClampEXT';
+    private z_PolygonOffsetClampEXT_adr := GetFuncAdr('glPolygonOffsetClampEXT');
+    private z_PolygonOffsetClampEXT_ovr_0 := GetFuncOrNil&(z_PolygonOffsetClampEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonOffsetClampEXT(factor: single; units: single; clamp: single) :=
     z_PolygonOffsetClampEXT_ovr_0(factor, units, clamp);
     
   end;
   
   [PCUNotRestore]
-  glProvokingVertexEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glProvokingVertexEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_provoking_vertex';
     
-    private static procedure z_ProvokingVertexEXT_ovr_0(mode: VertexProvokingMode);
-    external 'opengl32.dll' name 'glProvokingVertexEXT';
+    private z_ProvokingVertexEXT_adr := GetFuncAdr('glProvokingVertexEXT');
+    private z_ProvokingVertexEXT_ovr_0 := GetFuncOrNil&(z_ProvokingVertexEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProvokingVertexEXT(mode: VertexProvokingMode) :=
     z_ProvokingVertexEXT_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glRasterMultisampleEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glRasterMultisampleEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_raster_multisample';
     
-    private static procedure z_RasterSamplesEXT_ovr_0(samples: UInt32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glRasterSamplesEXT';
+    private z_RasterSamplesEXT_adr := GetFuncAdr('glRasterSamplesEXT');
+    private z_RasterSamplesEXT_ovr_0 := GetFuncOrNil&(z_RasterSamplesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterSamplesEXT(samples: UInt32; fixedsamplelocations: boolean) :=
     z_RasterSamplesEXT_ovr_0(samples, fixedsamplelocations);
     
   end;
   
   [PCUNotRestore]
-  glSemaphoreEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSemaphoreEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_semaphore';
     
-    private static procedure z_GetUnsignedBytevEXT_ovr_0(pname: GetPName; var data: Byte);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
-    private static procedure z_GetUnsignedBytevEXT_ovr_0_anh001(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
+    private z_GetUnsignedBytevEXT_adr := GetFuncAdr('glGetUnsignedBytevEXT');
+    private z_GetUnsignedBytevEXT_ovr_0 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
+    private z_GetUnsignedBytevEXT_ovr_0_anh001 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; data: array of Byte) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetUnsignedBytevEXT_ovr_0(pname, data[0]) else
       z_GetUnsignedBytevEXT_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; var data: Byte) :=
     z_GetUnsignedBytevEXT_ovr_0(pname, data);
-    private static procedure z_GetUnsignedBytevEXT_ovr_2(pname: GetPName; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytevEXT';
+    private z_GetUnsignedBytevEXT_ovr_2 := GetFuncOrNil&(z_GetUnsignedBytevEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytevEXT(pname: GetPName; data: IntPtr) :=
     z_GetUnsignedBytevEXT_ovr_2(pname, data);
     
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_0(target: DummyEnum; index: UInt32; var data: Byte);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_0_anh0001(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
+    private z_GetUnsignedBytei_vEXT_adr := GetFuncAdr('glGetUnsignedBytei_vEXT');
+    private z_GetUnsignedBytei_vEXT_ovr_0 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
+    private z_GetUnsignedBytei_vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; data: array of Byte) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetUnsignedBytei_vEXT_ovr_0(target, index, data[0]) else
       z_GetUnsignedBytei_vEXT_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; var data: Byte) :=
     z_GetUnsignedBytei_vEXT_ovr_0(target, index, data);
-    private static procedure z_GetUnsignedBytei_vEXT_ovr_2(target: DummyEnum; index: UInt32; data: IntPtr);
-    external 'opengl32.dll' name 'glGetUnsignedBytei_vEXT';
+    private z_GetUnsignedBytei_vEXT_ovr_2 := GetFuncOrNil&(z_GetUnsignedBytei_vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUnsignedBytei_vEXT(target: DummyEnum; index: UInt32; data: IntPtr) :=
     z_GetUnsignedBytei_vEXT_ovr_2(target, index, data);
     
-    private static procedure z_GenSemaphoresEXT_ovr_0(n: Int32; var semaphores: UInt32);
-    external 'opengl32.dll' name 'glGenSemaphoresEXT';
-    private static procedure z_GenSemaphoresEXT_ovr_0_anh001(n: Int32; semaphores: IntPtr);
-    external 'opengl32.dll' name 'glGenSemaphoresEXT';
+    private z_GenSemaphoresEXT_adr := GetFuncAdr('glGenSemaphoresEXT');
+    private z_GenSemaphoresEXT_ovr_0 := GetFuncOrNil&(z_GenSemaphoresEXT_adr);
+    private z_GenSemaphoresEXT_ovr_0_anh001 := GetFuncOrNil&(z_GenSemaphoresEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSemaphoresEXT(n: Int32; semaphores: array of UInt32) :=
     if (semaphores<>nil) and (semaphores.Length<>0) then
       z_GenSemaphoresEXT_ovr_0(n, semaphores[0]) else
       z_GenSemaphoresEXT_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSemaphoresEXT(n: Int32; var semaphores: UInt32) :=
     z_GenSemaphoresEXT_ovr_0(n, semaphores);
-    private static procedure z_GenSemaphoresEXT_ovr_2(n: Int32; semaphores: IntPtr);
-    external 'opengl32.dll' name 'glGenSemaphoresEXT';
+    private z_GenSemaphoresEXT_ovr_2 := GetFuncOrNil&(z_GenSemaphoresEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenSemaphoresEXT(n: Int32; semaphores: IntPtr) :=
     z_GenSemaphoresEXT_ovr_2(n, semaphores);
     
-    private static procedure z_DeleteSemaphoresEXT_ovr_0(n: Int32; var semaphores: UInt32);
-    external 'opengl32.dll' name 'glDeleteSemaphoresEXT';
-    private static procedure z_DeleteSemaphoresEXT_ovr_0_anh001(n: Int32; semaphores: IntPtr);
-    external 'opengl32.dll' name 'glDeleteSemaphoresEXT';
+    private z_DeleteSemaphoresEXT_adr := GetFuncAdr('glDeleteSemaphoresEXT');
+    private z_DeleteSemaphoresEXT_ovr_0 := GetFuncOrNil&(z_DeleteSemaphoresEXT_adr);
+    private z_DeleteSemaphoresEXT_ovr_0_anh001 := GetFuncOrNil&(z_DeleteSemaphoresEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSemaphoresEXT(n: Int32; semaphores: array of UInt32) :=
     if (semaphores<>nil) and (semaphores.Length<>0) then
       z_DeleteSemaphoresEXT_ovr_0(n, semaphores[0]) else
       z_DeleteSemaphoresEXT_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSemaphoresEXT(n: Int32; var semaphores: UInt32) :=
     z_DeleteSemaphoresEXT_ovr_0(n, semaphores);
-    private static procedure z_DeleteSemaphoresEXT_ovr_2(n: Int32; semaphores: IntPtr);
-    external 'opengl32.dll' name 'glDeleteSemaphoresEXT';
+    private z_DeleteSemaphoresEXT_ovr_2 := GetFuncOrNil&(z_DeleteSemaphoresEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteSemaphoresEXT(n: Int32; semaphores: IntPtr) :=
     z_DeleteSemaphoresEXT_ovr_2(n, semaphores);
     
-    private static function z_IsSemaphoreEXT_ovr_0(semaphore: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsSemaphoreEXT';
+    private z_IsSemaphoreEXT_adr := GetFuncAdr('glIsSemaphoreEXT');
+    private z_IsSemaphoreEXT_ovr_0 := GetFuncOrNil&(z_IsSemaphoreEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsSemaphoreEXT(semaphore: UInt32): boolean :=
     z_IsSemaphoreEXT_ovr_0(semaphore);
     
-    private static procedure z_SemaphoreParameterui64vEXT_ovr_0(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glSemaphoreParameterui64vEXT';
-    private static procedure z_SemaphoreParameterui64vEXT_ovr_0_anh0001(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSemaphoreParameterui64vEXT';
+    private z_SemaphoreParameterui64vEXT_adr := GetFuncAdr('glSemaphoreParameterui64vEXT');
+    private z_SemaphoreParameterui64vEXT_ovr_0 := GetFuncOrNil&(z_SemaphoreParameterui64vEXT_adr);
+    private z_SemaphoreParameterui64vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_SemaphoreParameterui64vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_SemaphoreParameterui64vEXT_ovr_0(semaphore, pname, ¶ms[0]) else
       z_SemaphoreParameterui64vEXT_ovr_0_anh0001(semaphore, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: UInt64) :=
     z_SemaphoreParameterui64vEXT_ovr_0(semaphore, pname, ¶ms);
-    private static procedure z_SemaphoreParameterui64vEXT_ovr_2(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSemaphoreParameterui64vEXT';
+    private z_SemaphoreParameterui64vEXT_ovr_2 := GetFuncOrNil&(z_SemaphoreParameterui64vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr) :=
     z_SemaphoreParameterui64vEXT_ovr_2(semaphore, pname, ¶ms);
     
-    private static procedure z_GetSemaphoreParameterui64vEXT_ovr_0(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetSemaphoreParameterui64vEXT';
-    private static procedure z_GetSemaphoreParameterui64vEXT_ovr_0_anh0001(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSemaphoreParameterui64vEXT';
+    private z_GetSemaphoreParameterui64vEXT_adr := GetFuncAdr('glGetSemaphoreParameterui64vEXT');
+    private z_GetSemaphoreParameterui64vEXT_ovr_0 := GetFuncOrNil&(z_GetSemaphoreParameterui64vEXT_adr);
+    private z_GetSemaphoreParameterui64vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetSemaphoreParameterui64vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetSemaphoreParameterui64vEXT_ovr_0(semaphore, pname, ¶ms[0]) else
       z_GetSemaphoreParameterui64vEXT_ovr_0_anh0001(semaphore, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: UInt64) :=
     z_GetSemaphoreParameterui64vEXT_ovr_0(semaphore, pname, ¶ms);
-    private static procedure z_GetSemaphoreParameterui64vEXT_ovr_2(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetSemaphoreParameterui64vEXT';
+    private z_GetSemaphoreParameterui64vEXT_ovr_2 := GetFuncOrNil&(z_GetSemaphoreParameterui64vEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterui64vEXT(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr) :=
     z_GetSemaphoreParameterui64vEXT_ovr_2(semaphore, pname, ¶ms);
     
-    private static procedure z_WaitSemaphoreEXT_ovr_0(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0000011(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_0_anh0001011(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: array of TextureLayout) :=
+    private z_WaitSemaphoreEXT_adr := GetFuncAdr('glWaitSemaphoreEXT');
+    private z_WaitSemaphoreEXT_ovr_0 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0001010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0000001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0001001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0000011 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_0_anh0001011 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
@@ -53246,13 +52403,10 @@ type
         if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
           z_WaitSemaphoreEXT_ovr_0_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, srcLayouts[0]) else
           z_WaitSemaphoreEXT_ovr_0_anh0001011(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_WaitSemaphoreEXT_ovr_1_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_1_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_1_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; var srcLayouts: TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_1_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_1_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_1_anh0001010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; var srcLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures[0], srcLayouts) else
@@ -53260,15 +52414,11 @@ type
       if (textures<>nil) and (textures.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures[0], srcLayouts) else
         z_WaitSemaphoreEXT_ovr_0_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_2(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_2_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_2_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_2_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: IntPtr) :=
+    private z_WaitSemaphoreEXT_ovr_2 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_2_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_2_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_2_anh0001010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         z_WaitSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures[0], srcLayouts) else
@@ -53276,11 +52426,9 @@ type
       if (textures<>nil) and (textures.Length<>0) then
         z_WaitSemaphoreEXT_ovr_2_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures[0], srcLayouts) else
         z_WaitSemaphoreEXT_ovr_2_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_3_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_3_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: array of TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_3_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_3_anh0001001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts[0]) else
@@ -53288,27 +52436,21 @@ type
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts[0]) else
         z_WaitSemaphoreEXT_ovr_0_anh0001001(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, IntPtr.Zero);
-    private static procedure z_WaitSemaphoreEXT_ovr_4_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_4_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; var srcLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts) else
       z_WaitSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_5_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr) :=
+    private z_WaitSemaphoreEXT_ovr_5_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_WaitSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts) else
       z_WaitSemaphoreEXT_ovr_2_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_6(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_6_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_6_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_6_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: array of TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_6 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_6_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_6_anh0000001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_6_anh0001001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts[0]) else
@@ -53316,21 +52458,18 @@ type
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_6_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts[0]) else
         z_WaitSemaphoreEXT_ovr_6_anh0001001(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, IntPtr.Zero);
-    private static procedure z_WaitSemaphoreEXT_ovr_7_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_7_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_WaitSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts) else
       z_WaitSemaphoreEXT_ovr_6_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_8(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_8_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr) :=
+    private z_WaitSemaphoreEXT_ovr_8 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_8_anh0001000 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_WaitSemaphoreEXT_ovr_8(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, srcLayouts) else
       z_WaitSemaphoreEXT_ovr_8_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: array of TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts[0]) else
@@ -53338,39 +52477,35 @@ type
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_0_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts[0]) else
         z_WaitSemaphoreEXT_ovr_0_anh0000011(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; var srcLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; var srcLayouts: TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts) else
       z_WaitSemaphoreEXT_ovr_0_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_WaitSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts) else
       z_WaitSemaphoreEXT_ovr_2_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: array of TextureLayout) :=
     if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
       z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts[0]) else
       z_WaitSemaphoreEXT_ovr_0_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; var srcLayouts: TextureLayout) :=
     z_WaitSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: IntPtr) :=
     z_WaitSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: array of TextureLayout) :=
     if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
       z_WaitSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts[0]) else
       z_WaitSemaphoreEXT_ovr_6_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout) :=
     z_WaitSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr) :=
     z_WaitSemaphoreEXT_ovr_8(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_18(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_18_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_18_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_18_anh0000011(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: array of TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_18 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_18_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_18_anh0000001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_18_anh0000011 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: array of TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts[0]) else
@@ -53378,60 +52513,47 @@ type
       if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
         z_WaitSemaphoreEXT_ovr_18_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts[0]) else
         z_WaitSemaphoreEXT_ovr_18_anh0000011(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_WaitSemaphoreEXT_ovr_19_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; var srcLayouts: TextureLayout) :=
+    private z_WaitSemaphoreEXT_ovr_19_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; var srcLayouts: TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_WaitSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts) else
       z_WaitSemaphoreEXT_ovr_18_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_20(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_20_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; srcLayouts: IntPtr) :=
+    private z_WaitSemaphoreEXT_ovr_20 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_20_anh0000010 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; srcLayouts: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_WaitSemaphoreEXT_ovr_20(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], srcLayouts) else
       z_WaitSemaphoreEXT_ovr_20_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: array of TextureLayout) :=
     if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
       z_WaitSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts[0]) else
       z_WaitSemaphoreEXT_ovr_18_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var srcLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; var srcLayouts: TextureLayout) :=
     z_WaitSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; srcLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; srcLayouts: IntPtr) :=
     z_WaitSemaphoreEXT_ovr_20(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_24(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
-    private static procedure z_WaitSemaphoreEXT_ovr_24_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
+    private z_WaitSemaphoreEXT_ovr_24 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
+    private z_WaitSemaphoreEXT_ovr_24_anh0000001 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: array of TextureLayout) :=
     if (srcLayouts<>nil) and (srcLayouts.Length<>0) then
       z_WaitSemaphoreEXT_ovr_24(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts[0]) else
       z_WaitSemaphoreEXT_ovr_24_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var srcLayouts: TextureLayout) :=
     z_WaitSemaphoreEXT_ovr_24(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
-    private static procedure z_WaitSemaphoreEXT_ovr_26(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreEXT';
+    private z_WaitSemaphoreEXT_ovr_26 := GetFuncOrNil&(z_WaitSemaphoreEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; srcLayouts: IntPtr) :=
     z_WaitSemaphoreEXT_ovr_26(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, srcLayouts);
     
-    private static procedure z_SignalSemaphoreEXT_ovr_0(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0000011(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_0_anh0001011(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: array of TextureLayout) :=
+    private z_SignalSemaphoreEXT_adr := GetFuncAdr('glSignalSemaphoreEXT');
+    private z_SignalSemaphoreEXT_ovr_0 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0001010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0000001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0001001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0000011 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_0_anh0001011 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
@@ -53447,13 +52569,10 @@ type
         if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
           z_SignalSemaphoreEXT_ovr_0_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, dstLayouts[0]) else
           z_SignalSemaphoreEXT_ovr_0_anh0001011(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_SignalSemaphoreEXT_ovr_1_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_1_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_1_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; var dstLayouts: TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_1_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_1_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_1_anh0001010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; var dstLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures[0], dstLayouts) else
@@ -53461,15 +52580,11 @@ type
       if (textures<>nil) and (textures.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures[0], dstLayouts) else
         z_SignalSemaphoreEXT_ovr_0_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_2(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_2_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_2_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_2_anh0001010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: IntPtr) :=
+    private z_SignalSemaphoreEXT_ovr_2 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_2_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_2_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_2_anh0001010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (textures<>nil) and (textures.Length<>0) then
         z_SignalSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures[0], dstLayouts) else
@@ -53477,11 +52592,9 @@ type
       if (textures<>nil) and (textures.Length<>0) then
         z_SignalSemaphoreEXT_ovr_2_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures[0], dstLayouts) else
         z_SignalSemaphoreEXT_ovr_2_anh0001010(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_3_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_3_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: array of TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_3_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_3_anh0001001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts[0]) else
@@ -53489,27 +52602,21 @@ type
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts[0]) else
         z_SignalSemaphoreEXT_ovr_0_anh0001001(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, IntPtr.Zero);
-    private static procedure z_SignalSemaphoreEXT_ovr_4_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_4_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; var dstLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts) else
       z_SignalSemaphoreEXT_ovr_0_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_5_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr) :=
+    private z_SignalSemaphoreEXT_ovr_5_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_SignalSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts) else
       z_SignalSemaphoreEXT_ovr_2_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_6(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_6_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_6_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_6_anh0001001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: array of TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_6 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_6_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_6_anh0000001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_6_anh0001001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: array of TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts[0]) else
@@ -53517,21 +52624,18 @@ type
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_6_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts[0]) else
         z_SignalSemaphoreEXT_ovr_6_anh0001001(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, IntPtr.Zero);
-    private static procedure z_SignalSemaphoreEXT_ovr_7_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_7_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_SignalSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts) else
       z_SignalSemaphoreEXT_ovr_6_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_8(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_8_anh0001000(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr) :=
+    private z_SignalSemaphoreEXT_ovr_8 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_8_anh0001000 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: array of gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr) :=
     if (buffers<>nil) and (buffers.Length<>0) then
       z_SignalSemaphoreEXT_ovr_8(semaphore, numBufferBarriers, buffers[0], numTextureBarriers, textures, dstLayouts) else
       z_SignalSemaphoreEXT_ovr_8_anh0001000(semaphore, numBufferBarriers, IntPtr.Zero, numTextureBarriers, textures, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: array of TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts[0]) else
@@ -53539,39 +52643,35 @@ type
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_0_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts[0]) else
         z_SignalSemaphoreEXT_ovr_0_anh0000011(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; var dstLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; var dstLayouts: TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts) else
       z_SignalSemaphoreEXT_ovr_0_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_SignalSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts) else
       z_SignalSemaphoreEXT_ovr_2_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: array of TextureLayout) :=
     if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
       z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts[0]) else
       z_SignalSemaphoreEXT_ovr_0_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; var dstLayouts: TextureLayout) :=
     z_SignalSemaphoreEXT_ovr_0(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: IntPtr) :=
     z_SignalSemaphoreEXT_ovr_2(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: array of TextureLayout) :=
     if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
       z_SignalSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts[0]) else
       z_SignalSemaphoreEXT_ovr_6_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout) :=
     z_SignalSemaphoreEXT_ovr_6(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: UInt32; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; var buffers: gl_buffer; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr) :=
     z_SignalSemaphoreEXT_ovr_8(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_18(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_18_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_18_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_18_anh0000011(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: array of TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_18 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_18_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_18_anh0000001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_18_anh0000011 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: array of TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts[0]) else
@@ -53579,280 +52679,266 @@ type
       if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
         z_SignalSemaphoreEXT_ovr_18_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts[0]) else
         z_SignalSemaphoreEXT_ovr_18_anh0000011(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_SignalSemaphoreEXT_ovr_19_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; var dstLayouts: TextureLayout) :=
+    private z_SignalSemaphoreEXT_ovr_19_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; var dstLayouts: TextureLayout) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_SignalSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts) else
       z_SignalSemaphoreEXT_ovr_18_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_20(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_20_anh0000010(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of UInt32; dstLayouts: IntPtr) :=
+    private z_SignalSemaphoreEXT_ovr_20 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_20_anh0000010 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: array of gl_texture; dstLayouts: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_SignalSemaphoreEXT_ovr_20(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures[0], dstLayouts) else
       z_SignalSemaphoreEXT_ovr_20_anh0000010(semaphore, numBufferBarriers, buffers, numTextureBarriers, IntPtr.Zero, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: array of TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: array of TextureLayout) :=
     if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
       z_SignalSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts[0]) else
       z_SignalSemaphoreEXT_ovr_18_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; var dstLayouts: TextureLayout) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; var dstLayouts: TextureLayout) :=
     z_SignalSemaphoreEXT_ovr_18(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: UInt32; dstLayouts: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; var textures: gl_texture; dstLayouts: IntPtr) :=
     z_SignalSemaphoreEXT_ovr_20(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_24(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
-    private static procedure z_SignalSemaphoreEXT_ovr_24_anh0000001(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
+    private z_SignalSemaphoreEXT_ovr_24 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
+    private z_SignalSemaphoreEXT_ovr_24_anh0000001 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: array of TextureLayout) :=
     if (dstLayouts<>nil) and (dstLayouts.Length<>0) then
       z_SignalSemaphoreEXT_ovr_24(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts[0]) else
       z_SignalSemaphoreEXT_ovr_24_anh0000001(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; var dstLayouts: TextureLayout) :=
     z_SignalSemaphoreEXT_ovr_24(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
-    private static procedure z_SignalSemaphoreEXT_ovr_26(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreEXT';
+    private z_SignalSemaphoreEXT_ovr_26 := GetFuncOrNil&(z_SignalSemaphoreEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreEXT(semaphore: UInt32; numBufferBarriers: UInt32; buffers: IntPtr; numTextureBarriers: UInt32; textures: IntPtr; dstLayouts: IntPtr) :=
     z_SignalSemaphoreEXT_ovr_26(semaphore, numBufferBarriers, buffers, numTextureBarriers, textures, dstLayouts);
     
   end;
   
   [PCUNotRestore]
-  glSemaphoreFdEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSemaphoreFdEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_semaphore_fd';
     
-    private static procedure z_ImportSemaphoreFdEXT_ovr_0(semaphore: UInt32; handleType: ExternalHandleType; fd: Int32);
-    external 'opengl32.dll' name 'glImportSemaphoreFdEXT';
+    private z_ImportSemaphoreFdEXT_adr := GetFuncAdr('glImportSemaphoreFdEXT');
+    private z_ImportSemaphoreFdEXT_ovr_0 := GetFuncOrNil&(z_ImportSemaphoreFdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportSemaphoreFdEXT(semaphore: UInt32; handleType: ExternalHandleType; fd: Int32) :=
     z_ImportSemaphoreFdEXT_ovr_0(semaphore, handleType, fd);
     
   end;
   
   [PCUNotRestore]
-  glSemaphoreWin32EXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSemaphoreWin32EXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_semaphore_win32';
     
-    private static procedure z_ImportSemaphoreWin32HandleEXT_ovr_0(semaphore: UInt32; handleType: ExternalHandleType; handle: IntPtr);
-    external 'opengl32.dll' name 'glImportSemaphoreWin32HandleEXT';
+    private z_ImportSemaphoreWin32HandleEXT_adr := GetFuncAdr('glImportSemaphoreWin32HandleEXT');
+    private z_ImportSemaphoreWin32HandleEXT_ovr_0 := GetFuncOrNil&(z_ImportSemaphoreWin32HandleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportSemaphoreWin32HandleEXT(semaphore: UInt32; handleType: ExternalHandleType; handle: IntPtr) :=
     z_ImportSemaphoreWin32HandleEXT_ovr_0(semaphore, handleType, handle);
     
-    private static procedure z_ImportSemaphoreWin32NameEXT_ovr_0(semaphore: UInt32; handleType: ExternalHandleType; name: IntPtr);
-    external 'opengl32.dll' name 'glImportSemaphoreWin32NameEXT';
+    private z_ImportSemaphoreWin32NameEXT_adr := GetFuncAdr('glImportSemaphoreWin32NameEXT');
+    private z_ImportSemaphoreWin32NameEXT_ovr_0 := GetFuncOrNil&(z_ImportSemaphoreWin32NameEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImportSemaphoreWin32NameEXT(semaphore: UInt32; handleType: ExternalHandleType; name: IntPtr) :=
     z_ImportSemaphoreWin32NameEXT_ovr_0(semaphore, handleType, name);
     
   end;
   
   [PCUNotRestore]
-  glSecondaryColorEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSecondaryColorEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_secondary_color';
     
-    private static procedure z_SecondaryColor3bEXT_ovr_0(red: SByte; green: SByte; blue: SByte);
-    external 'opengl32.dll' name 'glSecondaryColor3bEXT';
+    private z_SecondaryColor3bEXT_adr := GetFuncAdr('glSecondaryColor3bEXT');
+    private z_SecondaryColor3bEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3bEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3bEXT(red: SByte; green: SByte; blue: SByte) :=
     z_SecondaryColor3bEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3bvEXT_ovr_0(var v: SByte);
-    external 'opengl32.dll' name 'glSecondaryColor3bvEXT';
-    private static procedure z_SecondaryColor3bvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3bvEXT';
+    private z_SecondaryColor3bvEXT_adr := GetFuncAdr('glSecondaryColor3bvEXT');
+    private z_SecondaryColor3bvEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3bvEXT_adr);
+    private z_SecondaryColor3bvEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3bvEXT(v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3bvEXT_ovr_0(v[0]) else
       z_SecondaryColor3bvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3bvEXT(var v: SByte) :=
     z_SecondaryColor3bvEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3bvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3bvEXT';
+    private z_SecondaryColor3bvEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3bvEXT(v: IntPtr) :=
     z_SecondaryColor3bvEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3dEXT_ovr_0(red: real; green: real; blue: real);
-    external 'opengl32.dll' name 'glSecondaryColor3dEXT';
+    private z_SecondaryColor3dEXT_adr := GetFuncAdr('glSecondaryColor3dEXT');
+    private z_SecondaryColor3dEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3dEXT(red: real; green: real; blue: real) :=
     z_SecondaryColor3dEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3dvEXT_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glSecondaryColor3dvEXT';
-    private static procedure z_SecondaryColor3dvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3dvEXT';
+    private z_SecondaryColor3dvEXT_adr := GetFuncAdr('glSecondaryColor3dvEXT');
+    private z_SecondaryColor3dvEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3dvEXT_adr);
+    private z_SecondaryColor3dvEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3dvEXT(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3dvEXT_ovr_0(v[0]) else
       z_SecondaryColor3dvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3dvEXT(var v: real) :=
     z_SecondaryColor3dvEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3dvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3dvEXT';
+    private z_SecondaryColor3dvEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3dvEXT(v: IntPtr) :=
     z_SecondaryColor3dvEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3fEXT_ovr_0(red: single; green: single; blue: single);
-    external 'opengl32.dll' name 'glSecondaryColor3fEXT';
+    private z_SecondaryColor3fEXT_adr := GetFuncAdr('glSecondaryColor3fEXT');
+    private z_SecondaryColor3fEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3fEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3fEXT(red: single; green: single; blue: single) :=
     z_SecondaryColor3fEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3fvEXT_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glSecondaryColor3fvEXT';
-    private static procedure z_SecondaryColor3fvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3fvEXT';
+    private z_SecondaryColor3fvEXT_adr := GetFuncAdr('glSecondaryColor3fvEXT');
+    private z_SecondaryColor3fvEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3fvEXT_adr);
+    private z_SecondaryColor3fvEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3fvEXT(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3fvEXT_ovr_0(v[0]) else
       z_SecondaryColor3fvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3fvEXT(var v: single) :=
     z_SecondaryColor3fvEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3fvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3fvEXT';
+    private z_SecondaryColor3fvEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3fvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3fvEXT(v: IntPtr) :=
     z_SecondaryColor3fvEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3iEXT_ovr_0(red: Int32; green: Int32; blue: Int32);
-    external 'opengl32.dll' name 'glSecondaryColor3iEXT';
+    private z_SecondaryColor3iEXT_adr := GetFuncAdr('glSecondaryColor3iEXT');
+    private z_SecondaryColor3iEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3iEXT(red: Int32; green: Int32; blue: Int32) :=
     z_SecondaryColor3iEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3ivEXT_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glSecondaryColor3ivEXT';
-    private static procedure z_SecondaryColor3ivEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3ivEXT';
+    private z_SecondaryColor3ivEXT_adr := GetFuncAdr('glSecondaryColor3ivEXT');
+    private z_SecondaryColor3ivEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3ivEXT_adr);
+    private z_SecondaryColor3ivEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ivEXT(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3ivEXT_ovr_0(v[0]) else
       z_SecondaryColor3ivEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ivEXT(var v: Int32) :=
     z_SecondaryColor3ivEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3ivEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3ivEXT';
+    private z_SecondaryColor3ivEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ivEXT(v: IntPtr) :=
     z_SecondaryColor3ivEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3sEXT_ovr_0(red: Int16; green: Int16; blue: Int16);
-    external 'opengl32.dll' name 'glSecondaryColor3sEXT';
+    private z_SecondaryColor3sEXT_adr := GetFuncAdr('glSecondaryColor3sEXT');
+    private z_SecondaryColor3sEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3sEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3sEXT(red: Int16; green: Int16; blue: Int16) :=
     z_SecondaryColor3sEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3svEXT_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glSecondaryColor3svEXT';
-    private static procedure z_SecondaryColor3svEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3svEXT';
+    private z_SecondaryColor3svEXT_adr := GetFuncAdr('glSecondaryColor3svEXT');
+    private z_SecondaryColor3svEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3svEXT_adr);
+    private z_SecondaryColor3svEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3svEXT(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3svEXT_ovr_0(v[0]) else
       z_SecondaryColor3svEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3svEXT(var v: Int16) :=
     z_SecondaryColor3svEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3svEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3svEXT';
+    private z_SecondaryColor3svEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3svEXT(v: IntPtr) :=
     z_SecondaryColor3svEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3ubEXT_ovr_0(red: Byte; green: Byte; blue: Byte);
-    external 'opengl32.dll' name 'glSecondaryColor3ubEXT';
+    private z_SecondaryColor3ubEXT_adr := GetFuncAdr('glSecondaryColor3ubEXT');
+    private z_SecondaryColor3ubEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3ubEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ubEXT(red: Byte; green: Byte; blue: Byte) :=
     z_SecondaryColor3ubEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3ubvEXT_ovr_0(var v: Byte);
-    external 'opengl32.dll' name 'glSecondaryColor3ubvEXT';
-    private static procedure z_SecondaryColor3ubvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3ubvEXT';
+    private z_SecondaryColor3ubvEXT_adr := GetFuncAdr('glSecondaryColor3ubvEXT');
+    private z_SecondaryColor3ubvEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3ubvEXT_adr);
+    private z_SecondaryColor3ubvEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3ubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ubvEXT(v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3ubvEXT_ovr_0(v[0]) else
       z_SecondaryColor3ubvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ubvEXT(var v: Byte) :=
     z_SecondaryColor3ubvEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3ubvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3ubvEXT';
+    private z_SecondaryColor3ubvEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3ubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3ubvEXT(v: IntPtr) :=
     z_SecondaryColor3ubvEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3uiEXT_ovr_0(red: UInt32; green: UInt32; blue: UInt32);
-    external 'opengl32.dll' name 'glSecondaryColor3uiEXT';
+    private z_SecondaryColor3uiEXT_adr := GetFuncAdr('glSecondaryColor3uiEXT');
+    private z_SecondaryColor3uiEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3uiEXT(red: UInt32; green: UInt32; blue: UInt32) :=
     z_SecondaryColor3uiEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3uivEXT_ovr_0(var v: UInt32);
-    external 'opengl32.dll' name 'glSecondaryColor3uivEXT';
-    private static procedure z_SecondaryColor3uivEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3uivEXT';
+    private z_SecondaryColor3uivEXT_adr := GetFuncAdr('glSecondaryColor3uivEXT');
+    private z_SecondaryColor3uivEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3uivEXT_adr);
+    private z_SecondaryColor3uivEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3uivEXT(v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3uivEXT_ovr_0(v[0]) else
       z_SecondaryColor3uivEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3uivEXT(var v: UInt32) :=
     z_SecondaryColor3uivEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3uivEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3uivEXT';
+    private z_SecondaryColor3uivEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3uivEXT(v: IntPtr) :=
     z_SecondaryColor3uivEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColor3usEXT_ovr_0(red: UInt16; green: UInt16; blue: UInt16);
-    external 'opengl32.dll' name 'glSecondaryColor3usEXT';
+    private z_SecondaryColor3usEXT_adr := GetFuncAdr('glSecondaryColor3usEXT');
+    private z_SecondaryColor3usEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3usEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3usEXT(red: UInt16; green: UInt16; blue: UInt16) :=
     z_SecondaryColor3usEXT_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3usvEXT_ovr_0(var v: UInt16);
-    external 'opengl32.dll' name 'glSecondaryColor3usvEXT';
-    private static procedure z_SecondaryColor3usvEXT_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3usvEXT';
+    private z_SecondaryColor3usvEXT_adr := GetFuncAdr('glSecondaryColor3usvEXT');
+    private z_SecondaryColor3usvEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColor3usvEXT_adr);
+    private z_SecondaryColor3usvEXT_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3usvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3usvEXT(v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3usvEXT_ovr_0(v[0]) else
       z_SecondaryColor3usvEXT_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3usvEXT(var v: UInt16) :=
     z_SecondaryColor3usvEXT_ovr_0(v);
-    private static procedure z_SecondaryColor3usvEXT_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3usvEXT';
+    private z_SecondaryColor3usvEXT_ovr_2 := GetFuncOrNil&(z_SecondaryColor3usvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3usvEXT(v: IntPtr) :=
     z_SecondaryColor3usvEXT_ovr_2(v);
     
-    private static procedure z_SecondaryColorPointerEXT_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColorPointerEXT';
+    private z_SecondaryColorPointerEXT_adr := GetFuncAdr('glSecondaryColorPointerEXT');
+    private z_SecondaryColorPointerEXT_ovr_0 := GetFuncOrNil&(z_SecondaryColorPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorPointerEXT(size: Int32; &type: ColorPointerType; stride: Int32; pointer: IntPtr) :=
     z_SecondaryColorPointerEXT_ovr_0(size, &type, stride, pointer);
     
   end;
   
   [PCUNotRestore]
-  glSeparateShaderObjectsEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSeparateShaderObjectsEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_separate_shader_objects';
     
-    private static procedure z_UseShaderProgramEXT_ovr_0(&type: DummyEnum; &program: UInt32);
-    external 'opengl32.dll' name 'glUseShaderProgramEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseShaderProgramEXT(&type: DummyEnum; &program: UInt32) :=
+    private z_UseShaderProgramEXT_adr := GetFuncAdr('glUseShaderProgramEXT');
+    private z_UseShaderProgramEXT_ovr_0 := GetFuncOrNil&(z_UseShaderProgramEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UseShaderProgramEXT(&type: DummyEnum; &program: gl_program) :=
     z_UseShaderProgramEXT_ovr_0(&type, &program);
     
-    private static procedure z_ActiveProgramEXT_ovr_0(&program: UInt32);
-    external 'opengl32.dll' name 'glActiveProgramEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveProgramEXT(&program: UInt32) :=
+    private z_ActiveProgramEXT_adr := GetFuncAdr('glActiveProgramEXT');
+    private z_ActiveProgramEXT_ovr_0 := GetFuncOrNil&(z_ActiveProgramEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveProgramEXT(&program: gl_program) :=
     z_ActiveProgramEXT_ovr_0(&program);
     
-    private static function z_CreateShaderProgramEXT_ovr_0(&type: ShaderType; _string: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glCreateShaderProgramEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramEXT(&type: ShaderType; _string: string): UInt32;
+    private z_CreateShaderProgramEXT_adr := GetFuncAdr('glCreateShaderProgramEXT');
+    private z_CreateShaderProgramEXT_ovr_0 := GetFuncOrNil&(z_CreateShaderProgramEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramEXT(&type: ShaderType; _string: string): gl_program;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -53862,253 +52948,262 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramEXT(&type: ShaderType; _string: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateShaderProgramEXT(&type: ShaderType; _string: IntPtr): gl_program :=
     z_CreateShaderProgramEXT_ovr_0(&type, _string);
     
   end;
   
   [PCUNotRestore]
-  glShaderFramebufferFetchNonCoherentEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderFramebufferFetchNonCoherentEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_shader_framebuffer_fetch_non_coherent';
     
-    private static procedure z_FramebufferFetchBarrierEXT_ovr_0;
-    external 'opengl32.dll' name 'glFramebufferFetchBarrierEXT';
+    private z_FramebufferFetchBarrierEXT_adr := GetFuncAdr('glFramebufferFetchBarrierEXT');
+    private z_FramebufferFetchBarrierEXT_ovr_0 := GetFuncOrNil&(z_FramebufferFetchBarrierEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferFetchBarrierEXT :=
     z_FramebufferFetchBarrierEXT_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glShaderImageLoadStoreEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderImageLoadStoreEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_shader_image_load_store';
     
-    private static procedure z_BindImageTextureEXT_ovr_0(index: UInt32; texture: UInt32; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: Int32);
-    external 'opengl32.dll' name 'glBindImageTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextureEXT(index: UInt32; texture: UInt32; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: Int32) :=
+    private z_BindImageTextureEXT_adr := GetFuncAdr('glBindImageTextureEXT');
+    private z_BindImageTextureEXT_ovr_0 := GetFuncOrNil&(z_BindImageTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindImageTextureEXT(index: UInt32; texture: gl_texture; level: Int32; layered: boolean; layer: Int32; access: BufferAccessARB; format: Int32) :=
     z_BindImageTextureEXT_ovr_0(index, texture, level, layered, layer, access, format);
     
-    private static procedure z_MemoryBarrierEXT_ovr_0(barriers: MemoryBarrierMask);
-    external 'opengl32.dll' name 'glMemoryBarrierEXT';
+    private z_MemoryBarrierEXT_adr := GetFuncAdr('glMemoryBarrierEXT');
+    private z_MemoryBarrierEXT_ovr_0 := GetFuncOrNil&(z_MemoryBarrierEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MemoryBarrierEXT(barriers: MemoryBarrierMask) :=
     z_MemoryBarrierEXT_ovr_0(barriers);
     
   end;
   
   [PCUNotRestore]
-  glStencilClearTagEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glStencilClearTagEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_stencil_clear_tag';
     
-    private static procedure z_StencilClearTagEXT_ovr_0(stencilTagBits: Int32; stencilClearTag: UInt32);
-    external 'opengl32.dll' name 'glStencilClearTagEXT';
+    private z_StencilClearTagEXT_adr := GetFuncAdr('glStencilClearTagEXT');
+    private z_StencilClearTagEXT_ovr_0 := GetFuncOrNil&(z_StencilClearTagEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilClearTagEXT(stencilTagBits: Int32; stencilClearTag: UInt32) :=
     z_StencilClearTagEXT_ovr_0(stencilTagBits, stencilClearTag);
     
   end;
   
   [PCUNotRestore]
-  glStencilTwoSideEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glStencilTwoSideEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_stencil_two_side';
     
-    private static procedure z_ActiveStencilFaceEXT_ovr_0(face: StencilFaceDirection);
-    external 'opengl32.dll' name 'glActiveStencilFaceEXT';
+    private z_ActiveStencilFaceEXT_adr := GetFuncAdr('glActiveStencilFaceEXT');
+    private z_ActiveStencilFaceEXT_ovr_0 := GetFuncOrNil&(z_ActiveStencilFaceEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveStencilFaceEXT(face: StencilFaceDirection) :=
     z_ActiveStencilFaceEXT_ovr_0(face);
     
   end;
   
   [PCUNotRestore]
-  glSubtextureEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSubtextureEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_subtexture';
     
-    private static procedure z_TexSubImage1DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage1DEXT';
+    private z_TexSubImage1DEXT_adr := GetFuncAdr('glTexSubImage1DEXT');
+    private z_TexSubImage1DEXT_ovr_0 := GetFuncOrNil&(z_TexSubImage1DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage1DEXT(target: TextureTarget; level: Int32; xoffset: Int32; width: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexSubImage1DEXT_ovr_0(target, level, xoffset, width, format, &type, pixels);
     
-    private static procedure z_TexSubImage2DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage2DEXT';
+    private z_TexSubImage2DEXT_adr := GetFuncAdr('glTexSubImage2DEXT');
+    private z_TexSubImage2DEXT_ovr_0 := GetFuncOrNil&(z_TexSubImage2DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage2DEXT(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexSubImage2DEXT_ovr_0(target, level, xoffset, yoffset, width, height, format, &type, pixels);
     
   end;
   
   [PCUNotRestore]
-  glTexture3DEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTexture3DEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture3D';
     
-    private static procedure z_TexImage3DEXT_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexImage3DEXT';
+    private z_TexImage3DEXT_adr := GetFuncAdr('glTexImage3DEXT');
+    private z_TexImage3DEXT_ovr_0 := GetFuncOrNil&(z_TexImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage3DEXT(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexImage3DEXT_ovr_0(target, level, _internalformat, width, height, depth, border, format, &type, pixels);
     
-    private static procedure z_TexSubImage3DEXT_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage3DEXT';
+    private z_TexSubImage3DEXT_adr := GetFuncAdr('glTexSubImage3DEXT');
+    private z_TexSubImage3DEXT_ovr_0 := GetFuncOrNil&(z_TexSubImage3DEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage3DEXT(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexSubImage3DEXT_ovr_0(target, level, xoffset, yoffset, zoffset, width, height, depth, format, &type, pixels);
     
   end;
   
   [PCUNotRestore]
-  glTextureArrayEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureArrayEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture_array';
     
-    private static procedure z_FramebufferTextureLayerEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureLayerEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32) :=
+    private z_FramebufferTextureLayerEXT_adr := GetFuncAdr('glFramebufferTextureLayerEXT');
+    private z_FramebufferTextureLayerEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayerEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_FramebufferTextureLayerEXT_ovr_0(target, attachment, texture, level, layer);
     
   end;
   
   [PCUNotRestore]
-  glTextureBufferObjectEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureBufferObjectEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture_buffer_object';
     
-    private static procedure z_TexBufferEXT_ovr_0(target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32);
-    external 'opengl32.dll' name 'glTexBufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferEXT(target: TextureTarget; _internalformat: InternalFormat; buffer: UInt32) :=
+    private z_TexBufferEXT_adr := GetFuncAdr('glTexBufferEXT');
+    private z_TexBufferEXT_ovr_0 := GetFuncOrNil&(z_TexBufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexBufferEXT(target: TextureTarget; _internalformat: InternalFormat; buffer: gl_buffer) :=
     z_TexBufferEXT_ovr_0(target, _internalformat, buffer);
     
   end;
   
   [PCUNotRestore]
-  glTextureIntegerEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureIntegerEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture_integer';
     
-    private static procedure z_TexParameterIivEXT_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glTexParameterIivEXT';
-    private static procedure z_TexParameterIivEXT_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterIivEXT';
+    private z_TexParameterIivEXT_adr := GetFuncAdr('glTexParameterIivEXT');
+    private z_TexParameterIivEXT_ovr_0 := GetFuncOrNil&(z_TexParameterIivEXT_adr);
+    private z_TexParameterIivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_TexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIivEXT(target: TextureTarget; pname: TextureParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TexParameterIivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_TexParameterIivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIivEXT(target: TextureTarget; pname: TextureParameterName; var ¶ms: Int32) :=
     z_TexParameterIivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexParameterIivEXT_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterIivEXT';
+    private z_TexParameterIivEXT_ovr_2 := GetFuncOrNil&(z_TexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIivEXT(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TexParameterIivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_TexParameterIuivEXT_ovr_0(target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glTexParameterIuivEXT';
-    private static procedure z_TexParameterIuivEXT_ovr_0_anh0001(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterIuivEXT';
+    private z_TexParameterIuivEXT_adr := GetFuncAdr('glTexParameterIuivEXT');
+    private z_TexParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_TexParameterIuivEXT_adr);
+    private z_TexParameterIuivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_TexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIuivEXT(target: TextureTarget; pname: TextureParameterName; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TexParameterIuivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_TexParameterIuivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIuivEXT(target: TextureTarget; pname: TextureParameterName; var ¶ms: UInt32) :=
     z_TexParameterIuivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexParameterIuivEXT_ovr_2(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterIuivEXT';
+    private z_TexParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_TexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterIuivEXT(target: TextureTarget; pname: TextureParameterName; ¶ms: IntPtr) :=
     z_TexParameterIuivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetTexParameterIivEXT_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTexParameterIivEXT';
-    private static procedure z_GetTexParameterIivEXT_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterIivEXT';
+    private z_GetTexParameterIivEXT_adr := GetFuncAdr('glGetTexParameterIivEXT');
+    private z_GetTexParameterIivEXT_ovr_0 := GetFuncOrNil&(z_GetTexParameterIivEXT_adr);
+    private z_GetTexParameterIivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIivEXT(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexParameterIivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetTexParameterIivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIivEXT(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Int32) :=
     z_GetTexParameterIivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameterIivEXT_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterIivEXT';
+    private z_GetTexParameterIivEXT_ovr_2 := GetFuncOrNil&(z_GetTexParameterIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIivEXT(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTexParameterIivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetTexParameterIuivEXT_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetTexParameterIuivEXT';
-    private static procedure z_GetTexParameterIuivEXT_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterIuivEXT';
+    private z_GetTexParameterIuivEXT_adr := GetFuncAdr('glGetTexParameterIuivEXT');
+    private z_GetTexParameterIuivEXT_ovr_0 := GetFuncOrNil&(z_GetTexParameterIuivEXT_adr);
+    private z_GetTexParameterIuivEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIuivEXT(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexParameterIuivEXT_ovr_0(target, pname, ¶ms[0]) else
       z_GetTexParameterIuivEXT_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIuivEXT(target: TextureTarget; pname: GetTextureParameter; var ¶ms: UInt32) :=
     z_GetTexParameterIuivEXT_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameterIuivEXT_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterIuivEXT';
+    private z_GetTexParameterIuivEXT_ovr_2 := GetFuncOrNil&(z_GetTexParameterIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterIuivEXT(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTexParameterIuivEXT_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ClearColorIiEXT_ovr_0(red: Int32; green: Int32; blue: Int32; alpha: Int32);
-    external 'opengl32.dll' name 'glClearColorIiEXT';
+    private z_ClearColorIiEXT_adr := GetFuncAdr('glClearColorIiEXT');
+    private z_ClearColorIiEXT_ovr_0 := GetFuncOrNil&(z_ClearColorIiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearColorIiEXT(red: Int32; green: Int32; blue: Int32; alpha: Int32) :=
     z_ClearColorIiEXT_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_ClearColorIuiEXT_ovr_0(red: UInt32; green: UInt32; blue: UInt32; alpha: UInt32);
-    external 'opengl32.dll' name 'glClearColorIuiEXT';
+    private z_ClearColorIuiEXT_adr := GetFuncAdr('glClearColorIuiEXT');
+    private z_ClearColorIuiEXT_ovr_0 := GetFuncOrNil&(z_ClearColorIuiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearColorIuiEXT(red: UInt32; green: UInt32; blue: UInt32; alpha: UInt32) :=
     z_ClearColorIuiEXT_ovr_0(red, green, blue, alpha);
     
   end;
   
   [PCUNotRestore]
-  glTextureObjectEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureObjectEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture_object';
     
-    private static function z_AreTexturesResidentEXT_ovr_0(n: Int32; var textures: UInt32; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    private static function z_AreTexturesResidentEXT_ovr_0_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    private static function z_AreTexturesResidentEXT_ovr_0_anh0001(n: Int32; var textures: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    private static function z_AreTexturesResidentEXT_ovr_0_anh0011(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of UInt32; residences: array of boolean): boolean :=
+    private z_AreTexturesResidentEXT_adr := GetFuncAdr('glAreTexturesResidentEXT');
+    private z_AreTexturesResidentEXT_ovr_0 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    private z_AreTexturesResidentEXT_ovr_0_anh0010 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    private z_AreTexturesResidentEXT_ovr_0_anh0001 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    private z_AreTexturesResidentEXT_ovr_0_anh0011 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of gl_texture; residences: array of boolean): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
       if (residences<>nil) and (residences.Length<>0) then
         z_AreTexturesResidentEXT_ovr_0(n, textures[0], residences[0]) else
@@ -54116,92 +53211,79 @@ type
       if (residences<>nil) and (residences.Length<>0) then
         z_AreTexturesResidentEXT_ovr_0_anh0010(n, IntPtr.Zero, residences[0]) else
         z_AreTexturesResidentEXT_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AreTexturesResidentEXT_ovr_1_anh0010(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of UInt32; var residences: boolean): boolean :=
+    private z_AreTexturesResidentEXT_ovr_1_anh0010 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of gl_texture; var residences: boolean): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
       z_AreTexturesResidentEXT_ovr_0(n, textures[0], residences) else
       z_AreTexturesResidentEXT_ovr_0_anh0010(n, IntPtr.Zero, residences);
-    private static function z_AreTexturesResidentEXT_ovr_2(n: Int32; var textures: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    private static function z_AreTexturesResidentEXT_ovr_2_anh0010(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of UInt32; residences: IntPtr): boolean :=
+    private z_AreTexturesResidentEXT_ovr_2 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    private z_AreTexturesResidentEXT_ovr_2_anh0010 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: array of gl_texture; residences: IntPtr): boolean :=
     if (textures<>nil) and (textures.Length<>0) then
       z_AreTexturesResidentEXT_ovr_2(n, textures[0], residences) else
       z_AreTexturesResidentEXT_ovr_2_anh0010(n, IntPtr.Zero, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: UInt32; residences: array of boolean): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: gl_texture; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
       z_AreTexturesResidentEXT_ovr_0(n, textures, residences[0]) else
       z_AreTexturesResidentEXT_ovr_0_anh0001(n, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: UInt32; var residences: boolean): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: gl_texture; var residences: boolean): boolean :=
     z_AreTexturesResidentEXT_ovr_0(n, textures, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: UInt32; residences: IntPtr): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; var textures: gl_texture; residences: IntPtr): boolean :=
     z_AreTexturesResidentEXT_ovr_2(n, textures, residences);
-    private static function z_AreTexturesResidentEXT_ovr_6(n: Int32; textures: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
-    private static function z_AreTexturesResidentEXT_ovr_6_anh0001(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
+    private z_AreTexturesResidentEXT_ovr_6 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
+    private z_AreTexturesResidentEXT_ovr_6_anh0001 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: IntPtr; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
       z_AreTexturesResidentEXT_ovr_6(n, textures, residences[0]) else
       z_AreTexturesResidentEXT_ovr_6_anh0001(n, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: IntPtr; var residences: boolean): boolean :=
     z_AreTexturesResidentEXT_ovr_6(n, textures, residences);
-    private static function z_AreTexturesResidentEXT_ovr_8(n: Int32; textures: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreTexturesResidentEXT';
+    private z_AreTexturesResidentEXT_ovr_8 := GetFuncOrNil&(z_AreTexturesResidentEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreTexturesResidentEXT(n: Int32; textures: IntPtr; residences: IntPtr): boolean :=
     z_AreTexturesResidentEXT_ovr_8(n, textures, residences);
     
-    private static procedure z_BindTextureEXT_ovr_0(target: TextureTarget; texture: UInt32);
-    external 'opengl32.dll' name 'glBindTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureEXT(target: TextureTarget; texture: UInt32) :=
+    private z_BindTextureEXT_adr := GetFuncAdr('glBindTextureEXT');
+    private z_BindTextureEXT_ovr_0 := GetFuncOrNil&(z_BindTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTextureEXT(target: TextureTarget; texture: gl_texture) :=
     z_BindTextureEXT_ovr_0(target, texture);
     
-    private static procedure z_DeleteTexturesEXT_ovr_0(n: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glDeleteTexturesEXT';
-    private static procedure z_DeleteTexturesEXT_ovr_0_anh001(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTexturesEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTexturesEXT(n: Int32; textures: array of UInt32) :=
+    private z_DeleteTexturesEXT_adr := GetFuncAdr('glDeleteTexturesEXT');
+    private z_DeleteTexturesEXT_ovr_0 := GetFuncOrNil&(z_DeleteTexturesEXT_adr);
+    private z_DeleteTexturesEXT_ovr_0_anh001 := GetFuncOrNil&(z_DeleteTexturesEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTexturesEXT(n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_DeleteTexturesEXT_ovr_0(n, textures[0]) else
       z_DeleteTexturesEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTexturesEXT(n: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTexturesEXT(n: Int32; var textures: gl_texture) :=
     z_DeleteTexturesEXT_ovr_0(n, textures);
-    private static procedure z_DeleteTexturesEXT_ovr_2(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTexturesEXT';
+    private z_DeleteTexturesEXT_ovr_2 := GetFuncOrNil&(z_DeleteTexturesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTexturesEXT(n: Int32; textures: IntPtr) :=
     z_DeleteTexturesEXT_ovr_2(n, textures);
     
-    private static procedure z_GenTexturesEXT_ovr_0(n: Int32; var textures: UInt32);
-    external 'opengl32.dll' name 'glGenTexturesEXT';
-    private static procedure z_GenTexturesEXT_ovr_0_anh001(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glGenTexturesEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTexturesEXT(n: Int32; textures: array of UInt32) :=
+    private z_GenTexturesEXT_adr := GetFuncAdr('glGenTexturesEXT');
+    private z_GenTexturesEXT_ovr_0 := GetFuncOrNil&(z_GenTexturesEXT_adr);
+    private z_GenTexturesEXT_ovr_0_anh001 := GetFuncOrNil&(z_GenTexturesEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTexturesEXT(n: Int32; textures: array of gl_texture) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_GenTexturesEXT_ovr_0(n, textures[0]) else
       z_GenTexturesEXT_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTexturesEXT(n: Int32; var textures: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTexturesEXT(n: Int32; var textures: gl_texture) :=
     z_GenTexturesEXT_ovr_0(n, textures);
-    private static procedure z_GenTexturesEXT_ovr_2(n: Int32; textures: IntPtr);
-    external 'opengl32.dll' name 'glGenTexturesEXT';
+    private z_GenTexturesEXT_ovr_2 := GetFuncOrNil&(z_GenTexturesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTexturesEXT(n: Int32; textures: IntPtr) :=
     z_GenTexturesEXT_ovr_2(n, textures);
     
-    private static function z_IsTextureEXT_ovr_0(texture: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTextureEXT(texture: UInt32): boolean :=
+    private z_IsTextureEXT_adr := GetFuncAdr('glIsTextureEXT');
+    private z_IsTextureEXT_ovr_0 := GetFuncOrNil&(z_IsTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTextureEXT(texture: gl_texture): boolean :=
     z_IsTextureEXT_ovr_0(texture);
     
-    private static procedure z_PrioritizeTexturesEXT_ovr_0(n: Int32; var textures: UInt32; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    private static procedure z_PrioritizeTexturesEXT_ovr_0_anh0010(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    private static procedure z_PrioritizeTexturesEXT_ovr_0_anh0001(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    private static procedure z_PrioritizeTexturesEXT_ovr_0_anh0011(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of UInt32; priorities: array of single) :=
+    private z_PrioritizeTexturesEXT_adr := GetFuncAdr('glPrioritizeTexturesEXT');
+    private z_PrioritizeTexturesEXT_ovr_0 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    private z_PrioritizeTexturesEXT_ovr_0_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    private z_PrioritizeTexturesEXT_ovr_0_anh0001 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    private z_PrioritizeTexturesEXT_ovr_0_anh0011 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of gl_texture; priorities: array of single) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (priorities<>nil) and (priorities.Length<>0) then
         z_PrioritizeTexturesEXT_ovr_0(n, textures[0], priorities[0]) else
@@ -54209,141 +53291,188 @@ type
       if (priorities<>nil) and (priorities.Length<>0) then
         z_PrioritizeTexturesEXT_ovr_0_anh0010(n, IntPtr.Zero, priorities[0]) else
         z_PrioritizeTexturesEXT_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_PrioritizeTexturesEXT_ovr_1_anh0010(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of UInt32; var priorities: single) :=
+    private z_PrioritizeTexturesEXT_ovr_1_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of gl_texture; var priorities: single) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_PrioritizeTexturesEXT_ovr_0(n, textures[0], priorities) else
       z_PrioritizeTexturesEXT_ovr_0_anh0010(n, IntPtr.Zero, priorities);
-    private static procedure z_PrioritizeTexturesEXT_ovr_2(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    private static procedure z_PrioritizeTexturesEXT_ovr_2_anh0010(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of UInt32; priorities: IntPtr) :=
+    private z_PrioritizeTexturesEXT_ovr_2 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    private z_PrioritizeTexturesEXT_ovr_2_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: array of gl_texture; priorities: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_PrioritizeTexturesEXT_ovr_2(n, textures[0], priorities) else
       z_PrioritizeTexturesEXT_ovr_2_anh0010(n, IntPtr.Zero, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: UInt32; priorities: array of single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: gl_texture; priorities: array of single) :=
     if (priorities<>nil) and (priorities.Length<>0) then
       z_PrioritizeTexturesEXT_ovr_0(n, textures, priorities[0]) else
       z_PrioritizeTexturesEXT_ovr_0_anh0001(n, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: UInt32; var priorities: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: gl_texture; var priorities: single) :=
     z_PrioritizeTexturesEXT_ovr_0(n, textures, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: UInt32; priorities: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; var textures: gl_texture; priorities: IntPtr) :=
     z_PrioritizeTexturesEXT_ovr_2(n, textures, priorities);
-    private static procedure z_PrioritizeTexturesEXT_ovr_6(n: Int32; textures: IntPtr; var priorities: single);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
-    private static procedure z_PrioritizeTexturesEXT_ovr_6_anh0001(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
+    private z_PrioritizeTexturesEXT_ovr_6 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
+    private z_PrioritizeTexturesEXT_ovr_6_anh0001 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: IntPtr; priorities: array of single) :=
     if (priorities<>nil) and (priorities.Length<>0) then
       z_PrioritizeTexturesEXT_ovr_6(n, textures, priorities[0]) else
       z_PrioritizeTexturesEXT_ovr_6_anh0001(n, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: IntPtr; var priorities: single) :=
     z_PrioritizeTexturesEXT_ovr_6(n, textures, priorities);
-    private static procedure z_PrioritizeTexturesEXT_ovr_8(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesEXT';
+    private z_PrioritizeTexturesEXT_ovr_8 := GetFuncOrNil&(z_PrioritizeTexturesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesEXT(n: Int32; textures: IntPtr; priorities: IntPtr) :=
     z_PrioritizeTexturesEXT_ovr_8(n, textures, priorities);
     
   end;
   
   [PCUNotRestore]
-  glTexturePerturbNormalEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTexturePerturbNormalEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_texture_perturb_normal';
     
-    private static procedure z_TextureNormalEXT_ovr_0(mode: TextureNormalModeEXT);
-    external 'opengl32.dll' name 'glTextureNormalEXT';
+    private z_TextureNormalEXT_adr := GetFuncAdr('glTextureNormalEXT');
+    private z_TextureNormalEXT_ovr_0 := GetFuncOrNil&(z_TextureNormalEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureNormalEXT(mode: TextureNormalModeEXT) :=
     z_TextureNormalEXT_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glTimerQueryEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTimelineSemaphoreNV = 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(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_timeline_semaphore';
+    
+    private z_CreateSemaphoresNV_adr := GetFuncAdr('glCreateSemaphoresNV');
+    private z_CreateSemaphoresNV_ovr_0 := GetFuncOrNil&(z_CreateSemaphoresNV_adr);
+    private z_CreateSemaphoresNV_ovr_0_anh001 := GetFuncOrNil&(z_CreateSemaphoresNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSemaphoresNV(n: Int32; semaphores: array of UInt32) :=
+    if (semaphores<>nil) and (semaphores.Length<>0) then
+      z_CreateSemaphoresNV_ovr_0(n, semaphores[0]) else
+      z_CreateSemaphoresNV_ovr_0_anh001(n, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSemaphoresNV(n: Int32; var semaphores: UInt32) :=
+    z_CreateSemaphoresNV_ovr_0(n, semaphores);
+    private z_CreateSemaphoresNV_ovr_2 := GetFuncOrNil&(z_CreateSemaphoresNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateSemaphoresNV(n: Int32; semaphores: IntPtr) :=
+    z_CreateSemaphoresNV_ovr_2(n, semaphores);
+    
+    private z_SemaphoreParameterivNV_adr := GetFuncAdr('glSemaphoreParameterivNV');
+    private z_SemaphoreParameterivNV_ovr_0 := GetFuncOrNil&(z_SemaphoreParameterivNV_adr);
+    private z_SemaphoreParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_SemaphoreParameterivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: array of Int32) :=
+    if (¶ms<>nil) and (¶ms.Length<>0) then
+      z_SemaphoreParameterivNV_ovr_0(semaphore, pname, ¶ms[0]) else
+      z_SemaphoreParameterivNV_ovr_0_anh0001(semaphore, pname, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: Int32) :=
+    z_SemaphoreParameterivNV_ovr_0(semaphore, pname, ¶ms);
+    private z_SemaphoreParameterivNV_ovr_2 := GetFuncOrNil&(z_SemaphoreParameterivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr) :=
+    z_SemaphoreParameterivNV_ovr_2(semaphore, pname, ¶ms);
+    
+    private z_GetSemaphoreParameterivNV_adr := GetFuncAdr('glGetSemaphoreParameterivNV');
+    private z_GetSemaphoreParameterivNV_ovr_0 := GetFuncOrNil&(z_GetSemaphoreParameterivNV_adr);
+    private z_GetSemaphoreParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetSemaphoreParameterivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: array of Int32) :=
+    if (¶ms<>nil) and (¶ms.Length<>0) then
+      z_GetSemaphoreParameterivNV_ovr_0(semaphore, pname, ¶ms[0]) else
+      z_GetSemaphoreParameterivNV_ovr_0_anh0001(semaphore, pname, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; var ¶ms: Int32) :=
+    z_GetSemaphoreParameterivNV_ovr_0(semaphore, pname, ¶ms);
+    private z_GetSemaphoreParameterivNV_ovr_2 := GetFuncOrNil&(z_GetSemaphoreParameterivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSemaphoreParameterivNV(semaphore: UInt32; pname: SemaphoreParameterName; ¶ms: IntPtr) :=
+    z_GetSemaphoreParameterivNV_ovr_2(semaphore, pname, ¶ms);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTimerQueryEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_timer_query';
     
-    private static procedure z_GetQueryObjecti64vEXT_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetQueryObjecti64vEXT';
-    private static procedure z_GetQueryObjecti64vEXT_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjecti64vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
+    private z_GetQueryObjecti64vEXT_adr := GetFuncAdr('glGetQueryObjecti64vEXT');
+    private z_GetQueryObjecti64vEXT_ovr_0 := GetFuncOrNil&(z_GetQueryObjecti64vEXT_adr);
+    private z_GetQueryObjecti64vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjecti64vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjecti64vEXT_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjecti64vEXT_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: UInt32; pname: QueryObjectParameterName; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: gl_query; pname: QueryObjectParameterName; var ¶ms: Int64) :=
     z_GetQueryObjecti64vEXT_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjecti64vEXT_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjecti64vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjecti64vEXT_ovr_2 := GetFuncOrNil&(z_GetQueryObjecti64vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjecti64vEXT(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjecti64vEXT_ovr_2(id, pname, ¶ms);
     
-    private static procedure z_GetQueryObjectui64vEXT_ovr_0(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetQueryObjectui64vEXT';
-    private static procedure z_GetQueryObjectui64vEXT_ovr_0_anh0001(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectui64vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: UInt32; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
+    private z_GetQueryObjectui64vEXT_adr := GetFuncAdr('glGetQueryObjectui64vEXT');
+    private z_GetQueryObjectui64vEXT_ovr_0 := GetFuncOrNil&(z_GetQueryObjectui64vEXT_adr);
+    private z_GetQueryObjectui64vEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetQueryObjectui64vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: gl_query; pname: QueryObjectParameterName; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetQueryObjectui64vEXT_ovr_0(id, pname, ¶ms[0]) else
       z_GetQueryObjectui64vEXT_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: UInt32; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: gl_query; pname: QueryObjectParameterName; var ¶ms: UInt64) :=
     z_GetQueryObjectui64vEXT_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetQueryObjectui64vEXT_ovr_2(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetQueryObjectui64vEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: UInt32; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
+    private z_GetQueryObjectui64vEXT_ovr_2 := GetFuncOrNil&(z_GetQueryObjectui64vEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetQueryObjectui64vEXT(id: gl_query; pname: QueryObjectParameterName; ¶ms: IntPtr) :=
     z_GetQueryObjectui64vEXT_ovr_2(id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedbackEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedbackEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_transform_feedback';
     
-    private static procedure z_BeginTransformFeedbackEXT_ovr_0(primitiveMode: PrimitiveType);
-    external 'opengl32.dll' name 'glBeginTransformFeedbackEXT';
+    private z_BeginTransformFeedbackEXT_adr := GetFuncAdr('glBeginTransformFeedbackEXT');
+    private z_BeginTransformFeedbackEXT_ovr_0 := GetFuncOrNil&(z_BeginTransformFeedbackEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginTransformFeedbackEXT(primitiveMode: PrimitiveType) :=
     z_BeginTransformFeedbackEXT_ovr_0(primitiveMode);
     
-    private static procedure z_EndTransformFeedbackEXT_ovr_0;
-    external 'opengl32.dll' name 'glEndTransformFeedbackEXT';
+    private z_EndTransformFeedbackEXT_adr := GetFuncAdr('glEndTransformFeedbackEXT');
+    private z_EndTransformFeedbackEXT_ovr_0 := GetFuncOrNil&(z_EndTransformFeedbackEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndTransformFeedbackEXT :=
     z_EndTransformFeedbackEXT_ovr_0;
     
-    private static procedure z_BindBufferRangeEXT_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glBindBufferRangeEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRangeEXT(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr; size: IntPtr) :=
+    private z_BindBufferRangeEXT_adr := GetFuncAdr('glBindBufferRangeEXT');
+    private z_BindBufferRangeEXT_ovr_0 := GetFuncOrNil&(z_BindBufferRangeEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRangeEXT(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_BindBufferRangeEXT_ovr_0(target, index, buffer, offset, size);
     
-    private static procedure z_BindBufferOffsetEXT_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr);
-    external 'opengl32.dll' name 'glBindBufferOffsetEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferOffsetEXT(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr) :=
+    private z_BindBufferOffsetEXT_adr := GetFuncAdr('glBindBufferOffsetEXT');
+    private z_BindBufferOffsetEXT_ovr_0 := GetFuncOrNil&(z_BindBufferOffsetEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferOffsetEXT(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr) :=
     z_BindBufferOffsetEXT_ovr_0(target, index, buffer, offset);
     
-    private static procedure z_BindBufferBaseEXT_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32);
-    external 'opengl32.dll' name 'glBindBufferBaseEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBaseEXT(target: BufferTargetARB; index: UInt32; buffer: UInt32) :=
+    private z_BindBufferBaseEXT_adr := GetFuncAdr('glBindBufferBaseEXT');
+    private z_BindBufferBaseEXT_ovr_0 := GetFuncOrNil&(z_BindBufferBaseEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBaseEXT(target: BufferTargetARB; index: UInt32; buffer: gl_buffer) :=
     z_BindBufferBaseEXT_ovr_0(target, index, buffer);
     
-    private static procedure z_TransformFeedbackVaryingsEXT_ovr_0(&program: UInt32; count: Int32; var varyings: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsEXT';
-    private static procedure z_TransformFeedbackVaryingsEXT_ovr_0_anh00010(&program: UInt32; count: Int32; varyings: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: UInt32; count: Int32; varyings: array of string; bufferMode: DummyEnum);
+    private z_TransformFeedbackVaryingsEXT_adr := GetFuncAdr('glTransformFeedbackVaryingsEXT');
+    private z_TransformFeedbackVaryingsEXT_ovr_0 := GetFuncOrNil&(z_TransformFeedbackVaryingsEXT_adr);
+    private z_TransformFeedbackVaryingsEXT_ovr_0_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryingsEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: gl_program; count: Int32; varyings: array of string; bufferMode: DummyEnum);
     begin
       var par_3_str_ptr: array of IntPtr;
       try
@@ -54355,1045 +53484,806 @@ type
         foreach var arr_el1 in par_3_str_ptr do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_TransformFeedbackVaryingsEXT_ovr_1_anh00010(&program: UInt32; count: Int32; varyings: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: UInt32; count: Int32; varyings: array of IntPtr; bufferMode: DummyEnum) :=
+    private z_TransformFeedbackVaryingsEXT_ovr_1_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryingsEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: gl_program; count: Int32; varyings: array of IntPtr; bufferMode: DummyEnum) :=
     if (varyings<>nil) and (varyings.Length<>0) then
       z_TransformFeedbackVaryingsEXT_ovr_0(&program, count, varyings[0], bufferMode) else
       z_TransformFeedbackVaryingsEXT_ovr_0_anh00010(&program, count, IntPtr.Zero, bufferMode);
-    private static procedure z_TransformFeedbackVaryingsEXT_ovr_2(&program: UInt32; count: Int32; varyings: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: UInt32; count: Int32; varyings: IntPtr; bufferMode: DummyEnum) :=
+    private z_TransformFeedbackVaryingsEXT_ovr_2 := GetFuncOrNil&(z_TransformFeedbackVaryingsEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsEXT(&program: gl_program; count: Int32; varyings: IntPtr; bufferMode: DummyEnum) :=
     z_TransformFeedbackVaryingsEXT_ovr_2(&program, count, varyings, bufferMode);
     
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000110(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001110(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length[0], size[0], &type[0], name) else
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000010(&program, index, bufSize, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000110(&program, index, bufSize, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001110(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_1_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_1_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_1_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_2(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_2_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_2_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_2_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_2(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_2_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_2_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_3_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_3_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_4_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_5_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_2(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_6(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_6_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_6_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_6_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_6(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_6_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_6_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_7_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_6(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_8(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_8_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_8(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_8_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_2(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_2_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_0_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    private z_GetTransformFeedbackVaryingEXT_adr := GetFuncAdr('glGetTransformFeedbackVaryingEXT');
+    private z_GetTransformFeedbackVaryingEXT_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVaryingEXT_ovr_0(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetTransformFeedbackVaryingEXT_ovr_1 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVaryingEXT_ovr_1(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVaryingEXT_ovr_2 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVaryingEXT_ovr_2(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_6(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_6_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
+    private z_GetTransformFeedbackVaryingEXT_ovr_3 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVaryingEXT_ovr_3(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVaryingEXT_ovr_4 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
+    z_GetTransformFeedbackVaryingEXT_ovr_4(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVaryingEXT_ovr_5 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVaryingEXT_ovr_5(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVaryingEXT_ovr_6 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
     z_GetTransformFeedbackVaryingEXT_ovr_6(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVaryingEXT_ovr_8(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_18(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000110(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_18(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_19_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; var &type: AttributeType; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_18(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_20(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_20_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_20(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_20_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_18(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_18_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: AttributeType; name: IntPtr) :=
-    z_GetTransformFeedbackVaryingEXT_ovr_18(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVaryingEXT_ovr_20(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_24(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_24_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: array of AttributeType; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetTransformFeedbackVaryingEXT_ovr_24(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetTransformFeedbackVaryingEXT_ovr_24_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: AttributeType; name: IntPtr) :=
-    z_GetTransformFeedbackVaryingEXT_ovr_24(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetTransformFeedbackVaryingEXT_ovr_26(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetTransformFeedbackVaryingEXT_ovr_26(&program, index, bufSize, length, size, &type, name);
+    private z_GetTransformFeedbackVaryingEXT_ovr_7 := GetFuncOrNil&(z_GetTransformFeedbackVaryingEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingEXT(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetTransformFeedbackVaryingEXT_ovr_7(&program, index, bufSize, length, size, &type, name);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_vertex_array';
     
-    private static procedure z_ArrayElementEXT_ovr_0(i: Int32);
-    external 'opengl32.dll' name 'glArrayElementEXT';
+    private z_ArrayElementEXT_adr := GetFuncAdr('glArrayElementEXT');
+    private z_ArrayElementEXT_ovr_0 := GetFuncOrNil&(z_ArrayElementEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ArrayElementEXT(i: Int32) :=
     z_ArrayElementEXT_ovr_0(i);
     
-    private static procedure z_ColorPointerEXT_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glColorPointerEXT';
+    private z_ColorPointerEXT_adr := GetFuncAdr('glColorPointerEXT');
+    private z_ColorPointerEXT_ovr_0 := GetFuncOrNil&(z_ColorPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointerEXT(size: Int32; &type: ColorPointerType; stride: Int32; count: Int32; pointer: IntPtr) :=
     z_ColorPointerEXT_ovr_0(size, &type, stride, count, pointer);
     
-    private static procedure z_DrawArraysEXT_ovr_0(mode: PrimitiveType; first: Int32; count: Int32);
-    external 'opengl32.dll' name 'glDrawArraysEXT';
+    private z_DrawArraysEXT_adr := GetFuncAdr('glDrawArraysEXT');
+    private z_DrawArraysEXT_ovr_0 := GetFuncOrNil&(z_DrawArraysEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawArraysEXT(mode: PrimitiveType; first: Int32; count: Int32) :=
     z_DrawArraysEXT_ovr_0(mode, first, count);
     
-    private static procedure z_EdgeFlagPointerEXT_ovr_0(stride: Int32; count: Int32; var pointer: boolean);
-    external 'opengl32.dll' name 'glEdgeFlagPointerEXT';
-    private static procedure z_EdgeFlagPointerEXT_ovr_0_anh0001(stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glEdgeFlagPointerEXT';
+    private z_EdgeFlagPointerEXT_adr := GetFuncAdr('glEdgeFlagPointerEXT');
+    private z_EdgeFlagPointerEXT_ovr_0 := GetFuncOrNil&(z_EdgeFlagPointerEXT_adr);
+    private z_EdgeFlagPointerEXT_ovr_0_anh0001 := GetFuncOrNil&(z_EdgeFlagPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerEXT(stride: Int32; count: Int32; pointer: array of boolean) :=
     if (pointer<>nil) and (pointer.Length<>0) then
       z_EdgeFlagPointerEXT_ovr_0(stride, count, pointer[0]) else
       z_EdgeFlagPointerEXT_ovr_0_anh0001(stride, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerEXT(stride: Int32; count: Int32; var pointer: boolean) :=
     z_EdgeFlagPointerEXT_ovr_0(stride, count, pointer);
-    private static procedure z_EdgeFlagPointerEXT_ovr_2(stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glEdgeFlagPointerEXT';
+    private z_EdgeFlagPointerEXT_ovr_2 := GetFuncOrNil&(z_EdgeFlagPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerEXT(stride: Int32; count: Int32; pointer: IntPtr) :=
     z_EdgeFlagPointerEXT_ovr_2(stride, count, pointer);
     
-    private static procedure z_GetPointervEXT_ovr_0(pname: GetPointervPName; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointervEXT';
-    private static procedure z_GetPointervEXT_ovr_0_anh001(pname: GetPointervPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointervEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointervEXT(pname: GetPointervPName; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetPointervEXT_ovr_0(pname, ¶ms[0]) else
-      z_GetPointervEXT_ovr_0_anh001(pname, IntPtr.Zero);
+    private z_GetPointervEXT_adr := GetFuncAdr('glGetPointervEXT');
+    private z_GetPointervEXT_ovr_0 := GetFuncOrNil&(z_GetPointervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointervEXT(pname: GetPointervPName; var ¶ms: IntPtr) :=
     z_GetPointervEXT_ovr_0(pname, ¶ms);
-    private static procedure z_GetPointervEXT_ovr_2(pname: GetPointervPName; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetPointervEXT';
+    private z_GetPointervEXT_ovr_1 := GetFuncOrNil&(z_GetPointervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointervEXT(pname: GetPointervPName; ¶ms: pointer) :=
-    z_GetPointervEXT_ovr_2(pname, ¶ms);
+    z_GetPointervEXT_ovr_1(pname, ¶ms);
     
-    private static procedure z_IndexPointerEXT_ovr_0(&type: IndexPointerType; stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glIndexPointerEXT';
+    private z_IndexPointerEXT_adr := GetFuncAdr('glIndexPointerEXT');
+    private z_IndexPointerEXT_ovr_0 := GetFuncOrNil&(z_IndexPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexPointerEXT(&type: IndexPointerType; stride: Int32; count: Int32; pointer: IntPtr) :=
     z_IndexPointerEXT_ovr_0(&type, stride, count, pointer);
     
-    private static procedure z_NormalPointerEXT_ovr_0(&type: NormalPointerType; stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glNormalPointerEXT';
+    private z_NormalPointerEXT_adr := GetFuncAdr('glNormalPointerEXT');
+    private z_NormalPointerEXT_ovr_0 := GetFuncOrNil&(z_NormalPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointerEXT(&type: NormalPointerType; stride: Int32; count: Int32; pointer: IntPtr) :=
     z_NormalPointerEXT_ovr_0(&type, stride, count, pointer);
     
-    private static procedure z_TexCoordPointerEXT_ovr_0(size: Int32; &type: TexCoordPointerType; stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordPointerEXT';
+    private z_TexCoordPointerEXT_adr := GetFuncAdr('glTexCoordPointerEXT');
+    private z_TexCoordPointerEXT_ovr_0 := GetFuncOrNil&(z_TexCoordPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointerEXT(size: Int32; &type: TexCoordPointerType; stride: Int32; count: Int32; pointer: IntPtr) :=
     z_TexCoordPointerEXT_ovr_0(size, &type, stride, count, pointer);
     
-    private static procedure z_VertexPointerEXT_ovr_0(size: Int32; &type: VertexPointerType; stride: Int32; count: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexPointerEXT';
+    private z_VertexPointerEXT_adr := GetFuncAdr('glVertexPointerEXT');
+    private z_VertexPointerEXT_ovr_0 := GetFuncOrNil&(z_VertexPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointerEXT(size: Int32; &type: VertexPointerType; stride: Int32; count: Int32; pointer: IntPtr) :=
     z_VertexPointerEXT_ovr_0(size, &type, stride, count, pointer);
     
   end;
   
   [PCUNotRestore]
-  glVertexAttrib64bitEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexAttrib64bitEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_vertex_attrib_64bit';
     
-    private static procedure z_VertexAttribL1dEXT_ovr_0(index: UInt32; x: real);
-    external 'opengl32.dll' name 'glVertexAttribL1dEXT';
+    private z_VertexAttribL1dEXT_adr := GetFuncAdr('glVertexAttribL1dEXT');
+    private z_VertexAttribL1dEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL1dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dEXT(index: UInt32; x: real) :=
     z_VertexAttribL1dEXT_ovr_0(index, x);
     
-    private static procedure z_VertexAttribL2dEXT_ovr_0(index: UInt32; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexAttribL2dEXT';
+    private z_VertexAttribL2dEXT_adr := GetFuncAdr('glVertexAttribL2dEXT');
+    private z_VertexAttribL2dEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL2dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dEXT(index: UInt32; x: real; y: real) :=
     z_VertexAttribL2dEXT_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribL3dEXT_ovr_0(index: UInt32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexAttribL3dEXT';
+    private z_VertexAttribL3dEXT_adr := GetFuncAdr('glVertexAttribL3dEXT');
+    private z_VertexAttribL3dEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL3dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dEXT(index: UInt32; x: real; y: real; z: real) :=
     z_VertexAttribL3dEXT_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribL4dEXT_ovr_0(index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexAttribL4dEXT';
+    private z_VertexAttribL4dEXT_adr := GetFuncAdr('glVertexAttribL4dEXT');
+    private z_VertexAttribL4dEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL4dEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dEXT(index: UInt32; x: real; y: real; z: real; w: real) :=
     z_VertexAttribL4dEXT_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribL1dvEXT_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL1dvEXT';
-    private static procedure z_VertexAttribL1dvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1dvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dvEXT(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribL1dvEXT_ovr_0(index, v[0]) else
-      z_VertexAttribL1dvEXT_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribL1dvEXT_adr := GetFuncAdr('glVertexAttribL1dvEXT');
+    private z_VertexAttribL1dvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL1dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dvEXT(index: UInt32; var v: real) :=
     z_VertexAttribL1dvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribL1dvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1dvEXT';
+    private z_VertexAttribL1dvEXT_ovr_1 := GetFuncOrNil&(z_VertexAttribL1dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1dvEXT(index: UInt32; v: IntPtr) :=
-    z_VertexAttribL1dvEXT_ovr_2(index, v);
+    z_VertexAttribL1dvEXT_ovr_1(index, v);
     
-    private static procedure z_VertexAttribL2dvEXT_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL2dvEXT';
-    private static procedure z_VertexAttribL2dvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2dvEXT';
+    private z_VertexAttribL2dvEXT_adr := GetFuncAdr('glVertexAttribL2dvEXT');
+    private z_VertexAttribL2dvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL2dvEXT_adr);
+    private z_VertexAttribL2dvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL2dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dvEXT(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL2dvEXT_ovr_0(index, v[0]) else
       z_VertexAttribL2dvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dvEXT(index: UInt32; var v: real) :=
     z_VertexAttribL2dvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribL2dvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2dvEXT';
+    private z_VertexAttribL2dvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribL2dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2dvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribL2dvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL3dvEXT_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL3dvEXT';
-    private static procedure z_VertexAttribL3dvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3dvEXT';
+    private z_VertexAttribL3dvEXT_adr := GetFuncAdr('glVertexAttribL3dvEXT');
+    private z_VertexAttribL3dvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL3dvEXT_adr);
+    private z_VertexAttribL3dvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dvEXT(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL3dvEXT_ovr_0(index, v[0]) else
       z_VertexAttribL3dvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dvEXT(index: UInt32; var v: real) :=
     z_VertexAttribL3dvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribL3dvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3dvEXT';
+    private z_VertexAttribL3dvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribL3dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3dvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribL3dvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL4dvEXT_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribL4dvEXT';
-    private static procedure z_VertexAttribL4dvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4dvEXT';
+    private z_VertexAttribL4dvEXT_adr := GetFuncAdr('glVertexAttribL4dvEXT');
+    private z_VertexAttribL4dvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribL4dvEXT_adr);
+    private z_VertexAttribL4dvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL4dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dvEXT(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL4dvEXT_ovr_0(index, v[0]) else
       z_VertexAttribL4dvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dvEXT(index: UInt32; var v: real) :=
     z_VertexAttribL4dvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribL4dvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4dvEXT';
+    private z_VertexAttribL4dvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribL4dvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4dvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribL4dvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribLPointerEXT_ovr_0(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribLPointerEXT';
+    private z_VertexAttribLPointerEXT_adr := GetFuncAdr('glVertexAttribLPointerEXT');
+    private z_VertexAttribLPointerEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribLPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribLPointerEXT(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribLPointerEXT_ovr_0(index, size, &type, stride, pointer);
     
-    private static procedure z_GetVertexAttribLdvEXT_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVertexAttribLdvEXT';
-    private static procedure z_GetVertexAttribLdvEXT_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLdvEXT';
+    private z_GetVertexAttribLdvEXT_adr := GetFuncAdr('glGetVertexAttribLdvEXT');
+    private z_GetVertexAttribLdvEXT_ovr_0 := GetFuncOrNil&(z_GetVertexAttribLdvEXT_adr);
+    private z_GetVertexAttribLdvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribLdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdvEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribLdvEXT_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribLdvEXT_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdvEXT(index: UInt32; pname: VertexAttribEnum; var ¶ms: real) :=
     z_GetVertexAttribLdvEXT_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribLdvEXT_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLdvEXT';
+    private z_GetVertexAttribLdvEXT_ovr_2 := GetFuncOrNil&(z_GetVertexAttribLdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLdvEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
     z_GetVertexAttribLdvEXT_ovr_2(index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVertexShaderEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexShaderEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_vertex_shader';
     
-    private static procedure z_BeginVertexShaderEXT_ovr_0;
-    external 'opengl32.dll' name 'glBeginVertexShaderEXT';
+    private z_BeginVertexShaderEXT_adr := GetFuncAdr('glBeginVertexShaderEXT');
+    private z_BeginVertexShaderEXT_ovr_0 := GetFuncOrNil&(z_BeginVertexShaderEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginVertexShaderEXT :=
     z_BeginVertexShaderEXT_ovr_0;
     
-    private static procedure z_EndVertexShaderEXT_ovr_0;
-    external 'opengl32.dll' name 'glEndVertexShaderEXT';
+    private z_EndVertexShaderEXT_adr := GetFuncAdr('glEndVertexShaderEXT');
+    private z_EndVertexShaderEXT_ovr_0 := GetFuncOrNil&(z_EndVertexShaderEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndVertexShaderEXT :=
     z_EndVertexShaderEXT_ovr_0;
     
-    private static procedure z_BindVertexShaderEXT_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glBindVertexShaderEXT';
+    private z_BindVertexShaderEXT_adr := GetFuncAdr('glBindVertexShaderEXT');
+    private z_BindVertexShaderEXT_ovr_0 := GetFuncOrNil&(z_BindVertexShaderEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVertexShaderEXT(id: UInt32) :=
     z_BindVertexShaderEXT_ovr_0(id);
     
-    private static function z_GenVertexShadersEXT_ovr_0(range: UInt32): UInt32;
-    external 'opengl32.dll' name 'glGenVertexShadersEXT';
+    private z_GenVertexShadersEXT_adr := GetFuncAdr('glGenVertexShadersEXT');
+    private z_GenVertexShadersEXT_ovr_0 := GetFuncOrNil&(z_GenVertexShadersEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenVertexShadersEXT(range: UInt32): UInt32 :=
     z_GenVertexShadersEXT_ovr_0(range);
     
-    private static procedure z_DeleteVertexShaderEXT_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glDeleteVertexShaderEXT';
+    private z_DeleteVertexShaderEXT_adr := GetFuncAdr('glDeleteVertexShaderEXT');
+    private z_DeleteVertexShaderEXT_ovr_0 := GetFuncOrNil&(z_DeleteVertexShaderEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteVertexShaderEXT(id: UInt32) :=
     z_DeleteVertexShaderEXT_ovr_0(id);
     
-    private static procedure z_ShaderOp1EXT_ovr_0(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32);
-    external 'opengl32.dll' name 'glShaderOp1EXT';
+    private z_ShaderOp1EXT_adr := GetFuncAdr('glShaderOp1EXT');
+    private z_ShaderOp1EXT_ovr_0 := GetFuncOrNil&(z_ShaderOp1EXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderOp1EXT(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32) :=
     z_ShaderOp1EXT_ovr_0(op, res, arg1);
     
-    private static procedure z_ShaderOp2EXT_ovr_0(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32; arg2: UInt32);
-    external 'opengl32.dll' name 'glShaderOp2EXT';
+    private z_ShaderOp2EXT_adr := GetFuncAdr('glShaderOp2EXT');
+    private z_ShaderOp2EXT_ovr_0 := GetFuncOrNil&(z_ShaderOp2EXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderOp2EXT(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32; arg2: UInt32) :=
     z_ShaderOp2EXT_ovr_0(op, res, arg1, arg2);
     
-    private static procedure z_ShaderOp3EXT_ovr_0(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32; arg2: UInt32; arg3: UInt32);
-    external 'opengl32.dll' name 'glShaderOp3EXT';
+    private z_ShaderOp3EXT_adr := GetFuncAdr('glShaderOp3EXT');
+    private z_ShaderOp3EXT_ovr_0 := GetFuncOrNil&(z_ShaderOp3EXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShaderOp3EXT(op: VertexShaderOpEXT; res: UInt32; arg1: UInt32; arg2: UInt32; arg3: UInt32) :=
     z_ShaderOp3EXT_ovr_0(op, res, arg1, arg2, arg3);
     
-    private static procedure z_SwizzleEXT_ovr_0(res: UInt32; &in: UInt32; outX: VertexShaderCoordOutEXT; outY: VertexShaderCoordOutEXT; outZ: VertexShaderCoordOutEXT; outW: VertexShaderCoordOutEXT);
-    external 'opengl32.dll' name 'glSwizzleEXT';
+    private z_SwizzleEXT_adr := GetFuncAdr('glSwizzleEXT');
+    private z_SwizzleEXT_ovr_0 := GetFuncOrNil&(z_SwizzleEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SwizzleEXT(res: UInt32; &in: UInt32; outX: VertexShaderCoordOutEXT; outY: VertexShaderCoordOutEXT; outZ: VertexShaderCoordOutEXT; outW: VertexShaderCoordOutEXT) :=
     z_SwizzleEXT_ovr_0(res, &in, outX, outY, outZ, outW);
     
-    private static procedure z_WriteMaskEXT_ovr_0(res: UInt32; &in: UInt32; outX: VertexShaderWriteMaskEXT; outY: VertexShaderWriteMaskEXT; outZ: VertexShaderWriteMaskEXT; outW: VertexShaderWriteMaskEXT);
-    external 'opengl32.dll' name 'glWriteMaskEXT';
+    private z_WriteMaskEXT_adr := GetFuncAdr('glWriteMaskEXT');
+    private z_WriteMaskEXT_ovr_0 := GetFuncOrNil&(z_WriteMaskEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WriteMaskEXT(res: UInt32; &in: UInt32; outX: VertexShaderWriteMaskEXT; outY: VertexShaderWriteMaskEXT; outZ: VertexShaderWriteMaskEXT; outW: VertexShaderWriteMaskEXT) :=
     z_WriteMaskEXT_ovr_0(res, &in, outX, outY, outZ, outW);
     
-    private static procedure z_InsertComponentEXT_ovr_0(res: UInt32; src: UInt32; num: UInt32);
-    external 'opengl32.dll' name 'glInsertComponentEXT';
+    private z_InsertComponentEXT_adr := GetFuncAdr('glInsertComponentEXT');
+    private z_InsertComponentEXT_ovr_0 := GetFuncOrNil&(z_InsertComponentEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InsertComponentEXT(res: UInt32; src: UInt32; num: UInt32) :=
     z_InsertComponentEXT_ovr_0(res, src, num);
     
-    private static procedure z_ExtractComponentEXT_ovr_0(res: UInt32; src: UInt32; num: UInt32);
-    external 'opengl32.dll' name 'glExtractComponentEXT';
+    private z_ExtractComponentEXT_adr := GetFuncAdr('glExtractComponentEXT');
+    private z_ExtractComponentEXT_ovr_0 := GetFuncOrNil&(z_ExtractComponentEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ExtractComponentEXT(res: UInt32; src: UInt32; num: UInt32) :=
     z_ExtractComponentEXT_ovr_0(res, src, num);
     
-    private static function z_GenSymbolsEXT_ovr_0(datatype: DataTypeEXT; storagetype: VertexShaderStorageTypeEXT; range: ParameterRangeEXT; components: UInt32): UInt32;
-    external 'opengl32.dll' name 'glGenSymbolsEXT';
+    private z_GenSymbolsEXT_adr := GetFuncAdr('glGenSymbolsEXT');
+    private z_GenSymbolsEXT_ovr_0 := GetFuncOrNil&(z_GenSymbolsEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenSymbolsEXT(datatype: DataTypeEXT; storagetype: VertexShaderStorageTypeEXT; range: ParameterRangeEXT; components: UInt32): UInt32 :=
     z_GenSymbolsEXT_ovr_0(datatype, storagetype, range, components);
     
-    private static procedure z_SetInvariantEXT_ovr_0(id: UInt32; &type: ScalarType; addr: IntPtr);
-    external 'opengl32.dll' name 'glSetInvariantEXT';
+    private z_SetInvariantEXT_adr := GetFuncAdr('glSetInvariantEXT');
+    private z_SetInvariantEXT_ovr_0 := GetFuncOrNil&(z_SetInvariantEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetInvariantEXT(id: UInt32; &type: ScalarType; addr: IntPtr) :=
     z_SetInvariantEXT_ovr_0(id, &type, addr);
     
-    private static procedure z_SetLocalConstantEXT_ovr_0(id: UInt32; &type: ScalarType; addr: IntPtr);
-    external 'opengl32.dll' name 'glSetLocalConstantEXT';
+    private z_SetLocalConstantEXT_adr := GetFuncAdr('glSetLocalConstantEXT');
+    private z_SetLocalConstantEXT_ovr_0 := GetFuncOrNil&(z_SetLocalConstantEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetLocalConstantEXT(id: UInt32; &type: ScalarType; addr: IntPtr) :=
     z_SetLocalConstantEXT_ovr_0(id, &type, addr);
     
-    private static procedure z_VariantbvEXT_ovr_0(id: UInt32; var addr: SByte);
-    external 'opengl32.dll' name 'glVariantbvEXT';
-    private static procedure z_VariantbvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantbvEXT';
+    private z_VariantbvEXT_adr := GetFuncAdr('glVariantbvEXT');
+    private z_VariantbvEXT_ovr_0 := GetFuncOrNil&(z_VariantbvEXT_adr);
+    private z_VariantbvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantbvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantbvEXT(id: UInt32; addr: array of SByte) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantbvEXT_ovr_0(id, addr[0]) else
       z_VariantbvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantbvEXT(id: UInt32; var addr: SByte) :=
     z_VariantbvEXT_ovr_0(id, addr);
-    private static procedure z_VariantbvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantbvEXT';
+    private z_VariantbvEXT_ovr_2 := GetFuncOrNil&(z_VariantbvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantbvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantbvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantsvEXT_ovr_0(id: UInt32; var addr: Int16);
-    external 'opengl32.dll' name 'glVariantsvEXT';
-    private static procedure z_VariantsvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantsvEXT';
+    private z_VariantsvEXT_adr := GetFuncAdr('glVariantsvEXT');
+    private z_VariantsvEXT_ovr_0 := GetFuncOrNil&(z_VariantsvEXT_adr);
+    private z_VariantsvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantsvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantsvEXT(id: UInt32; addr: array of Int16) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantsvEXT_ovr_0(id, addr[0]) else
       z_VariantsvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantsvEXT(id: UInt32; var addr: Int16) :=
     z_VariantsvEXT_ovr_0(id, addr);
-    private static procedure z_VariantsvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantsvEXT';
+    private z_VariantsvEXT_ovr_2 := GetFuncOrNil&(z_VariantsvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantsvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantsvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantivEXT_ovr_0(id: UInt32; var addr: Int32);
-    external 'opengl32.dll' name 'glVariantivEXT';
-    private static procedure z_VariantivEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantivEXT';
+    private z_VariantivEXT_adr := GetFuncAdr('glVariantivEXT');
+    private z_VariantivEXT_ovr_0 := GetFuncOrNil&(z_VariantivEXT_adr);
+    private z_VariantivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantivEXT(id: UInt32; addr: array of Int32) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantivEXT_ovr_0(id, addr[0]) else
       z_VariantivEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantivEXT(id: UInt32; var addr: Int32) :=
     z_VariantivEXT_ovr_0(id, addr);
-    private static procedure z_VariantivEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantivEXT';
+    private z_VariantivEXT_ovr_2 := GetFuncOrNil&(z_VariantivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantivEXT(id: UInt32; addr: IntPtr) :=
     z_VariantivEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantfvEXT_ovr_0(id: UInt32; var addr: single);
-    external 'opengl32.dll' name 'glVariantfvEXT';
-    private static procedure z_VariantfvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantfvEXT';
+    private z_VariantfvEXT_adr := GetFuncAdr('glVariantfvEXT');
+    private z_VariantfvEXT_ovr_0 := GetFuncOrNil&(z_VariantfvEXT_adr);
+    private z_VariantfvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantfvEXT(id: UInt32; addr: array of single) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantfvEXT_ovr_0(id, addr[0]) else
       z_VariantfvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantfvEXT(id: UInt32; var addr: single) :=
     z_VariantfvEXT_ovr_0(id, addr);
-    private static procedure z_VariantfvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantfvEXT';
+    private z_VariantfvEXT_ovr_2 := GetFuncOrNil&(z_VariantfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantfvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantfvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantdvEXT_ovr_0(id: UInt32; var addr: real);
-    external 'opengl32.dll' name 'glVariantdvEXT';
-    private static procedure z_VariantdvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantdvEXT';
+    private z_VariantdvEXT_adr := GetFuncAdr('glVariantdvEXT');
+    private z_VariantdvEXT_ovr_0 := GetFuncOrNil&(z_VariantdvEXT_adr);
+    private z_VariantdvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantdvEXT(id: UInt32; addr: array of real) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantdvEXT_ovr_0(id, addr[0]) else
       z_VariantdvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantdvEXT(id: UInt32; var addr: real) :=
     z_VariantdvEXT_ovr_0(id, addr);
-    private static procedure z_VariantdvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantdvEXT';
+    private z_VariantdvEXT_ovr_2 := GetFuncOrNil&(z_VariantdvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantdvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantdvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantubvEXT_ovr_0(id: UInt32; var addr: Byte);
-    external 'opengl32.dll' name 'glVariantubvEXT';
-    private static procedure z_VariantubvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantubvEXT';
+    private z_VariantubvEXT_adr := GetFuncAdr('glVariantubvEXT');
+    private z_VariantubvEXT_ovr_0 := GetFuncOrNil&(z_VariantubvEXT_adr);
+    private z_VariantubvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantubvEXT(id: UInt32; addr: array of Byte) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantubvEXT_ovr_0(id, addr[0]) else
       z_VariantubvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantubvEXT(id: UInt32; var addr: Byte) :=
     z_VariantubvEXT_ovr_0(id, addr);
-    private static procedure z_VariantubvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantubvEXT';
+    private z_VariantubvEXT_ovr_2 := GetFuncOrNil&(z_VariantubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantubvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantubvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantusvEXT_ovr_0(id: UInt32; var addr: UInt16);
-    external 'opengl32.dll' name 'glVariantusvEXT';
-    private static procedure z_VariantusvEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantusvEXT';
+    private z_VariantusvEXT_adr := GetFuncAdr('glVariantusvEXT');
+    private z_VariantusvEXT_ovr_0 := GetFuncOrNil&(z_VariantusvEXT_adr);
+    private z_VariantusvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantusvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantusvEXT(id: UInt32; addr: array of UInt16) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantusvEXT_ovr_0(id, addr[0]) else
       z_VariantusvEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantusvEXT(id: UInt32; var addr: UInt16) :=
     z_VariantusvEXT_ovr_0(id, addr);
-    private static procedure z_VariantusvEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantusvEXT';
+    private z_VariantusvEXT_ovr_2 := GetFuncOrNil&(z_VariantusvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantusvEXT(id: UInt32; addr: IntPtr) :=
     z_VariantusvEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantuivEXT_ovr_0(id: UInt32; var addr: UInt32);
-    external 'opengl32.dll' name 'glVariantuivEXT';
-    private static procedure z_VariantuivEXT_ovr_0_anh001(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantuivEXT';
+    private z_VariantuivEXT_adr := GetFuncAdr('glVariantuivEXT');
+    private z_VariantuivEXT_ovr_0 := GetFuncOrNil&(z_VariantuivEXT_adr);
+    private z_VariantuivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VariantuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantuivEXT(id: UInt32; addr: array of UInt32) :=
     if (addr<>nil) and (addr.Length<>0) then
       z_VariantuivEXT_ovr_0(id, addr[0]) else
       z_VariantuivEXT_ovr_0_anh001(id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantuivEXT(id: UInt32; var addr: UInt32) :=
     z_VariantuivEXT_ovr_0(id, addr);
-    private static procedure z_VariantuivEXT_ovr_2(id: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantuivEXT';
+    private z_VariantuivEXT_ovr_2 := GetFuncOrNil&(z_VariantuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantuivEXT(id: UInt32; addr: IntPtr) :=
     z_VariantuivEXT_ovr_2(id, addr);
     
-    private static procedure z_VariantPointerEXT_ovr_0(id: UInt32; &type: ScalarType; stride: UInt32; addr: IntPtr);
-    external 'opengl32.dll' name 'glVariantPointerEXT';
+    private z_VariantPointerEXT_adr := GetFuncAdr('glVariantPointerEXT');
+    private z_VariantPointerEXT_ovr_0 := GetFuncOrNil&(z_VariantPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VariantPointerEXT(id: UInt32; &type: ScalarType; stride: UInt32; addr: IntPtr) :=
     z_VariantPointerEXT_ovr_0(id, &type, stride, addr);
     
-    private static procedure z_EnableVariantClientStateEXT_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glEnableVariantClientStateEXT';
+    private z_EnableVariantClientStateEXT_adr := GetFuncAdr('glEnableVariantClientStateEXT');
+    private z_EnableVariantClientStateEXT_ovr_0 := GetFuncOrNil&(z_EnableVariantClientStateEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EnableVariantClientStateEXT(id: UInt32) :=
     z_EnableVariantClientStateEXT_ovr_0(id);
     
-    private static procedure z_DisableVariantClientStateEXT_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glDisableVariantClientStateEXT';
+    private z_DisableVariantClientStateEXT_adr := GetFuncAdr('glDisableVariantClientStateEXT');
+    private z_DisableVariantClientStateEXT_ovr_0 := GetFuncOrNil&(z_DisableVariantClientStateEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DisableVariantClientStateEXT(id: UInt32) :=
     z_DisableVariantClientStateEXT_ovr_0(id);
     
-    private static function z_BindLightParameterEXT_ovr_0(light: LightName; value: LightParameter): UInt32;
-    external 'opengl32.dll' name 'glBindLightParameterEXT';
+    private z_BindLightParameterEXT_adr := GetFuncAdr('glBindLightParameterEXT');
+    private z_BindLightParameterEXT_ovr_0 := GetFuncOrNil&(z_BindLightParameterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindLightParameterEXT(light: LightName; value: LightParameter): UInt32 :=
     z_BindLightParameterEXT_ovr_0(light, value);
     
-    private static function z_BindMaterialParameterEXT_ovr_0(face: MaterialFace; value: MaterialParameter): UInt32;
-    external 'opengl32.dll' name 'glBindMaterialParameterEXT';
+    private z_BindMaterialParameterEXT_adr := GetFuncAdr('glBindMaterialParameterEXT');
+    private z_BindMaterialParameterEXT_ovr_0 := GetFuncOrNil&(z_BindMaterialParameterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindMaterialParameterEXT(face: MaterialFace; value: MaterialParameter): UInt32 :=
     z_BindMaterialParameterEXT_ovr_0(face, value);
     
-    private static function z_BindTexGenParameterEXT_ovr_0(&unit: TextureUnit; coord: TextureCoordName; value: TextureGenParameter): UInt32;
-    external 'opengl32.dll' name 'glBindTexGenParameterEXT';
+    private z_BindTexGenParameterEXT_adr := GetFuncAdr('glBindTexGenParameterEXT');
+    private z_BindTexGenParameterEXT_ovr_0 := GetFuncOrNil&(z_BindTexGenParameterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindTexGenParameterEXT(&unit: TextureUnit; coord: TextureCoordName; value: TextureGenParameter): UInt32 :=
     z_BindTexGenParameterEXT_ovr_0(&unit, coord, value);
     
-    private static function z_BindTextureUnitParameterEXT_ovr_0(&unit: TextureUnit; value: VertexShaderTextureUnitParameter): UInt32;
-    external 'opengl32.dll' name 'glBindTextureUnitParameterEXT';
+    private z_BindTextureUnitParameterEXT_adr := GetFuncAdr('glBindTextureUnitParameterEXT');
+    private z_BindTextureUnitParameterEXT_ovr_0 := GetFuncOrNil&(z_BindTextureUnitParameterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindTextureUnitParameterEXT(&unit: TextureUnit; value: VertexShaderTextureUnitParameter): UInt32 :=
     z_BindTextureUnitParameterEXT_ovr_0(&unit, value);
     
-    private static function z_BindParameterEXT_ovr_0(value: VertexShaderParameterEXT): UInt32;
-    external 'opengl32.dll' name 'glBindParameterEXT';
+    private z_BindParameterEXT_adr := GetFuncAdr('glBindParameterEXT');
+    private z_BindParameterEXT_ovr_0 := GetFuncOrNil&(z_BindParameterEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindParameterEXT(value: VertexShaderParameterEXT): UInt32 :=
     z_BindParameterEXT_ovr_0(value);
     
-    private static function z_IsVariantEnabledEXT_ovr_0(id: UInt32; cap: VariantCapEXT): boolean;
-    external 'opengl32.dll' name 'glIsVariantEnabledEXT';
+    private z_IsVariantEnabledEXT_adr := GetFuncAdr('glIsVariantEnabledEXT');
+    private z_IsVariantEnabledEXT_ovr_0 := GetFuncOrNil&(z_IsVariantEnabledEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsVariantEnabledEXT(id: UInt32; cap: VariantCapEXT): boolean :=
     z_IsVariantEnabledEXT_ovr_0(id, cap);
     
-    private static procedure z_GetVariantBooleanvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: boolean);
-    external 'opengl32.dll' name 'glGetVariantBooleanvEXT';
-    private static procedure z_GetVariantBooleanvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantBooleanvEXT';
+    private z_GetVariantBooleanvEXT_adr := GetFuncAdr('glGetVariantBooleanvEXT');
+    private z_GetVariantBooleanvEXT_ovr_0 := GetFuncOrNil&(z_GetVariantBooleanvEXT_adr);
+    private z_GetVariantBooleanvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVariantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetVariantBooleanvEXT_ovr_0(id, value, data[0]) else
       z_GetVariantBooleanvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; var data: boolean) :=
     z_GetVariantBooleanvEXT_ovr_0(id, value, data);
-    private static procedure z_GetVariantBooleanvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantBooleanvEXT';
+    private z_GetVariantBooleanvEXT_ovr_2 := GetFuncOrNil&(z_GetVariantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetVariantBooleanvEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetVariantIntegervEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: Int32);
-    external 'opengl32.dll' name 'glGetVariantIntegervEXT';
-    private static procedure z_GetVariantIntegervEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantIntegervEXT';
+    private z_GetVariantIntegervEXT_adr := GetFuncAdr('glGetVariantIntegervEXT');
+    private z_GetVariantIntegervEXT_ovr_0 := GetFuncOrNil&(z_GetVariantIntegervEXT_adr);
+    private z_GetVariantIntegervEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVariantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetVariantIntegervEXT_ovr_0(id, value, data[0]) else
       z_GetVariantIntegervEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; var data: Int32) :=
     z_GetVariantIntegervEXT_ovr_0(id, value, data);
-    private static procedure z_GetVariantIntegervEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantIntegervEXT';
+    private z_GetVariantIntegervEXT_ovr_2 := GetFuncOrNil&(z_GetVariantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetVariantIntegervEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetVariantFloatvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: single);
-    external 'opengl32.dll' name 'glGetVariantFloatvEXT';
-    private static procedure z_GetVariantFloatvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantFloatvEXT';
+    private z_GetVariantFloatvEXT_adr := GetFuncAdr('glGetVariantFloatvEXT');
+    private z_GetVariantFloatvEXT_ovr_0 := GetFuncOrNil&(z_GetVariantFloatvEXT_adr);
+    private z_GetVariantFloatvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVariantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetVariantFloatvEXT_ovr_0(id, value, data[0]) else
       z_GetVariantFloatvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; var data: single) :=
     z_GetVariantFloatvEXT_ovr_0(id, value, data);
-    private static procedure z_GetVariantFloatvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantFloatvEXT';
+    private z_GetVariantFloatvEXT_ovr_2 := GetFuncOrNil&(z_GetVariantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetVariantFloatvEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetVariantPointervEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantPointervEXT';
-    private static procedure z_GetVariantPointervEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetVariantPointervEXT';
+    private z_GetVariantPointervEXT_adr := GetFuncAdr('glGetVariantPointervEXT');
+    private z_GetVariantPointervEXT_ovr_0 := GetFuncOrNil&(z_GetVariantPointervEXT_adr);
+    private z_GetVariantPointervEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetVariantPointervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantPointervEXT(id: UInt32; value: GetVariantValueEXT; data: array of IntPtr) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetVariantPointervEXT_ovr_0(id, value, data[0]) else
       z_GetVariantPointervEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantPointervEXT(id: UInt32; value: GetVariantValueEXT; var data: IntPtr) :=
     z_GetVariantPointervEXT_ovr_0(id, value, data);
-    private static procedure z_GetVariantPointervEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: pointer);
-    external 'opengl32.dll' name 'glGetVariantPointervEXT';
+    private z_GetVariantPointervEXT_ovr_2 := GetFuncOrNil&(z_GetVariantPointervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVariantPointervEXT(id: UInt32; value: GetVariantValueEXT; data: pointer) :=
     z_GetVariantPointervEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetInvariantBooleanvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: boolean);
-    external 'opengl32.dll' name 'glGetInvariantBooleanvEXT';
-    private static procedure z_GetInvariantBooleanvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantBooleanvEXT';
+    private z_GetInvariantBooleanvEXT_adr := GetFuncAdr('glGetInvariantBooleanvEXT');
+    private z_GetInvariantBooleanvEXT_ovr_0 := GetFuncOrNil&(z_GetInvariantBooleanvEXT_adr);
+    private z_GetInvariantBooleanvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetInvariantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetInvariantBooleanvEXT_ovr_0(id, value, data[0]) else
       z_GetInvariantBooleanvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; var data: boolean) :=
     z_GetInvariantBooleanvEXT_ovr_0(id, value, data);
-    private static procedure z_GetInvariantBooleanvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantBooleanvEXT';
+    private z_GetInvariantBooleanvEXT_ovr_2 := GetFuncOrNil&(z_GetInvariantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetInvariantBooleanvEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetInvariantIntegervEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: Int32);
-    external 'opengl32.dll' name 'glGetInvariantIntegervEXT';
-    private static procedure z_GetInvariantIntegervEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantIntegervEXT';
+    private z_GetInvariantIntegervEXT_adr := GetFuncAdr('glGetInvariantIntegervEXT');
+    private z_GetInvariantIntegervEXT_ovr_0 := GetFuncOrNil&(z_GetInvariantIntegervEXT_adr);
+    private z_GetInvariantIntegervEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetInvariantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetInvariantIntegervEXT_ovr_0(id, value, data[0]) else
       z_GetInvariantIntegervEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; var data: Int32) :=
     z_GetInvariantIntegervEXT_ovr_0(id, value, data);
-    private static procedure z_GetInvariantIntegervEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantIntegervEXT';
+    private z_GetInvariantIntegervEXT_ovr_2 := GetFuncOrNil&(z_GetInvariantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetInvariantIntegervEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetInvariantFloatvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: single);
-    external 'opengl32.dll' name 'glGetInvariantFloatvEXT';
-    private static procedure z_GetInvariantFloatvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantFloatvEXT';
+    private z_GetInvariantFloatvEXT_adr := GetFuncAdr('glGetInvariantFloatvEXT');
+    private z_GetInvariantFloatvEXT_ovr_0 := GetFuncOrNil&(z_GetInvariantFloatvEXT_adr);
+    private z_GetInvariantFloatvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetInvariantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetInvariantFloatvEXT_ovr_0(id, value, data[0]) else
       z_GetInvariantFloatvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; var data: single) :=
     z_GetInvariantFloatvEXT_ovr_0(id, value, data);
-    private static procedure z_GetInvariantFloatvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetInvariantFloatvEXT';
+    private z_GetInvariantFloatvEXT_ovr_2 := GetFuncOrNil&(z_GetInvariantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInvariantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetInvariantFloatvEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetLocalConstantBooleanvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: boolean);
-    external 'opengl32.dll' name 'glGetLocalConstantBooleanvEXT';
-    private static procedure z_GetLocalConstantBooleanvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantBooleanvEXT';
+    private z_GetLocalConstantBooleanvEXT_adr := GetFuncAdr('glGetLocalConstantBooleanvEXT');
+    private z_GetLocalConstantBooleanvEXT_ovr_0 := GetFuncOrNil&(z_GetLocalConstantBooleanvEXT_adr);
+    private z_GetLocalConstantBooleanvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetLocalConstantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: array of boolean) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetLocalConstantBooleanvEXT_ovr_0(id, value, data[0]) else
       z_GetLocalConstantBooleanvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; var data: boolean) :=
     z_GetLocalConstantBooleanvEXT_ovr_0(id, value, data);
-    private static procedure z_GetLocalConstantBooleanvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantBooleanvEXT';
+    private z_GetLocalConstantBooleanvEXT_ovr_2 := GetFuncOrNil&(z_GetLocalConstantBooleanvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantBooleanvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetLocalConstantBooleanvEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetLocalConstantIntegervEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: Int32);
-    external 'opengl32.dll' name 'glGetLocalConstantIntegervEXT';
-    private static procedure z_GetLocalConstantIntegervEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantIntegervEXT';
+    private z_GetLocalConstantIntegervEXT_adr := GetFuncAdr('glGetLocalConstantIntegervEXT');
+    private z_GetLocalConstantIntegervEXT_ovr_0 := GetFuncOrNil&(z_GetLocalConstantIntegervEXT_adr);
+    private z_GetLocalConstantIntegervEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetLocalConstantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: array of Int32) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetLocalConstantIntegervEXT_ovr_0(id, value, data[0]) else
       z_GetLocalConstantIntegervEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantIntegervEXT(id: UInt32; value: GetVariantValueEXT; var data: Int32) :=
     z_GetLocalConstantIntegervEXT_ovr_0(id, value, data);
-    private static procedure z_GetLocalConstantIntegervEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantIntegervEXT';
+    private z_GetLocalConstantIntegervEXT_ovr_2 := GetFuncOrNil&(z_GetLocalConstantIntegervEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantIntegervEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetLocalConstantIntegervEXT_ovr_2(id, value, data);
     
-    private static procedure z_GetLocalConstantFloatvEXT_ovr_0(id: UInt32; value: GetVariantValueEXT; var data: single);
-    external 'opengl32.dll' name 'glGetLocalConstantFloatvEXT';
-    private static procedure z_GetLocalConstantFloatvEXT_ovr_0_anh0001(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantFloatvEXT';
+    private z_GetLocalConstantFloatvEXT_adr := GetFuncAdr('glGetLocalConstantFloatvEXT');
+    private z_GetLocalConstantFloatvEXT_ovr_0 := GetFuncOrNil&(z_GetLocalConstantFloatvEXT_adr);
+    private z_GetLocalConstantFloatvEXT_ovr_0_anh0001 := GetFuncOrNil&(z_GetLocalConstantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: array of single) :=
     if (data<>nil) and (data.Length<>0) then
       z_GetLocalConstantFloatvEXT_ovr_0(id, value, data[0]) else
       z_GetLocalConstantFloatvEXT_ovr_0_anh0001(id, value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantFloatvEXT(id: UInt32; value: GetVariantValueEXT; var data: single) :=
     z_GetLocalConstantFloatvEXT_ovr_0(id, value, data);
-    private static procedure z_GetLocalConstantFloatvEXT_ovr_2(id: UInt32; value: GetVariantValueEXT; data: IntPtr);
-    external 'opengl32.dll' name 'glGetLocalConstantFloatvEXT';
+    private z_GetLocalConstantFloatvEXT_ovr_2 := GetFuncOrNil&(z_GetLocalConstantFloatvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLocalConstantFloatvEXT(id: UInt32; value: GetVariantValueEXT; data: IntPtr) :=
     z_GetLocalConstantFloatvEXT_ovr_2(id, value, data);
     
   end;
   
   [PCUNotRestore]
-  glVertexWeightingEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexWeightingEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_vertex_weighting';
     
-    private static procedure z_VertexWeightfEXT_ovr_0(weight: single);
-    external 'opengl32.dll' name 'glVertexWeightfEXT';
+    private z_VertexWeightfEXT_adr := GetFuncAdr('glVertexWeightfEXT');
+    private z_VertexWeightfEXT_ovr_0 := GetFuncOrNil&(z_VertexWeightfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeightfEXT(weight: single) :=
     z_VertexWeightfEXT_ovr_0(weight);
     
-    private static procedure z_VertexWeightfvEXT_ovr_0(var weight: single);
-    external 'opengl32.dll' name 'glVertexWeightfvEXT';
-    private static procedure z_VertexWeightfvEXT_ovr_0_anh01(weight: IntPtr);
-    external 'opengl32.dll' name 'glVertexWeightfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeightfvEXT(weight: array of single) :=
-    if (weight<>nil) and (weight.Length<>0) then
-      z_VertexWeightfvEXT_ovr_0(weight[0]) else
-      z_VertexWeightfvEXT_ovr_0_anh01(IntPtr.Zero);
+    private z_VertexWeightfvEXT_adr := GetFuncAdr('glVertexWeightfvEXT');
+    private z_VertexWeightfvEXT_ovr_0 := GetFuncOrNil&(z_VertexWeightfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeightfvEXT(var weight: single) :=
     z_VertexWeightfvEXT_ovr_0(weight);
-    private static procedure z_VertexWeightfvEXT_ovr_2(weight: IntPtr);
-    external 'opengl32.dll' name 'glVertexWeightfvEXT';
+    private z_VertexWeightfvEXT_ovr_1 := GetFuncOrNil&(z_VertexWeightfvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeightfvEXT(weight: IntPtr) :=
-    z_VertexWeightfvEXT_ovr_2(weight);
+    z_VertexWeightfvEXT_ovr_1(weight);
     
-    private static procedure z_VertexWeightPointerEXT_ovr_0(size: Int32; &type: VertexWeightPointerTypeEXT; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexWeightPointerEXT';
+    private z_VertexWeightPointerEXT_adr := GetFuncAdr('glVertexWeightPointerEXT');
+    private z_VertexWeightPointerEXT_ovr_0 := GetFuncOrNil&(z_VertexWeightPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeightPointerEXT(size: Int32; &type: VertexWeightPointerTypeEXT; stride: Int32; pointer: IntPtr) :=
     z_VertexWeightPointerEXT_ovr_0(size, &type, stride, pointer);
     
   end;
   
   [PCUNotRestore]
-  glWin32KeyedMutexEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glWin32KeyedMutexEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_win32_keyed_mutex';
     
-    private static function z_AcquireKeyedMutexWin32EXT_ovr_0(memory: UInt32; key: UInt64; timeout: UInt32): boolean;
-    external 'opengl32.dll' name 'glAcquireKeyedMutexWin32EXT';
+    private z_AcquireKeyedMutexWin32EXT_adr := GetFuncAdr('glAcquireKeyedMutexWin32EXT');
+    private z_AcquireKeyedMutexWin32EXT_ovr_0 := GetFuncOrNil&(z_AcquireKeyedMutexWin32EXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AcquireKeyedMutexWin32EXT(memory: UInt32; key: UInt64; timeout: UInt32): boolean :=
     z_AcquireKeyedMutexWin32EXT_ovr_0(memory, key, timeout);
     
-    private static function z_ReleaseKeyedMutexWin32EXT_ovr_0(memory: UInt32; key: UInt64): boolean;
-    external 'opengl32.dll' name 'glReleaseKeyedMutexWin32EXT';
+    private z_ReleaseKeyedMutexWin32EXT_adr := GetFuncAdr('glReleaseKeyedMutexWin32EXT');
+    private z_ReleaseKeyedMutexWin32EXT_ovr_0 := GetFuncOrNil&(z_ReleaseKeyedMutexWin32EXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseKeyedMutexWin32EXT(memory: UInt32; key: UInt64): boolean :=
     z_ReleaseKeyedMutexWin32EXT_ovr_0(memory, key);
     
   end;
   
   [PCUNotRestore]
-  glWindowRectanglesEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glWindowRectanglesEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_window_rectangles';
     
-    private static procedure z_WindowRectanglesEXT_ovr_0(mode: DummyEnum; count: Int32; var box: Int32);
-    external 'opengl32.dll' name 'glWindowRectanglesEXT';
-    private static procedure z_WindowRectanglesEXT_ovr_0_anh0001(mode: DummyEnum; count: Int32; box: IntPtr);
-    external 'opengl32.dll' name 'glWindowRectanglesEXT';
+    private z_WindowRectanglesEXT_adr := GetFuncAdr('glWindowRectanglesEXT');
+    private z_WindowRectanglesEXT_ovr_0 := GetFuncOrNil&(z_WindowRectanglesEXT_adr);
+    private z_WindowRectanglesEXT_ovr_0_anh0001 := GetFuncOrNil&(z_WindowRectanglesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowRectanglesEXT(mode: DummyEnum; count: Int32; box: array of Int32) :=
     if (box<>nil) and (box.Length<>0) then
       z_WindowRectanglesEXT_ovr_0(mode, count, box[0]) else
       z_WindowRectanglesEXT_ovr_0_anh0001(mode, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowRectanglesEXT(mode: DummyEnum; count: Int32; var box: Int32) :=
     z_WindowRectanglesEXT_ovr_0(mode, count, box);
-    private static procedure z_WindowRectanglesEXT_ovr_2(mode: DummyEnum; count: Int32; box: IntPtr);
-    external 'opengl32.dll' name 'glWindowRectanglesEXT';
+    private z_WindowRectanglesEXT_ovr_2 := GetFuncOrNil&(z_WindowRectanglesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowRectanglesEXT(mode: DummyEnum; count: Int32; box: IntPtr) :=
     z_WindowRectanglesEXT_ovr_2(mode, count, box);
     
   end;
   
   [PCUNotRestore]
-  glX11SyncObjectEXT = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glX11SyncObjectEXT = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_x11_sync_object';
     
-    private static function z_ImportSyncEXT_ovr_0(external_sync_type: DummyEnum; external_sync: IntPtr; flags: DummyFlags): GLsync;
-    external 'opengl32.dll' name 'glImportSyncEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ImportSyncEXT(external_sync_type: DummyEnum; external_sync: IntPtr; flags: DummyFlags): GLsync :=
+    private z_ImportSyncEXT_adr := GetFuncAdr('glImportSyncEXT');
+    private z_ImportSyncEXT_ovr_0 := GetFuncOrNil&(z_ImportSyncEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ImportSyncEXT(external_sync_type: DummyEnum; external_sync: IntPtr; flags: DummyFlags): gl_sync :=
     z_ImportSyncEXT_ovr_0(external_sync_type, external_sync, flags);
     
   end;
   
   [PCUNotRestore]
-  glFrameTerminatorGREMEDY = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFrameTerminatorGREMEDY = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'GREMEDY_frame_terminator';
     
-    private static procedure z_FrameTerminatorGREMEDY_ovr_0;
-    external 'opengl32.dll' name 'glFrameTerminatorGREMEDY';
+    private z_FrameTerminatorGREMEDY_adr := GetFuncAdr('glFrameTerminatorGREMEDY');
+    private z_FrameTerminatorGREMEDY_ovr_0 := GetFuncOrNil&(z_FrameTerminatorGREMEDY_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FrameTerminatorGREMEDY :=
     z_FrameTerminatorGREMEDY_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glStringMarkerGREMEDY = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glStringMarkerGREMEDY = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'GREMEDY_string_marker';
     
-    private static procedure z_StringMarkerGREMEDY_ovr_0(len: Int32; string: IntPtr);
-    external 'opengl32.dll' name 'glStringMarkerGREMEDY';
+    private z_StringMarkerGREMEDY_adr := GetFuncAdr('glStringMarkerGREMEDY');
+    private z_StringMarkerGREMEDY_ovr_0 := GetFuncOrNil&(z_StringMarkerGREMEDY_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StringMarkerGREMEDY(len: Int32; string: IntPtr) :=
     z_StringMarkerGREMEDY_ovr_0(len, string);
     
   end;
   
   [PCUNotRestore]
-  glImageTransformHP = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glImageTransformHP = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'HP_image_transform';
     
-    private static procedure z_ImageTransformParameteriHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; param: Int32);
-    external 'opengl32.dll' name 'glImageTransformParameteriHP';
+    private z_ImageTransformParameteriHP_adr := GetFuncAdr('glImageTransformParameteriHP');
+    private z_ImageTransformParameteriHP_ovr_0 := GetFuncOrNil&(z_ImageTransformParameteriHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameteriHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; param: Int32) :=
     z_ImageTransformParameteriHP_ovr_0(target, pname, param);
     
-    private static procedure z_ImageTransformParameterfHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; param: single);
-    external 'opengl32.dll' name 'glImageTransformParameterfHP';
+    private z_ImageTransformParameterfHP_adr := GetFuncAdr('glImageTransformParameterfHP');
+    private z_ImageTransformParameterfHP_ovr_0 := GetFuncOrNil&(z_ImageTransformParameterfHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterfHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; param: single) :=
     z_ImageTransformParameterfHP_ovr_0(target, pname, param);
     
-    private static procedure z_ImageTransformParameterivHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glImageTransformParameterivHP';
-    private static procedure z_ImageTransformParameterivHP_ovr_0_anh0001(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glImageTransformParameterivHP';
+    private z_ImageTransformParameterivHP_adr := GetFuncAdr('glImageTransformParameterivHP');
+    private z_ImageTransformParameterivHP_ovr_0 := GetFuncOrNil&(z_ImageTransformParameterivHP_adr);
+    private z_ImageTransformParameterivHP_ovr_0_anh0001 := GetFuncOrNil&(z_ImageTransformParameterivHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ImageTransformParameterivHP_ovr_0(target, pname, ¶ms[0]) else
       z_ImageTransformParameterivHP_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: Int32) :=
     z_ImageTransformParameterivHP_ovr_0(target, pname, ¶ms);
-    private static procedure z_ImageTransformParameterivHP_ovr_2(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glImageTransformParameterivHP';
+    private z_ImageTransformParameterivHP_ovr_2 := GetFuncOrNil&(z_ImageTransformParameterivHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr) :=
     z_ImageTransformParameterivHP_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ImageTransformParameterfvHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: single);
-    external 'opengl32.dll' name 'glImageTransformParameterfvHP';
-    private static procedure z_ImageTransformParameterfvHP_ovr_0_anh0001(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glImageTransformParameterfvHP';
+    private z_ImageTransformParameterfvHP_adr := GetFuncAdr('glImageTransformParameterfvHP');
+    private z_ImageTransformParameterfvHP_ovr_0 := GetFuncOrNil&(z_ImageTransformParameterfvHP_adr);
+    private z_ImageTransformParameterfvHP_ovr_0_anh0001 := GetFuncOrNil&(z_ImageTransformParameterfvHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ImageTransformParameterfvHP_ovr_0(target, pname, ¶ms[0]) else
       z_ImageTransformParameterfvHP_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: single) :=
     z_ImageTransformParameterfvHP_ovr_0(target, pname, ¶ms);
-    private static procedure z_ImageTransformParameterfvHP_ovr_2(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glImageTransformParameterfvHP';
+    private z_ImageTransformParameterfvHP_ovr_2 := GetFuncOrNil&(z_ImageTransformParameterfvHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr) :=
     z_ImageTransformParameterfvHP_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetImageTransformParameterivHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetImageTransformParameterivHP';
-    private static procedure z_GetImageTransformParameterivHP_ovr_0_anh0001(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetImageTransformParameterivHP';
+    private z_GetImageTransformParameterivHP_adr := GetFuncAdr('glGetImageTransformParameterivHP');
+    private z_GetImageTransformParameterivHP_ovr_0 := GetFuncOrNil&(z_GetImageTransformParameterivHP_adr);
+    private z_GetImageTransformParameterivHP_ovr_0_anh0001 := GetFuncOrNil&(z_GetImageTransformParameterivHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetImageTransformParameterivHP_ovr_0(target, pname, ¶ms[0]) else
       z_GetImageTransformParameterivHP_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: Int32) :=
     z_GetImageTransformParameterivHP_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetImageTransformParameterivHP_ovr_2(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetImageTransformParameterivHP';
+    private z_GetImageTransformParameterivHP_ovr_2 := GetFuncOrNil&(z_GetImageTransformParameterivHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterivHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr) :=
     z_GetImageTransformParameterivHP_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetImageTransformParameterfvHP_ovr_0(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetImageTransformParameterfvHP';
-    private static procedure z_GetImageTransformParameterfvHP_ovr_0_anh0001(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetImageTransformParameterfvHP';
+    private z_GetImageTransformParameterfvHP_adr := GetFuncAdr('glGetImageTransformParameterfvHP');
+    private z_GetImageTransformParameterfvHP_ovr_0 := GetFuncOrNil&(z_GetImageTransformParameterfvHP_adr);
+    private z_GetImageTransformParameterfvHP_ovr_0_anh0001 := GetFuncOrNil&(z_GetImageTransformParameterfvHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetImageTransformParameterfvHP_ovr_0(target, pname, ¶ms[0]) else
       z_GetImageTransformParameterfvHP_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; var ¶ms: single) :=
     z_GetImageTransformParameterfvHP_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetImageTransformParameterfvHP_ovr_2(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetImageTransformParameterfvHP';
+    private z_GetImageTransformParameterfvHP_ovr_2 := GetFuncOrNil&(z_GetImageTransformParameterfvHP_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetImageTransformParameterfvHP(target: ImageTransformTargetHP; pname: ImageTransformPNameHP; ¶ms: IntPtr) :=
     z_GetImageTransformParameterfvHP_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glMultimodeDrawArraysIBM = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultimodeDrawArraysIBM = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'IBM_multimode_draw_arrays';
     
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0(var mode: PrimitiveType; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh010000(mode: IntPtr; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh001000(var mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh011000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh000100(var mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh010100(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh001100(var mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_0_anh011100(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_adr := GetFuncAdr('glMultiModeDrawArraysIBM');
+    private z_MultiModeDrawArraysIBM_ovr_0 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh011000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh000100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh010100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh001100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_0_anh011100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: array of Int32; count: array of Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (first<>nil) and (first.Length<>0) then
@@ -55410,12 +54300,9 @@ type
         if (count<>nil) and (count.Length<>0) then
           z_MultiModeDrawArraysIBM_ovr_0_anh011000(IntPtr.Zero, IntPtr.Zero, count[0], primcount, modestride) else
           z_MultiModeDrawArraysIBM_ovr_0_anh011100(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_1_anh010000(mode: IntPtr; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_1_anh001000(var mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_1_anh011000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_1_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_1_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_1_anh011000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: array of Int32; var count: Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (first<>nil) and (first.Length<>0) then
@@ -55424,14 +54311,10 @@ type
       if (first<>nil) and (first.Length<>0) then
         z_MultiModeDrawArraysIBM_ovr_0_anh010000(IntPtr.Zero, first[0], count, primcount, modestride) else
         z_MultiModeDrawArraysIBM_ovr_0_anh011000(IntPtr.Zero, IntPtr.Zero, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_2(var mode: PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_2_anh010000(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_2_anh001000(var mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_2_anh011000(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_2 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_2_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_2_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_2_anh011000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: array of Int32; count: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (first<>nil) and (first.Length<>0) then
@@ -55440,10 +54323,8 @@ type
       if (first<>nil) and (first.Length<>0) then
         z_MultiModeDrawArraysIBM_ovr_2_anh010000(IntPtr.Zero, first[0], count, primcount, modestride) else
         z_MultiModeDrawArraysIBM_ovr_2_anh011000(IntPtr.Zero, IntPtr.Zero, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_3_anh010000(mode: IntPtr; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_3_anh010100(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_3_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_3_anh010100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; var first: Int32; count: array of Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55452,26 +54333,20 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiModeDrawArraysIBM_ovr_0_anh010000(IntPtr.Zero, first, count[0], primcount, modestride) else
         z_MultiModeDrawArraysIBM_ovr_0_anh010100(IntPtr.Zero, first, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_4_anh010000(mode: IntPtr; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_4_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_0(mode[0], first, count, primcount, modestride) else
       z_MultiModeDrawArraysIBM_ovr_0_anh010000(IntPtr.Zero, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_5_anh010000(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_5_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_2(mode[0], first, count, primcount, modestride) else
       z_MultiModeDrawArraysIBM_ovr_2_anh010000(IntPtr.Zero, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_6(var mode: PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_6_anh010000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_6_anh000100(var mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_6_anh010100(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_6 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_6_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_6_anh000100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_6_anh010100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: IntPtr; count: array of Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55480,16 +54355,13 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiModeDrawArraysIBM_ovr_6_anh010000(IntPtr.Zero, first, count[0], primcount, modestride) else
         z_MultiModeDrawArraysIBM_ovr_6_anh010100(IntPtr.Zero, first, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_7_anh010000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_7_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_6(mode[0], first, count, primcount, modestride) else
       z_MultiModeDrawArraysIBM_ovr_6_anh010000(IntPtr.Zero, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_8(var mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_8_anh010000(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_8 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_8_anh010000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: array of PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_8(mode[0], first, count, primcount, modestride) else
@@ -55526,14 +54398,10 @@ type
     z_MultiModeDrawArraysIBM_ovr_6(mode, first, count, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(var mode: PrimitiveType; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawArraysIBM_ovr_8(mode, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_18(mode: IntPtr; var first: Int32; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_18_anh001000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_18_anh000100(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_18_anh001100(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_18 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_18_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_18_anh000100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_18_anh001100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: array of Int32; count: array of Int32; primcount: Int32; modestride: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55542,16 +54410,13 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiModeDrawArraysIBM_ovr_18_anh001000(mode, IntPtr.Zero, count[0], primcount, modestride) else
         z_MultiModeDrawArraysIBM_ovr_18_anh001100(mode, IntPtr.Zero, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_19_anh001000(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_19_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: array of Int32; var count: Int32; primcount: Int32; modestride: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_18(mode, first[0], count, primcount, modestride) else
       z_MultiModeDrawArraysIBM_ovr_18_anh001000(mode, IntPtr.Zero, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_20(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_20_anh001000(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_20 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_20_anh001000 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: array of Int32; count: IntPtr; primcount: Int32; modestride: Int32) :=
     if (first<>nil) and (first.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_20(mode, first[0], count, primcount, modestride) else
@@ -55564,37 +54429,27 @@ type
     z_MultiModeDrawArraysIBM_ovr_18(mode, first, count, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; var first: Int32; count: IntPtr; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawArraysIBM_ovr_20(mode, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_24(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
-    private static procedure z_MultiModeDrawArraysIBM_ovr_24_anh000100(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_24 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
+    private z_MultiModeDrawArraysIBM_ovr_24_anh000100 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: IntPtr; count: array of Int32; primcount: Int32; modestride: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiModeDrawArraysIBM_ovr_24(mode, first, count[0], primcount, modestride) else
       z_MultiModeDrawArraysIBM_ovr_24_anh000100(mode, first, IntPtr.Zero, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: IntPtr; var count: Int32; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawArraysIBM_ovr_24(mode, first, count, primcount, modestride);
-    private static procedure z_MultiModeDrawArraysIBM_ovr_26(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawArraysIBM';
+    private z_MultiModeDrawArraysIBM_ovr_26 := GetFuncOrNil&(z_MultiModeDrawArraysIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawArraysIBM(mode: IntPtr; first: IntPtr; count: IntPtr; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawArraysIBM_ovr_26(mode, first, count, primcount, modestride);
     
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0010000(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0110000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0000100(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0100100(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0010100(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_0_anh0110100(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_adr := GetFuncAdr('glMultiModeDrawElementsIBM');
+    private z_MultiModeDrawElementsIBM_ovr_0 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0110000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0100100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0010100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_0_anh0110100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55611,12 +54466,9 @@ type
         if (indices<>nil) and (indices.Length<>0) then
           z_MultiModeDrawElementsIBM_ovr_0_anh0110000(IntPtr.Zero, IntPtr.Zero, &type, indices[0], primcount, modestride) else
           z_MultiModeDrawElementsIBM_ovr_0_anh0110100(IntPtr.Zero, IntPtr.Zero, &type, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_1_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_1_anh0010000(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_1_anh0110000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_1_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_1_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_1_anh0110000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55625,14 +54477,10 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiModeDrawElementsIBM_ovr_0_anh0100000(IntPtr.Zero, count[0], &type, indices, primcount, modestride) else
         z_MultiModeDrawElementsIBM_ovr_0_anh0110000(IntPtr.Zero, IntPtr.Zero, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_2(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_2_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_2_anh0010000(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_2_anh0110000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_2 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_2_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_2_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_2_anh0110000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (count<>nil) and (count.Length<>0) then
@@ -55641,12 +54489,9 @@ type
       if (count<>nil) and (count.Length<>0) then
         z_MultiModeDrawElementsIBM_ovr_2_anh0100000(IntPtr.Zero, count[0], &type, indices, primcount, modestride) else
         z_MultiModeDrawElementsIBM_ovr_2_anh0110000(IntPtr.Zero, IntPtr.Zero, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_3_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_3_anh0000100(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_3_anh0100100(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_3_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_3_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_3_anh0100100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -55655,26 +54500,20 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiModeDrawElementsIBM_ovr_0_anh0100000(IntPtr.Zero, count, &type, indices[0], primcount, modestride) else
         z_MultiModeDrawElementsIBM_ovr_0_anh0100100(IntPtr.Zero, count, &type, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_4_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_4_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_0(mode[0], count, &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_0_anh0100000(IntPtr.Zero, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_5_anh0100000(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_5_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_2(mode[0], count, &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_2_anh0100000(IntPtr.Zero, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_6(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_6_anh0100000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_6_anh0000100(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_6_anh0100100(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_6 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_6_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_6_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_6_anh0100100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -55683,24 +54522,19 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiModeDrawElementsIBM_ovr_6_anh0100000(IntPtr.Zero, count, &type, indices[0], primcount, modestride) else
         z_MultiModeDrawElementsIBM_ovr_6_anh0100100(IntPtr.Zero, count, &type, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_7_anh0100000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_7_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_6(mode[0], count, &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_6_anh0100000(IntPtr.Zero, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_8(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_8_anh0100000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_8 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_8_anh0100000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: array of PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     if (mode<>nil) and (mode.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_8(mode[0], count, &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_8_anh0100000(IntPtr.Zero, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_9_anh0000100(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_9_anh0010100(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_9_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_9_anh0010100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(var mode: PrimitiveType; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -55717,8 +54551,7 @@ type
     if (count<>nil) and (count.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_2(mode, count[0], &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_2_anh0010000(mode, IntPtr.Zero, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_12_anh0000100(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_12_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_0(mode, count, &type, indices[0], primcount, modestride) else
@@ -55727,8 +54560,7 @@ type
     z_MultiModeDrawElementsIBM_ovr_0(mode, count, &type, indices, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(var mode: PrimitiveType; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawElementsIBM_ovr_2(mode, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_15_anh0000100(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_15_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_6(mode, count, &type, indices[0], primcount, modestride) else
@@ -55737,14 +54569,10 @@ type
     z_MultiModeDrawElementsIBM_ovr_6(mode, count, &type, indices, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(var mode: PrimitiveType; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawElementsIBM_ovr_8(mode, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_18(mode: IntPtr; var count: Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_18_anh0010000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_18_anh0000100(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_18_anh0010100(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_18 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_18_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_18_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_18_anh0010100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: array of Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       if (indices<>nil) and (indices.Length<>0) then
@@ -55753,22 +54581,18 @@ type
       if (indices<>nil) and (indices.Length<>0) then
         z_MultiModeDrawElementsIBM_ovr_18_anh0010000(mode, IntPtr.Zero, &type, indices[0], primcount, modestride) else
         z_MultiModeDrawElementsIBM_ovr_18_anh0010100(mode, IntPtr.Zero, &type, IntPtr.Zero, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_19_anh0010000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_19_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: array of Int32; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_18(mode, count[0], &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_18_anh0010000(mode, IntPtr.Zero, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_20(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_20_anh0010000(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_20 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_20_anh0010000 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: array of Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     if (count<>nil) and (count.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_20(mode, count[0], &type, indices, primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_20_anh0010000(mode, IntPtr.Zero, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_21_anh0000100(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_21_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_18(mode, count, &type, indices[0], primcount, modestride) else
@@ -55777,82 +54601,78 @@ type
     z_MultiModeDrawElementsIBM_ovr_18(mode, count, &type, indices, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; var count: Int32; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawElementsIBM_ovr_20(mode, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_24(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
-    private static procedure z_MultiModeDrawElementsIBM_ovr_24_anh0000100(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: IntPtr; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_24 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
+    private z_MultiModeDrawElementsIBM_ovr_24_anh0000100 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: array of IntPtr; primcount: Int32; modestride: Int32) :=
     if (indices<>nil) and (indices.Length<>0) then
       z_MultiModeDrawElementsIBM_ovr_24(mode, count, &type, indices[0], primcount, modestride) else
       z_MultiModeDrawElementsIBM_ovr_24_anh0000100(mode, count, &type, IntPtr.Zero, primcount, modestride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: IntPtr; &type: DrawElementsType; var indices: IntPtr; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawElementsIBM_ovr_24(mode, count, &type, indices, primcount, modestride);
-    private static procedure z_MultiModeDrawElementsIBM_ovr_26(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32);
-    external 'opengl32.dll' name 'glMultiModeDrawElementsIBM';
+    private z_MultiModeDrawElementsIBM_ovr_26 := GetFuncOrNil&(z_MultiModeDrawElementsIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiModeDrawElementsIBM(mode: IntPtr; count: IntPtr; &type: DrawElementsType; indices: pointer; primcount: Int32; modestride: Int32) :=
     z_MultiModeDrawElementsIBM_ovr_26(mode, count, &type, indices, primcount, modestride);
     
   end;
   
   [PCUNotRestore]
-  glStaticDataIBM = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glStaticDataIBM = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'IBM_static_data';
     
-    private static procedure z_FlushStaticDataIBM_ovr_0(target: DummyEnum);
-    external 'opengl32.dll' name 'glFlushStaticDataIBM';
+    private z_FlushStaticDataIBM_adr := GetFuncAdr('glFlushStaticDataIBM');
+    private z_FlushStaticDataIBM_ovr_0 := GetFuncOrNil&(z_FlushStaticDataIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushStaticDataIBM(target: DummyEnum) :=
     z_FlushStaticDataIBM_ovr_0(target);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayListsIBM = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayListsIBM = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'IBM_vertex_array_lists';
     
-    private static procedure z_ColorPointerListIBM_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glColorPointerListIBM';
-    private static procedure z_ColorPointerListIBM_ovr_0_anh000010(size: Int32; &type: ColorPointerType; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glColorPointerListIBM';
+    private z_ColorPointerListIBM_adr := GetFuncAdr('glColorPointerListIBM');
+    private z_ColorPointerListIBM_ovr_0 := GetFuncOrNil&(z_ColorPointerListIBM_adr);
+    private z_ColorPointerListIBM_ovr_0_anh000010 := GetFuncOrNil&(z_ColorPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointerListIBM(size: Int32; &type: ColorPointerType; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_ColorPointerListIBM_ovr_0(size, &type, stride, _pointer[0], ptrstride) else
       z_ColorPointerListIBM_ovr_0_anh000010(size, &type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointerListIBM(size: Int32; &type: ColorPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_ColorPointerListIBM_ovr_0(size, &type, stride, _pointer, ptrstride);
-    private static procedure z_ColorPointerListIBM_ovr_2(size: Int32; &type: ColorPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glColorPointerListIBM';
+    private z_ColorPointerListIBM_ovr_2 := GetFuncOrNil&(z_ColorPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointerListIBM(size: Int32; &type: ColorPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_ColorPointerListIBM_ovr_2(size, &type, stride, _pointer, ptrstride);
     
-    private static procedure z_SecondaryColorPointerListIBM_ovr_0(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glSecondaryColorPointerListIBM';
-    private static procedure z_SecondaryColorPointerListIBM_ovr_0_anh000010(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glSecondaryColorPointerListIBM';
+    private z_SecondaryColorPointerListIBM_adr := GetFuncAdr('glSecondaryColorPointerListIBM');
+    private z_SecondaryColorPointerListIBM_ovr_0 := GetFuncOrNil&(z_SecondaryColorPointerListIBM_adr);
+    private z_SecondaryColorPointerListIBM_ovr_0_anh000010 := GetFuncOrNil&(z_SecondaryColorPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorPointerListIBM(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_SecondaryColorPointerListIBM_ovr_0(size, &type, stride, _pointer[0], ptrstride) else
       z_SecondaryColorPointerListIBM_ovr_0_anh000010(size, &type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorPointerListIBM(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_SecondaryColorPointerListIBM_ovr_0(size, &type, stride, _pointer, ptrstride);
-    private static procedure z_SecondaryColorPointerListIBM_ovr_2(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glSecondaryColorPointerListIBM';
+    private z_SecondaryColorPointerListIBM_ovr_2 := GetFuncOrNil&(z_SecondaryColorPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorPointerListIBM(size: Int32; &type: SecondaryColorPointerTypeIBM; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_SecondaryColorPointerListIBM_ovr_2(size, &type, stride, _pointer, ptrstride);
     
-    private static procedure z_EdgeFlagPointerListIBM_ovr_0(stride: Int32; var pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glEdgeFlagPointerListIBM';
-    private static procedure z_EdgeFlagPointerListIBM_ovr_0_anh0010(stride: Int32; pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glEdgeFlagPointerListIBM';
+    private z_EdgeFlagPointerListIBM_adr := GetFuncAdr('glEdgeFlagPointerListIBM');
+    private z_EdgeFlagPointerListIBM_ovr_0 := GetFuncOrNil&(z_EdgeFlagPointerListIBM_adr);
+    private z_EdgeFlagPointerListIBM_ovr_0_anh0010 := GetFuncOrNil&(z_EdgeFlagPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerListIBM(stride: Int32; pointer: array of array of Byte; ptrstride: Int32);
     begin
       var par_2_temp_arr1: array of IntPtr;
@@ -55873,343 +54693,289 @@ type
         if par_2_temp_arr1<>nil then foreach var arr_el1 in par_2_temp_arr1 do Marshal.FreeHGlobal(arr_el1);
       end;
     end;
-    private static procedure z_EdgeFlagPointerListIBM_ovr_1_anh0010(stride: Int32; pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glEdgeFlagPointerListIBM';
+    private z_EdgeFlagPointerListIBM_ovr_1_anh0010 := GetFuncOrNil&(z_EdgeFlagPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerListIBM(stride: Int32; pointer: array of IntPtr; ptrstride: Int32) :=
     if (pointer<>nil) and (pointer.Length<>0) then
       z_EdgeFlagPointerListIBM_ovr_0(stride, pointer[0], ptrstride) else
       z_EdgeFlagPointerListIBM_ovr_0_anh0010(stride, IntPtr.Zero, ptrstride);
-    private static procedure z_EdgeFlagPointerListIBM_ovr_2(stride: Int32; pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glEdgeFlagPointerListIBM';
+    private z_EdgeFlagPointerListIBM_ovr_2 := GetFuncOrNil&(z_EdgeFlagPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagPointerListIBM(stride: Int32; pointer: IntPtr; ptrstride: Int32) :=
     z_EdgeFlagPointerListIBM_ovr_2(stride, pointer, ptrstride);
     
-    private static procedure z_FogCoordPointerListIBM_ovr_0(&type: FogPointerTypeIBM; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glFogCoordPointerListIBM';
-    private static procedure z_FogCoordPointerListIBM_ovr_0_anh00010(&type: FogPointerTypeIBM; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glFogCoordPointerListIBM';
+    private z_FogCoordPointerListIBM_adr := GetFuncAdr('glFogCoordPointerListIBM');
+    private z_FogCoordPointerListIBM_ovr_0 := GetFuncOrNil&(z_FogCoordPointerListIBM_adr);
+    private z_FogCoordPointerListIBM_ovr_0_anh00010 := GetFuncOrNil&(z_FogCoordPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordPointerListIBM(&type: FogPointerTypeIBM; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_FogCoordPointerListIBM_ovr_0(&type, stride, _pointer[0], ptrstride) else
       z_FogCoordPointerListIBM_ovr_0_anh00010(&type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordPointerListIBM(&type: FogPointerTypeIBM; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_FogCoordPointerListIBM_ovr_0(&type, stride, _pointer, ptrstride);
-    private static procedure z_FogCoordPointerListIBM_ovr_2(&type: FogPointerTypeIBM; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glFogCoordPointerListIBM';
+    private z_FogCoordPointerListIBM_ovr_2 := GetFuncOrNil&(z_FogCoordPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordPointerListIBM(&type: FogPointerTypeIBM; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_FogCoordPointerListIBM_ovr_2(&type, stride, _pointer, ptrstride);
     
-    private static procedure z_IndexPointerListIBM_ovr_0(&type: IndexPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glIndexPointerListIBM';
-    private static procedure z_IndexPointerListIBM_ovr_0_anh00010(&type: IndexPointerType; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glIndexPointerListIBM';
+    private z_IndexPointerListIBM_adr := GetFuncAdr('glIndexPointerListIBM');
+    private z_IndexPointerListIBM_ovr_0 := GetFuncOrNil&(z_IndexPointerListIBM_adr);
+    private z_IndexPointerListIBM_ovr_0_anh00010 := GetFuncOrNil&(z_IndexPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexPointerListIBM(&type: IndexPointerType; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_IndexPointerListIBM_ovr_0(&type, stride, _pointer[0], ptrstride) else
       z_IndexPointerListIBM_ovr_0_anh00010(&type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexPointerListIBM(&type: IndexPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_IndexPointerListIBM_ovr_0(&type, stride, _pointer, ptrstride);
-    private static procedure z_IndexPointerListIBM_ovr_2(&type: IndexPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glIndexPointerListIBM';
+    private z_IndexPointerListIBM_ovr_2 := GetFuncOrNil&(z_IndexPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexPointerListIBM(&type: IndexPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_IndexPointerListIBM_ovr_2(&type, stride, _pointer, ptrstride);
     
-    private static procedure z_NormalPointerListIBM_ovr_0(&type: NormalPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glNormalPointerListIBM';
-    private static procedure z_NormalPointerListIBM_ovr_0_anh00010(&type: NormalPointerType; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glNormalPointerListIBM';
+    private z_NormalPointerListIBM_adr := GetFuncAdr('glNormalPointerListIBM');
+    private z_NormalPointerListIBM_ovr_0 := GetFuncOrNil&(z_NormalPointerListIBM_adr);
+    private z_NormalPointerListIBM_ovr_0_anh00010 := GetFuncOrNil&(z_NormalPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointerListIBM(&type: NormalPointerType; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_NormalPointerListIBM_ovr_0(&type, stride, _pointer[0], ptrstride) else
       z_NormalPointerListIBM_ovr_0_anh00010(&type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointerListIBM(&type: NormalPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_NormalPointerListIBM_ovr_0(&type, stride, _pointer, ptrstride);
-    private static procedure z_NormalPointerListIBM_ovr_2(&type: NormalPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glNormalPointerListIBM';
+    private z_NormalPointerListIBM_ovr_2 := GetFuncOrNil&(z_NormalPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointerListIBM(&type: NormalPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_NormalPointerListIBM_ovr_2(&type, stride, _pointer, ptrstride);
     
-    private static procedure z_TexCoordPointerListIBM_ovr_0(size: Int32; &type: TexCoordPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glTexCoordPointerListIBM';
-    private static procedure z_TexCoordPointerListIBM_ovr_0_anh000010(size: Int32; &type: TexCoordPointerType; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glTexCoordPointerListIBM';
+    private z_TexCoordPointerListIBM_adr := GetFuncAdr('glTexCoordPointerListIBM');
+    private z_TexCoordPointerListIBM_ovr_0 := GetFuncOrNil&(z_TexCoordPointerListIBM_adr);
+    private z_TexCoordPointerListIBM_ovr_0_anh000010 := GetFuncOrNil&(z_TexCoordPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointerListIBM(size: Int32; &type: TexCoordPointerType; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_TexCoordPointerListIBM_ovr_0(size, &type, stride, _pointer[0], ptrstride) else
       z_TexCoordPointerListIBM_ovr_0_anh000010(size, &type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointerListIBM(size: Int32; &type: TexCoordPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_TexCoordPointerListIBM_ovr_0(size, &type, stride, _pointer, ptrstride);
-    private static procedure z_TexCoordPointerListIBM_ovr_2(size: Int32; &type: TexCoordPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glTexCoordPointerListIBM';
+    private z_TexCoordPointerListIBM_ovr_2 := GetFuncOrNil&(z_TexCoordPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointerListIBM(size: Int32; &type: TexCoordPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_TexCoordPointerListIBM_ovr_2(size, &type, stride, _pointer, ptrstride);
     
-    private static procedure z_VertexPointerListIBM_ovr_0(size: Int32; &type: VertexPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glVertexPointerListIBM';
-    private static procedure z_VertexPointerListIBM_ovr_0_anh000010(size: Int32; &type: VertexPointerType; stride: Int32; _pointer: IntPtr; ptrstride: Int32);
-    external 'opengl32.dll' name 'glVertexPointerListIBM';
+    private z_VertexPointerListIBM_adr := GetFuncAdr('glVertexPointerListIBM');
+    private z_VertexPointerListIBM_ovr_0 := GetFuncOrNil&(z_VertexPointerListIBM_adr);
+    private z_VertexPointerListIBM_ovr_0_anh000010 := GetFuncOrNil&(z_VertexPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointerListIBM(size: Int32; &type: VertexPointerType; stride: Int32; _pointer: array of IntPtr; ptrstride: Int32) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_VertexPointerListIBM_ovr_0(size, &type, stride, _pointer[0], ptrstride) else
       z_VertexPointerListIBM_ovr_0_anh000010(size, &type, stride, IntPtr.Zero, ptrstride);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointerListIBM(size: Int32; &type: VertexPointerType; stride: Int32; var _pointer: IntPtr; ptrstride: Int32) :=
     z_VertexPointerListIBM_ovr_0(size, &type, stride, _pointer, ptrstride);
-    private static procedure z_VertexPointerListIBM_ovr_2(size: Int32; &type: VertexPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32);
-    external 'opengl32.dll' name 'glVertexPointerListIBM';
+    private z_VertexPointerListIBM_ovr_2 := GetFuncOrNil&(z_VertexPointerListIBM_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointerListIBM(size: Int32; &type: VertexPointerType; stride: Int32; _pointer: pointer; ptrstride: Int32) :=
     z_VertexPointerListIBM_ovr_2(size, &type, stride, _pointer, ptrstride);
     
   end;
   
   [PCUNotRestore]
-  glBlendFuncSeparateINGR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendFuncSeparateINGR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'INGR_blend_func_separate';
     
-    private static procedure z_BlendFuncSeparateINGR_ovr_0(sfactorRGB: BlendingFactor; dfactorRGB: BlendingFactor; sfactorAlpha: BlendingFactor; dfactorAlpha: BlendingFactor);
-    external 'opengl32.dll' name 'glBlendFuncSeparateINGR';
+    private z_BlendFuncSeparateINGR_adr := GetFuncAdr('glBlendFuncSeparateINGR');
+    private z_BlendFuncSeparateINGR_ovr_0 := GetFuncOrNil&(z_BlendFuncSeparateINGR_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendFuncSeparateINGR(sfactorRGB: BlendingFactor; dfactorRGB: BlendingFactor; sfactorAlpha: BlendingFactor; dfactorAlpha: BlendingFactor) :=
     z_BlendFuncSeparateINGR_ovr_0(sfactorRGB, dfactorRGB, sfactorAlpha, dfactorAlpha);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferCMAAINTEL = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferCMAAINTEL = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'INTEL_framebuffer_CMAA';
     
-    private static procedure z_ApplyFramebufferAttachmentCMAAINTEL_ovr_0;
-    external 'opengl32.dll' name 'glApplyFramebufferAttachmentCMAAINTEL';
+    private z_ApplyFramebufferAttachmentCMAAINTEL_adr := GetFuncAdr('glApplyFramebufferAttachmentCMAAINTEL');
+    private z_ApplyFramebufferAttachmentCMAAINTEL_ovr_0 := GetFuncOrNil&(z_ApplyFramebufferAttachmentCMAAINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ApplyFramebufferAttachmentCMAAINTEL :=
     z_ApplyFramebufferAttachmentCMAAINTEL_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glMapTextureINTEL = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMapTextureINTEL = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'INTEL_map_texture';
     
-    private static procedure z_SyncTextureINTEL_ovr_0(texture: UInt32);
-    external 'opengl32.dll' name 'glSyncTextureINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SyncTextureINTEL(texture: UInt32) :=
+    private z_SyncTextureINTEL_adr := GetFuncAdr('glSyncTextureINTEL');
+    private z_SyncTextureINTEL_ovr_0 := GetFuncOrNil&(z_SyncTextureINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SyncTextureINTEL(texture: gl_texture) :=
     z_SyncTextureINTEL_ovr_0(texture);
     
-    private static procedure z_UnmapTexture2DINTEL_ovr_0(texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glUnmapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UnmapTexture2DINTEL(texture: UInt32; level: Int32) :=
+    private z_UnmapTexture2DINTEL_adr := GetFuncAdr('glUnmapTexture2DINTEL');
+    private z_UnmapTexture2DINTEL_ovr_0 := GetFuncOrNil&(z_UnmapTexture2DINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UnmapTexture2DINTEL(texture: gl_texture; level: Int32) :=
     z_UnmapTexture2DINTEL_ovr_0(texture, level);
     
-    private static function z_MapTexture2DINTEL_ovr_0(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; var layout: DummyEnum): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    private static function z_MapTexture2DINTEL_ovr_0_anh000010(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; var layout: DummyEnum): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    private static function z_MapTexture2DINTEL_ovr_0_anh000001(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    private static function z_MapTexture2DINTEL_ovr_0_anh000011(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: array of Int32; layout: array of DummyEnum): IntPtr :=
-    if (stride<>nil) and (stride.Length<>0) then
-      if (layout<>nil) and (layout.Length<>0) then
-        z_MapTexture2DINTEL_ovr_0(texture, level, access, stride[0], layout[0]) else
-        z_MapTexture2DINTEL_ovr_0_anh000001(texture, level, access, stride[0], IntPtr.Zero) else
-      if (layout<>nil) and (layout.Length<>0) then
-        z_MapTexture2DINTEL_ovr_0_anh000010(texture, level, access, IntPtr.Zero, layout[0]) else
-        z_MapTexture2DINTEL_ovr_0_anh000011(texture, level, access, IntPtr.Zero, IntPtr.Zero);
-    private static function z_MapTexture2DINTEL_ovr_1_anh000010(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; var layout: DummyEnum): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: array of Int32; var layout: DummyEnum): IntPtr :=
-    if (stride<>nil) and (stride.Length<>0) then
-      z_MapTexture2DINTEL_ovr_0(texture, level, access, stride[0], layout) else
-      z_MapTexture2DINTEL_ovr_0_anh000010(texture, level, access, IntPtr.Zero, layout);
-    private static function z_MapTexture2DINTEL_ovr_2(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    private static function z_MapTexture2DINTEL_ovr_2_anh000010(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: array of Int32; layout: IntPtr): IntPtr :=
-    if (stride<>nil) and (stride.Length<>0) then
-      z_MapTexture2DINTEL_ovr_2(texture, level, access, stride[0], layout) else
-      z_MapTexture2DINTEL_ovr_2_anh000010(texture, level, access, IntPtr.Zero, layout);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; layout: array of DummyEnum): IntPtr :=
-    if (layout<>nil) and (layout.Length<>0) then
-      z_MapTexture2DINTEL_ovr_0(texture, level, access, stride, layout[0]) else
-      z_MapTexture2DINTEL_ovr_0_anh000001(texture, level, access, stride, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; var layout: DummyEnum): IntPtr :=
+    private z_MapTexture2DINTEL_adr := GetFuncAdr('glMapTexture2DINTEL');
+    private z_MapTexture2DINTEL_ovr_0 := GetFuncOrNil&(z_MapTexture2DINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: gl_texture; level: Int32; access: DummyFlags; var stride: Int32; var layout: DummyEnum): IntPtr :=
     z_MapTexture2DINTEL_ovr_0(texture, level, access, stride, layout);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; var stride: Int32; layout: IntPtr): IntPtr :=
+    private z_MapTexture2DINTEL_ovr_1 := GetFuncOrNil&(z_MapTexture2DINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: gl_texture; level: Int32; access: DummyFlags; var stride: Int32; layout: IntPtr): IntPtr :=
+    z_MapTexture2DINTEL_ovr_1(texture, level, access, stride, layout);
+    private z_MapTexture2DINTEL_ovr_2 := GetFuncOrNil&(z_MapTexture2DINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: gl_texture; level: Int32; access: DummyFlags; stride: IntPtr; var layout: DummyEnum): IntPtr :=
     z_MapTexture2DINTEL_ovr_2(texture, level, access, stride, layout);
-    private static function z_MapTexture2DINTEL_ovr_6(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; var layout: DummyEnum): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    private static function z_MapTexture2DINTEL_ovr_6_anh000001(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: array of DummyEnum): IntPtr :=
-    if (layout<>nil) and (layout.Length<>0) then
-      z_MapTexture2DINTEL_ovr_6(texture, level, access, stride, layout[0]) else
-      z_MapTexture2DINTEL_ovr_6_anh000001(texture, level, access, stride, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; var layout: DummyEnum): IntPtr :=
-    z_MapTexture2DINTEL_ovr_6(texture, level, access, stride, layout);
-    private static function z_MapTexture2DINTEL_ovr_8(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'glMapTexture2DINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: UInt32; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr :=
-    z_MapTexture2DINTEL_ovr_8(texture, level, access, stride, layout);
+    private z_MapTexture2DINTEL_ovr_3 := GetFuncOrNil&(z_MapTexture2DINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MapTexture2DINTEL(texture: gl_texture; level: Int32; access: DummyFlags; stride: IntPtr; layout: IntPtr): IntPtr :=
+    z_MapTexture2DINTEL_ovr_3(texture, level, access, stride, layout);
     
   end;
   
   [PCUNotRestore]
-  glParallelArraysINTEL = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glParallelArraysINTEL = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'INTEL_parallel_arrays';
     
-    private static procedure z_VertexPointervINTEL_ovr_0(size: Int32; &type: VertexPointerType; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexPointervINTEL';
-    private static procedure z_VertexPointervINTEL_ovr_0_anh0001(size: Int32; &type: VertexPointerType; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexPointervINTEL';
+    private z_VertexPointervINTEL_adr := GetFuncAdr('glVertexPointervINTEL');
+    private z_VertexPointervINTEL_ovr_0 := GetFuncOrNil&(z_VertexPointervINTEL_adr);
+    private z_VertexPointervINTEL_ovr_0_anh0001 := GetFuncOrNil&(z_VertexPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: array of IntPtr) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_VertexPointervINTEL_ovr_0(size, &type, _pointer[0]) else
       z_VertexPointervINTEL_ovr_0_anh0001(size, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointervINTEL(size: Int32; &type: VertexPointerType; var _pointer: IntPtr) :=
     z_VertexPointervINTEL_ovr_0(size, &type, _pointer);
-    private static procedure z_VertexPointervINTEL_ovr_2(size: Int32; &type: VertexPointerType; _pointer: pointer);
-    external 'opengl32.dll' name 'glVertexPointervINTEL';
+    private z_VertexPointervINTEL_ovr_2 := GetFuncOrNil&(z_VertexPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: pointer) :=
     z_VertexPointervINTEL_ovr_2(size, &type, _pointer);
     
-    private static procedure z_NormalPointervINTEL_ovr_0(&type: NormalPointerType; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glNormalPointervINTEL';
-    private static procedure z_NormalPointervINTEL_ovr_0_anh001(&type: NormalPointerType; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glNormalPointervINTEL';
+    private z_NormalPointervINTEL_adr := GetFuncAdr('glNormalPointervINTEL');
+    private z_NormalPointervINTEL_ovr_0 := GetFuncOrNil&(z_NormalPointervINTEL_adr);
+    private z_NormalPointervINTEL_ovr_0_anh001 := GetFuncOrNil&(z_NormalPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointervINTEL(&type: NormalPointerType; _pointer: array of IntPtr) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_NormalPointervINTEL_ovr_0(&type, _pointer[0]) else
       z_NormalPointervINTEL_ovr_0_anh001(&type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointervINTEL(&type: NormalPointerType; var _pointer: IntPtr) :=
     z_NormalPointervINTEL_ovr_0(&type, _pointer);
-    private static procedure z_NormalPointervINTEL_ovr_2(&type: NormalPointerType; _pointer: pointer);
-    external 'opengl32.dll' name 'glNormalPointervINTEL';
+    private z_NormalPointervINTEL_ovr_2 := GetFuncOrNil&(z_NormalPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalPointervINTEL(&type: NormalPointerType; _pointer: pointer) :=
     z_NormalPointervINTEL_ovr_2(&type, _pointer);
     
-    private static procedure z_ColorPointervINTEL_ovr_0(size: Int32; &type: VertexPointerType; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glColorPointervINTEL';
-    private static procedure z_ColorPointervINTEL_ovr_0_anh0001(size: Int32; &type: VertexPointerType; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glColorPointervINTEL';
+    private z_ColorPointervINTEL_adr := GetFuncAdr('glColorPointervINTEL');
+    private z_ColorPointervINTEL_ovr_0 := GetFuncOrNil&(z_ColorPointervINTEL_adr);
+    private z_ColorPointervINTEL_ovr_0_anh0001 := GetFuncOrNil&(z_ColorPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: array of IntPtr) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_ColorPointervINTEL_ovr_0(size, &type, _pointer[0]) else
       z_ColorPointervINTEL_ovr_0_anh0001(size, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointervINTEL(size: Int32; &type: VertexPointerType; var _pointer: IntPtr) :=
     z_ColorPointervINTEL_ovr_0(size, &type, _pointer);
-    private static procedure z_ColorPointervINTEL_ovr_2(size: Int32; &type: VertexPointerType; _pointer: pointer);
-    external 'opengl32.dll' name 'glColorPointervINTEL';
+    private z_ColorPointervINTEL_ovr_2 := GetFuncOrNil&(z_ColorPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: pointer) :=
     z_ColorPointervINTEL_ovr_2(size, &type, _pointer);
     
-    private static procedure z_TexCoordPointervINTEL_ovr_0(size: Int32; &type: VertexPointerType; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordPointervINTEL';
-    private static procedure z_TexCoordPointervINTEL_ovr_0_anh0001(size: Int32; &type: VertexPointerType; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glTexCoordPointervINTEL';
+    private z_TexCoordPointervINTEL_adr := GetFuncAdr('glTexCoordPointervINTEL');
+    private z_TexCoordPointervINTEL_ovr_0 := GetFuncOrNil&(z_TexCoordPointervINTEL_adr);
+    private z_TexCoordPointervINTEL_ovr_0_anh0001 := GetFuncOrNil&(z_TexCoordPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: array of IntPtr) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_TexCoordPointervINTEL_ovr_0(size, &type, _pointer[0]) else
       z_TexCoordPointervINTEL_ovr_0_anh0001(size, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointervINTEL(size: Int32; &type: VertexPointerType; var _pointer: IntPtr) :=
     z_TexCoordPointervINTEL_ovr_0(size, &type, _pointer);
-    private static procedure z_TexCoordPointervINTEL_ovr_2(size: Int32; &type: VertexPointerType; _pointer: pointer);
-    external 'opengl32.dll' name 'glTexCoordPointervINTEL';
+    private z_TexCoordPointervINTEL_ovr_2 := GetFuncOrNil&(z_TexCoordPointervINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordPointervINTEL(size: Int32; &type: VertexPointerType; _pointer: pointer) :=
     z_TexCoordPointervINTEL_ovr_2(size, &type, _pointer);
     
   end;
   
   [PCUNotRestore]
-  glPerformanceQueryINTEL = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPerformanceQueryINTEL = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'INTEL_performance_query';
     
-    private static procedure z_BeginPerfQueryINTEL_ovr_0(queryHandle: PerfQueryHandleINTEL);
-    external 'opengl32.dll' name 'glBeginPerfQueryINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginPerfQueryINTEL(queryHandle: PerfQueryHandleINTEL) :=
+    private z_BeginPerfQueryINTEL_adr := GetFuncAdr('glBeginPerfQueryINTEL');
+    private z_BeginPerfQueryINTEL_ovr_0 := GetFuncOrNil&(z_BeginPerfQueryINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginPerfQueryINTEL(queryHandle: gl_perf_query_handle_INTEL) :=
     z_BeginPerfQueryINTEL_ovr_0(queryHandle);
     
-    private static procedure z_CreatePerfQueryINTEL_ovr_0(queryId: PerfQueryIdINTEL; var queryHandle: PerfQueryHandleINTEL);
-    external 'opengl32.dll' name 'glCreatePerfQueryINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreatePerfQueryINTEL(queryId: PerfQueryIdINTEL; var queryHandle: PerfQueryHandleINTEL) :=
+    private z_CreatePerfQueryINTEL_adr := GetFuncAdr('glCreatePerfQueryINTEL');
+    private z_CreatePerfQueryINTEL_ovr_0 := GetFuncOrNil&(z_CreatePerfQueryINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreatePerfQueryINTEL(queryId: gl_perf_query_id_INTEL; var queryHandle: gl_perf_query_handle_INTEL) :=
     z_CreatePerfQueryINTEL_ovr_0(queryId, queryHandle);
-    private static procedure z_CreatePerfQueryINTEL_ovr_1(queryId: PerfQueryIdINTEL; queryHandle: IntPtr);
-    external 'opengl32.dll' name 'glCreatePerfQueryINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreatePerfQueryINTEL(queryId: PerfQueryIdINTEL; queryHandle: IntPtr) :=
+    private z_CreatePerfQueryINTEL_ovr_1 := GetFuncOrNil&(z_CreatePerfQueryINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreatePerfQueryINTEL(queryId: gl_perf_query_id_INTEL; queryHandle: IntPtr) :=
     z_CreatePerfQueryINTEL_ovr_1(queryId, queryHandle);
     
-    private static procedure z_DeletePerfQueryINTEL_ovr_0(queryHandle: PerfQueryHandleINTEL);
-    external 'opengl32.dll' name 'glDeletePerfQueryINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePerfQueryINTEL(queryHandle: PerfQueryHandleINTEL) :=
+    private z_DeletePerfQueryINTEL_adr := GetFuncAdr('glDeletePerfQueryINTEL');
+    private z_DeletePerfQueryINTEL_ovr_0 := GetFuncOrNil&(z_DeletePerfQueryINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePerfQueryINTEL(queryHandle: gl_perf_query_handle_INTEL) :=
     z_DeletePerfQueryINTEL_ovr_0(queryHandle);
     
-    private static procedure z_EndPerfQueryINTEL_ovr_0(queryHandle: PerfQueryHandleINTEL);
-    external 'opengl32.dll' name 'glEndPerfQueryINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndPerfQueryINTEL(queryHandle: PerfQueryHandleINTEL) :=
+    private z_EndPerfQueryINTEL_adr := GetFuncAdr('glEndPerfQueryINTEL');
+    private z_EndPerfQueryINTEL_ovr_0 := GetFuncOrNil&(z_EndPerfQueryINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndPerfQueryINTEL(queryHandle: gl_perf_query_handle_INTEL) :=
     z_EndPerfQueryINTEL_ovr_0(queryHandle);
     
-    private static procedure z_GetFirstPerfQueryIdINTEL_ovr_0(var queryId: PerfQueryIdINTEL);
-    external 'opengl32.dll' name 'glGetFirstPerfQueryIdINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFirstPerfQueryIdINTEL(var queryId: PerfQueryIdINTEL) :=
+    private z_GetFirstPerfQueryIdINTEL_adr := GetFuncAdr('glGetFirstPerfQueryIdINTEL');
+    private z_GetFirstPerfQueryIdINTEL_ovr_0 := GetFuncOrNil&(z_GetFirstPerfQueryIdINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFirstPerfQueryIdINTEL(var queryId: gl_perf_query_id_INTEL) :=
     z_GetFirstPerfQueryIdINTEL_ovr_0(queryId);
-    private static procedure z_GetFirstPerfQueryIdINTEL_ovr_1(queryId: IntPtr);
-    external 'opengl32.dll' name 'glGetFirstPerfQueryIdINTEL';
+    private z_GetFirstPerfQueryIdINTEL_ovr_1 := GetFuncOrNil&(z_GetFirstPerfQueryIdINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFirstPerfQueryIdINTEL(queryId: IntPtr) :=
     z_GetFirstPerfQueryIdINTEL_ovr_1(queryId);
     
-    private static procedure z_GetNextPerfQueryIdINTEL_ovr_0(queryId: PerfQueryIdINTEL; nextQueryId: PerfQueryIdINTEL);
-    external 'opengl32.dll' name 'glGetNextPerfQueryIdINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNextPerfQueryIdINTEL(queryId: PerfQueryIdINTEL; nextQueryId: PerfQueryIdINTEL) :=
+    private z_GetNextPerfQueryIdINTEL_adr := GetFuncAdr('glGetNextPerfQueryIdINTEL');
+    private z_GetNextPerfQueryIdINTEL_ovr_0 := GetFuncOrNil&(z_GetNextPerfQueryIdINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNextPerfQueryIdINTEL(queryId: gl_perf_query_id_INTEL; nextQueryId: gl_perf_query_id_INTEL) :=
     z_GetNextPerfQueryIdINTEL_ovr_0(queryId, nextQueryId);
-    private static procedure z_GetNextPerfQueryIdINTEL_ovr_1(queryId: PerfQueryIdINTEL; nextQueryId: IntPtr);
-    external 'opengl32.dll' name 'glGetNextPerfQueryIdINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNextPerfQueryIdINTEL(queryId: PerfQueryIdINTEL; nextQueryId: IntPtr) :=
+    private z_GetNextPerfQueryIdINTEL_ovr_1 := GetFuncOrNil&(z_GetNextPerfQueryIdINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNextPerfQueryIdINTEL(queryId: gl_perf_query_id_INTEL; nextQueryId: IntPtr) :=
     z_GetNextPerfQueryIdINTEL_ovr_1(queryId, nextQueryId);
     
-    private static procedure z_GetPerfCounterInfoINTEL_ovr_0(queryId: PerfQueryIdINTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; var counterOffset: UInt32; var counterDataSize: UInt32; var counterTypeEnum: UInt32; var counterDataTypeEnum: UInt32; var rawCounterMaxValue: UInt64);
-    external 'opengl32.dll' name 'glGetPerfCounterInfoINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfCounterInfoINTEL(queryId: PerfQueryIdINTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; var counterOffset: UInt32; var counterDataSize: UInt32; var counterTypeEnum: UInt32; var counterDataTypeEnum: UInt32; var rawCounterMaxValue: UInt64) :=
+    private z_GetPerfCounterInfoINTEL_adr := GetFuncAdr('glGetPerfCounterInfoINTEL');
+    private z_GetPerfCounterInfoINTEL_ovr_0 := GetFuncOrNil&(z_GetPerfCounterInfoINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfCounterInfoINTEL(queryId: gl_perf_query_id_INTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; var counterOffset: UInt32; var counterDataSize: UInt32; var counterTypeEnum: UInt32; var counterDataTypeEnum: UInt32; var rawCounterMaxValue: UInt64) :=
     z_GetPerfCounterInfoINTEL_ovr_0(queryId, counterId, counterNameLength, counterName, counterDescLength, counterDesc, counterOffset, counterDataSize, counterTypeEnum, counterDataTypeEnum, rawCounterMaxValue);
-    private static procedure z_GetPerfCounterInfoINTEL_ovr_1(queryId: PerfQueryIdINTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; counterOffset: IntPtr; counterDataSize: IntPtr; counterTypeEnum: IntPtr; counterDataTypeEnum: IntPtr; rawCounterMaxValue: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfCounterInfoINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfCounterInfoINTEL(queryId: PerfQueryIdINTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; counterOffset: IntPtr; counterDataSize: IntPtr; counterTypeEnum: IntPtr; counterDataTypeEnum: IntPtr; rawCounterMaxValue: IntPtr) :=
+    private z_GetPerfCounterInfoINTEL_ovr_1 := GetFuncOrNil&(z_GetPerfCounterInfoINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfCounterInfoINTEL(queryId: gl_perf_query_id_INTEL; counterId: UInt32; counterNameLength: UInt32; counterName: IntPtr; counterDescLength: UInt32; counterDesc: IntPtr; counterOffset: IntPtr; counterDataSize: IntPtr; counterTypeEnum: IntPtr; counterDataTypeEnum: IntPtr; rawCounterMaxValue: IntPtr) :=
     z_GetPerfCounterInfoINTEL_ovr_1(queryId, counterId, counterNameLength, counterName, counterDescLength, counterDesc, counterOffset, counterDataSize, counterTypeEnum, counterDataTypeEnum, rawCounterMaxValue);
     
-    private static procedure z_GetPerfQueryDataINTEL_ovr_0(queryHandle: PerfQueryHandleINTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; var bytesWritten: UInt32);
-    external 'opengl32.dll' name 'glGetPerfQueryDataINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryDataINTEL(queryHandle: PerfQueryHandleINTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; var bytesWritten: UInt32) :=
+    private z_GetPerfQueryDataINTEL_adr := GetFuncAdr('glGetPerfQueryDataINTEL');
+    private z_GetPerfQueryDataINTEL_ovr_0 := GetFuncOrNil&(z_GetPerfQueryDataINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryDataINTEL(queryHandle: gl_perf_query_handle_INTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; var bytesWritten: UInt32) :=
     z_GetPerfQueryDataINTEL_ovr_0(queryHandle, flags, dataSize, data, bytesWritten);
-    private static procedure z_GetPerfQueryDataINTEL_ovr_1(queryHandle: PerfQueryHandleINTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfQueryDataINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryDataINTEL(queryHandle: PerfQueryHandleINTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr) :=
+    private z_GetPerfQueryDataINTEL_ovr_1 := GetFuncOrNil&(z_GetPerfQueryDataINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryDataINTEL(queryHandle: gl_perf_query_handle_INTEL; flags: PerfQueryDataFlagsINTEL; dataSize: Int32; data: IntPtr; bytesWritten: IntPtr) :=
     z_GetPerfQueryDataINTEL_ovr_1(queryHandle, flags, dataSize, data, bytesWritten);
     
-    private static procedure z_GetPerfQueryIdByNameINTEL_ovr_0(queryName: IntPtr; var queryId: PerfQueryIdINTEL);
-    external 'opengl32.dll' name 'glGetPerfQueryIdByNameINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: string; var queryId: PerfQueryIdINTEL);
+    private z_GetPerfQueryIdByNameINTEL_adr := GetFuncAdr('glGetPerfQueryIdByNameINTEL');
+    private z_GetPerfQueryIdByNameINTEL_ovr_0 := GetFuncOrNil&(z_GetPerfQueryIdByNameINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: string; var queryId: gl_perf_query_id_INTEL);
     begin
       var par_1_str_ptr: IntPtr;
       try
@@ -56219,8 +54985,7 @@ type
         Marshal.FreeHGlobal(par_1_str_ptr);
       end;
     end;
-    private static procedure z_GetPerfQueryIdByNameINTEL_ovr_1(queryName: IntPtr; queryId: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfQueryIdByNameINTEL';
+    private z_GetPerfQueryIdByNameINTEL_ovr_1 := GetFuncOrNil&(z_GetPerfQueryIdByNameINTEL_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: string; queryId: IntPtr);
     begin
       var par_1_str_ptr: IntPtr;
@@ -56231,64 +54996,65 @@ type
         Marshal.FreeHGlobal(par_1_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: IntPtr; var queryId: PerfQueryIdINTEL) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: IntPtr; var queryId: gl_perf_query_id_INTEL) :=
     z_GetPerfQueryIdByNameINTEL_ovr_0(queryName, queryId);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryIdByNameINTEL(queryName: IntPtr; queryId: IntPtr) :=
     z_GetPerfQueryIdByNameINTEL_ovr_1(queryName, queryId);
     
-    private static procedure z_GetPerfQueryInfoINTEL_ovr_0(queryId: PerfQueryIdINTEL; queryNameLength: UInt32; queryName: IntPtr; var dataSize: UInt32; var noCounters: UInt32; var noInstances: UInt32; var capsMask: PerfQueryCapFlagsINTEL);
-    external 'opengl32.dll' name 'glGetPerfQueryInfoINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryInfoINTEL(queryId: PerfQueryIdINTEL; queryNameLength: UInt32; queryName: IntPtr; var dataSize: UInt32; var noCounters: UInt32; var noInstances: UInt32; var capsMask: PerfQueryCapFlagsINTEL) :=
+    private z_GetPerfQueryInfoINTEL_adr := GetFuncAdr('glGetPerfQueryInfoINTEL');
+    private z_GetPerfQueryInfoINTEL_ovr_0 := GetFuncOrNil&(z_GetPerfQueryInfoINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryInfoINTEL(queryId: gl_perf_query_id_INTEL; queryNameLength: UInt32; queryName: IntPtr; var dataSize: UInt32; var noCounters: UInt32; var noInstances: UInt32; var capsMask: PerfQueryCapFlagsINTEL) :=
     z_GetPerfQueryInfoINTEL_ovr_0(queryId, queryNameLength, queryName, dataSize, noCounters, noInstances, capsMask);
-    private static procedure z_GetPerfQueryInfoINTEL_ovr_1(queryId: PerfQueryIdINTEL; queryNameLength: UInt32; queryName: IntPtr; dataSize: IntPtr; noCounters: IntPtr; noInstances: IntPtr; capsMask: IntPtr);
-    external 'opengl32.dll' name 'glGetPerfQueryInfoINTEL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryInfoINTEL(queryId: PerfQueryIdINTEL; queryNameLength: UInt32; queryName: IntPtr; dataSize: IntPtr; noCounters: IntPtr; noInstances: IntPtr; capsMask: IntPtr) :=
+    private z_GetPerfQueryInfoINTEL_ovr_1 := GetFuncOrNil&(z_GetPerfQueryInfoINTEL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPerfQueryInfoINTEL(queryId: gl_perf_query_id_INTEL; queryNameLength: UInt32; queryName: IntPtr; dataSize: IntPtr; noCounters: IntPtr; noInstances: IntPtr; capsMask: IntPtr) :=
     z_GetPerfQueryInfoINTEL_ovr_1(queryId, queryNameLength, queryName, dataSize, noCounters, noInstances, capsMask);
     
   end;
   
   [PCUNotRestore]
-  glBlendEquationAdvancedKHR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendEquationAdvancedKHR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'KHR_blend_equation_advanced';
     
-    private static procedure z_BlendBarrierKHR_ovr_0;
-    external 'opengl32.dll' name 'glBlendBarrierKHR';
+    private z_BlendBarrierKHR_adr := GetFuncAdr('glBlendBarrierKHR');
+    private z_BlendBarrierKHR_ovr_0 := GetFuncOrNil&(z_BlendBarrierKHR_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendBarrierKHR :=
     z_BlendBarrierKHR_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glDebugKHR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDebugKHR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'KHR_debug';
     
-    private static procedure z_DebugMessageControl_ovr_0(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControl';
-    private static procedure z_DebugMessageControl_ovr_0_anh0000010(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControl';
+    private z_DebugMessageControl_adr := GetFuncAdr('glDebugMessageControl');
+    private z_DebugMessageControl_ovr_0 := GetFuncOrNil&(z_DebugMessageControl_adr);
+    private z_DebugMessageControl_ovr_0_anh0000010 := GetFuncOrNil&(z_DebugMessageControl_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControl(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: array of UInt32; enabled: boolean) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DebugMessageControl_ovr_0(source, &type, severity, count, ids[0], enabled) else
       z_DebugMessageControl_ovr_0_anh0000010(source, &type, severity, count, IntPtr.Zero, enabled);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControl(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; var ids: UInt32; enabled: boolean) :=
     z_DebugMessageControl_ovr_0(source, &type, severity, count, ids, enabled);
-    private static procedure z_DebugMessageControl_ovr_2(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean);
-    external 'opengl32.dll' name 'glDebugMessageControl';
+    private z_DebugMessageControl_ovr_2 := GetFuncOrNil&(z_DebugMessageControl_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageControl(source: DebugSource; &type: DebugType; severity: DebugSeverity; count: Int32; ids: IntPtr; enabled: boolean) :=
     z_DebugMessageControl_ovr_2(source, &type, severity, count, ids, enabled);
     
-    private static procedure z_DebugMessageInsert_ovr_0(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageInsert';
+    private z_DebugMessageInsert_adr := GetFuncAdr('glDebugMessageInsert');
+    private z_DebugMessageInsert_ovr_0 := GetFuncOrNil&(z_DebugMessageInsert_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsert(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: string);
     begin
       var par_6_str_ptr: IntPtr;
@@ -56302,22 +55068,21 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageInsert(source: DebugSource; &type: DebugType; id: UInt32; severity: DebugSeverity; length: Int32; buf: IntPtr) :=
     z_DebugMessageInsert_ovr_0(source, &type, id, severity, length, buf);
     
-    private static procedure z_DebugMessageCallback_ovr_0(callback: GLDEBUGPROC; userParam: IntPtr);
-    external 'opengl32.dll' name 'glDebugMessageCallback';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallback(callback: GLDEBUGPROC; userParam: IntPtr) :=
+    private z_DebugMessageCallback_adr := GetFuncAdr('glDebugMessageCallback');
+    private z_DebugMessageCallback_ovr_0 := GetFuncOrNil&(z_DebugMessageCallback_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DebugMessageCallback(callback: GL_DEBUG_PROC; userParam: IntPtr) :=
     z_DebugMessageCallback_ovr_0(callback, userParam);
     
-    private static function z_GetDebugMessageLog_ovr_0(count: UInt32; bufSize: Int32; var sources: DebugSource; var types: DebugType; var ids: UInt32; var severities: DebugSeverity; var lengths: Int32; messageLog: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLog';
+    private z_GetDebugMessageLog_adr := GetFuncAdr('glGetDebugMessageLog');
+    private z_GetDebugMessageLog_ovr_0 := GetFuncOrNil&(z_GetDebugMessageLog_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLog(count: UInt32; bufSize: Int32; var sources: DebugSource; var types: DebugType; var ids: UInt32; var severities: DebugSeverity; var lengths: Int32; messageLog: IntPtr): UInt32 :=
     z_GetDebugMessageLog_ovr_0(count, bufSize, sources, types, ids, severities, lengths, messageLog);
-    private static function z_GetDebugMessageLog_ovr_1(count: UInt32; bufSize: Int32; sources: IntPtr; types: IntPtr; ids: IntPtr; severities: IntPtr; lengths: IntPtr; messageLog: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glGetDebugMessageLog';
+    private z_GetDebugMessageLog_ovr_1 := GetFuncOrNil&(z_GetDebugMessageLog_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDebugMessageLog(count: UInt32; bufSize: Int32; sources: IntPtr; types: IntPtr; ids: IntPtr; severities: IntPtr; lengths: IntPtr; messageLog: IntPtr): UInt32 :=
     z_GetDebugMessageLog_ovr_1(count, bufSize, sources, types, ids, severities, lengths, messageLog);
     
-    private static procedure z_PushDebugGroup_ovr_0(source: DebugSource; id: UInt32; length: Int32; message: IntPtr);
-    external 'opengl32.dll' name 'glPushDebugGroup';
+    private z_PushDebugGroup_adr := GetFuncAdr('glPushDebugGroup');
+    private z_PushDebugGroup_ovr_0 := GetFuncOrNil&(z_PushDebugGroup_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushDebugGroup(source: DebugSource; id: UInt32; length: Int32; message: string);
     begin
       var par_4_str_ptr: IntPtr;
@@ -56331,13 +55096,13 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PushDebugGroup(source: DebugSource; id: UInt32; length: Int32; message: IntPtr) :=
     z_PushDebugGroup_ovr_0(source, id, length, message);
     
-    private static procedure z_PopDebugGroup_ovr_0;
-    external 'opengl32.dll' name 'glPopDebugGroup';
+    private z_PopDebugGroup_adr := GetFuncAdr('glPopDebugGroup');
+    private z_PopDebugGroup_ovr_0 := GetFuncOrNil&(z_PopDebugGroup_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PopDebugGroup :=
     z_PopDebugGroup_ovr_0;
     
-    private static procedure z_ObjectLabel_ovr_0(identifier: ObjectIdentifier; name: UInt32; length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glObjectLabel';
+    private z_ObjectLabel_adr := GetFuncAdr('glObjectLabel');
+    private z_ObjectLabel_ovr_0 := GetFuncOrNil&(z_ObjectLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ObjectLabel(identifier: ObjectIdentifier; name: UInt32; length: Int32; &label: string);
     begin
       var par_4_str_ptr: IntPtr;
@@ -56351,23 +55116,16 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ObjectLabel(identifier: ObjectIdentifier; name: UInt32; length: Int32; &label: IntPtr) :=
     z_ObjectLabel_ovr_0(identifier, name, length, &label);
     
-    private static procedure z_GetObjectLabel_ovr_0(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; var length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabel';
-    private static procedure z_GetObjectLabel_ovr_0_anh000010(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabel';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: array of Int32; &label: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetObjectLabel_ovr_0(identifier, name, bufSize, length[0], &label) else
-      z_GetObjectLabel_ovr_0_anh000010(identifier, name, bufSize, IntPtr.Zero, &label);
+    private z_GetObjectLabel_adr := GetFuncAdr('glGetObjectLabel');
+    private z_GetObjectLabel_ovr_0 := GetFuncOrNil&(z_GetObjectLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; var length: Int32; &label: IntPtr) :=
     z_GetObjectLabel_ovr_0(identifier, name, bufSize, length, &label);
-    private static procedure z_GetObjectLabel_ovr_2(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectLabel';
+    private z_GetObjectLabel_ovr_1 := GetFuncOrNil&(z_GetObjectLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectLabel(identifier: ObjectIdentifier; name: UInt32; bufSize: Int32; length: IntPtr; &label: IntPtr) :=
-    z_GetObjectLabel_ovr_2(identifier, name, bufSize, length, &label);
+    z_GetObjectLabel_ovr_1(identifier, name, bufSize, length, &label);
     
-    private static procedure z_ObjectPtrLabel_ovr_0(ptr: IntPtr; length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glObjectPtrLabel';
+    private z_ObjectPtrLabel_adr := GetFuncAdr('glObjectPtrLabel');
+    private z_ObjectPtrLabel_ovr_0 := GetFuncOrNil&(z_ObjectPtrLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ObjectPtrLabel(ptr: IntPtr; length: Int32; &label: string);
     begin
       var par_3_str_ptr: IntPtr;
@@ -56381,723 +55139,694 @@ type
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ObjectPtrLabel(ptr: IntPtr; length: Int32; &label: IntPtr) :=
     z_ObjectPtrLabel_ovr_0(ptr, length, &label);
     
-    private static procedure z_GetObjectPtrLabel_ovr_0(ptr: IntPtr; bufSize: Int32; var length: Int32; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectPtrLabel';
-    private static procedure z_GetObjectPtrLabel_ovr_0_anh00010(ptr: IntPtr; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectPtrLabel';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; length: array of Int32; &label: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetObjectPtrLabel_ovr_0(ptr, bufSize, length[0], &label) else
-      z_GetObjectPtrLabel_ovr_0_anh00010(ptr, bufSize, IntPtr.Zero, &label);
+    private z_GetObjectPtrLabel_adr := GetFuncAdr('glGetObjectPtrLabel');
+    private z_GetObjectPtrLabel_ovr_0 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; var length: Int32; &label: IntPtr) :=
     z_GetObjectPtrLabel_ovr_0(ptr, bufSize, length, &label);
-    private static procedure z_GetObjectPtrLabel_ovr_2(ptr: IntPtr; bufSize: Int32; length: IntPtr; &label: IntPtr);
-    external 'opengl32.dll' name 'glGetObjectPtrLabel';
+    private z_GetObjectPtrLabel_ovr_1 := GetFuncOrNil&(z_GetObjectPtrLabel_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetObjectPtrLabel(ptr: IntPtr; bufSize: Int32; length: IntPtr; &label: IntPtr) :=
-    z_GetObjectPtrLabel_ovr_2(ptr, bufSize, length, &label);
+    z_GetObjectPtrLabel_ovr_1(ptr, bufSize, length, &label);
     
-    private static procedure z_GetPointerv_ovr_0(pname: GetPointervPName; var ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointerv';
-    private static procedure z_GetPointerv_ovr_0_anh001(pname: GetPointervPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPointerv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: array of IntPtr) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetPointerv_ovr_0(pname, ¶ms[0]) else
-      z_GetPointerv_ovr_0_anh001(pname, IntPtr.Zero);
+    private z_GetPointerv_adr := GetFuncAdr('glGetPointerv');
+    private z_GetPointerv_ovr_0 := GetFuncOrNil&(z_GetPointerv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; var ¶ms: IntPtr) :=
     z_GetPointerv_ovr_0(pname, ¶ms);
-    private static procedure z_GetPointerv_ovr_2(pname: GetPointervPName; ¶ms: pointer);
-    external 'opengl32.dll' name 'glGetPointerv';
+    private z_GetPointerv_ovr_1 := GetFuncOrNil&(z_GetPointerv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPointerv(pname: GetPointervPName; ¶ms: pointer) :=
-    z_GetPointerv_ovr_2(pname, ¶ms);
+    z_GetPointerv_ovr_1(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glRobustnessKHR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glRobustnessKHR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'KHR_robustness';
     
-    private static function z_GetGraphicsResetStatus_ovr_0: GraphicsResetStatus;
-    external 'opengl32.dll' name 'glGetGraphicsResetStatus';
+    private z_GetGraphicsResetStatus_adr := GetFuncAdr('glGetGraphicsResetStatus');
+    private z_GetGraphicsResetStatus_ovr_0 := GetFuncOrNil&(z_GetGraphicsResetStatus_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGraphicsResetStatus: GraphicsResetStatus :=
     z_GetGraphicsResetStatus_ovr_0;
     
-    private static procedure z_ReadnPixels_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; data: IntPtr);
-    external 'opengl32.dll' name 'glReadnPixels';
+    private z_ReadnPixels_adr := GetFuncAdr('glReadnPixels');
+    private z_ReadnPixels_ovr_0 := GetFuncOrNil&(z_ReadnPixels_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReadnPixels(x: Int32; y: Int32; width: Int32; height: Int32; format: PixelFormat; &type: PixelType; bufSize: Int32; data: IntPtr) :=
     z_ReadnPixels_ovr_0(x, y, width, height, format, &type, bufSize, data);
     
-    private static procedure z_GetnUniformfv_ovr_0(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetnUniformfv';
-    private static procedure z_GetnUniformfv_ovr_0_anh00001(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of single) :=
+    private z_GetnUniformfv_adr := GetFuncAdr('glGetnUniformfv');
+    private z_GetnUniformfv_ovr_0 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    private z_GetnUniformfv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformfv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformfv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: single) :=
     z_GetnUniformfv_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformfv_ovr_2(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformfv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformfv_ovr_2 := GetFuncOrNil&(z_GetnUniformfv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformfv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformfv_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformiv_ovr_0(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetnUniformiv';
-    private static procedure z_GetnUniformiv_ovr_0_anh00001(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
+    private z_GetnUniformiv_adr := GetFuncAdr('glGetnUniformiv');
+    private z_GetnUniformiv_ovr_0 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    private z_GetnUniformiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformiv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformiv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: Int32) :=
     z_GetnUniformiv_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformiv_ovr_2(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformiv_ovr_2 := GetFuncOrNil&(z_GetnUniformiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformiv_ovr_2(&program, location, bufSize, ¶ms);
     
-    private static procedure z_GetnUniformuiv_ovr_0(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetnUniformuiv';
-    private static procedure z_GetnUniformuiv_ovr_0_anh00001(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
+    private z_GetnUniformuiv_adr := GetFuncAdr('glGetnUniformuiv');
+    private z_GetnUniformuiv_ovr_0 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    private z_GetnUniformuiv_ovr_0_anh00001 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetnUniformuiv_ovr_0(&program, location, bufSize, ¶ms[0]) else
       z_GetnUniformuiv_ovr_0_anh00001(&program, location, bufSize, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; var ¶ms: UInt32) :=
     z_GetnUniformuiv_ovr_0(&program, location, bufSize, ¶ms);
-    private static procedure z_GetnUniformuiv_ovr_2(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetnUniformuiv';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: ProgramName; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
+    private z_GetnUniformuiv_ovr_2 := GetFuncOrNil&(z_GetnUniformuiv_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetnUniformuiv(&program: gl_program; location: Int32; bufSize: Int32; ¶ms: IntPtr) :=
     z_GetnUniformuiv_ovr_2(&program, location, bufSize, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glParallelShaderCompileKHR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glParallelShaderCompileKHR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'KHR_parallel_shader_compile';
     
-    private static procedure z_MaxShaderCompilerThreadsKHR_ovr_0(count: UInt32);
-    external 'opengl32.dll' name 'glMaxShaderCompilerThreadsKHR';
+    private z_MaxShaderCompilerThreadsKHR_adr := GetFuncAdr('glMaxShaderCompilerThreadsKHR');
+    private z_MaxShaderCompilerThreadsKHR_ovr_0 := GetFuncOrNil&(z_MaxShaderCompilerThreadsKHR_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaxShaderCompilerThreadsKHR(count: UInt32) :=
     z_MaxShaderCompilerThreadsKHR_ovr_0(count);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferFlipYMESA = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferFlipYMESA = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'MESA_framebuffer_flip_y';
     
-    private static procedure z_FramebufferParameteriMESA_ovr_0(target: FramebufferTarget; pname: FramebufferParameterName; param: Int32);
-    external 'opengl32.dll' name 'glFramebufferParameteriMESA';
+    private z_FramebufferParameteriMESA_adr := GetFuncAdr('glFramebufferParameteriMESA');
+    private z_FramebufferParameteriMESA_ovr_0 := GetFuncOrNil&(z_FramebufferParameteriMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferParameteriMESA(target: FramebufferTarget; pname: FramebufferParameterName; param: Int32) :=
     z_FramebufferParameteriMESA_ovr_0(target, pname, param);
     
-    private static procedure z_GetFramebufferParameterivMESA_ovr_0(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivMESA';
-    private static procedure z_GetFramebufferParameterivMESA_ovr_0_anh0001(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivMESA';
+    private z_GetFramebufferParameterivMESA_adr := GetFuncAdr('glGetFramebufferParameterivMESA');
+    private z_GetFramebufferParameterivMESA_ovr_0 := GetFuncOrNil&(z_GetFramebufferParameterivMESA_adr);
+    private z_GetFramebufferParameterivMESA_ovr_0_anh0001 := GetFuncOrNil&(z_GetFramebufferParameterivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivMESA(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFramebufferParameterivMESA_ovr_0(target, pname, ¶ms[0]) else
       z_GetFramebufferParameterivMESA_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivMESA(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; var ¶ms: Int32) :=
     z_GetFramebufferParameterivMESA_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetFramebufferParameterivMESA_ovr_2(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFramebufferParameterivMESA';
+    private z_GetFramebufferParameterivMESA_ovr_2 := GetFuncOrNil&(z_GetFramebufferParameterivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFramebufferParameterivMESA(target: FramebufferTarget; pname: FramebufferAttachmentParameterName; ¶ms: IntPtr) :=
     z_GetFramebufferParameterivMESA_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glResizeBuffersMESA = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glResizeBuffersMESA = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'MESA_resize_buffers';
     
-    private static procedure z_ResizeBuffersMESA_ovr_0;
-    external 'opengl32.dll' name 'glResizeBuffersMESA';
+    private z_ResizeBuffersMESA_adr := GetFuncAdr('glResizeBuffersMESA');
+    private z_ResizeBuffersMESA_ovr_0 := GetFuncOrNil&(z_ResizeBuffersMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResizeBuffersMESA :=
     z_ResizeBuffersMESA_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glWindowPosMESA = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glWindowPosMESA = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'MESA_window_pos';
     
-    private static procedure z_WindowPos2dMESA_ovr_0(x: real; y: real);
-    external 'opengl32.dll' name 'glWindowPos2dMESA';
+    private z_WindowPos2dMESA_adr := GetFuncAdr('glWindowPos2dMESA');
+    private z_WindowPos2dMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2dMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dMESA(x: real; y: real) :=
     z_WindowPos2dMESA_ovr_0(x, y);
     
-    private static procedure z_WindowPos2dvMESA_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glWindowPos2dvMESA';
-    private static procedure z_WindowPos2dvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2dvMESA';
+    private z_WindowPos2dvMESA_adr := GetFuncAdr('glWindowPos2dvMESA');
+    private z_WindowPos2dvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2dvMESA_adr);
+    private z_WindowPos2dvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvMESA(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2dvMESA_ovr_0(v[0]) else
       z_WindowPos2dvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvMESA(var v: real) :=
     z_WindowPos2dvMESA_ovr_0(v);
-    private static procedure z_WindowPos2dvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2dvMESA';
+    private z_WindowPos2dvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos2dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2dvMESA(v: IntPtr) :=
     z_WindowPos2dvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos2fMESA_ovr_0(x: single; y: single);
-    external 'opengl32.dll' name 'glWindowPos2fMESA';
+    private z_WindowPos2fMESA_adr := GetFuncAdr('glWindowPos2fMESA');
+    private z_WindowPos2fMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2fMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fMESA(x: single; y: single) :=
     z_WindowPos2fMESA_ovr_0(x, y);
     
-    private static procedure z_WindowPos2fvMESA_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glWindowPos2fvMESA';
-    private static procedure z_WindowPos2fvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2fvMESA';
+    private z_WindowPos2fvMESA_adr := GetFuncAdr('glWindowPos2fvMESA');
+    private z_WindowPos2fvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2fvMESA_adr);
+    private z_WindowPos2fvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvMESA(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2fvMESA_ovr_0(v[0]) else
       z_WindowPos2fvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvMESA(var v: single) :=
     z_WindowPos2fvMESA_ovr_0(v);
-    private static procedure z_WindowPos2fvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2fvMESA';
+    private z_WindowPos2fvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos2fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2fvMESA(v: IntPtr) :=
     z_WindowPos2fvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos2iMESA_ovr_0(x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glWindowPos2iMESA';
+    private z_WindowPos2iMESA_adr := GetFuncAdr('glWindowPos2iMESA');
+    private z_WindowPos2iMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2iMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2iMESA(x: Int32; y: Int32) :=
     z_WindowPos2iMESA_ovr_0(x, y);
     
-    private static procedure z_WindowPos2ivMESA_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glWindowPos2ivMESA';
-    private static procedure z_WindowPos2ivMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2ivMESA';
+    private z_WindowPos2ivMESA_adr := GetFuncAdr('glWindowPos2ivMESA');
+    private z_WindowPos2ivMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2ivMESA_adr);
+    private z_WindowPos2ivMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivMESA(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2ivMESA_ovr_0(v[0]) else
       z_WindowPos2ivMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivMESA(var v: Int32) :=
     z_WindowPos2ivMESA_ovr_0(v);
-    private static procedure z_WindowPos2ivMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2ivMESA';
+    private z_WindowPos2ivMESA_ovr_2 := GetFuncOrNil&(z_WindowPos2ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2ivMESA(v: IntPtr) :=
     z_WindowPos2ivMESA_ovr_2(v);
     
-    private static procedure z_WindowPos2sMESA_ovr_0(x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glWindowPos2sMESA';
+    private z_WindowPos2sMESA_adr := GetFuncAdr('glWindowPos2sMESA');
+    private z_WindowPos2sMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2sMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2sMESA(x: Int16; y: Int16) :=
     z_WindowPos2sMESA_ovr_0(x, y);
     
-    private static procedure z_WindowPos2svMESA_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glWindowPos2svMESA';
-    private static procedure z_WindowPos2svMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2svMESA';
+    private z_WindowPos2svMESA_adr := GetFuncAdr('glWindowPos2svMESA');
+    private z_WindowPos2svMESA_ovr_0 := GetFuncOrNil&(z_WindowPos2svMESA_adr);
+    private z_WindowPos2svMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos2svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svMESA(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos2svMESA_ovr_0(v[0]) else
       z_WindowPos2svMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svMESA(var v: Int16) :=
     z_WindowPos2svMESA_ovr_0(v);
-    private static procedure z_WindowPos2svMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos2svMESA';
+    private z_WindowPos2svMESA_ovr_2 := GetFuncOrNil&(z_WindowPos2svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos2svMESA(v: IntPtr) :=
     z_WindowPos2svMESA_ovr_2(v);
     
-    private static procedure z_WindowPos3dMESA_ovr_0(x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glWindowPos3dMESA';
+    private z_WindowPos3dMESA_adr := GetFuncAdr('glWindowPos3dMESA');
+    private z_WindowPos3dMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3dMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dMESA(x: real; y: real; z: real) :=
     z_WindowPos3dMESA_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3dvMESA_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glWindowPos3dvMESA';
-    private static procedure z_WindowPos3dvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3dvMESA';
+    private z_WindowPos3dvMESA_adr := GetFuncAdr('glWindowPos3dvMESA');
+    private z_WindowPos3dvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3dvMESA_adr);
+    private z_WindowPos3dvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvMESA(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3dvMESA_ovr_0(v[0]) else
       z_WindowPos3dvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvMESA(var v: real) :=
     z_WindowPos3dvMESA_ovr_0(v);
-    private static procedure z_WindowPos3dvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3dvMESA';
+    private z_WindowPos3dvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos3dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3dvMESA(v: IntPtr) :=
     z_WindowPos3dvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos3fMESA_ovr_0(x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glWindowPos3fMESA';
+    private z_WindowPos3fMESA_adr := GetFuncAdr('glWindowPos3fMESA');
+    private z_WindowPos3fMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3fMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fMESA(x: single; y: single; z: single) :=
     z_WindowPos3fMESA_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3fvMESA_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glWindowPos3fvMESA';
-    private static procedure z_WindowPos3fvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3fvMESA';
+    private z_WindowPos3fvMESA_adr := GetFuncAdr('glWindowPos3fvMESA');
+    private z_WindowPos3fvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3fvMESA_adr);
+    private z_WindowPos3fvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvMESA(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3fvMESA_ovr_0(v[0]) else
       z_WindowPos3fvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvMESA(var v: single) :=
     z_WindowPos3fvMESA_ovr_0(v);
-    private static procedure z_WindowPos3fvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3fvMESA';
+    private z_WindowPos3fvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos3fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3fvMESA(v: IntPtr) :=
     z_WindowPos3fvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos3iMESA_ovr_0(x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glWindowPos3iMESA';
+    private z_WindowPos3iMESA_adr := GetFuncAdr('glWindowPos3iMESA');
+    private z_WindowPos3iMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3iMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3iMESA(x: Int32; y: Int32; z: Int32) :=
     z_WindowPos3iMESA_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3ivMESA_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glWindowPos3ivMESA';
-    private static procedure z_WindowPos3ivMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3ivMESA';
+    private z_WindowPos3ivMESA_adr := GetFuncAdr('glWindowPos3ivMESA');
+    private z_WindowPos3ivMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3ivMESA_adr);
+    private z_WindowPos3ivMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivMESA(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3ivMESA_ovr_0(v[0]) else
       z_WindowPos3ivMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivMESA(var v: Int32) :=
     z_WindowPos3ivMESA_ovr_0(v);
-    private static procedure z_WindowPos3ivMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3ivMESA';
+    private z_WindowPos3ivMESA_ovr_2 := GetFuncOrNil&(z_WindowPos3ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3ivMESA(v: IntPtr) :=
     z_WindowPos3ivMESA_ovr_2(v);
     
-    private static procedure z_WindowPos3sMESA_ovr_0(x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glWindowPos3sMESA';
+    private z_WindowPos3sMESA_adr := GetFuncAdr('glWindowPos3sMESA');
+    private z_WindowPos3sMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3sMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3sMESA(x: Int16; y: Int16; z: Int16) :=
     z_WindowPos3sMESA_ovr_0(x, y, z);
     
-    private static procedure z_WindowPos3svMESA_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glWindowPos3svMESA';
-    private static procedure z_WindowPos3svMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3svMESA';
+    private z_WindowPos3svMESA_adr := GetFuncAdr('glWindowPos3svMESA');
+    private z_WindowPos3svMESA_ovr_0 := GetFuncOrNil&(z_WindowPos3svMESA_adr);
+    private z_WindowPos3svMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos3svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svMESA(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos3svMESA_ovr_0(v[0]) else
       z_WindowPos3svMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svMESA(var v: Int16) :=
     z_WindowPos3svMESA_ovr_0(v);
-    private static procedure z_WindowPos3svMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos3svMESA';
+    private z_WindowPos3svMESA_ovr_2 := GetFuncOrNil&(z_WindowPos3svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos3svMESA(v: IntPtr) :=
     z_WindowPos3svMESA_ovr_2(v);
     
-    private static procedure z_WindowPos4dMESA_ovr_0(x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glWindowPos4dMESA';
+    private z_WindowPos4dMESA_adr := GetFuncAdr('glWindowPos4dMESA');
+    private z_WindowPos4dMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4dMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4dMESA(x: real; y: real; z: real; w: real) :=
     z_WindowPos4dMESA_ovr_0(x, y, z, w);
     
-    private static procedure z_WindowPos4dvMESA_ovr_0(var v: real);
-    external 'opengl32.dll' name 'glWindowPos4dvMESA';
-    private static procedure z_WindowPos4dvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4dvMESA';
+    private z_WindowPos4dvMESA_adr := GetFuncAdr('glWindowPos4dvMESA');
+    private z_WindowPos4dvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4dvMESA_adr);
+    private z_WindowPos4dvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos4dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4dvMESA(v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos4dvMESA_ovr_0(v[0]) else
       z_WindowPos4dvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4dvMESA(var v: real) :=
     z_WindowPos4dvMESA_ovr_0(v);
-    private static procedure z_WindowPos4dvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4dvMESA';
+    private z_WindowPos4dvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos4dvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4dvMESA(v: IntPtr) :=
     z_WindowPos4dvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos4fMESA_ovr_0(x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glWindowPos4fMESA';
+    private z_WindowPos4fMESA_adr := GetFuncAdr('glWindowPos4fMESA');
+    private z_WindowPos4fMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4fMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4fMESA(x: single; y: single; z: single; w: single) :=
     z_WindowPos4fMESA_ovr_0(x, y, z, w);
     
-    private static procedure z_WindowPos4fvMESA_ovr_0(var v: single);
-    external 'opengl32.dll' name 'glWindowPos4fvMESA';
-    private static procedure z_WindowPos4fvMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4fvMESA';
+    private z_WindowPos4fvMESA_adr := GetFuncAdr('glWindowPos4fvMESA');
+    private z_WindowPos4fvMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4fvMESA_adr);
+    private z_WindowPos4fvMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos4fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4fvMESA(v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos4fvMESA_ovr_0(v[0]) else
       z_WindowPos4fvMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4fvMESA(var v: single) :=
     z_WindowPos4fvMESA_ovr_0(v);
-    private static procedure z_WindowPos4fvMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4fvMESA';
+    private z_WindowPos4fvMESA_ovr_2 := GetFuncOrNil&(z_WindowPos4fvMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4fvMESA(v: IntPtr) :=
     z_WindowPos4fvMESA_ovr_2(v);
     
-    private static procedure z_WindowPos4iMESA_ovr_0(x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glWindowPos4iMESA';
+    private z_WindowPos4iMESA_adr := GetFuncAdr('glWindowPos4iMESA');
+    private z_WindowPos4iMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4iMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4iMESA(x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_WindowPos4iMESA_ovr_0(x, y, z, w);
     
-    private static procedure z_WindowPos4ivMESA_ovr_0(var v: Int32);
-    external 'opengl32.dll' name 'glWindowPos4ivMESA';
-    private static procedure z_WindowPos4ivMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4ivMESA';
+    private z_WindowPos4ivMESA_adr := GetFuncAdr('glWindowPos4ivMESA');
+    private z_WindowPos4ivMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4ivMESA_adr);
+    private z_WindowPos4ivMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos4ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4ivMESA(v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos4ivMESA_ovr_0(v[0]) else
       z_WindowPos4ivMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4ivMESA(var v: Int32) :=
     z_WindowPos4ivMESA_ovr_0(v);
-    private static procedure z_WindowPos4ivMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4ivMESA';
+    private z_WindowPos4ivMESA_ovr_2 := GetFuncOrNil&(z_WindowPos4ivMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4ivMESA(v: IntPtr) :=
     z_WindowPos4ivMESA_ovr_2(v);
     
-    private static procedure z_WindowPos4sMESA_ovr_0(x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glWindowPos4sMESA';
+    private z_WindowPos4sMESA_adr := GetFuncAdr('glWindowPos4sMESA');
+    private z_WindowPos4sMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4sMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4sMESA(x: Int16; y: Int16; z: Int16; w: Int16) :=
     z_WindowPos4sMESA_ovr_0(x, y, z, w);
     
-    private static procedure z_WindowPos4svMESA_ovr_0(var v: Int16);
-    external 'opengl32.dll' name 'glWindowPos4svMESA';
-    private static procedure z_WindowPos4svMESA_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4svMESA';
+    private z_WindowPos4svMESA_adr := GetFuncAdr('glWindowPos4svMESA');
+    private z_WindowPos4svMESA_ovr_0 := GetFuncOrNil&(z_WindowPos4svMESA_adr);
+    private z_WindowPos4svMESA_ovr_0_anh01 := GetFuncOrNil&(z_WindowPos4svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4svMESA(v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_WindowPos4svMESA_ovr_0(v[0]) else
       z_WindowPos4svMESA_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4svMESA(var v: Int16) :=
     z_WindowPos4svMESA_ovr_0(v);
-    private static procedure z_WindowPos4svMESA_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glWindowPos4svMESA';
+    private z_WindowPos4svMESA_ovr_2 := GetFuncOrNil&(z_WindowPos4svMESA_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WindowPos4svMESA(v: IntPtr) :=
     z_WindowPos4svMESA_ovr_2(v);
     
   end;
   
   [PCUNotRestore]
-  glConditionalRenderNVX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConditionalRenderNVX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NVX_conditional_render';
     
-    private static procedure z_BeginConditionalRenderNVX_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glBeginConditionalRenderNVX';
+    private z_BeginConditionalRenderNVX_adr := GetFuncAdr('glBeginConditionalRenderNVX');
+    private z_BeginConditionalRenderNVX_ovr_0 := GetFuncOrNil&(z_BeginConditionalRenderNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginConditionalRenderNVX(id: UInt32) :=
     z_BeginConditionalRenderNVX_ovr_0(id);
     
-    private static procedure z_EndConditionalRenderNVX_ovr_0;
-    external 'opengl32.dll' name 'glEndConditionalRenderNVX';
+    private z_EndConditionalRenderNVX_adr := GetFuncAdr('glEndConditionalRenderNVX');
+    private z_EndConditionalRenderNVX_ovr_0 := GetFuncOrNil&(z_EndConditionalRenderNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndConditionalRenderNVX :=
     z_EndConditionalRenderNVX_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glLinkedGpuMulticastNVX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glLinkedGpuMulticastNVX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NVX_linked_gpu_multicast';
     
-    private static procedure z_LGPUNamedBufferSubDataNVX_ovr_0(gpuMask: DummyFlags; buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glLGPUNamedBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LGPUNamedBufferSubDataNVX(gpuMask: DummyFlags; buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_LGPUNamedBufferSubDataNVX_adr := GetFuncAdr('glLGPUNamedBufferSubDataNVX');
+    private z_LGPUNamedBufferSubDataNVX_ovr_0 := GetFuncOrNil&(z_LGPUNamedBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LGPUNamedBufferSubDataNVX(gpuMask: DummyFlags; buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_LGPUNamedBufferSubDataNVX_ovr_0(gpuMask, buffer, offset, size, data);
     
-    private static procedure z_LGPUCopyImageSubDataNVX_ovr_0(sourceGpu: UInt32; destinationGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srxY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glLGPUCopyImageSubDataNVX';
+    private z_LGPUCopyImageSubDataNVX_adr := GetFuncAdr('glLGPUCopyImageSubDataNVX');
+    private z_LGPUCopyImageSubDataNVX_ovr_0 := GetFuncOrNil&(z_LGPUCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LGPUCopyImageSubDataNVX(sourceGpu: UInt32; destinationGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srxY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32) :=
     z_LGPUCopyImageSubDataNVX_ovr_0(sourceGpu, destinationGpuMask, srcName, srcTarget, srcLevel, srcX, srxY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, width, height, depth);
     
-    private static procedure z_LGPUInterlockNVX_ovr_0;
-    external 'opengl32.dll' name 'glLGPUInterlockNVX';
+    private z_LGPUInterlockNVX_adr := GetFuncAdr('glLGPUInterlockNVX');
+    private z_LGPUInterlockNVX_ovr_0 := GetFuncOrNil&(z_LGPUInterlockNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LGPUInterlockNVX :=
     z_LGPUInterlockNVX_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glAlphaToCoverageDitherControlNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glAlphaToCoverageDitherControlNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_alpha_to_coverage_dither_control';
     
-    private static procedure z_AlphaToCoverageDitherControlNV_ovr_0(mode: DummyEnum);
-    external 'opengl32.dll' name 'glAlphaToCoverageDitherControlNV';
+    private z_AlphaToCoverageDitherControlNV_adr := GetFuncAdr('glAlphaToCoverageDitherControlNV');
+    private z_AlphaToCoverageDitherControlNV_ovr_0 := GetFuncOrNil&(z_AlphaToCoverageDitherControlNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaToCoverageDitherControlNV(mode: DummyEnum) :=
     z_AlphaToCoverageDitherControlNV_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glBindlessMultiDrawIndirectNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBindlessMultiDrawIndirectNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_bindless_multi_draw_indirect';
     
-    private static procedure z_MultiDrawArraysIndirectBindlessNV_ovr_0(mode: PrimitiveType; indirect: IntPtr; drawCount: Int32; stride: Int32; vertexBufferCount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysIndirectBindlessNV';
+    private z_MultiDrawArraysIndirectBindlessNV_adr := GetFuncAdr('glMultiDrawArraysIndirectBindlessNV');
+    private z_MultiDrawArraysIndirectBindlessNV_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysIndirectBindlessNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysIndirectBindlessNV(mode: PrimitiveType; indirect: IntPtr; drawCount: Int32; stride: Int32; vertexBufferCount: Int32) :=
     z_MultiDrawArraysIndirectBindlessNV_ovr_0(mode, indirect, drawCount, stride, vertexBufferCount);
     
-    private static procedure z_MultiDrawElementsIndirectBindlessNV_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawCount: Int32; stride: Int32; vertexBufferCount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsIndirectBindlessNV';
+    private z_MultiDrawElementsIndirectBindlessNV_adr := GetFuncAdr('glMultiDrawElementsIndirectBindlessNV');
+    private z_MultiDrawElementsIndirectBindlessNV_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsIndirectBindlessNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsIndirectBindlessNV(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawCount: Int32; stride: Int32; vertexBufferCount: Int32) :=
     z_MultiDrawElementsIndirectBindlessNV_ovr_0(mode, &type, indirect, drawCount, stride, vertexBufferCount);
     
   end;
   
   [PCUNotRestore]
-  glBindlessMultiDrawIndirectCountNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBindlessMultiDrawIndirectCountNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_bindless_multi_draw_indirect_count';
     
-    private static procedure z_MultiDrawArraysIndirectBindlessCountNV_ovr_0(mode: PrimitiveType; indirect: IntPtr; drawCount: Int32; maxDrawCount: Int32; stride: Int32; vertexBufferCount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawArraysIndirectBindlessCountNV';
+    private z_MultiDrawArraysIndirectBindlessCountNV_adr := GetFuncAdr('glMultiDrawArraysIndirectBindlessCountNV');
+    private z_MultiDrawArraysIndirectBindlessCountNV_ovr_0 := GetFuncOrNil&(z_MultiDrawArraysIndirectBindlessCountNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawArraysIndirectBindlessCountNV(mode: PrimitiveType; indirect: IntPtr; drawCount: Int32; maxDrawCount: Int32; stride: Int32; vertexBufferCount: Int32) :=
     z_MultiDrawArraysIndirectBindlessCountNV_ovr_0(mode, indirect, drawCount, maxDrawCount, stride, vertexBufferCount);
     
-    private static procedure z_MultiDrawElementsIndirectBindlessCountNV_ovr_0(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawCount: Int32; maxDrawCount: Int32; stride: Int32; vertexBufferCount: Int32);
-    external 'opengl32.dll' name 'glMultiDrawElementsIndirectBindlessCountNV';
+    private z_MultiDrawElementsIndirectBindlessCountNV_adr := GetFuncAdr('glMultiDrawElementsIndirectBindlessCountNV');
+    private z_MultiDrawElementsIndirectBindlessCountNV_ovr_0 := GetFuncOrNil&(z_MultiDrawElementsIndirectBindlessCountNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawElementsIndirectBindlessCountNV(mode: PrimitiveType; &type: DrawElementsType; indirect: IntPtr; drawCount: Int32; maxDrawCount: Int32; stride: Int32; vertexBufferCount: Int32) :=
     z_MultiDrawElementsIndirectBindlessCountNV_ovr_0(mode, &type, indirect, drawCount, maxDrawCount, stride, vertexBufferCount);
     
   end;
   
   [PCUNotRestore]
-  glBindlessTextureNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBindlessTextureNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_bindless_texture';
     
-    private static function z_GetTextureHandleNV_ovr_0(texture: UInt32): UInt64;
-    external 'opengl32.dll' name 'glGetTextureHandleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureHandleNV(texture: UInt32): UInt64 :=
+    private z_GetTextureHandleNV_adr := GetFuncAdr('glGetTextureHandleNV');
+    private z_GetTextureHandleNV_ovr_0 := GetFuncOrNil&(z_GetTextureHandleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureHandleNV(texture: gl_texture): UInt64 :=
     z_GetTextureHandleNV_ovr_0(texture);
     
-    private static function z_GetTextureSamplerHandleNV_ovr_0(texture: UInt32; sampler: UInt32): UInt64;
-    external 'opengl32.dll' name 'glGetTextureSamplerHandleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureSamplerHandleNV(texture: UInt32; sampler: UInt32): UInt64 :=
+    private z_GetTextureSamplerHandleNV_adr := GetFuncAdr('glGetTextureSamplerHandleNV');
+    private z_GetTextureSamplerHandleNV_ovr_0 := GetFuncOrNil&(z_GetTextureSamplerHandleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTextureSamplerHandleNV(texture: gl_texture; sampler: gl_sampler): UInt64 :=
     z_GetTextureSamplerHandleNV_ovr_0(texture, sampler);
     
-    private static procedure z_MakeTextureHandleResidentNV_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeTextureHandleResidentNV';
+    private z_MakeTextureHandleResidentNV_adr := GetFuncAdr('glMakeTextureHandleResidentNV');
+    private z_MakeTextureHandleResidentNV_ovr_0 := GetFuncOrNil&(z_MakeTextureHandleResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeTextureHandleResidentNV(handle: UInt64) :=
     z_MakeTextureHandleResidentNV_ovr_0(handle);
     
-    private static procedure z_MakeTextureHandleNonResidentNV_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeTextureHandleNonResidentNV';
+    private z_MakeTextureHandleNonResidentNV_adr := GetFuncAdr('glMakeTextureHandleNonResidentNV');
+    private z_MakeTextureHandleNonResidentNV_ovr_0 := GetFuncOrNil&(z_MakeTextureHandleNonResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeTextureHandleNonResidentNV(handle: UInt64) :=
     z_MakeTextureHandleNonResidentNV_ovr_0(handle);
     
-    private static function z_GetImageHandleNV_ovr_0(texture: UInt32; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64;
-    external 'opengl32.dll' name 'glGetImageHandleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetImageHandleNV(texture: UInt32; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64 :=
+    private z_GetImageHandleNV_adr := GetFuncAdr('glGetImageHandleNV');
+    private z_GetImageHandleNV_ovr_0 := GetFuncOrNil&(z_GetImageHandleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetImageHandleNV(texture: gl_texture; level: Int32; layered: boolean; layer: Int32; format: PixelFormat): UInt64 :=
     z_GetImageHandleNV_ovr_0(texture, level, layered, layer, format);
     
-    private static procedure z_MakeImageHandleResidentNV_ovr_0(handle: UInt64; access: DummyEnum);
-    external 'opengl32.dll' name 'glMakeImageHandleResidentNV';
+    private z_MakeImageHandleResidentNV_adr := GetFuncAdr('glMakeImageHandleResidentNV');
+    private z_MakeImageHandleResidentNV_ovr_0 := GetFuncOrNil&(z_MakeImageHandleResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeImageHandleResidentNV(handle: UInt64; access: DummyEnum) :=
     z_MakeImageHandleResidentNV_ovr_0(handle, access);
     
-    private static procedure z_MakeImageHandleNonResidentNV_ovr_0(handle: UInt64);
-    external 'opengl32.dll' name 'glMakeImageHandleNonResidentNV';
+    private z_MakeImageHandleNonResidentNV_adr := GetFuncAdr('glMakeImageHandleNonResidentNV');
+    private z_MakeImageHandleNonResidentNV_ovr_0 := GetFuncOrNil&(z_MakeImageHandleNonResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeImageHandleNonResidentNV(handle: UInt64) :=
     z_MakeImageHandleNonResidentNV_ovr_0(handle);
     
-    private static procedure z_UniformHandleui64NV_ovr_0(location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glUniformHandleui64NV';
+    private z_UniformHandleui64NV_adr := GetFuncAdr('glUniformHandleui64NV');
+    private z_UniformHandleui64NV_ovr_0 := GetFuncOrNil&(z_UniformHandleui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64NV(location: Int32; value: UInt64) :=
     z_UniformHandleui64NV_ovr_0(location, value);
     
-    private static procedure z_UniformHandleui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniformHandleui64vNV';
-    private static procedure z_UniformHandleui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformHandleui64vNV';
+    private z_UniformHandleui64vNV_adr := GetFuncAdr('glUniformHandleui64vNV');
+    private z_UniformHandleui64vNV_ovr_0 := GetFuncOrNil&(z_UniformHandleui64vNV_adr);
+    private z_UniformHandleui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_UniformHandleui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_UniformHandleui64vNV_ovr_0(location, count, value[0]) else
       z_UniformHandleui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_UniformHandleui64vNV_ovr_0(location, count, value);
-    private static procedure z_UniformHandleui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformHandleui64vNV';
+    private z_UniformHandleui64vNV_ovr_2 := GetFuncOrNil&(z_UniformHandleui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UniformHandleui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_UniformHandleui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_ProgramUniformHandleui64NV_ovr_0(&program: UInt32; location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64NV(&program: UInt32; location: Int32; value: UInt64) :=
+    private z_ProgramUniformHandleui64NV_adr := GetFuncAdr('glProgramUniformHandleui64NV');
+    private z_ProgramUniformHandleui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniformHandleui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64NV(&program: gl_program; location: Int32; value: UInt64) :=
     z_ProgramUniformHandleui64NV_ovr_0(&program, location, value);
     
-    private static procedure z_ProgramUniformHandleui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var values: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vNV';
-    private static procedure z_ProgramUniformHandleui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: UInt32; location: Int32; count: Int32; values: array of UInt64) :=
+    private z_ProgramUniformHandleui64vNV_adr := GetFuncAdr('glProgramUniformHandleui64vNV');
+    private z_ProgramUniformHandleui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniformHandleui64vNV_adr);
+    private z_ProgramUniformHandleui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniformHandleui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: gl_program; location: Int32; count: Int32; values: array of UInt64) :=
     if (values<>nil) and (values.Length<>0) then
       z_ProgramUniformHandleui64vNV_ovr_0(&program, location, count, values[0]) else
       z_ProgramUniformHandleui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: UInt32; location: Int32; count: Int32; var values: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: gl_program; location: Int32; count: Int32; var values: UInt64) :=
     z_ProgramUniformHandleui64vNV_ovr_0(&program, location, count, values);
-    private static procedure z_ProgramUniformHandleui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformHandleui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: UInt32; location: Int32; count: Int32; values: IntPtr) :=
+    private z_ProgramUniformHandleui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniformHandleui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformHandleui64vNV(&program: gl_program; location: Int32; count: Int32; values: IntPtr) :=
     z_ProgramUniformHandleui64vNV_ovr_2(&program, location, count, values);
     
-    private static function z_IsTextureHandleResidentNV_ovr_0(handle: UInt64): boolean;
-    external 'opengl32.dll' name 'glIsTextureHandleResidentNV';
+    private z_IsTextureHandleResidentNV_adr := GetFuncAdr('glIsTextureHandleResidentNV');
+    private z_IsTextureHandleResidentNV_ovr_0 := GetFuncOrNil&(z_IsTextureHandleResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTextureHandleResidentNV(handle: UInt64): boolean :=
     z_IsTextureHandleResidentNV_ovr_0(handle);
     
-    private static function z_IsImageHandleResidentNV_ovr_0(handle: UInt64): boolean;
-    external 'opengl32.dll' name 'glIsImageHandleResidentNV';
+    private z_IsImageHandleResidentNV_adr := GetFuncAdr('glIsImageHandleResidentNV');
+    private z_IsImageHandleResidentNV_ovr_0 := GetFuncOrNil&(z_IsImageHandleResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsImageHandleResidentNV(handle: UInt64): boolean :=
     z_IsImageHandleResidentNV_ovr_0(handle);
     
   end;
   
   [PCUNotRestore]
-  glBlendEquationAdvancedNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glBlendEquationAdvancedNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_blend_equation_advanced';
     
-    private static procedure z_BlendParameteriNV_ovr_0(pname: DummyEnum; value: Int32);
-    external 'opengl32.dll' name 'glBlendParameteriNV';
+    private z_BlendParameteriNV_adr := GetFuncAdr('glBlendParameteriNV');
+    private z_BlendParameteriNV_ovr_0 := GetFuncOrNil&(z_BlendParameteriNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendParameteriNV(pname: DummyEnum; value: Int32) :=
     z_BlendParameteriNV_ovr_0(pname, value);
     
-    private static procedure z_BlendBarrierNV_ovr_0;
-    external 'opengl32.dll' name 'glBlendBarrierNV';
+    private z_BlendBarrierNV_adr := GetFuncAdr('glBlendBarrierNV');
+    private z_BlendBarrierNV_ovr_0 := GetFuncOrNil&(z_BlendBarrierNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendBarrierNV :=
     z_BlendBarrierNV_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glClipSpaceWScalingNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glClipSpaceWScalingNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_clip_space_w_scaling';
     
-    private static procedure z_ViewportPositionWScaleNV_ovr_0(index: UInt32; xcoeff: single; ycoeff: single);
-    external 'opengl32.dll' name 'glViewportPositionWScaleNV';
+    private z_ViewportPositionWScaleNV_adr := GetFuncAdr('glViewportPositionWScaleNV');
+    private z_ViewportPositionWScaleNV_ovr_0 := GetFuncOrNil&(z_ViewportPositionWScaleNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportPositionWScaleNV(index: UInt32; xcoeff: single; ycoeff: single) :=
     z_ViewportPositionWScaleNV_ovr_0(index, xcoeff, ycoeff);
     
   end;
   
   [PCUNotRestore]
-  glCommandListNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCommandListNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_command_list';
     
-    private static procedure z_CreateStatesNV_ovr_0(n: Int32; var states: UInt32);
-    external 'opengl32.dll' name 'glCreateStatesNV';
-    private static procedure z_CreateStatesNV_ovr_0_anh001(n: Int32; states: IntPtr);
-    external 'opengl32.dll' name 'glCreateStatesNV';
+    private z_CreateStatesNV_adr := GetFuncAdr('glCreateStatesNV');
+    private z_CreateStatesNV_ovr_0 := GetFuncOrNil&(z_CreateStatesNV_adr);
+    private z_CreateStatesNV_ovr_0_anh001 := GetFuncOrNil&(z_CreateStatesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateStatesNV(n: Int32; states: array of UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_CreateStatesNV_ovr_0(n, states[0]) else
       z_CreateStatesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateStatesNV(n: Int32; var states: UInt32) :=
     z_CreateStatesNV_ovr_0(n, states);
-    private static procedure z_CreateStatesNV_ovr_2(n: Int32; states: IntPtr);
-    external 'opengl32.dll' name 'glCreateStatesNV';
+    private z_CreateStatesNV_ovr_2 := GetFuncOrNil&(z_CreateStatesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateStatesNV(n: Int32; states: IntPtr) :=
     z_CreateStatesNV_ovr_2(n, states);
     
-    private static procedure z_DeleteStatesNV_ovr_0(n: Int32; var states: UInt32);
-    external 'opengl32.dll' name 'glDeleteStatesNV';
-    private static procedure z_DeleteStatesNV_ovr_0_anh001(n: Int32; states: IntPtr);
-    external 'opengl32.dll' name 'glDeleteStatesNV';
+    private z_DeleteStatesNV_adr := GetFuncAdr('glDeleteStatesNV');
+    private z_DeleteStatesNV_ovr_0 := GetFuncOrNil&(z_DeleteStatesNV_adr);
+    private z_DeleteStatesNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteStatesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteStatesNV(n: Int32; states: array of UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DeleteStatesNV_ovr_0(n, states[0]) else
       z_DeleteStatesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteStatesNV(n: Int32; var states: UInt32) :=
     z_DeleteStatesNV_ovr_0(n, states);
-    private static procedure z_DeleteStatesNV_ovr_2(n: Int32; states: IntPtr);
-    external 'opengl32.dll' name 'glDeleteStatesNV';
+    private z_DeleteStatesNV_ovr_2 := GetFuncOrNil&(z_DeleteStatesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteStatesNV(n: Int32; states: IntPtr) :=
     z_DeleteStatesNV_ovr_2(n, states);
     
-    private static function z_IsStateNV_ovr_0(state: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsStateNV';
+    private z_IsStateNV_adr := GetFuncAdr('glIsStateNV');
+    private z_IsStateNV_ovr_0 := GetFuncOrNil&(z_IsStateNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsStateNV(state: UInt32): boolean :=
     z_IsStateNV_ovr_0(state);
     
-    private static procedure z_StateCaptureNV_ovr_0(state: UInt32; mode: DummyEnum);
-    external 'opengl32.dll' name 'glStateCaptureNV';
+    private z_StateCaptureNV_adr := GetFuncAdr('glStateCaptureNV');
+    private z_StateCaptureNV_ovr_0 := GetFuncOrNil&(z_StateCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StateCaptureNV(state: UInt32; mode: DummyEnum) :=
     z_StateCaptureNV_ovr_0(state, mode);
     
-    private static function z_GetCommandHeaderNV_ovr_0(tokenID: DummyEnum; size: UInt32): UInt32;
-    external 'opengl32.dll' name 'glGetCommandHeaderNV';
+    private z_GetCommandHeaderNV_adr := GetFuncAdr('glGetCommandHeaderNV');
+    private z_GetCommandHeaderNV_ovr_0 := GetFuncOrNil&(z_GetCommandHeaderNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCommandHeaderNV(tokenID: DummyEnum; size: UInt32): UInt32 :=
     z_GetCommandHeaderNV_ovr_0(tokenID, size);
     
-    private static function z_GetStageIndexNV_ovr_0(_shadertype: ShaderType): UInt16;
-    external 'opengl32.dll' name 'glGetStageIndexNV';
+    private z_GetStageIndexNV_adr := GetFuncAdr('glGetStageIndexNV');
+    private z_GetStageIndexNV_ovr_0 := GetFuncOrNil&(z_GetStageIndexNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetStageIndexNV(_shadertype: ShaderType): UInt16 :=
     z_GetStageIndexNV_ovr_0(_shadertype);
     
-    private static procedure z_DrawCommandsNV_ovr_0(primitiveMode: DummyEnum; buffer: UInt32; var indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
-    private static procedure z_DrawCommandsNV_ovr_0_anh000100(primitiveMode: DummyEnum; buffer: UInt32; indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
-    private static procedure z_DrawCommandsNV_ovr_0_anh000010(primitiveMode: DummyEnum; buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
-    private static procedure z_DrawCommandsNV_ovr_0_anh000110(primitiveMode: DummyEnum; buffer: UInt32; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
+    private z_DrawCommandsNV_adr := GetFuncAdr('glDrawCommandsNV');
+    private z_DrawCommandsNV_ovr_0 := GetFuncOrNil&(z_DrawCommandsNV_adr);
+    private z_DrawCommandsNV_ovr_0_anh000100 := GetFuncOrNil&(z_DrawCommandsNV_adr);
+    private z_DrawCommandsNV_ovr_0_anh000010 := GetFuncOrNil&(z_DrawCommandsNV_adr);
+    private z_DrawCommandsNV_ovr_0_anh000110 := GetFuncOrNil&(z_DrawCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -57106,16 +55835,13 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsNV_ovr_0_anh000100(primitiveMode, buffer, IntPtr.Zero, sizes[0], count) else
         z_DrawCommandsNV_ovr_0_anh000110(primitiveMode, buffer, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsNV_ovr_1_anh000100(primitiveMode: DummyEnum; buffer: UInt32; indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
+    private z_DrawCommandsNV_ovr_1_anh000100 := GetFuncOrNil&(z_DrawCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsNV_ovr_0(primitiveMode, buffer, indirects[0], sizes, count) else
       z_DrawCommandsNV_ovr_0_anh000100(primitiveMode, buffer, IntPtr.Zero, sizes, count);
-    private static procedure z_DrawCommandsNV_ovr_2(primitiveMode: DummyEnum; buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
-    private static procedure z_DrawCommandsNV_ovr_2_anh000100(primitiveMode: DummyEnum; buffer: UInt32; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
+    private z_DrawCommandsNV_ovr_2 := GetFuncOrNil&(z_DrawCommandsNV_adr);
+    private z_DrawCommandsNV_ovr_2_anh000100 := GetFuncOrNil&(z_DrawCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsNV_ovr_2(primitiveMode, buffer, indirects[0], sizes, count) else
@@ -57128,29 +55854,23 @@ type
     z_DrawCommandsNV_ovr_0(primitiveMode, buffer, indirects, sizes, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; count: UInt32) :=
     z_DrawCommandsNV_ovr_2(primitiveMode, buffer, indirects, sizes, count);
-    private static procedure z_DrawCommandsNV_ovr_6(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
-    private static procedure z_DrawCommandsNV_ovr_6_anh000010(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
+    private z_DrawCommandsNV_ovr_6 := GetFuncOrNil&(z_DrawCommandsNV_adr);
+    private z_DrawCommandsNV_ovr_6_anh000010 := GetFuncOrNil&(z_DrawCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; sizes: array of Int32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsNV_ovr_6(primitiveMode, buffer, indirects, sizes[0], count) else
       z_DrawCommandsNV_ovr_6_anh000010(primitiveMode, buffer, indirects, IntPtr.Zero, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; var sizes: Int32; count: UInt32) :=
     z_DrawCommandsNV_ovr_6(primitiveMode, buffer, indirects, sizes, count);
-    private static procedure z_DrawCommandsNV_ovr_8(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsNV';
+    private z_DrawCommandsNV_ovr_8 := GetFuncOrNil&(z_DrawCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsNV(primitiveMode: DummyEnum; buffer: UInt32; indirects: pointer; sizes: IntPtr; count: UInt32) :=
     z_DrawCommandsNV_ovr_8(primitiveMode, buffer, indirects, sizes, count);
     
-    private static procedure z_DrawCommandsAddressNV_ovr_0(primitiveMode: DummyEnum; var indirects: UInt64; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
-    private static procedure z_DrawCommandsAddressNV_ovr_0_anh00100(primitiveMode: DummyEnum; indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
-    private static procedure z_DrawCommandsAddressNV_ovr_0_anh00010(primitiveMode: DummyEnum; var indirects: UInt64; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
-    private static procedure z_DrawCommandsAddressNV_ovr_0_anh00110(primitiveMode: DummyEnum; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
+    private z_DrawCommandsAddressNV_adr := GetFuncAdr('glDrawCommandsAddressNV');
+    private z_DrawCommandsAddressNV_ovr_0 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
+    private z_DrawCommandsAddressNV_ovr_0_anh00100 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
+    private z_DrawCommandsAddressNV_ovr_0_anh00010 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
+    private z_DrawCommandsAddressNV_ovr_0_anh00110 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: array of UInt64; sizes: array of Int32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -57159,16 +55879,13 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsAddressNV_ovr_0_anh00100(primitiveMode, IntPtr.Zero, sizes[0], count) else
         z_DrawCommandsAddressNV_ovr_0_anh00110(primitiveMode, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsAddressNV_ovr_1_anh00100(primitiveMode: DummyEnum; indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
+    private z_DrawCommandsAddressNV_ovr_1_anh00100 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: array of UInt64; var sizes: Int32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsAddressNV_ovr_0(primitiveMode, indirects[0], sizes, count) else
       z_DrawCommandsAddressNV_ovr_0_anh00100(primitiveMode, IntPtr.Zero, sizes, count);
-    private static procedure z_DrawCommandsAddressNV_ovr_2(primitiveMode: DummyEnum; var indirects: UInt64; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
-    private static procedure z_DrawCommandsAddressNV_ovr_2_anh00100(primitiveMode: DummyEnum; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
+    private z_DrawCommandsAddressNV_ovr_2 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
+    private z_DrawCommandsAddressNV_ovr_2_anh00100 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: array of UInt64; sizes: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsAddressNV_ovr_2(primitiveMode, indirects[0], sizes, count) else
@@ -57181,54 +55898,36 @@ type
     z_DrawCommandsAddressNV_ovr_0(primitiveMode, indirects, sizes, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; var indirects: UInt64; sizes: IntPtr; count: UInt32) :=
     z_DrawCommandsAddressNV_ovr_2(primitiveMode, indirects, sizes, count);
-    private static procedure z_DrawCommandsAddressNV_ovr_6(primitiveMode: DummyEnum; indirects: IntPtr; var sizes: Int32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
-    private static procedure z_DrawCommandsAddressNV_ovr_6_anh00010(primitiveMode: DummyEnum; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
+    private z_DrawCommandsAddressNV_ovr_6 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
+    private z_DrawCommandsAddressNV_ovr_6_anh00010 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: IntPtr; sizes: array of Int32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsAddressNV_ovr_6(primitiveMode, indirects, sizes[0], count) else
       z_DrawCommandsAddressNV_ovr_6_anh00010(primitiveMode, indirects, IntPtr.Zero, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: IntPtr; var sizes: Int32; count: UInt32) :=
     z_DrawCommandsAddressNV_ovr_6(primitiveMode, indirects, sizes, count);
-    private static procedure z_DrawCommandsAddressNV_ovr_8(primitiveMode: DummyEnum; indirects: IntPtr; sizes: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsAddressNV';
+    private z_DrawCommandsAddressNV_ovr_8 := GetFuncOrNil&(z_DrawCommandsAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsAddressNV(primitiveMode: DummyEnum; indirects: IntPtr; sizes: IntPtr; count: UInt32) :=
     z_DrawCommandsAddressNV_ovr_8(primitiveMode, indirects, sizes, count);
     
-    private static procedure z_DrawCommandsStatesNV_ovr_0(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0000100(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0001100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0011100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0000010(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0001010(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0011010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0000110(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0010110(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0001110(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_0_anh0011110(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_adr := GetFuncAdr('glDrawCommandsStatesNV');
+    private z_DrawCommandsStatesNV_ovr_0 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0011100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0011010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0000110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0010110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0001110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_0_anh0011110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         if (states<>nil) and (states.Length<>0) then
@@ -57260,21 +55959,14 @@ type
           if (fbos<>nil) and (fbos.Length<>0) then
             z_DrawCommandsStatesNV_ovr_0_anh0011100(buffer, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
             z_DrawCommandsStatesNV_ovr_0_anh0011110(buffer, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0000100(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0001100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_1_anh0011100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_1_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_1_anh0011100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         if (states<>nil) and (states.Length<>0) then
@@ -57290,23 +55982,15 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_DrawCommandsStatesNV_ovr_0_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_DrawCommandsStatesNV_ovr_0_anh0011100(buffer, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_2(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0000100(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0001100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_2_anh0011100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_2 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_2_anh0011100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         if (states<>nil) and (states.Length<>0) then
@@ -57322,19 +56006,13 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_DrawCommandsStatesNV_ovr_2_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_DrawCommandsStatesNV_ovr_2_anh0011100(buffer, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0001010(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_3_anh0011010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_3_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_3_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_3_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_3_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_3_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_3_anh0011010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57350,13 +56028,10 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_0_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_0_anh0011010(buffer, IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_4_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_4_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_4_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_4_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_4_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_4_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects[0], sizes[0], states, fbos, count) else
@@ -57364,13 +56039,10 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0010000(buffer, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesNV_ovr_0_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_5_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_5_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_5_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_5_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_5_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_5_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2(buffer, indirects[0], sizes[0], states, fbos, count) else
@@ -57378,23 +56050,15 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2_anh0010000(buffer, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesNV_ovr_2_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_6(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0000010(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0001010(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_6_anh0011010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_6 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_6_anh0011010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57410,13 +56074,10 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_6_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_6_anh0011010(buffer, IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_7_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_7_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_7_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_7_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_7_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_7_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6(buffer, indirects[0], sizes[0], states, fbos, count) else
@@ -57424,15 +56085,11 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6_anh0010000(buffer, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesNV_ovr_6_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_8(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_8_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_8_anh0001000(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_8_anh0011000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_8 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_8_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_8_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_8_anh0011000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_8(buffer, indirects[0], sizes[0], states, fbos, count) else
@@ -57440,15 +56097,11 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesNV_ovr_8_anh0010000(buffer, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesNV_ovr_8_anh0011000(buffer, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_9_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_9_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_9_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_9_anh0010110(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_9_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_9_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_9_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_9_anh0010110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57464,11 +56117,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_0_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_0_anh0010110(buffer, IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_10_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_10_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_10_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_10_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects[0], sizes, states[0], fbos, count) else
@@ -57476,11 +56127,9 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0010000(buffer, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_0_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_11_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_11_anh0010100(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_11_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_11_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2(buffer, indirects[0], sizes, states[0], fbos, count) else
@@ -57488,11 +56137,9 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2_anh0010000(buffer, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_2_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_12_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_12_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_12_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_12_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects[0], sizes, states, fbos[0], count) else
@@ -57500,23 +56147,19 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_0_anh0010010(buffer, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_13_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_13_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_0(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_0_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_14_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_14_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_2(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_2_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_15_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_15_anh0010010(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_15_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_15_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6(buffer, indirects[0], sizes, states, fbos[0], count) else
@@ -57524,35 +56167,25 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_6_anh0010010(buffer, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_16_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_16_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_6(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_6_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_17_anh0010000(buffer: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_17_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_8(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_8_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_18(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0000100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0010100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0000010(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0010010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0000110(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_18_anh0010110(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_18 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0000110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_18_anh0010110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57568,13 +56201,10 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_18_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_18_anh0010110(buffer, IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_19_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_19_anh0000100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_19_anh0010100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_19_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_19_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_19_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18(buffer, indirects[0], sizes, states[0], fbos, count) else
@@ -57582,15 +56212,11 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18_anh0010000(buffer, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_18_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_20(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_20_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_20_anh0000100(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_20_anh0010100(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_20 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_20_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_20_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_20_anh0010100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_20(buffer, indirects[0], sizes, states[0], fbos, count) else
@@ -57598,11 +56224,9 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_20_anh0010000(buffer, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_20_anh0010100(buffer, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_21_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_21_anh0010010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_21_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_21_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18(buffer, indirects[0], sizes, states, fbos[0], count) else
@@ -57610,27 +56234,21 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_18_anh0010010(buffer, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_22_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_22_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_18(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_18_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_23_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_23_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_20(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_20_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_24(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_24_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_24_anh0000010(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_24_anh0010010(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_24 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_24_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_24_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_24_anh0010010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_24(buffer, indirects[0], sizes, states, fbos[0], count) else
@@ -57638,21 +56256,18 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_24_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_24_anh0010010(buffer, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_25_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_25_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_24(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_24_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_26(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_26_anh0010000(buffer: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_26 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_26_anh0010000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesNV_ovr_26(buffer, indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_26_anh0010000(buffer, IntPtr.Zero, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57668,7 +56283,7 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_0_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_0_anh0001110(buffer, indirects, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes[0], states[0], fbos, count) else
@@ -57676,7 +56291,7 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0001000(buffer, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_0_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2(buffer, indirects, sizes[0], states[0], fbos, count) else
@@ -57684,7 +56299,7 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_2_anh0001000(buffer, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_2_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes[0], states, fbos[0], count) else
@@ -57692,15 +56307,15 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_0_anh0001010(buffer, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_0_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_2(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_2_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6(buffer, indirects, sizes[0], states, fbos[0], count) else
@@ -57708,15 +56323,15 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_6_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_6_anh0001010(buffer, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_6(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_6_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_8(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_8_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes, states[0], fbos[0], count) else
@@ -57724,31 +56339,31 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_0_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_0_anh0000110(buffer, indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_0_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_2(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_2_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_0_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_0(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_2(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_6(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_6_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_6(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_8(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18(buffer, indirects, sizes, states[0], fbos[0], count) else
@@ -57756,47 +56371,39 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_18_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_18_anh0000110(buffer, indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_18(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_18_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_20(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_20_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_18(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_18_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_18(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_20(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_24(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_24_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_24(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_26(buffer, indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_54(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0000100(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0001100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0000010(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0001010(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0000110(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_54_anh0001110(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_54 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0000110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_54_anh0001110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         if (fbos<>nil) and (fbos.Length<>0) then
@@ -57812,13 +56419,10 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesNV_ovr_54_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesNV_ovr_54_anh0001110(buffer, indirects, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_55_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_55_anh0000100(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_55_anh0001100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_55_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_55_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_55_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes[0], states[0], fbos, count) else
@@ -57826,15 +56430,11 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54_anh0001000(buffer, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_54_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_56(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_56_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_56_anh0000100(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_56_anh0001100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_56 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_56_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_56_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_56_anh0001100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_56(buffer, indirects, sizes[0], states[0], fbos, count) else
@@ -57842,11 +56442,9 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesNV_ovr_56_anh0001000(buffer, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesNV_ovr_56_anh0001100(buffer, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_57_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_57_anh0001010(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_57_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_57_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes[0], states, fbos[0], count) else
@@ -57854,27 +56452,21 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_54_anh0001010(buffer, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_58_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_58_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_54_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_59_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_59_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_56(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_56_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_60(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_60_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_60_anh0000010(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_60_anh0001010(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_60 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_60_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_60_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_60_anh0001010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_60(buffer, indirects, sizes[0], states, fbos[0], count) else
@@ -57882,21 +56474,18 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_60_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_60_anh0001010(buffer, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_61_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_61_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_60(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_60_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_62(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_62_anh0001000(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_62 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_62_anh0001000 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesNV_ovr_62(buffer, indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesNV_ovr_62_anh0001000(buffer, indirects, IntPtr.Zero, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes, states[0], fbos[0], count) else
@@ -57904,39 +56493,35 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_54_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_54_anh0000110(buffer, indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_54_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_56(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_56_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_54_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_54(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_56(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_60(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_60_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_60(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_62(buffer, indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_72(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_72_anh0000100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_72_anh0000010(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_72_anh0000110(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_72 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_72_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_72_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_72_anh0000110 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_72(buffer, indirects, sizes, states[0], fbos[0], count) else
@@ -57944,75 +56529,54 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesNV_ovr_72_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_DrawCommandsStatesNV_ovr_72_anh0000110(buffer, indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_73_anh0000100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_73_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_72(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_72_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_74(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_74_anh0000100(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_74 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_74_anh0000100 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesNV_ovr_74(buffer, indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesNV_ovr_74_anh0000100(buffer, indirects, sizes, IntPtr.Zero, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_72(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_72_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_72(buffer, indirects, sizes, states, fbos, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_74(buffer, indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_78(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    private static procedure z_DrawCommandsStatesNV_ovr_78_anh0000010(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_78 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    private z_DrawCommandsStatesNV_ovr_78_anh0000010 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesNV_ovr_78(buffer, indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesNV_ovr_78_anh0000010(buffer, indirects, sizes, states, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_78(buffer, indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesNV_ovr_80(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
+    private z_DrawCommandsStatesNV_ovr_80 := GetFuncOrNil&(z_DrawCommandsStatesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesNV(buffer: gl_buffer; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesNV_ovr_80(buffer, indirects, sizes, states, fbos, count);
     
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0(var indirects: UInt64; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh000100(var indirects: UInt64; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh001100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh011100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh000010(var indirects: UInt64; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh010010(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh001010(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh011010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh000110(var indirects: UInt64; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh010110(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh001110(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_0_anh011110(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_adr := GetFuncAdr('glDrawCommandsStatesAddressNV');
+    private z_DrawCommandsStatesAddressNV_ovr_0 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh011100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh011010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh000110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh010110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh001110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_0_anh011110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58045,20 +56609,13 @@ type
           if (fbos<>nil) and (fbos.Length<>0) then
             z_DrawCommandsStatesAddressNV_ovr_0_anh011100(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
             z_DrawCommandsStatesAddressNV_ovr_0_anh011110(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh000100(var indirects: UInt64; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh001100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_1_anh011100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_1_anh011100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58075,22 +56632,14 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_0_anh011000(IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_DrawCommandsStatesAddressNV_ovr_0_anh011100(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2(var indirects: UInt64; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh000100(var indirects: UInt64; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh001100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_2_anh011100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_2 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_2_anh011100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58107,18 +56656,12 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_2_anh011000(IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_DrawCommandsStatesAddressNV_ovr_2_anh011100(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh010010(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh001010(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_3_anh011010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_3_anh011010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58135,12 +56678,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_0_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_DrawCommandsStatesAddressNV_ovr_0_anh011010(IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_4_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_4_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_4_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_4_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_4_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_4_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58149,12 +56689,9 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_0_anh010000(IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_0_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_5_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_5_anh001000(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_5_anh011000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_5_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_5_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_5_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58163,22 +56700,14 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_2_anh010000(IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_2_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6(var indirects: UInt64; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh001000(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh011000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh000010(var indirects: UInt64; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh010010(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh001010(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_6_anh011010(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_6 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_6_anh011010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58195,12 +56724,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_6_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_DrawCommandsStatesAddressNV_ovr_6_anh011010(IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_7_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_7_anh001000(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_7_anh011000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_7_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_7_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_7_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58209,14 +56735,10 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_6_anh010000(IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_6_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_8(var indirects: UInt64; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_8_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_8_anh001000(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_8_anh011000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_8 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_8_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_8_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_8_anh011000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58225,14 +56747,10 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_8_anh010000(IntPtr.Zero, sizes[0], states, fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_8_anh011000(IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_9_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_9_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_9_anh010010(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_9_anh010110(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_9_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_9_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_9_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_9_anh010110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58249,10 +56767,8 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_0_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesAddressNV_ovr_0_anh010110(IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_10_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_10_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_10_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_10_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58261,10 +56777,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_0_anh010000(IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_0_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_11_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_11_anh010100(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_11_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_11_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58273,10 +56787,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_2_anh010000(IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_2_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_12_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_12_anh010010(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_12_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_12_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58285,22 +56797,18 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_0_anh010000(IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_0_anh010010(IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_13_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_13_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_0(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_0_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_14_anh010000(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_14_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_2(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_2_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_15_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_15_anh010010(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_15_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_15_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58309,34 +56817,24 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_6_anh010000(IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_6_anh010010(IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_16_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_16_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_6(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_6_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_17_anh010000(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_17_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_8(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_8_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18(var indirects: UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh000100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh010100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh000010(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh010010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh000110(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_18_anh010110(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_18 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh000110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_18_anh010110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58353,12 +56851,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_18_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesAddressNV_ovr_18_anh010110(IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_19_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_19_anh000100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_19_anh010100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_19_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_19_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_19_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58367,14 +56862,10 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_18_anh010000(IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_18_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_20(var indirects: UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_20_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_20_anh000100(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_20_anh010100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_20 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_20_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_20_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_20_anh010100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58383,10 +56874,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_20_anh010000(IntPtr.Zero, sizes, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_20_anh010100(IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_21_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_21_anh010010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_21_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_21_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58395,26 +56884,20 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_18_anh010000(IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_18_anh010010(IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_22_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_22_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_18(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_18_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_23_anh010000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_23_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_20(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_20_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_24(var indirects: UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_24_anh010000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_24_anh000010(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_24_anh010010(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_24 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_24_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_24_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_24_anh010010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58423,16 +56906,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_24_anh010000(IntPtr.Zero, sizes, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_24_anh010010(IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_25_anh010000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_25_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_24(indirects[0], sizes, states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_24_anh010000(IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_26(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_26_anh010000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_26 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_26_anh010000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: array of UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_26(indirects[0], sizes, states, fbos, count) else
@@ -58565,22 +57045,14 @@ type
     z_DrawCommandsStatesAddressNV_ovr_24(indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(var indirects: UInt64; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesAddressNV_ovr_26(indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54(indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh000100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh001100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh000010(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh001010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh000110(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_54_anh001110(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_54 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh000110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_54_anh001110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58597,12 +57069,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_DrawCommandsStatesAddressNV_ovr_54_anh001100(indirects, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
           z_DrawCommandsStatesAddressNV_ovr_54_anh001110(indirects, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_55_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_55_anh000100(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_55_anh001100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_55_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_55_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_55_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58611,14 +57080,10 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_54_anh001000(indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_54_anh001100(indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_56(indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_56_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_56_anh000100(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_56_anh001100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_56 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_56_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_56_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_56_anh001100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -58627,10 +57092,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_56_anh001000(indirects, IntPtr.Zero, states[0], fbos, count) else
         z_DrawCommandsStatesAddressNV_ovr_56_anh001100(indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_57_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_57_anh001010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_57_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_57_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58639,26 +57102,20 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_54_anh001000(indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_54_anh001010(indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_58_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_58_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_54(indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_54_anh001000(indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_59_anh001000(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_59_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_56(indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_56_anh001000(indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_60(indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_60_anh001000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_60_anh000010(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_60_anh001010(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_60 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_60_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_60_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_60_anh001010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58667,16 +57124,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_60_anh001000(indirects, IntPtr.Zero, states, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_60_anh001010(indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_61_anh001000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_61_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_60(indirects, sizes[0], states, fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_60_anh001000(indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_62(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_62_anh001000(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_62 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_62_anh001000 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_62(indirects, sizes[0], states, fbos, count) else
@@ -58713,14 +57167,10 @@ type
     z_DrawCommandsStatesAddressNV_ovr_60(indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesAddressNV_ovr_62(indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_72(indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_72_anh000100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_72_anh000010(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_72_anh000110(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_72 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_72_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_72_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_72_anh000110 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -58729,16 +57179,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_DrawCommandsStatesAddressNV_ovr_72_anh000100(indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_DrawCommandsStatesAddressNV_ovr_72_anh000110(indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_73_anh000100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_73_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_72(indirects, sizes, states[0], fbos, count) else
       z_DrawCommandsStatesAddressNV_ovr_72_anh000100(indirects, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_74(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_74_anh000100(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_74 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_74_anh000100 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_74(indirects, sizes, states[0], fbos, count) else
@@ -58751,88 +57198,66 @@ type
     z_DrawCommandsStatesAddressNV_ovr_72(indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesAddressNV_ovr_74(indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_78(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_78_anh000010(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_78 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
+    private z_DrawCommandsStatesAddressNV_ovr_78_anh000010 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_DrawCommandsStatesAddressNV_ovr_78(indirects, sizes, states, fbos[0], count) else
       z_DrawCommandsStatesAddressNV_ovr_78_anh000010(indirects, sizes, states, IntPtr.Zero, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_DrawCommandsStatesAddressNV_ovr_78(indirects, sizes, states, fbos, count);
-    private static procedure z_DrawCommandsStatesAddressNV_ovr_80(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glDrawCommandsStatesAddressNV';
+    private z_DrawCommandsStatesAddressNV_ovr_80 := GetFuncOrNil&(z_DrawCommandsStatesAddressNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawCommandsStatesAddressNV(indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_DrawCommandsStatesAddressNV_ovr_80(indirects, sizes, states, fbos, count);
     
-    private static procedure z_CreateCommandListsNV_ovr_0(n: Int32; var lists: UInt32);
-    external 'opengl32.dll' name 'glCreateCommandListsNV';
-    private static procedure z_CreateCommandListsNV_ovr_0_anh001(n: Int32; lists: IntPtr);
-    external 'opengl32.dll' name 'glCreateCommandListsNV';
+    private z_CreateCommandListsNV_adr := GetFuncAdr('glCreateCommandListsNV');
+    private z_CreateCommandListsNV_ovr_0 := GetFuncOrNil&(z_CreateCommandListsNV_adr);
+    private z_CreateCommandListsNV_ovr_0_anh001 := GetFuncOrNil&(z_CreateCommandListsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateCommandListsNV(n: Int32; lists: array of UInt32) :=
     if (lists<>nil) and (lists.Length<>0) then
       z_CreateCommandListsNV_ovr_0(n, lists[0]) else
       z_CreateCommandListsNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateCommandListsNV(n: Int32; var lists: UInt32) :=
     z_CreateCommandListsNV_ovr_0(n, lists);
-    private static procedure z_CreateCommandListsNV_ovr_2(n: Int32; lists: IntPtr);
-    external 'opengl32.dll' name 'glCreateCommandListsNV';
+    private z_CreateCommandListsNV_ovr_2 := GetFuncOrNil&(z_CreateCommandListsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CreateCommandListsNV(n: Int32; lists: IntPtr) :=
     z_CreateCommandListsNV_ovr_2(n, lists);
     
-    private static procedure z_DeleteCommandListsNV_ovr_0(n: Int32; var lists: UInt32);
-    external 'opengl32.dll' name 'glDeleteCommandListsNV';
-    private static procedure z_DeleteCommandListsNV_ovr_0_anh001(n: Int32; lists: IntPtr);
-    external 'opengl32.dll' name 'glDeleteCommandListsNV';
+    private z_DeleteCommandListsNV_adr := GetFuncAdr('glDeleteCommandListsNV');
+    private z_DeleteCommandListsNV_ovr_0 := GetFuncOrNil&(z_DeleteCommandListsNV_adr);
+    private z_DeleteCommandListsNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteCommandListsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteCommandListsNV(n: Int32; lists: array of UInt32) :=
     if (lists<>nil) and (lists.Length<>0) then
       z_DeleteCommandListsNV_ovr_0(n, lists[0]) else
       z_DeleteCommandListsNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteCommandListsNV(n: Int32; var lists: UInt32) :=
     z_DeleteCommandListsNV_ovr_0(n, lists);
-    private static procedure z_DeleteCommandListsNV_ovr_2(n: Int32; lists: IntPtr);
-    external 'opengl32.dll' name 'glDeleteCommandListsNV';
+    private z_DeleteCommandListsNV_ovr_2 := GetFuncOrNil&(z_DeleteCommandListsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteCommandListsNV(n: Int32; lists: IntPtr) :=
     z_DeleteCommandListsNV_ovr_2(n, lists);
     
-    private static function z_IsCommandListNV_ovr_0(list: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsCommandListNV';
+    private z_IsCommandListNV_adr := GetFuncAdr('glIsCommandListNV');
+    private z_IsCommandListNV_ovr_0 := GetFuncOrNil&(z_IsCommandListNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsCommandListNV(list: UInt32): boolean :=
     z_IsCommandListNV_ovr_0(list);
     
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00001100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00011100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00000010(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00001010(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00011010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00000110(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00010110(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00001110(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_0_anh00011110(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_adr := GetFuncAdr('glListDrawCommandsStatesClientNV');
+    private z_ListDrawCommandsStatesClientNV_ovr_0 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00011100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00011010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00000110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00010110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00001110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_0_anh00011110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58865,20 +57290,13 @@ type
           if (fbos<>nil) and (fbos.Length<>0) then
             z_ListDrawCommandsStatesClientNV_ovr_0_anh00011100(list, segment, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
             z_ListDrawCommandsStatesClientNV_ovr_0_anh00011110(list, segment, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00001100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_1_anh00011100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_1_anh00011100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58895,22 +57313,14 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00011100(list, segment, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00001100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_2_anh00011100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_2 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_2_anh00011100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58927,18 +57337,12 @@ type
         if (states<>nil) and (states.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_2_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states[0], fbos, count) else
           z_ListDrawCommandsStatesClientNV_ovr_2_anh00011100(list, segment, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00001010(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_3_anh00011010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_3_anh00011010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58955,12 +57359,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00011010(list, segment, IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_4_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_4_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_4_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_4_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_4_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_4_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58969,12 +57370,9 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000(list, segment, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_5_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_5_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_5_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_5_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_5_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_5_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -58983,22 +57381,14 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_2_anh00010000(list, segment, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_2_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00000010(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00001010(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_6_anh00011010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_6 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_6_anh00011010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -59015,12 +57405,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_6_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos[0], count) else
           z_ListDrawCommandsStatesClientNV_ovr_6_anh00011010(list, segment, IntPtr.Zero, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_7_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_7_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_7_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_7_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_7_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_7_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -59029,14 +57416,10 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_6_anh00010000(list, segment, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_6_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_8(list: UInt32; segment: UInt32; var indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_8_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_8_anh00001000(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_8_anh00011000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_8 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_8_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_8_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_8_anh00011000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (sizes<>nil) and (sizes.Length<>0) then
@@ -59045,14 +57428,10 @@ type
       if (sizes<>nil) and (sizes.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_8_anh00010000(list, segment, IntPtr.Zero, sizes[0], states, fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_8_anh00011000(list, segment, IntPtr.Zero, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_9_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_9_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_9_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_9_anh00010110(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_9_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_9_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_9_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_9_anh00010110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59069,10 +57448,8 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_ListDrawCommandsStatesClientNV_ovr_0_anh00010110(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_10_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_10_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_10_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_10_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59081,10 +57458,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000(list, segment, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_11_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_11_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_11_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_11_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59093,10 +57468,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_2_anh00010000(list, segment, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_2_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_12_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_12_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_12_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_12_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59105,22 +57478,18 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_0_anh00010010(list, segment, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_13_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_13_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_0(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_0_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_14_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_14_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_2(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_2_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_15_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_15_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_15_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_15_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59129,34 +57498,24 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_6_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_6_anh00010010(list, segment, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_16_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_16_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_6(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_6_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_17_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_17_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_8(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_8_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00000010(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00000110(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_18_anh00010110(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_18 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00000110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_18_anh00010110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59173,12 +57532,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_18_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos[0], count) else
           z_ListDrawCommandsStatesClientNV_ovr_18_anh00010110(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_19_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_19_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_19_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_19_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_19_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_19_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59187,14 +57543,10 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_18_anh00010000(list, segment, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_18_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_20(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_20_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_20_anh00000100(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_20_anh00010100(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_20 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_20_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_20_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_20_anh00010100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59203,10 +57555,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_20_anh00010000(list, segment, IntPtr.Zero, sizes, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_20_anh00010100(list, segment, IntPtr.Zero, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_21_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_21_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_21_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_21_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59215,26 +57565,20 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_18_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_18_anh00010010(list, segment, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_22_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_22_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_18(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_18_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_23_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_23_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_20(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_20_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_24(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_24_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_24_anh00000010(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_24_anh00010010(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_24 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_24_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_24_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_24_anh00010010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59243,16 +57587,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_24_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_24_anh00010010(list, segment, IntPtr.Zero, sizes, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_25_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_25_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_24(list, segment, indirects[0], sizes, states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_24_anh00010000(list, segment, IntPtr.Zero, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_26(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_26_anh00010000(list: UInt32; segment: UInt32; indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_26 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_26_anh00010000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: array of IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (indirects<>nil) and (indirects.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_26(list, segment, indirects[0], sizes, states, fbos, count) else
@@ -59385,22 +57726,14 @@ type
     z_ListDrawCommandsStatesClientNV_ovr_24(list, segment, indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; var indirects: IntPtr; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_ListDrawCommandsStatesClientNV_ovr_26(list, segment, indirects, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00001100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00000010(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00001010(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00000110(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_54_anh00001110(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_54 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00000110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_54_anh00001110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59417,12 +57750,9 @@ type
         if (fbos<>nil) and (fbos.Length<>0) then
           z_ListDrawCommandsStatesClientNV_ovr_54_anh00001100(list, segment, indirects, IntPtr.Zero, IntPtr.Zero, fbos[0], count) else
           z_ListDrawCommandsStatesClientNV_ovr_54_anh00001110(list, segment, indirects, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_55_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_55_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_55_anh00001100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_55_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_55_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_55_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59431,14 +57761,10 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_54_anh00001000(list, segment, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_54_anh00001100(list, segment, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_56(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_56_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_56_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_56_anh00001100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_56 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_56_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_56_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_56_anh00001100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (states<>nil) and (states.Length<>0) then
@@ -59447,10 +57773,8 @@ type
       if (states<>nil) and (states.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_56_anh00001000(list, segment, indirects, IntPtr.Zero, states[0], fbos, count) else
         z_ListDrawCommandsStatesClientNV_ovr_56_anh00001100(list, segment, indirects, IntPtr.Zero, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_57_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_57_anh00001010(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_57_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_57_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59459,26 +57783,20 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_54_anh00001000(list, segment, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_54_anh00001010(list, segment, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_58_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_58_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_54(list, segment, indirects, sizes[0], states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_54_anh00001000(list, segment, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_59_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_59_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_56(list, segment, indirects, sizes[0], states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_56_anh00001000(list, segment, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_60(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_60_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_60_anh00000010(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_60_anh00001010(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_60 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_60_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_60_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_60_anh00001010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59487,16 +57805,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_60_anh00001000(list, segment, indirects, IntPtr.Zero, states, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_60_anh00001010(list, segment, indirects, IntPtr.Zero, states, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_61_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_61_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_60(list, segment, indirects, sizes[0], states, fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_60_anh00001000(list, segment, indirects, IntPtr.Zero, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_62(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_62_anh00001000(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_62 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_62_anh00001000 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: array of Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     if (sizes<>nil) and (sizes.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_62(list, segment, indirects, sizes[0], states, fbos, count) else
@@ -59533,14 +57848,10 @@ type
     z_ListDrawCommandsStatesClientNV_ovr_60(list, segment, indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; var sizes: Int32; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_ListDrawCommandsStatesClientNV_ovr_62(list, segment, indirects, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_72(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_72_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_72_anh00000010(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_72_anh00000110(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_72 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_72_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_72_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_72_anh00000110 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: array of UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       if (fbos<>nil) and (fbos.Length<>0) then
@@ -59549,16 +57860,13 @@ type
       if (fbos<>nil) and (fbos.Length<>0) then
         z_ListDrawCommandsStatesClientNV_ovr_72_anh00000100(list, segment, indirects, sizes, IntPtr.Zero, fbos[0], count) else
         z_ListDrawCommandsStatesClientNV_ovr_72_anh00000110(list, segment, indirects, sizes, IntPtr.Zero, IntPtr.Zero, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_73_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_73_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; var fbos: UInt32; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_72(list, segment, indirects, sizes, states[0], fbos, count) else
       z_ListDrawCommandsStatesClientNV_ovr_72_anh00000100(list, segment, indirects, sizes, IntPtr.Zero, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_74(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_74_anh00000100(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_74 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_74_anh00000100 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: array of UInt32; fbos: IntPtr; count: UInt32) :=
     if (states<>nil) and (states.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_74(list, segment, indirects, sizes, states[0], fbos, count) else
@@ -59571,182 +57879,195 @@ type
     z_ListDrawCommandsStatesClientNV_ovr_72(list, segment, indirects, sizes, states, fbos, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; var states: UInt32; fbos: IntPtr; count: UInt32) :=
     z_ListDrawCommandsStatesClientNV_ovr_74(list, segment, indirects, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_78(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_78_anh00000010(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_78 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
+    private z_ListDrawCommandsStatesClientNV_ovr_78_anh00000010 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: array of UInt32; count: UInt32) :=
     if (fbos<>nil) and (fbos.Length<>0) then
       z_ListDrawCommandsStatesClientNV_ovr_78(list, segment, indirects, sizes, states, fbos[0], count) else
       z_ListDrawCommandsStatesClientNV_ovr_78_anh00000010(list, segment, indirects, sizes, states, IntPtr.Zero, count);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; var fbos: UInt32; count: UInt32) :=
     z_ListDrawCommandsStatesClientNV_ovr_78(list, segment, indirects, sizes, states, fbos, count);
-    private static procedure z_ListDrawCommandsStatesClientNV_ovr_80(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32);
-    external 'opengl32.dll' name 'glListDrawCommandsStatesClientNV';
+    private z_ListDrawCommandsStatesClientNV_ovr_80 := GetFuncOrNil&(z_ListDrawCommandsStatesClientNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListDrawCommandsStatesClientNV(list: UInt32; segment: UInt32; indirects: pointer; sizes: IntPtr; states: IntPtr; fbos: IntPtr; count: UInt32) :=
     z_ListDrawCommandsStatesClientNV_ovr_80(list, segment, indirects, sizes, states, fbos, count);
     
-    private static procedure z_CommandListSegmentsNV_ovr_0(list: UInt32; segments: UInt32);
-    external 'opengl32.dll' name 'glCommandListSegmentsNV';
+    private z_CommandListSegmentsNV_adr := GetFuncAdr('glCommandListSegmentsNV');
+    private z_CommandListSegmentsNV_ovr_0 := GetFuncOrNil&(z_CommandListSegmentsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CommandListSegmentsNV(list: UInt32; segments: UInt32) :=
     z_CommandListSegmentsNV_ovr_0(list, segments);
     
-    private static procedure z_CompileCommandListNV_ovr_0(list: UInt32);
-    external 'opengl32.dll' name 'glCompileCommandListNV';
+    private z_CompileCommandListNV_adr := GetFuncAdr('glCompileCommandListNV');
+    private z_CompileCommandListNV_ovr_0 := GetFuncOrNil&(z_CompileCommandListNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CompileCommandListNV(list: UInt32) :=
     z_CompileCommandListNV_ovr_0(list);
     
-    private static procedure z_CallCommandListNV_ovr_0(list: UInt32);
-    external 'opengl32.dll' name 'glCallCommandListNV';
+    private z_CallCommandListNV_adr := GetFuncAdr('glCallCommandListNV');
+    private z_CallCommandListNV_ovr_0 := GetFuncOrNil&(z_CallCommandListNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CallCommandListNV(list: UInt32) :=
     z_CallCommandListNV_ovr_0(list);
     
   end;
   
   [PCUNotRestore]
-  glConditionalRenderNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConditionalRenderNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_conditional_render';
     
-    private static procedure z_BeginConditionalRenderNV_ovr_0(id: UInt32; mode: ConditionalRenderMode);
-    external 'opengl32.dll' name 'glBeginConditionalRenderNV';
+    private z_BeginConditionalRenderNV_adr := GetFuncAdr('glBeginConditionalRenderNV');
+    private z_BeginConditionalRenderNV_ovr_0 := GetFuncOrNil&(z_BeginConditionalRenderNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginConditionalRenderNV(id: UInt32; mode: ConditionalRenderMode) :=
     z_BeginConditionalRenderNV_ovr_0(id, mode);
     
-    private static procedure z_EndConditionalRenderNV_ovr_0;
-    external 'opengl32.dll' name 'glEndConditionalRenderNV';
+    private z_EndConditionalRenderNV_adr := GetFuncAdr('glEndConditionalRenderNV');
+    private z_EndConditionalRenderNV_ovr_0 := GetFuncOrNil&(z_EndConditionalRenderNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndConditionalRenderNV :=
     z_EndConditionalRenderNV_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glConservativeRasterNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConservativeRasterNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_conservative_raster';
     
-    private static procedure z_SubpixelPrecisionBiasNV_ovr_0(xbits: UInt32; ybits: UInt32);
-    external 'opengl32.dll' name 'glSubpixelPrecisionBiasNV';
+    private z_SubpixelPrecisionBiasNV_adr := GetFuncAdr('glSubpixelPrecisionBiasNV');
+    private z_SubpixelPrecisionBiasNV_ovr_0 := GetFuncOrNil&(z_SubpixelPrecisionBiasNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SubpixelPrecisionBiasNV(xbits: UInt32; ybits: UInt32) :=
     z_SubpixelPrecisionBiasNV_ovr_0(xbits, ybits);
     
   end;
   
   [PCUNotRestore]
-  glConservativeRasterDilateNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConservativeRasterDilateNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_conservative_raster_dilate';
     
-    private static procedure z_ConservativeRasterParameterfNV_ovr_0(pname: DummyEnum; value: single);
-    external 'opengl32.dll' name 'glConservativeRasterParameterfNV';
+    private z_ConservativeRasterParameterfNV_adr := GetFuncAdr('glConservativeRasterParameterfNV');
+    private z_ConservativeRasterParameterfNV_ovr_0 := GetFuncOrNil&(z_ConservativeRasterParameterfNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConservativeRasterParameterfNV(pname: DummyEnum; value: single) :=
     z_ConservativeRasterParameterfNV_ovr_0(pname, value);
     
   end;
   
   [PCUNotRestore]
-  glConservativeRasterPreSnapTrianglesNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConservativeRasterPreSnapTrianglesNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_conservative_raster_pre_snap_triangles';
     
-    private static procedure z_ConservativeRasterParameteriNV_ovr_0(pname: DummyEnum; param: Int32);
-    external 'opengl32.dll' name 'glConservativeRasterParameteriNV';
+    private z_ConservativeRasterParameteriNV_adr := GetFuncAdr('glConservativeRasterParameteriNV');
+    private z_ConservativeRasterParameteriNV_ovr_0 := GetFuncOrNil&(z_ConservativeRasterParameteriNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConservativeRasterParameteriNV(pname: DummyEnum; param: Int32) :=
     z_ConservativeRasterParameteriNV_ovr_0(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glCopyImageNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glCopyImageNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_copy_image';
     
-    private static procedure z_CopyImageSubDataNV_ovr_0(srcName: UInt32; srcTarget: CopyBufferSubDataTarget; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: CopyBufferSubDataTarget; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32);
-    external 'opengl32.dll' name 'glCopyImageSubDataNV';
+    private z_CopyImageSubDataNV_adr := GetFuncAdr('glCopyImageSubDataNV');
+    private z_CopyImageSubDataNV_ovr_0 := GetFuncOrNil&(z_CopyImageSubDataNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyImageSubDataNV(srcName: UInt32; srcTarget: CopyBufferSubDataTarget; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: CopyBufferSubDataTarget; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32) :=
     z_CopyImageSubDataNV_ovr_0(srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, width, height, depth);
     
   end;
   
   [PCUNotRestore]
-  glDepthBufferFloatNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDepthBufferFloatNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_depth_buffer_float';
     
-    private static procedure z_DepthRangedNV_ovr_0(zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glDepthRangedNV';
+    private z_DepthRangedNV_adr := GetFuncAdr('glDepthRangedNV');
+    private z_DepthRangedNV_ovr_0 := GetFuncOrNil&(z_DepthRangedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangedNV(zNear: real; zFar: real) :=
     z_DepthRangedNV_ovr_0(zNear, zFar);
     
-    private static procedure z_ClearDepthdNV_ovr_0(depth: real);
-    external 'opengl32.dll' name 'glClearDepthdNV';
+    private z_ClearDepthdNV_adr := GetFuncAdr('glClearDepthdNV');
+    private z_ClearDepthdNV_ovr_0 := GetFuncOrNil&(z_ClearDepthdNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearDepthdNV(depth: real) :=
     z_ClearDepthdNV_ovr_0(depth);
     
-    private static procedure z_DepthBoundsdNV_ovr_0(zmin: real; zmax: real);
-    external 'opengl32.dll' name 'glDepthBoundsdNV';
+    private z_DepthBoundsdNV_adr := GetFuncAdr('glDepthBoundsdNV');
+    private z_DepthBoundsdNV_ovr_0 := GetFuncOrNil&(z_DepthBoundsdNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthBoundsdNV(zmin: real; zmax: real) :=
     z_DepthBoundsdNV_ovr_0(zmin, zmax);
     
   end;
   
   [PCUNotRestore]
-  glDrawTextureNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawTextureNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_draw_texture';
     
-    private static procedure z_DrawTextureNV_ovr_0(texture: UInt32; sampler: UInt32; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single);
-    external 'opengl32.dll' name 'glDrawTextureNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTextureNV(texture: UInt32; sampler: UInt32; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single) :=
+    private z_DrawTextureNV_adr := GetFuncAdr('glDrawTextureNV');
+    private z_DrawTextureNV_ovr_0 := GetFuncOrNil&(z_DrawTextureNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTextureNV(texture: gl_texture; sampler: gl_sampler; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single) :=
     z_DrawTextureNV_ovr_0(texture, sampler, x0, y0, x1, y1, z, s0, t0, s1, t1);
     
   end;
   
   [PCUNotRestore]
-  glDrawVulkanImageNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDrawVulkanImageNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_draw_vulkan_image';
     
-    private static procedure z_DrawVkImageNV_ovr_0(vkImage: UInt64; sampler: UInt32; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single);
-    external 'opengl32.dll' name 'glDrawVkImageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawVkImageNV(vkImage: UInt64; sampler: UInt32; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single) :=
+    private z_DrawVkImageNV_adr := GetFuncAdr('glDrawVkImageNV');
+    private z_DrawVkImageNV_ovr_0 := GetFuncOrNil&(z_DrawVkImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawVkImageNV(vkImage: UInt64; sampler: gl_sampler; x0: single; y0: single; x1: single; y1: single; z: single; s0: single; t0: single; s1: single; t1: single) :=
     z_DrawVkImageNV_ovr_0(vkImage, sampler, x0, y0, x1, y1, z, s0, t0, s1, t1);
     
-    private static function z_GetVkProcAddrNV_ovr_0(name: IntPtr): GLVULKANPROCNV;
-    external 'opengl32.dll' name 'glGetVkProcAddrNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVkProcAddrNV(name: string): GLVULKANPROCNV;
+    private z_GetVkProcAddrNV_adr := GetFuncAdr('glGetVkProcAddrNV');
+    private z_GetVkProcAddrNV_ovr_0 := GetFuncOrNil&(z_GetVkProcAddrNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVkProcAddrNV(name: string): GL_VULKAN_PROC_NV;
     begin
       var par_1_str_ptr: IntPtr;
       try
@@ -59756,1939 +58077,1647 @@ type
         Marshal.FreeHGlobal(par_1_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVkProcAddrNV(name: IntPtr): GLVULKANPROCNV :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVkProcAddrNV(name: IntPtr): GL_VULKAN_PROC_NV :=
     z_GetVkProcAddrNV_ovr_0(name);
     
-    private static procedure z_WaitVkSemaphoreNV_ovr_0(vkSemaphore: UInt64);
-    external 'opengl32.dll' name 'glWaitVkSemaphoreNV';
+    private z_WaitVkSemaphoreNV_adr := GetFuncAdr('glWaitVkSemaphoreNV');
+    private z_WaitVkSemaphoreNV_ovr_0 := GetFuncOrNil&(z_WaitVkSemaphoreNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitVkSemaphoreNV(vkSemaphore: UInt64) :=
     z_WaitVkSemaphoreNV_ovr_0(vkSemaphore);
     
-    private static procedure z_SignalVkSemaphoreNV_ovr_0(vkSemaphore: UInt64);
-    external 'opengl32.dll' name 'glSignalVkSemaphoreNV';
+    private z_SignalVkSemaphoreNV_adr := GetFuncAdr('glSignalVkSemaphoreNV');
+    private z_SignalVkSemaphoreNV_ovr_0 := GetFuncOrNil&(z_SignalVkSemaphoreNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalVkSemaphoreNV(vkSemaphore: UInt64) :=
     z_SignalVkSemaphoreNV_ovr_0(vkSemaphore);
     
-    private static procedure z_SignalVkFenceNV_ovr_0(vkFence: UInt64);
-    external 'opengl32.dll' name 'glSignalVkFenceNV';
+    private z_SignalVkFenceNV_adr := GetFuncAdr('glSignalVkFenceNV');
+    private z_SignalVkFenceNV_ovr_0 := GetFuncOrNil&(z_SignalVkFenceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalVkFenceNV(vkFence: UInt64) :=
     z_SignalVkFenceNV_ovr_0(vkFence);
     
   end;
   
   [PCUNotRestore]
-  glEvaluatorsNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glEvaluatorsNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_evaluators';
     
-    private static procedure z_MapControlPointsNV_ovr_0(target: EvalTargetNV; index: UInt32; &type: MapTypeNV; ustride: Int32; vstride: Int32; uorder: Int32; vorder: Int32; &packed: boolean; points: IntPtr);
-    external 'opengl32.dll' name 'glMapControlPointsNV';
+    private z_MapControlPointsNV_adr := GetFuncAdr('glMapControlPointsNV');
+    private z_MapControlPointsNV_ovr_0 := GetFuncOrNil&(z_MapControlPointsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapControlPointsNV(target: EvalTargetNV; index: UInt32; &type: MapTypeNV; ustride: Int32; vstride: Int32; uorder: Int32; vorder: Int32; &packed: boolean; points: IntPtr) :=
     z_MapControlPointsNV_ovr_0(target, index, &type, ustride, vstride, uorder, vorder, &packed, points);
     
-    private static procedure z_MapParameterivNV_ovr_0(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMapParameterivNV';
-    private static procedure z_MapParameterivNV_ovr_0_anh0001(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMapParameterivNV';
+    private z_MapParameterivNV_adr := GetFuncAdr('glMapParameterivNV');
+    private z_MapParameterivNV_ovr_0 := GetFuncOrNil&(z_MapParameterivNV_adr);
+    private z_MapParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_MapParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MapParameterivNV_ovr_0(target, pname, ¶ms[0]) else
       z_MapParameterivNV_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: Int32) :=
     z_MapParameterivNV_ovr_0(target, pname, ¶ms);
-    private static procedure z_MapParameterivNV_ovr_2(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMapParameterivNV';
+    private z_MapParameterivNV_ovr_2 := GetFuncOrNil&(z_MapParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr) :=
     z_MapParameterivNV_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_MapParameterfvNV_ovr_0(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glMapParameterfvNV';
-    private static procedure z_MapParameterfvNV_ovr_0_anh0001(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMapParameterfvNV';
+    private z_MapParameterfvNV_adr := GetFuncAdr('glMapParameterfvNV');
+    private z_MapParameterfvNV_ovr_0 := GetFuncOrNil&(z_MapParameterfvNV_adr);
+    private z_MapParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_MapParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MapParameterfvNV_ovr_0(target, pname, ¶ms[0]) else
       z_MapParameterfvNV_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: single) :=
     z_MapParameterfvNV_ovr_0(target, pname, ¶ms);
-    private static procedure z_MapParameterfvNV_ovr_2(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMapParameterfvNV';
+    private z_MapParameterfvNV_ovr_2 := GetFuncOrNil&(z_MapParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr) :=
     z_MapParameterfvNV_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMapControlPointsNV_ovr_0(target: EvalTargetNV; index: UInt32; &type: MapTypeNV; ustride: Int32; vstride: Int32; &packed: boolean; points: IntPtr);
-    external 'opengl32.dll' name 'glGetMapControlPointsNV';
+    private z_GetMapControlPointsNV_adr := GetFuncAdr('glGetMapControlPointsNV');
+    private z_GetMapControlPointsNV_ovr_0 := GetFuncOrNil&(z_GetMapControlPointsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapControlPointsNV(target: EvalTargetNV; index: UInt32; &type: MapTypeNV; ustride: Int32; vstride: Int32; &packed: boolean; points: IntPtr) :=
     z_GetMapControlPointsNV_ovr_0(target, index, &type, ustride, vstride, &packed, points);
     
-    private static procedure z_GetMapParameterivNV_ovr_0(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMapParameterivNV';
-    private static procedure z_GetMapParameterivNV_ovr_0_anh0001(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapParameterivNV';
+    private z_GetMapParameterivNV_adr := GetFuncAdr('glGetMapParameterivNV');
+    private z_GetMapParameterivNV_ovr_0 := GetFuncOrNil&(z_GetMapParameterivNV_adr);
+    private z_GetMapParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetMapParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMapParameterivNV_ovr_0(target, pname, ¶ms[0]) else
       z_GetMapParameterivNV_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: Int32) :=
     z_GetMapParameterivNV_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMapParameterivNV_ovr_2(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapParameterivNV';
+    private z_GetMapParameterivNV_ovr_2 := GetFuncOrNil&(z_GetMapParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterivNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr) :=
     z_GetMapParameterivNV_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMapParameterfvNV_ovr_0(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMapParameterfvNV';
-    private static procedure z_GetMapParameterfvNV_ovr_0_anh0001(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapParameterfvNV';
+    private z_GetMapParameterfvNV_adr := GetFuncAdr('glGetMapParameterfvNV');
+    private z_GetMapParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetMapParameterfvNV_adr);
+    private z_GetMapParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetMapParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMapParameterfvNV_ovr_0(target, pname, ¶ms[0]) else
       z_GetMapParameterfvNV_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; var ¶ms: single) :=
     z_GetMapParameterfvNV_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetMapParameterfvNV_ovr_2(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapParameterfvNV';
+    private z_GetMapParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetMapParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapParameterfvNV(target: EvalTargetNV; pname: MapParameterNV; ¶ms: IntPtr) :=
     z_GetMapParameterfvNV_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetMapAttribParameterivNV_ovr_0(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetMapAttribParameterivNV';
-    private static procedure z_GetMapAttribParameterivNV_ovr_0_anh00001(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapAttribParameterivNV';
+    private z_GetMapAttribParameterivNV_adr := GetFuncAdr('glGetMapAttribParameterivNV');
+    private z_GetMapAttribParameterivNV_ovr_0 := GetFuncOrNil&(z_GetMapAttribParameterivNV_adr);
+    private z_GetMapAttribParameterivNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetMapAttribParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterivNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMapAttribParameterivNV_ovr_0(target, index, pname, ¶ms[0]) else
       z_GetMapAttribParameterivNV_ovr_0_anh00001(target, index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterivNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; var ¶ms: Int32) :=
     z_GetMapAttribParameterivNV_ovr_0(target, index, pname, ¶ms);
-    private static procedure z_GetMapAttribParameterivNV_ovr_2(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapAttribParameterivNV';
+    private z_GetMapAttribParameterivNV_ovr_2 := GetFuncOrNil&(z_GetMapAttribParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterivNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr) :=
     z_GetMapAttribParameterivNV_ovr_2(target, index, pname, ¶ms);
     
-    private static procedure z_GetMapAttribParameterfvNV_ovr_0(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetMapAttribParameterfvNV';
-    private static procedure z_GetMapAttribParameterfvNV_ovr_0_anh00001(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapAttribParameterfvNV';
+    private z_GetMapAttribParameterfvNV_adr := GetFuncAdr('glGetMapAttribParameterfvNV');
+    private z_GetMapAttribParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetMapAttribParameterfvNV_adr);
+    private z_GetMapAttribParameterfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetMapAttribParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterfvNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMapAttribParameterfvNV_ovr_0(target, index, pname, ¶ms[0]) else
       z_GetMapAttribParameterfvNV_ovr_0_anh00001(target, index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterfvNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; var ¶ms: single) :=
     z_GetMapAttribParameterfvNV_ovr_0(target, index, pname, ¶ms);
-    private static procedure z_GetMapAttribParameterfvNV_ovr_2(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMapAttribParameterfvNV';
+    private z_GetMapAttribParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetMapAttribParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapAttribParameterfvNV(target: EvalTargetNV; index: UInt32; pname: MapAttribParameterNV; ¶ms: IntPtr) :=
     z_GetMapAttribParameterfvNV_ovr_2(target, index, pname, ¶ms);
     
-    private static procedure z_EvalMapsNV_ovr_0(target: EvalTargetNV; mode: EvalMapsModeNV);
-    external 'opengl32.dll' name 'glEvalMapsNV';
+    private z_EvalMapsNV_adr := GetFuncAdr('glEvalMapsNV');
+    private z_EvalMapsNV_ovr_0 := GetFuncOrNil&(z_EvalMapsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalMapsNV(target: EvalTargetNV; mode: EvalMapsModeNV) :=
     z_EvalMapsNV_ovr_0(target, mode);
     
   end;
   
   [PCUNotRestore]
-  glExplicitMultisampleNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glExplicitMultisampleNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_explicit_multisample';
     
-    private static procedure z_GetMultisamplefvNV_ovr_0(pname: GetMultisamplePNameNV; index: UInt32; var val: single);
-    external 'opengl32.dll' name 'glGetMultisamplefvNV';
-    private static procedure z_GetMultisamplefvNV_ovr_0_anh0001(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glGetMultisamplefvNV';
+    private z_GetMultisamplefvNV_adr := GetFuncAdr('glGetMultisamplefvNV');
+    private z_GetMultisamplefvNV_ovr_0 := GetFuncOrNil&(z_GetMultisamplefvNV_adr);
+    private z_GetMultisamplefvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetMultisamplefvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefvNV(pname: GetMultisamplePNameNV; index: UInt32; val: array of single) :=
     if (val<>nil) and (val.Length<>0) then
       z_GetMultisamplefvNV_ovr_0(pname, index, val[0]) else
       z_GetMultisamplefvNV_ovr_0_anh0001(pname, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefvNV(pname: GetMultisamplePNameNV; index: UInt32; var val: single) :=
     z_GetMultisamplefvNV_ovr_0(pname, index, val);
-    private static procedure z_GetMultisamplefvNV_ovr_2(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr);
-    external 'opengl32.dll' name 'glGetMultisamplefvNV';
+    private z_GetMultisamplefvNV_ovr_2 := GetFuncOrNil&(z_GetMultisamplefvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMultisamplefvNV(pname: GetMultisamplePNameNV; index: UInt32; val: IntPtr) :=
     z_GetMultisamplefvNV_ovr_2(pname, index, val);
     
-    private static procedure z_SampleMaskIndexedNV_ovr_0(index: UInt32; mask: DummyFlags);
-    external 'opengl32.dll' name 'glSampleMaskIndexedNV';
+    private z_SampleMaskIndexedNV_adr := GetFuncAdr('glSampleMaskIndexedNV');
+    private z_SampleMaskIndexedNV_ovr_0 := GetFuncOrNil&(z_SampleMaskIndexedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleMaskIndexedNV(index: UInt32; mask: DummyFlags) :=
     z_SampleMaskIndexedNV_ovr_0(index, mask);
     
-    private static procedure z_TexRenderbufferNV_ovr_0(target: TextureTarget; renderbuffer: UInt32);
-    external 'opengl32.dll' name 'glTexRenderbufferNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexRenderbufferNV(target: TextureTarget; renderbuffer: UInt32) :=
+    private z_TexRenderbufferNV_adr := GetFuncAdr('glTexRenderbufferNV');
+    private z_TexRenderbufferNV_ovr_0 := GetFuncOrNil&(z_TexRenderbufferNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexRenderbufferNV(target: TextureTarget; renderbuffer: gl_renderbuffer) :=
     z_TexRenderbufferNV_ovr_0(target, renderbuffer);
     
   end;
   
   [PCUNotRestore]
-  glFenceNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFenceNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_fence';
     
-    private static procedure z_DeleteFencesNV_ovr_0(n: Int32; var fences: UInt32);
-    external 'opengl32.dll' name 'glDeleteFencesNV';
-    private static procedure z_DeleteFencesNV_ovr_0_anh001(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFencesNV';
+    private z_DeleteFencesNV_adr := GetFuncAdr('glDeleteFencesNV');
+    private z_DeleteFencesNV_ovr_0 := GetFuncOrNil&(z_DeleteFencesNV_adr);
+    private z_DeleteFencesNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteFencesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesNV(n: Int32; fences: array of UInt32) :=
     if (fences<>nil) and (fences.Length<>0) then
       z_DeleteFencesNV_ovr_0(n, fences[0]) else
       z_DeleteFencesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesNV(n: Int32; var fences: UInt32) :=
     z_DeleteFencesNV_ovr_0(n, fences);
-    private static procedure z_DeleteFencesNV_ovr_2(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glDeleteFencesNV';
+    private z_DeleteFencesNV_ovr_2 := GetFuncOrNil&(z_DeleteFencesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteFencesNV(n: Int32; fences: IntPtr) :=
     z_DeleteFencesNV_ovr_2(n, fences);
     
-    private static procedure z_GenFencesNV_ovr_0(n: Int32; var fences: UInt32);
-    external 'opengl32.dll' name 'glGenFencesNV';
-    private static procedure z_GenFencesNV_ovr_0_anh001(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glGenFencesNV';
+    private z_GenFencesNV_adr := GetFuncAdr('glGenFencesNV');
+    private z_GenFencesNV_ovr_0 := GetFuncOrNil&(z_GenFencesNV_adr);
+    private z_GenFencesNV_ovr_0_anh001 := GetFuncOrNil&(z_GenFencesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesNV(n: Int32; fences: array of UInt32) :=
     if (fences<>nil) and (fences.Length<>0) then
       z_GenFencesNV_ovr_0(n, fences[0]) else
       z_GenFencesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesNV(n: Int32; var fences: UInt32) :=
     z_GenFencesNV_ovr_0(n, fences);
-    private static procedure z_GenFencesNV_ovr_2(n: Int32; fences: IntPtr);
-    external 'opengl32.dll' name 'glGenFencesNV';
+    private z_GenFencesNV_ovr_2 := GetFuncOrNil&(z_GenFencesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenFencesNV(n: Int32; fences: IntPtr) :=
     z_GenFencesNV_ovr_2(n, fences);
     
-    private static function z_IsFenceNV_ovr_0(fence: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsFenceNV';
+    private z_IsFenceNV_adr := GetFuncAdr('glIsFenceNV');
+    private z_IsFenceNV_ovr_0 := GetFuncOrNil&(z_IsFenceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsFenceNV(fence: UInt32): boolean :=
     z_IsFenceNV_ovr_0(fence);
     
-    private static function z_TestFenceNV_ovr_0(fence: UInt32): boolean;
-    external 'opengl32.dll' name 'glTestFenceNV';
+    private z_TestFenceNV_adr := GetFuncAdr('glTestFenceNV');
+    private z_TestFenceNV_ovr_0 := GetFuncOrNil&(z_TestFenceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function TestFenceNV(fence: UInt32): boolean :=
     z_TestFenceNV_ovr_0(fence);
     
-    private static procedure z_GetFenceivNV_ovr_0(fence: UInt32; pname: FenceParameterNameNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFenceivNV';
-    private static procedure z_GetFenceivNV_ovr_0_anh0001(fence: UInt32; pname: FenceParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFenceivNV';
+    private z_GetFenceivNV_adr := GetFuncAdr('glGetFenceivNV');
+    private z_GetFenceivNV_ovr_0 := GetFuncOrNil&(z_GetFenceivNV_adr);
+    private z_GetFenceivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetFenceivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFenceivNV(fence: UInt32; pname: FenceParameterNameNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFenceivNV_ovr_0(fence, pname, ¶ms[0]) else
       z_GetFenceivNV_ovr_0_anh0001(fence, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFenceivNV(fence: UInt32; pname: FenceParameterNameNV; var ¶ms: Int32) :=
     z_GetFenceivNV_ovr_0(fence, pname, ¶ms);
-    private static procedure z_GetFenceivNV_ovr_2(fence: UInt32; pname: FenceParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFenceivNV';
+    private z_GetFenceivNV_ovr_2 := GetFuncOrNil&(z_GetFenceivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFenceivNV(fence: UInt32; pname: FenceParameterNameNV; ¶ms: IntPtr) :=
     z_GetFenceivNV_ovr_2(fence, pname, ¶ms);
     
-    private static procedure z_FinishFenceNV_ovr_0(fence: UInt32);
-    external 'opengl32.dll' name 'glFinishFenceNV';
+    private z_FinishFenceNV_adr := GetFuncAdr('glFinishFenceNV');
+    private z_FinishFenceNV_ovr_0 := GetFuncOrNil&(z_FinishFenceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FinishFenceNV(fence: UInt32) :=
     z_FinishFenceNV_ovr_0(fence);
     
-    private static procedure z_SetFenceNV_ovr_0(fence: UInt32; condition: FenceConditionNV);
-    external 'opengl32.dll' name 'glSetFenceNV';
+    private z_SetFenceNV_adr := GetFuncAdr('glSetFenceNV');
+    private z_SetFenceNV_ovr_0 := GetFuncOrNil&(z_SetFenceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SetFenceNV(fence: UInt32; condition: FenceConditionNV) :=
     z_SetFenceNV_ovr_0(fence, condition);
     
   end;
   
   [PCUNotRestore]
-  glFragmentCoverageToColorNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFragmentCoverageToColorNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_fragment_coverage_to_color';
     
-    private static procedure z_FragmentCoverageColorNV_ovr_0(color: UInt32);
-    external 'opengl32.dll' name 'glFragmentCoverageColorNV';
+    private z_FragmentCoverageColorNV_adr := GetFuncAdr('glFragmentCoverageColorNV');
+    private z_FragmentCoverageColorNV_ovr_0 := GetFuncOrNil&(z_FragmentCoverageColorNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentCoverageColorNV(color: UInt32) :=
     z_FragmentCoverageColorNV_ovr_0(color);
     
   end;
   
   [PCUNotRestore]
-  glFragmentProgramNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFragmentProgramNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_fragment_program';
     
-    private static procedure z_ProgramNamedParameter4fNV_ovr_0(id: UInt32; len: Int32; var name: Byte; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fNV';
-    private static procedure z_ProgramNamedParameter4fNV_ovr_0_anh00010000(id: UInt32; len: Int32; name: IntPtr; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fNV(id: UInt32; len: Int32; name: array of Byte; x: single; y: single; z: single; w: single) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4fNV_ovr_0(id, len, name[0], x, y, z, w) else
-      z_ProgramNamedParameter4fNV_ovr_0_anh00010000(id, len, IntPtr.Zero, x, y, z, w);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fNV(id: UInt32; len: Int32; var name: Byte; x: single; y: single; z: single; w: single) :=
+    private z_ProgramNamedParameter4fNV_adr := GetFuncAdr('glProgramNamedParameter4fNV');
+    private z_ProgramNamedParameter4fNV_ovr_0 := GetFuncOrNil&(z_ProgramNamedParameter4fNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fNV(id: gl_program; len: Int32; var name: Byte; x: single; y: single; z: single; w: single) :=
     z_ProgramNamedParameter4fNV_ovr_0(id, len, name, x, y, z, w);
-    private static procedure z_ProgramNamedParameter4fNV_ovr_2(id: UInt32; len: Int32; name: IntPtr; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fNV(id: UInt32; len: Int32; name: IntPtr; x: single; y: single; z: single; w: single) :=
-    z_ProgramNamedParameter4fNV_ovr_2(id, len, name, x, y, z, w);
+    private z_ProgramNamedParameter4fNV_ovr_1 := GetFuncOrNil&(z_ProgramNamedParameter4fNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fNV(id: gl_program; len: Int32; name: IntPtr; x: single; y: single; z: single; w: single) :=
+    z_ProgramNamedParameter4fNV_ovr_1(id, len, name, x, y, z, w);
     
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_0(id: UInt32; len: Int32; var name: Byte; var v: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_0_anh00010(id: UInt32; len: Int32; name: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_0_anh00001(id: UInt32; len: Int32; var name: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_0_anh00011(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: array of Byte; v: array of single) :=
-    if (name<>nil) and (name.Length<>0) then
-      if (v<>nil) and (v.Length<>0) then
-        z_ProgramNamedParameter4fvNV_ovr_0(id, len, name[0], v[0]) else
-        z_ProgramNamedParameter4fvNV_ovr_0_anh00001(id, len, name[0], IntPtr.Zero) else
-      if (v<>nil) and (v.Length<>0) then
-        z_ProgramNamedParameter4fvNV_ovr_0_anh00010(id, len, IntPtr.Zero, v[0]) else
-        z_ProgramNamedParameter4fvNV_ovr_0_anh00011(id, len, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_1_anh00010(id: UInt32; len: Int32; name: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: array of Byte; var v: single) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4fvNV_ovr_0(id, len, name[0], v) else
-      z_ProgramNamedParameter4fvNV_ovr_0_anh00010(id, len, IntPtr.Zero, v);
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_2(id: UInt32; len: Int32; var name: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_2_anh00010(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: array of Byte; v: IntPtr) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4fvNV_ovr_2(id, len, name[0], v) else
-      z_ProgramNamedParameter4fvNV_ovr_2_anh00010(id, len, IntPtr.Zero, v);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; var name: Byte; v: array of single) :=
+    private z_ProgramNamedParameter4fvNV_adr := GetFuncAdr('glProgramNamedParameter4fvNV');
+    private z_ProgramNamedParameter4fvNV_ovr_0 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    private z_ProgramNamedParameter4fvNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; var name: Byte; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramNamedParameter4fvNV_ovr_0(id, len, name, v[0]) else
       z_ProgramNamedParameter4fvNV_ovr_0_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; var name: Byte; var v: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; var name: Byte; var v: single) :=
     z_ProgramNamedParameter4fvNV_ovr_0(id, len, name, v);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; var name: Byte; v: IntPtr) :=
+    private z_ProgramNamedParameter4fvNV_ovr_2 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; var name: Byte; v: IntPtr) :=
     z_ProgramNamedParameter4fvNV_ovr_2(id, len, name, v);
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_6(id: UInt32; len: Int32; name: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_6_anh00001(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: IntPtr; v: array of single) :=
+    private z_ProgramNamedParameter4fvNV_ovr_3 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    private z_ProgramNamedParameter4fvNV_ovr_3_anh00001 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; name: IntPtr; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
-      z_ProgramNamedParameter4fvNV_ovr_6(id, len, name, v[0]) else
-      z_ProgramNamedParameter4fvNV_ovr_6_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: IntPtr; var v: single) :=
-    z_ProgramNamedParameter4fvNV_ovr_6(id, len, name, v);
-    private static procedure z_ProgramNamedParameter4fvNV_ovr_8(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: UInt32; len: Int32; name: IntPtr; v: IntPtr) :=
-    z_ProgramNamedParameter4fvNV_ovr_8(id, len, name, v);
+      z_ProgramNamedParameter4fvNV_ovr_3(id, len, name, v[0]) else
+      z_ProgramNamedParameter4fvNV_ovr_3_anh00001(id, len, name, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; name: IntPtr; var v: single) :=
+    z_ProgramNamedParameter4fvNV_ovr_3(id, len, name, v);
+    private z_ProgramNamedParameter4fvNV_ovr_5 := GetFuncOrNil&(z_ProgramNamedParameter4fvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4fvNV(id: gl_program; len: Int32; name: IntPtr; v: IntPtr) :=
+    z_ProgramNamedParameter4fvNV_ovr_5(id, len, name, v);
     
-    private static procedure z_ProgramNamedParameter4dNV_ovr_0(id: UInt32; len: Int32; var name: Byte; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dNV';
-    private static procedure z_ProgramNamedParameter4dNV_ovr_0_anh00010000(id: UInt32; len: Int32; name: IntPtr; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dNV(id: UInt32; len: Int32; name: array of Byte; x: real; y: real; z: real; w: real) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4dNV_ovr_0(id, len, name[0], x, y, z, w) else
-      z_ProgramNamedParameter4dNV_ovr_0_anh00010000(id, len, IntPtr.Zero, x, y, z, w);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dNV(id: UInt32; len: Int32; var name: Byte; x: real; y: real; z: real; w: real) :=
+    private z_ProgramNamedParameter4dNV_adr := GetFuncAdr('glProgramNamedParameter4dNV');
+    private z_ProgramNamedParameter4dNV_ovr_0 := GetFuncOrNil&(z_ProgramNamedParameter4dNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dNV(id: gl_program; len: Int32; var name: Byte; x: real; y: real; z: real; w: real) :=
     z_ProgramNamedParameter4dNV_ovr_0(id, len, name, x, y, z, w);
-    private static procedure z_ProgramNamedParameter4dNV_ovr_2(id: UInt32; len: Int32; name: IntPtr; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dNV(id: UInt32; len: Int32; name: IntPtr; x: real; y: real; z: real; w: real) :=
-    z_ProgramNamedParameter4dNV_ovr_2(id, len, name, x, y, z, w);
+    private z_ProgramNamedParameter4dNV_ovr_1 := GetFuncOrNil&(z_ProgramNamedParameter4dNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dNV(id: gl_program; len: Int32; name: IntPtr; x: real; y: real; z: real; w: real) :=
+    z_ProgramNamedParameter4dNV_ovr_1(id, len, name, x, y, z, w);
     
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_0(id: UInt32; len: Int32; var name: Byte; var v: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_0_anh00010(id: UInt32; len: Int32; name: IntPtr; var v: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_0_anh00001(id: UInt32; len: Int32; var name: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_0_anh00011(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: array of Byte; v: array of real) :=
-    if (name<>nil) and (name.Length<>0) then
-      if (v<>nil) and (v.Length<>0) then
-        z_ProgramNamedParameter4dvNV_ovr_0(id, len, name[0], v[0]) else
-        z_ProgramNamedParameter4dvNV_ovr_0_anh00001(id, len, name[0], IntPtr.Zero) else
-      if (v<>nil) and (v.Length<>0) then
-        z_ProgramNamedParameter4dvNV_ovr_0_anh00010(id, len, IntPtr.Zero, v[0]) else
-        z_ProgramNamedParameter4dvNV_ovr_0_anh00011(id, len, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_1_anh00010(id: UInt32; len: Int32; name: IntPtr; var v: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: array of Byte; var v: real) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4dvNV_ovr_0(id, len, name[0], v) else
-      z_ProgramNamedParameter4dvNV_ovr_0_anh00010(id, len, IntPtr.Zero, v);
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_2(id: UInt32; len: Int32; var name: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_2_anh00010(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: array of Byte; v: IntPtr) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_ProgramNamedParameter4dvNV_ovr_2(id, len, name[0], v) else
-      z_ProgramNamedParameter4dvNV_ovr_2_anh00010(id, len, IntPtr.Zero, v);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; var name: Byte; v: array of real) :=
+    private z_ProgramNamedParameter4dvNV_adr := GetFuncAdr('glProgramNamedParameter4dvNV');
+    private z_ProgramNamedParameter4dvNV_ovr_0 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    private z_ProgramNamedParameter4dvNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; var name: Byte; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramNamedParameter4dvNV_ovr_0(id, len, name, v[0]) else
       z_ProgramNamedParameter4dvNV_ovr_0_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; var name: Byte; var v: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; var name: Byte; var v: real) :=
     z_ProgramNamedParameter4dvNV_ovr_0(id, len, name, v);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; var name: Byte; v: IntPtr) :=
+    private z_ProgramNamedParameter4dvNV_ovr_2 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; var name: Byte; v: IntPtr) :=
     z_ProgramNamedParameter4dvNV_ovr_2(id, len, name, v);
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_6(id: UInt32; len: Int32; name: IntPtr; var v: real);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_6_anh00001(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: IntPtr; v: array of real) :=
+    private z_ProgramNamedParameter4dvNV_ovr_3 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    private z_ProgramNamedParameter4dvNV_ovr_3_anh00001 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; name: IntPtr; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
-      z_ProgramNamedParameter4dvNV_ovr_6(id, len, name, v[0]) else
-      z_ProgramNamedParameter4dvNV_ovr_6_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: IntPtr; var v: real) :=
-    z_ProgramNamedParameter4dvNV_ovr_6(id, len, name, v);
-    private static procedure z_ProgramNamedParameter4dvNV_ovr_8(id: UInt32; len: Int32; name: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramNamedParameter4dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: UInt32; len: Int32; name: IntPtr; v: IntPtr) :=
-    z_ProgramNamedParameter4dvNV_ovr_8(id, len, name, v);
+      z_ProgramNamedParameter4dvNV_ovr_3(id, len, name, v[0]) else
+      z_ProgramNamedParameter4dvNV_ovr_3_anh00001(id, len, name, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; name: IntPtr; var v: real) :=
+    z_ProgramNamedParameter4dvNV_ovr_3(id, len, name, v);
+    private z_ProgramNamedParameter4dvNV_ovr_5 := GetFuncOrNil&(z_ProgramNamedParameter4dvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramNamedParameter4dvNV(id: gl_program; len: Int32; name: IntPtr; v: IntPtr) :=
+    z_ProgramNamedParameter4dvNV_ovr_5(id, len, name, v);
     
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_0(id: UInt32; len: Int32; var name: Byte; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_0_anh00010(id: UInt32; len: Int32; name: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_0_anh00001(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_0_anh00011(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: array of Byte; ¶ms: array of single) :=
-    if (name<>nil) and (name.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramNamedParameterfvNV_ovr_0(id, len, name[0], ¶ms[0]) else
-        z_GetProgramNamedParameterfvNV_ovr_0_anh00001(id, len, name[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramNamedParameterfvNV_ovr_0_anh00010(id, len, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramNamedParameterfvNV_ovr_0_anh00011(id, len, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_1_anh00010(id: UInt32; len: Int32; name: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: array of Byte; var ¶ms: single) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_GetProgramNamedParameterfvNV_ovr_0(id, len, name[0], ¶ms) else
-      z_GetProgramNamedParameterfvNV_ovr_0_anh00010(id, len, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_2(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_2_anh00010(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: array of Byte; ¶ms: IntPtr) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_GetProgramNamedParameterfvNV_ovr_2(id, len, name[0], ¶ms) else
-      z_GetProgramNamedParameterfvNV_ovr_2_anh00010(id, len, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; var name: Byte; ¶ms: array of single) :=
+    private z_GetProgramNamedParameterfvNV_adr := GetFuncAdr('glGetProgramNamedParameterfvNV');
+    private z_GetProgramNamedParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    private z_GetProgramNamedParameterfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; var name: Byte; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramNamedParameterfvNV_ovr_0(id, len, name, ¶ms[0]) else
       z_GetProgramNamedParameterfvNV_ovr_0_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; var name: Byte; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; var name: Byte; var ¶ms: single) :=
     z_GetProgramNamedParameterfvNV_ovr_0(id, len, name, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr) :=
+    private z_GetProgramNamedParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; var name: Byte; ¶ms: IntPtr) :=
     z_GetProgramNamedParameterfvNV_ovr_2(id, len, name, ¶ms);
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_6(id: UInt32; len: Int32; name: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_6_anh00001(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: IntPtr; ¶ms: array of single) :=
+    private z_GetProgramNamedParameterfvNV_ovr_3 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    private z_GetProgramNamedParameterfvNV_ovr_3_anh00001 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; name: IntPtr; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramNamedParameterfvNV_ovr_6(id, len, name, ¶ms[0]) else
-      z_GetProgramNamedParameterfvNV_ovr_6_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: IntPtr; var ¶ms: single) :=
-    z_GetProgramNamedParameterfvNV_ovr_6(id, len, name, ¶ms);
-    private static procedure z_GetProgramNamedParameterfvNV_ovr_8(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramNamedParameterfvNV_ovr_8(id, len, name, ¶ms);
+      z_GetProgramNamedParameterfvNV_ovr_3(id, len, name, ¶ms[0]) else
+      z_GetProgramNamedParameterfvNV_ovr_3_anh00001(id, len, name, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; name: IntPtr; var ¶ms: single) :=
+    z_GetProgramNamedParameterfvNV_ovr_3(id, len, name, ¶ms);
+    private z_GetProgramNamedParameterfvNV_ovr_5 := GetFuncOrNil&(z_GetProgramNamedParameterfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterfvNV(id: gl_program; len: Int32; name: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramNamedParameterfvNV_ovr_5(id, len, name, ¶ms);
     
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_0(id: UInt32; len: Int32; var name: Byte; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_0_anh00010(id: UInt32; len: Int32; name: IntPtr; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_0_anh00001(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_0_anh00011(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: array of Byte; ¶ms: array of real) :=
-    if (name<>nil) and (name.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramNamedParameterdvNV_ovr_0(id, len, name[0], ¶ms[0]) else
-        z_GetProgramNamedParameterdvNV_ovr_0_anh00001(id, len, name[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramNamedParameterdvNV_ovr_0_anh00010(id, len, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramNamedParameterdvNV_ovr_0_anh00011(id, len, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_1_anh00010(id: UInt32; len: Int32; name: IntPtr; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: array of Byte; var ¶ms: real) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_GetProgramNamedParameterdvNV_ovr_0(id, len, name[0], ¶ms) else
-      z_GetProgramNamedParameterdvNV_ovr_0_anh00010(id, len, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_2(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_2_anh00010(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: array of Byte; ¶ms: IntPtr) :=
-    if (name<>nil) and (name.Length<>0) then
-      z_GetProgramNamedParameterdvNV_ovr_2(id, len, name[0], ¶ms) else
-      z_GetProgramNamedParameterdvNV_ovr_2_anh00010(id, len, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; var name: Byte; ¶ms: array of real) :=
+    private z_GetProgramNamedParameterdvNV_adr := GetFuncAdr('glGetProgramNamedParameterdvNV');
+    private z_GetProgramNamedParameterdvNV_ovr_0 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    private z_GetProgramNamedParameterdvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; var name: Byte; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramNamedParameterdvNV_ovr_0(id, len, name, ¶ms[0]) else
       z_GetProgramNamedParameterdvNV_ovr_0_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; var name: Byte; var ¶ms: real) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; var name: Byte; var ¶ms: real) :=
     z_GetProgramNamedParameterdvNV_ovr_0(id, len, name, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; var name: Byte; ¶ms: IntPtr) :=
+    private z_GetProgramNamedParameterdvNV_ovr_2 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; var name: Byte; ¶ms: IntPtr) :=
     z_GetProgramNamedParameterdvNV_ovr_2(id, len, name, ¶ms);
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_6(id: UInt32; len: Int32; name: IntPtr; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_6_anh00001(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: IntPtr; ¶ms: array of real) :=
+    private z_GetProgramNamedParameterdvNV_ovr_3 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    private z_GetProgramNamedParameterdvNV_ovr_3_anh00001 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; name: IntPtr; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramNamedParameterdvNV_ovr_6(id, len, name, ¶ms[0]) else
-      z_GetProgramNamedParameterdvNV_ovr_6_anh00001(id, len, name, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: IntPtr; var ¶ms: real) :=
-    z_GetProgramNamedParameterdvNV_ovr_6(id, len, name, ¶ms);
-    private static procedure z_GetProgramNamedParameterdvNV_ovr_8(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramNamedParameterdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: UInt32; len: Int32; name: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramNamedParameterdvNV_ovr_8(id, len, name, ¶ms);
+      z_GetProgramNamedParameterdvNV_ovr_3(id, len, name, ¶ms[0]) else
+      z_GetProgramNamedParameterdvNV_ovr_3_anh00001(id, len, name, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; name: IntPtr; var ¶ms: real) :=
+    z_GetProgramNamedParameterdvNV_ovr_3(id, len, name, ¶ms);
+    private z_GetProgramNamedParameterdvNV_ovr_5 := GetFuncOrNil&(z_GetProgramNamedParameterdvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramNamedParameterdvNV(id: gl_program; len: Int32; name: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramNamedParameterdvNV_ovr_5(id, len, name, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferMixedSamplesNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferMixedSamplesNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_framebuffer_mixed_samples';
     
-    private static procedure z_RasterSamplesEXT_ovr_0(samples: UInt32; fixedsamplelocations: boolean);
-    external 'opengl32.dll' name 'glRasterSamplesEXT';
+    private z_RasterSamplesEXT_adr := GetFuncAdr('glRasterSamplesEXT');
+    private z_RasterSamplesEXT_ovr_0 := GetFuncOrNil&(z_RasterSamplesEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterSamplesEXT(samples: UInt32; fixedsamplelocations: boolean) :=
     z_RasterSamplesEXT_ovr_0(samples, fixedsamplelocations);
     
-    private static procedure z_CoverageModulationTableNV_ovr_0(n: Int32; var v: single);
-    external 'opengl32.dll' name 'glCoverageModulationTableNV';
-    private static procedure z_CoverageModulationTableNV_ovr_0_anh001(n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glCoverageModulationTableNV';
+    private z_CoverageModulationTableNV_adr := GetFuncAdr('glCoverageModulationTableNV');
+    private z_CoverageModulationTableNV_ovr_0 := GetFuncOrNil&(z_CoverageModulationTableNV_adr);
+    private z_CoverageModulationTableNV_ovr_0_anh001 := GetFuncOrNil&(z_CoverageModulationTableNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverageModulationTableNV(n: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_CoverageModulationTableNV_ovr_0(n, v[0]) else
       z_CoverageModulationTableNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverageModulationTableNV(n: Int32; var v: single) :=
     z_CoverageModulationTableNV_ovr_0(n, v);
-    private static procedure z_CoverageModulationTableNV_ovr_2(n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glCoverageModulationTableNV';
+    private z_CoverageModulationTableNV_ovr_2 := GetFuncOrNil&(z_CoverageModulationTableNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverageModulationTableNV(n: Int32; v: IntPtr) :=
     z_CoverageModulationTableNV_ovr_2(n, v);
     
-    private static procedure z_GetCoverageModulationTableNV_ovr_0(bufSize: Int32; var v: single);
-    external 'opengl32.dll' name 'glGetCoverageModulationTableNV';
-    private static procedure z_GetCoverageModulationTableNV_ovr_0_anh001(bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetCoverageModulationTableNV';
+    private z_GetCoverageModulationTableNV_adr := GetFuncAdr('glGetCoverageModulationTableNV');
+    private z_GetCoverageModulationTableNV_ovr_0 := GetFuncOrNil&(z_GetCoverageModulationTableNV_adr);
+    private z_GetCoverageModulationTableNV_ovr_0_anh001 := GetFuncOrNil&(z_GetCoverageModulationTableNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCoverageModulationTableNV(bufSize: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_GetCoverageModulationTableNV_ovr_0(bufSize, v[0]) else
       z_GetCoverageModulationTableNV_ovr_0_anh001(bufSize, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCoverageModulationTableNV(bufSize: Int32; var v: single) :=
     z_GetCoverageModulationTableNV_ovr_0(bufSize, v);
-    private static procedure z_GetCoverageModulationTableNV_ovr_2(bufSize: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glGetCoverageModulationTableNV';
+    private z_GetCoverageModulationTableNV_ovr_2 := GetFuncOrNil&(z_GetCoverageModulationTableNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCoverageModulationTableNV(bufSize: Int32; v: IntPtr) :=
     z_GetCoverageModulationTableNV_ovr_2(bufSize, v);
     
-    private static procedure z_CoverageModulationNV_ovr_0(components: DummyEnum);
-    external 'opengl32.dll' name 'glCoverageModulationNV';
+    private z_CoverageModulationNV_adr := GetFuncAdr('glCoverageModulationNV');
+    private z_CoverageModulationNV_ovr_0 := GetFuncOrNil&(z_CoverageModulationNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverageModulationNV(components: DummyEnum) :=
     z_CoverageModulationNV_ovr_0(components);
     
   end;
   
   [PCUNotRestore]
-  glFramebufferMultisampleCoverageNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramebufferMultisampleCoverageNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_framebuffer_multisample_coverage';
     
-    private static procedure z_RenderbufferStorageMultisampleCoverageNV_ovr_0(target: RenderbufferTarget; coverageSamples: Int32; colorSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glRenderbufferStorageMultisampleCoverageNV';
+    private z_RenderbufferStorageMultisampleCoverageNV_adr := GetFuncAdr('glRenderbufferStorageMultisampleCoverageNV');
+    private z_RenderbufferStorageMultisampleCoverageNV_ovr_0 := GetFuncOrNil&(z_RenderbufferStorageMultisampleCoverageNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderbufferStorageMultisampleCoverageNV(target: RenderbufferTarget; coverageSamples: Int32; colorSamples: Int32; _internalformat: InternalFormat; width: Int32; height: Int32) :=
     z_RenderbufferStorageMultisampleCoverageNV_ovr_0(target, coverageSamples, colorSamples, _internalformat, width, height);
     
   end;
   
   [PCUNotRestore]
-  glGeometryProgram4NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGeometryProgram4NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_geometry_program4';
     
-    private static procedure z_ProgramVertexLimitNV_ovr_0(target: ProgramTarget; limit: Int32);
-    external 'opengl32.dll' name 'glProgramVertexLimitNV';
+    private z_ProgramVertexLimitNV_adr := GetFuncAdr('glProgramVertexLimitNV');
+    private z_ProgramVertexLimitNV_ovr_0 := GetFuncOrNil&(z_ProgramVertexLimitNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramVertexLimitNV(target: ProgramTarget; limit: Int32) :=
     z_ProgramVertexLimitNV_ovr_0(target, limit);
     
-    private static procedure z_FramebufferTextureEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32) :=
+    private z_FramebufferTextureEXT_adr := GetFuncAdr('glFramebufferTextureEXT');
+    private z_FramebufferTextureEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTextureEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32) :=
     z_FramebufferTextureEXT_ovr_0(target, attachment, texture, level);
     
-    private static procedure z_FramebufferTextureLayerEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureLayerEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; layer: Int32) :=
+    private z_FramebufferTextureLayerEXT_adr := GetFuncAdr('glFramebufferTextureLayerEXT');
+    private z_FramebufferTextureLayerEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTextureLayerEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureLayerEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; layer: Int32) :=
     z_FramebufferTextureLayerEXT_ovr_0(target, attachment, texture, level, layer);
     
-    private static procedure z_FramebufferTextureFaceEXT_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget);
-    external 'opengl32.dll' name 'glFramebufferTextureFaceEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureFaceEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; face: TextureTarget) :=
+    private z_FramebufferTextureFaceEXT_adr := GetFuncAdr('glFramebufferTextureFaceEXT');
+    private z_FramebufferTextureFaceEXT_ovr_0 := GetFuncOrNil&(z_FramebufferTextureFaceEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureFaceEXT(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; face: TextureTarget) :=
     z_FramebufferTextureFaceEXT_ovr_0(target, attachment, texture, level, face);
     
   end;
   
   [PCUNotRestore]
-  glGpuProgram4NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuProgram4NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_gpu_program4';
     
-    private static procedure z_ProgramLocalParameterI4iNV_ovr_0(target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4iNV';
+    private z_ProgramLocalParameterI4iNV_adr := GetFuncAdr('glProgramLocalParameterI4iNV');
+    private z_ProgramLocalParameterI4iNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameterI4iNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4iNV(target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_ProgramLocalParameterI4iNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameterI4ivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4ivNV';
-    private static procedure z_ProgramLocalParameterI4ivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4ivNV';
+    private z_ProgramLocalParameterI4ivNV_adr := GetFuncAdr('glProgramLocalParameterI4ivNV');
+    private z_ProgramLocalParameterI4ivNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameterI4ivNV_adr);
+    private z_ProgramLocalParameterI4ivNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameterI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4ivNV(target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameterI4ivNV_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameterI4ivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4ivNV(target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_ProgramLocalParameterI4ivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameterI4ivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4ivNV';
+    private z_ProgramLocalParameterI4ivNV_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameterI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4ivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameterI4ivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParametersI4ivNV_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4ivNV';
-    private static procedure z_ProgramLocalParametersI4ivNV_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4ivNV';
+    private z_ProgramLocalParametersI4ivNV_adr := GetFuncAdr('glProgramLocalParametersI4ivNV');
+    private z_ProgramLocalParametersI4ivNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParametersI4ivNV_adr);
+    private z_ProgramLocalParametersI4ivNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramLocalParametersI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParametersI4ivNV_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramLocalParametersI4ivNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32) :=
     z_ProgramLocalParametersI4ivNV_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramLocalParametersI4ivNV_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4ivNV';
+    private z_ProgramLocalParametersI4ivNV_ovr_2 := GetFuncOrNil&(z_ProgramLocalParametersI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramLocalParametersI4ivNV_ovr_2(target, index, count, ¶ms);
     
-    private static procedure z_ProgramLocalParameterI4uiNV_ovr_0(target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4uiNV';
+    private z_ProgramLocalParameterI4uiNV_adr := GetFuncAdr('glProgramLocalParameterI4uiNV');
+    private z_ProgramLocalParameterI4uiNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameterI4uiNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4uiNV(target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32) :=
     z_ProgramLocalParameterI4uiNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramLocalParameterI4uivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4uivNV';
-    private static procedure z_ProgramLocalParameterI4uivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4uivNV';
+    private z_ProgramLocalParameterI4uivNV_adr := GetFuncAdr('glProgramLocalParameterI4uivNV');
+    private z_ProgramLocalParameterI4uivNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParameterI4uivNV_adr);
+    private z_ProgramLocalParameterI4uivNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramLocalParameterI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4uivNV(target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParameterI4uivNV_ovr_0(target, index, ¶ms[0]) else
       z_ProgramLocalParameterI4uivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4uivNV(target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_ProgramLocalParameterI4uivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramLocalParameterI4uivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParameterI4uivNV';
+    private z_ProgramLocalParameterI4uivNV_ovr_2 := GetFuncOrNil&(z_ProgramLocalParameterI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParameterI4uivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramLocalParameterI4uivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramLocalParametersI4uivNV_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4uivNV';
-    private static procedure z_ProgramLocalParametersI4uivNV_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4uivNV';
+    private z_ProgramLocalParametersI4uivNV_adr := GetFuncAdr('glProgramLocalParametersI4uivNV');
+    private z_ProgramLocalParametersI4uivNV_ovr_0 := GetFuncOrNil&(z_ProgramLocalParametersI4uivNV_adr);
+    private z_ProgramLocalParametersI4uivNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramLocalParametersI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramLocalParametersI4uivNV_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramLocalParametersI4uivNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32) :=
     z_ProgramLocalParametersI4uivNV_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramLocalParametersI4uivNV_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramLocalParametersI4uivNV';
+    private z_ProgramLocalParametersI4uivNV_ovr_2 := GetFuncOrNil&(z_ProgramLocalParametersI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramLocalParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramLocalParametersI4uivNV_ovr_2(target, index, count, ¶ms);
     
-    private static procedure z_ProgramEnvParameterI4iNV_ovr_0(target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4iNV';
+    private z_ProgramEnvParameterI4iNV_adr := GetFuncAdr('glProgramEnvParameterI4iNV');
+    private z_ProgramEnvParameterI4iNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameterI4iNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4iNV(target: ProgramTarget; index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_ProgramEnvParameterI4iNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameterI4ivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4ivNV';
-    private static procedure z_ProgramEnvParameterI4ivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4ivNV';
+    private z_ProgramEnvParameterI4ivNV_adr := GetFuncAdr('glProgramEnvParameterI4ivNV');
+    private z_ProgramEnvParameterI4ivNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameterI4ivNV_adr);
+    private z_ProgramEnvParameterI4ivNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameterI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4ivNV(target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameterI4ivNV_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameterI4ivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4ivNV(target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_ProgramEnvParameterI4ivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameterI4ivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4ivNV';
+    private z_ProgramEnvParameterI4ivNV_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameterI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4ivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameterI4ivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramEnvParametersI4ivNV_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4ivNV';
-    private static procedure z_ProgramEnvParametersI4ivNV_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4ivNV';
+    private z_ProgramEnvParametersI4ivNV_adr := GetFuncAdr('glProgramEnvParametersI4ivNV');
+    private z_ProgramEnvParametersI4ivNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParametersI4ivNV_adr);
+    private z_ProgramEnvParametersI4ivNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramEnvParametersI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParametersI4ivNV_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramEnvParametersI4ivNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: Int32) :=
     z_ProgramEnvParametersI4ivNV_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramEnvParametersI4ivNV_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4ivNV';
+    private z_ProgramEnvParametersI4ivNV_ovr_2 := GetFuncOrNil&(z_ProgramEnvParametersI4ivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4ivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramEnvParametersI4ivNV_ovr_2(target, index, count, ¶ms);
     
-    private static procedure z_ProgramEnvParameterI4uiNV_ovr_0(target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4uiNV';
+    private z_ProgramEnvParameterI4uiNV_adr := GetFuncAdr('glProgramEnvParameterI4uiNV');
+    private z_ProgramEnvParameterI4uiNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameterI4uiNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4uiNV(target: ProgramTarget; index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32) :=
     z_ProgramEnvParameterI4uiNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramEnvParameterI4uivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4uivNV';
-    private static procedure z_ProgramEnvParameterI4uivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4uivNV';
+    private z_ProgramEnvParameterI4uivNV_adr := GetFuncAdr('glProgramEnvParameterI4uivNV');
+    private z_ProgramEnvParameterI4uivNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParameterI4uivNV_adr);
+    private z_ProgramEnvParameterI4uivNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramEnvParameterI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4uivNV(target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParameterI4uivNV_ovr_0(target, index, ¶ms[0]) else
       z_ProgramEnvParameterI4uivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4uivNV(target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_ProgramEnvParameterI4uivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_ProgramEnvParameterI4uivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParameterI4uivNV';
+    private z_ProgramEnvParameterI4uivNV_ovr_2 := GetFuncOrNil&(z_ProgramEnvParameterI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParameterI4uivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_ProgramEnvParameterI4uivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_ProgramEnvParametersI4uivNV_ovr_0(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4uivNV';
-    private static procedure z_ProgramEnvParametersI4uivNV_ovr_0_anh00001(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4uivNV';
+    private z_ProgramEnvParametersI4uivNV_adr := GetFuncAdr('glProgramEnvParametersI4uivNV');
+    private z_ProgramEnvParametersI4uivNV_ovr_0 := GetFuncOrNil&(z_ProgramEnvParametersI4uivNV_adr);
+    private z_ProgramEnvParametersI4uivNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramEnvParametersI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramEnvParametersI4uivNV_ovr_0(target, index, count, ¶ms[0]) else
       z_ProgramEnvParametersI4uivNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; var ¶ms: UInt32) :=
     z_ProgramEnvParametersI4uivNV_ovr_0(target, index, count, ¶ms);
-    private static procedure z_ProgramEnvParametersI4uivNV_ovr_2(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramEnvParametersI4uivNV';
+    private z_ProgramEnvParametersI4uivNV_ovr_2 := GetFuncOrNil&(z_ProgramEnvParametersI4uivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramEnvParametersI4uivNV(target: ProgramTarget; index: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramEnvParametersI4uivNV_ovr_2(target, index, count, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterIivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIivNV';
-    private static procedure z_GetProgramLocalParameterIivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIivNV';
+    private z_GetProgramLocalParameterIivNV_adr := GetFuncAdr('glGetProgramLocalParameterIivNV');
+    private z_GetProgramLocalParameterIivNV_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterIivNV_adr);
+    private z_GetProgramLocalParameterIivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIivNV(target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterIivNV_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterIivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIivNV(target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_GetProgramLocalParameterIivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterIivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIivNV';
+    private z_GetProgramLocalParameterIivNV_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterIivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramLocalParameterIuivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIuivNV';
-    private static procedure z_GetProgramLocalParameterIuivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIuivNV';
+    private z_GetProgramLocalParameterIuivNV_adr := GetFuncAdr('glGetProgramLocalParameterIuivNV');
+    private z_GetProgramLocalParameterIuivNV_ovr_0 := GetFuncOrNil&(z_GetProgramLocalParameterIuivNV_adr);
+    private z_GetProgramLocalParameterIuivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramLocalParameterIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIuivNV(target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramLocalParameterIuivNV_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramLocalParameterIuivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIuivNV(target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_GetProgramLocalParameterIuivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramLocalParameterIuivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramLocalParameterIuivNV';
+    private z_GetProgramLocalParameterIuivNV_ovr_2 := GetFuncOrNil&(z_GetProgramLocalParameterIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramLocalParameterIuivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramLocalParameterIuivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterIivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIivNV';
-    private static procedure z_GetProgramEnvParameterIivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIivNV';
+    private z_GetProgramEnvParameterIivNV_adr := GetFuncAdr('glGetProgramEnvParameterIivNV');
+    private z_GetProgramEnvParameterIivNV_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterIivNV_adr);
+    private z_GetProgramEnvParameterIivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIivNV(target: ProgramTarget; index: UInt32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterIivNV_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterIivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIivNV(target: ProgramTarget; index: UInt32; var ¶ms: Int32) :=
     z_GetProgramEnvParameterIivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterIivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIivNV';
+    private z_GetProgramEnvParameterIivNV_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterIivNV_ovr_2(target, index, ¶ms);
     
-    private static procedure z_GetProgramEnvParameterIuivNV_ovr_0(target: ProgramTarget; index: UInt32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIuivNV';
-    private static procedure z_GetProgramEnvParameterIuivNV_ovr_0_anh0001(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIuivNV';
+    private z_GetProgramEnvParameterIuivNV_adr := GetFuncAdr('glGetProgramEnvParameterIuivNV');
+    private z_GetProgramEnvParameterIuivNV_ovr_0 := GetFuncOrNil&(z_GetProgramEnvParameterIuivNV_adr);
+    private z_GetProgramEnvParameterIuivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramEnvParameterIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIuivNV(target: ProgramTarget; index: UInt32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramEnvParameterIuivNV_ovr_0(target, index, ¶ms[0]) else
       z_GetProgramEnvParameterIuivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIuivNV(target: ProgramTarget; index: UInt32; var ¶ms: UInt32) :=
     z_GetProgramEnvParameterIuivNV_ovr_0(target, index, ¶ms);
-    private static procedure z_GetProgramEnvParameterIuivNV_ovr_2(target: ProgramTarget; index: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramEnvParameterIuivNV';
+    private z_GetProgramEnvParameterIuivNV_ovr_2 := GetFuncOrNil&(z_GetProgramEnvParameterIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramEnvParameterIuivNV(target: ProgramTarget; index: UInt32; ¶ms: IntPtr) :=
     z_GetProgramEnvParameterIuivNV_ovr_2(target, index, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glGpuProgram5NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuProgram5NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_gpu_program5';
     
-    private static procedure z_ProgramSubroutineParametersuivNV_ovr_0(target: DummyEnum; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramSubroutineParametersuivNV';
-    private static procedure z_ProgramSubroutineParametersuivNV_ovr_0_anh0001(target: DummyEnum; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramSubroutineParametersuivNV';
+    private z_ProgramSubroutineParametersuivNV_adr := GetFuncAdr('glProgramSubroutineParametersuivNV');
+    private z_ProgramSubroutineParametersuivNV_ovr_0 := GetFuncOrNil&(z_ProgramSubroutineParametersuivNV_adr);
+    private z_ProgramSubroutineParametersuivNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramSubroutineParametersuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramSubroutineParametersuivNV(target: DummyEnum; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramSubroutineParametersuivNV_ovr_0(target, count, ¶ms[0]) else
       z_ProgramSubroutineParametersuivNV_ovr_0_anh0001(target, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramSubroutineParametersuivNV(target: DummyEnum; count: Int32; var ¶ms: UInt32) :=
     z_ProgramSubroutineParametersuivNV_ovr_0(target, count, ¶ms);
-    private static procedure z_ProgramSubroutineParametersuivNV_ovr_2(target: DummyEnum; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramSubroutineParametersuivNV';
+    private z_ProgramSubroutineParametersuivNV_ovr_2 := GetFuncOrNil&(z_ProgramSubroutineParametersuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramSubroutineParametersuivNV(target: DummyEnum; count: Int32; ¶ms: IntPtr) :=
     z_ProgramSubroutineParametersuivNV_ovr_2(target, count, ¶ms);
     
-    private static procedure z_GetProgramSubroutineParameteruivNV_ovr_0(target: DummyEnum; index: UInt32; var param: UInt32);
-    external 'opengl32.dll' name 'glGetProgramSubroutineParameteruivNV';
-    private static procedure z_GetProgramSubroutineParameteruivNV_ovr_0_anh0001(target: DummyEnum; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramSubroutineParameteruivNV';
+    private z_GetProgramSubroutineParameteruivNV_adr := GetFuncAdr('glGetProgramSubroutineParameteruivNV');
+    private z_GetProgramSubroutineParameteruivNV_ovr_0 := GetFuncOrNil&(z_GetProgramSubroutineParameteruivNV_adr);
+    private z_GetProgramSubroutineParameteruivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramSubroutineParameteruivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramSubroutineParameteruivNV(target: DummyEnum; index: UInt32; param: array of UInt32) :=
     if (param<>nil) and (param.Length<>0) then
       z_GetProgramSubroutineParameteruivNV_ovr_0(target, index, param[0]) else
       z_GetProgramSubroutineParameteruivNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramSubroutineParameteruivNV(target: DummyEnum; index: UInt32; var param: UInt32) :=
     z_GetProgramSubroutineParameteruivNV_ovr_0(target, index, param);
-    private static procedure z_GetProgramSubroutineParameteruivNV_ovr_2(target: DummyEnum; index: UInt32; param: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramSubroutineParameteruivNV';
+    private z_GetProgramSubroutineParameteruivNV_ovr_2 := GetFuncOrNil&(z_GetProgramSubroutineParameteruivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramSubroutineParameteruivNV(target: DummyEnum; index: UInt32; param: IntPtr) :=
     z_GetProgramSubroutineParameteruivNV_ovr_2(target, index, param);
     
   end;
   
   [PCUNotRestore]
-  glGpuShader5NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuShader5NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_gpu_shader5';
     
-    private static procedure z_Uniform1i64NV_ovr_0(location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glUniform1i64NV';
+    private z_Uniform1i64NV_adr := GetFuncAdr('glUniform1i64NV');
+    private z_Uniform1i64NV_ovr_0 := GetFuncOrNil&(z_Uniform1i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64NV(location: Int32; x: Int64) :=
     z_Uniform1i64NV_ovr_0(location, x);
     
-    private static procedure z_Uniform2i64NV_ovr_0(location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glUniform2i64NV';
+    private z_Uniform2i64NV_adr := GetFuncAdr('glUniform2i64NV');
+    private z_Uniform2i64NV_ovr_0 := GetFuncOrNil&(z_Uniform2i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64NV(location: Int32; x: Int64; y: Int64) :=
     z_Uniform2i64NV_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3i64NV_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glUniform3i64NV';
+    private z_Uniform3i64NV_adr := GetFuncAdr('glUniform3i64NV');
+    private z_Uniform3i64NV_ovr_0 := GetFuncOrNil&(z_Uniform3i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64NV(location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_Uniform3i64NV_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4i64NV_ovr_0(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glUniform4i64NV';
+    private z_Uniform4i64NV_adr := GetFuncAdr('glUniform4i64NV');
+    private z_Uniform4i64NV_ovr_0 := GetFuncOrNil&(z_Uniform4i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64NV(location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_Uniform4i64NV_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
-    private static procedure z_Uniform1i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
+    private z_Uniform1i64vNV_adr := GetFuncAdr('glUniform1i64vNV');
+    private z_Uniform1i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
+    private z_Uniform1i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform1i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform1i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform1i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1i64vNV';
+    private z_Uniform1i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
-    private static procedure z_Uniform2i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
+    private z_Uniform2i64vNV_adr := GetFuncAdr('glUniform2i64vNV');
+    private z_Uniform2i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
+    private z_Uniform2i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform2i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform2i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform2i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2i64vNV';
+    private z_Uniform2i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
-    private static procedure z_Uniform3i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
+    private z_Uniform3i64vNV_adr := GetFuncAdr('glUniform3i64vNV');
+    private z_Uniform3i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
+    private z_Uniform3i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform3i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform3i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform3i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3i64vNV';
+    private z_Uniform3i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4i64vNV_ovr_0(location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
-    private static procedure z_Uniform4i64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
+    private z_Uniform4i64vNV_adr := GetFuncAdr('glUniform4i64vNV');
+    private z_Uniform4i64vNV_ovr_0 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
+    private z_Uniform4i64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4i64vNV_ovr_0(location, count, value[0]) else
       z_Uniform4i64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; var value: Int64) :=
     z_Uniform4i64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform4i64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4i64vNV';
+    private z_Uniform4i64vNV_ovr_2 := GetFuncOrNil&(z_Uniform4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4i64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4i64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform1ui64NV_ovr_0(location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64NV';
+    private z_Uniform1ui64NV_adr := GetFuncAdr('glUniform1ui64NV');
+    private z_Uniform1ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform1ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64NV(location: Int32; x: UInt64) :=
     z_Uniform1ui64NV_ovr_0(location, x);
     
-    private static procedure z_Uniform2ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64NV';
+    private z_Uniform2ui64NV_adr := GetFuncAdr('glUniform2ui64NV');
+    private z_Uniform2ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform2ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64NV(location: Int32; x: UInt64; y: UInt64) :=
     z_Uniform2ui64NV_ovr_0(location, x, y);
     
-    private static procedure z_Uniform3ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64NV';
+    private z_Uniform3ui64NV_adr := GetFuncAdr('glUniform3ui64NV');
+    private z_Uniform3ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform3ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64NV(location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_Uniform3ui64NV_ovr_0(location, x, y, z);
     
-    private static procedure z_Uniform4ui64NV_ovr_0(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64NV';
+    private z_Uniform4ui64NV_adr := GetFuncAdr('glUniform4ui64NV');
+    private z_Uniform4ui64NV_ovr_0 := GetFuncOrNil&(z_Uniform4ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64NV(location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_Uniform4ui64NV_ovr_0(location, x, y, z, w);
     
-    private static procedure z_Uniform1ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
-    private static procedure z_Uniform1ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
+    private z_Uniform1ui64vNV_adr := GetFuncAdr('glUniform1ui64vNV');
+    private z_Uniform1ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
+    private z_Uniform1ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform1ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform1ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform1ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform1ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform1ui64vNV';
+    private z_Uniform1ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform1ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform1ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform2ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
-    private static procedure z_Uniform2ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
+    private z_Uniform2ui64vNV_adr := GetFuncAdr('glUniform2ui64vNV');
+    private z_Uniform2ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
+    private z_Uniform2ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform2ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform2ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform2ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform2ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform2ui64vNV';
+    private z_Uniform2ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform2ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform2ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform3ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
-    private static procedure z_Uniform3ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
+    private z_Uniform3ui64vNV_adr := GetFuncAdr('glUniform3ui64vNV');
+    private z_Uniform3ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
+    private z_Uniform3ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform3ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform3ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform3ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform3ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform3ui64vNV';
+    private z_Uniform3ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform3ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform3ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_Uniform4ui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
-    private static procedure z_Uniform4ui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
+    private z_Uniform4ui64vNV_adr := GetFuncAdr('glUniform4ui64vNV');
+    private z_Uniform4ui64vNV_ovr_0 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
+    private z_Uniform4ui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniform4ui64vNV_ovr_0(location, count, value[0]) else
       z_Uniform4ui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniform4ui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniform4ui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniform4ui64vNV';
+    private z_Uniform4ui64vNV_ovr_2 := GetFuncOrNil&(z_Uniform4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniform4ui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniform4ui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_GetUniformi64vNV_ovr_0(&program: UInt32; location: Int32; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    private static procedure z_GetUniformi64vNV_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; ¶ms: array of Int64) :=
+    private z_GetUniformi64vNV_adr := GetFuncAdr('glGetUniformi64vNV');
+    private z_GetUniformi64vNV_ovr_0 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    private z_GetUniformi64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformi64vNV_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformi64vNV_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; var ¶ms: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; var ¶ms: Int64) :=
     z_GetUniformi64vNV_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformi64vNV_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformi64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformi64vNV_ovr_2 := GetFuncOrNil&(z_GetUniformi64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformi64vNV(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformi64vNV_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_ProgramUniform1i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64NV(&program: UInt32; location: Int32; x: Int64) :=
+    private z_ProgramUniform1i64NV_adr := GetFuncAdr('glProgramUniform1i64NV');
+    private z_ProgramUniform1i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64NV(&program: gl_program; location: Int32; x: Int64) :=
     z_ProgramUniform1i64NV_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64) :=
+    private z_ProgramUniform2i64NV_adr := GetFuncAdr('glProgramUniform2i64NV');
+    private z_ProgramUniform2i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64) :=
     z_ProgramUniform2i64NV_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64) :=
+    private z_ProgramUniform3i64NV_adr := GetFuncAdr('glProgramUniform3i64NV');
+    private z_ProgramUniform3i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64) :=
     z_ProgramUniform3i64NV_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4i64NV_ovr_0(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64NV(&program: UInt32; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
+    private z_ProgramUniform4i64NV_adr := GetFuncAdr('glProgramUniform4i64NV');
+    private z_ProgramUniform4i64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64NV(&program: gl_program; location: Int32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_ProgramUniform4i64NV_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    private static procedure z_ProgramUniform1i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform1i64vNV_adr := GetFuncAdr('glProgramUniform1i64vNV');
+    private z_ProgramUniform1i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    private z_ProgramUniform1i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform1i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform1i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    private static procedure z_ProgramUniform2i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform2i64vNV_adr := GetFuncAdr('glProgramUniform2i64vNV');
+    private z_ProgramUniform2i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    private z_ProgramUniform2i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform2i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform2i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    private static procedure z_ProgramUniform3i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform3i64vNV_adr := GetFuncAdr('glProgramUniform3i64vNV');
+    private z_ProgramUniform3i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    private z_ProgramUniform3i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform3i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform3i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4i64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: Int64);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    private static procedure z_ProgramUniform4i64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; value: array of Int64) :=
+    private z_ProgramUniform4i64vNV_adr := GetFuncAdr('glProgramUniform4i64vNV');
+    private z_ProgramUniform4i64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    private z_ProgramUniform4i64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; value: array of Int64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4i64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4i64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; var value: Int64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; var value: Int64) :=
     z_ProgramUniform4i64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4i64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4i64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform4i64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4i64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4i64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform1ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64NV(&program: UInt32; location: Int32; x: UInt64) :=
+    private z_ProgramUniform1ui64NV_adr := GetFuncAdr('glProgramUniform1ui64NV');
+    private z_ProgramUniform1ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64NV(&program: gl_program; location: Int32; x: UInt64) :=
     z_ProgramUniform1ui64NV_ovr_0(&program, location, x);
     
-    private static procedure z_ProgramUniform2ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64) :=
+    private z_ProgramUniform2ui64NV_adr := GetFuncAdr('glProgramUniform2ui64NV');
+    private z_ProgramUniform2ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64) :=
     z_ProgramUniform2ui64NV_ovr_0(&program, location, x, y);
     
-    private static procedure z_ProgramUniform3ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
+    private z_ProgramUniform3ui64NV_adr := GetFuncAdr('glProgramUniform3ui64NV');
+    private z_ProgramUniform3ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64) :=
     z_ProgramUniform3ui64NV_ovr_0(&program, location, x, y, z);
     
-    private static procedure z_ProgramUniform4ui64NV_ovr_0(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64NV(&program: UInt32; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
+    private z_ProgramUniform4ui64NV_adr := GetFuncAdr('glProgramUniform4ui64NV');
+    private z_ProgramUniform4ui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64NV(&program: gl_program; location: Int32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_ProgramUniform4ui64NV_ovr_0(&program, location, x, y, z, w);
     
-    private static procedure z_ProgramUniform1ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    private static procedure z_ProgramUniform1ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform1ui64vNV_adr := GetFuncAdr('glProgramUniform1ui64vNV');
+    private z_ProgramUniform1ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    private z_ProgramUniform1ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform1ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform1ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform1ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform1ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform1ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform1ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform1ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform1ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform1ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform2ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    private static procedure z_ProgramUniform2ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform2ui64vNV_adr := GetFuncAdr('glProgramUniform2ui64vNV');
+    private z_ProgramUniform2ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    private z_ProgramUniform2ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform2ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform2ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform2ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform2ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform2ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform2ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform2ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform2ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform2ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform3ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    private static procedure z_ProgramUniform3ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform3ui64vNV_adr := GetFuncAdr('glProgramUniform3ui64vNV');
+    private z_ProgramUniform3ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    private z_ProgramUniform3ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform3ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform3ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform3ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform3ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform3ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform3ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform3ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform3ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform3ui64vNV_ovr_2(&program, location, count, value);
     
-    private static procedure z_ProgramUniform4ui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    private static procedure z_ProgramUniform4ui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniform4ui64vNV_adr := GetFuncAdr('glProgramUniform4ui64vNV');
+    private z_ProgramUniform4ui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    private z_ProgramUniform4ui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniform4ui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniform4ui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniform4ui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniform4ui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniform4ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniform4ui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniform4ui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniform4ui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniform4ui64vNV_ovr_2(&program, location, count, value);
     
   end;
   
   [PCUNotRestore]
-  glHalfFloatNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glHalfFloatNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_half_float';
     
-    private static procedure z_Vertex2hNV_ovr_0(x: Half; y: Half);
-    external 'opengl32.dll' name 'glVertex2hNV';
+    private z_Vertex2hNV_adr := GetFuncAdr('glVertex2hNV');
+    private z_Vertex2hNV_ovr_0 := GetFuncOrNil&(z_Vertex2hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2hNV(x: Half; y: Half) :=
     z_Vertex2hNV_ovr_0(x, y);
     
-    private static procedure z_Vertex2hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glVertex2hvNV';
-    private static procedure z_Vertex2hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2hvNV';
+    private z_Vertex2hvNV_adr := GetFuncAdr('glVertex2hvNV');
+    private z_Vertex2hvNV_ovr_0 := GetFuncOrNil&(z_Vertex2hvNV_adr);
+    private z_Vertex2hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Vertex2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Vertex2hvNV_ovr_0(v[0]) else
       z_Vertex2hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2hvNV(var v: Half) :=
     z_Vertex2hvNV_ovr_0(v);
-    private static procedure z_Vertex2hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex2hvNV';
+    private z_Vertex2hvNV_ovr_2 := GetFuncOrNil&(z_Vertex2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2hvNV(v: IntPtr) :=
     z_Vertex2hvNV_ovr_2(v);
     
-    private static procedure z_Vertex3hNV_ovr_0(x: Half; y: Half; z: Half);
-    external 'opengl32.dll' name 'glVertex3hNV';
+    private z_Vertex3hNV_adr := GetFuncAdr('glVertex3hNV');
+    private z_Vertex3hNV_ovr_0 := GetFuncOrNil&(z_Vertex3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3hNV(x: Half; y: Half; z: Half) :=
     z_Vertex3hNV_ovr_0(x, y, z);
     
-    private static procedure z_Vertex3hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glVertex3hvNV';
-    private static procedure z_Vertex3hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3hvNV';
+    private z_Vertex3hvNV_adr := GetFuncAdr('glVertex3hvNV');
+    private z_Vertex3hvNV_ovr_0 := GetFuncOrNil&(z_Vertex3hvNV_adr);
+    private z_Vertex3hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Vertex3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Vertex3hvNV_ovr_0(v[0]) else
       z_Vertex3hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3hvNV(var v: Half) :=
     z_Vertex3hvNV_ovr_0(v);
-    private static procedure z_Vertex3hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex3hvNV';
+    private z_Vertex3hvNV_ovr_2 := GetFuncOrNil&(z_Vertex3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3hvNV(v: IntPtr) :=
     z_Vertex3hvNV_ovr_2(v);
     
-    private static procedure z_Vertex4hNV_ovr_0(x: Half; y: Half; z: Half; w: Half);
-    external 'opengl32.dll' name 'glVertex4hNV';
+    private z_Vertex4hNV_adr := GetFuncAdr('glVertex4hNV');
+    private z_Vertex4hNV_ovr_0 := GetFuncOrNil&(z_Vertex4hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4hNV(x: Half; y: Half; z: Half; w: Half) :=
     z_Vertex4hNV_ovr_0(x, y, z, w);
     
-    private static procedure z_Vertex4hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glVertex4hvNV';
-    private static procedure z_Vertex4hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4hvNV';
+    private z_Vertex4hvNV_adr := GetFuncAdr('glVertex4hvNV');
+    private z_Vertex4hvNV_ovr_0 := GetFuncOrNil&(z_Vertex4hvNV_adr);
+    private z_Vertex4hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Vertex4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Vertex4hvNV_ovr_0(v[0]) else
       z_Vertex4hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4hvNV(var v: Half) :=
     z_Vertex4hvNV_ovr_0(v);
-    private static procedure z_Vertex4hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glVertex4hvNV';
+    private z_Vertex4hvNV_ovr_2 := GetFuncOrNil&(z_Vertex4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4hvNV(v: IntPtr) :=
     z_Vertex4hvNV_ovr_2(v);
     
-    private static procedure z_Normal3hNV_ovr_0(nx: Half; ny: Half; nz: Half);
-    external 'opengl32.dll' name 'glNormal3hNV';
+    private z_Normal3hNV_adr := GetFuncAdr('glNormal3hNV');
+    private z_Normal3hNV_ovr_0 := GetFuncOrNil&(z_Normal3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3hNV(nx: Half; ny: Half; nz: Half) :=
     z_Normal3hNV_ovr_0(nx, ny, nz);
     
-    private static procedure z_Normal3hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glNormal3hvNV';
-    private static procedure z_Normal3hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3hvNV';
+    private z_Normal3hvNV_adr := GetFuncAdr('glNormal3hvNV');
+    private z_Normal3hvNV_ovr_0 := GetFuncOrNil&(z_Normal3hvNV_adr);
+    private z_Normal3hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Normal3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Normal3hvNV_ovr_0(v[0]) else
       z_Normal3hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3hvNV(var v: Half) :=
     z_Normal3hvNV_ovr_0(v);
-    private static procedure z_Normal3hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3hvNV';
+    private z_Normal3hvNV_ovr_2 := GetFuncOrNil&(z_Normal3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3hvNV(v: IntPtr) :=
     z_Normal3hvNV_ovr_2(v);
     
-    private static procedure z_Color3hNV_ovr_0(red: Half; green: Half; blue: Half);
-    external 'opengl32.dll' name 'glColor3hNV';
+    private z_Color3hNV_adr := GetFuncAdr('glColor3hNV');
+    private z_Color3hNV_ovr_0 := GetFuncOrNil&(z_Color3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3hNV(red: Half; green: Half; blue: Half) :=
     z_Color3hNV_ovr_0(red, green, blue);
     
-    private static procedure z_Color3hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glColor3hvNV';
-    private static procedure z_Color3hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3hvNV';
+    private z_Color3hvNV_adr := GetFuncAdr('glColor3hvNV');
+    private z_Color3hvNV_ovr_0 := GetFuncOrNil&(z_Color3hvNV_adr);
+    private z_Color3hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Color3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Color3hvNV_ovr_0(v[0]) else
       z_Color3hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3hvNV(var v: Half) :=
     z_Color3hvNV_ovr_0(v);
-    private static procedure z_Color3hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor3hvNV';
+    private z_Color3hvNV_ovr_2 := GetFuncOrNil&(z_Color3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3hvNV(v: IntPtr) :=
     z_Color3hvNV_ovr_2(v);
     
-    private static procedure z_Color4hNV_ovr_0(red: Half; green: Half; blue: Half; alpha: Half);
-    external 'opengl32.dll' name 'glColor4hNV';
+    private z_Color4hNV_adr := GetFuncAdr('glColor4hNV');
+    private z_Color4hNV_ovr_0 := GetFuncOrNil&(z_Color4hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4hNV(red: Half; green: Half; blue: Half; alpha: Half) :=
     z_Color4hNV_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_Color4hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glColor4hvNV';
-    private static procedure z_Color4hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4hvNV';
+    private z_Color4hvNV_adr := GetFuncAdr('glColor4hvNV');
+    private z_Color4hvNV_ovr_0 := GetFuncOrNil&(z_Color4hvNV_adr);
+    private z_Color4hvNV_ovr_0_anh01 := GetFuncOrNil&(z_Color4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_Color4hvNV_ovr_0(v[0]) else
       z_Color4hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4hvNV(var v: Half) :=
     z_Color4hvNV_ovr_0(v);
-    private static procedure z_Color4hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glColor4hvNV';
+    private z_Color4hvNV_ovr_2 := GetFuncOrNil&(z_Color4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4hvNV(v: IntPtr) :=
     z_Color4hvNV_ovr_2(v);
     
-    private static procedure z_TexCoord1hNV_ovr_0(s: Half);
-    external 'opengl32.dll' name 'glTexCoord1hNV';
+    private z_TexCoord1hNV_adr := GetFuncAdr('glTexCoord1hNV');
+    private z_TexCoord1hNV_ovr_0 := GetFuncOrNil&(z_TexCoord1hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1hNV(s: Half) :=
     z_TexCoord1hNV_ovr_0(s);
     
-    private static procedure z_TexCoord1hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glTexCoord1hvNV';
-    private static procedure z_TexCoord1hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1hvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1hvNV(v: array of Half) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_TexCoord1hvNV_ovr_0(v[0]) else
-      z_TexCoord1hvNV_ovr_0_anh01(IntPtr.Zero);
+    private z_TexCoord1hvNV_adr := GetFuncAdr('glTexCoord1hvNV');
+    private z_TexCoord1hvNV_ovr_0 := GetFuncOrNil&(z_TexCoord1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1hvNV(var v: Half) :=
     z_TexCoord1hvNV_ovr_0(v);
-    private static procedure z_TexCoord1hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1hvNV';
+    private z_TexCoord1hvNV_ovr_1 := GetFuncOrNil&(z_TexCoord1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1hvNV(v: IntPtr) :=
-    z_TexCoord1hvNV_ovr_2(v);
+    z_TexCoord1hvNV_ovr_1(v);
     
-    private static procedure z_TexCoord2hNV_ovr_0(s: Half; t: Half);
-    external 'opengl32.dll' name 'glTexCoord2hNV';
+    private z_TexCoord2hNV_adr := GetFuncAdr('glTexCoord2hNV');
+    private z_TexCoord2hNV_ovr_0 := GetFuncOrNil&(z_TexCoord2hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2hNV(s: Half; t: Half) :=
     z_TexCoord2hNV_ovr_0(s, t);
     
-    private static procedure z_TexCoord2hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glTexCoord2hvNV';
-    private static procedure z_TexCoord2hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2hvNV';
+    private z_TexCoord2hvNV_adr := GetFuncAdr('glTexCoord2hvNV');
+    private z_TexCoord2hvNV_ovr_0 := GetFuncOrNil&(z_TexCoord2hvNV_adr);
+    private z_TexCoord2hvNV_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_TexCoord2hvNV_ovr_0(v[0]) else
       z_TexCoord2hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2hvNV(var v: Half) :=
     z_TexCoord2hvNV_ovr_0(v);
-    private static procedure z_TexCoord2hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2hvNV';
+    private z_TexCoord2hvNV_ovr_2 := GetFuncOrNil&(z_TexCoord2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2hvNV(v: IntPtr) :=
     z_TexCoord2hvNV_ovr_2(v);
     
-    private static procedure z_TexCoord3hNV_ovr_0(s: Half; t: Half; r: Half);
-    external 'opengl32.dll' name 'glTexCoord3hNV';
+    private z_TexCoord3hNV_adr := GetFuncAdr('glTexCoord3hNV');
+    private z_TexCoord3hNV_ovr_0 := GetFuncOrNil&(z_TexCoord3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3hNV(s: Half; t: Half; r: Half) :=
     z_TexCoord3hNV_ovr_0(s, t, r);
     
-    private static procedure z_TexCoord3hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glTexCoord3hvNV';
-    private static procedure z_TexCoord3hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3hvNV';
+    private z_TexCoord3hvNV_adr := GetFuncAdr('glTexCoord3hvNV');
+    private z_TexCoord3hvNV_ovr_0 := GetFuncOrNil&(z_TexCoord3hvNV_adr);
+    private z_TexCoord3hvNV_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_TexCoord3hvNV_ovr_0(v[0]) else
       z_TexCoord3hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3hvNV(var v: Half) :=
     z_TexCoord3hvNV_ovr_0(v);
-    private static procedure z_TexCoord3hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3hvNV';
+    private z_TexCoord3hvNV_ovr_2 := GetFuncOrNil&(z_TexCoord3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3hvNV(v: IntPtr) :=
     z_TexCoord3hvNV_ovr_2(v);
     
-    private static procedure z_TexCoord4hNV_ovr_0(s: Half; t: Half; r: Half; q: Half);
-    external 'opengl32.dll' name 'glTexCoord4hNV';
+    private z_TexCoord4hNV_adr := GetFuncAdr('glTexCoord4hNV');
+    private z_TexCoord4hNV_ovr_0 := GetFuncOrNil&(z_TexCoord4hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4hNV(s: Half; t: Half; r: Half; q: Half) :=
     z_TexCoord4hNV_ovr_0(s, t, r, q);
     
-    private static procedure z_TexCoord4hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glTexCoord4hvNV';
-    private static procedure z_TexCoord4hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4hvNV';
+    private z_TexCoord4hvNV_adr := GetFuncAdr('glTexCoord4hvNV');
+    private z_TexCoord4hvNV_ovr_0 := GetFuncOrNil&(z_TexCoord4hvNV_adr);
+    private z_TexCoord4hvNV_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_TexCoord4hvNV_ovr_0(v[0]) else
       z_TexCoord4hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4hvNV(var v: Half) :=
     z_TexCoord4hvNV_ovr_0(v);
-    private static procedure z_TexCoord4hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4hvNV';
+    private z_TexCoord4hvNV_ovr_2 := GetFuncOrNil&(z_TexCoord4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4hvNV(v: IntPtr) :=
     z_TexCoord4hvNV_ovr_2(v);
     
-    private static procedure z_MultiTexCoord1hNV_ovr_0(target: TextureUnit; s: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord1hNV';
+    private z_MultiTexCoord1hNV_adr := GetFuncAdr('glMultiTexCoord1hNV');
+    private z_MultiTexCoord1hNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1hNV(target: TextureUnit; s: Half) :=
     z_MultiTexCoord1hNV_ovr_0(target, s);
     
-    private static procedure z_MultiTexCoord1hvNV_ovr_0(target: TextureUnit; var v: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord1hvNV';
-    private static procedure z_MultiTexCoord1hvNV_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1hvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1hvNV(target: TextureUnit; v: array of Half) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_MultiTexCoord1hvNV_ovr_0(target, v[0]) else
-      z_MultiTexCoord1hvNV_ovr_0_anh001(target, IntPtr.Zero);
+    private z_MultiTexCoord1hvNV_adr := GetFuncAdr('glMultiTexCoord1hvNV');
+    private z_MultiTexCoord1hvNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1hvNV(target: TextureUnit; var v: Half) :=
     z_MultiTexCoord1hvNV_ovr_0(target, v);
-    private static procedure z_MultiTexCoord1hvNV_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1hvNV';
+    private z_MultiTexCoord1hvNV_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1hvNV(target: TextureUnit; v: IntPtr) :=
-    z_MultiTexCoord1hvNV_ovr_2(target, v);
+    z_MultiTexCoord1hvNV_ovr_1(target, v);
     
-    private static procedure z_MultiTexCoord2hNV_ovr_0(target: TextureUnit; s: Half; t: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord2hNV';
+    private z_MultiTexCoord2hNV_adr := GetFuncAdr('glMultiTexCoord2hNV');
+    private z_MultiTexCoord2hNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2hNV(target: TextureUnit; s: Half; t: Half) :=
     z_MultiTexCoord2hNV_ovr_0(target, s, t);
     
-    private static procedure z_MultiTexCoord2hvNV_ovr_0(target: TextureUnit; var v: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord2hvNV';
-    private static procedure z_MultiTexCoord2hvNV_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2hvNV';
+    private z_MultiTexCoord2hvNV_adr := GetFuncAdr('glMultiTexCoord2hvNV');
+    private z_MultiTexCoord2hvNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2hvNV_adr);
+    private z_MultiTexCoord2hvNV_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2hvNV(target: TextureUnit; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord2hvNV_ovr_0(target, v[0]) else
       z_MultiTexCoord2hvNV_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2hvNV(target: TextureUnit; var v: Half) :=
     z_MultiTexCoord2hvNV_ovr_0(target, v);
-    private static procedure z_MultiTexCoord2hvNV_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2hvNV';
+    private z_MultiTexCoord2hvNV_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2hvNV(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord2hvNV_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord3hNV_ovr_0(target: TextureUnit; s: Half; t: Half; r: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord3hNV';
+    private z_MultiTexCoord3hNV_adr := GetFuncAdr('glMultiTexCoord3hNV');
+    private z_MultiTexCoord3hNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3hNV(target: TextureUnit; s: Half; t: Half; r: Half) :=
     z_MultiTexCoord3hNV_ovr_0(target, s, t, r);
     
-    private static procedure z_MultiTexCoord3hvNV_ovr_0(target: TextureUnit; var v: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord3hvNV';
-    private static procedure z_MultiTexCoord3hvNV_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3hvNV';
+    private z_MultiTexCoord3hvNV_adr := GetFuncAdr('glMultiTexCoord3hvNV');
+    private z_MultiTexCoord3hvNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3hvNV_adr);
+    private z_MultiTexCoord3hvNV_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3hvNV(target: TextureUnit; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord3hvNV_ovr_0(target, v[0]) else
       z_MultiTexCoord3hvNV_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3hvNV(target: TextureUnit; var v: Half) :=
     z_MultiTexCoord3hvNV_ovr_0(target, v);
-    private static procedure z_MultiTexCoord3hvNV_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3hvNV';
+    private z_MultiTexCoord3hvNV_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3hvNV(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord3hvNV_ovr_2(target, v);
     
-    private static procedure z_MultiTexCoord4hNV_ovr_0(target: TextureUnit; s: Half; t: Half; r: Half; q: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord4hNV';
+    private z_MultiTexCoord4hNV_adr := GetFuncAdr('glMultiTexCoord4hNV');
+    private z_MultiTexCoord4hNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4hNV(target: TextureUnit; s: Half; t: Half; r: Half; q: Half) :=
     z_MultiTexCoord4hNV_ovr_0(target, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4hvNV_ovr_0(target: TextureUnit; var v: Half);
-    external 'opengl32.dll' name 'glMultiTexCoord4hvNV';
-    private static procedure z_MultiTexCoord4hvNV_ovr_0_anh001(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4hvNV';
+    private z_MultiTexCoord4hvNV_adr := GetFuncAdr('glMultiTexCoord4hvNV');
+    private z_MultiTexCoord4hvNV_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4hvNV_adr);
+    private z_MultiTexCoord4hvNV_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4hvNV(target: TextureUnit; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_MultiTexCoord4hvNV_ovr_0(target, v[0]) else
       z_MultiTexCoord4hvNV_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4hvNV(target: TextureUnit; var v: Half) :=
     z_MultiTexCoord4hvNV_ovr_0(target, v);
-    private static procedure z_MultiTexCoord4hvNV_ovr_2(target: TextureUnit; v: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4hvNV';
+    private z_MultiTexCoord4hvNV_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4hvNV(target: TextureUnit; v: IntPtr) :=
     z_MultiTexCoord4hvNV_ovr_2(target, v);
     
-    private static procedure z_FogCoordhNV_ovr_0(fog: Half);
-    external 'opengl32.dll' name 'glFogCoordhNV';
+    private z_FogCoordhNV_adr := GetFuncAdr('glFogCoordhNV');
+    private z_FogCoordhNV_ovr_0 := GetFuncOrNil&(z_FogCoordhNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordhNV(fog: Half) :=
     z_FogCoordhNV_ovr_0(fog);
     
-    private static procedure z_FogCoordhvNV_ovr_0(var fog: Half);
-    external 'opengl32.dll' name 'glFogCoordhvNV';
-    private static procedure z_FogCoordhvNV_ovr_0_anh01(fog: IntPtr);
-    external 'opengl32.dll' name 'glFogCoordhvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordhvNV(fog: array of Half) :=
-    if (fog<>nil) and (fog.Length<>0) then
-      z_FogCoordhvNV_ovr_0(fog[0]) else
-      z_FogCoordhvNV_ovr_0_anh01(IntPtr.Zero);
+    private z_FogCoordhvNV_adr := GetFuncAdr('glFogCoordhvNV');
+    private z_FogCoordhvNV_ovr_0 := GetFuncOrNil&(z_FogCoordhvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordhvNV(var fog: Half) :=
     z_FogCoordhvNV_ovr_0(fog);
-    private static procedure z_FogCoordhvNV_ovr_2(fog: IntPtr);
-    external 'opengl32.dll' name 'glFogCoordhvNV';
+    private z_FogCoordhvNV_ovr_1 := GetFuncOrNil&(z_FogCoordhvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordhvNV(fog: IntPtr) :=
-    z_FogCoordhvNV_ovr_2(fog);
+    z_FogCoordhvNV_ovr_1(fog);
     
-    private static procedure z_SecondaryColor3hNV_ovr_0(red: Half; green: Half; blue: Half);
-    external 'opengl32.dll' name 'glSecondaryColor3hNV';
+    private z_SecondaryColor3hNV_adr := GetFuncAdr('glSecondaryColor3hNV');
+    private z_SecondaryColor3hNV_ovr_0 := GetFuncOrNil&(z_SecondaryColor3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3hNV(red: Half; green: Half; blue: Half) :=
     z_SecondaryColor3hNV_ovr_0(red, green, blue);
     
-    private static procedure z_SecondaryColor3hvNV_ovr_0(var v: Half);
-    external 'opengl32.dll' name 'glSecondaryColor3hvNV';
-    private static procedure z_SecondaryColor3hvNV_ovr_0_anh01(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3hvNV';
+    private z_SecondaryColor3hvNV_adr := GetFuncAdr('glSecondaryColor3hvNV');
+    private z_SecondaryColor3hvNV_ovr_0 := GetFuncOrNil&(z_SecondaryColor3hvNV_adr);
+    private z_SecondaryColor3hvNV_ovr_0_anh01 := GetFuncOrNil&(z_SecondaryColor3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3hvNV(v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_SecondaryColor3hvNV_ovr_0(v[0]) else
       z_SecondaryColor3hvNV_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3hvNV(var v: Half) :=
     z_SecondaryColor3hvNV_ovr_0(v);
-    private static procedure z_SecondaryColor3hvNV_ovr_2(v: IntPtr);
-    external 'opengl32.dll' name 'glSecondaryColor3hvNV';
+    private z_SecondaryColor3hvNV_ovr_2 := GetFuncOrNil&(z_SecondaryColor3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColor3hvNV(v: IntPtr) :=
     z_SecondaryColor3hvNV_ovr_2(v);
     
-    private static procedure z_VertexWeighthNV_ovr_0(weight: Half);
-    external 'opengl32.dll' name 'glVertexWeighthNV';
+    private z_VertexWeighthNV_adr := GetFuncAdr('glVertexWeighthNV');
+    private z_VertexWeighthNV_ovr_0 := GetFuncOrNil&(z_VertexWeighthNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeighthNV(weight: Half) :=
     z_VertexWeighthNV_ovr_0(weight);
     
-    private static procedure z_VertexWeighthvNV_ovr_0(var weight: Half);
-    external 'opengl32.dll' name 'glVertexWeighthvNV';
-    private static procedure z_VertexWeighthvNV_ovr_0_anh01(weight: IntPtr);
-    external 'opengl32.dll' name 'glVertexWeighthvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeighthvNV(weight: array of Half) :=
-    if (weight<>nil) and (weight.Length<>0) then
-      z_VertexWeighthvNV_ovr_0(weight[0]) else
-      z_VertexWeighthvNV_ovr_0_anh01(IntPtr.Zero);
+    private z_VertexWeighthvNV_adr := GetFuncAdr('glVertexWeighthvNV');
+    private z_VertexWeighthvNV_ovr_0 := GetFuncOrNil&(z_VertexWeighthvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeighthvNV(var weight: Half) :=
     z_VertexWeighthvNV_ovr_0(weight);
-    private static procedure z_VertexWeighthvNV_ovr_2(weight: IntPtr);
-    external 'opengl32.dll' name 'glVertexWeighthvNV';
+    private z_VertexWeighthvNV_ovr_1 := GetFuncOrNil&(z_VertexWeighthvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexWeighthvNV(weight: IntPtr) :=
-    z_VertexWeighthvNV_ovr_2(weight);
+    z_VertexWeighthvNV_ovr_1(weight);
     
-    private static procedure z_VertexAttrib1hNV_ovr_0(index: UInt32; x: Half);
-    external 'opengl32.dll' name 'glVertexAttrib1hNV';
+    private z_VertexAttrib1hNV_adr := GetFuncAdr('glVertexAttrib1hNV');
+    private z_VertexAttrib1hNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1hNV(index: UInt32; x: Half) :=
     z_VertexAttrib1hNV_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1hvNV_ovr_0(index: UInt32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttrib1hvNV';
-    private static procedure z_VertexAttrib1hvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1hvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1hvNV(index: UInt32; v: array of Half) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1hvNV_ovr_0(index, v[0]) else
-      z_VertexAttrib1hvNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1hvNV_adr := GetFuncAdr('glVertexAttrib1hvNV');
+    private z_VertexAttrib1hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1hvNV(index: UInt32; var v: Half) :=
     z_VertexAttrib1hvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib1hvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1hvNV';
+    private z_VertexAttrib1hvNV_ovr_1 := GetFuncOrNil&(z_VertexAttrib1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1hvNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1hvNV_ovr_2(index, v);
+    z_VertexAttrib1hvNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib2hNV_ovr_0(index: UInt32; x: Half; y: Half);
-    external 'opengl32.dll' name 'glVertexAttrib2hNV';
+    private z_VertexAttrib2hNV_adr := GetFuncAdr('glVertexAttrib2hNV');
+    private z_VertexAttrib2hNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2hNV(index: UInt32; x: Half; y: Half) :=
     z_VertexAttrib2hNV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2hvNV_ovr_0(index: UInt32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttrib2hvNV';
-    private static procedure z_VertexAttrib2hvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2hvNV';
+    private z_VertexAttrib2hvNV_adr := GetFuncAdr('glVertexAttrib2hvNV');
+    private z_VertexAttrib2hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2hvNV_adr);
+    private z_VertexAttrib2hvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2hvNV(index: UInt32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2hvNV_ovr_0(index, v[0]) else
       z_VertexAttrib2hvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2hvNV(index: UInt32; var v: Half) :=
     z_VertexAttrib2hvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib2hvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2hvNV';
+    private z_VertexAttrib2hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2hvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2hvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3hNV_ovr_0(index: UInt32; x: Half; y: Half; z: Half);
-    external 'opengl32.dll' name 'glVertexAttrib3hNV';
+    private z_VertexAttrib3hNV_adr := GetFuncAdr('glVertexAttrib3hNV');
+    private z_VertexAttrib3hNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3hNV(index: UInt32; x: Half; y: Half; z: Half) :=
     z_VertexAttrib3hNV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3hvNV_ovr_0(index: UInt32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttrib3hvNV';
-    private static procedure z_VertexAttrib3hvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3hvNV';
+    private z_VertexAttrib3hvNV_adr := GetFuncAdr('glVertexAttrib3hvNV');
+    private z_VertexAttrib3hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3hvNV_adr);
+    private z_VertexAttrib3hvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3hvNV(index: UInt32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3hvNV_ovr_0(index, v[0]) else
       z_VertexAttrib3hvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3hvNV(index: UInt32; var v: Half) :=
     z_VertexAttrib3hvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib3hvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3hvNV';
+    private z_VertexAttrib3hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3hvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3hvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4hNV_ovr_0(index: UInt32; x: Half; y: Half; z: Half; w: Half);
-    external 'opengl32.dll' name 'glVertexAttrib4hNV';
+    private z_VertexAttrib4hNV_adr := GetFuncAdr('glVertexAttrib4hNV');
+    private z_VertexAttrib4hNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4hNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4hNV(index: UInt32; x: Half; y: Half; z: Half; w: Half) :=
     z_VertexAttrib4hNV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4hvNV_ovr_0(index: UInt32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttrib4hvNV';
-    private static procedure z_VertexAttrib4hvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4hvNV';
+    private z_VertexAttrib4hvNV_adr := GetFuncAdr('glVertexAttrib4hvNV');
+    private z_VertexAttrib4hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4hvNV_adr);
+    private z_VertexAttrib4hvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4hvNV(index: UInt32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4hvNV_ovr_0(index, v[0]) else
       z_VertexAttrib4hvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4hvNV(index: UInt32; var v: Half) :=
     z_VertexAttrib4hvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib4hvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4hvNV';
+    private z_VertexAttrib4hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4hvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4hvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribs1hvNV_ovr_0(index: UInt32; n: Int32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttribs1hvNV';
-    private static procedure z_VertexAttribs1hvNV_ovr_0_anh0001(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1hvNV';
+    private z_VertexAttribs1hvNV_adr := GetFuncAdr('glVertexAttribs1hvNV');
+    private z_VertexAttribs1hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs1hvNV_adr);
+    private z_VertexAttribs1hvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1hvNV(index: UInt32; n: Int32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs1hvNV_ovr_0(index, n, v[0]) else
       z_VertexAttribs1hvNV_ovr_0_anh0001(index, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1hvNV(index: UInt32; n: Int32; var v: Half) :=
     z_VertexAttribs1hvNV_ovr_0(index, n, v);
-    private static procedure z_VertexAttribs1hvNV_ovr_2(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1hvNV';
+    private z_VertexAttribs1hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs1hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1hvNV(index: UInt32; n: Int32; v: IntPtr) :=
     z_VertexAttribs1hvNV_ovr_2(index, n, v);
     
-    private static procedure z_VertexAttribs2hvNV_ovr_0(index: UInt32; n: Int32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttribs2hvNV';
-    private static procedure z_VertexAttribs2hvNV_ovr_0_anh0001(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2hvNV';
+    private z_VertexAttribs2hvNV_adr := GetFuncAdr('glVertexAttribs2hvNV');
+    private z_VertexAttribs2hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs2hvNV_adr);
+    private z_VertexAttribs2hvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2hvNV(index: UInt32; n: Int32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs2hvNV_ovr_0(index, n, v[0]) else
       z_VertexAttribs2hvNV_ovr_0_anh0001(index, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2hvNV(index: UInt32; n: Int32; var v: Half) :=
     z_VertexAttribs2hvNV_ovr_0(index, n, v);
-    private static procedure z_VertexAttribs2hvNV_ovr_2(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2hvNV';
+    private z_VertexAttribs2hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs2hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2hvNV(index: UInt32; n: Int32; v: IntPtr) :=
     z_VertexAttribs2hvNV_ovr_2(index, n, v);
     
-    private static procedure z_VertexAttribs3hvNV_ovr_0(index: UInt32; n: Int32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttribs3hvNV';
-    private static procedure z_VertexAttribs3hvNV_ovr_0_anh0001(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3hvNV';
+    private z_VertexAttribs3hvNV_adr := GetFuncAdr('glVertexAttribs3hvNV');
+    private z_VertexAttribs3hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs3hvNV_adr);
+    private z_VertexAttribs3hvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3hvNV(index: UInt32; n: Int32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs3hvNV_ovr_0(index, n, v[0]) else
       z_VertexAttribs3hvNV_ovr_0_anh0001(index, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3hvNV(index: UInt32; n: Int32; var v: Half) :=
     z_VertexAttribs3hvNV_ovr_0(index, n, v);
-    private static procedure z_VertexAttribs3hvNV_ovr_2(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3hvNV';
+    private z_VertexAttribs3hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs3hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3hvNV(index: UInt32; n: Int32; v: IntPtr) :=
     z_VertexAttribs3hvNV_ovr_2(index, n, v);
     
-    private static procedure z_VertexAttribs4hvNV_ovr_0(index: UInt32; n: Int32; var v: Half);
-    external 'opengl32.dll' name 'glVertexAttribs4hvNV';
-    private static procedure z_VertexAttribs4hvNV_ovr_0_anh0001(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4hvNV';
+    private z_VertexAttribs4hvNV_adr := GetFuncAdr('glVertexAttribs4hvNV');
+    private z_VertexAttribs4hvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs4hvNV_adr);
+    private z_VertexAttribs4hvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4hvNV(index: UInt32; n: Int32; v: array of Half) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs4hvNV_ovr_0(index, n, v[0]) else
       z_VertexAttribs4hvNV_ovr_0_anh0001(index, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4hvNV(index: UInt32; n: Int32; var v: Half) :=
     z_VertexAttribs4hvNV_ovr_0(index, n, v);
-    private static procedure z_VertexAttribs4hvNV_ovr_2(index: UInt32; n: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4hvNV';
+    private z_VertexAttribs4hvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs4hvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4hvNV(index: UInt32; n: Int32; v: IntPtr) :=
     z_VertexAttribs4hvNV_ovr_2(index, n, v);
     
   end;
   
   [PCUNotRestore]
-  glInternalformatSampleQueryNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInternalformatSampleQueryNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_internalformat_sample_query';
     
-    private static procedure z_GetInternalformatSampleivNV_ovr_0(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetInternalformatSampleivNV';
-    private static procedure z_GetInternalformatSampleivNV_ovr_0_anh0000001(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformatSampleivNV';
+    private z_GetInternalformatSampleivNV_adr := GetFuncAdr('glGetInternalformatSampleivNV');
+    private z_GetInternalformatSampleivNV_ovr_0 := GetFuncOrNil&(z_GetInternalformatSampleivNV_adr);
+    private z_GetInternalformatSampleivNV_ovr_0_anh0000001 := GetFuncOrNil&(z_GetInternalformatSampleivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformatSampleivNV(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetInternalformatSampleivNV_ovr_0(target, _internalformat, samples, pname, count, ¶ms[0]) else
       z_GetInternalformatSampleivNV_ovr_0_anh0000001(target, _internalformat, samples, pname, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformatSampleivNV(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; var ¶ms: Int32) :=
     z_GetInternalformatSampleivNV_ovr_0(target, _internalformat, samples, pname, count, ¶ms);
-    private static procedure z_GetInternalformatSampleivNV_ovr_2(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetInternalformatSampleivNV';
+    private z_GetInternalformatSampleivNV_ovr_2 := GetFuncOrNil&(z_GetInternalformatSampleivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetInternalformatSampleivNV(target: TextureTarget; _internalformat: InternalFormat; samples: Int32; pname: InternalFormatPName; count: Int32; ¶ms: IntPtr) :=
     z_GetInternalformatSampleivNV_ovr_2(target, _internalformat, samples, pname, count, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glGpuMulticastNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuMulticastNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_gpu_multicast';
     
-    private static procedure z_RenderGpuMaskNV_ovr_0(mask: DummyFlags);
-    external 'opengl32.dll' name 'glRenderGpuMaskNV';
+    private z_RenderGpuMaskNV_adr := GetFuncAdr('glRenderGpuMaskNV');
+    private z_RenderGpuMaskNV_ovr_0 := GetFuncOrNil&(z_RenderGpuMaskNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RenderGpuMaskNV(mask: DummyFlags) :=
     z_RenderGpuMaskNV_ovr_0(mask);
     
-    private static procedure z_MulticastBufferSubDataNV_ovr_0(gpuMask: DummyFlags; buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr);
-    external 'opengl32.dll' name 'glMulticastBufferSubDataNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastBufferSubDataNV(gpuMask: DummyFlags; buffer: UInt32; offset: IntPtr; size: IntPtr; data: IntPtr) :=
+    private z_MulticastBufferSubDataNV_adr := GetFuncAdr('glMulticastBufferSubDataNV');
+    private z_MulticastBufferSubDataNV_ovr_0 := GetFuncOrNil&(z_MulticastBufferSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastBufferSubDataNV(gpuMask: DummyFlags; buffer: gl_buffer; offset: IntPtr; size: IntPtr; data: IntPtr) :=
     z_MulticastBufferSubDataNV_ovr_0(gpuMask, buffer, offset, size, data);
     
-    private static procedure z_MulticastCopyBufferSubDataNV_ovr_0(readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glMulticastCopyBufferSubDataNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastCopyBufferSubDataNV(readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    private z_MulticastCopyBufferSubDataNV_adr := GetFuncAdr('glMulticastCopyBufferSubDataNV');
+    private z_MulticastCopyBufferSubDataNV_ovr_0 := GetFuncOrNil&(z_MulticastCopyBufferSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastCopyBufferSubDataNV(readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
     z_MulticastCopyBufferSubDataNV_ovr_0(readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size);
     
-    private static procedure z_MulticastCopyImageSubDataNV_ovr_0(srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32);
-    external 'opengl32.dll' name 'glMulticastCopyImageSubDataNV';
+    private z_MulticastCopyImageSubDataNV_adr := GetFuncAdr('glMulticastCopyImageSubDataNV');
+    private z_MulticastCopyImageSubDataNV_ovr_0 := GetFuncOrNil&(z_MulticastCopyImageSubDataNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastCopyImageSubDataNV(srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32) :=
     z_MulticastCopyImageSubDataNV_ovr_0(srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth);
     
-    private static procedure z_MulticastBlitFramebufferNV_ovr_0(srcGpu: UInt32; dstGpu: UInt32; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: DummyEnum);
-    external 'opengl32.dll' name 'glMulticastBlitFramebufferNV';
+    private z_MulticastBlitFramebufferNV_adr := GetFuncAdr('glMulticastBlitFramebufferNV');
+    private z_MulticastBlitFramebufferNV_ovr_0 := GetFuncOrNil&(z_MulticastBlitFramebufferNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastBlitFramebufferNV(srcGpu: UInt32; dstGpu: UInt32; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: ClearBufferMask; filter: DummyEnum) :=
     z_MulticastBlitFramebufferNV_ovr_0(srcGpu, dstGpu, srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
-    private static procedure z_MulticastFramebufferSampleLocationsfvNV_ovr_0(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glMulticastFramebufferSampleLocationsfvNV';
-    private static procedure z_MulticastFramebufferSampleLocationsfvNV_ovr_0_anh000001(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastFramebufferSampleLocationsfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; v: array of single) :=
+    private z_MulticastFramebufferSampleLocationsfvNV_adr := GetFuncAdr('glMulticastFramebufferSampleLocationsfvNV');
+    private z_MulticastFramebufferSampleLocationsfvNV_ovr_0 := GetFuncOrNil&(z_MulticastFramebufferSampleLocationsfvNV_adr);
+    private z_MulticastFramebufferSampleLocationsfvNV_ovr_0_anh000001 := GetFuncOrNil&(z_MulticastFramebufferSampleLocationsfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_MulticastFramebufferSampleLocationsfvNV_ovr_0(gpu, framebuffer, start, count, v[0]) else
       z_MulticastFramebufferSampleLocationsfvNV_ovr_0_anh000001(gpu, framebuffer, start, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; var v: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: gl_framebuffer; start: UInt32; count: Int32; var v: single) :=
     z_MulticastFramebufferSampleLocationsfvNV_ovr_0(gpu, framebuffer, start, count, v);
-    private static procedure z_MulticastFramebufferSampleLocationsfvNV_ovr_2(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastFramebufferSampleLocationsfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr) :=
+    private z_MulticastFramebufferSampleLocationsfvNV_ovr_2 := GetFuncOrNil&(z_MulticastFramebufferSampleLocationsfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastFramebufferSampleLocationsfvNV(gpu: UInt32; framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: IntPtr) :=
     z_MulticastFramebufferSampleLocationsfvNV_ovr_2(gpu, framebuffer, start, count, v);
     
-    private static procedure z_MulticastBarrierNV_ovr_0;
-    external 'opengl32.dll' name 'glMulticastBarrierNV';
+    private z_MulticastBarrierNV_adr := GetFuncAdr('glMulticastBarrierNV');
+    private z_MulticastBarrierNV_ovr_0 := GetFuncOrNil&(z_MulticastBarrierNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastBarrierNV :=
     z_MulticastBarrierNV_ovr_0;
     
-    private static procedure z_MulticastWaitSyncNV_ovr_0(signalGpu: UInt32; waitGpuMask: DummyFlags);
-    external 'opengl32.dll' name 'glMulticastWaitSyncNV';
+    private z_MulticastWaitSyncNV_adr := GetFuncAdr('glMulticastWaitSyncNV');
+    private z_MulticastWaitSyncNV_ovr_0 := GetFuncOrNil&(z_MulticastWaitSyncNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastWaitSyncNV(signalGpu: UInt32; waitGpuMask: DummyFlags) :=
     z_MulticastWaitSyncNV_ovr_0(signalGpu, waitGpuMask);
     
-    private static procedure z_MulticastGetQueryObjectivNV_ovr_0(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectivNV';
-    private static procedure z_MulticastGetQueryObjectivNV_ovr_0_anh00001(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectivNV';
+    private z_MulticastGetQueryObjectivNV_adr := GetFuncAdr('glMulticastGetQueryObjectivNV');
+    private z_MulticastGetQueryObjectivNV_ovr_0 := GetFuncOrNil&(z_MulticastGetQueryObjectivNV_adr);
+    private z_MulticastGetQueryObjectivNV_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastGetQueryObjectivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MulticastGetQueryObjectivNV_ovr_0(gpu, id, pname, ¶ms[0]) else
       z_MulticastGetQueryObjectivNV_ovr_0_anh00001(gpu, id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_MulticastGetQueryObjectivNV_ovr_0(gpu, id, pname, ¶ms);
-    private static procedure z_MulticastGetQueryObjectivNV_ovr_2(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectivNV';
+    private z_MulticastGetQueryObjectivNV_ovr_2 := GetFuncOrNil&(z_MulticastGetQueryObjectivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_MulticastGetQueryObjectivNV_ovr_2(gpu, id, pname, ¶ms);
     
-    private static procedure z_MulticastGetQueryObjectuivNV_ovr_0(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectuivNV';
-    private static procedure z_MulticastGetQueryObjectuivNV_ovr_0_anh00001(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectuivNV';
+    private z_MulticastGetQueryObjectuivNV_adr := GetFuncAdr('glMulticastGetQueryObjectuivNV');
+    private z_MulticastGetQueryObjectuivNV_ovr_0 := GetFuncOrNil&(z_MulticastGetQueryObjectuivNV_adr);
+    private z_MulticastGetQueryObjectuivNV_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastGetQueryObjectuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectuivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MulticastGetQueryObjectuivNV_ovr_0(gpu, id, pname, ¶ms[0]) else
       z_MulticastGetQueryObjectuivNV_ovr_0_anh00001(gpu, id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectuivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: UInt32) :=
     z_MulticastGetQueryObjectuivNV_ovr_0(gpu, id, pname, ¶ms);
-    private static procedure z_MulticastGetQueryObjectuivNV_ovr_2(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectuivNV';
+    private z_MulticastGetQueryObjectuivNV_ovr_2 := GetFuncOrNil&(z_MulticastGetQueryObjectuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectuivNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_MulticastGetQueryObjectuivNV_ovr_2(gpu, id, pname, ¶ms);
     
-    private static procedure z_MulticastGetQueryObjecti64vNV_ovr_0(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjecti64vNV';
-    private static procedure z_MulticastGetQueryObjecti64vNV_ovr_0_anh00001(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjecti64vNV';
+    private z_MulticastGetQueryObjecti64vNV_adr := GetFuncAdr('glMulticastGetQueryObjecti64vNV');
+    private z_MulticastGetQueryObjecti64vNV_ovr_0 := GetFuncOrNil&(z_MulticastGetQueryObjecti64vNV_adr);
+    private z_MulticastGetQueryObjecti64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastGetQueryObjecti64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjecti64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MulticastGetQueryObjecti64vNV_ovr_0(gpu, id, pname, ¶ms[0]) else
       z_MulticastGetQueryObjecti64vNV_ovr_0_anh00001(gpu, id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjecti64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: Int64) :=
     z_MulticastGetQueryObjecti64vNV_ovr_0(gpu, id, pname, ¶ms);
-    private static procedure z_MulticastGetQueryObjecti64vNV_ovr_2(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjecti64vNV';
+    private z_MulticastGetQueryObjecti64vNV_ovr_2 := GetFuncOrNil&(z_MulticastGetQueryObjecti64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjecti64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_MulticastGetQueryObjecti64vNV_ovr_2(gpu, id, pname, ¶ms);
     
-    private static procedure z_MulticastGetQueryObjectui64vNV_ovr_0(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectui64vNV';
-    private static procedure z_MulticastGetQueryObjectui64vNV_ovr_0_anh00001(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectui64vNV';
+    private z_MulticastGetQueryObjectui64vNV_adr := GetFuncAdr('glMulticastGetQueryObjectui64vNV');
+    private z_MulticastGetQueryObjectui64vNV_ovr_0 := GetFuncOrNil&(z_MulticastGetQueryObjectui64vNV_adr);
+    private z_MulticastGetQueryObjectui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastGetQueryObjectui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectui64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_MulticastGetQueryObjectui64vNV_ovr_0(gpu, id, pname, ¶ms[0]) else
       z_MulticastGetQueryObjectui64vNV_ovr_0_anh00001(gpu, id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectui64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; var ¶ms: UInt64) :=
     z_MulticastGetQueryObjectui64vNV_ovr_0(gpu, id, pname, ¶ms);
-    private static procedure z_MulticastGetQueryObjectui64vNV_ovr_2(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glMulticastGetQueryObjectui64vNV';
+    private z_MulticastGetQueryObjectui64vNV_ovr_2 := GetFuncOrNil&(z_MulticastGetQueryObjectui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastGetQueryObjectui64vNV(gpu: UInt32; id: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_MulticastGetQueryObjectui64vNV_ovr_2(gpu, id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glGpuMulticast2NVX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGpuMulticast2NVX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NVX_gpu_multicast2';
     
-    private static procedure z_UploadGpuMaskNVX_ovr_0(mask: DummyFlags);
-    external 'opengl32.dll' name 'glUploadGpuMaskNVX';
+    private z_UploadGpuMaskNVX_adr := GetFuncAdr('glUploadGpuMaskNVX');
+    private z_UploadGpuMaskNVX_ovr_0 := GetFuncOrNil&(z_UploadGpuMaskNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure UploadGpuMaskNVX(mask: DummyFlags) :=
     z_UploadGpuMaskNVX_ovr_0(mask);
     
-    private static procedure z_MulticastViewportArrayvNVX_ovr_0(gpu: UInt32; first: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glMulticastViewportArrayvNVX';
-    private static procedure z_MulticastViewportArrayvNVX_ovr_0_anh00001(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastViewportArrayvNVX';
+    private z_MulticastViewportArrayvNVX_adr := GetFuncAdr('glMulticastViewportArrayvNVX');
+    private z_MulticastViewportArrayvNVX_ovr_0 := GetFuncOrNil&(z_MulticastViewportArrayvNVX_adr);
+    private z_MulticastViewportArrayvNVX_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastViewportArrayvNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastViewportArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_MulticastViewportArrayvNVX_ovr_0(gpu, first, count, v[0]) else
       z_MulticastViewportArrayvNVX_ovr_0_anh00001(gpu, first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastViewportArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; var v: single) :=
     z_MulticastViewportArrayvNVX_ovr_0(gpu, first, count, v);
-    private static procedure z_MulticastViewportArrayvNVX_ovr_2(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastViewportArrayvNVX';
+    private z_MulticastViewportArrayvNVX_ovr_2 := GetFuncOrNil&(z_MulticastViewportArrayvNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastViewportArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr) :=
     z_MulticastViewportArrayvNVX_ovr_2(gpu, first, count, v);
     
-    private static procedure z_MulticastViewportPositionWScaleNVX_ovr_0(gpu: UInt32; index: UInt32; xcoeff: single; ycoeff: single);
-    external 'opengl32.dll' name 'glMulticastViewportPositionWScaleNVX';
+    private z_MulticastViewportPositionWScaleNVX_adr := GetFuncAdr('glMulticastViewportPositionWScaleNVX');
+    private z_MulticastViewportPositionWScaleNVX_ovr_0 := GetFuncOrNil&(z_MulticastViewportPositionWScaleNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastViewportPositionWScaleNVX(gpu: UInt32; index: UInt32; xcoeff: single; ycoeff: single) :=
     z_MulticastViewportPositionWScaleNVX_ovr_0(gpu, index, xcoeff, ycoeff);
     
-    private static procedure z_MulticastScissorArrayvNVX_ovr_0(gpu: UInt32; first: UInt32; count: Int32; var v: Int32);
-    external 'opengl32.dll' name 'glMulticastScissorArrayvNVX';
-    private static procedure z_MulticastScissorArrayvNVX_ovr_0_anh00001(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastScissorArrayvNVX';
+    private z_MulticastScissorArrayvNVX_adr := GetFuncAdr('glMulticastScissorArrayvNVX');
+    private z_MulticastScissorArrayvNVX_ovr_0 := GetFuncOrNil&(z_MulticastScissorArrayvNVX_adr);
+    private z_MulticastScissorArrayvNVX_ovr_0_anh00001 := GetFuncOrNil&(z_MulticastScissorArrayvNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastScissorArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_MulticastScissorArrayvNVX_ovr_0(gpu, first, count, v[0]) else
       z_MulticastScissorArrayvNVX_ovr_0_anh00001(gpu, first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastScissorArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; var v: Int32) :=
     z_MulticastScissorArrayvNVX_ovr_0(gpu, first, count, v);
-    private static procedure z_MulticastScissorArrayvNVX_ovr_2(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glMulticastScissorArrayvNVX';
+    private z_MulticastScissorArrayvNVX_ovr_2 := GetFuncOrNil&(z_MulticastScissorArrayvNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MulticastScissorArrayvNVX(gpu: UInt32; first: UInt32; count: Int32; v: IntPtr) :=
     z_MulticastScissorArrayvNVX_ovr_2(gpu, first, count, v);
     
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_adr := GetFuncAdr('glAsyncCopyBufferSubDataNVX');
+    private z_AsyncCopyBufferSubDataNVX_ovr_0 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -61720,21 +59749,14 @@ type
           if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
             z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
             z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000011(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00010000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_1_anh00110000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_1_anh00110000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -61750,23 +59772,15 @@ type
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_2 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -61782,19 +59796,13 @@ type
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
           z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00010000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_3_anh00110000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_3_anh00110000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -61810,13 +59818,10 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000001(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_4_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_4_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_4_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_4_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_4_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_4_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -61824,13 +59829,10 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_5_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_5_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_5_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_5_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_5_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_5_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -61838,23 +59840,15 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_6 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -61870,13 +59864,10 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000001(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_7_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_7_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_7_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_7_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_7_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_7_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -61884,15 +59875,11 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_8(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_8_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_8_anh00010000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_8_anh00110000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_8 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_8_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_8_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_8_anh00110000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_8(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -61900,15 +59887,11 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_8_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_8_anh00110000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_9_anh00100000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -61924,11 +59907,9 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000011(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_10_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_10_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_10_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_10_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -61936,11 +59917,9 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_11_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_11_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_11_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_11_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -61948,11 +59927,9 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_12_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_12_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_12_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_12_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -61960,23 +59937,19 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000001(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_13_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_13_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_0_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_14_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_14_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_2_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_15_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_15_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_15_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_15_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -61984,35 +59957,25 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000001(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_16_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_16_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_6_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_17_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_17_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_8(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_8_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_18 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62028,13 +59991,10 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000011(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_19_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_19_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_19_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_19_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_19_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_19_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62042,15 +60002,11 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_20(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_20_anh00000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_20 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_20_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_20(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62058,11 +60014,9 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000010(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_21_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_21_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_21_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_21_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62070,27 +60024,21 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000001(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_22_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_22_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_18_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_23_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_23_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_20(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_20_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_24(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_24_anh00000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_24 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_24_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62098,21 +60046,18 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000001(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_25_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_25_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_24_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_26(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_26_anh00100000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_26 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_26_anh00100000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_26(waitSemaphoreCount, waitSemaphoreArray[0], fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_26_anh00100000000000(waitSemaphoreCount, IntPtr.Zero, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62128,7 +60073,7 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000011(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62136,7 +60081,7 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62144,7 +60089,7 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62152,15 +60097,15 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_0_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_2_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62168,15 +60113,15 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_6_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_8(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_8_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray[0]) else
@@ -62184,31 +60129,31 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000011(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_2_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_0_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_6_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_8(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray[0]) else
@@ -62216,47 +60161,39 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000011(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_20(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_20_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_18_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_20(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_24_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_26(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_54 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62272,13 +60209,10 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000011(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_55_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_55_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_55_anh00010000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_55_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_55_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_55_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62286,15 +60220,11 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_56(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_56_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_56 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_56_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_56(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -62302,11 +60232,9 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_57_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_57_anh00010000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_57_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_57_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62314,27 +60242,21 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_58_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_58_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_54_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_59_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_59_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_56(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_56_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_60(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_60_anh00000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_60 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_60_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
@@ -62342,21 +60264,18 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_61_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_61_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_60_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_62(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_62_anh00010000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_62 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_62_anh00010000000000 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: array of UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_62(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray[0], readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_62_anh00010000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray[0]) else
@@ -62364,39 +60283,35 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000011(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_56(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_56_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_54_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_56(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_60_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var fenceValueArray: UInt64; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_62(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_72(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_72 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000011 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray[0]) else
@@ -62404,75 +60319,54 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
         z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000011(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_73_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_73_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_74(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_74_anh00000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_74 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_74_anh00000000000010 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_74(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyBufferSubDataNVX_ovr_74_anh00000000000010(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_72_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_74(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_78(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_78_anh00000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_78 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    private z_AsyncCopyBufferSubDataNVX_ovr_78_anh00000000000001 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyBufferSubDataNVX_ovr_78(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyBufferSubDataNVX_ovr_78_anh00000000000001(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_78(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyBufferSubDataNVX_ovr_80(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyBufferSubDataNVX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
+    private z_AsyncCopyBufferSubDataNVX_ovr_80 := GetFuncOrNil&(z_AsyncCopyBufferSubDataNVX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyBufferSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; fenceValueArray: IntPtr; readGpu: UInt32; writeGpuMask: DummyFlags; readBuffer: gl_buffer; writeBuffer: gl_buffer; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyBufferSubDataNVX_ovr_80(waitSemaphoreCount, waitSemaphoreArray, fenceValueArray, readGpu, writeGpuMask, readBuffer, writeBuffer, readOffset, writeOffset, size, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
     
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_adr := GetFuncAdr('glAsyncCopyImageSubDataNVX');
+    private z_AsyncCopyImageSubDataNVX_ovr_0 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh000100000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62505,20 +60399,13 @@ type
           if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
             z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
             z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000011(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh000100000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_1_anh001100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_1_anh001100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62535,22 +60422,14 @@ type
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh000100000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_2 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62567,18 +60446,12 @@ type
         if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
           z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000010(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh000100000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_3_anh001100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_3_anh001100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62595,12 +60468,9 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000001(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_4_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_4_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_4_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_4_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_4_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_4_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62609,12 +60479,9 @@ type
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_5_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_5_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_5_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_5_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_5_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_5_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62623,22 +60490,14 @@ type
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_2_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh000000000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh000100000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_6 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62655,12 +60514,9 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
           z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000001(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_7_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_7_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_7_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_7_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_7_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_7_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62669,14 +60525,10 @@ type
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_6_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_8(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_8_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_8_anh000100000000000000000000(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_8_anh001100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_8 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_8_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_8_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_8_anh001100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
@@ -62685,14 +60537,10 @@ type
       if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_8_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_8_anh001100000000000000000000(waitSemaphoreCount, IntPtr.Zero, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_9_anh001000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62709,10 +60557,8 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000011(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_10_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_10_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_10_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_10_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62721,10 +60567,8 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_11_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_11_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_11_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_11_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62733,10 +60577,8 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_12_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_12_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_12_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_12_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62745,22 +60587,18 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000001(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_13_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_13_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_0(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_0_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_14_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_14_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_2(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_2_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_15_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_15_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_15_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_15_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62769,34 +60607,24 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000001(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_16_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_16_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_6(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_6_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_17_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_17_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_8(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_8_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000011(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_18 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh000000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62813,12 +60641,9 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000011(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_19_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_19_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_19_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_19_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_19_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_19_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62827,14 +60652,10 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_20(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_20_anh000000000000000000000010(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_20 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_20_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -62843,10 +60664,8 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000010(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_21_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_21_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_21_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_21_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62855,26 +60674,20 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000001(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_22_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_22_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_18(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_18_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_23_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_23_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_20(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_20_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_24(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_24_anh000000000000000000000001(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_24 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_24_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -62883,16 +60696,13 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000001(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_25_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_25_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_24_anh001000000000000000000000(waitSemaphoreCount, IntPtr.Zero, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_26(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_26_anh001000000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_26 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_26_anh001000000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: array of UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitSemaphoreArray<>nil) and (waitSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_26(waitSemaphoreCount, waitSemaphoreArray[0], waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -63025,22 +60835,14 @@ type
     z_AsyncCopyImageSubDataNVX_ovr_24(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; var waitSemaphoreArray: UInt32; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyImageSubDataNVX_ovr_26(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_54 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -63057,12 +60859,9 @@ type
         if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
           z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
           z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000011(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_55_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_55_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_55_anh000100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_55_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_55_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_55_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -63071,14 +60870,10 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_56(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_56_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_56 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_56_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
@@ -63087,10 +60882,8 @@ type
       if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
         z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000010(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_57_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_57_anh000100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_57_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_57_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -63099,26 +60892,20 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_58_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_58_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_54(waitSemaphoreCount, waitSemaphoreArray, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_54_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_59_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_59_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_56(waitSemaphoreCount, waitSemaphoreArray, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_56_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_60(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_60_anh000000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_60 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_60_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -63127,16 +60914,13 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000001(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_61_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_61_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_60_anh000100000000000000000000(waitSemaphoreCount, waitSemaphoreArray, IntPtr.Zero, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_62(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_62_anh000100000000000000000000(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_62 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_62_anh000100000000000000000000 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: array of UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     if (waitValueArray<>nil) and (waitValueArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_62(waitSemaphoreCount, waitSemaphoreArray, waitValueArray[0], srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray) else
@@ -63173,14 +60957,10 @@ type
     z_AsyncCopyImageSubDataNVX_ovr_60(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; var waitValueArray: UInt64; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyImageSubDataNVX_ovr_62(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_72(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000011(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_72 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000011 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: array of UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
@@ -63189,16 +60969,13 @@ type
       if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
         z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000010(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray[0]) else
         z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000011(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_73_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_73_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; var signalValueArray: UInt64): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
       z_AsyncCopyImageSubDataNVX_ovr_72_anh000000000000000000000010(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, IntPtr.Zero, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_74(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_74_anh000000000000000000000010(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_74 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_74_anh000000000000000000000010 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: array of UInt32; signalValueArray: IntPtr): UInt32 :=
     if (signalSemaphoreArray<>nil) and (signalSemaphoreArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_74(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray[0], signalValueArray) else
@@ -63211,45 +60988,41 @@ type
     z_AsyncCopyImageSubDataNVX_ovr_72(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; var signalSemaphoreArray: UInt32; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyImageSubDataNVX_ovr_74(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_78(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
-    private static function z_AsyncCopyImageSubDataNVX_ovr_78_anh000000000000000000000001(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_78 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
+    private z_AsyncCopyImageSubDataNVX_ovr_78_anh000000000000000000000001 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: array of UInt64): UInt32 :=
     if (signalValueArray<>nil) and (signalValueArray.Length<>0) then
       z_AsyncCopyImageSubDataNVX_ovr_78(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray[0]) else
       z_AsyncCopyImageSubDataNVX_ovr_78_anh000000000000000000000001(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; var signalValueArray: UInt64): UInt32 :=
     z_AsyncCopyImageSubDataNVX_ovr_78(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
-    private static function z_AsyncCopyImageSubDataNVX_ovr_80(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32;
-    external 'opengl32.dll' name 'glAsyncCopyImageSubDataNVX';
+    private z_AsyncCopyImageSubDataNVX_ovr_80 := GetFuncOrNil&(z_AsyncCopyImageSubDataNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AsyncCopyImageSubDataNVX(waitSemaphoreCount: Int32; waitSemaphoreArray: IntPtr; waitValueArray: IntPtr; srcGpu: UInt32; dstGpuMask: DummyFlags; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; srcWidth: Int32; srcHeight: Int32; srcDepth: Int32; signalSemaphoreCount: Int32; signalSemaphoreArray: IntPtr; signalValueArray: IntPtr): UInt32 :=
     z_AsyncCopyImageSubDataNVX_ovr_80(waitSemaphoreCount, waitSemaphoreArray, waitValueArray, srcGpu, dstGpuMask, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, srcWidth, srcHeight, srcDepth, signalSemaphoreCount, signalSemaphoreArray, signalValueArray);
     
   end;
   
   [PCUNotRestore]
-  glProgressFenceNVX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glProgressFenceNVX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NVX_progress_fence';
     
-    private static function z_CreateProgressFenceNVX_ovr_0: UInt32;
-    external 'opengl32.dll' name 'glCreateProgressFenceNVX';
+    private z_CreateProgressFenceNVX_adr := GetFuncAdr('glCreateProgressFenceNVX');
+    private z_CreateProgressFenceNVX_ovr_0 := GetFuncOrNil&(z_CreateProgressFenceNVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateProgressFenceNVX: UInt32 :=
     z_CreateProgressFenceNVX_ovr_0;
     
-    private static procedure z_SignalSemaphoreui64NVX_ovr_0(signalGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
-    private static procedure z_SignalSemaphoreui64NVX_ovr_0_anh00010(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
-    private static procedure z_SignalSemaphoreui64NVX_ovr_0_anh00001(signalGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
-    private static procedure z_SignalSemaphoreui64NVX_ovr_0_anh00011(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
+    private z_SignalSemaphoreui64NVX_adr := GetFuncAdr('glSignalSemaphoreui64NVX');
+    private z_SignalSemaphoreui64NVX_ovr_0 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
+    private z_SignalSemaphoreui64NVX_ovr_0_anh00010 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
+    private z_SignalSemaphoreui64NVX_ovr_0_anh00001 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
+    private z_SignalSemaphoreui64NVX_ovr_0_anh00011 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: array of UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
@@ -63258,16 +61031,13 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_SignalSemaphoreui64NVX_ovr_0_anh00010(signalGpu, fenceObjectCount, IntPtr.Zero, fenceValueArray[0]) else
         z_SignalSemaphoreui64NVX_ovr_0_anh00011(signalGpu, fenceObjectCount, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_SignalSemaphoreui64NVX_ovr_1_anh00010(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
+    private z_SignalSemaphoreui64NVX_ovr_1_anh00010 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; var fenceValueArray: UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_SignalSemaphoreui64NVX_ovr_0(signalGpu, fenceObjectCount, semaphoreArray[0], fenceValueArray) else
       z_SignalSemaphoreui64NVX_ovr_0_anh00010(signalGpu, fenceObjectCount, IntPtr.Zero, fenceValueArray);
-    private static procedure z_SignalSemaphoreui64NVX_ovr_2(signalGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
-    private static procedure z_SignalSemaphoreui64NVX_ovr_2_anh00010(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
+    private z_SignalSemaphoreui64NVX_ovr_2 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
+    private z_SignalSemaphoreui64NVX_ovr_2_anh00010 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: IntPtr) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_SignalSemaphoreui64NVX_ovr_2(signalGpu, fenceObjectCount, semaphoreArray[0], fenceValueArray) else
@@ -63280,29 +61050,23 @@ type
     z_SignalSemaphoreui64NVX_ovr_0(signalGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr) :=
     z_SignalSemaphoreui64NVX_ovr_2(signalGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_SignalSemaphoreui64NVX_ovr_6(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
-    private static procedure z_SignalSemaphoreui64NVX_ovr_6_anh00001(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
+    private z_SignalSemaphoreui64NVX_ovr_6 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
+    private z_SignalSemaphoreui64NVX_ovr_6_anh00001 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: array of UInt64) :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_SignalSemaphoreui64NVX_ovr_6(signalGpu, fenceObjectCount, semaphoreArray, fenceValueArray[0]) else
       z_SignalSemaphoreui64NVX_ovr_6_anh00001(signalGpu, fenceObjectCount, semaphoreArray, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64) :=
     z_SignalSemaphoreui64NVX_ovr_6(signalGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_SignalSemaphoreui64NVX_ovr_8(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glSignalSemaphoreui64NVX';
+    private z_SignalSemaphoreui64NVX_ovr_8 := GetFuncOrNil&(z_SignalSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SignalSemaphoreui64NVX(signalGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr) :=
     z_SignalSemaphoreui64NVX_ovr_8(signalGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
     
-    private static procedure z_WaitSemaphoreui64NVX_ovr_0(waitGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
-    private static procedure z_WaitSemaphoreui64NVX_ovr_0_anh00010(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
-    private static procedure z_WaitSemaphoreui64NVX_ovr_0_anh00001(waitGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
-    private static procedure z_WaitSemaphoreui64NVX_ovr_0_anh00011(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
+    private z_WaitSemaphoreui64NVX_adr := GetFuncAdr('glWaitSemaphoreui64NVX');
+    private z_WaitSemaphoreui64NVX_ovr_0 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
+    private z_WaitSemaphoreui64NVX_ovr_0_anh00010 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
+    private z_WaitSemaphoreui64NVX_ovr_0_anh00001 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
+    private z_WaitSemaphoreui64NVX_ovr_0_anh00011 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: array of UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
@@ -63311,16 +61075,13 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_WaitSemaphoreui64NVX_ovr_0_anh00010(waitGpu, fenceObjectCount, IntPtr.Zero, fenceValueArray[0]) else
         z_WaitSemaphoreui64NVX_ovr_0_anh00011(waitGpu, fenceObjectCount, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_WaitSemaphoreui64NVX_ovr_1_anh00010(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
+    private z_WaitSemaphoreui64NVX_ovr_1_anh00010 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; var fenceValueArray: UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_WaitSemaphoreui64NVX_ovr_0(waitGpu, fenceObjectCount, semaphoreArray[0], fenceValueArray) else
       z_WaitSemaphoreui64NVX_ovr_0_anh00010(waitGpu, fenceObjectCount, IntPtr.Zero, fenceValueArray);
-    private static procedure z_WaitSemaphoreui64NVX_ovr_2(waitGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
-    private static procedure z_WaitSemaphoreui64NVX_ovr_2_anh00010(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
+    private z_WaitSemaphoreui64NVX_ovr_2 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
+    private z_WaitSemaphoreui64NVX_ovr_2_anh00010 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: IntPtr) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_WaitSemaphoreui64NVX_ovr_2(waitGpu, fenceObjectCount, semaphoreArray[0], fenceValueArray) else
@@ -63333,29 +61094,23 @@ type
     z_WaitSemaphoreui64NVX_ovr_0(waitGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr) :=
     z_WaitSemaphoreui64NVX_ovr_2(waitGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_WaitSemaphoreui64NVX_ovr_6(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
-    private static procedure z_WaitSemaphoreui64NVX_ovr_6_anh00001(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
+    private z_WaitSemaphoreui64NVX_ovr_6 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
+    private z_WaitSemaphoreui64NVX_ovr_6_anh00001 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: array of UInt64) :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_WaitSemaphoreui64NVX_ovr_6(waitGpu, fenceObjectCount, semaphoreArray, fenceValueArray[0]) else
       z_WaitSemaphoreui64NVX_ovr_6_anh00001(waitGpu, fenceObjectCount, semaphoreArray, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64) :=
     z_WaitSemaphoreui64NVX_ovr_6(waitGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_WaitSemaphoreui64NVX_ovr_8(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glWaitSemaphoreui64NVX';
+    private z_WaitSemaphoreui64NVX_ovr_8 := GetFuncOrNil&(z_WaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WaitSemaphoreui64NVX(waitGpu: UInt32; fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr) :=
     z_WaitSemaphoreui64NVX_ovr_8(waitGpu, fenceObjectCount, semaphoreArray, fenceValueArray);
     
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_0(fenceObjectCount: Int32; var semaphoreArray: UInt32; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_0_anh0010(fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_0_anh0001(fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_0_anh0011(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
+    private z_ClientWaitSemaphoreui64NVX_adr := GetFuncAdr('glClientWaitSemaphoreui64NVX');
+    private z_ClientWaitSemaphoreui64NVX_ovr_0 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
+    private z_ClientWaitSemaphoreui64NVX_ovr_0_anh0010 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
+    private z_ClientWaitSemaphoreui64NVX_ovr_0_anh0001 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
+    private z_ClientWaitSemaphoreui64NVX_ovr_0_anh0011 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: array of UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
@@ -63364,16 +61119,13 @@ type
       if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
         z_ClientWaitSemaphoreui64NVX_ovr_0_anh0010(fenceObjectCount, IntPtr.Zero, fenceValueArray[0]) else
         z_ClientWaitSemaphoreui64NVX_ovr_0_anh0011(fenceObjectCount, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_1_anh0010(fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
+    private z_ClientWaitSemaphoreui64NVX_ovr_1_anh0010 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: array of UInt32; var fenceValueArray: UInt64) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_ClientWaitSemaphoreui64NVX_ovr_0(fenceObjectCount, semaphoreArray[0], fenceValueArray) else
       z_ClientWaitSemaphoreui64NVX_ovr_0_anh0010(fenceObjectCount, IntPtr.Zero, fenceValueArray);
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_2(fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_2_anh0010(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
+    private z_ClientWaitSemaphoreui64NVX_ovr_2 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
+    private z_ClientWaitSemaphoreui64NVX_ovr_2_anh0010 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: array of UInt32; fenceValueArray: IntPtr) :=
     if (semaphoreArray<>nil) and (semaphoreArray.Length<>0) then
       z_ClientWaitSemaphoreui64NVX_ovr_2(fenceObjectCount, semaphoreArray[0], fenceValueArray) else
@@ -63386,334 +61138,351 @@ type
     z_ClientWaitSemaphoreui64NVX_ovr_0(fenceObjectCount, semaphoreArray, fenceValueArray);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; var semaphoreArray: UInt32; fenceValueArray: IntPtr) :=
     z_ClientWaitSemaphoreui64NVX_ovr_2(fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_6(fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_6_anh0001(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
+    private z_ClientWaitSemaphoreui64NVX_ovr_6 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
+    private z_ClientWaitSemaphoreui64NVX_ovr_6_anh0001 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: array of UInt64) :=
     if (fenceValueArray<>nil) and (fenceValueArray.Length<>0) then
       z_ClientWaitSemaphoreui64NVX_ovr_6(fenceObjectCount, semaphoreArray, fenceValueArray[0]) else
       z_ClientWaitSemaphoreui64NVX_ovr_6_anh0001(fenceObjectCount, semaphoreArray, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: IntPtr; var fenceValueArray: UInt64) :=
     z_ClientWaitSemaphoreui64NVX_ovr_6(fenceObjectCount, semaphoreArray, fenceValueArray);
-    private static procedure z_ClientWaitSemaphoreui64NVX_ovr_8(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr);
-    external 'opengl32.dll' name 'glClientWaitSemaphoreui64NVX';
+    private z_ClientWaitSemaphoreui64NVX_ovr_8 := GetFuncOrNil&(z_ClientWaitSemaphoreui64NVX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClientWaitSemaphoreui64NVX(fenceObjectCount: Int32; semaphoreArray: IntPtr; fenceValueArray: IntPtr) :=
     z_ClientWaitSemaphoreui64NVX_ovr_8(fenceObjectCount, semaphoreArray, fenceValueArray);
     
   end;
   
   [PCUNotRestore]
-  glMemoryAttachmentNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMemoryAttachmentNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_memory_attachment';
     
-    private static procedure z_GetMemoryObjectDetachedResourcesuivNV_ovr_0(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetMemoryObjectDetachedResourcesuivNV';
-    private static procedure z_GetMemoryObjectDetachedResourcesuivNV_ovr_0_anh000001(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMemoryObjectDetachedResourcesuivNV';
+    private z_GetMemoryObjectDetachedResourcesuivNV_adr := GetFuncAdr('glGetMemoryObjectDetachedResourcesuivNV');
+    private z_GetMemoryObjectDetachedResourcesuivNV_ovr_0 := GetFuncOrNil&(z_GetMemoryObjectDetachedResourcesuivNV_adr);
+    private z_GetMemoryObjectDetachedResourcesuivNV_ovr_0_anh000001 := GetFuncOrNil&(z_GetMemoryObjectDetachedResourcesuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectDetachedResourcesuivNV(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetMemoryObjectDetachedResourcesuivNV_ovr_0(memory, pname, first, count, ¶ms[0]) else
       z_GetMemoryObjectDetachedResourcesuivNV_ovr_0_anh000001(memory, pname, first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectDetachedResourcesuivNV(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; var ¶ms: UInt32) :=
     z_GetMemoryObjectDetachedResourcesuivNV_ovr_0(memory, pname, first, count, ¶ms);
-    private static procedure z_GetMemoryObjectDetachedResourcesuivNV_ovr_2(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetMemoryObjectDetachedResourcesuivNV';
+    private z_GetMemoryObjectDetachedResourcesuivNV_ovr_2 := GetFuncOrNil&(z_GetMemoryObjectDetachedResourcesuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMemoryObjectDetachedResourcesuivNV(memory: UInt32; pname: DummyEnum; first: Int32; count: Int32; ¶ms: IntPtr) :=
     z_GetMemoryObjectDetachedResourcesuivNV_ovr_2(memory, pname, first, count, ¶ms);
     
-    private static procedure z_ResetMemoryObjectParameterNV_ovr_0(memory: UInt32; pname: DummyEnum);
-    external 'opengl32.dll' name 'glResetMemoryObjectParameterNV';
+    private z_ResetMemoryObjectParameterNV_adr := GetFuncAdr('glResetMemoryObjectParameterNV');
+    private z_ResetMemoryObjectParameterNV_ovr_0 := GetFuncOrNil&(z_ResetMemoryObjectParameterNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResetMemoryObjectParameterNV(memory: UInt32; pname: DummyEnum) :=
     z_ResetMemoryObjectParameterNV_ovr_0(memory, pname);
     
-    private static procedure z_TexAttachMemoryNV_ovr_0(target: TextureTarget; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTexAttachMemoryNV';
+    private z_TexAttachMemoryNV_adr := GetFuncAdr('glTexAttachMemoryNV');
+    private z_TexAttachMemoryNV_ovr_0 := GetFuncOrNil&(z_TexAttachMemoryNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexAttachMemoryNV(target: TextureTarget; memory: UInt32; offset: UInt64) :=
     z_TexAttachMemoryNV_ovr_0(target, memory, offset);
     
-    private static procedure z_BufferAttachMemoryNV_ovr_0(target: BufferTargetARB; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glBufferAttachMemoryNV';
+    private z_BufferAttachMemoryNV_adr := GetFuncAdr('glBufferAttachMemoryNV');
+    private z_BufferAttachMemoryNV_ovr_0 := GetFuncOrNil&(z_BufferAttachMemoryNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferAttachMemoryNV(target: BufferTargetARB; memory: UInt32; offset: UInt64) :=
     z_BufferAttachMemoryNV_ovr_0(target, memory, offset);
     
-    private static procedure z_TextureAttachMemoryNV_ovr_0(texture: UInt32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glTextureAttachMemoryNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureAttachMemoryNV(texture: UInt32; memory: UInt32; offset: UInt64) :=
+    private z_TextureAttachMemoryNV_adr := GetFuncAdr('glTextureAttachMemoryNV');
+    private z_TextureAttachMemoryNV_ovr_0 := GetFuncOrNil&(z_TextureAttachMemoryNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureAttachMemoryNV(texture: gl_texture; memory: UInt32; offset: UInt64) :=
     z_TextureAttachMemoryNV_ovr_0(texture, memory, offset);
     
-    private static procedure z_NamedBufferAttachMemoryNV_ovr_0(buffer: UInt32; memory: UInt32; offset: UInt64);
-    external 'opengl32.dll' name 'glNamedBufferAttachMemoryNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferAttachMemoryNV(buffer: UInt32; memory: UInt32; offset: UInt64) :=
+    private z_NamedBufferAttachMemoryNV_adr := GetFuncAdr('glNamedBufferAttachMemoryNV');
+    private z_NamedBufferAttachMemoryNV_ovr_0 := GetFuncOrNil&(z_NamedBufferAttachMemoryNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferAttachMemoryNV(buffer: gl_buffer; memory: UInt32; offset: UInt64) :=
     z_NamedBufferAttachMemoryNV_ovr_0(buffer, memory, offset);
     
   end;
   
   [PCUNotRestore]
-  glMeshShaderNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMemoryObjectSparseNV = 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(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_memory_object_sparse';
+    
+    private z_BufferPageCommitmentMemNV_adr := GetFuncAdr('glBufferPageCommitmentMemNV');
+    private z_BufferPageCommitmentMemNV_ovr_0 := GetFuncOrNil&(z_BufferPageCommitmentMemNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferPageCommitmentMemNV(target: BufferStorageTarget; offset: IntPtr; size: IntPtr; memory: UInt32; memOffset: UInt64; commit: boolean) :=
+    z_BufferPageCommitmentMemNV_ovr_0(target, offset, size, memory, memOffset, commit);
+    
+    private z_TexPageCommitmentMemNV_adr := GetFuncAdr('glTexPageCommitmentMemNV');
+    private z_TexPageCommitmentMemNV_ovr_0 := GetFuncOrNil&(z_TexPageCommitmentMemNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexPageCommitmentMemNV(target: TextureTarget; layer: Int32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64; commit: boolean) :=
+    z_TexPageCommitmentMemNV_ovr_0(target, layer, level, xoffset, yoffset, zoffset, width, height, depth, memory, offset, commit);
+    
+    private z_NamedBufferPageCommitmentMemNV_adr := GetFuncAdr('glNamedBufferPageCommitmentMemNV');
+    private z_NamedBufferPageCommitmentMemNV_ovr_0 := GetFuncOrNil&(z_NamedBufferPageCommitmentMemNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedBufferPageCommitmentMemNV(buffer: gl_buffer; offset: IntPtr; size: IntPtr; memory: UInt32; memOffset: UInt64; commit: boolean) :=
+    z_NamedBufferPageCommitmentMemNV_ovr_0(buffer, offset, size, memory, memOffset, commit);
+    
+    private z_TexturePageCommitmentMemNV_adr := GetFuncAdr('glTexturePageCommitmentMemNV');
+    private z_TexturePageCommitmentMemNV_ovr_0 := GetFuncOrNil&(z_TexturePageCommitmentMemNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexturePageCommitmentMemNV(texture: gl_texture; layer: Int32; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; width: Int32; height: Int32; depth: Int32; memory: UInt32; offset: UInt64; commit: boolean) :=
+    z_TexturePageCommitmentMemNV_ovr_0(texture, layer, level, xoffset, yoffset, zoffset, width, height, depth, memory, offset, commit);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMeshShaderNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_mesh_shader';
     
-    private static procedure z_DrawMeshTasksNV_ovr_0(first: UInt32; count: UInt32);
-    external 'opengl32.dll' name 'glDrawMeshTasksNV';
+    private z_DrawMeshTasksNV_adr := GetFuncAdr('glDrawMeshTasksNV');
+    private z_DrawMeshTasksNV_ovr_0 := GetFuncOrNil&(z_DrawMeshTasksNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawMeshTasksNV(first: UInt32; count: UInt32) :=
     z_DrawMeshTasksNV_ovr_0(first, count);
     
-    private static procedure z_DrawMeshTasksIndirectNV_ovr_0(indirect: IntPtr);
-    external 'opengl32.dll' name 'glDrawMeshTasksIndirectNV';
+    private z_DrawMeshTasksIndirectNV_adr := GetFuncAdr('glDrawMeshTasksIndirectNV');
+    private z_DrawMeshTasksIndirectNV_ovr_0 := GetFuncOrNil&(z_DrawMeshTasksIndirectNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawMeshTasksIndirectNV(indirect: IntPtr) :=
     z_DrawMeshTasksIndirectNV_ovr_0(indirect);
     
-    private static procedure z_MultiDrawMeshTasksIndirectNV_ovr_0(indirect: IntPtr; drawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawMeshTasksIndirectNV';
+    private z_MultiDrawMeshTasksIndirectNV_adr := GetFuncAdr('glMultiDrawMeshTasksIndirectNV');
+    private z_MultiDrawMeshTasksIndirectNV_ovr_0 := GetFuncOrNil&(z_MultiDrawMeshTasksIndirectNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawMeshTasksIndirectNV(indirect: IntPtr; drawcount: Int32; stride: Int32) :=
     z_MultiDrawMeshTasksIndirectNV_ovr_0(indirect, drawcount, stride);
     
-    private static procedure z_MultiDrawMeshTasksIndirectCountNV_ovr_0(indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32);
-    external 'opengl32.dll' name 'glMultiDrawMeshTasksIndirectCountNV';
+    private z_MultiDrawMeshTasksIndirectCountNV_adr := GetFuncAdr('glMultiDrawMeshTasksIndirectCountNV');
+    private z_MultiDrawMeshTasksIndirectCountNV_ovr_0 := GetFuncOrNil&(z_MultiDrawMeshTasksIndirectCountNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiDrawMeshTasksIndirectCountNV(indirect: IntPtr; drawcount: IntPtr; maxdrawcount: Int32; stride: Int32) :=
     z_MultiDrawMeshTasksIndirectCountNV_ovr_0(indirect, drawcount, maxdrawcount, stride);
     
   end;
   
   [PCUNotRestore]
-  glOcclusionQueryNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glOcclusionQueryNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_occlusion_query';
     
-    private static procedure z_GenOcclusionQueriesNV_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glGenOcclusionQueriesNV';
-    private static procedure z_GenOcclusionQueriesNV_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenOcclusionQueriesNV';
+    private z_GenOcclusionQueriesNV_adr := GetFuncAdr('glGenOcclusionQueriesNV');
+    private z_GenOcclusionQueriesNV_ovr_0 := GetFuncOrNil&(z_GenOcclusionQueriesNV_adr);
+    private z_GenOcclusionQueriesNV_ovr_0_anh001 := GetFuncOrNil&(z_GenOcclusionQueriesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenOcclusionQueriesNV(n: Int32; ids: array of UInt32) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenOcclusionQueriesNV_ovr_0(n, ids[0]) else
       z_GenOcclusionQueriesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenOcclusionQueriesNV(n: Int32; var ids: UInt32) :=
     z_GenOcclusionQueriesNV_ovr_0(n, ids);
-    private static procedure z_GenOcclusionQueriesNV_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenOcclusionQueriesNV';
+    private z_GenOcclusionQueriesNV_ovr_2 := GetFuncOrNil&(z_GenOcclusionQueriesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenOcclusionQueriesNV(n: Int32; ids: IntPtr) :=
     z_GenOcclusionQueriesNV_ovr_2(n, ids);
     
-    private static procedure z_DeleteOcclusionQueriesNV_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glDeleteOcclusionQueriesNV';
-    private static procedure z_DeleteOcclusionQueriesNV_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteOcclusionQueriesNV';
+    private z_DeleteOcclusionQueriesNV_adr := GetFuncAdr('glDeleteOcclusionQueriesNV');
+    private z_DeleteOcclusionQueriesNV_ovr_0 := GetFuncOrNil&(z_DeleteOcclusionQueriesNV_adr);
+    private z_DeleteOcclusionQueriesNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteOcclusionQueriesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteOcclusionQueriesNV(n: Int32; ids: array of UInt32) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteOcclusionQueriesNV_ovr_0(n, ids[0]) else
       z_DeleteOcclusionQueriesNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteOcclusionQueriesNV(n: Int32; var ids: UInt32) :=
     z_DeleteOcclusionQueriesNV_ovr_0(n, ids);
-    private static procedure z_DeleteOcclusionQueriesNV_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteOcclusionQueriesNV';
+    private z_DeleteOcclusionQueriesNV_ovr_2 := GetFuncOrNil&(z_DeleteOcclusionQueriesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteOcclusionQueriesNV(n: Int32; ids: IntPtr) :=
     z_DeleteOcclusionQueriesNV_ovr_2(n, ids);
     
-    private static function z_IsOcclusionQueryNV_ovr_0(id: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsOcclusionQueryNV';
+    private z_IsOcclusionQueryNV_adr := GetFuncAdr('glIsOcclusionQueryNV');
+    private z_IsOcclusionQueryNV_ovr_0 := GetFuncOrNil&(z_IsOcclusionQueryNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsOcclusionQueryNV(id: UInt32): boolean :=
     z_IsOcclusionQueryNV_ovr_0(id);
     
-    private static procedure z_BeginOcclusionQueryNV_ovr_0(id: UInt32);
-    external 'opengl32.dll' name 'glBeginOcclusionQueryNV';
+    private z_BeginOcclusionQueryNV_adr := GetFuncAdr('glBeginOcclusionQueryNV');
+    private z_BeginOcclusionQueryNV_ovr_0 := GetFuncOrNil&(z_BeginOcclusionQueryNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginOcclusionQueryNV(id: UInt32) :=
     z_BeginOcclusionQueryNV_ovr_0(id);
     
-    private static procedure z_EndOcclusionQueryNV_ovr_0;
-    external 'opengl32.dll' name 'glEndOcclusionQueryNV';
+    private z_EndOcclusionQueryNV_adr := GetFuncAdr('glEndOcclusionQueryNV');
+    private z_EndOcclusionQueryNV_ovr_0 := GetFuncOrNil&(z_EndOcclusionQueryNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndOcclusionQueryNV :=
     z_EndOcclusionQueryNV_ovr_0;
     
-    private static procedure z_GetOcclusionQueryivNV_ovr_0(id: UInt32; pname: OcclusionQueryParameterNameNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetOcclusionQueryivNV';
-    private static procedure z_GetOcclusionQueryivNV_ovr_0_anh0001(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetOcclusionQueryivNV';
+    private z_GetOcclusionQueryivNV_adr := GetFuncAdr('glGetOcclusionQueryivNV');
+    private z_GetOcclusionQueryivNV_ovr_0 := GetFuncOrNil&(z_GetOcclusionQueryivNV_adr);
+    private z_GetOcclusionQueryivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetOcclusionQueryivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetOcclusionQueryivNV_ovr_0(id, pname, ¶ms[0]) else
       z_GetOcclusionQueryivNV_ovr_0_anh0001(id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; var ¶ms: Int32) :=
     z_GetOcclusionQueryivNV_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetOcclusionQueryivNV_ovr_2(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetOcclusionQueryivNV';
+    private z_GetOcclusionQueryivNV_ovr_2 := GetFuncOrNil&(z_GetOcclusionQueryivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr) :=
     z_GetOcclusionQueryivNV_ovr_2(id, pname, ¶ms);
     
-    private static procedure z_GetOcclusionQueryuivNV_ovr_0(id: UInt32; pname: OcclusionQueryParameterNameNV; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetOcclusionQueryuivNV';
-    private static procedure z_GetOcclusionQueryuivNV_ovr_0_anh0001(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetOcclusionQueryuivNV';
+    private z_GetOcclusionQueryuivNV_adr := GetFuncAdr('glGetOcclusionQueryuivNV');
+    private z_GetOcclusionQueryuivNV_ovr_0 := GetFuncOrNil&(z_GetOcclusionQueryuivNV_adr);
+    private z_GetOcclusionQueryuivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetOcclusionQueryuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryuivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetOcclusionQueryuivNV_ovr_0(id, pname, ¶ms[0]) else
       z_GetOcclusionQueryuivNV_ovr_0_anh0001(id, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryuivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; var ¶ms: UInt32) :=
     z_GetOcclusionQueryuivNV_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetOcclusionQueryuivNV_ovr_2(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetOcclusionQueryuivNV';
+    private z_GetOcclusionQueryuivNV_ovr_2 := GetFuncOrNil&(z_GetOcclusionQueryuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetOcclusionQueryuivNV(id: UInt32; pname: OcclusionQueryParameterNameNV; ¶ms: IntPtr) :=
     z_GetOcclusionQueryuivNV_ovr_2(id, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glParameterBufferObjectNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glParameterBufferObjectNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_parameter_buffer_object';
     
-    private static procedure z_ProgramBufferParametersfvNV_ovr_0(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glProgramBufferParametersfvNV';
-    private static procedure z_ProgramBufferParametersfvNV_ovr_0_anh000001(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersfvNV';
+    private z_ProgramBufferParametersfvNV_adr := GetFuncAdr('glProgramBufferParametersfvNV');
+    private z_ProgramBufferParametersfvNV_ovr_0 := GetFuncOrNil&(z_ProgramBufferParametersfvNV_adr);
+    private z_ProgramBufferParametersfvNV_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramBufferParametersfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersfvNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramBufferParametersfvNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms[0]) else
       z_ProgramBufferParametersfvNV_ovr_0_anh000001(target, bindingIndex, wordIndex, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersfvNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: single) :=
     z_ProgramBufferParametersfvNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms);
-    private static procedure z_ProgramBufferParametersfvNV_ovr_2(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersfvNV';
+    private z_ProgramBufferParametersfvNV_ovr_2 := GetFuncOrNil&(z_ProgramBufferParametersfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersfvNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramBufferParametersfvNV_ovr_2(target, bindingIndex, wordIndex, count, ¶ms);
     
-    private static procedure z_ProgramBufferParametersIivNV_ovr_0(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glProgramBufferParametersIivNV';
-    private static procedure z_ProgramBufferParametersIivNV_ovr_0_anh000001(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersIivNV';
+    private z_ProgramBufferParametersIivNV_adr := GetFuncAdr('glProgramBufferParametersIivNV');
+    private z_ProgramBufferParametersIivNV_ovr_0 := GetFuncOrNil&(z_ProgramBufferParametersIivNV_adr);
+    private z_ProgramBufferParametersIivNV_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramBufferParametersIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramBufferParametersIivNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms[0]) else
       z_ProgramBufferParametersIivNV_ovr_0_anh000001(target, bindingIndex, wordIndex, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: Int32) :=
     z_ProgramBufferParametersIivNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms);
-    private static procedure z_ProgramBufferParametersIivNV_ovr_2(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersIivNV';
+    private z_ProgramBufferParametersIivNV_ovr_2 := GetFuncOrNil&(z_ProgramBufferParametersIivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramBufferParametersIivNV_ovr_2(target, bindingIndex, wordIndex, count, ¶ms);
     
-    private static procedure z_ProgramBufferParametersIuivNV_ovr_0(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glProgramBufferParametersIuivNV';
-    private static procedure z_ProgramBufferParametersIuivNV_ovr_0_anh000001(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersIuivNV';
+    private z_ProgramBufferParametersIuivNV_adr := GetFuncAdr('glProgramBufferParametersIuivNV');
+    private z_ProgramBufferParametersIuivNV_ovr_0 := GetFuncOrNil&(z_ProgramBufferParametersIuivNV_adr);
+    private z_ProgramBufferParametersIuivNV_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramBufferParametersIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIuivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ProgramBufferParametersIuivNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms[0]) else
       z_ProgramBufferParametersIuivNV_ovr_0_anh000001(target, bindingIndex, wordIndex, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIuivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; var ¶ms: UInt32) :=
     z_ProgramBufferParametersIuivNV_ovr_0(target, bindingIndex, wordIndex, count, ¶ms);
-    private static procedure z_ProgramBufferParametersIuivNV_ovr_2(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glProgramBufferParametersIuivNV';
+    private z_ProgramBufferParametersIuivNV_ovr_2 := GetFuncOrNil&(z_ProgramBufferParametersIuivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramBufferParametersIuivNV(target: ProgramTarget; bindingIndex: UInt32; wordIndex: UInt32; count: Int32; ¶ms: IntPtr) :=
     z_ProgramBufferParametersIuivNV_ovr_2(target, bindingIndex, wordIndex, count, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPathRenderingNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPathRenderingNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_path_rendering';
     
-    private static function z_GenPathsNV_ovr_0(range: Int32): UInt32;
-    external 'opengl32.dll' name 'glGenPathsNV';
+    private z_GenPathsNV_adr := GetFuncAdr('glGenPathsNV');
+    private z_GenPathsNV_ovr_0 := GetFuncOrNil&(z_GenPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenPathsNV(range: Int32): UInt32 :=
     z_GenPathsNV_ovr_0(range);
     
-    private static procedure z_DeletePathsNV_ovr_0(path: UInt32; range: Int32);
-    external 'opengl32.dll' name 'glDeletePathsNV';
+    private z_DeletePathsNV_adr := GetFuncAdr('glDeletePathsNV');
+    private z_DeletePathsNV_ovr_0 := GetFuncOrNil&(z_DeletePathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeletePathsNV(path: UInt32; range: Int32) :=
     z_DeletePathsNV_ovr_0(path, range);
     
-    private static function z_IsPathNV_ovr_0(path: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsPathNV';
+    private z_IsPathNV_adr := GetFuncAdr('glIsPathNV');
+    private z_IsPathNV_ovr_0 := GetFuncOrNil&(z_IsPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsPathNV(path: UInt32): boolean :=
     z_IsPathNV_ovr_0(path);
     
-    private static procedure z_PathCommandsNV_ovr_0(path: UInt32; numCommands: Int32; var commands: Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathCommandsNV';
-    private static procedure z_PathCommandsNV_ovr_0_anh0001000(path: UInt32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathCommandsNV';
+    private z_PathCommandsNV_adr := GetFuncAdr('glPathCommandsNV');
+    private z_PathCommandsNV_ovr_0 := GetFuncOrNil&(z_PathCommandsNV_adr);
+    private z_PathCommandsNV_ovr_0_anh0001000 := GetFuncOrNil&(z_PathCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathCommandsNV(path: UInt32; numCommands: Int32; commands: array of Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     if (commands<>nil) and (commands.Length<>0) then
       z_PathCommandsNV_ovr_0(path, numCommands, commands[0], numCoords, coordType, coords) else
       z_PathCommandsNV_ovr_0_anh0001000(path, numCommands, IntPtr.Zero, numCoords, coordType, coords);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathCommandsNV(path: UInt32; numCommands: Int32; var commands: Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathCommandsNV_ovr_0(path, numCommands, commands, numCoords, coordType, coords);
-    private static procedure z_PathCommandsNV_ovr_2(path: UInt32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathCommandsNV';
+    private z_PathCommandsNV_ovr_2 := GetFuncOrNil&(z_PathCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathCommandsNV(path: UInt32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathCommandsNV_ovr_2(path, numCommands, commands, numCoords, coordType, coords);
     
-    private static procedure z_PathCoordsNV_ovr_0(path: UInt32; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathCoordsNV';
+    private z_PathCoordsNV_adr := GetFuncAdr('glPathCoordsNV');
+    private z_PathCoordsNV_ovr_0 := GetFuncOrNil&(z_PathCoordsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathCoordsNV(path: UInt32; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathCoordsNV_ovr_0(path, numCoords, coordType, coords);
     
-    private static procedure z_PathSubCommandsNV_ovr_0(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; var commands: Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathSubCommandsNV';
-    private static procedure z_PathSubCommandsNV_ovr_0_anh000001000(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathSubCommandsNV';
+    private z_PathSubCommandsNV_adr := GetFuncAdr('glPathSubCommandsNV');
+    private z_PathSubCommandsNV_ovr_0 := GetFuncOrNil&(z_PathSubCommandsNV_adr);
+    private z_PathSubCommandsNV_ovr_0_anh000001000 := GetFuncOrNil&(z_PathSubCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathSubCommandsNV(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; commands: array of Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     if (commands<>nil) and (commands.Length<>0) then
       z_PathSubCommandsNV_ovr_0(path, commandStart, commandsToDelete, numCommands, commands[0], numCoords, coordType, coords) else
       z_PathSubCommandsNV_ovr_0_anh000001000(path, commandStart, commandsToDelete, numCommands, IntPtr.Zero, numCoords, coordType, coords);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathSubCommandsNV(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; var commands: Byte; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathSubCommandsNV_ovr_0(path, commandStart, commandsToDelete, numCommands, commands, numCoords, coordType, coords);
-    private static procedure z_PathSubCommandsNV_ovr_2(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathSubCommandsNV';
+    private z_PathSubCommandsNV_ovr_2 := GetFuncOrNil&(z_PathSubCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathSubCommandsNV(path: UInt32; commandStart: Int32; commandsToDelete: Int32; numCommands: Int32; commands: IntPtr; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathSubCommandsNV_ovr_2(path, commandStart, commandsToDelete, numCommands, commands, numCoords, coordType, coords);
     
-    private static procedure z_PathSubCoordsNV_ovr_0(path: UInt32; coordStart: Int32; numCoords: Int32; coordType: PathCoordType; coords: IntPtr);
-    external 'opengl32.dll' name 'glPathSubCoordsNV';
+    private z_PathSubCoordsNV_adr := GetFuncAdr('glPathSubCoordsNV');
+    private z_PathSubCoordsNV_ovr_0 := GetFuncOrNil&(z_PathSubCoordsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathSubCoordsNV(path: UInt32; coordStart: Int32; numCoords: Int32; coordType: PathCoordType; coords: IntPtr) :=
     z_PathSubCoordsNV_ovr_0(path, coordStart, numCoords, coordType, coords);
     
-    private static procedure z_PathStringNV_ovr_0(path: UInt32; format: PathStringFormat; length: Int32; pathString: IntPtr);
-    external 'opengl32.dll' name 'glPathStringNV';
+    private z_PathStringNV_adr := GetFuncAdr('glPathStringNV');
+    private z_PathStringNV_ovr_0 := GetFuncOrNil&(z_PathStringNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathStringNV(path: UInt32; format: PathStringFormat; length: Int32; pathString: IntPtr) :=
     z_PathStringNV_ovr_0(path, format, length, pathString);
     
-    private static procedure z_PathGlyphsNV_ovr_0(firstPathName: UInt32; fontTarget: PathFontTarget; fontName: IntPtr; fontStyle: PathFontStyle; numGlyphs: Int32; &type: PathElementType; charcodes: IntPtr; handleMissingGlyphs: PathHandleMissingGlyphs; pathParameterTemplate: UInt32; emScale: single);
-    external 'opengl32.dll' name 'glPathGlyphsNV';
+    private z_PathGlyphsNV_adr := GetFuncAdr('glPathGlyphsNV');
+    private z_PathGlyphsNV_ovr_0 := GetFuncOrNil&(z_PathGlyphsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathGlyphsNV(firstPathName: UInt32; fontTarget: PathFontTarget; fontName: IntPtr; fontStyle: PathFontStyle; numGlyphs: Int32; &type: PathElementType; charcodes: IntPtr; handleMissingGlyphs: PathHandleMissingGlyphs; pathParameterTemplate: UInt32; emScale: single) :=
     z_PathGlyphsNV_ovr_0(firstPathName, fontTarget, fontName, fontStyle, numGlyphs, &type, charcodes, handleMissingGlyphs, pathParameterTemplate, emScale);
     
-    private static procedure z_PathGlyphRangeNV_ovr_0(firstPathName: UInt32; fontTarget: PathFontTarget; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyph: UInt32; numGlyphs: Int32; handleMissingGlyphs: PathHandleMissingGlyphs; pathParameterTemplate: UInt32; emScale: single);
-    external 'opengl32.dll' name 'glPathGlyphRangeNV';
+    private z_PathGlyphRangeNV_adr := GetFuncAdr('glPathGlyphRangeNV');
+    private z_PathGlyphRangeNV_ovr_0 := GetFuncOrNil&(z_PathGlyphRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathGlyphRangeNV(firstPathName: UInt32; fontTarget: PathFontTarget; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyph: UInt32; numGlyphs: Int32; handleMissingGlyphs: PathHandleMissingGlyphs; pathParameterTemplate: UInt32; emScale: single) :=
     z_PathGlyphRangeNV_ovr_0(firstPathName, fontTarget, fontName, fontStyle, firstGlyph, numGlyphs, handleMissingGlyphs, pathParameterTemplate, emScale);
     
-    private static procedure z_WeightPathsNV_ovr_0(resultPath: UInt32; numPaths: Int32; var paths: UInt32; var weights: single);
-    external 'opengl32.dll' name 'glWeightPathsNV';
-    private static procedure z_WeightPathsNV_ovr_0_anh00010(resultPath: UInt32; numPaths: Int32; paths: IntPtr; var weights: single);
-    external 'opengl32.dll' name 'glWeightPathsNV';
-    private static procedure z_WeightPathsNV_ovr_0_anh00001(resultPath: UInt32; numPaths: Int32; var paths: UInt32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
-    private static procedure z_WeightPathsNV_ovr_0_anh00011(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
+    private z_WeightPathsNV_adr := GetFuncAdr('glWeightPathsNV');
+    private z_WeightPathsNV_ovr_0 := GetFuncOrNil&(z_WeightPathsNV_adr);
+    private z_WeightPathsNV_ovr_0_anh00010 := GetFuncOrNil&(z_WeightPathsNV_adr);
+    private z_WeightPathsNV_ovr_0_anh00001 := GetFuncOrNil&(z_WeightPathsNV_adr);
+    private z_WeightPathsNV_ovr_0_anh00011 := GetFuncOrNil&(z_WeightPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: array of UInt32; weights: array of single) :=
     if (paths<>nil) and (paths.Length<>0) then
       if (weights<>nil) and (weights.Length<>0) then
@@ -63722,16 +61491,13 @@ type
       if (weights<>nil) and (weights.Length<>0) then
         z_WeightPathsNV_ovr_0_anh00010(resultPath, numPaths, IntPtr.Zero, weights[0]) else
         z_WeightPathsNV_ovr_0_anh00011(resultPath, numPaths, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_WeightPathsNV_ovr_1_anh00010(resultPath: UInt32; numPaths: Int32; paths: IntPtr; var weights: single);
-    external 'opengl32.dll' name 'glWeightPathsNV';
+    private z_WeightPathsNV_ovr_1_anh00010 := GetFuncOrNil&(z_WeightPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: array of UInt32; var weights: single) :=
     if (paths<>nil) and (paths.Length<>0) then
       z_WeightPathsNV_ovr_0(resultPath, numPaths, paths[0], weights) else
       z_WeightPathsNV_ovr_0_anh00010(resultPath, numPaths, IntPtr.Zero, weights);
-    private static procedure z_WeightPathsNV_ovr_2(resultPath: UInt32; numPaths: Int32; var paths: UInt32; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
-    private static procedure z_WeightPathsNV_ovr_2_anh00010(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
+    private z_WeightPathsNV_ovr_2 := GetFuncOrNil&(z_WeightPathsNV_adr);
+    private z_WeightPathsNV_ovr_2_anh00010 := GetFuncOrNil&(z_WeightPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: array of UInt32; weights: IntPtr) :=
     if (paths<>nil) and (paths.Length<>0) then
       z_WeightPathsNV_ovr_2(resultPath, numPaths, paths[0], weights) else
@@ -63744,1343 +61510,494 @@ type
     z_WeightPathsNV_ovr_0(resultPath, numPaths, paths, weights);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; var paths: UInt32; weights: IntPtr) :=
     z_WeightPathsNV_ovr_2(resultPath, numPaths, paths, weights);
-    private static procedure z_WeightPathsNV_ovr_6(resultPath: UInt32; numPaths: Int32; paths: IntPtr; var weights: single);
-    external 'opengl32.dll' name 'glWeightPathsNV';
-    private static procedure z_WeightPathsNV_ovr_6_anh00001(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
+    private z_WeightPathsNV_ovr_6 := GetFuncOrNil&(z_WeightPathsNV_adr);
+    private z_WeightPathsNV_ovr_6_anh00001 := GetFuncOrNil&(z_WeightPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: array of single) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_WeightPathsNV_ovr_6(resultPath, numPaths, paths, weights[0]) else
       z_WeightPathsNV_ovr_6_anh00001(resultPath, numPaths, paths, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: IntPtr; var weights: single) :=
     z_WeightPathsNV_ovr_6(resultPath, numPaths, paths, weights);
-    private static procedure z_WeightPathsNV_ovr_8(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: IntPtr);
-    external 'opengl32.dll' name 'glWeightPathsNV';
+    private z_WeightPathsNV_ovr_8 := GetFuncOrNil&(z_WeightPathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure WeightPathsNV(resultPath: UInt32; numPaths: Int32; paths: IntPtr; weights: IntPtr) :=
     z_WeightPathsNV_ovr_8(resultPath, numPaths, paths, weights);
     
-    private static procedure z_CopyPathNV_ovr_0(resultPath: UInt32; srcPath: UInt32);
-    external 'opengl32.dll' name 'glCopyPathNV';
+    private z_CopyPathNV_adr := GetFuncAdr('glCopyPathNV');
+    private z_CopyPathNV_ovr_0 := GetFuncOrNil&(z_CopyPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyPathNV(resultPath: UInt32; srcPath: UInt32) :=
     z_CopyPathNV_ovr_0(resultPath, srcPath);
     
-    private static procedure z_InterpolatePathsNV_ovr_0(resultPath: UInt32; pathA: UInt32; pathB: UInt32; weight: single);
-    external 'opengl32.dll' name 'glInterpolatePathsNV';
+    private z_InterpolatePathsNV_adr := GetFuncAdr('glInterpolatePathsNV');
+    private z_InterpolatePathsNV_ovr_0 := GetFuncOrNil&(z_InterpolatePathsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InterpolatePathsNV(resultPath: UInt32; pathA: UInt32; pathB: UInt32; weight: single) :=
     z_InterpolatePathsNV_ovr_0(resultPath, pathA, pathB, weight);
     
-    private static procedure z_TransformPathNV_ovr_0(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; var transformValues: single);
-    external 'opengl32.dll' name 'glTransformPathNV';
-    private static procedure z_TransformPathNV_ovr_0_anh00001(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glTransformPathNV';
+    private z_TransformPathNV_adr := GetFuncAdr('glTransformPathNV');
+    private z_TransformPathNV_ovr_0 := GetFuncOrNil&(z_TransformPathNV_adr);
+    private z_TransformPathNV_ovr_0_anh00001 := GetFuncOrNil&(z_TransformPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformPathNV(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_TransformPathNV_ovr_0(resultPath, srcPath, transformType, transformValues[0]) else
       z_TransformPathNV_ovr_0_anh00001(resultPath, srcPath, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformPathNV(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; var transformValues: single) :=
     z_TransformPathNV_ovr_0(resultPath, srcPath, transformType, transformValues);
-    private static procedure z_TransformPathNV_ovr_2(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glTransformPathNV';
+    private z_TransformPathNV_ovr_2 := GetFuncOrNil&(z_TransformPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformPathNV(resultPath: UInt32; srcPath: UInt32; transformType: PathTransformType; transformValues: IntPtr) :=
     z_TransformPathNV_ovr_2(resultPath, srcPath, transformType, transformValues);
     
-    private static procedure z_PathParameterivNV_ovr_0(path: UInt32; pname: PathParameter; var value: Int32);
-    external 'opengl32.dll' name 'glPathParameterivNV';
-    private static procedure z_PathParameterivNV_ovr_0_anh0001(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glPathParameterivNV';
+    private z_PathParameterivNV_adr := GetFuncAdr('glPathParameterivNV');
+    private z_PathParameterivNV_ovr_0 := GetFuncOrNil&(z_PathParameterivNV_adr);
+    private z_PathParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_PathParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterivNV(path: UInt32; pname: PathParameter; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_PathParameterivNV_ovr_0(path, pname, value[0]) else
       z_PathParameterivNV_ovr_0_anh0001(path, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterivNV(path: UInt32; pname: PathParameter; var value: Int32) :=
     z_PathParameterivNV_ovr_0(path, pname, value);
-    private static procedure z_PathParameterivNV_ovr_2(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glPathParameterivNV';
+    private z_PathParameterivNV_ovr_2 := GetFuncOrNil&(z_PathParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterivNV(path: UInt32; pname: PathParameter; value: IntPtr) :=
     z_PathParameterivNV_ovr_2(path, pname, value);
     
-    private static procedure z_PathParameteriNV_ovr_0(path: UInt32; pname: PathParameter; value: Int32);
-    external 'opengl32.dll' name 'glPathParameteriNV';
+    private z_PathParameteriNV_adr := GetFuncAdr('glPathParameteriNV');
+    private z_PathParameteriNV_ovr_0 := GetFuncOrNil&(z_PathParameteriNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameteriNV(path: UInt32; pname: PathParameter; value: Int32) :=
     z_PathParameteriNV_ovr_0(path, pname, value);
     
-    private static procedure z_PathParameterfvNV_ovr_0(path: UInt32; pname: PathParameter; var value: single);
-    external 'opengl32.dll' name 'glPathParameterfvNV';
-    private static procedure z_PathParameterfvNV_ovr_0_anh0001(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glPathParameterfvNV';
+    private z_PathParameterfvNV_adr := GetFuncAdr('glPathParameterfvNV');
+    private z_PathParameterfvNV_ovr_0 := GetFuncOrNil&(z_PathParameterfvNV_adr);
+    private z_PathParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_PathParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterfvNV(path: UInt32; pname: PathParameter; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_PathParameterfvNV_ovr_0(path, pname, value[0]) else
       z_PathParameterfvNV_ovr_0_anh0001(path, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterfvNV(path: UInt32; pname: PathParameter; var value: single) :=
     z_PathParameterfvNV_ovr_0(path, pname, value);
-    private static procedure z_PathParameterfvNV_ovr_2(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glPathParameterfvNV';
+    private z_PathParameterfvNV_ovr_2 := GetFuncOrNil&(z_PathParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterfvNV(path: UInt32; pname: PathParameter; value: IntPtr) :=
     z_PathParameterfvNV_ovr_2(path, pname, value);
     
-    private static procedure z_PathParameterfNV_ovr_0(path: UInt32; pname: PathParameter; value: single);
-    external 'opengl32.dll' name 'glPathParameterfNV';
+    private z_PathParameterfNV_adr := GetFuncAdr('glPathParameterfNV');
+    private z_PathParameterfNV_ovr_0 := GetFuncOrNil&(z_PathParameterfNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathParameterfNV(path: UInt32; pname: PathParameter; value: single) :=
     z_PathParameterfNV_ovr_0(path, pname, value);
     
-    private static procedure z_PathDashArrayNV_ovr_0(path: UInt32; dashCount: Int32; var dashArray: single);
-    external 'opengl32.dll' name 'glPathDashArrayNV';
-    private static procedure z_PathDashArrayNV_ovr_0_anh0001(path: UInt32; dashCount: Int32; dashArray: IntPtr);
-    external 'opengl32.dll' name 'glPathDashArrayNV';
+    private z_PathDashArrayNV_adr := GetFuncAdr('glPathDashArrayNV');
+    private z_PathDashArrayNV_ovr_0 := GetFuncOrNil&(z_PathDashArrayNV_adr);
+    private z_PathDashArrayNV_ovr_0_anh0001 := GetFuncOrNil&(z_PathDashArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathDashArrayNV(path: UInt32; dashCount: Int32; dashArray: array of single) :=
     if (dashArray<>nil) and (dashArray.Length<>0) then
       z_PathDashArrayNV_ovr_0(path, dashCount, dashArray[0]) else
       z_PathDashArrayNV_ovr_0_anh0001(path, dashCount, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathDashArrayNV(path: UInt32; dashCount: Int32; var dashArray: single) :=
     z_PathDashArrayNV_ovr_0(path, dashCount, dashArray);
-    private static procedure z_PathDashArrayNV_ovr_2(path: UInt32; dashCount: Int32; dashArray: IntPtr);
-    external 'opengl32.dll' name 'glPathDashArrayNV';
+    private z_PathDashArrayNV_ovr_2 := GetFuncOrNil&(z_PathDashArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathDashArrayNV(path: UInt32; dashCount: Int32; dashArray: IntPtr) :=
     z_PathDashArrayNV_ovr_2(path, dashCount, dashArray);
     
-    private static procedure z_PathStencilFuncNV_ovr_0(func: StencilFunction; ref: Int32; mask: UInt32);
-    external 'opengl32.dll' name 'glPathStencilFuncNV';
+    private z_PathStencilFuncNV_adr := GetFuncAdr('glPathStencilFuncNV');
+    private z_PathStencilFuncNV_ovr_0 := GetFuncOrNil&(z_PathStencilFuncNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathStencilFuncNV(func: StencilFunction; ref: Int32; mask: UInt32) :=
     z_PathStencilFuncNV_ovr_0(func, ref, mask);
     
-    private static procedure z_PathStencilDepthOffsetNV_ovr_0(factor: single; units: single);
-    external 'opengl32.dll' name 'glPathStencilDepthOffsetNV';
+    private z_PathStencilDepthOffsetNV_adr := GetFuncAdr('glPathStencilDepthOffsetNV');
+    private z_PathStencilDepthOffsetNV_ovr_0 := GetFuncOrNil&(z_PathStencilDepthOffsetNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathStencilDepthOffsetNV(factor: single; units: single) :=
     z_PathStencilDepthOffsetNV_ovr_0(factor, units);
     
-    private static procedure z_StencilFillPathNV_ovr_0(path: UInt32; fillMode: PathFillMode; mask: UInt32);
-    external 'opengl32.dll' name 'glStencilFillPathNV';
+    private z_StencilFillPathNV_adr := GetFuncAdr('glStencilFillPathNV');
+    private z_StencilFillPathNV_ovr_0 := GetFuncOrNil&(z_StencilFillPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFillPathNV(path: UInt32; fillMode: PathFillMode; mask: UInt32) :=
     z_StencilFillPathNV_ovr_0(path, fillMode, mask);
     
-    private static procedure z_StencilStrokePathNV_ovr_0(path: UInt32; reference: Int32; mask: UInt32);
-    external 'opengl32.dll' name 'glStencilStrokePathNV';
+    private z_StencilStrokePathNV_adr := GetFuncAdr('glStencilStrokePathNV');
+    private z_StencilStrokePathNV_ovr_0 := GetFuncOrNil&(z_StencilStrokePathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilStrokePathNV(path: UInt32; reference: Int32; mask: UInt32) :=
     z_StencilStrokePathNV_ovr_0(path, reference, mask);
     
-    private static procedure z_StencilFillPathInstancedNV_ovr_0(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; var transformValues: single);
-    external 'opengl32.dll' name 'glStencilFillPathInstancedNV';
-    private static procedure z_StencilFillPathInstancedNV_ovr_0_anh000000001(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilFillPathInstancedNV';
+    private z_StencilFillPathInstancedNV_adr := GetFuncAdr('glStencilFillPathInstancedNV');
+    private z_StencilFillPathInstancedNV_ovr_0 := GetFuncOrNil&(z_StencilFillPathInstancedNV_adr);
+    private z_StencilFillPathInstancedNV_ovr_0_anh000000001 := GetFuncOrNil&(z_StencilFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_StencilFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, fillMode, mask, transformType, transformValues[0]) else
       z_StencilFillPathInstancedNV_ovr_0_anh000000001(numPaths, pathNameType, paths, pathBase, fillMode, mask, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; var transformValues: single) :=
     z_StencilFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, fillMode, mask, transformType, transformValues);
-    private static procedure z_StencilFillPathInstancedNV_ovr_2(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilFillPathInstancedNV';
+    private z_StencilFillPathInstancedNV_ovr_2 := GetFuncOrNil&(z_StencilFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; fillMode: PathFillMode; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr) :=
     z_StencilFillPathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, fillMode, mask, transformType, transformValues);
     
-    private static procedure z_StencilStrokePathInstancedNV_ovr_0(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; var transformValues: single);
-    external 'opengl32.dll' name 'glStencilStrokePathInstancedNV';
-    private static procedure z_StencilStrokePathInstancedNV_ovr_0_anh000000001(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilStrokePathInstancedNV';
+    private z_StencilStrokePathInstancedNV_adr := GetFuncAdr('glStencilStrokePathInstancedNV');
+    private z_StencilStrokePathInstancedNV_ovr_0 := GetFuncOrNil&(z_StencilStrokePathInstancedNV_adr);
+    private z_StencilStrokePathInstancedNV_ovr_0_anh000000001 := GetFuncOrNil&(z_StencilStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_StencilStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, reference, mask, transformType, transformValues[0]) else
       z_StencilStrokePathInstancedNV_ovr_0_anh000000001(numPaths, pathNameType, paths, pathBase, reference, mask, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; var transformValues: single) :=
     z_StencilStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, reference, mask, transformType, transformValues);
-    private static procedure z_StencilStrokePathInstancedNV_ovr_2(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilStrokePathInstancedNV';
+    private z_StencilStrokePathInstancedNV_ovr_2 := GetFuncOrNil&(z_StencilStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; transformType: PathTransformType; transformValues: IntPtr) :=
     z_StencilStrokePathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, reference, mask, transformType, transformValues);
     
-    private static procedure z_PathCoverDepthFuncNV_ovr_0(func: DepthFunction);
-    external 'opengl32.dll' name 'glPathCoverDepthFuncNV';
+    private z_PathCoverDepthFuncNV_adr := GetFuncAdr('glPathCoverDepthFuncNV');
+    private z_PathCoverDepthFuncNV_ovr_0 := GetFuncOrNil&(z_PathCoverDepthFuncNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathCoverDepthFuncNV(func: DepthFunction) :=
     z_PathCoverDepthFuncNV_ovr_0(func);
     
-    private static procedure z_CoverFillPathNV_ovr_0(path: UInt32; coverMode: PathCoverMode);
-    external 'opengl32.dll' name 'glCoverFillPathNV';
+    private z_CoverFillPathNV_adr := GetFuncAdr('glCoverFillPathNV');
+    private z_CoverFillPathNV_ovr_0 := GetFuncOrNil&(z_CoverFillPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverFillPathNV(path: UInt32; coverMode: PathCoverMode) :=
     z_CoverFillPathNV_ovr_0(path, coverMode);
     
-    private static procedure z_CoverStrokePathNV_ovr_0(path: UInt32; coverMode: PathCoverMode);
-    external 'opengl32.dll' name 'glCoverStrokePathNV';
+    private z_CoverStrokePathNV_adr := GetFuncAdr('glCoverStrokePathNV');
+    private z_CoverStrokePathNV_ovr_0 := GetFuncOrNil&(z_CoverStrokePathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverStrokePathNV(path: UInt32; coverMode: PathCoverMode) :=
     z_CoverStrokePathNV_ovr_0(path, coverMode);
     
-    private static procedure z_CoverFillPathInstancedNV_ovr_0(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; var transformValues: single);
-    external 'opengl32.dll' name 'glCoverFillPathInstancedNV';
-    private static procedure z_CoverFillPathInstancedNV_ovr_0_anh00000001(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glCoverFillPathInstancedNV';
+    private z_CoverFillPathInstancedNV_adr := GetFuncAdr('glCoverFillPathInstancedNV');
+    private z_CoverFillPathInstancedNV_ovr_0 := GetFuncOrNil&(z_CoverFillPathInstancedNV_adr);
+    private z_CoverFillPathInstancedNV_ovr_0_anh00000001 := GetFuncOrNil&(z_CoverFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_CoverFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues[0]) else
       z_CoverFillPathInstancedNV_ovr_0_anh00000001(numPaths, pathNameType, paths, pathBase, coverMode, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; var transformValues: single) :=
     z_CoverFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues);
-    private static procedure z_CoverFillPathInstancedNV_ovr_2(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glCoverFillPathInstancedNV';
+    private z_CoverFillPathInstancedNV_ovr_2 := GetFuncOrNil&(z_CoverFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverFillPathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr) :=
     z_CoverFillPathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues);
     
-    private static procedure z_CoverStrokePathInstancedNV_ovr_0(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; var transformValues: single);
-    external 'opengl32.dll' name 'glCoverStrokePathInstancedNV';
-    private static procedure z_CoverStrokePathInstancedNV_ovr_0_anh00000001(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glCoverStrokePathInstancedNV';
+    private z_CoverStrokePathInstancedNV_adr := GetFuncAdr('glCoverStrokePathInstancedNV');
+    private z_CoverStrokePathInstancedNV_ovr_0 := GetFuncOrNil&(z_CoverStrokePathInstancedNV_adr);
+    private z_CoverStrokePathInstancedNV_ovr_0_anh00000001 := GetFuncOrNil&(z_CoverStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_CoverStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues[0]) else
       z_CoverStrokePathInstancedNV_ovr_0_anh00000001(numPaths, pathNameType, paths, pathBase, coverMode, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; var transformValues: single) :=
     z_CoverStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues);
-    private static procedure z_CoverStrokePathInstancedNV_ovr_2(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glCoverStrokePathInstancedNV';
+    private z_CoverStrokePathInstancedNV_ovr_2 := GetFuncOrNil&(z_CoverStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CoverStrokePathInstancedNV(numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; coverMode: PathCoverMode; transformType: PathTransformType; transformValues: IntPtr) :=
     z_CoverStrokePathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, coverMode, transformType, transformValues);
     
-    private static procedure z_GetPathParameterivNV_ovr_0(path: UInt32; pname: PathParameter; var value: Int32);
-    external 'opengl32.dll' name 'glGetPathParameterivNV';
-    private static procedure z_GetPathParameterivNV_ovr_0_anh0001(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathParameterivNV';
+    private z_GetPathParameterivNV_adr := GetFuncAdr('glGetPathParameterivNV');
+    private z_GetPathParameterivNV_ovr_0 := GetFuncOrNil&(z_GetPathParameterivNV_adr);
+    private z_GetPathParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterivNV(path: UInt32; pname: PathParameter; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathParameterivNV_ovr_0(path, pname, value[0]) else
       z_GetPathParameterivNV_ovr_0_anh0001(path, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterivNV(path: UInt32; pname: PathParameter; var value: Int32) :=
     z_GetPathParameterivNV_ovr_0(path, pname, value);
-    private static procedure z_GetPathParameterivNV_ovr_2(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathParameterivNV';
+    private z_GetPathParameterivNV_ovr_2 := GetFuncOrNil&(z_GetPathParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterivNV(path: UInt32; pname: PathParameter; value: IntPtr) :=
     z_GetPathParameterivNV_ovr_2(path, pname, value);
     
-    private static procedure z_GetPathParameterfvNV_ovr_0(path: UInt32; pname: PathParameter; var value: single);
-    external 'opengl32.dll' name 'glGetPathParameterfvNV';
-    private static procedure z_GetPathParameterfvNV_ovr_0_anh0001(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathParameterfvNV';
+    private z_GetPathParameterfvNV_adr := GetFuncAdr('glGetPathParameterfvNV');
+    private z_GetPathParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetPathParameterfvNV_adr);
+    private z_GetPathParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterfvNV(path: UInt32; pname: PathParameter; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathParameterfvNV_ovr_0(path, pname, value[0]) else
       z_GetPathParameterfvNV_ovr_0_anh0001(path, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterfvNV(path: UInt32; pname: PathParameter; var value: single) :=
     z_GetPathParameterfvNV_ovr_0(path, pname, value);
-    private static procedure z_GetPathParameterfvNV_ovr_2(path: UInt32; pname: PathParameter; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathParameterfvNV';
+    private z_GetPathParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetPathParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathParameterfvNV(path: UInt32; pname: PathParameter; value: IntPtr) :=
     z_GetPathParameterfvNV_ovr_2(path, pname, value);
     
-    private static procedure z_GetPathCommandsNV_ovr_0(path: UInt32; var commands: Byte);
-    external 'opengl32.dll' name 'glGetPathCommandsNV';
-    private static procedure z_GetPathCommandsNV_ovr_0_anh001(path: UInt32; commands: IntPtr);
-    external 'opengl32.dll' name 'glGetPathCommandsNV';
+    private z_GetPathCommandsNV_adr := GetFuncAdr('glGetPathCommandsNV');
+    private z_GetPathCommandsNV_ovr_0 := GetFuncOrNil&(z_GetPathCommandsNV_adr);
+    private z_GetPathCommandsNV_ovr_0_anh001 := GetFuncOrNil&(z_GetPathCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCommandsNV(path: UInt32; commands: array of Byte) :=
     if (commands<>nil) and (commands.Length<>0) then
       z_GetPathCommandsNV_ovr_0(path, commands[0]) else
       z_GetPathCommandsNV_ovr_0_anh001(path, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCommandsNV(path: UInt32; var commands: Byte) :=
     z_GetPathCommandsNV_ovr_0(path, commands);
-    private static procedure z_GetPathCommandsNV_ovr_2(path: UInt32; commands: IntPtr);
-    external 'opengl32.dll' name 'glGetPathCommandsNV';
+    private z_GetPathCommandsNV_ovr_2 := GetFuncOrNil&(z_GetPathCommandsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCommandsNV(path: UInt32; commands: IntPtr) :=
     z_GetPathCommandsNV_ovr_2(path, commands);
     
-    private static procedure z_GetPathCoordsNV_ovr_0(path: UInt32; var coords: single);
-    external 'opengl32.dll' name 'glGetPathCoordsNV';
-    private static procedure z_GetPathCoordsNV_ovr_0_anh001(path: UInt32; coords: IntPtr);
-    external 'opengl32.dll' name 'glGetPathCoordsNV';
+    private z_GetPathCoordsNV_adr := GetFuncAdr('glGetPathCoordsNV');
+    private z_GetPathCoordsNV_ovr_0 := GetFuncOrNil&(z_GetPathCoordsNV_adr);
+    private z_GetPathCoordsNV_ovr_0_anh001 := GetFuncOrNil&(z_GetPathCoordsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCoordsNV(path: UInt32; coords: array of single) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_GetPathCoordsNV_ovr_0(path, coords[0]) else
       z_GetPathCoordsNV_ovr_0_anh001(path, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCoordsNV(path: UInt32; var coords: single) :=
     z_GetPathCoordsNV_ovr_0(path, coords);
-    private static procedure z_GetPathCoordsNV_ovr_2(path: UInt32; coords: IntPtr);
-    external 'opengl32.dll' name 'glGetPathCoordsNV';
+    private z_GetPathCoordsNV_ovr_2 := GetFuncOrNil&(z_GetPathCoordsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathCoordsNV(path: UInt32; coords: IntPtr) :=
     z_GetPathCoordsNV_ovr_2(path, coords);
     
-    private static procedure z_GetPathDashArrayNV_ovr_0(path: UInt32; var dashArray: single);
-    external 'opengl32.dll' name 'glGetPathDashArrayNV';
-    private static procedure z_GetPathDashArrayNV_ovr_0_anh001(path: UInt32; dashArray: IntPtr);
-    external 'opengl32.dll' name 'glGetPathDashArrayNV';
+    private z_GetPathDashArrayNV_adr := GetFuncAdr('glGetPathDashArrayNV');
+    private z_GetPathDashArrayNV_ovr_0 := GetFuncOrNil&(z_GetPathDashArrayNV_adr);
+    private z_GetPathDashArrayNV_ovr_0_anh001 := GetFuncOrNil&(z_GetPathDashArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathDashArrayNV(path: UInt32; dashArray: array of single) :=
     if (dashArray<>nil) and (dashArray.Length<>0) then
       z_GetPathDashArrayNV_ovr_0(path, dashArray[0]) else
       z_GetPathDashArrayNV_ovr_0_anh001(path, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathDashArrayNV(path: UInt32; var dashArray: single) :=
     z_GetPathDashArrayNV_ovr_0(path, dashArray);
-    private static procedure z_GetPathDashArrayNV_ovr_2(path: UInt32; dashArray: IntPtr);
-    external 'opengl32.dll' name 'glGetPathDashArrayNV';
+    private z_GetPathDashArrayNV_ovr_2 := GetFuncOrNil&(z_GetPathDashArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathDashArrayNV(path: UInt32; dashArray: IntPtr) :=
     z_GetPathDashArrayNV_ovr_2(path, dashArray);
     
-    private static procedure z_GetPathMetricsNV_ovr_0(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; var metrics: single);
-    external 'opengl32.dll' name 'glGetPathMetricsNV';
-    private static procedure z_GetPathMetricsNV_ovr_0_anh00000001(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; metrics: IntPtr);
-    external 'opengl32.dll' name 'glGetPathMetricsNV';
+    private z_GetPathMetricsNV_adr := GetFuncAdr('glGetPathMetricsNV');
+    private z_GetPathMetricsNV_ovr_0 := GetFuncOrNil&(z_GetPathMetricsNV_adr);
+    private z_GetPathMetricsNV_ovr_0_anh00000001 := GetFuncOrNil&(z_GetPathMetricsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricsNV(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; metrics: array of single) :=
     if (metrics<>nil) and (metrics.Length<>0) then
       z_GetPathMetricsNV_ovr_0(metricQueryMask, numPaths, pathNameType, paths, pathBase, stride, metrics[0]) else
       z_GetPathMetricsNV_ovr_0_anh00000001(metricQueryMask, numPaths, pathNameType, paths, pathBase, stride, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricsNV(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; var metrics: single) :=
     z_GetPathMetricsNV_ovr_0(metricQueryMask, numPaths, pathNameType, paths, pathBase, stride, metrics);
-    private static procedure z_GetPathMetricsNV_ovr_2(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; metrics: IntPtr);
-    external 'opengl32.dll' name 'glGetPathMetricsNV';
+    private z_GetPathMetricsNV_ovr_2 := GetFuncOrNil&(z_GetPathMetricsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricsNV(metricQueryMask: PathMetricMask; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; stride: Int32; metrics: IntPtr) :=
     z_GetPathMetricsNV_ovr_2(metricQueryMask, numPaths, pathNameType, paths, pathBase, stride, metrics);
     
-    private static procedure z_GetPathMetricRangeNV_ovr_0(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; var metrics: single);
-    external 'opengl32.dll' name 'glGetPathMetricRangeNV';
-    private static procedure z_GetPathMetricRangeNV_ovr_0_anh000001(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; metrics: IntPtr);
-    external 'opengl32.dll' name 'glGetPathMetricRangeNV';
+    private z_GetPathMetricRangeNV_adr := GetFuncAdr('glGetPathMetricRangeNV');
+    private z_GetPathMetricRangeNV_ovr_0 := GetFuncOrNil&(z_GetPathMetricRangeNV_adr);
+    private z_GetPathMetricRangeNV_ovr_0_anh000001 := GetFuncOrNil&(z_GetPathMetricRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricRangeNV(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; metrics: array of single) :=
     if (metrics<>nil) and (metrics.Length<>0) then
       z_GetPathMetricRangeNV_ovr_0(metricQueryMask, firstPathName, numPaths, stride, metrics[0]) else
       z_GetPathMetricRangeNV_ovr_0_anh000001(metricQueryMask, firstPathName, numPaths, stride, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricRangeNV(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; var metrics: single) :=
     z_GetPathMetricRangeNV_ovr_0(metricQueryMask, firstPathName, numPaths, stride, metrics);
-    private static procedure z_GetPathMetricRangeNV_ovr_2(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; metrics: IntPtr);
-    external 'opengl32.dll' name 'glGetPathMetricRangeNV';
+    private z_GetPathMetricRangeNV_ovr_2 := GetFuncOrNil&(z_GetPathMetricRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathMetricRangeNV(metricQueryMask: PathMetricMask; firstPathName: UInt32; numPaths: Int32; stride: Int32; metrics: IntPtr) :=
     z_GetPathMetricRangeNV_ovr_2(metricQueryMask, firstPathName, numPaths, stride, metrics);
     
-    private static procedure z_GetPathSpacingNV_ovr_0(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; var returnedSpacing: single);
-    external 'opengl32.dll' name 'glGetPathSpacingNV';
-    private static procedure z_GetPathSpacingNV_ovr_0_anh0000000001(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; returnedSpacing: IntPtr);
-    external 'opengl32.dll' name 'glGetPathSpacingNV';
+    private z_GetPathSpacingNV_adr := GetFuncAdr('glGetPathSpacingNV');
+    private z_GetPathSpacingNV_ovr_0 := GetFuncOrNil&(z_GetPathSpacingNV_adr);
+    private z_GetPathSpacingNV_ovr_0_anh0000000001 := GetFuncOrNil&(z_GetPathSpacingNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathSpacingNV(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; returnedSpacing: array of single) :=
     if (returnedSpacing<>nil) and (returnedSpacing.Length<>0) then
       z_GetPathSpacingNV_ovr_0(_pathListMode, numPaths, pathNameType, paths, pathBase, advanceScale, kerningScale, transformType, returnedSpacing[0]) else
       z_GetPathSpacingNV_ovr_0_anh0000000001(_pathListMode, numPaths, pathNameType, paths, pathBase, advanceScale, kerningScale, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathSpacingNV(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; var returnedSpacing: single) :=
     z_GetPathSpacingNV_ovr_0(_pathListMode, numPaths, pathNameType, paths, pathBase, advanceScale, kerningScale, transformType, returnedSpacing);
-    private static procedure z_GetPathSpacingNV_ovr_2(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; returnedSpacing: IntPtr);
-    external 'opengl32.dll' name 'glGetPathSpacingNV';
+    private z_GetPathSpacingNV_ovr_2 := GetFuncOrNil&(z_GetPathSpacingNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathSpacingNV(_pathListMode: PathListMode; numPaths: Int32; pathNameType: PathElementType; paths: IntPtr; pathBase: UInt32; advanceScale: single; kerningScale: single; transformType: PathTransformType; returnedSpacing: IntPtr) :=
     z_GetPathSpacingNV_ovr_2(_pathListMode, numPaths, pathNameType, paths, pathBase, advanceScale, kerningScale, transformType, returnedSpacing);
     
-    private static function z_IsPointInFillPathNV_ovr_0(path: UInt32; mask: UInt32; x: single; y: single): boolean;
-    external 'opengl32.dll' name 'glIsPointInFillPathNV';
+    private z_IsPointInFillPathNV_adr := GetFuncAdr('glIsPointInFillPathNV');
+    private z_IsPointInFillPathNV_ovr_0 := GetFuncOrNil&(z_IsPointInFillPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsPointInFillPathNV(path: UInt32; mask: UInt32; x: single; y: single): boolean :=
     z_IsPointInFillPathNV_ovr_0(path, mask, x, y);
     
-    private static function z_IsPointInStrokePathNV_ovr_0(path: UInt32; x: single; y: single): boolean;
-    external 'opengl32.dll' name 'glIsPointInStrokePathNV';
+    private z_IsPointInStrokePathNV_adr := GetFuncAdr('glIsPointInStrokePathNV');
+    private z_IsPointInStrokePathNV_ovr_0 := GetFuncOrNil&(z_IsPointInStrokePathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsPointInStrokePathNV(path: UInt32; x: single; y: single): boolean :=
     z_IsPointInStrokePathNV_ovr_0(path, x, y);
     
-    private static function z_GetPathLengthNV_ovr_0(path: UInt32; startSegment: Int32; numSegments: Int32): single;
-    external 'opengl32.dll' name 'glGetPathLengthNV';
+    private z_GetPathLengthNV_adr := GetFuncAdr('glGetPathLengthNV');
+    private z_GetPathLengthNV_ovr_0 := GetFuncOrNil&(z_GetPathLengthNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPathLengthNV(path: UInt32; startSegment: Int32; numSegments: Int32): single :=
     z_GetPathLengthNV_ovr_0(path, startSegment, numSegments);
     
-    private static function z_PointAlongPathNV_ovr_0(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000000111(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_0_anh000001111(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y[0], tangentX[0], tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x[0], y[0], tangentX[0], IntPtr.Zero) else
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x[0], y[0], IntPtr.Zero, tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000000011(path, startSegment, numSegments, distance, x[0], y[0], IntPtr.Zero, IntPtr.Zero) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX[0], tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000000101(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX[0], IntPtr.Zero) else
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000000110(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, IntPtr.Zero, tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000000111(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, IntPtr.Zero, IntPtr.Zero) else
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX[0], tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX[0], IntPtr.Zero) else
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], IntPtr.Zero, tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000001011(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], IntPtr.Zero, IntPtr.Zero) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX[0], tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000001101(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX[0], IntPtr.Zero) else
-          if (tangentY<>nil) and (tangentY.Length<>0) then
-            z_PointAlongPathNV_ovr_0_anh000001110(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, tangentY[0]) else
-            z_PointAlongPathNV_ovr_0_anh000001111(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_1_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_1_anh000001110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: array of single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y[0], tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x[0], y[0], IntPtr.Zero, tangentY) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_0_anh000000110(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, IntPtr.Zero, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_0_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], IntPtr.Zero, tangentY) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_0_anh000001110(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_2(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_2_anh000001110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x[0], y[0], tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_2_anh000000010(path, startSegment, numSegments, distance, x[0], y[0], IntPtr.Zero, tangentY) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_2_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_2_anh000000110(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, IntPtr.Zero, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_2_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_2_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], IntPtr.Zero, tangentY) else
-        if (tangentX<>nil) and (tangentX.Length<>0) then
-          z_PointAlongPathNV_ovr_2_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX[0], tangentY) else
-          z_PointAlongPathNV_ovr_2_anh000001110(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_3_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_3_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_3_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_3_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_3_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_3_anh000001101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; var tangentX: single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x[0], y[0], tangentX, IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000101(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, IntPtr.Zero) else
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000001101(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_4_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_4_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_4_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; var tangentX: single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_5_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_5_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_5_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; var tangentX: single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_2_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_6(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_6_anh000001101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_6_anh000000001(path, startSegment, numSegments, distance, x[0], y[0], tangentX, IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_6_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_6_anh000000101(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, IntPtr.Zero) else
-      if (y<>nil) and (y.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_6_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_6_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_6_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY[0]) else
-          z_PointAlongPathNV_ovr_6_anh000001101(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_7_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_7_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_7_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: IntPtr; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_6_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_6_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_6_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_8(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_8_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_8_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_8_anh000001100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: array of single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_8(path, startSegment, numSegments, distance, x[0], y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_8_anh000000100(path, startSegment, numSegments, distance, x[0], IntPtr.Zero, tangentX, tangentY) else
-      if (y<>nil) and (y.Length<>0) then
-        z_PointAlongPathNV_ovr_8_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y[0], tangentX, tangentY) else
-        z_PointAlongPathNV_ovr_8_anh000001100(path, startSegment, numSegments, distance, IntPtr.Zero, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_9_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_9_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_9_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_9_anh000001011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000011(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, IntPtr.Zero) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000001011(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_10_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_10_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: array of single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_11_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_11_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_2_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_12_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_12_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; var tangentX: single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_13_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; var tangentX: single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_0_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_14_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; var tangentX: single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_2_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_15_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_15_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_6_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_6_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_6_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_16_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: IntPtr; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_6_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_17_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_8(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_8_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_18(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000000011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_18_anh000001011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: array of single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_18_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_18_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_18_anh000000011(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, IntPtr.Zero) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_18_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_18_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_18_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_18_anh000001011(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_19_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_19_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_19_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: array of single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_18_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_18_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_18_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_20(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_20_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_20_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_20_anh000001010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_20(path, startSegment, numSegments, distance, x[0], y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_20_anh000000010(path, startSegment, numSegments, distance, x[0], y, IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_20_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_20_anh000001010(path, startSegment, numSegments, distance, IntPtr.Zero, y, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_21_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_21_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; var tangentX: single; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_18_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_18_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_18_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_22_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; var tangentX: single; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_18_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_23_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_20(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_20_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_24(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_24_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_24_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_24_anh000001001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_24(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_24_anh000000001(path, startSegment, numSegments, distance, x[0], y, tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_24_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_24_anh000001001(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_25_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_24(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_24_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_26(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_26_anh000001000(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: array of single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    if (x<>nil) and (x.Length<>0) then
-      z_PointAlongPathNV_ovr_26(path, startSegment, numSegments, distance, x[0], y, tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_26_anh000001000(path, startSegment, numSegments, distance, IntPtr.Zero, y, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000011(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, IntPtr.Zero) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_0_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_0_anh000000111(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: array of single; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_0_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_2_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_2_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; var tangentX: single; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; var tangentX: single; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_0_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; var tangentX: single; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_2_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_6_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_6_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_6_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: IntPtr; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_6_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: array of single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_8(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_8_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX[0], IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY[0]) else
-        z_PointAlongPathNV_ovr_0_anh000000011(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: array of single; var tangentY: single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_0_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_2_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_0_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    private z_PointAlongPathNV_adr := GetFuncAdr('glPointAlongPathNV');
+    private z_PointAlongPathNV_ovr_0 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; var tangentY: single): boolean :=
     z_PointAlongPathNV_ovr_0(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_1 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; var tangentX: single; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_6_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_1(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_2 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_2(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_3 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_8(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: array of single; tangentY: array of single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY[0]) else
-        z_PointAlongPathNV_ovr_18_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX[0], IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_18_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY[0]) else
-        z_PointAlongPathNV_ovr_18_anh000000011(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: array of single; var tangentY: single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_18_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_20(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_20_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_18_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_3(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_4 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_18(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_4(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_5 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_20(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_24(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_24_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_5(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_6 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_24(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_6(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_7 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; var x: single; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_26(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_54(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_54_anh000000111(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_54_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_54_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_54_anh000000011(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, IntPtr.Zero) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_54_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY[0]) else
-          z_PointAlongPathNV_ovr_54_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], IntPtr.Zero) else
-        if (tangentY<>nil) and (tangentY.Length<>0) then
-          z_PointAlongPathNV_ovr_54_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY[0]) else
-          z_PointAlongPathNV_ovr_54_anh000000111(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_55_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_55_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_55_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: array of single; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_54_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_54_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_54_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_56(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_56_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_56_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_56_anh000000110(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_56(path, startSegment, numSegments, distance, x, y[0], tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_56_anh000000010(path, startSegment, numSegments, distance, x, y[0], IntPtr.Zero, tangentY) else
-      if (tangentX<>nil) and (tangentX.Length<>0) then
-        z_PointAlongPathNV_ovr_56_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX[0], tangentY) else
-        z_PointAlongPathNV_ovr_56_anh000000110(path, startSegment, numSegments, distance, x, IntPtr.Zero, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_57_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_57_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; var tangentX: single; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_54_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_54_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_54_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_58_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; var tangentX: single; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_54_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_59_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; var tangentX: single; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_56(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_56_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_60(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_60_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_60_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_60_anh000000101(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_60(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_60_anh000000001(path, startSegment, numSegments, distance, x, y[0], tangentX, IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_60_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY[0]) else
-        z_PointAlongPathNV_ovr_60_anh000000101(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_61_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: IntPtr; var tangentY: single): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_60(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_60_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_62(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_62_anh000000100(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: array of single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    if (y<>nil) and (y.Length<>0) then
-      z_PointAlongPathNV_ovr_62(path, startSegment, numSegments, distance, x, y[0], tangentX, tangentY) else
-      z_PointAlongPathNV_ovr_62_anh000000100(path, startSegment, numSegments, distance, x, IntPtr.Zero, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: array of single; tangentY: array of single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY[0]) else
-        z_PointAlongPathNV_ovr_54_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX[0], IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_54_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY[0]) else
-        z_PointAlongPathNV_ovr_54_anh000000011(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: array of single; var tangentY: single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_54_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_56(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_56_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_54_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_7(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_8 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_54(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_8(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_9 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; var tangentX: single; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_56(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_60(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_60_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_9(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_10 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_60(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_10(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_11 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; var y: single; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_62(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_72(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_72_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_72_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_72_anh000000011(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: array of single; tangentY: array of single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_72(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY[0]) else
-        z_PointAlongPathNV_ovr_72_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX[0], IntPtr.Zero) else
-      if (tangentY<>nil) and (tangentY.Length<>0) then
-        z_PointAlongPathNV_ovr_72_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY[0]) else
-        z_PointAlongPathNV_ovr_72_anh000000011(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, IntPtr.Zero);
-    private static function z_PointAlongPathNV_ovr_73_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: array of single; var tangentY: single): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_72(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_72_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    private static function z_PointAlongPathNV_ovr_74(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_74_anh000000010(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: array of single; tangentY: IntPtr): boolean :=
-    if (tangentX<>nil) and (tangentX.Length<>0) then
-      z_PointAlongPathNV_ovr_74(path, startSegment, numSegments, distance, x, y, tangentX[0], tangentY) else
-      z_PointAlongPathNV_ovr_74_anh000000010(path, startSegment, numSegments, distance, x, y, IntPtr.Zero, tangentY);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_72(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_72_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_11(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_12 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_72(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_12(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_13 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; var tangentX: single; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_74(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_78(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    private static function z_PointAlongPathNV_ovr_78_anh000000001(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: array of single): boolean :=
-    if (tangentY<>nil) and (tangentY.Length<>0) then
-      z_PointAlongPathNV_ovr_78(path, startSegment, numSegments, distance, x, y, tangentX, tangentY[0]) else
-      z_PointAlongPathNV_ovr_78_anh000000001(path, startSegment, numSegments, distance, x, y, tangentX, IntPtr.Zero);
+    z_PointAlongPathNV_ovr_13(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_14 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; var tangentY: single): boolean :=
-    z_PointAlongPathNV_ovr_78(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
-    private static function z_PointAlongPathNV_ovr_80(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean;
-    external 'opengl32.dll' name 'glPointAlongPathNV';
+    z_PointAlongPathNV_ovr_14(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    private z_PointAlongPathNV_ovr_15 := GetFuncOrNil&(z_PointAlongPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PointAlongPathNV(path: UInt32; startSegment: Int32; numSegments: Int32; distance: single; x: IntPtr; y: IntPtr; tangentX: IntPtr; tangentY: IntPtr): boolean :=
-    z_PointAlongPathNV_ovr_80(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
+    z_PointAlongPathNV_ovr_15(path, startSegment, numSegments, distance, x, y, tangentX, tangentY);
     
-    private static procedure z_MatrixLoad3x2fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoad3x2fNV';
-    private static procedure z_MatrixLoad3x2fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoad3x2fNV';
+    private z_MatrixLoad3x2fNV_adr := GetFuncAdr('glMatrixLoad3x2fNV');
+    private z_MatrixLoad3x2fNV_ovr_0 := GetFuncOrNil&(z_MatrixLoad3x2fNV_adr);
+    private z_MatrixLoad3x2fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoad3x2fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x2fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoad3x2fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixLoad3x2fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x2fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixLoad3x2fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixLoad3x2fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoad3x2fNV';
+    private z_MatrixLoad3x2fNV_ovr_2 := GetFuncOrNil&(z_MatrixLoad3x2fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x2fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixLoad3x2fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_MatrixLoad3x3fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoad3x3fNV';
-    private static procedure z_MatrixLoad3x3fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoad3x3fNV';
+    private z_MatrixLoad3x3fNV_adr := GetFuncAdr('glMatrixLoad3x3fNV');
+    private z_MatrixLoad3x3fNV_ovr_0 := GetFuncOrNil&(z_MatrixLoad3x3fNV_adr);
+    private z_MatrixLoad3x3fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoad3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x3fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoad3x3fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixLoad3x3fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x3fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixLoad3x3fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixLoad3x3fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoad3x3fNV';
+    private z_MatrixLoad3x3fNV_ovr_2 := GetFuncOrNil&(z_MatrixLoad3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoad3x3fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixLoad3x3fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_MatrixLoadTranspose3x3fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoadTranspose3x3fNV';
-    private static procedure z_MatrixLoadTranspose3x3fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTranspose3x3fNV';
+    private z_MatrixLoadTranspose3x3fNV_adr := GetFuncAdr('glMatrixLoadTranspose3x3fNV');
+    private z_MatrixLoadTranspose3x3fNV_ovr_0 := GetFuncOrNil&(z_MatrixLoadTranspose3x3fNV_adr);
+    private z_MatrixLoadTranspose3x3fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadTranspose3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTranspose3x3fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadTranspose3x3fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixLoadTranspose3x3fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTranspose3x3fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixLoadTranspose3x3fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixLoadTranspose3x3fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTranspose3x3fNV';
+    private z_MatrixLoadTranspose3x3fNV_ovr_2 := GetFuncOrNil&(z_MatrixLoadTranspose3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTranspose3x3fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixLoadTranspose3x3fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_MatrixMult3x2fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixMult3x2fNV';
-    private static procedure z_MatrixMult3x2fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMult3x2fNV';
+    private z_MatrixMult3x2fNV_adr := GetFuncAdr('glMatrixMult3x2fNV');
+    private z_MatrixMult3x2fNV_ovr_0 := GetFuncOrNil&(z_MatrixMult3x2fNV_adr);
+    private z_MatrixMult3x2fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMult3x2fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x2fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMult3x2fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixMult3x2fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x2fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixMult3x2fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixMult3x2fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMult3x2fNV';
+    private z_MatrixMult3x2fNV_ovr_2 := GetFuncOrNil&(z_MatrixMult3x2fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x2fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixMult3x2fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_MatrixMult3x3fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixMult3x3fNV';
-    private static procedure z_MatrixMult3x3fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMult3x3fNV';
+    private z_MatrixMult3x3fNV_adr := GetFuncAdr('glMatrixMult3x3fNV');
+    private z_MatrixMult3x3fNV_ovr_0 := GetFuncOrNil&(z_MatrixMult3x3fNV_adr);
+    private z_MatrixMult3x3fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMult3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x3fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMult3x3fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixMult3x3fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x3fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixMult3x3fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixMult3x3fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMult3x3fNV';
+    private z_MatrixMult3x3fNV_ovr_2 := GetFuncOrNil&(z_MatrixMult3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMult3x3fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixMult3x3fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_MatrixMultTranspose3x3fNV_ovr_0(matrixMode: DummyEnum; var m: single);
-    external 'opengl32.dll' name 'glMatrixMultTranspose3x3fNV';
-    private static procedure z_MatrixMultTranspose3x3fNV_ovr_0_anh001(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTranspose3x3fNV';
+    private z_MatrixMultTranspose3x3fNV_adr := GetFuncAdr('glMatrixMultTranspose3x3fNV');
+    private z_MatrixMultTranspose3x3fNV_ovr_0 := GetFuncOrNil&(z_MatrixMultTranspose3x3fNV_adr);
+    private z_MatrixMultTranspose3x3fNV_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultTranspose3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTranspose3x3fNV(matrixMode: DummyEnum; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultTranspose3x3fNV_ovr_0(matrixMode, m[0]) else
       z_MatrixMultTranspose3x3fNV_ovr_0_anh001(matrixMode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTranspose3x3fNV(matrixMode: DummyEnum; var m: single) :=
     z_MatrixMultTranspose3x3fNV_ovr_0(matrixMode, m);
-    private static procedure z_MatrixMultTranspose3x3fNV_ovr_2(matrixMode: DummyEnum; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTranspose3x3fNV';
+    private z_MatrixMultTranspose3x3fNV_ovr_2 := GetFuncOrNil&(z_MatrixMultTranspose3x3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTranspose3x3fNV(matrixMode: DummyEnum; m: IntPtr) :=
     z_MatrixMultTranspose3x3fNV_ovr_2(matrixMode, m);
     
-    private static procedure z_StencilThenCoverFillPathNV_ovr_0(path: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum);
-    external 'opengl32.dll' name 'glStencilThenCoverFillPathNV';
+    private z_StencilThenCoverFillPathNV_adr := GetFuncAdr('glStencilThenCoverFillPathNV');
+    private z_StencilThenCoverFillPathNV_ovr_0 := GetFuncOrNil&(z_StencilThenCoverFillPathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverFillPathNV(path: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum) :=
     z_StencilThenCoverFillPathNV_ovr_0(path, fillMode, mask, coverMode);
     
-    private static procedure z_StencilThenCoverStrokePathNV_ovr_0(path: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum);
-    external 'opengl32.dll' name 'glStencilThenCoverStrokePathNV';
+    private z_StencilThenCoverStrokePathNV_adr := GetFuncAdr('glStencilThenCoverStrokePathNV');
+    private z_StencilThenCoverStrokePathNV_ovr_0 := GetFuncOrNil&(z_StencilThenCoverStrokePathNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverStrokePathNV(path: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum) :=
     z_StencilThenCoverStrokePathNV_ovr_0(path, reference, mask, coverMode);
     
-    private static procedure z_StencilThenCoverFillPathInstancedNV_ovr_0(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; var transformValues: single);
-    external 'opengl32.dll' name 'glStencilThenCoverFillPathInstancedNV';
-    private static procedure z_StencilThenCoverFillPathInstancedNV_ovr_0_anh0000000001(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilThenCoverFillPathInstancedNV';
+    private z_StencilThenCoverFillPathInstancedNV_adr := GetFuncAdr('glStencilThenCoverFillPathInstancedNV');
+    private z_StencilThenCoverFillPathInstancedNV_ovr_0 := GetFuncOrNil&(z_StencilThenCoverFillPathInstancedNV_adr);
+    private z_StencilThenCoverFillPathInstancedNV_ovr_0_anh0000000001 := GetFuncOrNil&(z_StencilThenCoverFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverFillPathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_StencilThenCoverFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, fillMode, mask, coverMode, transformType, transformValues[0]) else
       z_StencilThenCoverFillPathInstancedNV_ovr_0_anh0000000001(numPaths, pathNameType, paths, pathBase, fillMode, mask, coverMode, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverFillPathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; var transformValues: single) :=
     z_StencilThenCoverFillPathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, fillMode, mask, coverMode, transformType, transformValues);
-    private static procedure z_StencilThenCoverFillPathInstancedNV_ovr_2(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilThenCoverFillPathInstancedNV';
+    private z_StencilThenCoverFillPathInstancedNV_ovr_2 := GetFuncOrNil&(z_StencilThenCoverFillPathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverFillPathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; fillMode: DummyEnum; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr) :=
     z_StencilThenCoverFillPathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, fillMode, mask, coverMode, transformType, transformValues);
     
-    private static procedure z_StencilThenCoverStrokePathInstancedNV_ovr_0(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; var transformValues: single);
-    external 'opengl32.dll' name 'glStencilThenCoverStrokePathInstancedNV';
-    private static procedure z_StencilThenCoverStrokePathInstancedNV_ovr_0_anh0000000001(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilThenCoverStrokePathInstancedNV';
+    private z_StencilThenCoverStrokePathInstancedNV_adr := GetFuncAdr('glStencilThenCoverStrokePathInstancedNV');
+    private z_StencilThenCoverStrokePathInstancedNV_ovr_0 := GetFuncOrNil&(z_StencilThenCoverStrokePathInstancedNV_adr);
+    private z_StencilThenCoverStrokePathInstancedNV_ovr_0_anh0000000001 := GetFuncOrNil&(z_StencilThenCoverStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverStrokePathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: array of single) :=
     if (transformValues<>nil) and (transformValues.Length<>0) then
       z_StencilThenCoverStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, transformValues[0]) else
       z_StencilThenCoverStrokePathInstancedNV_ovr_0_anh0000000001(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverStrokePathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; var transformValues: single) :=
     z_StencilThenCoverStrokePathInstancedNV_ovr_0(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, transformValues);
-    private static procedure z_StencilThenCoverStrokePathInstancedNV_ovr_2(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr);
-    external 'opengl32.dll' name 'glStencilThenCoverStrokePathInstancedNV';
+    private z_StencilThenCoverStrokePathInstancedNV_ovr_2 := GetFuncOrNil&(z_StencilThenCoverStrokePathInstancedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StencilThenCoverStrokePathInstancedNV(numPaths: Int32; pathNameType: DummyEnum; paths: IntPtr; pathBase: UInt32; reference: Int32; mask: UInt32; coverMode: DummyEnum; transformType: DummyEnum; transformValues: IntPtr) :=
     z_StencilThenCoverStrokePathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, transformValues);
     
-    private static function z_PathGlyphIndexRangeNV_ovr_0(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum;
-    external 'opengl32.dll' name 'glPathGlyphIndexRangeNV';
+    private z_PathGlyphIndexRangeNV_adr := GetFuncAdr('glPathGlyphIndexRangeNV');
+    private z_PathGlyphIndexRangeNV_ovr_0 := GetFuncOrNil&(z_PathGlyphIndexRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum :=
     z_PathGlyphIndexRangeNV_ovr_0(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount);
     
-    private static function z_PathGlyphIndexArrayNV_ovr_0(firstPathName: UInt32; fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum;
-    external 'opengl32.dll' name 'glPathGlyphIndexArrayNV';
+    private z_PathGlyphIndexArrayNV_adr := GetFuncAdr('glPathGlyphIndexArrayNV');
+    private z_PathGlyphIndexArrayNV_ovr_0 := GetFuncOrNil&(z_PathGlyphIndexArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexArrayNV(firstPathName: UInt32; fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum :=
     z_PathGlyphIndexArrayNV_ovr_0(firstPathName, fontTarget, fontName, fontStyle, firstGlyphIndex, numGlyphs, pathParameterTemplate, emScale);
     
-    private static function z_PathMemoryGlyphIndexArrayNV_ovr_0(firstPathName: UInt32; fontTarget: DummyEnum; fontSize: IntPtr; fontData: IntPtr; faceIndex: Int32; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum;
-    external 'opengl32.dll' name 'glPathMemoryGlyphIndexArrayNV';
+    private z_PathMemoryGlyphIndexArrayNV_adr := GetFuncAdr('glPathMemoryGlyphIndexArrayNV');
+    private z_PathMemoryGlyphIndexArrayNV_ovr_0 := GetFuncOrNil&(z_PathMemoryGlyphIndexArrayNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathMemoryGlyphIndexArrayNV(firstPathName: UInt32; fontTarget: DummyEnum; fontSize: IntPtr; fontData: IntPtr; faceIndex: Int32; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum :=
     z_PathMemoryGlyphIndexArrayNV_ovr_0(firstPathName, fontTarget, fontSize, fontData, faceIndex, firstGlyphIndex, numGlyphs, pathParameterTemplate, emScale);
     
-    private static procedure z_ProgramPathFragmentInputGenNV_ovr_0(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; var coeffs: single);
-    external 'opengl32.dll' name 'glProgramPathFragmentInputGenNV';
-    private static procedure z_ProgramPathFragmentInputGenNV_ovr_0_anh000001(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glProgramPathFragmentInputGenNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; coeffs: array of single) :=
+    private z_ProgramPathFragmentInputGenNV_adr := GetFuncAdr('glProgramPathFragmentInputGenNV');
+    private z_ProgramPathFragmentInputGenNV_ovr_0 := GetFuncOrNil&(z_ProgramPathFragmentInputGenNV_adr);
+    private z_ProgramPathFragmentInputGenNV_ovr_0_anh000001 := GetFuncOrNil&(z_ProgramPathFragmentInputGenNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: gl_program; location: Int32; genMode: DummyEnum; components: Int32; coeffs: array of single) :=
     if (coeffs<>nil) and (coeffs.Length<>0) then
       z_ProgramPathFragmentInputGenNV_ovr_0(&program, location, genMode, components, coeffs[0]) else
       z_ProgramPathFragmentInputGenNV_ovr_0_anh000001(&program, location, genMode, components, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; var coeffs: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: gl_program; location: Int32; genMode: DummyEnum; components: Int32; var coeffs: single) :=
     z_ProgramPathFragmentInputGenNV_ovr_0(&program, location, genMode, components, coeffs);
-    private static procedure z_ProgramPathFragmentInputGenNV_ovr_2(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glProgramPathFragmentInputGenNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: UInt32; location: Int32; genMode: DummyEnum; components: Int32; coeffs: IntPtr) :=
+    private z_ProgramPathFragmentInputGenNV_ovr_2 := GetFuncOrNil&(z_ProgramPathFragmentInputGenNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramPathFragmentInputGenNV(&program: gl_program; location: Int32; genMode: DummyEnum; components: Int32; coeffs: IntPtr) :=
     z_ProgramPathFragmentInputGenNV_ovr_2(&program, location, genMode, components, coeffs);
     
-    private static procedure z_GetProgramResourcefvNV_ovr_0(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000000011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_0_anh000001011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: array of Int32; ¶ms: array of single) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms[0]) else
-          z_GetProgramResourcefvNV_ovr_0_anh000000001(&program, _programInterface, index, propCount, props[0], count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourcefvNV_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourcefvNV_ovr_0_anh000000011(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, IntPtr.Zero) else
-      if (length<>nil) and (length.Length<>0) then
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourcefvNV_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms[0]) else
-          z_GetProgramResourcefvNV_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], IntPtr.Zero) else
-        if (¶ms<>nil) and (¶ms.Length<>0) then
-          z_GetProgramResourcefvNV_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms[0]) else
-          z_GetProgramResourcefvNV_ovr_0_anh000001011(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramResourcefvNV_ovr_1_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_1_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_1_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: array of Int32; var ¶ms: single) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourcefvNV_ovr_0_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourcefvNV_ovr_0_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_2(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_2_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_2_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_2_anh000001010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (props<>nil) and (props.Length<>0) then
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_2(&program, _programInterface, index, propCount, props[0], count, length[0], ¶ms) else
-        z_GetProgramResourcefvNV_ovr_2_anh000000010(&program, _programInterface, index, propCount, props[0], count, IntPtr.Zero, ¶ms) else
-      if (length<>nil) and (length.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length[0], ¶ms) else
-        z_GetProgramResourcefvNV_ovr_2_anh000001010(&program, _programInterface, index, propCount, IntPtr.Zero, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_3_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_3_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; ¶ms: array of single) :=
+    private z_GetProgramResourcefvNV_adr := GetFuncAdr('glGetProgramResourcefvNV');
+    private z_GetProgramResourcefvNV_ovr_0 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_0_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_0_anh000000001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_0_anh000001001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; ¶ms: array of single) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
@@ -65088,626 +62005,540 @@ type
       if (¶ms<>nil) and (¶ms.Length<>0) then
         z_GetProgramResourcefvNV_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
         z_GetProgramResourcefvNV_ovr_0_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private static procedure z_GetProgramResourcefvNV_ovr_4_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; var ¶ms: single) :=
+    private z_GetProgramResourcefvNV_ovr_1_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; var ¶ms: single) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourcefvNV_ovr_0_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_5_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    private z_GetProgramResourcefvNV_ovr_2 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_2_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
       z_GetProgramResourcefvNV_ovr_2(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
       z_GetProgramResourcefvNV_ovr_2_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_6(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_6_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_6_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_6_anh000001001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; ¶ms: array of single) :=
+    private z_GetProgramResourcefvNV_ovr_3 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_3_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_3_anh000000001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_3_anh000001001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; ¶ms: array of single) :=
     if (props<>nil) and (props.Length<>0) then
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_6_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
+        z_GetProgramResourcefvNV_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms[0]) else
+        z_GetProgramResourcefvNV_ovr_3_anh000000001(&program, _programInterface, index, propCount, props[0], count, length, IntPtr.Zero) else
       if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_6_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
-    private static procedure z_GetProgramResourcefvNV_ovr_7_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; var ¶ms: single) :=
+        z_GetProgramResourcefvNV_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms[0]) else
+        z_GetProgramResourcefvNV_ovr_3_anh000001001(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, IntPtr.Zero);
+    private z_GetProgramResourcefvNV_ovr_4_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; var ¶ms: single) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_6(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourcefvNV_ovr_6_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_8(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_8_anh000001000(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+      z_GetProgramResourcefvNV_ovr_3(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourcefvNV_ovr_3_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    private z_GetProgramResourcefvNV_ovr_5 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_5_anh000001000 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: array of DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
     if (props<>nil) and (props.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_8(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
-      z_GetProgramResourcefvNV_ovr_8_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: array of Int32; ¶ms: array of single) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_0_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: array of Int32; var ¶ms: single) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourcefvNV_ovr_0_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_2(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourcefvNV_ovr_2_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: array of single) :=
+      z_GetProgramResourcefvNV_ovr_5(&program, _programInterface, index, propCount, props[0], count, length, ¶ms) else
+      z_GetProgramResourcefvNV_ovr_5_anh000001000(&program, _programInterface, index, propCount, IntPtr.Zero, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
       z_GetProgramResourcefvNV_ovr_0_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; var ¶ms: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; var ¶ms: single) :=
     z_GetProgramResourcefvNV_ovr_0(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; var length: Int32; ¶ms: IntPtr) :=
     z_GetProgramResourcefvNV_ovr_2(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: array of single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourcefvNV_ovr_6_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; var ¶ms: single) :=
-    z_GetProgramResourcefvNV_ovr_6(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourcefvNV_ovr_8(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_18(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_18_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_18_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_18_anh000000011(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: array of single) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length[0], IntPtr.Zero) else
-      if (¶ms<>nil) and (¶ms.Length<>0) then
-        z_GetProgramResourcefvNV_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms[0]) else
-        z_GetProgramResourcefvNV_ovr_18_anh000000011(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_GetProgramResourcefvNV_ovr_19_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; var ¶ms: single) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_18(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourcefvNV_ovr_18_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_20(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_20_anh000000010(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: array of Int32; ¶ms: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_20(&program, _programInterface, index, propCount, props, count, length[0], ¶ms) else
-      z_GetProgramResourcefvNV_ovr_20_anh000000010(&program, _programInterface, index, propCount, props, count, IntPtr.Zero, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of single) :=
+      z_GetProgramResourcefvNV_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourcefvNV_ovr_3_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; var ¶ms: single) :=
+    z_GetProgramResourcefvNV_ovr_3(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; var props: DummyEnum; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourcefvNV_ovr_5(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourcefvNV_ovr_12 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_12_anh000000001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourcefvNV_ovr_18_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single) :=
-    z_GetProgramResourcefvNV_ovr_18(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
-    z_GetProgramResourcefvNV_ovr_20(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_24(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    private static procedure z_GetProgramResourcefvNV_ovr_24_anh000000001(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of single) :=
+      z_GetProgramResourcefvNV_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourcefvNV_ovr_12_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; var ¶ms: single) :=
+    z_GetProgramResourcefvNV_ovr_12(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourcefvNV_ovr_14 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; var length: Int32; ¶ms: IntPtr) :=
+    z_GetProgramResourcefvNV_ovr_14(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourcefvNV_ovr_15 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    private z_GetProgramResourcefvNV_ovr_15_anh000000001 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetProgramResourcefvNV_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
-      z_GetProgramResourcefvNV_ovr_24_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single) :=
-    z_GetProgramResourcefvNV_ovr_24(&program, _programInterface, index, propCount, props, count, length, ¶ms);
-    private static procedure z_GetProgramResourcefvNV_ovr_26(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramResourcefvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: UInt32; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
-    z_GetProgramResourcefvNV_ovr_26(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+      z_GetProgramResourcefvNV_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms[0]) else
+      z_GetProgramResourcefvNV_ovr_15_anh000000001(&program, _programInterface, index, propCount, props, count, length, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; var ¶ms: single) :=
+    z_GetProgramResourcefvNV_ovr_15(&program, _programInterface, index, propCount, props, count, length, ¶ms);
+    private z_GetProgramResourcefvNV_ovr_17 := GetFuncOrNil&(z_GetProgramResourcefvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramResourcefvNV(&program: gl_program; _programInterface: ProgramInterface; index: UInt32; propCount: Int32; props: IntPtr; count: Int32; length: IntPtr; ¶ms: IntPtr) :=
+    z_GetProgramResourcefvNV_ovr_17(&program, _programInterface, index, propCount, props, count, length, ¶ms);
     
-    private static procedure z_PathColorGenNV_ovr_0(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; var coeffs: single);
-    external 'opengl32.dll' name 'glPathColorGenNV';
-    private static procedure z_PathColorGenNV_ovr_0_anh00001(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glPathColorGenNV';
+    private z_PathColorGenNV_adr := GetFuncAdr('glPathColorGenNV');
+    private z_PathColorGenNV_ovr_0 := GetFuncOrNil&(z_PathColorGenNV_adr);
+    private z_PathColorGenNV_ovr_0_anh00001 := GetFuncOrNil&(z_PathColorGenNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathColorGenNV(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; coeffs: array of single) :=
     if (coeffs<>nil) and (coeffs.Length<>0) then
       z_PathColorGenNV_ovr_0(color, genMode, colorFormat, coeffs[0]) else
       z_PathColorGenNV_ovr_0_anh00001(color, genMode, colorFormat, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathColorGenNV(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; var coeffs: single) :=
     z_PathColorGenNV_ovr_0(color, genMode, colorFormat, coeffs);
-    private static procedure z_PathColorGenNV_ovr_2(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glPathColorGenNV';
+    private z_PathColorGenNV_ovr_2 := GetFuncOrNil&(z_PathColorGenNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathColorGenNV(color: PathColor; genMode: PathGenMode; colorFormat: PathColorFormat; coeffs: IntPtr) :=
     z_PathColorGenNV_ovr_2(color, genMode, colorFormat, coeffs);
     
-    private static procedure z_PathTexGenNV_ovr_0(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; var coeffs: single);
-    external 'opengl32.dll' name 'glPathTexGenNV';
-    private static procedure z_PathTexGenNV_ovr_0_anh00001(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glPathTexGenNV';
+    private z_PathTexGenNV_adr := GetFuncAdr('glPathTexGenNV');
+    private z_PathTexGenNV_ovr_0 := GetFuncOrNil&(z_PathTexGenNV_adr);
+    private z_PathTexGenNV_ovr_0_anh00001 := GetFuncOrNil&(z_PathTexGenNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathTexGenNV(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; coeffs: array of single) :=
     if (coeffs<>nil) and (coeffs.Length<>0) then
       z_PathTexGenNV_ovr_0(texCoordSet, genMode, components, coeffs[0]) else
       z_PathTexGenNV_ovr_0_anh00001(texCoordSet, genMode, components, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathTexGenNV(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; var coeffs: single) :=
     z_PathTexGenNV_ovr_0(texCoordSet, genMode, components, coeffs);
-    private static procedure z_PathTexGenNV_ovr_2(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; coeffs: IntPtr);
-    external 'opengl32.dll' name 'glPathTexGenNV';
+    private z_PathTexGenNV_ovr_2 := GetFuncOrNil&(z_PathTexGenNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathTexGenNV(texCoordSet: PathColor; genMode: PathGenMode; components: Int32; coeffs: IntPtr) :=
     z_PathTexGenNV_ovr_2(texCoordSet, genMode, components, coeffs);
     
-    private static procedure z_PathFogGenNV_ovr_0(genMode: PathGenMode);
-    external 'opengl32.dll' name 'glPathFogGenNV';
+    private z_PathFogGenNV_adr := GetFuncAdr('glPathFogGenNV');
+    private z_PathFogGenNV_ovr_0 := GetFuncOrNil&(z_PathFogGenNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PathFogGenNV(genMode: PathGenMode) :=
     z_PathFogGenNV_ovr_0(genMode);
     
-    private static procedure z_GetPathColorGenivNV_ovr_0(color: PathColor; pname: PathGenMode; var value: Int32);
-    external 'opengl32.dll' name 'glGetPathColorGenivNV';
-    private static procedure z_GetPathColorGenivNV_ovr_0_anh0001(color: PathColor; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathColorGenivNV';
+    private z_GetPathColorGenivNV_adr := GetFuncAdr('glGetPathColorGenivNV');
+    private z_GetPathColorGenivNV_ovr_0 := GetFuncOrNil&(z_GetPathColorGenivNV_adr);
+    private z_GetPathColorGenivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathColorGenivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenivNV(color: PathColor; pname: PathGenMode; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathColorGenivNV_ovr_0(color, pname, value[0]) else
       z_GetPathColorGenivNV_ovr_0_anh0001(color, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenivNV(color: PathColor; pname: PathGenMode; var value: Int32) :=
     z_GetPathColorGenivNV_ovr_0(color, pname, value);
-    private static procedure z_GetPathColorGenivNV_ovr_2(color: PathColor; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathColorGenivNV';
+    private z_GetPathColorGenivNV_ovr_2 := GetFuncOrNil&(z_GetPathColorGenivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenivNV(color: PathColor; pname: PathGenMode; value: IntPtr) :=
     z_GetPathColorGenivNV_ovr_2(color, pname, value);
     
-    private static procedure z_GetPathColorGenfvNV_ovr_0(color: PathColor; pname: PathGenMode; var value: single);
-    external 'opengl32.dll' name 'glGetPathColorGenfvNV';
-    private static procedure z_GetPathColorGenfvNV_ovr_0_anh0001(color: PathColor; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathColorGenfvNV';
+    private z_GetPathColorGenfvNV_adr := GetFuncAdr('glGetPathColorGenfvNV');
+    private z_GetPathColorGenfvNV_ovr_0 := GetFuncOrNil&(z_GetPathColorGenfvNV_adr);
+    private z_GetPathColorGenfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathColorGenfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenfvNV(color: PathColor; pname: PathGenMode; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathColorGenfvNV_ovr_0(color, pname, value[0]) else
       z_GetPathColorGenfvNV_ovr_0_anh0001(color, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenfvNV(color: PathColor; pname: PathGenMode; var value: single) :=
     z_GetPathColorGenfvNV_ovr_0(color, pname, value);
-    private static procedure z_GetPathColorGenfvNV_ovr_2(color: PathColor; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathColorGenfvNV';
+    private z_GetPathColorGenfvNV_ovr_2 := GetFuncOrNil&(z_GetPathColorGenfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathColorGenfvNV(color: PathColor; pname: PathGenMode; value: IntPtr) :=
     z_GetPathColorGenfvNV_ovr_2(color, pname, value);
     
-    private static procedure z_GetPathTexGenivNV_ovr_0(texCoordSet: TextureUnit; pname: PathGenMode; var value: Int32);
-    external 'opengl32.dll' name 'glGetPathTexGenivNV';
-    private static procedure z_GetPathTexGenivNV_ovr_0_anh0001(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathTexGenivNV';
+    private z_GetPathTexGenivNV_adr := GetFuncAdr('glGetPathTexGenivNV');
+    private z_GetPathTexGenivNV_ovr_0 := GetFuncOrNil&(z_GetPathTexGenivNV_adr);
+    private z_GetPathTexGenivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathTexGenivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenivNV(texCoordSet: TextureUnit; pname: PathGenMode; value: array of Int32) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathTexGenivNV_ovr_0(texCoordSet, pname, value[0]) else
       z_GetPathTexGenivNV_ovr_0_anh0001(texCoordSet, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenivNV(texCoordSet: TextureUnit; pname: PathGenMode; var value: Int32) :=
     z_GetPathTexGenivNV_ovr_0(texCoordSet, pname, value);
-    private static procedure z_GetPathTexGenivNV_ovr_2(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathTexGenivNV';
+    private z_GetPathTexGenivNV_ovr_2 := GetFuncOrNil&(z_GetPathTexGenivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenivNV(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr) :=
     z_GetPathTexGenivNV_ovr_2(texCoordSet, pname, value);
     
-    private static procedure z_GetPathTexGenfvNV_ovr_0(texCoordSet: TextureUnit; pname: PathGenMode; var value: single);
-    external 'opengl32.dll' name 'glGetPathTexGenfvNV';
-    private static procedure z_GetPathTexGenfvNV_ovr_0_anh0001(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathTexGenfvNV';
+    private z_GetPathTexGenfvNV_adr := GetFuncAdr('glGetPathTexGenfvNV');
+    private z_GetPathTexGenfvNV_ovr_0 := GetFuncOrNil&(z_GetPathTexGenfvNV_adr);
+    private z_GetPathTexGenfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetPathTexGenfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenfvNV(texCoordSet: TextureUnit; pname: PathGenMode; value: array of single) :=
     if (value<>nil) and (value.Length<>0) then
       z_GetPathTexGenfvNV_ovr_0(texCoordSet, pname, value[0]) else
       z_GetPathTexGenfvNV_ovr_0_anh0001(texCoordSet, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenfvNV(texCoordSet: TextureUnit; pname: PathGenMode; var value: single) :=
     z_GetPathTexGenfvNV_ovr_0(texCoordSet, pname, value);
-    private static procedure z_GetPathTexGenfvNV_ovr_2(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr);
-    external 'opengl32.dll' name 'glGetPathTexGenfvNV';
+    private z_GetPathTexGenfvNV_ovr_2 := GetFuncOrNil&(z_GetPathTexGenfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPathTexGenfvNV(texCoordSet: TextureUnit; pname: PathGenMode; value: IntPtr) :=
     z_GetPathTexGenfvNV_ovr_2(texCoordSet, pname, value);
     
-    private static procedure z_MatrixFrustumEXT_ovr_0(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glMatrixFrustumEXT';
+    private z_MatrixFrustumEXT_adr := GetFuncAdr('glMatrixFrustumEXT');
+    private z_MatrixFrustumEXT_ovr_0 := GetFuncOrNil&(z_MatrixFrustumEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixFrustumEXT(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
     z_MatrixFrustumEXT_ovr_0(mode, left, right, bottom, top, zNear, zFar);
     
-    private static procedure z_MatrixLoadIdentityEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixLoadIdentityEXT';
+    private z_MatrixLoadIdentityEXT_adr := GetFuncAdr('glMatrixLoadIdentityEXT');
+    private z_MatrixLoadIdentityEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadIdentityEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadIdentityEXT(mode: MatrixMode) :=
     z_MatrixLoadIdentityEXT_ovr_0(mode);
     
-    private static procedure z_MatrixLoadTransposefEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
-    private static procedure z_MatrixLoadTransposefEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
+    private z_MatrixLoadTransposefEXT_adr := GetFuncAdr('glMatrixLoadTransposefEXT');
+    private z_MatrixLoadTransposefEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
+    private z_MatrixLoadTransposefEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadTransposefEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadTransposefEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; var m: single) :=
     z_MatrixLoadTransposefEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadTransposefEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposefEXT';
+    private z_MatrixLoadTransposefEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposefEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadTransposefEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoadTransposedEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
-    private static procedure z_MatrixLoadTransposedEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
+    private z_MatrixLoadTransposedEXT_adr := GetFuncAdr('glMatrixLoadTransposedEXT');
+    private z_MatrixLoadTransposedEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
+    private z_MatrixLoadTransposedEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadTransposedEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadTransposedEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; var m: real) :=
     z_MatrixLoadTransposedEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadTransposedEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadTransposedEXT';
+    private z_MatrixLoadTransposedEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadTransposedEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadTransposedEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoadfEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
-    private static procedure z_MatrixLoadfEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
+    private z_MatrixLoadfEXT_adr := GetFuncAdr('glMatrixLoadfEXT');
+    private z_MatrixLoadfEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
+    private z_MatrixLoadfEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoadfEXT_ovr_0(mode, m[0]) else
       z_MatrixLoadfEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; var m: single) :=
     z_MatrixLoadfEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoadfEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoadfEXT';
+    private z_MatrixLoadfEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoadfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoadfEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoadfEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixLoaddEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
-    private static procedure z_MatrixLoaddEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
+    private z_MatrixLoaddEXT_adr := GetFuncAdr('glMatrixLoaddEXT');
+    private z_MatrixLoaddEXT_ovr_0 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
+    private z_MatrixLoaddEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixLoaddEXT_ovr_0(mode, m[0]) else
       z_MatrixLoaddEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; var m: real) :=
     z_MatrixLoaddEXT_ovr_0(mode, m);
-    private static procedure z_MatrixLoaddEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixLoaddEXT';
+    private z_MatrixLoaddEXT_ovr_2 := GetFuncOrNil&(z_MatrixLoaddEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixLoaddEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixLoaddEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultTransposefEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
-    private static procedure z_MatrixMultTransposefEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
+    private z_MatrixMultTransposefEXT_adr := GetFuncAdr('glMatrixMultTransposefEXT');
+    private z_MatrixMultTransposefEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
+    private z_MatrixMultTransposefEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultTransposefEXT_ovr_0(mode, m[0]) else
       z_MatrixMultTransposefEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; var m: single) :=
     z_MatrixMultTransposefEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultTransposefEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposefEXT';
+    private z_MatrixMultTransposefEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultTransposefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposefEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultTransposefEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultTransposedEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
-    private static procedure z_MatrixMultTransposedEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
+    private z_MatrixMultTransposedEXT_adr := GetFuncAdr('glMatrixMultTransposedEXT');
+    private z_MatrixMultTransposedEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
+    private z_MatrixMultTransposedEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultTransposedEXT_ovr_0(mode, m[0]) else
       z_MatrixMultTransposedEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; var m: real) :=
     z_MatrixMultTransposedEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultTransposedEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultTransposedEXT';
+    private z_MatrixMultTransposedEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultTransposedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultTransposedEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultTransposedEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultfEXT_ovr_0(mode: MatrixMode; var m: single);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
-    private static procedure z_MatrixMultfEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
+    private z_MatrixMultfEXT_adr := GetFuncAdr('glMatrixMultfEXT');
+    private z_MatrixMultfEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
+    private z_MatrixMultfEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; m: array of single) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultfEXT_ovr_0(mode, m[0]) else
       z_MatrixMultfEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; var m: single) :=
     z_MatrixMultfEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultfEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultfEXT';
+    private z_MatrixMultfEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultfEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultfEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultfEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixMultdEXT_ovr_0(mode: MatrixMode; var m: real);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
-    private static procedure z_MatrixMultdEXT_ovr_0_anh001(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
+    private z_MatrixMultdEXT_adr := GetFuncAdr('glMatrixMultdEXT');
+    private z_MatrixMultdEXT_ovr_0 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
+    private z_MatrixMultdEXT_ovr_0_anh001 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; m: array of real) :=
     if (m<>nil) and (m.Length<>0) then
       z_MatrixMultdEXT_ovr_0(mode, m[0]) else
       z_MatrixMultdEXT_ovr_0_anh001(mode, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; var m: real) :=
     z_MatrixMultdEXT_ovr_0(mode, m);
-    private static procedure z_MatrixMultdEXT_ovr_2(mode: MatrixMode; m: IntPtr);
-    external 'opengl32.dll' name 'glMatrixMultdEXT';
+    private z_MatrixMultdEXT_ovr_2 := GetFuncOrNil&(z_MatrixMultdEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixMultdEXT(mode: MatrixMode; m: IntPtr) :=
     z_MatrixMultdEXT_ovr_2(mode, m);
     
-    private static procedure z_MatrixOrthoEXT_ovr_0(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real);
-    external 'opengl32.dll' name 'glMatrixOrthoEXT';
+    private z_MatrixOrthoEXT_adr := GetFuncAdr('glMatrixOrthoEXT');
+    private z_MatrixOrthoEXT_ovr_0 := GetFuncOrNil&(z_MatrixOrthoEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixOrthoEXT(mode: MatrixMode; left: real; right: real; bottom: real; top: real; zNear: real; zFar: real) :=
     z_MatrixOrthoEXT_ovr_0(mode, left, right, bottom, top, zNear, zFar);
     
-    private static procedure z_MatrixPopEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixPopEXT';
+    private z_MatrixPopEXT_adr := GetFuncAdr('glMatrixPopEXT');
+    private z_MatrixPopEXT_ovr_0 := GetFuncOrNil&(z_MatrixPopEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixPopEXT(mode: MatrixMode) :=
     z_MatrixPopEXT_ovr_0(mode);
     
-    private static procedure z_MatrixPushEXT_ovr_0(mode: MatrixMode);
-    external 'opengl32.dll' name 'glMatrixPushEXT';
+    private z_MatrixPushEXT_adr := GetFuncAdr('glMatrixPushEXT');
+    private z_MatrixPushEXT_ovr_0 := GetFuncOrNil&(z_MatrixPushEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixPushEXT(mode: MatrixMode) :=
     z_MatrixPushEXT_ovr_0(mode);
     
-    private static procedure z_MatrixRotatefEXT_ovr_0(mode: MatrixMode; angle: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixRotatefEXT';
+    private z_MatrixRotatefEXT_adr := GetFuncAdr('glMatrixRotatefEXT');
+    private z_MatrixRotatefEXT_ovr_0 := GetFuncOrNil&(z_MatrixRotatefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixRotatefEXT(mode: MatrixMode; angle: single; x: single; y: single; z: single) :=
     z_MatrixRotatefEXT_ovr_0(mode, angle, x, y, z);
     
-    private static procedure z_MatrixRotatedEXT_ovr_0(mode: MatrixMode; angle: real; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixRotatedEXT';
+    private z_MatrixRotatedEXT_adr := GetFuncAdr('glMatrixRotatedEXT');
+    private z_MatrixRotatedEXT_ovr_0 := GetFuncOrNil&(z_MatrixRotatedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixRotatedEXT(mode: MatrixMode; angle: real; x: real; y: real; z: real) :=
     z_MatrixRotatedEXT_ovr_0(mode, angle, x, y, z);
     
-    private static procedure z_MatrixScalefEXT_ovr_0(mode: MatrixMode; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixScalefEXT';
+    private z_MatrixScalefEXT_adr := GetFuncAdr('glMatrixScalefEXT');
+    private z_MatrixScalefEXT_ovr_0 := GetFuncOrNil&(z_MatrixScalefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixScalefEXT(mode: MatrixMode; x: single; y: single; z: single) :=
     z_MatrixScalefEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixScaledEXT_ovr_0(mode: MatrixMode; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixScaledEXT';
+    private z_MatrixScaledEXT_adr := GetFuncAdr('glMatrixScaledEXT');
+    private z_MatrixScaledEXT_ovr_0 := GetFuncOrNil&(z_MatrixScaledEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixScaledEXT(mode: MatrixMode; x: real; y: real; z: real) :=
     z_MatrixScaledEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixTranslatefEXT_ovr_0(mode: MatrixMode; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glMatrixTranslatefEXT';
+    private z_MatrixTranslatefEXT_adr := GetFuncAdr('glMatrixTranslatefEXT');
+    private z_MatrixTranslatefEXT_ovr_0 := GetFuncOrNil&(z_MatrixTranslatefEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixTranslatefEXT(mode: MatrixMode; x: single; y: single; z: single) :=
     z_MatrixTranslatefEXT_ovr_0(mode, x, y, z);
     
-    private static procedure z_MatrixTranslatedEXT_ovr_0(mode: MatrixMode; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glMatrixTranslatedEXT';
+    private z_MatrixTranslatedEXT_adr := GetFuncAdr('glMatrixTranslatedEXT');
+    private z_MatrixTranslatedEXT_ovr_0 := GetFuncOrNil&(z_MatrixTranslatedEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MatrixTranslatedEXT(mode: MatrixMode; x: real; y: real; z: real) :=
     z_MatrixTranslatedEXT_ovr_0(mode, x, y, z);
     
   end;
   
   [PCUNotRestore]
-  glPixelDataRangeNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPixelDataRangeNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_pixel_data_range';
     
-    private static procedure z_PixelDataRangeNV_ovr_0(target: PixelDataRangeTargetNV; length: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glPixelDataRangeNV';
+    private z_PixelDataRangeNV_adr := GetFuncAdr('glPixelDataRangeNV');
+    private z_PixelDataRangeNV_ovr_0 := GetFuncOrNil&(z_PixelDataRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelDataRangeNV(target: PixelDataRangeTargetNV; length: Int32; pointer: IntPtr) :=
     z_PixelDataRangeNV_ovr_0(target, length, pointer);
     
-    private static procedure z_FlushPixelDataRangeNV_ovr_0(target: PixelDataRangeTargetNV);
-    external 'opengl32.dll' name 'glFlushPixelDataRangeNV';
+    private z_FlushPixelDataRangeNV_adr := GetFuncAdr('glFlushPixelDataRangeNV');
+    private z_FlushPixelDataRangeNV_ovr_0 := GetFuncOrNil&(z_FlushPixelDataRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushPixelDataRangeNV(target: PixelDataRangeTargetNV) :=
     z_FlushPixelDataRangeNV_ovr_0(target);
     
   end;
   
   [PCUNotRestore]
-  glPointSpriteNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPointSpriteNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_point_sprite';
     
-    private static procedure z_PointParameteriNV_ovr_0(pname: PointParameterNameARB; param: Int32);
-    external 'opengl32.dll' name 'glPointParameteriNV';
+    private z_PointParameteriNV_adr := GetFuncAdr('glPointParameteriNV');
+    private z_PointParameteriNV_ovr_0 := GetFuncOrNil&(z_PointParameteriNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameteriNV(pname: PointParameterNameARB; param: Int32) :=
     z_PointParameteriNV_ovr_0(pname, param);
     
-    private static procedure z_PointParameterivNV_ovr_0(pname: PointParameterNameARB; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glPointParameterivNV';
-    private static procedure z_PointParameterivNV_ovr_0_anh001(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterivNV';
+    private z_PointParameterivNV_adr := GetFuncAdr('glPointParameterivNV');
+    private z_PointParameterivNV_ovr_0 := GetFuncOrNil&(z_PointParameterivNV_adr);
+    private z_PointParameterivNV_ovr_0_anh001 := GetFuncOrNil&(z_PointParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterivNV(pname: PointParameterNameARB; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PointParameterivNV_ovr_0(pname, ¶ms[0]) else
       z_PointParameterivNV_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterivNV(pname: PointParameterNameARB; var ¶ms: Int32) :=
     z_PointParameterivNV_ovr_0(pname, ¶ms);
-    private static procedure z_PointParameterivNV_ovr_2(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterivNV';
+    private z_PointParameterivNV_ovr_2 := GetFuncOrNil&(z_PointParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterivNV(pname: PointParameterNameARB; ¶ms: IntPtr) :=
     z_PointParameterivNV_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPresentVideoNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPresentVideoNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_present_video';
     
-    private static procedure z_PresentFrameKeyedNV_ovr_0(video_slot: UInt32; minPresentTime: UInt64; beginPresentTimeId: UInt32; presentDurationId: UInt32; &type: DummyEnum; target0: DummyEnum; fill0: UInt32; key0: UInt32; target1: DummyEnum; fill1: UInt32; key1: UInt32);
-    external 'opengl32.dll' name 'glPresentFrameKeyedNV';
+    private z_PresentFrameKeyedNV_adr := GetFuncAdr('glPresentFrameKeyedNV');
+    private z_PresentFrameKeyedNV_ovr_0 := GetFuncOrNil&(z_PresentFrameKeyedNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PresentFrameKeyedNV(video_slot: UInt32; minPresentTime: UInt64; beginPresentTimeId: UInt32; presentDurationId: UInt32; &type: DummyEnum; target0: DummyEnum; fill0: UInt32; key0: UInt32; target1: DummyEnum; fill1: UInt32; key1: UInt32) :=
     z_PresentFrameKeyedNV_ovr_0(video_slot, minPresentTime, beginPresentTimeId, presentDurationId, &type, target0, fill0, key0, target1, fill1, key1);
     
-    private static procedure z_PresentFrameDualFillNV_ovr_0(video_slot: UInt32; minPresentTime: UInt64; beginPresentTimeId: UInt32; presentDurationId: UInt32; &type: DummyEnum; target0: DummyEnum; fill0: UInt32; target1: DummyEnum; fill1: UInt32; target2: DummyEnum; fill2: UInt32; target3: DummyEnum; fill3: UInt32);
-    external 'opengl32.dll' name 'glPresentFrameDualFillNV';
+    private z_PresentFrameDualFillNV_adr := GetFuncAdr('glPresentFrameDualFillNV');
+    private z_PresentFrameDualFillNV_ovr_0 := GetFuncOrNil&(z_PresentFrameDualFillNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PresentFrameDualFillNV(video_slot: UInt32; minPresentTime: UInt64; beginPresentTimeId: UInt32; presentDurationId: UInt32; &type: DummyEnum; target0: DummyEnum; fill0: UInt32; target1: DummyEnum; fill1: UInt32; target2: DummyEnum; fill2: UInt32; target3: DummyEnum; fill3: UInt32) :=
     z_PresentFrameDualFillNV_ovr_0(video_slot, minPresentTime, beginPresentTimeId, presentDurationId, &type, target0, fill0, target1, fill1, target2, fill2, target3, fill3);
     
-    private static procedure z_GetVideoivNV_ovr_0(video_slot: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVideoivNV';
-    private static procedure z_GetVideoivNV_ovr_0_anh0001(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoivNV';
+    private z_GetVideoivNV_adr := GetFuncAdr('glGetVideoivNV');
+    private z_GetVideoivNV_ovr_0 := GetFuncOrNil&(z_GetVideoivNV_adr);
+    private z_GetVideoivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoivNV(video_slot: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoivNV_ovr_0(video_slot, pname, ¶ms[0]) else
       z_GetVideoivNV_ovr_0_anh0001(video_slot, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoivNV(video_slot: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetVideoivNV_ovr_0(video_slot, pname, ¶ms);
-    private static procedure z_GetVideoivNV_ovr_2(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoivNV';
+    private z_GetVideoivNV_ovr_2 := GetFuncOrNil&(z_GetVideoivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoivNV(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoivNV_ovr_2(video_slot, pname, ¶ms);
     
-    private static procedure z_GetVideouivNV_ovr_0(video_slot: UInt32; pname: DummyEnum; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetVideouivNV';
-    private static procedure z_GetVideouivNV_ovr_0_anh0001(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideouivNV';
+    private z_GetVideouivNV_adr := GetFuncAdr('glGetVideouivNV');
+    private z_GetVideouivNV_ovr_0 := GetFuncOrNil&(z_GetVideouivNV_adr);
+    private z_GetVideouivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideouivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideouivNV(video_slot: UInt32; pname: DummyEnum; ¶ms: array of UInt32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideouivNV_ovr_0(video_slot, pname, ¶ms[0]) else
       z_GetVideouivNV_ovr_0_anh0001(video_slot, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideouivNV(video_slot: UInt32; pname: DummyEnum; var ¶ms: UInt32) :=
     z_GetVideouivNV_ovr_0(video_slot, pname, ¶ms);
-    private static procedure z_GetVideouivNV_ovr_2(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideouivNV';
+    private z_GetVideouivNV_ovr_2 := GetFuncOrNil&(z_GetVideouivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideouivNV(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideouivNV_ovr_2(video_slot, pname, ¶ms);
     
-    private static procedure z_GetVideoi64vNV_ovr_0(video_slot: UInt32; pname: DummyEnum; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetVideoi64vNV';
-    private static procedure z_GetVideoi64vNV_ovr_0_anh0001(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoi64vNV';
+    private z_GetVideoi64vNV_adr := GetFuncAdr('glGetVideoi64vNV');
+    private z_GetVideoi64vNV_ovr_0 := GetFuncOrNil&(z_GetVideoi64vNV_adr);
+    private z_GetVideoi64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoi64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoi64vNV(video_slot: UInt32; pname: DummyEnum; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoi64vNV_ovr_0(video_slot, pname, ¶ms[0]) else
       z_GetVideoi64vNV_ovr_0_anh0001(video_slot, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoi64vNV(video_slot: UInt32; pname: DummyEnum; var ¶ms: Int64) :=
     z_GetVideoi64vNV_ovr_0(video_slot, pname, ¶ms);
-    private static procedure z_GetVideoi64vNV_ovr_2(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoi64vNV';
+    private z_GetVideoi64vNV_ovr_2 := GetFuncOrNil&(z_GetVideoi64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoi64vNV(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoi64vNV_ovr_2(video_slot, pname, ¶ms);
     
-    private static procedure z_GetVideoui64vNV_ovr_0(video_slot: UInt32; pname: DummyEnum; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetVideoui64vNV';
-    private static procedure z_GetVideoui64vNV_ovr_0_anh0001(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoui64vNV';
+    private z_GetVideoui64vNV_adr := GetFuncAdr('glGetVideoui64vNV');
+    private z_GetVideoui64vNV_ovr_0 := GetFuncOrNil&(z_GetVideoui64vNV_adr);
+    private z_GetVideoui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoui64vNV(video_slot: UInt32; pname: DummyEnum; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoui64vNV_ovr_0(video_slot, pname, ¶ms[0]) else
       z_GetVideoui64vNV_ovr_0_anh0001(video_slot, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoui64vNV(video_slot: UInt32; pname: DummyEnum; var ¶ms: UInt64) :=
     z_GetVideoui64vNV_ovr_0(video_slot, pname, ¶ms);
-    private static procedure z_GetVideoui64vNV_ovr_2(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoui64vNV';
+    private z_GetVideoui64vNV_ovr_2 := GetFuncOrNil&(z_GetVideoui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoui64vNV(video_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoui64vNV_ovr_2(video_slot, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPrimitiveRestartNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPrimitiveRestartNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_primitive_restart';
     
-    private static procedure z_PrimitiveRestartNV_ovr_0;
-    external 'opengl32.dll' name 'glPrimitiveRestartNV';
+    private z_PrimitiveRestartNV_adr := GetFuncAdr('glPrimitiveRestartNV');
+    private z_PrimitiveRestartNV_ovr_0 := GetFuncOrNil&(z_PrimitiveRestartNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrimitiveRestartNV :=
     z_PrimitiveRestartNV_ovr_0;
     
-    private static procedure z_PrimitiveRestartIndexNV_ovr_0(index: UInt32);
-    external 'opengl32.dll' name 'glPrimitiveRestartIndexNV';
+    private z_PrimitiveRestartIndexNV_adr := GetFuncAdr('glPrimitiveRestartIndexNV');
+    private z_PrimitiveRestartIndexNV_ovr_0 := GetFuncOrNil&(z_PrimitiveRestartIndexNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrimitiveRestartIndexNV(index: UInt32) :=
     z_PrimitiveRestartIndexNV_ovr_0(index);
     
   end;
   
   [PCUNotRestore]
-  glQueryResourceNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glQueryResourceNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_query_resource';
     
-    private static function z_QueryResourceNV_ovr_0(queryType: DummyEnum; tagId: Int32; count: UInt32; var buffer: Int32): Int32;
-    external 'opengl32.dll' name 'glQueryResourceNV';
-    private static function z_QueryResourceNV_ovr_0_anh00001(queryType: DummyEnum; tagId: Int32; count: UInt32; buffer: IntPtr): Int32;
-    external 'opengl32.dll' name 'glQueryResourceNV';
+    private z_QueryResourceNV_adr := GetFuncAdr('glQueryResourceNV');
+    private z_QueryResourceNV_ovr_0 := GetFuncOrNil&(z_QueryResourceNV_adr);
+    private z_QueryResourceNV_ovr_0_anh00001 := GetFuncOrNil&(z_QueryResourceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryResourceNV(queryType: DummyEnum; tagId: Int32; count: UInt32; buffer: array of Int32): Int32 :=
     if (buffer<>nil) and (buffer.Length<>0) then
       z_QueryResourceNV_ovr_0(queryType, tagId, count, buffer[0]) else
       z_QueryResourceNV_ovr_0_anh00001(queryType, tagId, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryResourceNV(queryType: DummyEnum; tagId: Int32; count: UInt32; var buffer: Int32): Int32 :=
     z_QueryResourceNV_ovr_0(queryType, tagId, count, buffer);
-    private static function z_QueryResourceNV_ovr_2(queryType: DummyEnum; tagId: Int32; count: UInt32; buffer: IntPtr): Int32;
-    external 'opengl32.dll' name 'glQueryResourceNV';
+    private z_QueryResourceNV_ovr_2 := GetFuncOrNil&(z_QueryResourceNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryResourceNV(queryType: DummyEnum; tagId: Int32; count: UInt32; buffer: IntPtr): Int32 :=
     z_QueryResourceNV_ovr_2(queryType, tagId, count, buffer);
     
   end;
   
   [PCUNotRestore]
-  glQueryResourceTagNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glQueryResourceTagNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_query_resource_tag';
     
-    private static procedure z_GenQueryResourceTagNV_ovr_0(n: Int32; var tagIds: Int32);
-    external 'opengl32.dll' name 'glGenQueryResourceTagNV';
-    private static procedure z_GenQueryResourceTagNV_ovr_0_anh001(n: Int32; tagIds: IntPtr);
-    external 'opengl32.dll' name 'glGenQueryResourceTagNV';
+    private z_GenQueryResourceTagNV_adr := GetFuncAdr('glGenQueryResourceTagNV');
+    private z_GenQueryResourceTagNV_ovr_0 := GetFuncOrNil&(z_GenQueryResourceTagNV_adr);
+    private z_GenQueryResourceTagNV_ovr_0_anh001 := GetFuncOrNil&(z_GenQueryResourceTagNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueryResourceTagNV(n: Int32; tagIds: array of Int32) :=
     if (tagIds<>nil) and (tagIds.Length<>0) then
       z_GenQueryResourceTagNV_ovr_0(n, tagIds[0]) else
       z_GenQueryResourceTagNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueryResourceTagNV(n: Int32; var tagIds: Int32) :=
     z_GenQueryResourceTagNV_ovr_0(n, tagIds);
-    private static procedure z_GenQueryResourceTagNV_ovr_2(n: Int32; tagIds: IntPtr);
-    external 'opengl32.dll' name 'glGenQueryResourceTagNV';
+    private z_GenQueryResourceTagNV_ovr_2 := GetFuncOrNil&(z_GenQueryResourceTagNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenQueryResourceTagNV(n: Int32; tagIds: IntPtr) :=
     z_GenQueryResourceTagNV_ovr_2(n, tagIds);
     
-    private static procedure z_DeleteQueryResourceTagNV_ovr_0(n: Int32; var tagIds: Int32);
-    external 'opengl32.dll' name 'glDeleteQueryResourceTagNV';
-    private static procedure z_DeleteQueryResourceTagNV_ovr_0_anh001(n: Int32; tagIds: IntPtr);
-    external 'opengl32.dll' name 'glDeleteQueryResourceTagNV';
+    private z_DeleteQueryResourceTagNV_adr := GetFuncAdr('glDeleteQueryResourceTagNV');
+    private z_DeleteQueryResourceTagNV_ovr_0 := GetFuncOrNil&(z_DeleteQueryResourceTagNV_adr);
+    private z_DeleteQueryResourceTagNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteQueryResourceTagNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueryResourceTagNV(n: Int32; tagIds: array of Int32) :=
     if (tagIds<>nil) and (tagIds.Length<>0) then
       z_DeleteQueryResourceTagNV_ovr_0(n, tagIds[0]) else
       z_DeleteQueryResourceTagNV_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueryResourceTagNV(n: Int32; var tagIds: Int32) :=
     z_DeleteQueryResourceTagNV_ovr_0(n, tagIds);
-    private static procedure z_DeleteQueryResourceTagNV_ovr_2(n: Int32; tagIds: IntPtr);
-    external 'opengl32.dll' name 'glDeleteQueryResourceTagNV';
+    private z_DeleteQueryResourceTagNV_ovr_2 := GetFuncOrNil&(z_DeleteQueryResourceTagNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteQueryResourceTagNV(n: Int32; tagIds: IntPtr) :=
     z_DeleteQueryResourceTagNV_ovr_2(n, tagIds);
     
-    private static procedure z_QueryResourceTagNV_ovr_0(tagId: Int32; tagString: IntPtr);
-    external 'opengl32.dll' name 'glQueryResourceTagNV';
+    private z_QueryResourceTagNV_adr := GetFuncAdr('glQueryResourceTagNV');
+    private z_QueryResourceTagNV_ovr_0 := GetFuncOrNil&(z_QueryResourceTagNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryResourceTagNV(tagId: Int32; tagString: string);
     begin
       var par_2_str_ptr: IntPtr;
@@ -65724,630 +62555,593 @@ type
   end;
   
   [PCUNotRestore]
-  glRegisterCombinersNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glRegisterCombinersNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_register_combiners';
     
-    private static procedure z_CombinerParameterfvNV_ovr_0(pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glCombinerParameterfvNV';
-    private static procedure z_CombinerParameterfvNV_ovr_0_anh001(pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerParameterfvNV';
+    private z_CombinerParameterfvNV_adr := GetFuncAdr('glCombinerParameterfvNV');
+    private z_CombinerParameterfvNV_ovr_0 := GetFuncOrNil&(z_CombinerParameterfvNV_adr);
+    private z_CombinerParameterfvNV_ovr_0_anh001 := GetFuncOrNil&(z_CombinerParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterfvNV(pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_CombinerParameterfvNV_ovr_0(pname, ¶ms[0]) else
       z_CombinerParameterfvNV_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterfvNV(pname: CombinerParameterNV; var ¶ms: single) :=
     z_CombinerParameterfvNV_ovr_0(pname, ¶ms);
-    private static procedure z_CombinerParameterfvNV_ovr_2(pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerParameterfvNV';
+    private z_CombinerParameterfvNV_ovr_2 := GetFuncOrNil&(z_CombinerParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterfvNV(pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_CombinerParameterfvNV_ovr_2(pname, ¶ms);
     
-    private static procedure z_CombinerParameterfNV_ovr_0(pname: CombinerParameterNV; param: single);
-    external 'opengl32.dll' name 'glCombinerParameterfNV';
+    private z_CombinerParameterfNV_adr := GetFuncAdr('glCombinerParameterfNV');
+    private z_CombinerParameterfNV_ovr_0 := GetFuncOrNil&(z_CombinerParameterfNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterfNV(pname: CombinerParameterNV; param: single) :=
     z_CombinerParameterfNV_ovr_0(pname, param);
     
-    private static procedure z_CombinerParameterivNV_ovr_0(pname: CombinerParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glCombinerParameterivNV';
-    private static procedure z_CombinerParameterivNV_ovr_0_anh001(pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerParameterivNV';
+    private z_CombinerParameterivNV_adr := GetFuncAdr('glCombinerParameterivNV');
+    private z_CombinerParameterivNV_ovr_0 := GetFuncOrNil&(z_CombinerParameterivNV_adr);
+    private z_CombinerParameterivNV_ovr_0_anh001 := GetFuncOrNil&(z_CombinerParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterivNV(pname: CombinerParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_CombinerParameterivNV_ovr_0(pname, ¶ms[0]) else
       z_CombinerParameterivNV_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterivNV(pname: CombinerParameterNV; var ¶ms: Int32) :=
     z_CombinerParameterivNV_ovr_0(pname, ¶ms);
-    private static procedure z_CombinerParameterivNV_ovr_2(pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerParameterivNV';
+    private z_CombinerParameterivNV_ovr_2 := GetFuncOrNil&(z_CombinerParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameterivNV(pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_CombinerParameterivNV_ovr_2(pname, ¶ms);
     
-    private static procedure z_CombinerParameteriNV_ovr_0(pname: CombinerParameterNV; param: Int32);
-    external 'opengl32.dll' name 'glCombinerParameteriNV';
+    private z_CombinerParameteriNV_adr := GetFuncAdr('glCombinerParameteriNV');
+    private z_CombinerParameteriNV_ovr_0 := GetFuncOrNil&(z_CombinerParameteriNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerParameteriNV(pname: CombinerParameterNV; param: Int32) :=
     z_CombinerParameteriNV_ovr_0(pname, param);
     
-    private static procedure z_CombinerInputNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; input: CombinerRegisterNV; mapping: CombinerMappingNV; componentUsage: CombinerComponentUsageNV);
-    external 'opengl32.dll' name 'glCombinerInputNV';
+    private z_CombinerInputNV_adr := GetFuncAdr('glCombinerInputNV');
+    private z_CombinerInputNV_ovr_0 := GetFuncOrNil&(z_CombinerInputNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerInputNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; input: CombinerRegisterNV; mapping: CombinerMappingNV; componentUsage: CombinerComponentUsageNV) :=
     z_CombinerInputNV_ovr_0(stage, portion, variable, input, mapping, componentUsage);
     
-    private static procedure z_CombinerOutputNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; abOutput: CombinerRegisterNV; cdOutput: CombinerRegisterNV; sumOutput: CombinerRegisterNV; scale: CombinerScaleNV; bias: CombinerBiasNV; abDotProduct: boolean; cdDotProduct: boolean; muxSum: boolean);
-    external 'opengl32.dll' name 'glCombinerOutputNV';
+    private z_CombinerOutputNV_adr := GetFuncAdr('glCombinerOutputNV');
+    private z_CombinerOutputNV_ovr_0 := GetFuncOrNil&(z_CombinerOutputNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerOutputNV(stage: CombinerStageNV; portion: CombinerPortionNV; abOutput: CombinerRegisterNV; cdOutput: CombinerRegisterNV; sumOutput: CombinerRegisterNV; scale: CombinerScaleNV; bias: CombinerBiasNV; abDotProduct: boolean; cdDotProduct: boolean; muxSum: boolean) :=
     z_CombinerOutputNV_ovr_0(stage, portion, abOutput, cdOutput, sumOutput, scale, bias, abDotProduct, cdDotProduct, muxSum);
     
-    private static procedure z_FinalCombinerInputNV_ovr_0(variable: CombinerVariableNV; input: CombinerRegisterNV; mapping: CombinerMappingNV; componentUsage: CombinerComponentUsageNV);
-    external 'opengl32.dll' name 'glFinalCombinerInputNV';
+    private z_FinalCombinerInputNV_adr := GetFuncAdr('glFinalCombinerInputNV');
+    private z_FinalCombinerInputNV_ovr_0 := GetFuncOrNil&(z_FinalCombinerInputNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FinalCombinerInputNV(variable: CombinerVariableNV; input: CombinerRegisterNV; mapping: CombinerMappingNV; componentUsage: CombinerComponentUsageNV) :=
     z_FinalCombinerInputNV_ovr_0(variable, input, mapping, componentUsage);
     
-    private static procedure z_GetCombinerInputParameterfvNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterfvNV';
-    private static procedure z_GetCombinerInputParameterfvNV_ovr_0_anh000001(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterfvNV';
+    private z_GetCombinerInputParameterfvNV_adr := GetFuncAdr('glGetCombinerInputParameterfvNV');
+    private z_GetCombinerInputParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetCombinerInputParameterfvNV_adr);
+    private z_GetCombinerInputParameterfvNV_ovr_0_anh000001 := GetFuncOrNil&(z_GetCombinerInputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetCombinerInputParameterfvNV_ovr_0(stage, portion, variable, pname, ¶ms[0]) else
       z_GetCombinerInputParameterfvNV_ovr_0_anh000001(stage, portion, variable, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: single) :=
     z_GetCombinerInputParameterfvNV_ovr_0(stage, portion, variable, pname, ¶ms);
-    private static procedure z_GetCombinerInputParameterfvNV_ovr_2(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterfvNV';
+    private z_GetCombinerInputParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetCombinerInputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetCombinerInputParameterfvNV_ovr_2(stage, portion, variable, pname, ¶ms);
     
-    private static procedure z_GetCombinerInputParameterivNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterivNV';
-    private static procedure z_GetCombinerInputParameterivNV_ovr_0_anh000001(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterivNV';
+    private z_GetCombinerInputParameterivNV_adr := GetFuncAdr('glGetCombinerInputParameterivNV');
+    private z_GetCombinerInputParameterivNV_ovr_0 := GetFuncOrNil&(z_GetCombinerInputParameterivNV_adr);
+    private z_GetCombinerInputParameterivNV_ovr_0_anh000001 := GetFuncOrNil&(z_GetCombinerInputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetCombinerInputParameterivNV_ovr_0(stage, portion, variable, pname, ¶ms[0]) else
       z_GetCombinerInputParameterivNV_ovr_0_anh000001(stage, portion, variable, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: Int32) :=
     z_GetCombinerInputParameterivNV_ovr_0(stage, portion, variable, pname, ¶ms);
-    private static procedure z_GetCombinerInputParameterivNV_ovr_2(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerInputParameterivNV';
+    private z_GetCombinerInputParameterivNV_ovr_2 := GetFuncOrNil&(z_GetCombinerInputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerInputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetCombinerInputParameterivNV_ovr_2(stage, portion, variable, pname, ¶ms);
     
-    private static procedure z_GetCombinerOutputParameterfvNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterfvNV';
-    private static procedure z_GetCombinerOutputParameterfvNV_ovr_0_anh00001(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterfvNV';
+    private z_GetCombinerOutputParameterfvNV_adr := GetFuncAdr('glGetCombinerOutputParameterfvNV');
+    private z_GetCombinerOutputParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetCombinerOutputParameterfvNV_adr);
+    private z_GetCombinerOutputParameterfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetCombinerOutputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetCombinerOutputParameterfvNV_ovr_0(stage, portion, pname, ¶ms[0]) else
       z_GetCombinerOutputParameterfvNV_ovr_0_anh00001(stage, portion, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; var ¶ms: single) :=
     z_GetCombinerOutputParameterfvNV_ovr_0(stage, portion, pname, ¶ms);
-    private static procedure z_GetCombinerOutputParameterfvNV_ovr_2(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterfvNV';
+    private z_GetCombinerOutputParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetCombinerOutputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterfvNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetCombinerOutputParameterfvNV_ovr_2(stage, portion, pname, ¶ms);
     
-    private static procedure z_GetCombinerOutputParameterivNV_ovr_0(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterivNV';
-    private static procedure z_GetCombinerOutputParameterivNV_ovr_0_anh00001(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterivNV';
+    private z_GetCombinerOutputParameterivNV_adr := GetFuncAdr('glGetCombinerOutputParameterivNV');
+    private z_GetCombinerOutputParameterivNV_ovr_0 := GetFuncOrNil&(z_GetCombinerOutputParameterivNV_adr);
+    private z_GetCombinerOutputParameterivNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetCombinerOutputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetCombinerOutputParameterivNV_ovr_0(stage, portion, pname, ¶ms[0]) else
       z_GetCombinerOutputParameterivNV_ovr_0_anh00001(stage, portion, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; var ¶ms: Int32) :=
     z_GetCombinerOutputParameterivNV_ovr_0(stage, portion, pname, ¶ms);
-    private static procedure z_GetCombinerOutputParameterivNV_ovr_2(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerOutputParameterivNV';
+    private z_GetCombinerOutputParameterivNV_ovr_2 := GetFuncOrNil&(z_GetCombinerOutputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerOutputParameterivNV(stage: CombinerStageNV; portion: CombinerPortionNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetCombinerOutputParameterivNV_ovr_2(stage, portion, pname, ¶ms);
     
-    private static procedure z_GetFinalCombinerInputParameterfvNV_ovr_0(variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterfvNV';
-    private static procedure z_GetFinalCombinerInputParameterfvNV_ovr_0_anh0001(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterfvNV';
+    private z_GetFinalCombinerInputParameterfvNV_adr := GetFuncAdr('glGetFinalCombinerInputParameterfvNV');
+    private z_GetFinalCombinerInputParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetFinalCombinerInputParameterfvNV_adr);
+    private z_GetFinalCombinerInputParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetFinalCombinerInputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterfvNV(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFinalCombinerInputParameterfvNV_ovr_0(variable, pname, ¶ms[0]) else
       z_GetFinalCombinerInputParameterfvNV_ovr_0_anh0001(variable, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterfvNV(variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: single) :=
     z_GetFinalCombinerInputParameterfvNV_ovr_0(variable, pname, ¶ms);
-    private static procedure z_GetFinalCombinerInputParameterfvNV_ovr_2(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterfvNV';
+    private z_GetFinalCombinerInputParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetFinalCombinerInputParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterfvNV(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetFinalCombinerInputParameterfvNV_ovr_2(variable, pname, ¶ms);
     
-    private static procedure z_GetFinalCombinerInputParameterivNV_ovr_0(variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterivNV';
-    private static procedure z_GetFinalCombinerInputParameterivNV_ovr_0_anh0001(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterivNV';
+    private z_GetFinalCombinerInputParameterivNV_adr := GetFuncAdr('glGetFinalCombinerInputParameterivNV');
+    private z_GetFinalCombinerInputParameterivNV_ovr_0 := GetFuncOrNil&(z_GetFinalCombinerInputParameterivNV_adr);
+    private z_GetFinalCombinerInputParameterivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetFinalCombinerInputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterivNV(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFinalCombinerInputParameterivNV_ovr_0(variable, pname, ¶ms[0]) else
       z_GetFinalCombinerInputParameterivNV_ovr_0_anh0001(variable, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterivNV(variable: CombinerVariableNV; pname: CombinerParameterNV; var ¶ms: Int32) :=
     z_GetFinalCombinerInputParameterivNV_ovr_0(variable, pname, ¶ms);
-    private static procedure z_GetFinalCombinerInputParameterivNV_ovr_2(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFinalCombinerInputParameterivNV';
+    private z_GetFinalCombinerInputParameterivNV_ovr_2 := GetFuncOrNil&(z_GetFinalCombinerInputParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFinalCombinerInputParameterivNV(variable: CombinerVariableNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetFinalCombinerInputParameterivNV_ovr_2(variable, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glRegisterCombiners2NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glRegisterCombiners2NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_register_combiners2';
     
-    private static procedure z_CombinerStageParameterfvNV_ovr_0(stage: CombinerStageNV; pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glCombinerStageParameterfvNV';
-    private static procedure z_CombinerStageParameterfvNV_ovr_0_anh0001(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerStageParameterfvNV';
+    private z_CombinerStageParameterfvNV_adr := GetFuncAdr('glCombinerStageParameterfvNV');
+    private z_CombinerStageParameterfvNV_ovr_0 := GetFuncOrNil&(z_CombinerStageParameterfvNV_adr);
+    private z_CombinerStageParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_CombinerStageParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_CombinerStageParameterfvNV_ovr_0(stage, pname, ¶ms[0]) else
       z_CombinerStageParameterfvNV_ovr_0_anh0001(stage, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; var ¶ms: single) :=
     z_CombinerStageParameterfvNV_ovr_0(stage, pname, ¶ms);
-    private static procedure z_CombinerStageParameterfvNV_ovr_2(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glCombinerStageParameterfvNV';
+    private z_CombinerStageParameterfvNV_ovr_2 := GetFuncOrNil&(z_CombinerStageParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_CombinerStageParameterfvNV_ovr_2(stage, pname, ¶ms);
     
-    private static procedure z_GetCombinerStageParameterfvNV_ovr_0(stage: CombinerStageNV; pname: CombinerParameterNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetCombinerStageParameterfvNV';
-    private static procedure z_GetCombinerStageParameterfvNV_ovr_0_anh0001(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerStageParameterfvNV';
+    private z_GetCombinerStageParameterfvNV_adr := GetFuncAdr('glGetCombinerStageParameterfvNV');
+    private z_GetCombinerStageParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetCombinerStageParameterfvNV_adr);
+    private z_GetCombinerStageParameterfvNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetCombinerStageParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetCombinerStageParameterfvNV_ovr_0(stage, pname, ¶ms[0]) else
       z_GetCombinerStageParameterfvNV_ovr_0_anh0001(stage, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; var ¶ms: single) :=
     z_GetCombinerStageParameterfvNV_ovr_0(stage, pname, ¶ms);
-    private static procedure z_GetCombinerStageParameterfvNV_ovr_2(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetCombinerStageParameterfvNV';
+    private z_GetCombinerStageParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetCombinerStageParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetCombinerStageParameterfvNV(stage: CombinerStageNV; pname: CombinerParameterNV; ¶ms: IntPtr) :=
     z_GetCombinerStageParameterfvNV_ovr_2(stage, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glSampleLocationsNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSampleLocationsNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_sample_locations';
     
-    private static procedure z_FramebufferSampleLocationsfvNV_ovr_0(target: FramebufferTarget; start: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvNV';
-    private static procedure z_FramebufferSampleLocationsfvNV_ovr_0_anh00001(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvNV';
+    private z_FramebufferSampleLocationsfvNV_adr := GetFuncAdr('glFramebufferSampleLocationsfvNV');
+    private z_FramebufferSampleLocationsfvNV_ovr_0 := GetFuncOrNil&(z_FramebufferSampleLocationsfvNV_adr);
+    private z_FramebufferSampleLocationsfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_FramebufferSampleLocationsfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvNV(target: FramebufferTarget; start: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_FramebufferSampleLocationsfvNV_ovr_0(target, start, count, v[0]) else
       z_FramebufferSampleLocationsfvNV_ovr_0_anh00001(target, start, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvNV(target: FramebufferTarget; start: UInt32; count: Int32; var v: single) :=
     z_FramebufferSampleLocationsfvNV_ovr_0(target, start, count, v);
-    private static procedure z_FramebufferSampleLocationsfvNV_ovr_2(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glFramebufferSampleLocationsfvNV';
+    private z_FramebufferSampleLocationsfvNV_ovr_2 := GetFuncOrNil&(z_FramebufferSampleLocationsfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferSampleLocationsfvNV(target: FramebufferTarget; start: UInt32; count: Int32; v: IntPtr) :=
     z_FramebufferSampleLocationsfvNV_ovr_2(target, start, count, v);
     
-    private static procedure z_NamedFramebufferSampleLocationsfvNV_ovr_0(framebuffer: UInt32; start: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvNV';
-    private static procedure z_NamedFramebufferSampleLocationsfvNV_ovr_0_anh00001(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: UInt32; start: UInt32; count: Int32; v: array of single) :=
+    private z_NamedFramebufferSampleLocationsfvNV_adr := GetFuncAdr('glNamedFramebufferSampleLocationsfvNV');
+    private z_NamedFramebufferSampleLocationsfvNV_ovr_0 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvNV_adr);
+    private z_NamedFramebufferSampleLocationsfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_NamedFramebufferSampleLocationsfvNV_ovr_0(framebuffer, start, count, v[0]) else
       z_NamedFramebufferSampleLocationsfvNV_ovr_0_anh00001(framebuffer, start, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: UInt32; start: UInt32; count: Int32; var v: single) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: gl_framebuffer; start: UInt32; count: Int32; var v: single) :=
     z_NamedFramebufferSampleLocationsfvNV_ovr_0(framebuffer, start, count, v);
-    private static procedure z_NamedFramebufferSampleLocationsfvNV_ovr_2(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glNamedFramebufferSampleLocationsfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: UInt32; start: UInt32; count: Int32; v: IntPtr) :=
+    private z_NamedFramebufferSampleLocationsfvNV_ovr_2 := GetFuncOrNil&(z_NamedFramebufferSampleLocationsfvNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedFramebufferSampleLocationsfvNV(framebuffer: gl_framebuffer; start: UInt32; count: Int32; v: IntPtr) :=
     z_NamedFramebufferSampleLocationsfvNV_ovr_2(framebuffer, start, count, v);
     
-    private static procedure z_ResolveDepthValuesNV_ovr_0;
-    external 'opengl32.dll' name 'glResolveDepthValuesNV';
+    private z_ResolveDepthValuesNV_adr := GetFuncAdr('glResolveDepthValuesNV');
+    private z_ResolveDepthValuesNV_ovr_0 := GetFuncOrNil&(z_ResolveDepthValuesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResolveDepthValuesNV :=
     z_ResolveDepthValuesNV_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glScissorExclusiveNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glScissorExclusiveNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_scissor_exclusive';
     
-    private static procedure z_ScissorExclusiveNV_ovr_0(x: Int32; y: Int32; width: Int32; height: Int32);
-    external 'opengl32.dll' name 'glScissorExclusiveNV';
+    private z_ScissorExclusiveNV_adr := GetFuncAdr('glScissorExclusiveNV');
+    private z_ScissorExclusiveNV_ovr_0 := GetFuncOrNil&(z_ScissorExclusiveNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorExclusiveNV(x: Int32; y: Int32; width: Int32; height: Int32) :=
     z_ScissorExclusiveNV_ovr_0(x, y, width, height);
     
-    private static procedure z_ScissorExclusiveArrayvNV_ovr_0(first: UInt32; count: Int32; var v: Int32);
-    external 'opengl32.dll' name 'glScissorExclusiveArrayvNV';
-    private static procedure z_ScissorExclusiveArrayvNV_ovr_0_anh0001(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorExclusiveArrayvNV';
+    private z_ScissorExclusiveArrayvNV_adr := GetFuncAdr('glScissorExclusiveArrayvNV');
+    private z_ScissorExclusiveArrayvNV_ovr_0 := GetFuncOrNil&(z_ScissorExclusiveArrayvNV_adr);
+    private z_ScissorExclusiveArrayvNV_ovr_0_anh0001 := GetFuncOrNil&(z_ScissorExclusiveArrayvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorExclusiveArrayvNV(first: UInt32; count: Int32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_ScissorExclusiveArrayvNV_ovr_0(first, count, v[0]) else
       z_ScissorExclusiveArrayvNV_ovr_0_anh0001(first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorExclusiveArrayvNV(first: UInt32; count: Int32; var v: Int32) :=
     z_ScissorExclusiveArrayvNV_ovr_0(first, count, v);
-    private static procedure z_ScissorExclusiveArrayvNV_ovr_2(first: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glScissorExclusiveArrayvNV';
+    private z_ScissorExclusiveArrayvNV_ovr_2 := GetFuncOrNil&(z_ScissorExclusiveArrayvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScissorExclusiveArrayvNV(first: UInt32; count: Int32; v: IntPtr) :=
     z_ScissorExclusiveArrayvNV_ovr_2(first, count, v);
     
   end;
   
   [PCUNotRestore]
-  glShaderBufferLoadNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShaderBufferLoadNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_shader_buffer_load';
     
-    private static procedure z_MakeBufferResidentNV_ovr_0(target: DummyEnum; access: DummyEnum);
-    external 'opengl32.dll' name 'glMakeBufferResidentNV';
+    private z_MakeBufferResidentNV_adr := GetFuncAdr('glMakeBufferResidentNV');
+    private z_MakeBufferResidentNV_ovr_0 := GetFuncOrNil&(z_MakeBufferResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeBufferResidentNV(target: DummyEnum; access: DummyEnum) :=
     z_MakeBufferResidentNV_ovr_0(target, access);
     
-    private static procedure z_MakeBufferNonResidentNV_ovr_0(target: DummyEnum);
-    external 'opengl32.dll' name 'glMakeBufferNonResidentNV';
+    private z_MakeBufferNonResidentNV_adr := GetFuncAdr('glMakeBufferNonResidentNV');
+    private z_MakeBufferNonResidentNV_ovr_0 := GetFuncOrNil&(z_MakeBufferNonResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeBufferNonResidentNV(target: DummyEnum) :=
     z_MakeBufferNonResidentNV_ovr_0(target);
     
-    private static function z_IsBufferResidentNV_ovr_0(target: DummyEnum): boolean;
-    external 'opengl32.dll' name 'glIsBufferResidentNV';
+    private z_IsBufferResidentNV_adr := GetFuncAdr('glIsBufferResidentNV');
+    private z_IsBufferResidentNV_ovr_0 := GetFuncOrNil&(z_IsBufferResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsBufferResidentNV(target: DummyEnum): boolean :=
     z_IsBufferResidentNV_ovr_0(target);
     
-    private static procedure z_MakeNamedBufferResidentNV_ovr_0(buffer: UInt32; access: DummyEnum);
-    external 'opengl32.dll' name 'glMakeNamedBufferResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeNamedBufferResidentNV(buffer: UInt32; access: DummyEnum) :=
+    private z_MakeNamedBufferResidentNV_adr := GetFuncAdr('glMakeNamedBufferResidentNV');
+    private z_MakeNamedBufferResidentNV_ovr_0 := GetFuncOrNil&(z_MakeNamedBufferResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeNamedBufferResidentNV(buffer: gl_buffer; access: DummyEnum) :=
     z_MakeNamedBufferResidentNV_ovr_0(buffer, access);
     
-    private static procedure z_MakeNamedBufferNonResidentNV_ovr_0(buffer: UInt32);
-    external 'opengl32.dll' name 'glMakeNamedBufferNonResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeNamedBufferNonResidentNV(buffer: UInt32) :=
+    private z_MakeNamedBufferNonResidentNV_adr := GetFuncAdr('glMakeNamedBufferNonResidentNV');
+    private z_MakeNamedBufferNonResidentNV_ovr_0 := GetFuncOrNil&(z_MakeNamedBufferNonResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MakeNamedBufferNonResidentNV(buffer: gl_buffer) :=
     z_MakeNamedBufferNonResidentNV_ovr_0(buffer);
     
-    private static function z_IsNamedBufferResidentNV_ovr_0(buffer: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsNamedBufferResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsNamedBufferResidentNV(buffer: UInt32): boolean :=
+    private z_IsNamedBufferResidentNV_adr := GetFuncAdr('glIsNamedBufferResidentNV');
+    private z_IsNamedBufferResidentNV_ovr_0 := GetFuncOrNil&(z_IsNamedBufferResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsNamedBufferResidentNV(buffer: gl_buffer): boolean :=
     z_IsNamedBufferResidentNV_ovr_0(buffer);
     
-    private static procedure z_GetBufferParameterui64vNV_ovr_0(target: BufferTargetARB; pname: DummyEnum; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetBufferParameterui64vNV';
-    private static procedure z_GetBufferParameterui64vNV_ovr_0_anh0001(target: BufferTargetARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferParameterui64vNV';
+    private z_GetBufferParameterui64vNV_adr := GetFuncAdr('glGetBufferParameterui64vNV');
+    private z_GetBufferParameterui64vNV_ovr_0 := GetFuncOrNil&(z_GetBufferParameterui64vNV_adr);
+    private z_GetBufferParameterui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetBufferParameterui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterui64vNV(target: BufferTargetARB; pname: DummyEnum; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetBufferParameterui64vNV_ovr_0(target, pname, ¶ms[0]) else
       z_GetBufferParameterui64vNV_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterui64vNV(target: BufferTargetARB; pname: DummyEnum; var ¶ms: UInt64) :=
     z_GetBufferParameterui64vNV_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetBufferParameterui64vNV_ovr_2(target: BufferTargetARB; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetBufferParameterui64vNV';
+    private z_GetBufferParameterui64vNV_ovr_2 := GetFuncOrNil&(z_GetBufferParameterui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetBufferParameterui64vNV(target: BufferTargetARB; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetBufferParameterui64vNV_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetNamedBufferParameterui64vNV_ovr_0(buffer: UInt32; pname: BufferPNameARB; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterui64vNV';
-    private static procedure z_GetNamedBufferParameterui64vNV_ovr_0_anh0001(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: UInt32; pname: BufferPNameARB; ¶ms: array of UInt64) :=
+    private z_GetNamedBufferParameterui64vNV_adr := GetFuncAdr('glGetNamedBufferParameterui64vNV');
+    private z_GetNamedBufferParameterui64vNV_ovr_0 := GetFuncOrNil&(z_GetNamedBufferParameterui64vNV_adr);
+    private z_GetNamedBufferParameterui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetNamedBufferParameterui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetNamedBufferParameterui64vNV_ovr_0(buffer, pname, ¶ms[0]) else
       z_GetNamedBufferParameterui64vNV_ovr_0_anh0001(buffer, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: UInt32; pname: BufferPNameARB; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: gl_buffer; pname: BufferPNameARB; var ¶ms: UInt64) :=
     z_GetNamedBufferParameterui64vNV_ovr_0(buffer, pname, ¶ms);
-    private static procedure z_GetNamedBufferParameterui64vNV_ovr_2(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetNamedBufferParameterui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: UInt32; pname: BufferPNameARB; ¶ms: IntPtr) :=
+    private z_GetNamedBufferParameterui64vNV_ovr_2 := GetFuncOrNil&(z_GetNamedBufferParameterui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetNamedBufferParameterui64vNV(buffer: gl_buffer; pname: BufferPNameARB; ¶ms: IntPtr) :=
     z_GetNamedBufferParameterui64vNV_ovr_2(buffer, pname, ¶ms);
     
-    private static procedure z_GetIntegerui64vNV_ovr_0(value: DummyEnum; var result: UInt64);
-    external 'opengl32.dll' name 'glGetIntegerui64vNV';
-    private static procedure z_GetIntegerui64vNV_ovr_0_anh001(value: DummyEnum; result: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerui64vNV';
+    private z_GetIntegerui64vNV_adr := GetFuncAdr('glGetIntegerui64vNV');
+    private z_GetIntegerui64vNV_ovr_0 := GetFuncOrNil&(z_GetIntegerui64vNV_adr);
+    private z_GetIntegerui64vNV_ovr_0_anh001 := GetFuncOrNil&(z_GetIntegerui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64vNV(value: DummyEnum; result: array of UInt64) :=
     if (result<>nil) and (result.Length<>0) then
       z_GetIntegerui64vNV_ovr_0(value, result[0]) else
       z_GetIntegerui64vNV_ovr_0_anh001(value, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64vNV(value: DummyEnum; var result: UInt64) :=
     z_GetIntegerui64vNV_ovr_0(value, result);
-    private static procedure z_GetIntegerui64vNV_ovr_2(value: DummyEnum; result: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerui64vNV';
+    private z_GetIntegerui64vNV_ovr_2 := GetFuncOrNil&(z_GetIntegerui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64vNV(value: DummyEnum; result: IntPtr) :=
     z_GetIntegerui64vNV_ovr_2(value, result);
     
-    private static procedure z_Uniformui64NV_ovr_0(location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glUniformui64NV';
+    private z_Uniformui64NV_adr := GetFuncAdr('glUniformui64NV');
+    private z_Uniformui64NV_ovr_0 := GetFuncOrNil&(z_Uniformui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniformui64NV(location: Int32; value: UInt64) :=
     z_Uniformui64NV_ovr_0(location, value);
     
-    private static procedure z_Uniformui64vNV_ovr_0(location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glUniformui64vNV';
-    private static procedure z_Uniformui64vNV_ovr_0_anh0001(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformui64vNV';
+    private z_Uniformui64vNV_adr := GetFuncAdr('glUniformui64vNV');
+    private z_Uniformui64vNV_ovr_0 := GetFuncOrNil&(z_Uniformui64vNV_adr);
+    private z_Uniformui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_Uniformui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniformui64vNV(location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_Uniformui64vNV_ovr_0(location, count, value[0]) else
       z_Uniformui64vNV_ovr_0_anh0001(location, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniformui64vNV(location: Int32; count: Int32; var value: UInt64) :=
     z_Uniformui64vNV_ovr_0(location, count, value);
-    private static procedure z_Uniformui64vNV_ovr_2(location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glUniformui64vNV';
+    private z_Uniformui64vNV_ovr_2 := GetFuncOrNil&(z_Uniformui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Uniformui64vNV(location: Int32; count: Int32; value: IntPtr) :=
     z_Uniformui64vNV_ovr_2(location, count, value);
     
-    private static procedure z_GetUniformui64vNV_ovr_0(&program: UInt32; location: Int32; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    private static procedure z_GetUniformui64vNV_ovr_0_anh0001(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; ¶ms: array of UInt64) :=
+    private z_GetUniformui64vNV_adr := GetFuncAdr('glGetUniformui64vNV');
+    private z_GetUniformui64vNV_ovr_0 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    private z_GetUniformui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetUniformui64vNV_ovr_0(&program, location, ¶ms[0]) else
       z_GetUniformui64vNV_ovr_0_anh0001(&program, location, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; var ¶ms: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; var ¶ms: UInt64) :=
     z_GetUniformui64vNV_ovr_0(&program, location, ¶ms);
-    private static procedure z_GetUniformui64vNV_ovr_2(&program: UInt32; location: Int32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: UInt32; location: Int32; ¶ms: IntPtr) :=
+    private z_GetUniformui64vNV_ovr_2 := GetFuncOrNil&(z_GetUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetUniformui64vNV(&program: gl_program; location: Int32; ¶ms: IntPtr) :=
     z_GetUniformui64vNV_ovr_2(&program, location, ¶ms);
     
-    private static procedure z_ProgramUniformui64NV_ovr_0(&program: UInt32; location: Int32; value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformui64NV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64NV(&program: UInt32; location: Int32; value: UInt64) :=
+    private z_ProgramUniformui64NV_adr := GetFuncAdr('glProgramUniformui64NV');
+    private z_ProgramUniformui64NV_ovr_0 := GetFuncOrNil&(z_ProgramUniformui64NV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64NV(&program: gl_program; location: Int32; value: UInt64) :=
     z_ProgramUniformui64NV_ovr_0(&program, location, value);
     
-    private static procedure z_ProgramUniformui64vNV_ovr_0(&program: UInt32; location: Int32; count: Int32; var value: UInt64);
-    external 'opengl32.dll' name 'glProgramUniformui64vNV';
-    private static procedure z_ProgramUniformui64vNV_ovr_0_anh00001(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: UInt32; location: Int32; count: Int32; value: array of UInt64) :=
+    private z_ProgramUniformui64vNV_adr := GetFuncAdr('glProgramUniformui64vNV');
+    private z_ProgramUniformui64vNV_ovr_0 := GetFuncOrNil&(z_ProgramUniformui64vNV_adr);
+    private z_ProgramUniformui64vNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: gl_program; location: Int32; count: Int32; value: array of UInt64) :=
     if (value<>nil) and (value.Length<>0) then
       z_ProgramUniformui64vNV_ovr_0(&program, location, count, value[0]) else
       z_ProgramUniformui64vNV_ovr_0_anh00001(&program, location, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: UInt32; location: Int32; count: Int32; var value: UInt64) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: gl_program; location: Int32; count: Int32; var value: UInt64) :=
     z_ProgramUniformui64vNV_ovr_0(&program, location, count, value);
-    private static procedure z_ProgramUniformui64vNV_ovr_2(&program: UInt32; location: Int32; count: Int32; value: IntPtr);
-    external 'opengl32.dll' name 'glProgramUniformui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: UInt32; location: Int32; count: Int32; value: IntPtr) :=
+    private z_ProgramUniformui64vNV_ovr_2 := GetFuncOrNil&(z_ProgramUniformui64vNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramUniformui64vNV(&program: gl_program; location: Int32; count: Int32; value: IntPtr) :=
     z_ProgramUniformui64vNV_ovr_2(&program, location, count, value);
     
   end;
   
   [PCUNotRestore]
-  glShadingRateImageNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glShadingRateImageNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_shading_rate_image';
     
-    private static procedure z_BindShadingRateImageNV_ovr_0(texture: UInt32);
-    external 'opengl32.dll' name 'glBindShadingRateImageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindShadingRateImageNV(texture: UInt32) :=
+    private z_BindShadingRateImageNV_adr := GetFuncAdr('glBindShadingRateImageNV');
+    private z_BindShadingRateImageNV_ovr_0 := GetFuncOrNil&(z_BindShadingRateImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindShadingRateImageNV(texture: gl_texture) :=
     z_BindShadingRateImageNV_ovr_0(texture);
     
-    private static procedure z_GetShadingRateImagePaletteNV_ovr_0(viewport: UInt32; entry: UInt32; var rate: DummyEnum);
-    external 'opengl32.dll' name 'glGetShadingRateImagePaletteNV';
-    private static procedure z_GetShadingRateImagePaletteNV_ovr_0_anh0001(viewport: UInt32; entry: UInt32; rate: IntPtr);
-    external 'opengl32.dll' name 'glGetShadingRateImagePaletteNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateImagePaletteNV(viewport: UInt32; entry: UInt32; rate: array of DummyEnum) :=
-    if (rate<>nil) and (rate.Length<>0) then
-      z_GetShadingRateImagePaletteNV_ovr_0(viewport, entry, rate[0]) else
-      z_GetShadingRateImagePaletteNV_ovr_0_anh0001(viewport, entry, IntPtr.Zero);
+    private z_GetShadingRateImagePaletteNV_adr := GetFuncAdr('glGetShadingRateImagePaletteNV');
+    private z_GetShadingRateImagePaletteNV_ovr_0 := GetFuncOrNil&(z_GetShadingRateImagePaletteNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateImagePaletteNV(viewport: UInt32; entry: UInt32; var rate: DummyEnum) :=
     z_GetShadingRateImagePaletteNV_ovr_0(viewport, entry, rate);
-    private static procedure z_GetShadingRateImagePaletteNV_ovr_2(viewport: UInt32; entry: UInt32; rate: IntPtr);
-    external 'opengl32.dll' name 'glGetShadingRateImagePaletteNV';
+    private z_GetShadingRateImagePaletteNV_ovr_1 := GetFuncOrNil&(z_GetShadingRateImagePaletteNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateImagePaletteNV(viewport: UInt32; entry: UInt32; rate: IntPtr) :=
-    z_GetShadingRateImagePaletteNV_ovr_2(viewport, entry, rate);
+    z_GetShadingRateImagePaletteNV_ovr_1(viewport, entry, rate);
     
-    private static procedure z_GetShadingRateSampleLocationivNV_ovr_0(rate: DummyEnum; samples: UInt32; index: UInt32; var location: Int32);
-    external 'opengl32.dll' name 'glGetShadingRateSampleLocationivNV';
-    private static procedure z_GetShadingRateSampleLocationivNV_ovr_0_anh00001(rate: DummyEnum; samples: UInt32; index: UInt32; location: IntPtr);
-    external 'opengl32.dll' name 'glGetShadingRateSampleLocationivNV';
+    private z_GetShadingRateSampleLocationivNV_adr := GetFuncAdr('glGetShadingRateSampleLocationivNV');
+    private z_GetShadingRateSampleLocationivNV_ovr_0 := GetFuncOrNil&(z_GetShadingRateSampleLocationivNV_adr);
+    private z_GetShadingRateSampleLocationivNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetShadingRateSampleLocationivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateSampleLocationivNV(rate: DummyEnum; samples: UInt32; index: UInt32; location: array of Int32) :=
     if (location<>nil) and (location.Length<>0) then
       z_GetShadingRateSampleLocationivNV_ovr_0(rate, samples, index, location[0]) else
       z_GetShadingRateSampleLocationivNV_ovr_0_anh00001(rate, samples, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateSampleLocationivNV(rate: DummyEnum; samples: UInt32; index: UInt32; var location: Int32) :=
     z_GetShadingRateSampleLocationivNV_ovr_0(rate, samples, index, location);
-    private static procedure z_GetShadingRateSampleLocationivNV_ovr_2(rate: DummyEnum; samples: UInt32; index: UInt32; location: IntPtr);
-    external 'opengl32.dll' name 'glGetShadingRateSampleLocationivNV';
+    private z_GetShadingRateSampleLocationivNV_ovr_2 := GetFuncOrNil&(z_GetShadingRateSampleLocationivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetShadingRateSampleLocationivNV(rate: DummyEnum; samples: UInt32; index: UInt32; location: IntPtr) :=
     z_GetShadingRateSampleLocationivNV_ovr_2(rate, samples, index, location);
     
-    private static procedure z_ShadingRateImageBarrierNV_ovr_0(synchronize: boolean);
-    external 'opengl32.dll' name 'glShadingRateImageBarrierNV';
+    private z_ShadingRateImageBarrierNV_adr := GetFuncAdr('glShadingRateImageBarrierNV');
+    private z_ShadingRateImageBarrierNV_ovr_0 := GetFuncOrNil&(z_ShadingRateImageBarrierNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateImageBarrierNV(synchronize: boolean) :=
     z_ShadingRateImageBarrierNV_ovr_0(synchronize);
     
-    private static procedure z_ShadingRateImagePaletteNV_ovr_0(viewport: UInt32; first: UInt32; count: Int32; var rates: DummyEnum);
-    external 'opengl32.dll' name 'glShadingRateImagePaletteNV';
-    private static procedure z_ShadingRateImagePaletteNV_ovr_0_anh00001(viewport: UInt32; first: UInt32; count: Int32; rates: IntPtr);
-    external 'opengl32.dll' name 'glShadingRateImagePaletteNV';
+    private z_ShadingRateImagePaletteNV_adr := GetFuncAdr('glShadingRateImagePaletteNV');
+    private z_ShadingRateImagePaletteNV_ovr_0 := GetFuncOrNil&(z_ShadingRateImagePaletteNV_adr);
+    private z_ShadingRateImagePaletteNV_ovr_0_anh00001 := GetFuncOrNil&(z_ShadingRateImagePaletteNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateImagePaletteNV(viewport: UInt32; first: UInt32; count: Int32; rates: array of DummyEnum) :=
     if (rates<>nil) and (rates.Length<>0) then
       z_ShadingRateImagePaletteNV_ovr_0(viewport, first, count, rates[0]) else
       z_ShadingRateImagePaletteNV_ovr_0_anh00001(viewport, first, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateImagePaletteNV(viewport: UInt32; first: UInt32; count: Int32; var rates: DummyEnum) :=
     z_ShadingRateImagePaletteNV_ovr_0(viewport, first, count, rates);
-    private static procedure z_ShadingRateImagePaletteNV_ovr_2(viewport: UInt32; first: UInt32; count: Int32; rates: IntPtr);
-    external 'opengl32.dll' name 'glShadingRateImagePaletteNV';
+    private z_ShadingRateImagePaletteNV_ovr_2 := GetFuncOrNil&(z_ShadingRateImagePaletteNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateImagePaletteNV(viewport: UInt32; first: UInt32; count: Int32; rates: IntPtr) :=
     z_ShadingRateImagePaletteNV_ovr_2(viewport, first, count, rates);
     
-    private static procedure z_ShadingRateSampleOrderNV_ovr_0(order: DummyEnum);
-    external 'opengl32.dll' name 'glShadingRateSampleOrderNV';
+    private z_ShadingRateSampleOrderNV_adr := GetFuncAdr('glShadingRateSampleOrderNV');
+    private z_ShadingRateSampleOrderNV_ovr_0 := GetFuncOrNil&(z_ShadingRateSampleOrderNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateSampleOrderNV(order: DummyEnum) :=
     z_ShadingRateSampleOrderNV_ovr_0(order);
     
-    private static procedure z_ShadingRateSampleOrderCustomNV_ovr_0(rate: DummyEnum; samples: UInt32; var locations: Int32);
-    external 'opengl32.dll' name 'glShadingRateSampleOrderCustomNV';
-    private static procedure z_ShadingRateSampleOrderCustomNV_ovr_0_anh0001(rate: DummyEnum; samples: UInt32; locations: IntPtr);
-    external 'opengl32.dll' name 'glShadingRateSampleOrderCustomNV';
+    private z_ShadingRateSampleOrderCustomNV_adr := GetFuncAdr('glShadingRateSampleOrderCustomNV');
+    private z_ShadingRateSampleOrderCustomNV_ovr_0 := GetFuncOrNil&(z_ShadingRateSampleOrderCustomNV_adr);
+    private z_ShadingRateSampleOrderCustomNV_ovr_0_anh0001 := GetFuncOrNil&(z_ShadingRateSampleOrderCustomNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateSampleOrderCustomNV(rate: DummyEnum; samples: UInt32; locations: array of Int32) :=
     if (locations<>nil) and (locations.Length<>0) then
       z_ShadingRateSampleOrderCustomNV_ovr_0(rate, samples, locations[0]) else
       z_ShadingRateSampleOrderCustomNV_ovr_0_anh0001(rate, samples, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateSampleOrderCustomNV(rate: DummyEnum; samples: UInt32; var locations: Int32) :=
     z_ShadingRateSampleOrderCustomNV_ovr_0(rate, samples, locations);
-    private static procedure z_ShadingRateSampleOrderCustomNV_ovr_2(rate: DummyEnum; samples: UInt32; locations: IntPtr);
-    external 'opengl32.dll' name 'glShadingRateSampleOrderCustomNV';
+    private z_ShadingRateSampleOrderCustomNV_ovr_2 := GetFuncOrNil&(z_ShadingRateSampleOrderCustomNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ShadingRateSampleOrderCustomNV(rate: DummyEnum; samples: UInt32; locations: IntPtr) :=
     z_ShadingRateSampleOrderCustomNV_ovr_2(rate, samples, locations);
     
   end;
   
   [PCUNotRestore]
-  glTextureBarrierNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureBarrierNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_texture_barrier';
     
-    private static procedure z_TextureBarrierNV_ovr_0;
-    external 'opengl32.dll' name 'glTextureBarrierNV';
+    private z_TextureBarrierNV_adr := GetFuncAdr('glTextureBarrierNV');
+    private z_TextureBarrierNV_ovr_0 := GetFuncOrNil&(z_TextureBarrierNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureBarrierNV :=
     z_TextureBarrierNV_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glTextureMultisampleNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureMultisampleNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_texture_multisample';
     
-    private static procedure z_TexImage2DMultisampleCoverageNV_ovr_0(target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTexImage2DMultisampleCoverageNV';
+    private z_TexImage2DMultisampleCoverageNV_adr := GetFuncAdr('glTexImage2DMultisampleCoverageNV');
+    private z_TexImage2DMultisampleCoverageNV_ovr_0 := GetFuncOrNil&(z_TexImage2DMultisampleCoverageNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage2DMultisampleCoverageNV(target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean) :=
     z_TexImage2DMultisampleCoverageNV_ovr_0(target, coverageSamples, colorSamples, internalFormat, width, height, fixedSampleLocations);
     
-    private static procedure z_TexImage3DMultisampleCoverageNV_ovr_0(target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTexImage3DMultisampleCoverageNV';
+    private z_TexImage3DMultisampleCoverageNV_adr := GetFuncAdr('glTexImage3DMultisampleCoverageNV');
+    private z_TexImage3DMultisampleCoverageNV_ovr_0 := GetFuncOrNil&(z_TexImage3DMultisampleCoverageNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage3DMultisampleCoverageNV(target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean) :=
     z_TexImage3DMultisampleCoverageNV_ovr_0(target, coverageSamples, colorSamples, internalFormat, width, height, depth, fixedSampleLocations);
     
-    private static procedure z_TextureImage2DMultisampleNV_ovr_0(texture: UInt32; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTextureImage2DMultisampleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DMultisampleNV(texture: UInt32; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean) :=
+    private z_TextureImage2DMultisampleNV_adr := GetFuncAdr('glTextureImage2DMultisampleNV');
+    private z_TextureImage2DMultisampleNV_ovr_0 := GetFuncOrNil&(z_TextureImage2DMultisampleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DMultisampleNV(texture: gl_texture; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean) :=
     z_TextureImage2DMultisampleNV_ovr_0(texture, target, samples, internalFormat, width, height, fixedSampleLocations);
     
-    private static procedure z_TextureImage3DMultisampleNV_ovr_0(texture: UInt32; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTextureImage3DMultisampleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DMultisampleNV(texture: UInt32; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean) :=
+    private z_TextureImage3DMultisampleNV_adr := GetFuncAdr('glTextureImage3DMultisampleNV');
+    private z_TextureImage3DMultisampleNV_ovr_0 := GetFuncOrNil&(z_TextureImage3DMultisampleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DMultisampleNV(texture: gl_texture; target: TextureTarget; samples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean) :=
     z_TextureImage3DMultisampleNV_ovr_0(texture, target, samples, internalFormat, width, height, depth, fixedSampleLocations);
     
-    private static procedure z_TextureImage2DMultisampleCoverageNV_ovr_0(texture: UInt32; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTextureImage2DMultisampleCoverageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DMultisampleCoverageNV(texture: UInt32; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean) :=
+    private z_TextureImage2DMultisampleCoverageNV_adr := GetFuncAdr('glTextureImage2DMultisampleCoverageNV');
+    private z_TextureImage2DMultisampleCoverageNV_ovr_0 := GetFuncOrNil&(z_TextureImage2DMultisampleCoverageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage2DMultisampleCoverageNV(texture: gl_texture; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; fixedSampleLocations: boolean) :=
     z_TextureImage2DMultisampleCoverageNV_ovr_0(texture, target, coverageSamples, colorSamples, internalFormat, width, height, fixedSampleLocations);
     
-    private static procedure z_TextureImage3DMultisampleCoverageNV_ovr_0(texture: UInt32; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean);
-    external 'opengl32.dll' name 'glTextureImage3DMultisampleCoverageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DMultisampleCoverageNV(texture: UInt32; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean) :=
+    private z_TextureImage3DMultisampleCoverageNV_adr := GetFuncAdr('glTextureImage3DMultisampleCoverageNV');
+    private z_TextureImage3DMultisampleCoverageNV_ovr_0 := GetFuncOrNil&(z_TextureImage3DMultisampleCoverageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureImage3DMultisampleCoverageNV(texture: gl_texture; target: TextureTarget; coverageSamples: Int32; colorSamples: Int32; internalFormat: Int32; width: Int32; height: Int32; depth: Int32; fixedSampleLocations: boolean) :=
     z_TextureImage3DMultisampleCoverageNV_ovr_0(texture, target, coverageSamples, colorSamples, internalFormat, width, height, depth, fixedSampleLocations);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedbackNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedbackNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_transform_feedback';
     
-    private static procedure z_BeginTransformFeedbackNV_ovr_0(primitiveMode: PrimitiveType);
-    external 'opengl32.dll' name 'glBeginTransformFeedbackNV';
+    private z_BeginTransformFeedbackNV_adr := GetFuncAdr('glBeginTransformFeedbackNV');
+    private z_BeginTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_BeginTransformFeedbackNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginTransformFeedbackNV(primitiveMode: PrimitiveType) :=
     z_BeginTransformFeedbackNV_ovr_0(primitiveMode);
     
-    private static procedure z_EndTransformFeedbackNV_ovr_0;
-    external 'opengl32.dll' name 'glEndTransformFeedbackNV';
+    private z_EndTransformFeedbackNV_adr := GetFuncAdr('glEndTransformFeedbackNV');
+    private z_EndTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_EndTransformFeedbackNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndTransformFeedbackNV :=
     z_EndTransformFeedbackNV_ovr_0;
     
-    private static procedure z_TransformFeedbackAttribsNV_ovr_0(count: Int32; var attribs: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackAttribsNV';
-    private static procedure z_TransformFeedbackAttribsNV_ovr_0_anh0010(count: Int32; attribs: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackAttribsNV';
+    private z_TransformFeedbackAttribsNV_adr := GetFuncAdr('glTransformFeedbackAttribsNV');
+    private z_TransformFeedbackAttribsNV_ovr_0 := GetFuncOrNil&(z_TransformFeedbackAttribsNV_adr);
+    private z_TransformFeedbackAttribsNV_ovr_0_anh0010 := GetFuncOrNil&(z_TransformFeedbackAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackAttribsNV(count: Int32; attribs: array of Int32; bufferMode: DummyEnum) :=
     if (attribs<>nil) and (attribs.Length<>0) then
       z_TransformFeedbackAttribsNV_ovr_0(count, attribs[0], bufferMode) else
       z_TransformFeedbackAttribsNV_ovr_0_anh0010(count, IntPtr.Zero, bufferMode);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackAttribsNV(count: Int32; var attribs: Int32; bufferMode: DummyEnum) :=
     z_TransformFeedbackAttribsNV_ovr_0(count, attribs, bufferMode);
-    private static procedure z_TransformFeedbackAttribsNV_ovr_2(count: Int32; attribs: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackAttribsNV';
+    private z_TransformFeedbackAttribsNV_ovr_2 := GetFuncOrNil&(z_TransformFeedbackAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackAttribsNV(count: Int32; attribs: IntPtr; bufferMode: DummyEnum) :=
     z_TransformFeedbackAttribsNV_ovr_2(count, attribs, bufferMode);
     
-    private static procedure z_BindBufferRangeNV_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr; size: IntPtr);
-    external 'opengl32.dll' name 'glBindBufferRangeNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRangeNV(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr; size: IntPtr) :=
+    private z_BindBufferRangeNV_adr := GetFuncAdr('glBindBufferRangeNV');
+    private z_BindBufferRangeNV_ovr_0 := GetFuncOrNil&(z_BindBufferRangeNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferRangeNV(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr; size: IntPtr) :=
     z_BindBufferRangeNV_ovr_0(target, index, buffer, offset, size);
     
-    private static procedure z_BindBufferOffsetNV_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr);
-    external 'opengl32.dll' name 'glBindBufferOffsetNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferOffsetNV(target: BufferTargetARB; index: UInt32; buffer: UInt32; offset: IntPtr) :=
+    private z_BindBufferOffsetNV_adr := GetFuncAdr('glBindBufferOffsetNV');
+    private z_BindBufferOffsetNV_ovr_0 := GetFuncOrNil&(z_BindBufferOffsetNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferOffsetNV(target: BufferTargetARB; index: UInt32; buffer: gl_buffer; offset: IntPtr) :=
     z_BindBufferOffsetNV_ovr_0(target, index, buffer, offset);
     
-    private static procedure z_BindBufferBaseNV_ovr_0(target: BufferTargetARB; index: UInt32; buffer: UInt32);
-    external 'opengl32.dll' name 'glBindBufferBaseNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBaseNV(target: BufferTargetARB; index: UInt32; buffer: UInt32) :=
+    private z_BindBufferBaseNV_adr := GetFuncAdr('glBindBufferBaseNV');
+    private z_BindBufferBaseNV_ovr_0 := GetFuncOrNil&(z_BindBufferBaseNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindBufferBaseNV(target: BufferTargetARB; index: UInt32; buffer: gl_buffer) :=
     z_BindBufferBaseNV_ovr_0(target, index, buffer);
     
-    private static procedure z_TransformFeedbackVaryingsNV_ovr_0(&program: UInt32; count: Int32; var locations: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsNV';
-    private static procedure z_TransformFeedbackVaryingsNV_ovr_0_anh00010(&program: UInt32; count: Int32; locations: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: UInt32; count: Int32; locations: array of Int32; bufferMode: DummyEnum) :=
+    private z_TransformFeedbackVaryingsNV_adr := GetFuncAdr('glTransformFeedbackVaryingsNV');
+    private z_TransformFeedbackVaryingsNV_ovr_0 := GetFuncOrNil&(z_TransformFeedbackVaryingsNV_adr);
+    private z_TransformFeedbackVaryingsNV_ovr_0_anh00010 := GetFuncOrNil&(z_TransformFeedbackVaryingsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: gl_program; count: Int32; locations: array of Int32; bufferMode: DummyEnum) :=
     if (locations<>nil) and (locations.Length<>0) then
       z_TransformFeedbackVaryingsNV_ovr_0(&program, count, locations[0], bufferMode) else
       z_TransformFeedbackVaryingsNV_ovr_0_anh00010(&program, count, IntPtr.Zero, bufferMode);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: UInt32; count: Int32; var locations: Int32; bufferMode: DummyEnum) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: gl_program; count: Int32; var locations: Int32; bufferMode: DummyEnum) :=
     z_TransformFeedbackVaryingsNV_ovr_0(&program, count, locations, bufferMode);
-    private static procedure z_TransformFeedbackVaryingsNV_ovr_2(&program: UInt32; count: Int32; locations: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackVaryingsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: UInt32; count: Int32; locations: IntPtr; bufferMode: DummyEnum) :=
+    private z_TransformFeedbackVaryingsNV_ovr_2 := GetFuncOrNil&(z_TransformFeedbackVaryingsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackVaryingsNV(&program: gl_program; count: Int32; locations: IntPtr; bufferMode: DummyEnum) :=
     z_TransformFeedbackVaryingsNV_ovr_2(&program, count, locations, bufferMode);
     
-    private static procedure z_ActiveVaryingNV_ovr_0(&program: UInt32; name: IntPtr);
-    external 'opengl32.dll' name 'glActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveVaryingNV(&program: UInt32; name: string);
+    private z_ActiveVaryingNV_adr := GetFuncAdr('glActiveVaryingNV');
+    private z_ActiveVaryingNV_ovr_0 := GetFuncOrNil&(z_ActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveVaryingNV(&program: gl_program; name: string);
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -66357,12 +63151,12 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveVaryingNV(&program: UInt32; name: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ActiveVaryingNV(&program: gl_program; name: IntPtr) :=
     z_ActiveVaryingNV_ovr_0(&program, name);
     
-    private static function z_GetVaryingLocationNV_ovr_0(&program: UInt32; name: IntPtr): Int32;
-    external 'opengl32.dll' name 'glGetVaryingLocationNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVaryingLocationNV(&program: UInt32; name: string): Int32;
+    private z_GetVaryingLocationNV_adr := GetFuncAdr('glGetVaryingLocationNV');
+    private z_GetVaryingLocationNV_ovr_0 := GetFuncOrNil&(z_GetVaryingLocationNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVaryingLocationNV(&program: gl_program; name: string): Int32;
     begin
       var par_2_str_ptr: IntPtr;
       try
@@ -66372,233 +63166,48 @@ type
         Marshal.FreeHGlobal(par_2_str_ptr);
       end;
     end;
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVaryingLocationNV(&program: UInt32; name: IntPtr): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVaryingLocationNV(&program: gl_program; name: IntPtr): Int32 :=
     z_GetVaryingLocationNV_ovr_0(&program, name);
     
-    private static procedure z_GetActiveVaryingNV_ovr_0(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00000110(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_0_anh00001110(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length[0], size[0], &type[0], name) else
-          z_GetActiveVaryingNV_ovr_0_anh00000010(&program, index, bufSize, length[0], size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveVaryingNV_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type[0], name) else
-          z_GetActiveVaryingNV_ovr_0_anh00000110(&program, index, bufSize, length[0], IntPtr.Zero, IntPtr.Zero, name) else
-      if (size<>nil) and (size.Length<>0) then
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveVaryingNV_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type[0], name) else
-          z_GetActiveVaryingNV_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size[0], IntPtr.Zero, name) else
-        if (&type<>nil) and (&type.Length<>0) then
-          z_GetActiveVaryingNV_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type[0], name) else
-          z_GetActiveVaryingNV_ovr_0_anh00001110(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveVaryingNV_ovr_1_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_1_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_1_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; var &type: DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveVaryingNV_ovr_0_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveVaryingNV_ovr_0_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_2(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_2_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_2_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_2_anh00001100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveVaryingNV_ovr_2(&program, index, bufSize, length[0], size[0], &type, name) else
-        z_GetActiveVaryingNV_ovr_2_anh00000100(&program, index, bufSize, length[0], IntPtr.Zero, &type, name) else
-      if (size<>nil) and (size.Length<>0) then
-        z_GetActiveVaryingNV_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size[0], &type, name) else
-        z_GetActiveVaryingNV_ovr_2_anh00001100(&program, index, bufSize, IntPtr.Zero, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_3_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_3_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_0_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_0_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveVaryingNV_ovr_4_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; var &type: DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveVaryingNV_ovr_0_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_5_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveVaryingNV_ovr_2(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveVaryingNV_ovr_2_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_6(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_6_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_6_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_6_anh00001010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: array of DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_6(&program, index, bufSize, length[0], size, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_6_anh00000010(&program, index, bufSize, length[0], size, IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_6_anh00001010(&program, index, bufSize, IntPtr.Zero, size, IntPtr.Zero, name);
-    private static procedure z_GetActiveVaryingNV_ovr_7_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveVaryingNV_ovr_6(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveVaryingNV_ovr_6_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_8(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_8_anh00001000(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: array of Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    if (length<>nil) and (length.Length<>0) then
-      z_GetActiveVaryingNV_ovr_8(&program, index, bufSize, length[0], size, &type, name) else
-      z_GetActiveVaryingNV_ovr_8_anh00001000(&program, index, bufSize, IntPtr.Zero, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveVaryingNV_ovr_0_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_0_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; var &type: DummyEnum; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveVaryingNV_ovr_0_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveVaryingNV_ovr_2(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveVaryingNV_ovr_2_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveVaryingNV_ovr_0_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: DummyEnum; name: IntPtr) :=
+    private z_GetActiveVaryingNV_adr := GetFuncAdr('glGetActiveVaryingNV');
+    private z_GetActiveVaryingNV_ovr_0 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; var &type: DummyEnum; name: IntPtr) :=
     z_GetActiveVaryingNV_ovr_0(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    private z_GetActiveVaryingNV_ovr_1 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveVaryingNV_ovr_1(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveVaryingNV_ovr_2 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr) :=
     z_GetActiveVaryingNV_ovr_2(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: array of DummyEnum; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveVaryingNV_ovr_6(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveVaryingNV_ovr_6_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; var &type: DummyEnum; name: IntPtr) :=
+    private z_GetActiveVaryingNV_ovr_3 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveVaryingNV_ovr_3(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveVaryingNV_ovr_4 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr) :=
+    z_GetActiveVaryingNV_ovr_4(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveVaryingNV_ovr_5 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveVaryingNV_ovr_5(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveVaryingNV_ovr_6 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr) :=
     z_GetActiveVaryingNV_ovr_6(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; var length: Int32; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveVaryingNV_ovr_8(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_18(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_18_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_18_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_18_anh00000110(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_18(&program, index, bufSize, length, size[0], &type[0], name) else
-        z_GetActiveVaryingNV_ovr_18_anh00000010(&program, index, bufSize, length, size[0], IntPtr.Zero, name) else
-      if (&type<>nil) and (&type.Length<>0) then
-        z_GetActiveVaryingNV_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type[0], name) else
-        z_GetActiveVaryingNV_ovr_18_anh00000110(&program, index, bufSize, length, IntPtr.Zero, IntPtr.Zero, name);
-    private static procedure z_GetActiveVaryingNV_ovr_19_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; var &type: DummyEnum; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveVaryingNV_ovr_18(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveVaryingNV_ovr_18_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_20(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_20_anh00000100(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: array of Int32; &type: IntPtr; name: IntPtr) :=
-    if (size<>nil) and (size.Length<>0) then
-      z_GetActiveVaryingNV_ovr_20(&program, index, bufSize, length, size[0], &type, name) else
-      z_GetActiveVaryingNV_ovr_20_anh00000100(&program, index, bufSize, length, IntPtr.Zero, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: array of DummyEnum; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveVaryingNV_ovr_18(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveVaryingNV_ovr_18_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; var &type: DummyEnum; name: IntPtr) :=
-    z_GetActiveVaryingNV_ovr_18(&program, index, bufSize, length, size, &type, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; var size: Int32; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveVaryingNV_ovr_20(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_24(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    private static procedure z_GetActiveVaryingNV_ovr_24_anh00000010(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: array of DummyEnum; name: IntPtr) :=
-    if (&type<>nil) and (&type.Length<>0) then
-      z_GetActiveVaryingNV_ovr_24(&program, index, bufSize, length, size, &type[0], name) else
-      z_GetActiveVaryingNV_ovr_24_anh00000010(&program, index, bufSize, length, size, IntPtr.Zero, name);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; var &type: DummyEnum; name: IntPtr) :=
-    z_GetActiveVaryingNV_ovr_24(&program, index, bufSize, length, size, &type, name);
-    private static procedure z_GetActiveVaryingNV_ovr_26(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr);
-    external 'opengl32.dll' name 'glGetActiveVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: UInt32; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
-    z_GetActiveVaryingNV_ovr_26(&program, index, bufSize, length, size, &type, name);
+    private z_GetActiveVaryingNV_ovr_7 := GetFuncOrNil&(z_GetActiveVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetActiveVaryingNV(&program: gl_program; index: UInt32; bufSize: Int32; length: IntPtr; size: IntPtr; &type: IntPtr; name: IntPtr) :=
+    z_GetActiveVaryingNV_ovr_7(&program, index, bufSize, length, size, &type, name);
     
-    private static procedure z_GetTransformFeedbackVaryingNV_ovr_0(&program: UInt32; index: UInt32; var location: Int32);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingNV';
-    private static procedure z_GetTransformFeedbackVaryingNV_ovr_0_anh0001(&program: UInt32; index: UInt32; location: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingNV(&program: UInt32; index: UInt32; location: array of Int32) :=
-    if (location<>nil) and (location.Length<>0) then
-      z_GetTransformFeedbackVaryingNV_ovr_0(&program, index, location[0]) else
-      z_GetTransformFeedbackVaryingNV_ovr_0_anh0001(&program, index, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingNV(&program: UInt32; index: UInt32; var location: Int32) :=
+    private z_GetTransformFeedbackVaryingNV_adr := GetFuncAdr('glGetTransformFeedbackVaryingNV');
+    private z_GetTransformFeedbackVaryingNV_ovr_0 := GetFuncOrNil&(z_GetTransformFeedbackVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingNV(&program: gl_program; index: UInt32; var location: Int32) :=
     z_GetTransformFeedbackVaryingNV_ovr_0(&program, index, location);
-    private static procedure z_GetTransformFeedbackVaryingNV_ovr_2(&program: UInt32; index: UInt32; location: IntPtr);
-    external 'opengl32.dll' name 'glGetTransformFeedbackVaryingNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingNV(&program: UInt32; index: UInt32; location: IntPtr) :=
-    z_GetTransformFeedbackVaryingNV_ovr_2(&program, index, location);
+    private z_GetTransformFeedbackVaryingNV_ovr_1 := GetFuncOrNil&(z_GetTransformFeedbackVaryingNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTransformFeedbackVaryingNV(&program: gl_program; index: UInt32; location: IntPtr) :=
+    z_GetTransformFeedbackVaryingNV_ovr_1(&program, index, location);
     
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_0(count: Int32; var attribs: Int32; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_0_anh001000(count: Int32; attribs: IntPtr; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_0_anh000010(count: Int32; var attribs: Int32; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_0_anh001010(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
+    private z_TransformFeedbackStreamAttribsNV_adr := GetFuncAdr('glTransformFeedbackStreamAttribsNV');
+    private z_TransformFeedbackStreamAttribsNV_ovr_0 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
+    private z_TransformFeedbackStreamAttribsNV_ovr_0_anh001000 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
+    private z_TransformFeedbackStreamAttribsNV_ovr_0_anh000010 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
+    private z_TransformFeedbackStreamAttribsNV_ovr_0_anh001010 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: array of Int32; nbuffers: Int32; bufstreams: array of Int32; bufferMode: DummyEnum) :=
     if (attribs<>nil) and (attribs.Length<>0) then
       if (bufstreams<>nil) and (bufstreams.Length<>0) then
@@ -66607,16 +63216,13 @@ type
       if (bufstreams<>nil) and (bufstreams.Length<>0) then
         z_TransformFeedbackStreamAttribsNV_ovr_0_anh001000(count, IntPtr.Zero, nbuffers, bufstreams[0], bufferMode) else
         z_TransformFeedbackStreamAttribsNV_ovr_0_anh001010(count, IntPtr.Zero, nbuffers, IntPtr.Zero, bufferMode);
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_1_anh001000(count: Int32; attribs: IntPtr; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
+    private z_TransformFeedbackStreamAttribsNV_ovr_1_anh001000 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: array of Int32; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum) :=
     if (attribs<>nil) and (attribs.Length<>0) then
       z_TransformFeedbackStreamAttribsNV_ovr_0(count, attribs[0], nbuffers, bufstreams, bufferMode) else
       z_TransformFeedbackStreamAttribsNV_ovr_0_anh001000(count, IntPtr.Zero, nbuffers, bufstreams, bufferMode);
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_2(count: Int32; var attribs: Int32; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_2_anh001000(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
+    private z_TransformFeedbackStreamAttribsNV_ovr_2 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
+    private z_TransformFeedbackStreamAttribsNV_ovr_2_anh001000 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: array of Int32; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum) :=
     if (attribs<>nil) and (attribs.Length<>0) then
       z_TransformFeedbackStreamAttribsNV_ovr_2(count, attribs[0], nbuffers, bufstreams, bufferMode) else
@@ -66629,157 +63235,147 @@ type
     z_TransformFeedbackStreamAttribsNV_ovr_0(count, attribs, nbuffers, bufstreams, bufferMode);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; var attribs: Int32; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum) :=
     z_TransformFeedbackStreamAttribsNV_ovr_2(count, attribs, nbuffers, bufstreams, bufferMode);
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_6(count: Int32; attribs: IntPtr; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_6_anh000010(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
+    private z_TransformFeedbackStreamAttribsNV_ovr_6 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
+    private z_TransformFeedbackStreamAttribsNV_ovr_6_anh000010 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: array of Int32; bufferMode: DummyEnum) :=
     if (bufstreams<>nil) and (bufstreams.Length<>0) then
       z_TransformFeedbackStreamAttribsNV_ovr_6(count, attribs, nbuffers, bufstreams[0], bufferMode) else
       z_TransformFeedbackStreamAttribsNV_ovr_6_anh000010(count, attribs, nbuffers, IntPtr.Zero, bufferMode);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: IntPtr; nbuffers: Int32; var bufstreams: Int32; bufferMode: DummyEnum) :=
     z_TransformFeedbackStreamAttribsNV_ovr_6(count, attribs, nbuffers, bufstreams, bufferMode);
-    private static procedure z_TransformFeedbackStreamAttribsNV_ovr_8(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum);
-    external 'opengl32.dll' name 'glTransformFeedbackStreamAttribsNV';
+    private z_TransformFeedbackStreamAttribsNV_ovr_8 := GetFuncOrNil&(z_TransformFeedbackStreamAttribsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TransformFeedbackStreamAttribsNV(count: Int32; attribs: IntPtr; nbuffers: Int32; bufstreams: IntPtr; bufferMode: DummyEnum) :=
     z_TransformFeedbackStreamAttribsNV_ovr_8(count, attribs, nbuffers, bufstreams, bufferMode);
     
   end;
   
   [PCUNotRestore]
-  glTransformFeedback2NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTransformFeedback2NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_transform_feedback2';
     
-    private static procedure z_BindTransformFeedbackNV_ovr_0(target: BufferTargetARB; id: UInt32);
-    external 'opengl32.dll' name 'glBindTransformFeedbackNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedbackNV(target: BufferTargetARB; id: UInt32) :=
+    private z_BindTransformFeedbackNV_adr := GetFuncAdr('glBindTransformFeedbackNV');
+    private z_BindTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_BindTransformFeedbackNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTransformFeedbackNV(target: BufferTargetARB; id: gl_transform_feedback) :=
     z_BindTransformFeedbackNV_ovr_0(target, id);
     
-    private static procedure z_DeleteTransformFeedbacksNV_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacksNV';
-    private static procedure z_DeleteTransformFeedbacksNV_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacksNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacksNV(n: Int32; ids: array of UInt32) :=
+    private z_DeleteTransformFeedbacksNV_adr := GetFuncAdr('glDeleteTransformFeedbacksNV');
+    private z_DeleteTransformFeedbacksNV_ovr_0 := GetFuncOrNil&(z_DeleteTransformFeedbacksNV_adr);
+    private z_DeleteTransformFeedbacksNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteTransformFeedbacksNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacksNV(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_DeleteTransformFeedbacksNV_ovr_0(n, ids[0]) else
       z_DeleteTransformFeedbacksNV_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacksNV(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacksNV(n: Int32; var ids: gl_transform_feedback) :=
     z_DeleteTransformFeedbacksNV_ovr_0(n, ids);
-    private static procedure z_DeleteTransformFeedbacksNV_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glDeleteTransformFeedbacksNV';
+    private z_DeleteTransformFeedbacksNV_ovr_2 := GetFuncOrNil&(z_DeleteTransformFeedbacksNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteTransformFeedbacksNV(n: Int32; ids: IntPtr) :=
     z_DeleteTransformFeedbacksNV_ovr_2(n, ids);
     
-    private static procedure z_GenTransformFeedbacksNV_ovr_0(n: Int32; var ids: UInt32);
-    external 'opengl32.dll' name 'glGenTransformFeedbacksNV';
-    private static procedure z_GenTransformFeedbacksNV_ovr_0_anh001(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenTransformFeedbacksNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacksNV(n: Int32; ids: array of UInt32) :=
+    private z_GenTransformFeedbacksNV_adr := GetFuncAdr('glGenTransformFeedbacksNV');
+    private z_GenTransformFeedbacksNV_ovr_0 := GetFuncOrNil&(z_GenTransformFeedbacksNV_adr);
+    private z_GenTransformFeedbacksNV_ovr_0_anh001 := GetFuncOrNil&(z_GenTransformFeedbacksNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacksNV(n: Int32; ids: array of gl_transform_feedback) :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GenTransformFeedbacksNV_ovr_0(n, ids[0]) else
       z_GenTransformFeedbacksNV_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacksNV(n: Int32; var ids: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacksNV(n: Int32; var ids: gl_transform_feedback) :=
     z_GenTransformFeedbacksNV_ovr_0(n, ids);
-    private static procedure z_GenTransformFeedbacksNV_ovr_2(n: Int32; ids: IntPtr);
-    external 'opengl32.dll' name 'glGenTransformFeedbacksNV';
+    private z_GenTransformFeedbacksNV_ovr_2 := GetFuncOrNil&(z_GenTransformFeedbacksNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenTransformFeedbacksNV(n: Int32; ids: IntPtr) :=
     z_GenTransformFeedbacksNV_ovr_2(n, ids);
     
-    private static function z_IsTransformFeedbackNV_ovr_0(id: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsTransformFeedbackNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedbackNV(id: UInt32): boolean :=
+    private z_IsTransformFeedbackNV_adr := GetFuncAdr('glIsTransformFeedbackNV');
+    private z_IsTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_IsTransformFeedbackNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsTransformFeedbackNV(id: gl_transform_feedback): boolean :=
     z_IsTransformFeedbackNV_ovr_0(id);
     
-    private static procedure z_PauseTransformFeedbackNV_ovr_0;
-    external 'opengl32.dll' name 'glPauseTransformFeedbackNV';
+    private z_PauseTransformFeedbackNV_adr := GetFuncAdr('glPauseTransformFeedbackNV');
+    private z_PauseTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_PauseTransformFeedbackNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PauseTransformFeedbackNV :=
     z_PauseTransformFeedbackNV_ovr_0;
     
-    private static procedure z_ResumeTransformFeedbackNV_ovr_0;
-    external 'opengl32.dll' name 'glResumeTransformFeedbackNV';
+    private z_ResumeTransformFeedbackNV_adr := GetFuncAdr('glResumeTransformFeedbackNV');
+    private z_ResumeTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_ResumeTransformFeedbackNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ResumeTransformFeedbackNV :=
     z_ResumeTransformFeedbackNV_ovr_0;
     
-    private static procedure z_DrawTransformFeedbackNV_ovr_0(mode: PrimitiveType; id: UInt32);
-    external 'opengl32.dll' name 'glDrawTransformFeedbackNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackNV(mode: PrimitiveType; id: UInt32) :=
+    private z_DrawTransformFeedbackNV_adr := GetFuncAdr('glDrawTransformFeedbackNV');
+    private z_DrawTransformFeedbackNV_ovr_0 := GetFuncOrNil&(z_DrawTransformFeedbackNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawTransformFeedbackNV(mode: PrimitiveType; id: gl_transform_feedback) :=
     z_DrawTransformFeedbackNV_ovr_0(mode, id);
     
   end;
   
   [PCUNotRestore]
-  glVdpauInteropNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVdpauInteropNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vdpau_interop';
     
-    private static procedure z_VDPAUInitNV_ovr_0(vdpDevice: IntPtr; getProcAddress: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUInitNV';
+    private z_VDPAUInitNV_adr := GetFuncAdr('glVDPAUInitNV');
+    private z_VDPAUInitNV_ovr_0 := GetFuncOrNil&(z_VDPAUInitNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUInitNV(vdpDevice: IntPtr; getProcAddress: IntPtr) :=
     z_VDPAUInitNV_ovr_0(vdpDevice, getProcAddress);
     
-    private static procedure z_VDPAUFiniNV_ovr_0;
-    external 'opengl32.dll' name 'glVDPAUFiniNV';
+    private z_VDPAUFiniNV_adr := GetFuncAdr('glVDPAUFiniNV');
+    private z_VDPAUFiniNV_ovr_0 := GetFuncOrNil&(z_VDPAUFiniNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUFiniNV :=
     z_VDPAUFiniNV_ovr_0;
     
-    private static function z_VDPAURegisterVideoSurfaceNV_ovr_0(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceNV';
-    private static function z_VDPAURegisterVideoSurfaceNV_ovr_0_anh00001(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterVideoSurfaceNV_adr := GetFuncAdr('glVDPAURegisterVideoSurfaceNV');
+    private z_VDPAURegisterVideoSurfaceNV_ovr_0 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceNV_adr);
+    private z_VDPAURegisterVideoSurfaceNV_ovr_0_anh00001 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32): gl_vdpau_surface_NV :=
     if (textureNames<>nil) and (textureNames.Length<>0) then
       z_VDPAURegisterVideoSurfaceNV_ovr_0(vdpSurface, target, numTextureNames, textureNames[0]) else
       z_VDPAURegisterVideoSurfaceNV_ovr_0_anh00001(vdpSurface, target, numTextureNames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): GLvdpauSurfaceNV :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): gl_vdpau_surface_NV :=
     z_VDPAURegisterVideoSurfaceNV_ovr_0(vdpSurface, target, numTextureNames, textureNames);
-    private static function z_VDPAURegisterVideoSurfaceNV_ovr_2(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterVideoSurfaceNV_ovr_2 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): gl_vdpau_surface_NV :=
     z_VDPAURegisterVideoSurfaceNV_ovr_2(vdpSurface, target, numTextureNames, textureNames);
     
-    private static function z_VDPAURegisterOutputSurfaceNV_ovr_0(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterOutputSurfaceNV';
-    private static function z_VDPAURegisterOutputSurfaceNV_ovr_0_anh00001(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterOutputSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterOutputSurfaceNV_adr := GetFuncAdr('glVDPAURegisterOutputSurfaceNV');
+    private z_VDPAURegisterOutputSurfaceNV_ovr_0 := GetFuncOrNil&(z_VDPAURegisterOutputSurfaceNV_adr);
+    private z_VDPAURegisterOutputSurfaceNV_ovr_0_anh00001 := GetFuncOrNil&(z_VDPAURegisterOutputSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32): gl_vdpau_surface_NV :=
     if (textureNames<>nil) and (textureNames.Length<>0) then
       z_VDPAURegisterOutputSurfaceNV_ovr_0(vdpSurface, target, numTextureNames, textureNames[0]) else
       z_VDPAURegisterOutputSurfaceNV_ovr_0_anh00001(vdpSurface, target, numTextureNames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): GLvdpauSurfaceNV :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32): gl_vdpau_surface_NV :=
     z_VDPAURegisterOutputSurfaceNV_ovr_0(vdpSurface, target, numTextureNames, textureNames);
-    private static function z_VDPAURegisterOutputSurfaceNV_ovr_2(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterOutputSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterOutputSurfaceNV_ovr_2 := GetFuncOrNil&(z_VDPAURegisterOutputSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterOutputSurfaceNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr): gl_vdpau_surface_NV :=
     z_VDPAURegisterOutputSurfaceNV_ovr_2(vdpSurface, target, numTextureNames, textureNames);
     
-    private static function z_VDPAUIsSurfaceNV_ovr_0(surface: GLvdpauSurfaceNV): boolean;
-    external 'opengl32.dll' name 'glVDPAUIsSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAUIsSurfaceNV(surface: GLvdpauSurfaceNV): boolean :=
+    private z_VDPAUIsSurfaceNV_adr := GetFuncAdr('glVDPAUIsSurfaceNV');
+    private z_VDPAUIsSurfaceNV_ovr_0 := GetFuncOrNil&(z_VDPAUIsSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAUIsSurfaceNV(surface: gl_vdpau_surface_NV): boolean :=
     z_VDPAUIsSurfaceNV_ovr_0(surface);
     
-    private static procedure z_VDPAUUnregisterSurfaceNV_ovr_0(surface: GLvdpauSurfaceNV);
-    external 'opengl32.dll' name 'glVDPAUUnregisterSurfaceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnregisterSurfaceNV(surface: GLvdpauSurfaceNV) :=
+    private z_VDPAUUnregisterSurfaceNV_adr := GetFuncAdr('glVDPAUUnregisterSurfaceNV');
+    private z_VDPAUUnregisterSurfaceNV_ovr_0 := GetFuncOrNil&(z_VDPAUUnregisterSurfaceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnregisterSurfaceNV(surface: gl_vdpau_surface_NV) :=
     z_VDPAUUnregisterSurfaceNV_ovr_0(surface);
     
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_0(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; var values: Int32);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_0_anh000010(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_0_anh000001(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_0_anh000011(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: array of Int32; values: array of Int32) :=
+    private z_VDPAUGetSurfaceivNV_adr := GetFuncAdr('glVDPAUGetSurfaceivNV');
+    private z_VDPAUGetSurfaceivNV_ovr_0 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    private z_VDPAUGetSurfaceivNV_ovr_0_anh000010 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    private z_VDPAUGetSurfaceivNV_ovr_0_anh000001 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    private z_VDPAUGetSurfaceivNV_ovr_0_anh000011 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: array of Int32; values: array of Int32) :=
     if (length<>nil) and (length.Length<>0) then
       if (values<>nil) and (values.Length<>0) then
         z_VDPAUGetSurfaceivNV_ovr_0(surface, pname, count, length[0], values[0]) else
@@ -66787,432 +63383,395 @@ type
       if (values<>nil) and (values.Length<>0) then
         z_VDPAUGetSurfaceivNV_ovr_0_anh000010(surface, pname, count, IntPtr.Zero, values[0]) else
         z_VDPAUGetSurfaceivNV_ovr_0_anh000011(surface, pname, count, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_1_anh000010(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: array of Int32; var values: Int32) :=
+    private z_VDPAUGetSurfaceivNV_ovr_1_anh000010 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: array of Int32; var values: Int32) :=
     if (length<>nil) and (length.Length<>0) then
       z_VDPAUGetSurfaceivNV_ovr_0(surface, pname, count, length[0], values) else
       z_VDPAUGetSurfaceivNV_ovr_0_anh000010(surface, pname, count, IntPtr.Zero, values);
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_2(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_2_anh000010(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: array of Int32; values: IntPtr) :=
+    private z_VDPAUGetSurfaceivNV_ovr_2 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    private z_VDPAUGetSurfaceivNV_ovr_2_anh000010 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: array of Int32; values: IntPtr) :=
     if (length<>nil) and (length.Length<>0) then
       z_VDPAUGetSurfaceivNV_ovr_2(surface, pname, count, length[0], values) else
       z_VDPAUGetSurfaceivNV_ovr_2_anh000010(surface, pname, count, IntPtr.Zero, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; values: array of Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; var length: Int32; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_VDPAUGetSurfaceivNV_ovr_0(surface, pname, count, length, values[0]) else
       z_VDPAUGetSurfaceivNV_ovr_0_anh000001(surface, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; var length: Int32; var values: Int32) :=
     z_VDPAUGetSurfaceivNV_ovr_0(surface, pname, count, length, values);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; var length: Int32; values: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; var length: Int32; values: IntPtr) :=
     z_VDPAUGetSurfaceivNV_ovr_2(surface, pname, count, length, values);
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_6(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; var values: Int32);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_6_anh000001(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: array of Int32) :=
+    private z_VDPAUGetSurfaceivNV_ovr_6 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    private z_VDPAUGetSurfaceivNV_ovr_6_anh000001 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: IntPtr; values: array of Int32) :=
     if (values<>nil) and (values.Length<>0) then
       z_VDPAUGetSurfaceivNV_ovr_6(surface, pname, count, length, values[0]) else
       z_VDPAUGetSurfaceivNV_ovr_6_anh000001(surface, pname, count, length, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; var values: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: IntPtr; var values: Int32) :=
     z_VDPAUGetSurfaceivNV_ovr_6(surface, pname, count, length, values);
-    private static procedure z_VDPAUGetSurfaceivNV_ovr_8(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUGetSurfaceivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: GLvdpauSurfaceNV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr) :=
+    private z_VDPAUGetSurfaceivNV_ovr_8 := GetFuncOrNil&(z_VDPAUGetSurfaceivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUGetSurfaceivNV(surface: gl_vdpau_surface_NV; pname: DummyEnum; count: Int32; length: IntPtr; values: IntPtr) :=
     z_VDPAUGetSurfaceivNV_ovr_8(surface, pname, count, length, values);
     
-    private static procedure z_VDPAUSurfaceAccessNV_ovr_0(surface: GLvdpauSurfaceNV; access: DummyEnum);
-    external 'opengl32.dll' name 'glVDPAUSurfaceAccessNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUSurfaceAccessNV(surface: GLvdpauSurfaceNV; access: DummyEnum) :=
+    private z_VDPAUSurfaceAccessNV_adr := GetFuncAdr('glVDPAUSurfaceAccessNV');
+    private z_VDPAUSurfaceAccessNV_ovr_0 := GetFuncOrNil&(z_VDPAUSurfaceAccessNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUSurfaceAccessNV(surface: gl_vdpau_surface_NV; access: DummyEnum) :=
     z_VDPAUSurfaceAccessNV_ovr_0(surface, access);
     
-    private static procedure z_VDPAUMapSurfacesNV_ovr_0(numSurfaces: Int32; var surfaces: GLvdpauSurfaceNV);
-    external 'opengl32.dll' name 'glVDPAUMapSurfacesNV';
-    private static procedure z_VDPAUMapSurfacesNV_ovr_0_anh001(numSurfaces: Int32; surfaces: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUMapSurfacesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUMapSurfacesNV(numSurfaces: Int32; surfaces: array of GLvdpauSurfaceNV) :=
+    private z_VDPAUMapSurfacesNV_adr := GetFuncAdr('glVDPAUMapSurfacesNV');
+    private z_VDPAUMapSurfacesNV_ovr_0 := GetFuncOrNil&(z_VDPAUMapSurfacesNV_adr);
+    private z_VDPAUMapSurfacesNV_ovr_0_anh001 := GetFuncOrNil&(z_VDPAUMapSurfacesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUMapSurfacesNV(numSurfaces: Int32; surfaces: array of gl_vdpau_surface_NV) :=
     if (surfaces<>nil) and (surfaces.Length<>0) then
       z_VDPAUMapSurfacesNV_ovr_0(numSurfaces, surfaces[0]) else
       z_VDPAUMapSurfacesNV_ovr_0_anh001(numSurfaces, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUMapSurfacesNV(numSurfaces: Int32; var surfaces: GLvdpauSurfaceNV) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUMapSurfacesNV(numSurfaces: Int32; var surfaces: gl_vdpau_surface_NV) :=
     z_VDPAUMapSurfacesNV_ovr_0(numSurfaces, surfaces);
-    private static procedure z_VDPAUMapSurfacesNV_ovr_2(numSurfaces: Int32; surfaces: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUMapSurfacesNV';
+    private z_VDPAUMapSurfacesNV_ovr_2 := GetFuncOrNil&(z_VDPAUMapSurfacesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUMapSurfacesNV(numSurfaces: Int32; surfaces: IntPtr) :=
     z_VDPAUMapSurfacesNV_ovr_2(numSurfaces, surfaces);
     
-    private static procedure z_VDPAUUnmapSurfacesNV_ovr_0(numSurface: Int32; var surfaces: GLvdpauSurfaceNV);
-    external 'opengl32.dll' name 'glVDPAUUnmapSurfacesNV';
-    private static procedure z_VDPAUUnmapSurfacesNV_ovr_0_anh001(numSurface: Int32; surfaces: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUUnmapSurfacesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnmapSurfacesNV(numSurface: Int32; surfaces: array of GLvdpauSurfaceNV) :=
+    private z_VDPAUUnmapSurfacesNV_adr := GetFuncAdr('glVDPAUUnmapSurfacesNV');
+    private z_VDPAUUnmapSurfacesNV_ovr_0 := GetFuncOrNil&(z_VDPAUUnmapSurfacesNV_adr);
+    private z_VDPAUUnmapSurfacesNV_ovr_0_anh001 := GetFuncOrNil&(z_VDPAUUnmapSurfacesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnmapSurfacesNV(numSurface: Int32; surfaces: array of gl_vdpau_surface_NV) :=
     if (surfaces<>nil) and (surfaces.Length<>0) then
       z_VDPAUUnmapSurfacesNV_ovr_0(numSurface, surfaces[0]) else
       z_VDPAUUnmapSurfacesNV_ovr_0_anh001(numSurface, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnmapSurfacesNV(numSurface: Int32; var surfaces: GLvdpauSurfaceNV) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnmapSurfacesNV(numSurface: Int32; var surfaces: gl_vdpau_surface_NV) :=
     z_VDPAUUnmapSurfacesNV_ovr_0(numSurface, surfaces);
-    private static procedure z_VDPAUUnmapSurfacesNV_ovr_2(numSurface: Int32; surfaces: IntPtr);
-    external 'opengl32.dll' name 'glVDPAUUnmapSurfacesNV';
+    private z_VDPAUUnmapSurfacesNV_ovr_2 := GetFuncOrNil&(z_VDPAUUnmapSurfacesNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VDPAUUnmapSurfacesNV(numSurface: Int32; surfaces: IntPtr) :=
     z_VDPAUUnmapSurfacesNV_ovr_2(numSurface, surfaces);
     
   end;
   
   [PCUNotRestore]
-  glVdpauInterop2NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVdpauInterop2NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vdpau_interop2';
     
-    private static function z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32; isFrameStructure: boolean): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceWithPictureStructureNV';
-    private static function z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0_anh000010(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr; isFrameStructure: boolean): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceWithPictureStructureNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32; isFrameStructure: boolean): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterVideoSurfaceWithPictureStructureNV_adr := GetFuncAdr('glVDPAURegisterVideoSurfaceWithPictureStructureNV');
+    private z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceWithPictureStructureNV_adr);
+    private z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0_anh000010 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceWithPictureStructureNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: array of UInt32; isFrameStructure: boolean): gl_vdpau_surface_NV :=
     if (textureNames<>nil) and (textureNames.Length<>0) then
       z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0(vdpSurface, target, numTextureNames, textureNames[0], isFrameStructure) else
       z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0_anh000010(vdpSurface, target, numTextureNames, IntPtr.Zero, isFrameStructure);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32; isFrameStructure: boolean): GLvdpauSurfaceNV :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; var textureNames: UInt32; isFrameStructure: boolean): gl_vdpau_surface_NV :=
     z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_0(vdpSurface, target, numTextureNames, textureNames, isFrameStructure);
-    private static function z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_2(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr; isFrameStructure: boolean): GLvdpauSurfaceNV;
-    external 'opengl32.dll' name 'glVDPAURegisterVideoSurfaceWithPictureStructureNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr; isFrameStructure: boolean): GLvdpauSurfaceNV :=
+    private z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_2 := GetFuncOrNil&(z_VDPAURegisterVideoSurfaceWithPictureStructureNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VDPAURegisterVideoSurfaceWithPictureStructureNV(vdpSurface: IntPtr; target: DummyEnum; numTextureNames: Int32; textureNames: IntPtr; isFrameStructure: boolean): gl_vdpau_surface_NV :=
     z_VDPAURegisterVideoSurfaceWithPictureStructureNV_ovr_2(vdpSurface, target, numTextureNames, textureNames, isFrameStructure);
     
   end;
   
   [PCUNotRestore]
-  glVertexArrayRangeNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexArrayRangeNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_array_range';
     
-    private static procedure z_FlushVertexArrayRangeNV_ovr_0;
-    external 'opengl32.dll' name 'glFlushVertexArrayRangeNV';
+    private z_FlushVertexArrayRangeNV_adr := GetFuncAdr('glFlushVertexArrayRangeNV');
+    private z_FlushVertexArrayRangeNV_ovr_0 := GetFuncOrNil&(z_FlushVertexArrayRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushVertexArrayRangeNV :=
     z_FlushVertexArrayRangeNV_ovr_0;
     
-    private static procedure z_VertexArrayRangeNV_ovr_0(length: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexArrayRangeNV';
+    private z_VertexArrayRangeNV_adr := GetFuncAdr('glVertexArrayRangeNV');
+    private z_VertexArrayRangeNV_ovr_0 := GetFuncOrNil&(z_VertexArrayRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexArrayRangeNV(length: Int32; pointer: IntPtr) :=
     z_VertexArrayRangeNV_ovr_0(length, pointer);
     
   end;
   
   [PCUNotRestore]
-  glVertexAttribInteger64bitNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexAttribInteger64bitNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_attrib_integer_64bit';
     
-    private static procedure z_VertexAttribL1i64NV_ovr_0(index: UInt32; x: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL1i64NV';
+    private z_VertexAttribL1i64NV_adr := GetFuncAdr('glVertexAttribL1i64NV');
+    private z_VertexAttribL1i64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL1i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1i64NV(index: UInt32; x: Int64) :=
     z_VertexAttribL1i64NV_ovr_0(index, x);
     
-    private static procedure z_VertexAttribL2i64NV_ovr_0(index: UInt32; x: Int64; y: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL2i64NV';
+    private z_VertexAttribL2i64NV_adr := GetFuncAdr('glVertexAttribL2i64NV');
+    private z_VertexAttribL2i64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL2i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2i64NV(index: UInt32; x: Int64; y: Int64) :=
     z_VertexAttribL2i64NV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribL3i64NV_ovr_0(index: UInt32; x: Int64; y: Int64; z: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL3i64NV';
+    private z_VertexAttribL3i64NV_adr := GetFuncAdr('glVertexAttribL3i64NV');
+    private z_VertexAttribL3i64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL3i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3i64NV(index: UInt32; x: Int64; y: Int64; z: Int64) :=
     z_VertexAttribL3i64NV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribL4i64NV_ovr_0(index: UInt32; x: Int64; y: Int64; z: Int64; w: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL4i64NV';
+    private z_VertexAttribL4i64NV_adr := GetFuncAdr('glVertexAttribL4i64NV');
+    private z_VertexAttribL4i64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL4i64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4i64NV(index: UInt32; x: Int64; y: Int64; z: Int64; w: Int64) :=
     z_VertexAttribL4i64NV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribL1i64vNV_ovr_0(index: UInt32; var v: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL1i64vNV';
-    private static procedure z_VertexAttribL1i64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1i64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1i64vNV(index: UInt32; v: array of Int64) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribL1i64vNV_ovr_0(index, v[0]) else
-      z_VertexAttribL1i64vNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribL1i64vNV_adr := GetFuncAdr('glVertexAttribL1i64vNV');
+    private z_VertexAttribL1i64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1i64vNV(index: UInt32; var v: Int64) :=
     z_VertexAttribL1i64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL1i64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1i64vNV';
+    private z_VertexAttribL1i64vNV_ovr_1 := GetFuncOrNil&(z_VertexAttribL1i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1i64vNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttribL1i64vNV_ovr_2(index, v);
+    z_VertexAttribL1i64vNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttribL2i64vNV_ovr_0(index: UInt32; var v: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL2i64vNV';
-    private static procedure z_VertexAttribL2i64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2i64vNV';
+    private z_VertexAttribL2i64vNV_adr := GetFuncAdr('glVertexAttribL2i64vNV');
+    private z_VertexAttribL2i64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL2i64vNV_adr);
+    private z_VertexAttribL2i64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2i64vNV(index: UInt32; v: array of Int64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL2i64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL2i64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2i64vNV(index: UInt32; var v: Int64) :=
     z_VertexAttribL2i64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL2i64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2i64vNV';
+    private z_VertexAttribL2i64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL2i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2i64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL2i64vNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL3i64vNV_ovr_0(index: UInt32; var v: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL3i64vNV';
-    private static procedure z_VertexAttribL3i64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3i64vNV';
+    private z_VertexAttribL3i64vNV_adr := GetFuncAdr('glVertexAttribL3i64vNV');
+    private z_VertexAttribL3i64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL3i64vNV_adr);
+    private z_VertexAttribL3i64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3i64vNV(index: UInt32; v: array of Int64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL3i64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL3i64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3i64vNV(index: UInt32; var v: Int64) :=
     z_VertexAttribL3i64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL3i64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3i64vNV';
+    private z_VertexAttribL3i64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL3i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3i64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL3i64vNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL4i64vNV_ovr_0(index: UInt32; var v: Int64);
-    external 'opengl32.dll' name 'glVertexAttribL4i64vNV';
-    private static procedure z_VertexAttribL4i64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4i64vNV';
+    private z_VertexAttribL4i64vNV_adr := GetFuncAdr('glVertexAttribL4i64vNV');
+    private z_VertexAttribL4i64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL4i64vNV_adr);
+    private z_VertexAttribL4i64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4i64vNV(index: UInt32; v: array of Int64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL4i64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL4i64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4i64vNV(index: UInt32; var v: Int64) :=
     z_VertexAttribL4i64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL4i64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4i64vNV';
+    private z_VertexAttribL4i64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL4i64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4i64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL4i64vNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL1ui64NV_ovr_0(index: UInt32; x: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64NV';
+    private z_VertexAttribL1ui64NV_adr := GetFuncAdr('glVertexAttribL1ui64NV');
+    private z_VertexAttribL1ui64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL1ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64NV(index: UInt32; x: UInt64) :=
     z_VertexAttribL1ui64NV_ovr_0(index, x);
     
-    private static procedure z_VertexAttribL2ui64NV_ovr_0(index: UInt32; x: UInt64; y: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL2ui64NV';
+    private z_VertexAttribL2ui64NV_adr := GetFuncAdr('glVertexAttribL2ui64NV');
+    private z_VertexAttribL2ui64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL2ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2ui64NV(index: UInt32; x: UInt64; y: UInt64) :=
     z_VertexAttribL2ui64NV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribL3ui64NV_ovr_0(index: UInt32; x: UInt64; y: UInt64; z: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL3ui64NV';
+    private z_VertexAttribL3ui64NV_adr := GetFuncAdr('glVertexAttribL3ui64NV');
+    private z_VertexAttribL3ui64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL3ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3ui64NV(index: UInt32; x: UInt64; y: UInt64; z: UInt64) :=
     z_VertexAttribL3ui64NV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribL4ui64NV_ovr_0(index: UInt32; x: UInt64; y: UInt64; z: UInt64; w: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL4ui64NV';
+    private z_VertexAttribL4ui64NV_adr := GetFuncAdr('glVertexAttribL4ui64NV');
+    private z_VertexAttribL4ui64NV_ovr_0 := GetFuncOrNil&(z_VertexAttribL4ui64NV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4ui64NV(index: UInt32; x: UInt64; y: UInt64; z: UInt64; w: UInt64) :=
     z_VertexAttribL4ui64NV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribL1ui64vNV_ovr_0(index: UInt32; var v: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vNV';
-    private static procedure z_VertexAttribL1ui64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vNV(index: UInt32; v: array of UInt64) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribL1ui64vNV_ovr_0(index, v[0]) else
-      z_VertexAttribL1ui64vNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribL1ui64vNV_adr := GetFuncAdr('glVertexAttribL1ui64vNV');
+    private z_VertexAttribL1ui64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vNV(index: UInt32; var v: UInt64) :=
     z_VertexAttribL1ui64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL1ui64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL1ui64vNV';
+    private z_VertexAttribL1ui64vNV_ovr_1 := GetFuncOrNil&(z_VertexAttribL1ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL1ui64vNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttribL1ui64vNV_ovr_2(index, v);
+    z_VertexAttribL1ui64vNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttribL2ui64vNV_ovr_0(index: UInt32; var v: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL2ui64vNV';
-    private static procedure z_VertexAttribL2ui64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2ui64vNV';
+    private z_VertexAttribL2ui64vNV_adr := GetFuncAdr('glVertexAttribL2ui64vNV');
+    private z_VertexAttribL2ui64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL2ui64vNV_adr);
+    private z_VertexAttribL2ui64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2ui64vNV(index: UInt32; v: array of UInt64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL2ui64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL2ui64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2ui64vNV(index: UInt32; var v: UInt64) :=
     z_VertexAttribL2ui64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL2ui64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL2ui64vNV';
+    private z_VertexAttribL2ui64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL2ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL2ui64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL2ui64vNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL3ui64vNV_ovr_0(index: UInt32; var v: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL3ui64vNV';
-    private static procedure z_VertexAttribL3ui64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3ui64vNV';
+    private z_VertexAttribL3ui64vNV_adr := GetFuncAdr('glVertexAttribL3ui64vNV');
+    private z_VertexAttribL3ui64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL3ui64vNV_adr);
+    private z_VertexAttribL3ui64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3ui64vNV(index: UInt32; v: array of UInt64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL3ui64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL3ui64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3ui64vNV(index: UInt32; var v: UInt64) :=
     z_VertexAttribL3ui64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL3ui64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL3ui64vNV';
+    private z_VertexAttribL3ui64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL3ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL3ui64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL3ui64vNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribL4ui64vNV_ovr_0(index: UInt32; var v: UInt64);
-    external 'opengl32.dll' name 'glVertexAttribL4ui64vNV';
-    private static procedure z_VertexAttribL4ui64vNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4ui64vNV';
+    private z_VertexAttribL4ui64vNV_adr := GetFuncAdr('glVertexAttribL4ui64vNV');
+    private z_VertexAttribL4ui64vNV_ovr_0 := GetFuncOrNil&(z_VertexAttribL4ui64vNV_adr);
+    private z_VertexAttribL4ui64vNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribL4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4ui64vNV(index: UInt32; v: array of UInt64) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribL4ui64vNV_ovr_0(index, v[0]) else
       z_VertexAttribL4ui64vNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4ui64vNV(index: UInt32; var v: UInt64) :=
     z_VertexAttribL4ui64vNV_ovr_0(index, v);
-    private static procedure z_VertexAttribL4ui64vNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribL4ui64vNV';
+    private z_VertexAttribL4ui64vNV_ovr_2 := GetFuncOrNil&(z_VertexAttribL4ui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribL4ui64vNV(index: UInt32; v: IntPtr) :=
     z_VertexAttribL4ui64vNV_ovr_2(index, v);
     
-    private static procedure z_GetVertexAttribLi64vNV_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: Int64);
-    external 'opengl32.dll' name 'glGetVertexAttribLi64vNV';
-    private static procedure z_GetVertexAttribLi64vNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLi64vNV';
+    private z_GetVertexAttribLi64vNV_adr := GetFuncAdr('glGetVertexAttribLi64vNV');
+    private z_GetVertexAttribLi64vNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribLi64vNV_adr);
+    private z_GetVertexAttribLi64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribLi64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLi64vNV(index: UInt32; pname: VertexAttribEnum; ¶ms: array of Int64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribLi64vNV_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribLi64vNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLi64vNV(index: UInt32; pname: VertexAttribEnum; var ¶ms: Int64) :=
     z_GetVertexAttribLi64vNV_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribLi64vNV_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLi64vNV';
+    private z_GetVertexAttribLi64vNV_ovr_2 := GetFuncOrNil&(z_GetVertexAttribLi64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLi64vNV(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
     z_GetVertexAttribLi64vNV_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribLui64vNV_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt64);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vNV';
-    private static procedure z_GetVertexAttribLui64vNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vNV';
+    private z_GetVertexAttribLui64vNV_adr := GetFuncAdr('glGetVertexAttribLui64vNV');
+    private z_GetVertexAttribLui64vNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribLui64vNV_adr);
+    private z_GetVertexAttribLui64vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVertexAttribLui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vNV(index: UInt32; pname: VertexAttribEnum; ¶ms: array of UInt64) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVertexAttribLui64vNV_ovr_0(index, pname, ¶ms[0]) else
       z_GetVertexAttribLui64vNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vNV(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt64) :=
     z_GetVertexAttribLui64vNV_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribLui64vNV_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribLui64vNV';
+    private z_GetVertexAttribLui64vNV_ovr_2 := GetFuncOrNil&(z_GetVertexAttribLui64vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribLui64vNV(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
     z_GetVertexAttribLui64vNV_ovr_2(index, pname, ¶ms);
     
-    private static procedure z_VertexAttribLFormatNV_ovr_0(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32);
-    external 'opengl32.dll' name 'glVertexAttribLFormatNV';
+    private z_VertexAttribLFormatNV_adr := GetFuncAdr('glVertexAttribLFormatNV');
+    private z_VertexAttribLFormatNV_ovr_0 := GetFuncOrNil&(z_VertexAttribLFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribLFormatNV(index: UInt32; size: Int32; &type: VertexAttribLType; stride: Int32) :=
     z_VertexAttribLFormatNV_ovr_0(index, size, &type, stride);
     
   end;
   
   [PCUNotRestore]
-  glVertexBufferUnifiedMemoryNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexBufferUnifiedMemoryNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_buffer_unified_memory';
     
-    private static procedure z_BufferAddressRangeNV_ovr_0(pname: DummyEnum; index: UInt32; address: UInt64; length: IntPtr);
-    external 'opengl32.dll' name 'glBufferAddressRangeNV';
+    private z_BufferAddressRangeNV_adr := GetFuncAdr('glBufferAddressRangeNV');
+    private z_BufferAddressRangeNV_ovr_0 := GetFuncOrNil&(z_BufferAddressRangeNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BufferAddressRangeNV(pname: DummyEnum; index: UInt32; address: UInt64; length: IntPtr) :=
     z_BufferAddressRangeNV_ovr_0(pname, index, address, length);
     
-    private static procedure z_VertexFormatNV_ovr_0(size: Int32; &type: VertexPointerType; stride: Int32);
-    external 'opengl32.dll' name 'glVertexFormatNV';
+    private z_VertexFormatNV_adr := GetFuncAdr('glVertexFormatNV');
+    private z_VertexFormatNV_ovr_0 := GetFuncOrNil&(z_VertexFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexFormatNV(size: Int32; &type: VertexPointerType; stride: Int32) :=
     z_VertexFormatNV_ovr_0(size, &type, stride);
     
-    private static procedure z_NormalFormatNV_ovr_0(&type: DummyEnum; stride: Int32);
-    external 'opengl32.dll' name 'glNormalFormatNV';
+    private z_NormalFormatNV_adr := GetFuncAdr('glNormalFormatNV');
+    private z_NormalFormatNV_ovr_0 := GetFuncOrNil&(z_NormalFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NormalFormatNV(&type: DummyEnum; stride: Int32) :=
     z_NormalFormatNV_ovr_0(&type, stride);
     
-    private static procedure z_ColorFormatNV_ovr_0(size: Int32; &type: DummyEnum; stride: Int32);
-    external 'opengl32.dll' name 'glColorFormatNV';
+    private z_ColorFormatNV_adr := GetFuncAdr('glColorFormatNV');
+    private z_ColorFormatNV_ovr_0 := GetFuncOrNil&(z_ColorFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorFormatNV(size: Int32; &type: DummyEnum; stride: Int32) :=
     z_ColorFormatNV_ovr_0(size, &type, stride);
     
-    private static procedure z_IndexFormatNV_ovr_0(&type: DummyEnum; stride: Int32);
-    external 'opengl32.dll' name 'glIndexFormatNV';
+    private z_IndexFormatNV_adr := GetFuncAdr('glIndexFormatNV');
+    private z_IndexFormatNV_ovr_0 := GetFuncOrNil&(z_IndexFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexFormatNV(&type: DummyEnum; stride: Int32) :=
     z_IndexFormatNV_ovr_0(&type, stride);
     
-    private static procedure z_TexCoordFormatNV_ovr_0(size: Int32; &type: DummyEnum; stride: Int32);
-    external 'opengl32.dll' name 'glTexCoordFormatNV';
+    private z_TexCoordFormatNV_adr := GetFuncAdr('glTexCoordFormatNV');
+    private z_TexCoordFormatNV_ovr_0 := GetFuncOrNil&(z_TexCoordFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoordFormatNV(size: Int32; &type: DummyEnum; stride: Int32) :=
     z_TexCoordFormatNV_ovr_0(size, &type, stride);
     
-    private static procedure z_EdgeFlagFormatNV_ovr_0(stride: Int32);
-    external 'opengl32.dll' name 'glEdgeFlagFormatNV';
+    private z_EdgeFlagFormatNV_adr := GetFuncAdr('glEdgeFlagFormatNV');
+    private z_EdgeFlagFormatNV_ovr_0 := GetFuncOrNil&(z_EdgeFlagFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EdgeFlagFormatNV(stride: Int32) :=
     z_EdgeFlagFormatNV_ovr_0(stride);
     
-    private static procedure z_SecondaryColorFormatNV_ovr_0(size: Int32; &type: ColorPointerType; stride: Int32);
-    external 'opengl32.dll' name 'glSecondaryColorFormatNV';
+    private z_SecondaryColorFormatNV_adr := GetFuncAdr('glSecondaryColorFormatNV');
+    private z_SecondaryColorFormatNV_ovr_0 := GetFuncOrNil&(z_SecondaryColorFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SecondaryColorFormatNV(size: Int32; &type: ColorPointerType; stride: Int32) :=
     z_SecondaryColorFormatNV_ovr_0(size, &type, stride);
     
-    private static procedure z_FogCoordFormatNV_ovr_0(&type: DummyEnum; stride: Int32);
-    external 'opengl32.dll' name 'glFogCoordFormatNV';
+    private z_FogCoordFormatNV_adr := GetFuncAdr('glFogCoordFormatNV');
+    private z_FogCoordFormatNV_ovr_0 := GetFuncOrNil&(z_FogCoordFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogCoordFormatNV(&type: DummyEnum; stride: Int32) :=
     z_FogCoordFormatNV_ovr_0(&type, stride);
     
-    private static procedure z_VertexAttribFormatNV_ovr_0(index: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; stride: Int32);
-    external 'opengl32.dll' name 'glVertexAttribFormatNV';
+    private z_VertexAttribFormatNV_adr := GetFuncAdr('glVertexAttribFormatNV');
+    private z_VertexAttribFormatNV_ovr_0 := GetFuncOrNil&(z_VertexAttribFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribFormatNV(index: UInt32; size: Int32; &type: VertexAttribType; normalized: boolean; stride: Int32) :=
     z_VertexAttribFormatNV_ovr_0(index, size, &type, normalized, stride);
     
-    private static procedure z_VertexAttribIFormatNV_ovr_0(index: UInt32; size: Int32; &type: VertexAttribIType; stride: Int32);
-    external 'opengl32.dll' name 'glVertexAttribIFormatNV';
+    private z_VertexAttribIFormatNV_adr := GetFuncAdr('glVertexAttribIFormatNV');
+    private z_VertexAttribIFormatNV_ovr_0 := GetFuncOrNil&(z_VertexAttribIFormatNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribIFormatNV(index: UInt32; size: Int32; &type: VertexAttribIType; stride: Int32) :=
     z_VertexAttribIFormatNV_ovr_0(index, size, &type, stride);
     
-    private static procedure z_GetIntegerui64i_vNV_ovr_0(value: DummyEnum; index: UInt32; var result: UInt64);
-    external 'opengl32.dll' name 'glGetIntegerui64i_vNV';
-    private static procedure z_GetIntegerui64i_vNV_ovr_0_anh0001(value: DummyEnum; index: UInt32; result: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerui64i_vNV';
+    private z_GetIntegerui64i_vNV_adr := GetFuncAdr('glGetIntegerui64i_vNV');
+    private z_GetIntegerui64i_vNV_ovr_0 := GetFuncOrNil&(z_GetIntegerui64i_vNV_adr);
+    private z_GetIntegerui64i_vNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetIntegerui64i_vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64i_vNV(value: DummyEnum; index: UInt32; result: array of UInt64) :=
     if (result<>nil) and (result.Length<>0) then
       z_GetIntegerui64i_vNV_ovr_0(value, index, result[0]) else
       z_GetIntegerui64i_vNV_ovr_0_anh0001(value, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64i_vNV(value: DummyEnum; index: UInt32; var result: UInt64) :=
     z_GetIntegerui64i_vNV_ovr_0(value, index, result);
-    private static procedure z_GetIntegerui64i_vNV_ovr_2(value: DummyEnum; index: UInt32; result: IntPtr);
-    external 'opengl32.dll' name 'glGetIntegerui64i_vNV';
+    private z_GetIntegerui64i_vNV_ovr_2 := GetFuncOrNil&(z_GetIntegerui64i_vNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetIntegerui64i_vNV(value: DummyEnum; index: UInt32; result: IntPtr) :=
     z_GetIntegerui64i_vNV_ovr_2(value, index, result);
     
   end;
   
   [PCUNotRestore]
-  glVertexProgramNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexProgramNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_program';
     
-    private static function z_AreProgramsResidentNV_ovr_0(n: Int32; var programs: UInt32; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    private static function z_AreProgramsResidentNV_ovr_0_anh0010(n: Int32; programs: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    private static function z_AreProgramsResidentNV_ovr_0_anh0001(n: Int32; var programs: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    private static function z_AreProgramsResidentNV_ovr_0_anh0011(n: Int32; programs: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of UInt32; residences: array of boolean): boolean :=
+    private z_AreProgramsResidentNV_adr := GetFuncAdr('glAreProgramsResidentNV');
+    private z_AreProgramsResidentNV_ovr_0 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    private z_AreProgramsResidentNV_ovr_0_anh0010 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    private z_AreProgramsResidentNV_ovr_0_anh0001 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    private z_AreProgramsResidentNV_ovr_0_anh0011 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of gl_program; residences: array of boolean): boolean :=
     if (programs<>nil) and (programs.Length<>0) then
       if (residences<>nil) and (residences.Length<>0) then
         z_AreProgramsResidentNV_ovr_0(n, programs[0], residences[0]) else
@@ -67220,1163 +63779,974 @@ type
       if (residences<>nil) and (residences.Length<>0) then
         z_AreProgramsResidentNV_ovr_0_anh0010(n, IntPtr.Zero, residences[0]) else
         z_AreProgramsResidentNV_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static function z_AreProgramsResidentNV_ovr_1_anh0010(n: Int32; programs: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of UInt32; var residences: boolean): boolean :=
+    private z_AreProgramsResidentNV_ovr_1_anh0010 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of gl_program; var residences: boolean): boolean :=
     if (programs<>nil) and (programs.Length<>0) then
       z_AreProgramsResidentNV_ovr_0(n, programs[0], residences) else
       z_AreProgramsResidentNV_ovr_0_anh0010(n, IntPtr.Zero, residences);
-    private static function z_AreProgramsResidentNV_ovr_2(n: Int32; var programs: UInt32; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    private static function z_AreProgramsResidentNV_ovr_2_anh0010(n: Int32; programs: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of UInt32; residences: IntPtr): boolean :=
+    private z_AreProgramsResidentNV_ovr_2 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    private z_AreProgramsResidentNV_ovr_2_anh0010 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: array of gl_program; residences: IntPtr): boolean :=
     if (programs<>nil) and (programs.Length<>0) then
       z_AreProgramsResidentNV_ovr_2(n, programs[0], residences) else
       z_AreProgramsResidentNV_ovr_2_anh0010(n, IntPtr.Zero, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: UInt32; residences: array of boolean): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: gl_program; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
       z_AreProgramsResidentNV_ovr_0(n, programs, residences[0]) else
       z_AreProgramsResidentNV_ovr_0_anh0001(n, programs, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: UInt32; var residences: boolean): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: gl_program; var residences: boolean): boolean :=
     z_AreProgramsResidentNV_ovr_0(n, programs, residences);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: UInt32; residences: IntPtr): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; var programs: gl_program; residences: IntPtr): boolean :=
     z_AreProgramsResidentNV_ovr_2(n, programs, residences);
-    private static function z_AreProgramsResidentNV_ovr_6(n: Int32; programs: IntPtr; var residences: boolean): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
-    private static function z_AreProgramsResidentNV_ovr_6_anh0001(n: Int32; programs: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
+    private z_AreProgramsResidentNV_ovr_6 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
+    private z_AreProgramsResidentNV_ovr_6_anh0001 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: IntPtr; residences: array of boolean): boolean :=
     if (residences<>nil) and (residences.Length<>0) then
       z_AreProgramsResidentNV_ovr_6(n, programs, residences[0]) else
       z_AreProgramsResidentNV_ovr_6_anh0001(n, programs, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: IntPtr; var residences: boolean): boolean :=
     z_AreProgramsResidentNV_ovr_6(n, programs, residences);
-    private static function z_AreProgramsResidentNV_ovr_8(n: Int32; programs: IntPtr; residences: IntPtr): boolean;
-    external 'opengl32.dll' name 'glAreProgramsResidentNV';
+    private z_AreProgramsResidentNV_ovr_8 := GetFuncOrNil&(z_AreProgramsResidentNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AreProgramsResidentNV(n: Int32; programs: IntPtr; residences: IntPtr): boolean :=
     z_AreProgramsResidentNV_ovr_8(n, programs, residences);
     
-    private static procedure z_BindProgramNV_ovr_0(target: VertexAttribEnumNV; id: UInt32);
-    external 'opengl32.dll' name 'glBindProgramNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramNV(target: VertexAttribEnumNV; id: UInt32) :=
+    private z_BindProgramNV_adr := GetFuncAdr('glBindProgramNV');
+    private z_BindProgramNV_ovr_0 := GetFuncOrNil&(z_BindProgramNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindProgramNV(target: VertexAttribEnumNV; id: gl_program) :=
     z_BindProgramNV_ovr_0(target, id);
     
-    private static procedure z_DeleteProgramsNV_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glDeleteProgramsNV';
-    private static procedure z_DeleteProgramsNV_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsNV(n: Int32; programs: array of UInt32) :=
+    private z_DeleteProgramsNV_adr := GetFuncAdr('glDeleteProgramsNV');
+    private z_DeleteProgramsNV_ovr_0 := GetFuncOrNil&(z_DeleteProgramsNV_adr);
+    private z_DeleteProgramsNV_ovr_0_anh001 := GetFuncOrNil&(z_DeleteProgramsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsNV(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_DeleteProgramsNV_ovr_0(n, programs[0]) else
       z_DeleteProgramsNV_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsNV(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsNV(n: Int32; var programs: gl_program) :=
     z_DeleteProgramsNV_ovr_0(n, programs);
-    private static procedure z_DeleteProgramsNV_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glDeleteProgramsNV';
+    private z_DeleteProgramsNV_ovr_2 := GetFuncOrNil&(z_DeleteProgramsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteProgramsNV(n: Int32; programs: IntPtr) :=
     z_DeleteProgramsNV_ovr_2(n, programs);
     
-    private static procedure z_ExecuteProgramNV_ovr_0(target: VertexAttribEnumNV; id: UInt32; var ¶ms: single);
-    external 'opengl32.dll' name 'glExecuteProgramNV';
-    private static procedure z_ExecuteProgramNV_ovr_0_anh0001(target: VertexAttribEnumNV; id: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glExecuteProgramNV';
+    private z_ExecuteProgramNV_adr := GetFuncAdr('glExecuteProgramNV');
+    private z_ExecuteProgramNV_ovr_0 := GetFuncOrNil&(z_ExecuteProgramNV_adr);
+    private z_ExecuteProgramNV_ovr_0_anh0001 := GetFuncOrNil&(z_ExecuteProgramNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ExecuteProgramNV(target: VertexAttribEnumNV; id: UInt32; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ExecuteProgramNV_ovr_0(target, id, ¶ms[0]) else
       z_ExecuteProgramNV_ovr_0_anh0001(target, id, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ExecuteProgramNV(target: VertexAttribEnumNV; id: UInt32; var ¶ms: single) :=
     z_ExecuteProgramNV_ovr_0(target, id, ¶ms);
-    private static procedure z_ExecuteProgramNV_ovr_2(target: VertexAttribEnumNV; id: UInt32; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glExecuteProgramNV';
+    private z_ExecuteProgramNV_ovr_2 := GetFuncOrNil&(z_ExecuteProgramNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ExecuteProgramNV(target: VertexAttribEnumNV; id: UInt32; ¶ms: IntPtr) :=
     z_ExecuteProgramNV_ovr_2(target, id, ¶ms);
     
-    private static procedure z_GenProgramsNV_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glGenProgramsNV';
-    private static procedure z_GenProgramsNV_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsNV(n: Int32; programs: array of UInt32) :=
+    private z_GenProgramsNV_adr := GetFuncAdr('glGenProgramsNV');
+    private z_GenProgramsNV_ovr_0 := GetFuncOrNil&(z_GenProgramsNV_adr);
+    private z_GenProgramsNV_ovr_0_anh001 := GetFuncOrNil&(z_GenProgramsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsNV(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_GenProgramsNV_ovr_0(n, programs[0]) else
       z_GenProgramsNV_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsNV(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsNV(n: Int32; var programs: gl_program) :=
     z_GenProgramsNV_ovr_0(n, programs);
-    private static procedure z_GenProgramsNV_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glGenProgramsNV';
+    private z_GenProgramsNV_ovr_2 := GetFuncOrNil&(z_GenProgramsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GenProgramsNV(n: Int32; programs: IntPtr) :=
     z_GenProgramsNV_ovr_2(n, programs);
     
-    private static procedure z_GetProgramParameterdvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetProgramParameterdvNV';
-    private static procedure z_GetProgramParameterdvNV_ovr_0_anh00001(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramParameterdvNV';
+    private z_GetProgramParameterdvNV_adr := GetFuncAdr('glGetProgramParameterdvNV');
+    private z_GetProgramParameterdvNV_ovr_0 := GetFuncOrNil&(z_GetProgramParameterdvNV_adr);
+    private z_GetProgramParameterdvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramParameterdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterdvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramParameterdvNV_ovr_0(target, index, pname, ¶ms[0]) else
       z_GetProgramParameterdvNV_ovr_0_anh00001(target, index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterdvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; var ¶ms: real) :=
     z_GetProgramParameterdvNV_ovr_0(target, index, pname, ¶ms);
-    private static procedure z_GetProgramParameterdvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramParameterdvNV';
+    private z_GetProgramParameterdvNV_ovr_2 := GetFuncOrNil&(z_GetProgramParameterdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterdvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
     z_GetProgramParameterdvNV_ovr_2(target, index, pname, ¶ms);
     
-    private static procedure z_GetProgramParameterfvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetProgramParameterfvNV';
-    private static procedure z_GetProgramParameterfvNV_ovr_0_anh00001(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramParameterfvNV';
+    private z_GetProgramParameterfvNV_adr := GetFuncAdr('glGetProgramParameterfvNV');
+    private z_GetProgramParameterfvNV_ovr_0 := GetFuncOrNil&(z_GetProgramParameterfvNV_adr);
+    private z_GetProgramParameterfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetProgramParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterfvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramParameterfvNV_ovr_0(target, index, pname, ¶ms[0]) else
       z_GetProgramParameterfvNV_ovr_0_anh00001(target, index, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterfvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; var ¶ms: single) :=
     z_GetProgramParameterfvNV_ovr_0(target, index, pname, ¶ms);
-    private static procedure z_GetProgramParameterfvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramParameterfvNV';
+    private z_GetProgramParameterfvNV_ovr_2 := GetFuncOrNil&(z_GetProgramParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramParameterfvNV(target: VertexAttribEnumNV; index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
     z_GetProgramParameterfvNV_ovr_2(target, index, pname, ¶ms);
     
-    private static procedure z_GetProgramivNV_ovr_0(id: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetProgramivNV';
-    private static procedure z_GetProgramivNV_ovr_0_anh0001(id: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: UInt32; pname: VertexAttribEnumNV; ¶ms: array of Int32) :=
+    private z_GetProgramivNV_adr := GetFuncAdr('glGetProgramivNV');
+    private z_GetProgramivNV_ovr_0 := GetFuncOrNil&(z_GetProgramivNV_adr);
+    private z_GetProgramivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: gl_program; pname: VertexAttribEnumNV; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetProgramivNV_ovr_0(id, pname, ¶ms[0]) else
       z_GetProgramivNV_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: gl_program; pname: VertexAttribEnumNV; var ¶ms: Int32) :=
     z_GetProgramivNV_ovr_0(id, pname, ¶ms);
-    private static procedure z_GetProgramivNV_ovr_2(id: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
+    private z_GetProgramivNV_ovr_2 := GetFuncOrNil&(z_GetProgramivNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramivNV(id: gl_program; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
     z_GetProgramivNV_ovr_2(id, pname, ¶ms);
     
-    private static procedure z_GetProgramStringNV_ovr_0(id: UInt32; pname: VertexAttribEnumNV; var &program: Byte);
-    external 'opengl32.dll' name 'glGetProgramStringNV';
-    private static procedure z_GetProgramStringNV_ovr_0_anh0001(id: UInt32; pname: VertexAttribEnumNV; &program: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStringNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: UInt32; pname: VertexAttribEnumNV; &program: array of Byte) :=
+    private z_GetProgramStringNV_adr := GetFuncAdr('glGetProgramStringNV');
+    private z_GetProgramStringNV_ovr_0 := GetFuncOrNil&(z_GetProgramStringNV_adr);
+    private z_GetProgramStringNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetProgramStringNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: gl_program; pname: VertexAttribEnumNV; &program: array of Byte) :=
     if (&program<>nil) and (&program.Length<>0) then
       z_GetProgramStringNV_ovr_0(id, pname, &program[0]) else
       z_GetProgramStringNV_ovr_0_anh0001(id, pname, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: UInt32; pname: VertexAttribEnumNV; var &program: Byte) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: gl_program; pname: VertexAttribEnumNV; var &program: Byte) :=
     z_GetProgramStringNV_ovr_0(id, pname, &program);
-    private static procedure z_GetProgramStringNV_ovr_2(id: UInt32; pname: VertexAttribEnumNV; &program: IntPtr);
-    external 'opengl32.dll' name 'glGetProgramStringNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: UInt32; pname: VertexAttribEnumNV; &program: IntPtr) :=
+    private z_GetProgramStringNV_ovr_2 := GetFuncOrNil&(z_GetProgramStringNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetProgramStringNV(id: gl_program; pname: VertexAttribEnumNV; &program: IntPtr) :=
     z_GetProgramStringNV_ovr_2(id, pname, &program);
     
-    private static procedure z_GetTrackMatrixivNV_ovr_0(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetTrackMatrixivNV';
-    private static procedure z_GetTrackMatrixivNV_ovr_0_anh00001(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTrackMatrixivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTrackMatrixivNV(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetTrackMatrixivNV_ovr_0(target, address, pname, ¶ms[0]) else
-      z_GetTrackMatrixivNV_ovr_0_anh00001(target, address, pname, IntPtr.Zero);
+    private z_GetTrackMatrixivNV_adr := GetFuncAdr('glGetTrackMatrixivNV');
+    private z_GetTrackMatrixivNV_ovr_0 := GetFuncOrNil&(z_GetTrackMatrixivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTrackMatrixivNV(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32) :=
     z_GetTrackMatrixivNV_ovr_0(target, address, pname, ¶ms);
-    private static procedure z_GetTrackMatrixivNV_ovr_2(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTrackMatrixivNV';
+    private z_GetTrackMatrixivNV_ovr_1 := GetFuncOrNil&(z_GetTrackMatrixivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTrackMatrixivNV(target: VertexAttribEnumNV; address: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
-    z_GetTrackMatrixivNV_ovr_2(target, address, pname, ¶ms);
+    z_GetTrackMatrixivNV_ovr_1(target, address, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribdvNV_ovr_0(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVertexAttribdvNV';
-    private static procedure z_GetVertexAttribdvNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: array of real) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribdvNV_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribdvNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribdvNV_adr := GetFuncAdr('glGetVertexAttribdvNV');
+    private z_GetVertexAttribdvNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvNV(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: real) :=
     z_GetVertexAttribdvNV_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribdvNV_ovr_2(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribdvNV';
+    private z_GetVertexAttribdvNV_ovr_1 := GetFuncOrNil&(z_GetVertexAttribdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribdvNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
-    z_GetVertexAttribdvNV_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribdvNV_ovr_1(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribfvNV_ovr_0(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVertexAttribfvNV';
-    private static procedure z_GetVertexAttribfvNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: array of single) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribfvNV_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribfvNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribfvNV_adr := GetFuncAdr('glGetVertexAttribfvNV');
+    private z_GetVertexAttribfvNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvNV(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: single) :=
     z_GetVertexAttribfvNV_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribfvNV_ovr_2(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribfvNV';
+    private z_GetVertexAttribfvNV_ovr_1 := GetFuncOrNil&(z_GetVertexAttribfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribfvNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
-    z_GetVertexAttribfvNV_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribfvNV_ovr_1(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribivNV_ovr_0(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVertexAttribivNV';
-    private static procedure z_GetVertexAttribivNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribivNV_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribivNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribivNV_adr := GetFuncAdr('glGetVertexAttribivNV');
+    private z_GetVertexAttribivNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivNV(index: UInt32; pname: VertexAttribEnumNV; var ¶ms: Int32) :=
     z_GetVertexAttribivNV_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribivNV_ovr_2(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribivNV';
+    private z_GetVertexAttribivNV_ovr_1 := GetFuncOrNil&(z_GetVertexAttribivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribivNV(index: UInt32; pname: VertexAttribEnumNV; ¶ms: IntPtr) :=
-    z_GetVertexAttribivNV_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribivNV_ovr_1(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribPointervNV_ovr_0(index: UInt32; pname: VertexAttribEnumNV; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervNV';
-    private static procedure z_GetVertexAttribPointervNV_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnumNV; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervNV(index: UInt32; pname: VertexAttribEnumNV; _pointer: array of IntPtr) :=
-    if (_pointer<>nil) and (_pointer.Length<>0) then
-      z_GetVertexAttribPointervNV_ovr_0(index, pname, _pointer[0]) else
-      z_GetVertexAttribPointervNV_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribPointervNV_adr := GetFuncAdr('glGetVertexAttribPointervNV');
+    private z_GetVertexAttribPointervNV_ovr_0 := GetFuncOrNil&(z_GetVertexAttribPointervNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervNV(index: UInt32; pname: VertexAttribEnumNV; var _pointer: IntPtr) :=
     z_GetVertexAttribPointervNV_ovr_0(index, pname, _pointer);
-    private static procedure z_GetVertexAttribPointervNV_ovr_2(index: UInt32; pname: VertexAttribEnumNV; _pointer: pointer);
-    external 'opengl32.dll' name 'glGetVertexAttribPointervNV';
+    private z_GetVertexAttribPointervNV_ovr_1 := GetFuncOrNil&(z_GetVertexAttribPointervNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribPointervNV(index: UInt32; pname: VertexAttribEnumNV; _pointer: pointer) :=
-    z_GetVertexAttribPointervNV_ovr_2(index, pname, _pointer);
+    z_GetVertexAttribPointervNV_ovr_1(index, pname, _pointer);
     
-    private static function z_IsProgramNV_ovr_0(id: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsProgramNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramNV(id: UInt32): boolean :=
+    private z_IsProgramNV_adr := GetFuncAdr('glIsProgramNV');
+    private z_IsProgramNV_ovr_0 := GetFuncOrNil&(z_IsProgramNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsProgramNV(id: gl_program): boolean :=
     z_IsProgramNV_ovr_0(id);
     
-    private static procedure z_LoadProgramNV_ovr_0(target: VertexAttribEnumNV; id: UInt32; len: Int32; var &program: Byte);
-    external 'opengl32.dll' name 'glLoadProgramNV';
-    private static procedure z_LoadProgramNV_ovr_0_anh00001(target: VertexAttribEnumNV; id: UInt32; len: Int32; &program: IntPtr);
-    external 'opengl32.dll' name 'glLoadProgramNV';
+    private z_LoadProgramNV_adr := GetFuncAdr('glLoadProgramNV');
+    private z_LoadProgramNV_ovr_0 := GetFuncOrNil&(z_LoadProgramNV_adr);
+    private z_LoadProgramNV_ovr_0_anh00001 := GetFuncOrNil&(z_LoadProgramNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadProgramNV(target: VertexAttribEnumNV; id: UInt32; len: Int32; &program: array of Byte) :=
     if (&program<>nil) and (&program.Length<>0) then
       z_LoadProgramNV_ovr_0(target, id, len, &program[0]) else
       z_LoadProgramNV_ovr_0_anh00001(target, id, len, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadProgramNV(target: VertexAttribEnumNV; id: UInt32; len: Int32; var &program: Byte) :=
     z_LoadProgramNV_ovr_0(target, id, len, &program);
-    private static procedure z_LoadProgramNV_ovr_2(target: VertexAttribEnumNV; id: UInt32; len: Int32; &program: IntPtr);
-    external 'opengl32.dll' name 'glLoadProgramNV';
+    private z_LoadProgramNV_ovr_2 := GetFuncOrNil&(z_LoadProgramNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadProgramNV(target: VertexAttribEnumNV; id: UInt32; len: Int32; &program: IntPtr) :=
     z_LoadProgramNV_ovr_2(target, id, len, &program);
     
-    private static procedure z_ProgramParameter4dNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glProgramParameter4dNV';
+    private z_ProgramParameter4dNV_adr := GetFuncAdr('glProgramParameter4dNV');
+    private z_ProgramParameter4dNV_ovr_0 := GetFuncOrNil&(z_ProgramParameter4dNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4dNV(target: VertexAttribEnumNV; index: UInt32; x: real; y: real; z: real; w: real) :=
     z_ProgramParameter4dNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramParameter4dvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glProgramParameter4dvNV';
-    private static procedure z_ProgramParameter4dvNV_ovr_0_anh0001(target: VertexAttribEnumNV; index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameter4dvNV';
+    private z_ProgramParameter4dvNV_adr := GetFuncAdr('glProgramParameter4dvNV');
+    private z_ProgramParameter4dvNV_ovr_0 := GetFuncOrNil&(z_ProgramParameter4dvNV_adr);
+    private z_ProgramParameter4dvNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramParameter4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4dvNV(target: VertexAttribEnumNV; index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramParameter4dvNV_ovr_0(target, index, v[0]) else
       z_ProgramParameter4dvNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4dvNV(target: VertexAttribEnumNV; index: UInt32; var v: real) :=
     z_ProgramParameter4dvNV_ovr_0(target, index, v);
-    private static procedure z_ProgramParameter4dvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameter4dvNV';
+    private z_ProgramParameter4dvNV_ovr_2 := GetFuncOrNil&(z_ProgramParameter4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4dvNV(target: VertexAttribEnumNV; index: UInt32; v: IntPtr) :=
     z_ProgramParameter4dvNV_ovr_2(target, index, v);
     
-    private static procedure z_ProgramParameter4fNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glProgramParameter4fNV';
+    private z_ProgramParameter4fNV_adr := GetFuncAdr('glProgramParameter4fNV');
+    private z_ProgramParameter4fNV_ovr_0 := GetFuncOrNil&(z_ProgramParameter4fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4fNV(target: VertexAttribEnumNV; index: UInt32; x: single; y: single; z: single; w: single) :=
     z_ProgramParameter4fNV_ovr_0(target, index, x, y, z, w);
     
-    private static procedure z_ProgramParameter4fvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glProgramParameter4fvNV';
-    private static procedure z_ProgramParameter4fvNV_ovr_0_anh0001(target: VertexAttribEnumNV; index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameter4fvNV';
+    private z_ProgramParameter4fvNV_adr := GetFuncAdr('glProgramParameter4fvNV');
+    private z_ProgramParameter4fvNV_ovr_0 := GetFuncOrNil&(z_ProgramParameter4fvNV_adr);
+    private z_ProgramParameter4fvNV_ovr_0_anh0001 := GetFuncOrNil&(z_ProgramParameter4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4fvNV(target: VertexAttribEnumNV; index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramParameter4fvNV_ovr_0(target, index, v[0]) else
       z_ProgramParameter4fvNV_ovr_0_anh0001(target, index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4fvNV(target: VertexAttribEnumNV; index: UInt32; var v: single) :=
     z_ProgramParameter4fvNV_ovr_0(target, index, v);
-    private static procedure z_ProgramParameter4fvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameter4fvNV';
+    private z_ProgramParameter4fvNV_ovr_2 := GetFuncOrNil&(z_ProgramParameter4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameter4fvNV(target: VertexAttribEnumNV; index: UInt32; v: IntPtr) :=
     z_ProgramParameter4fvNV_ovr_2(target, index, v);
     
-    private static procedure z_ProgramParameters4dvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glProgramParameters4dvNV';
-    private static procedure z_ProgramParameters4dvNV_ovr_0_anh00001(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameters4dvNV';
+    private z_ProgramParameters4dvNV_adr := GetFuncAdr('glProgramParameters4dvNV');
+    private z_ProgramParameters4dvNV_ovr_0 := GetFuncOrNil&(z_ProgramParameters4dvNV_adr);
+    private z_ProgramParameters4dvNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramParameters4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4dvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramParameters4dvNV_ovr_0(target, index, count, v[0]) else
       z_ProgramParameters4dvNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4dvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; var v: real) :=
     z_ProgramParameters4dvNV_ovr_0(target, index, count, v);
-    private static procedure z_ProgramParameters4dvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameters4dvNV';
+    private z_ProgramParameters4dvNV_ovr_2 := GetFuncOrNil&(z_ProgramParameters4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4dvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr) :=
     z_ProgramParameters4dvNV_ovr_2(target, index, count, v);
     
-    private static procedure z_ProgramParameters4fvNV_ovr_0(target: VertexAttribEnumNV; index: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glProgramParameters4fvNV';
-    private static procedure z_ProgramParameters4fvNV_ovr_0_anh00001(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameters4fvNV';
+    private z_ProgramParameters4fvNV_adr := GetFuncAdr('glProgramParameters4fvNV');
+    private z_ProgramParameters4fvNV_ovr_0 := GetFuncOrNil&(z_ProgramParameters4fvNV_adr);
+    private z_ProgramParameters4fvNV_ovr_0_anh00001 := GetFuncOrNil&(z_ProgramParameters4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4fvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ProgramParameters4fvNV_ovr_0(target, index, count, v[0]) else
       z_ProgramParameters4fvNV_ovr_0_anh00001(target, index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4fvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; var v: single) :=
     z_ProgramParameters4fvNV_ovr_0(target, index, count, v);
-    private static procedure z_ProgramParameters4fvNV_ovr_2(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glProgramParameters4fvNV';
+    private z_ProgramParameters4fvNV_ovr_2 := GetFuncOrNil&(z_ProgramParameters4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ProgramParameters4fvNV(target: VertexAttribEnumNV; index: UInt32; count: Int32; v: IntPtr) :=
     z_ProgramParameters4fvNV_ovr_2(target, index, count, v);
     
-    private static procedure z_RequestResidentProgramsNV_ovr_0(n: Int32; var programs: UInt32);
-    external 'opengl32.dll' name 'glRequestResidentProgramsNV';
-    private static procedure z_RequestResidentProgramsNV_ovr_0_anh001(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glRequestResidentProgramsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RequestResidentProgramsNV(n: Int32; programs: array of UInt32) :=
+    private z_RequestResidentProgramsNV_adr := GetFuncAdr('glRequestResidentProgramsNV');
+    private z_RequestResidentProgramsNV_ovr_0 := GetFuncOrNil&(z_RequestResidentProgramsNV_adr);
+    private z_RequestResidentProgramsNV_ovr_0_anh001 := GetFuncOrNil&(z_RequestResidentProgramsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RequestResidentProgramsNV(n: Int32; programs: array of gl_program) :=
     if (programs<>nil) and (programs.Length<>0) then
       z_RequestResidentProgramsNV_ovr_0(n, programs[0]) else
       z_RequestResidentProgramsNV_ovr_0_anh001(n, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RequestResidentProgramsNV(n: Int32; var programs: UInt32) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RequestResidentProgramsNV(n: Int32; var programs: gl_program) :=
     z_RequestResidentProgramsNV_ovr_0(n, programs);
-    private static procedure z_RequestResidentProgramsNV_ovr_2(n: Int32; programs: IntPtr);
-    external 'opengl32.dll' name 'glRequestResidentProgramsNV';
+    private z_RequestResidentProgramsNV_ovr_2 := GetFuncOrNil&(z_RequestResidentProgramsNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RequestResidentProgramsNV(n: Int32; programs: IntPtr) :=
     z_RequestResidentProgramsNV_ovr_2(n, programs);
     
-    private static procedure z_TrackMatrixNV_ovr_0(target: VertexAttribEnumNV; address: UInt32; matrix: VertexAttribEnumNV; transform: VertexAttribEnumNV);
-    external 'opengl32.dll' name 'glTrackMatrixNV';
+    private z_TrackMatrixNV_adr := GetFuncAdr('glTrackMatrixNV');
+    private z_TrackMatrixNV_ovr_0 := GetFuncOrNil&(z_TrackMatrixNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TrackMatrixNV(target: VertexAttribEnumNV; address: UInt32; matrix: VertexAttribEnumNV; transform: VertexAttribEnumNV) :=
     z_TrackMatrixNV_ovr_0(target, address, matrix, transform);
     
-    private static procedure z_VertexAttribPointerNV_ovr_0(index: UInt32; fsize: Int32; &type: VertexAttribEnumNV; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribPointerNV';
+    private z_VertexAttribPointerNV_adr := GetFuncAdr('glVertexAttribPointerNV');
+    private z_VertexAttribPointerNV_ovr_0 := GetFuncOrNil&(z_VertexAttribPointerNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribPointerNV(index: UInt32; fsize: Int32; &type: VertexAttribEnumNV; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribPointerNV_ovr_0(index, fsize, &type, stride, pointer);
     
-    private static procedure z_VertexAttrib1dNV_ovr_0(index: UInt32; x: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dNV';
+    private z_VertexAttrib1dNV_adr := GetFuncAdr('glVertexAttrib1dNV');
+    private z_VertexAttrib1dNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dNV(index: UInt32; x: real) :=
     z_VertexAttrib1dNV_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1dvNV_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib1dvNV';
-    private static procedure z_VertexAttrib1dvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvNV(index: UInt32; v: array of real) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1dvNV_ovr_0(index, v[0]) else
-      z_VertexAttrib1dvNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1dvNV_adr := GetFuncAdr('glVertexAttrib1dvNV');
+    private z_VertexAttrib1dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvNV(index: UInt32; var v: real) :=
     z_VertexAttrib1dvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib1dvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1dvNV';
+    private z_VertexAttrib1dvNV_ovr_1 := GetFuncOrNil&(z_VertexAttrib1dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1dvNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1dvNV_ovr_2(index, v);
+    z_VertexAttrib1dvNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1fNV_ovr_0(index: UInt32; x: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fNV';
+    private z_VertexAttrib1fNV_adr := GetFuncAdr('glVertexAttrib1fNV');
+    private z_VertexAttrib1fNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fNV(index: UInt32; x: single) :=
     z_VertexAttrib1fNV_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1fvNV_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib1fvNV';
-    private static procedure z_VertexAttrib1fvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvNV(index: UInt32; v: array of single) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1fvNV_ovr_0(index, v[0]) else
-      z_VertexAttrib1fvNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1fvNV_adr := GetFuncAdr('glVertexAttrib1fvNV');
+    private z_VertexAttrib1fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvNV(index: UInt32; var v: single) :=
     z_VertexAttrib1fvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib1fvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1fvNV';
+    private z_VertexAttrib1fvNV_ovr_1 := GetFuncOrNil&(z_VertexAttrib1fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1fvNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1fvNV_ovr_2(index, v);
+    z_VertexAttrib1fvNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib1sNV_ovr_0(index: UInt32; x: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1sNV';
+    private z_VertexAttrib1sNV_adr := GetFuncAdr('glVertexAttrib1sNV');
+    private z_VertexAttrib1sNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1sNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1sNV(index: UInt32; x: Int16) :=
     z_VertexAttrib1sNV_ovr_0(index, x);
     
-    private static procedure z_VertexAttrib1svNV_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib1svNV';
-    private static procedure z_VertexAttrib1svNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svNV(index: UInt32; v: array of Int16) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttrib1svNV_ovr_0(index, v[0]) else
-      z_VertexAttrib1svNV_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttrib1svNV_adr := GetFuncAdr('glVertexAttrib1svNV');
+    private z_VertexAttrib1svNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib1svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svNV(index: UInt32; var v: Int16) :=
     z_VertexAttrib1svNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib1svNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib1svNV';
+    private z_VertexAttrib1svNV_ovr_1 := GetFuncOrNil&(z_VertexAttrib1svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib1svNV(index: UInt32; v: IntPtr) :=
-    z_VertexAttrib1svNV_ovr_2(index, v);
+    z_VertexAttrib1svNV_ovr_1(index, v);
     
-    private static procedure z_VertexAttrib2dNV_ovr_0(index: UInt32; x: real; y: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dNV';
+    private z_VertexAttrib2dNV_adr := GetFuncAdr('glVertexAttrib2dNV');
+    private z_VertexAttrib2dNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dNV(index: UInt32; x: real; y: real) :=
     z_VertexAttrib2dNV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2dvNV_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib2dvNV';
-    private static procedure z_VertexAttrib2dvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvNV';
+    private z_VertexAttrib2dvNV_adr := GetFuncAdr('glVertexAttrib2dvNV');
+    private z_VertexAttrib2dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2dvNV_adr);
+    private z_VertexAttrib2dvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvNV(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2dvNV_ovr_0(index, v[0]) else
       z_VertexAttrib2dvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvNV(index: UInt32; var v: real) :=
     z_VertexAttrib2dvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib2dvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2dvNV';
+    private z_VertexAttrib2dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib2dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2dvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2dvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2fNV_ovr_0(index: UInt32; x: single; y: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fNV';
+    private z_VertexAttrib2fNV_adr := GetFuncAdr('glVertexAttrib2fNV');
+    private z_VertexAttrib2fNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fNV(index: UInt32; x: single; y: single) :=
     z_VertexAttrib2fNV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2fvNV_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib2fvNV';
-    private static procedure z_VertexAttrib2fvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvNV';
+    private z_VertexAttrib2fvNV_adr := GetFuncAdr('glVertexAttrib2fvNV');
+    private z_VertexAttrib2fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2fvNV_adr);
+    private z_VertexAttrib2fvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvNV(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2fvNV_ovr_0(index, v[0]) else
       z_VertexAttrib2fvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvNV(index: UInt32; var v: single) :=
     z_VertexAttrib2fvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib2fvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2fvNV';
+    private z_VertexAttrib2fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib2fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2fvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2fvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib2sNV_ovr_0(index: UInt32; x: Int16; y: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2sNV';
+    private z_VertexAttrib2sNV_adr := GetFuncAdr('glVertexAttrib2sNV');
+    private z_VertexAttrib2sNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2sNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2sNV(index: UInt32; x: Int16; y: Int16) :=
     z_VertexAttrib2sNV_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttrib2svNV_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib2svNV';
-    private static procedure z_VertexAttrib2svNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svNV';
+    private z_VertexAttrib2svNV_adr := GetFuncAdr('glVertexAttrib2svNV');
+    private z_VertexAttrib2svNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib2svNV_adr);
+    private z_VertexAttrib2svNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib2svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svNV(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib2svNV_ovr_0(index, v[0]) else
       z_VertexAttrib2svNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svNV(index: UInt32; var v: Int16) :=
     z_VertexAttrib2svNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib2svNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib2svNV';
+    private z_VertexAttrib2svNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib2svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib2svNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib2svNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3dNV_ovr_0(index: UInt32; x: real; y: real; z: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dNV';
+    private z_VertexAttrib3dNV_adr := GetFuncAdr('glVertexAttrib3dNV');
+    private z_VertexAttrib3dNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dNV(index: UInt32; x: real; y: real; z: real) :=
     z_VertexAttrib3dNV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3dvNV_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib3dvNV';
-    private static procedure z_VertexAttrib3dvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvNV';
+    private z_VertexAttrib3dvNV_adr := GetFuncAdr('glVertexAttrib3dvNV');
+    private z_VertexAttrib3dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3dvNV_adr);
+    private z_VertexAttrib3dvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvNV(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3dvNV_ovr_0(index, v[0]) else
       z_VertexAttrib3dvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvNV(index: UInt32; var v: real) :=
     z_VertexAttrib3dvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib3dvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3dvNV';
+    private z_VertexAttrib3dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib3dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3dvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3dvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3fNV_ovr_0(index: UInt32; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fNV';
+    private z_VertexAttrib3fNV_adr := GetFuncAdr('glVertexAttrib3fNV');
+    private z_VertexAttrib3fNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fNV(index: UInt32; x: single; y: single; z: single) :=
     z_VertexAttrib3fNV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3fvNV_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib3fvNV';
-    private static procedure z_VertexAttrib3fvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvNV';
+    private z_VertexAttrib3fvNV_adr := GetFuncAdr('glVertexAttrib3fvNV');
+    private z_VertexAttrib3fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3fvNV_adr);
+    private z_VertexAttrib3fvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvNV(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3fvNV_ovr_0(index, v[0]) else
       z_VertexAttrib3fvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvNV(index: UInt32; var v: single) :=
     z_VertexAttrib3fvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib3fvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3fvNV';
+    private z_VertexAttrib3fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib3fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3fvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3fvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib3sNV_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3sNV';
+    private z_VertexAttrib3sNV_adr := GetFuncAdr('glVertexAttrib3sNV');
+    private z_VertexAttrib3sNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3sNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3sNV(index: UInt32; x: Int16; y: Int16; z: Int16) :=
     z_VertexAttrib3sNV_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttrib3svNV_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib3svNV';
-    private static procedure z_VertexAttrib3svNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svNV';
+    private z_VertexAttrib3svNV_adr := GetFuncAdr('glVertexAttrib3svNV');
+    private z_VertexAttrib3svNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib3svNV_adr);
+    private z_VertexAttrib3svNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib3svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svNV(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib3svNV_ovr_0(index, v[0]) else
       z_VertexAttrib3svNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svNV(index: UInt32; var v: Int16) :=
     z_VertexAttrib3svNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib3svNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib3svNV';
+    private z_VertexAttrib3svNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib3svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib3svNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib3svNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4dNV_ovr_0(index: UInt32; x: real; y: real; z: real; w: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dNV';
+    private z_VertexAttrib4dNV_adr := GetFuncAdr('glVertexAttrib4dNV');
+    private z_VertexAttrib4dNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dNV(index: UInt32; x: real; y: real; z: real; w: real) :=
     z_VertexAttrib4dNV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4dvNV_ovr_0(index: UInt32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttrib4dvNV';
-    private static procedure z_VertexAttrib4dvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvNV';
+    private z_VertexAttrib4dvNV_adr := GetFuncAdr('glVertexAttrib4dvNV');
+    private z_VertexAttrib4dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4dvNV_adr);
+    private z_VertexAttrib4dvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvNV(index: UInt32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4dvNV_ovr_0(index, v[0]) else
       z_VertexAttrib4dvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvNV(index: UInt32; var v: real) :=
     z_VertexAttrib4dvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib4dvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4dvNV';
+    private z_VertexAttrib4dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4dvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4dvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4fNV_ovr_0(index: UInt32; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fNV';
+    private z_VertexAttrib4fNV_adr := GetFuncAdr('glVertexAttrib4fNV');
+    private z_VertexAttrib4fNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fNV(index: UInt32; x: single; y: single; z: single; w: single) :=
     z_VertexAttrib4fNV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4fvNV_ovr_0(index: UInt32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttrib4fvNV';
-    private static procedure z_VertexAttrib4fvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvNV';
+    private z_VertexAttrib4fvNV_adr := GetFuncAdr('glVertexAttrib4fvNV');
+    private z_VertexAttrib4fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4fvNV_adr);
+    private z_VertexAttrib4fvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvNV(index: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4fvNV_ovr_0(index, v[0]) else
       z_VertexAttrib4fvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvNV(index: UInt32; var v: single) :=
     z_VertexAttrib4fvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib4fvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4fvNV';
+    private z_VertexAttrib4fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4fvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4fvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4sNV_ovr_0(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4sNV';
+    private z_VertexAttrib4sNV_adr := GetFuncAdr('glVertexAttrib4sNV');
+    private z_VertexAttrib4sNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4sNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4sNV(index: UInt32; x: Int16; y: Int16; z: Int16; w: Int16) :=
     z_VertexAttrib4sNV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4svNV_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttrib4svNV';
-    private static procedure z_VertexAttrib4svNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svNV';
+    private z_VertexAttrib4svNV_adr := GetFuncAdr('glVertexAttrib4svNV');
+    private z_VertexAttrib4svNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4svNV_adr);
+    private z_VertexAttrib4svNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svNV(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4svNV_ovr_0(index, v[0]) else
       z_VertexAttrib4svNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svNV(index: UInt32; var v: Int16) :=
     z_VertexAttrib4svNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib4svNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4svNV';
+    private z_VertexAttrib4svNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib4svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4svNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4svNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttrib4ubNV_ovr_0(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4ubNV';
+    private z_VertexAttrib4ubNV_adr := GetFuncAdr('glVertexAttrib4ubNV');
+    private z_VertexAttrib4ubNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ubNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubNV(index: UInt32; x: Byte; y: Byte; z: Byte; w: Byte) :=
     z_VertexAttrib4ubNV_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttrib4ubvNV_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvNV';
-    private static procedure z_VertexAttrib4ubvNV_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvNV';
+    private z_VertexAttrib4ubvNV_adr := GetFuncAdr('glVertexAttrib4ubvNV');
+    private z_VertexAttrib4ubvNV_ovr_0 := GetFuncOrNil&(z_VertexAttrib4ubvNV_adr);
+    private z_VertexAttrib4ubvNV_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttrib4ubvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvNV(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttrib4ubvNV_ovr_0(index, v[0]) else
       z_VertexAttrib4ubvNV_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvNV(index: UInt32; var v: Byte) :=
     z_VertexAttrib4ubvNV_ovr_0(index, v);
-    private static procedure z_VertexAttrib4ubvNV_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttrib4ubvNV';
+    private z_VertexAttrib4ubvNV_ovr_2 := GetFuncOrNil&(z_VertexAttrib4ubvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttrib4ubvNV(index: UInt32; v: IntPtr) :=
     z_VertexAttrib4ubvNV_ovr_2(index, v);
     
-    private static procedure z_VertexAttribs1dvNV_ovr_0(index: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribs1dvNV';
-    private static procedure z_VertexAttribs1dvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1dvNV';
+    private z_VertexAttribs1dvNV_adr := GetFuncAdr('glVertexAttribs1dvNV');
+    private z_VertexAttribs1dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs1dvNV_adr);
+    private z_VertexAttribs1dvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs1dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1dvNV(index: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs1dvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs1dvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1dvNV(index: UInt32; count: Int32; var v: real) :=
     z_VertexAttribs1dvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs1dvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1dvNV';
+    private z_VertexAttribs1dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs1dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1dvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs1dvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs1fvNV_ovr_0(index: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttribs1fvNV';
-    private static procedure z_VertexAttribs1fvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1fvNV';
+    private z_VertexAttribs1fvNV_adr := GetFuncAdr('glVertexAttribs1fvNV');
+    private z_VertexAttribs1fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs1fvNV_adr);
+    private z_VertexAttribs1fvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs1fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1fvNV(index: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs1fvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs1fvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1fvNV(index: UInt32; count: Int32; var v: single) :=
     z_VertexAttribs1fvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs1fvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1fvNV';
+    private z_VertexAttribs1fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs1fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1fvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs1fvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs1svNV_ovr_0(index: UInt32; count: Int32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttribs1svNV';
-    private static procedure z_VertexAttribs1svNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1svNV';
+    private z_VertexAttribs1svNV_adr := GetFuncAdr('glVertexAttribs1svNV');
+    private z_VertexAttribs1svNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs1svNV_adr);
+    private z_VertexAttribs1svNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs1svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1svNV(index: UInt32; count: Int32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs1svNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs1svNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1svNV(index: UInt32; count: Int32; var v: Int16) :=
     z_VertexAttribs1svNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs1svNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs1svNV';
+    private z_VertexAttribs1svNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs1svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs1svNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs1svNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs2dvNV_ovr_0(index: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribs2dvNV';
-    private static procedure z_VertexAttribs2dvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2dvNV';
+    private z_VertexAttribs2dvNV_adr := GetFuncAdr('glVertexAttribs2dvNV');
+    private z_VertexAttribs2dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs2dvNV_adr);
+    private z_VertexAttribs2dvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs2dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2dvNV(index: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs2dvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs2dvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2dvNV(index: UInt32; count: Int32; var v: real) :=
     z_VertexAttribs2dvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs2dvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2dvNV';
+    private z_VertexAttribs2dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs2dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2dvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs2dvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs2fvNV_ovr_0(index: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttribs2fvNV';
-    private static procedure z_VertexAttribs2fvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2fvNV';
+    private z_VertexAttribs2fvNV_adr := GetFuncAdr('glVertexAttribs2fvNV');
+    private z_VertexAttribs2fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs2fvNV_adr);
+    private z_VertexAttribs2fvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs2fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2fvNV(index: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs2fvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs2fvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2fvNV(index: UInt32; count: Int32; var v: single) :=
     z_VertexAttribs2fvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs2fvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2fvNV';
+    private z_VertexAttribs2fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs2fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2fvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs2fvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs2svNV_ovr_0(index: UInt32; count: Int32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttribs2svNV';
-    private static procedure z_VertexAttribs2svNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2svNV';
+    private z_VertexAttribs2svNV_adr := GetFuncAdr('glVertexAttribs2svNV');
+    private z_VertexAttribs2svNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs2svNV_adr);
+    private z_VertexAttribs2svNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs2svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2svNV(index: UInt32; count: Int32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs2svNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs2svNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2svNV(index: UInt32; count: Int32; var v: Int16) :=
     z_VertexAttribs2svNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs2svNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs2svNV';
+    private z_VertexAttribs2svNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs2svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs2svNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs2svNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs3dvNV_ovr_0(index: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribs3dvNV';
-    private static procedure z_VertexAttribs3dvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3dvNV';
+    private z_VertexAttribs3dvNV_adr := GetFuncAdr('glVertexAttribs3dvNV');
+    private z_VertexAttribs3dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs3dvNV_adr);
+    private z_VertexAttribs3dvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs3dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3dvNV(index: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs3dvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs3dvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3dvNV(index: UInt32; count: Int32; var v: real) :=
     z_VertexAttribs3dvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs3dvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3dvNV';
+    private z_VertexAttribs3dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs3dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3dvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs3dvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs3fvNV_ovr_0(index: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttribs3fvNV';
-    private static procedure z_VertexAttribs3fvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3fvNV';
+    private z_VertexAttribs3fvNV_adr := GetFuncAdr('glVertexAttribs3fvNV');
+    private z_VertexAttribs3fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs3fvNV_adr);
+    private z_VertexAttribs3fvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs3fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3fvNV(index: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs3fvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs3fvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3fvNV(index: UInt32; count: Int32; var v: single) :=
     z_VertexAttribs3fvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs3fvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3fvNV';
+    private z_VertexAttribs3fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs3fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3fvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs3fvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs3svNV_ovr_0(index: UInt32; count: Int32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttribs3svNV';
-    private static procedure z_VertexAttribs3svNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3svNV';
+    private z_VertexAttribs3svNV_adr := GetFuncAdr('glVertexAttribs3svNV');
+    private z_VertexAttribs3svNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs3svNV_adr);
+    private z_VertexAttribs3svNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs3svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3svNV(index: UInt32; count: Int32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs3svNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs3svNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3svNV(index: UInt32; count: Int32; var v: Int16) :=
     z_VertexAttribs3svNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs3svNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs3svNV';
+    private z_VertexAttribs3svNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs3svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs3svNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs3svNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs4dvNV_ovr_0(index: UInt32; count: Int32; var v: real);
-    external 'opengl32.dll' name 'glVertexAttribs4dvNV';
-    private static procedure z_VertexAttribs4dvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4dvNV';
+    private z_VertexAttribs4dvNV_adr := GetFuncAdr('glVertexAttribs4dvNV');
+    private z_VertexAttribs4dvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs4dvNV_adr);
+    private z_VertexAttribs4dvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4dvNV(index: UInt32; count: Int32; v: array of real) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs4dvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs4dvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4dvNV(index: UInt32; count: Int32; var v: real) :=
     z_VertexAttribs4dvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs4dvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4dvNV';
+    private z_VertexAttribs4dvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs4dvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4dvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs4dvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs4fvNV_ovr_0(index: UInt32; count: Int32; var v: single);
-    external 'opengl32.dll' name 'glVertexAttribs4fvNV';
-    private static procedure z_VertexAttribs4fvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4fvNV';
+    private z_VertexAttribs4fvNV_adr := GetFuncAdr('glVertexAttribs4fvNV');
+    private z_VertexAttribs4fvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs4fvNV_adr);
+    private z_VertexAttribs4fvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4fvNV(index: UInt32; count: Int32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs4fvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs4fvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4fvNV(index: UInt32; count: Int32; var v: single) :=
     z_VertexAttribs4fvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs4fvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4fvNV';
+    private z_VertexAttribs4fvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs4fvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4fvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs4fvNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs4svNV_ovr_0(index: UInt32; count: Int32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttribs4svNV';
-    private static procedure z_VertexAttribs4svNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4svNV';
+    private z_VertexAttribs4svNV_adr := GetFuncAdr('glVertexAttribs4svNV');
+    private z_VertexAttribs4svNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs4svNV_adr);
+    private z_VertexAttribs4svNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs4svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4svNV(index: UInt32; count: Int32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs4svNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs4svNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4svNV(index: UInt32; count: Int32; var v: Int16) :=
     z_VertexAttribs4svNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs4svNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4svNV';
+    private z_VertexAttribs4svNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs4svNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4svNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs4svNV_ovr_2(index, count, v);
     
-    private static procedure z_VertexAttribs4ubvNV_ovr_0(index: UInt32; count: Int32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttribs4ubvNV';
-    private static procedure z_VertexAttribs4ubvNV_ovr_0_anh0001(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4ubvNV';
+    private z_VertexAttribs4ubvNV_adr := GetFuncAdr('glVertexAttribs4ubvNV');
+    private z_VertexAttribs4ubvNV_ovr_0 := GetFuncOrNil&(z_VertexAttribs4ubvNV_adr);
+    private z_VertexAttribs4ubvNV_ovr_0_anh0001 := GetFuncOrNil&(z_VertexAttribs4ubvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4ubvNV(index: UInt32; count: Int32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribs4ubvNV_ovr_0(index, count, v[0]) else
       z_VertexAttribs4ubvNV_ovr_0_anh0001(index, count, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4ubvNV(index: UInt32; count: Int32; var v: Byte) :=
     z_VertexAttribs4ubvNV_ovr_0(index, count, v);
-    private static procedure z_VertexAttribs4ubvNV_ovr_2(index: UInt32; count: Int32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribs4ubvNV';
+    private z_VertexAttribs4ubvNV_ovr_2 := GetFuncOrNil&(z_VertexAttribs4ubvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribs4ubvNV(index: UInt32; count: Int32; v: IntPtr) :=
     z_VertexAttribs4ubvNV_ovr_2(index, count, v);
     
   end;
   
   [PCUNotRestore]
-  glVertexProgram4NV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexProgram4NV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_program4';
     
-    private static procedure z_VertexAttribI1iEXT_ovr_0(index: UInt32; x: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI1iEXT';
+    private z_VertexAttribI1iEXT_adr := GetFuncAdr('glVertexAttribI1iEXT');
+    private z_VertexAttribI1iEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI1iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1iEXT(index: UInt32; x: Int32) :=
     z_VertexAttribI1iEXT_ovr_0(index, x);
     
-    private static procedure z_VertexAttribI2iEXT_ovr_0(index: UInt32; x: Int32; y: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI2iEXT';
+    private z_VertexAttribI2iEXT_adr := GetFuncAdr('glVertexAttribI2iEXT');
+    private z_VertexAttribI2iEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI2iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2iEXT(index: UInt32; x: Int32; y: Int32) :=
     z_VertexAttribI2iEXT_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribI3iEXT_ovr_0(index: UInt32; x: Int32; y: Int32; z: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI3iEXT';
+    private z_VertexAttribI3iEXT_adr := GetFuncAdr('glVertexAttribI3iEXT');
+    private z_VertexAttribI3iEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI3iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3iEXT(index: UInt32; x: Int32; y: Int32; z: Int32) :=
     z_VertexAttribI3iEXT_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribI4iEXT_ovr_0(index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI4iEXT';
+    private z_VertexAttribI4iEXT_adr := GetFuncAdr('glVertexAttribI4iEXT');
+    private z_VertexAttribI4iEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4iEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4iEXT(index: UInt32; x: Int32; y: Int32; z: Int32; w: Int32) :=
     z_VertexAttribI4iEXT_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribI1uiEXT_ovr_0(index: UInt32; x: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI1uiEXT';
+    private z_VertexAttribI1uiEXT_adr := GetFuncAdr('glVertexAttribI1uiEXT');
+    private z_VertexAttribI1uiEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI1uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uiEXT(index: UInt32; x: UInt32) :=
     z_VertexAttribI1uiEXT_ovr_0(index, x);
     
-    private static procedure z_VertexAttribI2uiEXT_ovr_0(index: UInt32; x: UInt32; y: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI2uiEXT';
+    private z_VertexAttribI2uiEXT_adr := GetFuncAdr('glVertexAttribI2uiEXT');
+    private z_VertexAttribI2uiEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI2uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2uiEXT(index: UInt32; x: UInt32; y: UInt32) :=
     z_VertexAttribI2uiEXT_ovr_0(index, x, y);
     
-    private static procedure z_VertexAttribI3uiEXT_ovr_0(index: UInt32; x: UInt32; y: UInt32; z: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI3uiEXT';
+    private z_VertexAttribI3uiEXT_adr := GetFuncAdr('glVertexAttribI3uiEXT');
+    private z_VertexAttribI3uiEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI3uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3uiEXT(index: UInt32; x: UInt32; y: UInt32; z: UInt32) :=
     z_VertexAttribI3uiEXT_ovr_0(index, x, y, z);
     
-    private static procedure z_VertexAttribI4uiEXT_ovr_0(index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI4uiEXT';
+    private z_VertexAttribI4uiEXT_adr := GetFuncAdr('glVertexAttribI4uiEXT');
+    private z_VertexAttribI4uiEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4uiEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4uiEXT(index: UInt32; x: UInt32; y: UInt32; z: UInt32; w: UInt32) :=
     z_VertexAttribI4uiEXT_ovr_0(index, x, y, z, w);
     
-    private static procedure z_VertexAttribI1ivEXT_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI1ivEXT';
-    private static procedure z_VertexAttribI1ivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI1ivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1ivEXT(index: UInt32; v: array of Int32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribI1ivEXT_ovr_0(index, v[0]) else
-      z_VertexAttribI1ivEXT_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribI1ivEXT_adr := GetFuncAdr('glVertexAttribI1ivEXT');
+    private z_VertexAttribI1ivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI1ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1ivEXT(index: UInt32; var v: Int32) :=
     z_VertexAttribI1ivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI1ivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI1ivEXT';
+    private z_VertexAttribI1ivEXT_ovr_1 := GetFuncOrNil&(z_VertexAttribI1ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1ivEXT(index: UInt32; v: IntPtr) :=
-    z_VertexAttribI1ivEXT_ovr_2(index, v);
+    z_VertexAttribI1ivEXT_ovr_1(index, v);
     
-    private static procedure z_VertexAttribI2ivEXT_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI2ivEXT';
-    private static procedure z_VertexAttribI2ivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI2ivEXT';
+    private z_VertexAttribI2ivEXT_adr := GetFuncAdr('glVertexAttribI2ivEXT');
+    private z_VertexAttribI2ivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI2ivEXT_adr);
+    private z_VertexAttribI2ivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI2ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2ivEXT(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI2ivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI2ivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2ivEXT(index: UInt32; var v: Int32) :=
     z_VertexAttribI2ivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI2ivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI2ivEXT';
+    private z_VertexAttribI2ivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI2ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2ivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI2ivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI3ivEXT_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI3ivEXT';
-    private static procedure z_VertexAttribI3ivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI3ivEXT';
+    private z_VertexAttribI3ivEXT_adr := GetFuncAdr('glVertexAttribI3ivEXT');
+    private z_VertexAttribI3ivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI3ivEXT_adr);
+    private z_VertexAttribI3ivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3ivEXT(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI3ivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI3ivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3ivEXT(index: UInt32; var v: Int32) :=
     z_VertexAttribI3ivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI3ivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI3ivEXT';
+    private z_VertexAttribI3ivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI3ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3ivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI3ivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4ivEXT_ovr_0(index: UInt32; var v: Int32);
-    external 'opengl32.dll' name 'glVertexAttribI4ivEXT';
-    private static procedure z_VertexAttribI4ivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4ivEXT';
+    private z_VertexAttribI4ivEXT_adr := GetFuncAdr('glVertexAttribI4ivEXT');
+    private z_VertexAttribI4ivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4ivEXT_adr);
+    private z_VertexAttribI4ivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ivEXT(index: UInt32; v: array of Int32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4ivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4ivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ivEXT(index: UInt32; var v: Int32) :=
     z_VertexAttribI4ivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4ivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4ivEXT';
+    private z_VertexAttribI4ivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4ivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4ivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI1uivEXT_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI1uivEXT';
-    private static procedure z_VertexAttribI1uivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI1uivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uivEXT(index: UInt32; v: array of UInt32) :=
-    if (v<>nil) and (v.Length<>0) then
-      z_VertexAttribI1uivEXT_ovr_0(index, v[0]) else
-      z_VertexAttribI1uivEXT_ovr_0_anh001(index, IntPtr.Zero);
+    private z_VertexAttribI1uivEXT_adr := GetFuncAdr('glVertexAttribI1uivEXT');
+    private z_VertexAttribI1uivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI1uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uivEXT(index: UInt32; var v: UInt32) :=
     z_VertexAttribI1uivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI1uivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI1uivEXT';
+    private z_VertexAttribI1uivEXT_ovr_1 := GetFuncOrNil&(z_VertexAttribI1uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI1uivEXT(index: UInt32; v: IntPtr) :=
-    z_VertexAttribI1uivEXT_ovr_2(index, v);
+    z_VertexAttribI1uivEXT_ovr_1(index, v);
     
-    private static procedure z_VertexAttribI2uivEXT_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI2uivEXT';
-    private static procedure z_VertexAttribI2uivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI2uivEXT';
+    private z_VertexAttribI2uivEXT_adr := GetFuncAdr('glVertexAttribI2uivEXT');
+    private z_VertexAttribI2uivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI2uivEXT_adr);
+    private z_VertexAttribI2uivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI2uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2uivEXT(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI2uivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI2uivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2uivEXT(index: UInt32; var v: UInt32) :=
     z_VertexAttribI2uivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI2uivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI2uivEXT';
+    private z_VertexAttribI2uivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI2uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI2uivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI2uivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI3uivEXT_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI3uivEXT';
-    private static procedure z_VertexAttribI3uivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI3uivEXT';
+    private z_VertexAttribI3uivEXT_adr := GetFuncAdr('glVertexAttribI3uivEXT');
+    private z_VertexAttribI3uivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI3uivEXT_adr);
+    private z_VertexAttribI3uivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3uivEXT(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI3uivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI3uivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3uivEXT(index: UInt32; var v: UInt32) :=
     z_VertexAttribI3uivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI3uivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI3uivEXT';
+    private z_VertexAttribI3uivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI3uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI3uivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI3uivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4uivEXT_ovr_0(index: UInt32; var v: UInt32);
-    external 'opengl32.dll' name 'glVertexAttribI4uivEXT';
-    private static procedure z_VertexAttribI4uivEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4uivEXT';
+    private z_VertexAttribI4uivEXT_adr := GetFuncAdr('glVertexAttribI4uivEXT');
+    private z_VertexAttribI4uivEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4uivEXT_adr);
+    private z_VertexAttribI4uivEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4uivEXT(index: UInt32; v: array of UInt32) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4uivEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4uivEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4uivEXT(index: UInt32; var v: UInt32) :=
     z_VertexAttribI4uivEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4uivEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4uivEXT';
+    private z_VertexAttribI4uivEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4uivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4uivEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4uivEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4bvEXT_ovr_0(index: UInt32; var v: SByte);
-    external 'opengl32.dll' name 'glVertexAttribI4bvEXT';
-    private static procedure z_VertexAttribI4bvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4bvEXT';
+    private z_VertexAttribI4bvEXT_adr := GetFuncAdr('glVertexAttribI4bvEXT');
+    private z_VertexAttribI4bvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4bvEXT_adr);
+    private z_VertexAttribI4bvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4bvEXT(index: UInt32; v: array of SByte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4bvEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4bvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4bvEXT(index: UInt32; var v: SByte) :=
     z_VertexAttribI4bvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4bvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4bvEXT';
+    private z_VertexAttribI4bvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4bvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4bvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4bvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4svEXT_ovr_0(index: UInt32; var v: Int16);
-    external 'opengl32.dll' name 'glVertexAttribI4svEXT';
-    private static procedure z_VertexAttribI4svEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4svEXT';
+    private z_VertexAttribI4svEXT_adr := GetFuncAdr('glVertexAttribI4svEXT');
+    private z_VertexAttribI4svEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4svEXT_adr);
+    private z_VertexAttribI4svEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4svEXT(index: UInt32; v: array of Int16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4svEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4svEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4svEXT(index: UInt32; var v: Int16) :=
     z_VertexAttribI4svEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4svEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4svEXT';
+    private z_VertexAttribI4svEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4svEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4svEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4svEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4ubvEXT_ovr_0(index: UInt32; var v: Byte);
-    external 'opengl32.dll' name 'glVertexAttribI4ubvEXT';
-    private static procedure z_VertexAttribI4ubvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4ubvEXT';
+    private z_VertexAttribI4ubvEXT_adr := GetFuncAdr('glVertexAttribI4ubvEXT');
+    private z_VertexAttribI4ubvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4ubvEXT_adr);
+    private z_VertexAttribI4ubvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4ubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ubvEXT(index: UInt32; v: array of Byte) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4ubvEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4ubvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ubvEXT(index: UInt32; var v: Byte) :=
     z_VertexAttribI4ubvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4ubvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4ubvEXT';
+    private z_VertexAttribI4ubvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4ubvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4ubvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4ubvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribI4usvEXT_ovr_0(index: UInt32; var v: UInt16);
-    external 'opengl32.dll' name 'glVertexAttribI4usvEXT';
-    private static procedure z_VertexAttribI4usvEXT_ovr_0_anh001(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4usvEXT';
+    private z_VertexAttribI4usvEXT_adr := GetFuncAdr('glVertexAttribI4usvEXT');
+    private z_VertexAttribI4usvEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribI4usvEXT_adr);
+    private z_VertexAttribI4usvEXT_ovr_0_anh001 := GetFuncOrNil&(z_VertexAttribI4usvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4usvEXT(index: UInt32; v: array of UInt16) :=
     if (v<>nil) and (v.Length<>0) then
       z_VertexAttribI4usvEXT_ovr_0(index, v[0]) else
       z_VertexAttribI4usvEXT_ovr_0_anh001(index, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4usvEXT(index: UInt32; var v: UInt16) :=
     z_VertexAttribI4usvEXT_ovr_0(index, v);
-    private static procedure z_VertexAttribI4usvEXT_ovr_2(index: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribI4usvEXT';
+    private z_VertexAttribI4usvEXT_ovr_2 := GetFuncOrNil&(z_VertexAttribI4usvEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribI4usvEXT(index: UInt32; v: IntPtr) :=
     z_VertexAttribI4usvEXT_ovr_2(index, v);
     
-    private static procedure z_VertexAttribIPointerEXT_ovr_0(index: UInt32; size: Int32; &type: VertexAttribIType; stride: Int32; pointer: IntPtr);
-    external 'opengl32.dll' name 'glVertexAttribIPointerEXT';
+    private z_VertexAttribIPointerEXT_adr := GetFuncAdr('glVertexAttribIPointerEXT');
+    private z_VertexAttribIPointerEXT_ovr_0 := GetFuncOrNil&(z_VertexAttribIPointerEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VertexAttribIPointerEXT(index: UInt32; size: Int32; &type: VertexAttribIType; stride: Int32; pointer: IntPtr) :=
     z_VertexAttribIPointerEXT_ovr_0(index, size, &type, stride, pointer);
     
-    private static procedure z_GetVertexAttribIivEXT_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVertexAttribIivEXT';
-    private static procedure z_GetVertexAttribIivEXT_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribIivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIivEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: array of Int32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribIivEXT_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribIivEXT_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribIivEXT_adr := GetFuncAdr('glGetVertexAttribIivEXT');
+    private z_GetVertexAttribIivEXT_ovr_0 := GetFuncOrNil&(z_GetVertexAttribIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIivEXT(index: UInt32; pname: VertexAttribEnum; var ¶ms: Int32) :=
     z_GetVertexAttribIivEXT_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribIivEXT_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribIivEXT';
+    private z_GetVertexAttribIivEXT_ovr_1 := GetFuncOrNil&(z_GetVertexAttribIivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIivEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
-    z_GetVertexAttribIivEXT_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribIivEXT_ovr_1(index, pname, ¶ms);
     
-    private static procedure z_GetVertexAttribIuivEXT_ovr_0(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt32);
-    external 'opengl32.dll' name 'glGetVertexAttribIuivEXT';
-    private static procedure z_GetVertexAttribIuivEXT_ovr_0_anh0001(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribIuivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuivEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: array of UInt32) :=
-    if (¶ms<>nil) and (¶ms.Length<>0) then
-      z_GetVertexAttribIuivEXT_ovr_0(index, pname, ¶ms[0]) else
-      z_GetVertexAttribIuivEXT_ovr_0_anh0001(index, pname, IntPtr.Zero);
+    private z_GetVertexAttribIuivEXT_adr := GetFuncAdr('glGetVertexAttribIuivEXT');
+    private z_GetVertexAttribIuivEXT_ovr_0 := GetFuncOrNil&(z_GetVertexAttribIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuivEXT(index: UInt32; pname: VertexAttribEnum; var ¶ms: UInt32) :=
     z_GetVertexAttribIuivEXT_ovr_0(index, pname, ¶ms);
-    private static procedure z_GetVertexAttribIuivEXT_ovr_2(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVertexAttribIuivEXT';
+    private z_GetVertexAttribIuivEXT_ovr_1 := GetFuncOrNil&(z_GetVertexAttribIuivEXT_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVertexAttribIuivEXT(index: UInt32; pname: VertexAttribEnum; ¶ms: IntPtr) :=
-    z_GetVertexAttribIuivEXT_ovr_2(index, pname, ¶ms);
+    z_GetVertexAttribIuivEXT_ovr_1(index, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glVideoCaptureNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVideoCaptureNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_video_capture';
     
-    private static procedure z_BeginVideoCaptureNV_ovr_0(video_capture_slot: UInt32);
-    external 'opengl32.dll' name 'glBeginVideoCaptureNV';
+    private z_BeginVideoCaptureNV_adr := GetFuncAdr('glBeginVideoCaptureNV');
+    private z_BeginVideoCaptureNV_ovr_0 := GetFuncOrNil&(z_BeginVideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BeginVideoCaptureNV(video_capture_slot: UInt32) :=
     z_BeginVideoCaptureNV_ovr_0(video_capture_slot);
     
-    private static procedure z_BindVideoCaptureStreamBufferNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; frame_region: DummyEnum; offset: IntPtr);
-    external 'opengl32.dll' name 'glBindVideoCaptureStreamBufferNV';
+    private z_BindVideoCaptureStreamBufferNV_adr := GetFuncAdr('glBindVideoCaptureStreamBufferNV');
+    private z_BindVideoCaptureStreamBufferNV_ovr_0 := GetFuncOrNil&(z_BindVideoCaptureStreamBufferNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVideoCaptureStreamBufferNV(video_capture_slot: UInt32; stream: UInt32; frame_region: DummyEnum; offset: IntPtr) :=
     z_BindVideoCaptureStreamBufferNV_ovr_0(video_capture_slot, stream, frame_region, offset);
     
-    private static procedure z_BindVideoCaptureStreamTextureNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; frame_region: DummyEnum; target: DummyEnum; texture: UInt32);
-    external 'opengl32.dll' name 'glBindVideoCaptureStreamTextureNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVideoCaptureStreamTextureNV(video_capture_slot: UInt32; stream: UInt32; frame_region: DummyEnum; target: DummyEnum; texture: UInt32) :=
+    private z_BindVideoCaptureStreamTextureNV_adr := GetFuncAdr('glBindVideoCaptureStreamTextureNV');
+    private z_BindVideoCaptureStreamTextureNV_ovr_0 := GetFuncOrNil&(z_BindVideoCaptureStreamTextureNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindVideoCaptureStreamTextureNV(video_capture_slot: UInt32; stream: UInt32; frame_region: DummyEnum; target: DummyEnum; texture: gl_texture) :=
     z_BindVideoCaptureStreamTextureNV_ovr_0(video_capture_slot, stream, frame_region, target, texture);
     
-    private static procedure z_EndVideoCaptureNV_ovr_0(video_capture_slot: UInt32);
-    external 'opengl32.dll' name 'glEndVideoCaptureNV';
+    private z_EndVideoCaptureNV_adr := GetFuncAdr('glEndVideoCaptureNV');
+    private z_EndVideoCaptureNV_ovr_0 := GetFuncOrNil&(z_EndVideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EndVideoCaptureNV(video_capture_slot: UInt32) :=
     z_EndVideoCaptureNV_ovr_0(video_capture_slot);
     
-    private static procedure z_GetVideoCaptureivNV_ovr_0(video_capture_slot: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVideoCaptureivNV';
-    private static procedure z_GetVideoCaptureivNV_ovr_0_anh0001(video_capture_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureivNV';
+    private z_GetVideoCaptureivNV_adr := GetFuncAdr('glGetVideoCaptureivNV');
+    private z_GetVideoCaptureivNV_ovr_0 := GetFuncOrNil&(z_GetVideoCaptureivNV_adr);
+    private z_GetVideoCaptureivNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoCaptureivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureivNV(video_capture_slot: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoCaptureivNV_ovr_0(video_capture_slot, pname, ¶ms[0]) else
       z_GetVideoCaptureivNV_ovr_0_anh0001(video_capture_slot, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureivNV(video_capture_slot: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetVideoCaptureivNV_ovr_0(video_capture_slot, pname, ¶ms);
-    private static procedure z_GetVideoCaptureivNV_ovr_2(video_capture_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureivNV';
+    private z_GetVideoCaptureivNV_ovr_2 := GetFuncOrNil&(z_GetVideoCaptureivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureivNV(video_capture_slot: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoCaptureivNV_ovr_2(video_capture_slot, pname, ¶ms);
     
-    private static procedure z_GetVideoCaptureStreamivNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamivNV';
-    private static procedure z_GetVideoCaptureStreamivNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamivNV';
+    private z_GetVideoCaptureStreamivNV_adr := GetFuncAdr('glGetVideoCaptureStreamivNV');
+    private z_GetVideoCaptureStreamivNV_ovr_0 := GetFuncOrNil&(z_GetVideoCaptureStreamivNV_adr);
+    private z_GetVideoCaptureStreamivNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetVideoCaptureStreamivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoCaptureStreamivNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_GetVideoCaptureStreamivNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_GetVideoCaptureStreamivNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_GetVideoCaptureStreamivNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamivNV';
+    private z_GetVideoCaptureStreamivNV_ovr_2 := GetFuncOrNil&(z_GetVideoCaptureStreamivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoCaptureStreamivNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
-    private static procedure z_GetVideoCaptureStreamfvNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamfvNV';
-    private static procedure z_GetVideoCaptureStreamfvNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamfvNV';
+    private z_GetVideoCaptureStreamfvNV_adr := GetFuncAdr('glGetVideoCaptureStreamfvNV');
+    private z_GetVideoCaptureStreamfvNV_ovr_0 := GetFuncOrNil&(z_GetVideoCaptureStreamfvNV_adr);
+    private z_GetVideoCaptureStreamfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetVideoCaptureStreamfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoCaptureStreamfvNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_GetVideoCaptureStreamfvNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: single) :=
     z_GetVideoCaptureStreamfvNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_GetVideoCaptureStreamfvNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamfvNV';
+    private z_GetVideoCaptureStreamfvNV_ovr_2 := GetFuncOrNil&(z_GetVideoCaptureStreamfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoCaptureStreamfvNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
-    private static procedure z_GetVideoCaptureStreamdvNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: real);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamdvNV';
-    private static procedure z_GetVideoCaptureStreamdvNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamdvNV';
+    private z_GetVideoCaptureStreamdvNV_adr := GetFuncAdr('glGetVideoCaptureStreamdvNV');
+    private z_GetVideoCaptureStreamdvNV_ovr_0 := GetFuncOrNil&(z_GetVideoCaptureStreamdvNV_adr);
+    private z_GetVideoCaptureStreamdvNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetVideoCaptureStreamdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetVideoCaptureStreamdvNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_GetVideoCaptureStreamdvNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: real) :=
     z_GetVideoCaptureStreamdvNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_GetVideoCaptureStreamdvNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetVideoCaptureStreamdvNV';
+    private z_GetVideoCaptureStreamdvNV_ovr_2 := GetFuncOrNil&(z_GetVideoCaptureStreamdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetVideoCaptureStreamdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetVideoCaptureStreamdvNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
-    private static function z_VideoCaptureNV_ovr_0(video_capture_slot: UInt32; var sequence_num: UInt32; var capture_time: UInt64): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
-    private static function z_VideoCaptureNV_ovr_0_anh0010(video_capture_slot: UInt32; sequence_num: IntPtr; var capture_time: UInt64): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
-    private static function z_VideoCaptureNV_ovr_0_anh0001(video_capture_slot: UInt32; var sequence_num: UInt32; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
-    private static function z_VideoCaptureNV_ovr_0_anh0011(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
+    private z_VideoCaptureNV_adr := GetFuncAdr('glVideoCaptureNV');
+    private z_VideoCaptureNV_ovr_0 := GetFuncOrNil&(z_VideoCaptureNV_adr);
+    private z_VideoCaptureNV_ovr_0_anh0010 := GetFuncOrNil&(z_VideoCaptureNV_adr);
+    private z_VideoCaptureNV_ovr_0_anh0001 := GetFuncOrNil&(z_VideoCaptureNV_adr);
+    private z_VideoCaptureNV_ovr_0_anh0011 := GetFuncOrNil&(z_VideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: array of UInt32; capture_time: array of UInt64): DummyEnum :=
     if (sequence_num<>nil) and (sequence_num.Length<>0) then
       if (capture_time<>nil) and (capture_time.Length<>0) then
@@ -68385,16 +64755,13 @@ type
       if (capture_time<>nil) and (capture_time.Length<>0) then
         z_VideoCaptureNV_ovr_0_anh0010(video_capture_slot, IntPtr.Zero, capture_time[0]) else
         z_VideoCaptureNV_ovr_0_anh0011(video_capture_slot, IntPtr.Zero, IntPtr.Zero);
-    private static function z_VideoCaptureNV_ovr_1_anh0010(video_capture_slot: UInt32; sequence_num: IntPtr; var capture_time: UInt64): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
+    private z_VideoCaptureNV_ovr_1_anh0010 := GetFuncOrNil&(z_VideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: array of UInt32; var capture_time: UInt64): DummyEnum :=
     if (sequence_num<>nil) and (sequence_num.Length<>0) then
       z_VideoCaptureNV_ovr_0(video_capture_slot, sequence_num[0], capture_time) else
       z_VideoCaptureNV_ovr_0_anh0010(video_capture_slot, IntPtr.Zero, capture_time);
-    private static function z_VideoCaptureNV_ovr_2(video_capture_slot: UInt32; var sequence_num: UInt32; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
-    private static function z_VideoCaptureNV_ovr_2_anh0010(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
+    private z_VideoCaptureNV_ovr_2 := GetFuncOrNil&(z_VideoCaptureNV_adr);
+    private z_VideoCaptureNV_ovr_2_anh0010 := GetFuncOrNil&(z_VideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: array of UInt32; capture_time: IntPtr): DummyEnum :=
     if (sequence_num<>nil) and (sequence_num.Length<>0) then
       z_VideoCaptureNV_ovr_2(video_capture_slot, sequence_num[0], capture_time) else
@@ -68407,1093 +64774,966 @@ type
     z_VideoCaptureNV_ovr_0(video_capture_slot, sequence_num, capture_time);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; var sequence_num: UInt32; capture_time: IntPtr): DummyEnum :=
     z_VideoCaptureNV_ovr_2(video_capture_slot, sequence_num, capture_time);
-    private static function z_VideoCaptureNV_ovr_6(video_capture_slot: UInt32; sequence_num: IntPtr; var capture_time: UInt64): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
-    private static function z_VideoCaptureNV_ovr_6_anh0001(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
+    private z_VideoCaptureNV_ovr_6 := GetFuncOrNil&(z_VideoCaptureNV_adr);
+    private z_VideoCaptureNV_ovr_6_anh0001 := GetFuncOrNil&(z_VideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: array of UInt64): DummyEnum :=
     if (capture_time<>nil) and (capture_time.Length<>0) then
       z_VideoCaptureNV_ovr_6(video_capture_slot, sequence_num, capture_time[0]) else
       z_VideoCaptureNV_ovr_6_anh0001(video_capture_slot, sequence_num, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: IntPtr; var capture_time: UInt64): DummyEnum :=
     z_VideoCaptureNV_ovr_6(video_capture_slot, sequence_num, capture_time);
-    private static function z_VideoCaptureNV_ovr_8(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: IntPtr): DummyEnum;
-    external 'opengl32.dll' name 'glVideoCaptureNV';
+    private z_VideoCaptureNV_ovr_8 := GetFuncOrNil&(z_VideoCaptureNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function VideoCaptureNV(video_capture_slot: UInt32; sequence_num: IntPtr; capture_time: IntPtr): DummyEnum :=
     z_VideoCaptureNV_ovr_8(video_capture_slot, sequence_num, capture_time);
     
-    private static procedure z_VideoCaptureStreamParameterivNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterivNV';
-    private static procedure z_VideoCaptureStreamParameterivNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterivNV';
+    private z_VideoCaptureStreamParameterivNV_adr := GetFuncAdr('glVideoCaptureStreamParameterivNV');
+    private z_VideoCaptureStreamParameterivNV_ovr_0 := GetFuncOrNil&(z_VideoCaptureStreamParameterivNV_adr);
+    private z_VideoCaptureStreamParameterivNV_ovr_0_anh00001 := GetFuncOrNil&(z_VideoCaptureStreamParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_VideoCaptureStreamParameterivNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_VideoCaptureStreamParameterivNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: Int32) :=
     z_VideoCaptureStreamParameterivNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_VideoCaptureStreamParameterivNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterivNV';
+    private z_VideoCaptureStreamParameterivNV_ovr_2 := GetFuncOrNil&(z_VideoCaptureStreamParameterivNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterivNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_VideoCaptureStreamParameterivNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
-    private static procedure z_VideoCaptureStreamParameterfvNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: single);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterfvNV';
-    private static procedure z_VideoCaptureStreamParameterfvNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterfvNV';
+    private z_VideoCaptureStreamParameterfvNV_adr := GetFuncAdr('glVideoCaptureStreamParameterfvNV');
+    private z_VideoCaptureStreamParameterfvNV_ovr_0 := GetFuncOrNil&(z_VideoCaptureStreamParameterfvNV_adr);
+    private z_VideoCaptureStreamParameterfvNV_ovr_0_anh00001 := GetFuncOrNil&(z_VideoCaptureStreamParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_VideoCaptureStreamParameterfvNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_VideoCaptureStreamParameterfvNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: single) :=
     z_VideoCaptureStreamParameterfvNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_VideoCaptureStreamParameterfvNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterfvNV';
+    private z_VideoCaptureStreamParameterfvNV_ovr_2 := GetFuncOrNil&(z_VideoCaptureStreamParameterfvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterfvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_VideoCaptureStreamParameterfvNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
-    private static procedure z_VideoCaptureStreamParameterdvNV_ovr_0(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: real);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterdvNV';
-    private static procedure z_VideoCaptureStreamParameterdvNV_ovr_0_anh00001(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterdvNV';
+    private z_VideoCaptureStreamParameterdvNV_adr := GetFuncAdr('glVideoCaptureStreamParameterdvNV');
+    private z_VideoCaptureStreamParameterdvNV_ovr_0 := GetFuncOrNil&(z_VideoCaptureStreamParameterdvNV_adr);
+    private z_VideoCaptureStreamParameterdvNV_ovr_0_anh00001 := GetFuncOrNil&(z_VideoCaptureStreamParameterdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: array of real) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_VideoCaptureStreamParameterdvNV_ovr_0(video_capture_slot, stream, pname, ¶ms[0]) else
       z_VideoCaptureStreamParameterdvNV_ovr_0_anh00001(video_capture_slot, stream, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; var ¶ms: real) :=
     z_VideoCaptureStreamParameterdvNV_ovr_0(video_capture_slot, stream, pname, ¶ms);
-    private static procedure z_VideoCaptureStreamParameterdvNV_ovr_2(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glVideoCaptureStreamParameterdvNV';
+    private z_VideoCaptureStreamParameterdvNV_ovr_2 := GetFuncOrNil&(z_VideoCaptureStreamParameterdvNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure VideoCaptureStreamParameterdvNV(video_capture_slot: UInt32; stream: UInt32; pname: DummyEnum; ¶ms: IntPtr) :=
     z_VideoCaptureStreamParameterdvNV_ovr_2(video_capture_slot, stream, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glViewportSwizzleNV = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glViewportSwizzleNV = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_viewport_swizzle';
     
-    private static procedure z_ViewportSwizzleNV_ovr_0(index: UInt32; swizzlex: DummyEnum; swizzley: DummyEnum; swizzlez: DummyEnum; swizzlew: DummyEnum);
-    external 'opengl32.dll' name 'glViewportSwizzleNV';
+    private z_ViewportSwizzleNV_adr := GetFuncAdr('glViewportSwizzleNV');
+    private z_ViewportSwizzleNV_ovr_0 := GetFuncOrNil&(z_ViewportSwizzleNV_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ViewportSwizzleNV(index: UInt32; swizzlex: DummyEnum; swizzley: DummyEnum; swizzlez: DummyEnum; swizzlew: DummyEnum) :=
     z_ViewportSwizzleNV_ovr_0(index, swizzlex, swizzley, swizzlez, swizzlew);
     
   end;
   
   [PCUNotRestore]
-  glByteCoordinatesOES = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glByteCoordinatesOES = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OES_byte_coordinates';
     
-    private static procedure z_MultiTexCoord1bOES_ovr_0(texture: TextureUnit; s: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord1bOES';
+    private z_MultiTexCoord1bOES_adr := GetFuncAdr('glMultiTexCoord1bOES');
+    private z_MultiTexCoord1bOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1bOES(texture: TextureUnit; s: SByte) :=
     z_MultiTexCoord1bOES_ovr_0(texture, s);
     
-    private static procedure z_MultiTexCoord1bvOES_ovr_0(texture: TextureUnit; var coords: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord1bvOES';
-    private static procedure z_MultiTexCoord1bvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1bvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1bvOES(texture: TextureUnit; coords: array of SByte) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoord1bvOES_ovr_0(texture, coords[0]) else
-      z_MultiTexCoord1bvOES_ovr_0_anh001(texture, IntPtr.Zero);
+    private z_MultiTexCoord1bvOES_adr := GetFuncAdr('glMultiTexCoord1bvOES');
+    private z_MultiTexCoord1bvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1bvOES(texture: TextureUnit; var coords: SByte) :=
     z_MultiTexCoord1bvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord1bvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1bvOES';
+    private z_MultiTexCoord1bvOES_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1bvOES(texture: TextureUnit; coords: IntPtr) :=
-    z_MultiTexCoord1bvOES_ovr_2(texture, coords);
+    z_MultiTexCoord1bvOES_ovr_1(texture, coords);
     
-    private static procedure z_MultiTexCoord2bOES_ovr_0(texture: TextureUnit; s: SByte; t: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord2bOES';
+    private z_MultiTexCoord2bOES_adr := GetFuncAdr('glMultiTexCoord2bOES');
+    private z_MultiTexCoord2bOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2bOES(texture: TextureUnit; s: SByte; t: SByte) :=
     z_MultiTexCoord2bOES_ovr_0(texture, s, t);
     
-    private static procedure z_MultiTexCoord2bvOES_ovr_0(texture: TextureUnit; var coords: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord2bvOES';
-    private static procedure z_MultiTexCoord2bvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2bvOES';
+    private z_MultiTexCoord2bvOES_adr := GetFuncAdr('glMultiTexCoord2bvOES');
+    private z_MultiTexCoord2bvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2bvOES_adr);
+    private z_MultiTexCoord2bvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2bvOES(texture: TextureUnit; coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord2bvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord2bvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2bvOES(texture: TextureUnit; var coords: SByte) :=
     z_MultiTexCoord2bvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord2bvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2bvOES';
+    private z_MultiTexCoord2bvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2bvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord2bvOES_ovr_2(texture, coords);
     
-    private static procedure z_MultiTexCoord3bOES_ovr_0(texture: TextureUnit; s: SByte; t: SByte; r: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord3bOES';
+    private z_MultiTexCoord3bOES_adr := GetFuncAdr('glMultiTexCoord3bOES');
+    private z_MultiTexCoord3bOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3bOES(texture: TextureUnit; s: SByte; t: SByte; r: SByte) :=
     z_MultiTexCoord3bOES_ovr_0(texture, s, t, r);
     
-    private static procedure z_MultiTexCoord3bvOES_ovr_0(texture: TextureUnit; var coords: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord3bvOES';
-    private static procedure z_MultiTexCoord3bvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3bvOES';
+    private z_MultiTexCoord3bvOES_adr := GetFuncAdr('glMultiTexCoord3bvOES');
+    private z_MultiTexCoord3bvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3bvOES_adr);
+    private z_MultiTexCoord3bvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3bvOES(texture: TextureUnit; coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord3bvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord3bvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3bvOES(texture: TextureUnit; var coords: SByte) :=
     z_MultiTexCoord3bvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord3bvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3bvOES';
+    private z_MultiTexCoord3bvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3bvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord3bvOES_ovr_2(texture, coords);
     
-    private static procedure z_MultiTexCoord4bOES_ovr_0(texture: TextureUnit; s: SByte; t: SByte; r: SByte; q: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord4bOES';
+    private z_MultiTexCoord4bOES_adr := GetFuncAdr('glMultiTexCoord4bOES');
+    private z_MultiTexCoord4bOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4bOES(texture: TextureUnit; s: SByte; t: SByte; r: SByte; q: SByte) :=
     z_MultiTexCoord4bOES_ovr_0(texture, s, t, r, q);
     
-    private static procedure z_MultiTexCoord4bvOES_ovr_0(texture: TextureUnit; var coords: SByte);
-    external 'opengl32.dll' name 'glMultiTexCoord4bvOES';
-    private static procedure z_MultiTexCoord4bvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4bvOES';
+    private z_MultiTexCoord4bvOES_adr := GetFuncAdr('glMultiTexCoord4bvOES');
+    private z_MultiTexCoord4bvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4bvOES_adr);
+    private z_MultiTexCoord4bvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4bvOES(texture: TextureUnit; coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord4bvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord4bvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4bvOES(texture: TextureUnit; var coords: SByte) :=
     z_MultiTexCoord4bvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord4bvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4bvOES';
+    private z_MultiTexCoord4bvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4bvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord4bvOES_ovr_2(texture, coords);
     
-    private static procedure z_TexCoord1bOES_ovr_0(s: SByte);
-    external 'opengl32.dll' name 'glTexCoord1bOES';
+    private z_TexCoord1bOES_adr := GetFuncAdr('glTexCoord1bOES');
+    private z_TexCoord1bOES_ovr_0 := GetFuncOrNil&(z_TexCoord1bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1bOES(s: SByte) :=
     z_TexCoord1bOES_ovr_0(s);
     
-    private static procedure z_TexCoord1bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glTexCoord1bvOES';
-    private static procedure z_TexCoord1bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1bvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1bvOES(coords: array of SByte) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoord1bvOES_ovr_0(coords[0]) else
-      z_TexCoord1bvOES_ovr_0_anh01(IntPtr.Zero);
+    private z_TexCoord1bvOES_adr := GetFuncAdr('glTexCoord1bvOES');
+    private z_TexCoord1bvOES_ovr_0 := GetFuncOrNil&(z_TexCoord1bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1bvOES(var coords: SByte) :=
     z_TexCoord1bvOES_ovr_0(coords);
-    private static procedure z_TexCoord1bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1bvOES';
+    private z_TexCoord1bvOES_ovr_1 := GetFuncOrNil&(z_TexCoord1bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1bvOES(coords: IntPtr) :=
-    z_TexCoord1bvOES_ovr_2(coords);
+    z_TexCoord1bvOES_ovr_1(coords);
     
-    private static procedure z_TexCoord2bOES_ovr_0(s: SByte; t: SByte);
-    external 'opengl32.dll' name 'glTexCoord2bOES';
+    private z_TexCoord2bOES_adr := GetFuncAdr('glTexCoord2bOES');
+    private z_TexCoord2bOES_ovr_0 := GetFuncOrNil&(z_TexCoord2bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2bOES(s: SByte; t: SByte) :=
     z_TexCoord2bOES_ovr_0(s, t);
     
-    private static procedure z_TexCoord2bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glTexCoord2bvOES';
-    private static procedure z_TexCoord2bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2bvOES';
+    private z_TexCoord2bvOES_adr := GetFuncAdr('glTexCoord2bvOES');
+    private z_TexCoord2bvOES_ovr_0 := GetFuncOrNil&(z_TexCoord2bvOES_adr);
+    private z_TexCoord2bvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord2bvOES_ovr_0(coords[0]) else
       z_TexCoord2bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2bvOES(var coords: SByte) :=
     z_TexCoord2bvOES_ovr_0(coords);
-    private static procedure z_TexCoord2bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2bvOES';
+    private z_TexCoord2bvOES_ovr_2 := GetFuncOrNil&(z_TexCoord2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2bvOES(coords: IntPtr) :=
     z_TexCoord2bvOES_ovr_2(coords);
     
-    private static procedure z_TexCoord3bOES_ovr_0(s: SByte; t: SByte; r: SByte);
-    external 'opengl32.dll' name 'glTexCoord3bOES';
+    private z_TexCoord3bOES_adr := GetFuncAdr('glTexCoord3bOES');
+    private z_TexCoord3bOES_ovr_0 := GetFuncOrNil&(z_TexCoord3bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3bOES(s: SByte; t: SByte; r: SByte) :=
     z_TexCoord3bOES_ovr_0(s, t, r);
     
-    private static procedure z_TexCoord3bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glTexCoord3bvOES';
-    private static procedure z_TexCoord3bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3bvOES';
+    private z_TexCoord3bvOES_adr := GetFuncAdr('glTexCoord3bvOES');
+    private z_TexCoord3bvOES_ovr_0 := GetFuncOrNil&(z_TexCoord3bvOES_adr);
+    private z_TexCoord3bvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord3bvOES_ovr_0(coords[0]) else
       z_TexCoord3bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3bvOES(var coords: SByte) :=
     z_TexCoord3bvOES_ovr_0(coords);
-    private static procedure z_TexCoord3bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3bvOES';
+    private z_TexCoord3bvOES_ovr_2 := GetFuncOrNil&(z_TexCoord3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3bvOES(coords: IntPtr) :=
     z_TexCoord3bvOES_ovr_2(coords);
     
-    private static procedure z_TexCoord4bOES_ovr_0(s: SByte; t: SByte; r: SByte; q: SByte);
-    external 'opengl32.dll' name 'glTexCoord4bOES';
+    private z_TexCoord4bOES_adr := GetFuncAdr('glTexCoord4bOES');
+    private z_TexCoord4bOES_ovr_0 := GetFuncOrNil&(z_TexCoord4bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4bOES(s: SByte; t: SByte; r: SByte; q: SByte) :=
     z_TexCoord4bOES_ovr_0(s, t, r, q);
     
-    private static procedure z_TexCoord4bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glTexCoord4bvOES';
-    private static procedure z_TexCoord4bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4bvOES';
+    private z_TexCoord4bvOES_adr := GetFuncAdr('glTexCoord4bvOES');
+    private z_TexCoord4bvOES_ovr_0 := GetFuncOrNil&(z_TexCoord4bvOES_adr);
+    private z_TexCoord4bvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord4bvOES_ovr_0(coords[0]) else
       z_TexCoord4bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4bvOES(var coords: SByte) :=
     z_TexCoord4bvOES_ovr_0(coords);
-    private static procedure z_TexCoord4bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4bvOES';
+    private z_TexCoord4bvOES_ovr_2 := GetFuncOrNil&(z_TexCoord4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4bvOES(coords: IntPtr) :=
     z_TexCoord4bvOES_ovr_2(coords);
     
-    private static procedure z_Vertex2bOES_ovr_0(x: SByte; y: SByte);
-    external 'opengl32.dll' name 'glVertex2bOES';
+    private z_Vertex2bOES_adr := GetFuncAdr('glVertex2bOES');
+    private z_Vertex2bOES_ovr_0 := GetFuncOrNil&(z_Vertex2bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2bOES(x: SByte; y: SByte) :=
     z_Vertex2bOES_ovr_0(x, y);
     
-    private static procedure z_Vertex2bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glVertex2bvOES';
-    private static procedure z_Vertex2bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex2bvOES';
+    private z_Vertex2bvOES_adr := GetFuncAdr('glVertex2bvOES');
+    private z_Vertex2bvOES_ovr_0 := GetFuncOrNil&(z_Vertex2bvOES_adr);
+    private z_Vertex2bvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex2bvOES_ovr_0(coords[0]) else
       z_Vertex2bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2bvOES(var coords: SByte) :=
     z_Vertex2bvOES_ovr_0(coords);
-    private static procedure z_Vertex2bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex2bvOES';
+    private z_Vertex2bvOES_ovr_2 := GetFuncOrNil&(z_Vertex2bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2bvOES(coords: IntPtr) :=
     z_Vertex2bvOES_ovr_2(coords);
     
-    private static procedure z_Vertex3bOES_ovr_0(x: SByte; y: SByte; z: SByte);
-    external 'opengl32.dll' name 'glVertex3bOES';
+    private z_Vertex3bOES_adr := GetFuncAdr('glVertex3bOES');
+    private z_Vertex3bOES_ovr_0 := GetFuncOrNil&(z_Vertex3bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3bOES(x: SByte; y: SByte; z: SByte) :=
     z_Vertex3bOES_ovr_0(x, y, z);
     
-    private static procedure z_Vertex3bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glVertex3bvOES';
-    private static procedure z_Vertex3bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex3bvOES';
+    private z_Vertex3bvOES_adr := GetFuncAdr('glVertex3bvOES');
+    private z_Vertex3bvOES_ovr_0 := GetFuncOrNil&(z_Vertex3bvOES_adr);
+    private z_Vertex3bvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex3bvOES_ovr_0(coords[0]) else
       z_Vertex3bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3bvOES(var coords: SByte) :=
     z_Vertex3bvOES_ovr_0(coords);
-    private static procedure z_Vertex3bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex3bvOES';
+    private z_Vertex3bvOES_ovr_2 := GetFuncOrNil&(z_Vertex3bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3bvOES(coords: IntPtr) :=
     z_Vertex3bvOES_ovr_2(coords);
     
-    private static procedure z_Vertex4bOES_ovr_0(x: SByte; y: SByte; z: SByte; w: SByte);
-    external 'opengl32.dll' name 'glVertex4bOES';
+    private z_Vertex4bOES_adr := GetFuncAdr('glVertex4bOES');
+    private z_Vertex4bOES_ovr_0 := GetFuncOrNil&(z_Vertex4bOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4bOES(x: SByte; y: SByte; z: SByte; w: SByte) :=
     z_Vertex4bOES_ovr_0(x, y, z, w);
     
-    private static procedure z_Vertex4bvOES_ovr_0(var coords: SByte);
-    external 'opengl32.dll' name 'glVertex4bvOES';
-    private static procedure z_Vertex4bvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex4bvOES';
+    private z_Vertex4bvOES_adr := GetFuncAdr('glVertex4bvOES');
+    private z_Vertex4bvOES_ovr_0 := GetFuncOrNil&(z_Vertex4bvOES_adr);
+    private z_Vertex4bvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4bvOES(coords: array of SByte) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex4bvOES_ovr_0(coords[0]) else
       z_Vertex4bvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4bvOES(var coords: SByte) :=
     z_Vertex4bvOES_ovr_0(coords);
-    private static procedure z_Vertex4bvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex4bvOES';
+    private z_Vertex4bvOES_ovr_2 := GetFuncOrNil&(z_Vertex4bvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4bvOES(coords: IntPtr) :=
     z_Vertex4bvOES_ovr_2(coords);
     
   end;
   
   [PCUNotRestore]
-  glFixedPointOES = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFixedPointOES = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OES_fixed_point';
     
-    private static procedure z_AlphaFuncxOES_ovr_0(func: AlphaFunction; ref: Fixed);
-    external 'opengl32.dll' name 'glAlphaFuncxOES';
+    private z_AlphaFuncxOES_adr := GetFuncAdr('glAlphaFuncxOES');
+    private z_AlphaFuncxOES_ovr_0 := GetFuncOrNil&(z_AlphaFuncxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AlphaFuncxOES(func: AlphaFunction; ref: Fixed) :=
     z_AlphaFuncxOES_ovr_0(func, ref);
     
-    private static procedure z_ClearColorxOES_ovr_0(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed);
-    external 'opengl32.dll' name 'glClearColorxOES';
+    private z_ClearColorxOES_adr := GetFuncAdr('glClearColorxOES');
+    private z_ClearColorxOES_ovr_0 := GetFuncOrNil&(z_ClearColorxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearColorxOES(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed) :=
     z_ClearColorxOES_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_ClearDepthxOES_ovr_0(depth: Fixed);
-    external 'opengl32.dll' name 'glClearDepthxOES';
+    private z_ClearDepthxOES_adr := GetFuncAdr('glClearDepthxOES');
+    private z_ClearDepthxOES_ovr_0 := GetFuncOrNil&(z_ClearDepthxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearDepthxOES(depth: Fixed) :=
     z_ClearDepthxOES_ovr_0(depth);
     
-    private static procedure z_ClipPlanexOES_ovr_0(plane: ClipPlaneName; var equation: Fixed);
-    external 'opengl32.dll' name 'glClipPlanexOES';
-    private static procedure z_ClipPlanexOES_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlanexOES';
+    private z_ClipPlanexOES_adr := GetFuncAdr('glClipPlanexOES');
+    private z_ClipPlanexOES_ovr_0 := GetFuncOrNil&(z_ClipPlanexOES_adr);
+    private z_ClipPlanexOES_ovr_0_anh001 := GetFuncOrNil&(z_ClipPlanexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanexOES(plane: ClipPlaneName; equation: array of Fixed) :=
     if (equation<>nil) and (equation.Length<>0) then
       z_ClipPlanexOES_ovr_0(plane, equation[0]) else
       z_ClipPlanexOES_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanexOES(plane: ClipPlaneName; var equation: Fixed) :=
     z_ClipPlanexOES_ovr_0(plane, equation);
-    private static procedure z_ClipPlanexOES_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlanexOES';
+    private z_ClipPlanexOES_ovr_2 := GetFuncOrNil&(z_ClipPlanexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanexOES(plane: ClipPlaneName; equation: IntPtr) :=
     z_ClipPlanexOES_ovr_2(plane, equation);
     
-    private static procedure z_Color4xOES_ovr_0(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed);
-    external 'opengl32.dll' name 'glColor4xOES';
+    private z_Color4xOES_adr := GetFuncAdr('glColor4xOES');
+    private z_Color4xOES_ovr_0 := GetFuncOrNil&(z_Color4xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4xOES(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed) :=
     z_Color4xOES_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_DepthRangexOES_ovr_0(n: Fixed; f: Fixed);
-    external 'opengl32.dll' name 'glDepthRangexOES';
+    private z_DepthRangexOES_adr := GetFuncAdr('glDepthRangexOES');
+    private z_DepthRangexOES_ovr_0 := GetFuncOrNil&(z_DepthRangexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangexOES(n: Fixed; f: Fixed) :=
     z_DepthRangexOES_ovr_0(n, f);
     
-    private static procedure z_FogxOES_ovr_0(pname: FogPName; param: Fixed);
-    external 'opengl32.dll' name 'glFogxOES';
+    private z_FogxOES_adr := GetFuncAdr('glFogxOES');
+    private z_FogxOES_ovr_0 := GetFuncOrNil&(z_FogxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogxOES(pname: FogPName; param: Fixed) :=
     z_FogxOES_ovr_0(pname, param);
     
-    private static procedure z_FogxvOES_ovr_0(pname: FogPName; var param: Fixed);
-    external 'opengl32.dll' name 'glFogxvOES';
-    private static procedure z_FogxvOES_ovr_0_anh001(pname: FogPName; param: IntPtr);
-    external 'opengl32.dll' name 'glFogxvOES';
+    private z_FogxvOES_adr := GetFuncAdr('glFogxvOES');
+    private z_FogxvOES_ovr_0 := GetFuncOrNil&(z_FogxvOES_adr);
+    private z_FogxvOES_ovr_0_anh001 := GetFuncOrNil&(z_FogxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogxvOES(pname: FogPName; param: array of Fixed) :=
     if (param<>nil) and (param.Length<>0) then
       z_FogxvOES_ovr_0(pname, param[0]) else
       z_FogxvOES_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogxvOES(pname: FogPName; var param: Fixed) :=
     z_FogxvOES_ovr_0(pname, param);
-    private static procedure z_FogxvOES_ovr_2(pname: FogPName; param: IntPtr);
-    external 'opengl32.dll' name 'glFogxvOES';
+    private z_FogxvOES_ovr_2 := GetFuncOrNil&(z_FogxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogxvOES(pname: FogPName; param: IntPtr) :=
     z_FogxvOES_ovr_2(pname, param);
     
-    private static procedure z_FrustumxOES_ovr_0(l: Fixed; r: Fixed; b: Fixed; t: Fixed; n: Fixed; f: Fixed);
-    external 'opengl32.dll' name 'glFrustumxOES';
+    private z_FrustumxOES_adr := GetFuncAdr('glFrustumxOES');
+    private z_FrustumxOES_ovr_0 := GetFuncOrNil&(z_FrustumxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FrustumxOES(l: Fixed; r: Fixed; b: Fixed; t: Fixed; n: Fixed; f: Fixed) :=
     z_FrustumxOES_ovr_0(l, r, b, t, n, f);
     
-    private static procedure z_GetClipPlanexOES_ovr_0(plane: ClipPlaneName; var equation: Fixed);
-    external 'opengl32.dll' name 'glGetClipPlanexOES';
-    private static procedure z_GetClipPlanexOES_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlanexOES';
+    private z_GetClipPlanexOES_adr := GetFuncAdr('glGetClipPlanexOES');
+    private z_GetClipPlanexOES_ovr_0 := GetFuncOrNil&(z_GetClipPlanexOES_adr);
+    private z_GetClipPlanexOES_ovr_0_anh001 := GetFuncOrNil&(z_GetClipPlanexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanexOES(plane: ClipPlaneName; equation: array of Fixed) :=
     if (equation<>nil) and (equation.Length<>0) then
       z_GetClipPlanexOES_ovr_0(plane, equation[0]) else
       z_GetClipPlanexOES_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanexOES(plane: ClipPlaneName; var equation: Fixed) :=
     z_GetClipPlanexOES_ovr_0(plane, equation);
-    private static procedure z_GetClipPlanexOES_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlanexOES';
+    private z_GetClipPlanexOES_ovr_2 := GetFuncOrNil&(z_GetClipPlanexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanexOES(plane: ClipPlaneName; equation: IntPtr) :=
     z_GetClipPlanexOES_ovr_2(plane, equation);
     
-    private static procedure z_GetFixedvOES_ovr_0(pname: GetPName; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetFixedvOES';
-    private static procedure z_GetFixedvOES_ovr_0_anh001(pname: GetPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFixedvOES';
+    private z_GetFixedvOES_adr := GetFuncAdr('glGetFixedvOES');
+    private z_GetFixedvOES_ovr_0 := GetFuncOrNil&(z_GetFixedvOES_adr);
+    private z_GetFixedvOES_ovr_0_anh001 := GetFuncOrNil&(z_GetFixedvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFixedvOES(pname: GetPName; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFixedvOES_ovr_0(pname, ¶ms[0]) else
       z_GetFixedvOES_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFixedvOES(pname: GetPName; var ¶ms: Fixed) :=
     z_GetFixedvOES_ovr_0(pname, ¶ms);
-    private static procedure z_GetFixedvOES_ovr_2(pname: GetPName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFixedvOES';
+    private z_GetFixedvOES_ovr_2 := GetFuncOrNil&(z_GetFixedvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFixedvOES(pname: GetPName; ¶ms: IntPtr) :=
     z_GetFixedvOES_ovr_2(pname, ¶ms);
     
-    private static procedure z_GetTexEnvxvOES_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetTexEnvxvOES';
-    private static procedure z_GetTexEnvxvOES_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnvxvOES';
+    private z_GetTexEnvxvOES_adr := GetFuncAdr('glGetTexEnvxvOES');
+    private z_GetTexEnvxvOES_ovr_0 := GetFuncOrNil&(z_GetTexEnvxvOES_adr);
+    private z_GetTexEnvxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexEnvxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexEnvxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_GetTexEnvxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Fixed) :=
     z_GetTexEnvxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexEnvxvOES_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexEnvxvOES';
+    private z_GetTexEnvxvOES_ovr_2 := GetFuncOrNil&(z_GetTexEnvxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_GetTexEnvxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetTexParameterxvOES_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetTexParameterxvOES';
-    private static procedure z_GetTexParameterxvOES_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterxvOES';
+    private z_GetTexParameterxvOES_adr := GetFuncAdr('glGetTexParameterxvOES');
+    private z_GetTexParameterxvOES_ovr_0 := GetFuncOrNil&(z_GetTexParameterxvOES_adr);
+    private z_GetTexParameterxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexParameterxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_GetTexParameterxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Fixed) :=
     z_GetTexParameterxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetTexParameterxvOES_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexParameterxvOES';
+    private z_GetTexParameterxvOES_ovr_2 := GetFuncOrNil&(z_GetTexParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTexParameterxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_LightModelxOES_ovr_0(pname: LightModelParameter; param: Fixed);
-    external 'opengl32.dll' name 'glLightModelxOES';
+    private z_LightModelxOES_adr := GetFuncAdr('glLightModelxOES');
+    private z_LightModelxOES_ovr_0 := GetFuncOrNil&(z_LightModelxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelxOES(pname: LightModelParameter; param: Fixed) :=
     z_LightModelxOES_ovr_0(pname, param);
     
-    private static procedure z_LightModelxvOES_ovr_0(pname: LightModelParameter; var param: Fixed);
-    external 'opengl32.dll' name 'glLightModelxvOES';
-    private static procedure z_LightModelxvOES_ovr_0_anh001(pname: LightModelParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glLightModelxvOES';
+    private z_LightModelxvOES_adr := GetFuncAdr('glLightModelxvOES');
+    private z_LightModelxvOES_ovr_0 := GetFuncOrNil&(z_LightModelxvOES_adr);
+    private z_LightModelxvOES_ovr_0_anh001 := GetFuncOrNil&(z_LightModelxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelxvOES(pname: LightModelParameter; param: array of Fixed) :=
     if (param<>nil) and (param.Length<>0) then
       z_LightModelxvOES_ovr_0(pname, param[0]) else
       z_LightModelxvOES_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelxvOES(pname: LightModelParameter; var param: Fixed) :=
     z_LightModelxvOES_ovr_0(pname, param);
-    private static procedure z_LightModelxvOES_ovr_2(pname: LightModelParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glLightModelxvOES';
+    private z_LightModelxvOES_ovr_2 := GetFuncOrNil&(z_LightModelxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightModelxvOES(pname: LightModelParameter; param: IntPtr) :=
     z_LightModelxvOES_ovr_2(pname, param);
     
-    private static procedure z_LightxOES_ovr_0(light: LightName; pname: LightParameter; param: Fixed);
-    external 'opengl32.dll' name 'glLightxOES';
+    private z_LightxOES_adr := GetFuncAdr('glLightxOES');
+    private z_LightxOES_ovr_0 := GetFuncOrNil&(z_LightxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightxOES(light: LightName; pname: LightParameter; param: Fixed) :=
     z_LightxOES_ovr_0(light, pname, param);
     
-    private static procedure z_LightxvOES_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glLightxvOES';
-    private static procedure z_LightxvOES_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightxvOES';
+    private z_LightxvOES_adr := GetFuncAdr('glLightxvOES');
+    private z_LightxvOES_ovr_0 := GetFuncOrNil&(z_LightxvOES_adr);
+    private z_LightxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_LightxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightxvOES(light: LightName; pname: LightParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_LightxvOES_ovr_0(light, pname, ¶ms[0]) else
       z_LightxvOES_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightxvOES(light: LightName; pname: LightParameter; var ¶ms: Fixed) :=
     z_LightxvOES_ovr_0(light, pname, ¶ms);
-    private static procedure z_LightxvOES_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glLightxvOES';
+    private z_LightxvOES_ovr_2 := GetFuncOrNil&(z_LightxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightxvOES(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
     z_LightxvOES_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_LineWidthxOES_ovr_0(width: Fixed);
-    external 'opengl32.dll' name 'glLineWidthxOES';
+    private z_LineWidthxOES_adr := GetFuncAdr('glLineWidthxOES');
+    private z_LineWidthxOES_ovr_0 := GetFuncOrNil&(z_LineWidthxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LineWidthxOES(width: Fixed) :=
     z_LineWidthxOES_ovr_0(width);
     
-    private static procedure z_LoadMatrixxOES_ovr_0(var m: Fixed);
-    external 'opengl32.dll' name 'glLoadMatrixxOES';
-    private static procedure z_LoadMatrixxOES_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixxOES';
+    private z_LoadMatrixxOES_adr := GetFuncAdr('glLoadMatrixxOES');
+    private z_LoadMatrixxOES_ovr_0 := GetFuncOrNil&(z_LoadMatrixxOES_adr);
+    private z_LoadMatrixxOES_ovr_0_anh01 := GetFuncOrNil&(z_LoadMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixxOES(m: array of Fixed) :=
     if (m<>nil) and (m.Length<>0) then
       z_LoadMatrixxOES_ovr_0(m[0]) else
       z_LoadMatrixxOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixxOES(var m: Fixed) :=
     z_LoadMatrixxOES_ovr_0(m);
-    private static procedure z_LoadMatrixxOES_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadMatrixxOES';
+    private z_LoadMatrixxOES_ovr_2 := GetFuncOrNil&(z_LoadMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadMatrixxOES(m: IntPtr) :=
     z_LoadMatrixxOES_ovr_2(m);
     
-    private static procedure z_MaterialxOES_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Fixed);
-    external 'opengl32.dll' name 'glMaterialxOES';
+    private z_MaterialxOES_adr := GetFuncAdr('glMaterialxOES');
+    private z_MaterialxOES_ovr_0 := GetFuncOrNil&(z_MaterialxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxOES(face: MaterialFace; pname: MaterialParameter; param: Fixed) :=
     z_MaterialxOES_ovr_0(face, pname, param);
     
-    private static procedure z_MaterialxvOES_ovr_0(face: MaterialFace; pname: MaterialParameter; var param: Fixed);
-    external 'opengl32.dll' name 'glMaterialxvOES';
-    private static procedure z_MaterialxvOES_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glMaterialxvOES';
+    private z_MaterialxvOES_adr := GetFuncAdr('glMaterialxvOES');
+    private z_MaterialxvOES_ovr_0 := GetFuncOrNil&(z_MaterialxvOES_adr);
+    private z_MaterialxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_MaterialxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; param: array of Fixed) :=
     if (param<>nil) and (param.Length<>0) then
       z_MaterialxvOES_ovr_0(face, pname, param[0]) else
       z_MaterialxvOES_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; var param: Fixed) :=
     z_MaterialxvOES_ovr_0(face, pname, param);
-    private static procedure z_MaterialxvOES_ovr_2(face: MaterialFace; pname: MaterialParameter; param: IntPtr);
-    external 'opengl32.dll' name 'glMaterialxvOES';
+    private z_MaterialxvOES_ovr_2 := GetFuncOrNil&(z_MaterialxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MaterialxvOES(face: MaterialFace; pname: MaterialParameter; param: IntPtr) :=
     z_MaterialxvOES_ovr_2(face, pname, param);
     
-    private static procedure z_MultMatrixxOES_ovr_0(var m: Fixed);
-    external 'opengl32.dll' name 'glMultMatrixxOES';
-    private static procedure z_MultMatrixxOES_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixxOES';
+    private z_MultMatrixxOES_adr := GetFuncAdr('glMultMatrixxOES');
+    private z_MultMatrixxOES_ovr_0 := GetFuncOrNil&(z_MultMatrixxOES_adr);
+    private z_MultMatrixxOES_ovr_0_anh01 := GetFuncOrNil&(z_MultMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixxOES(m: array of Fixed) :=
     if (m<>nil) and (m.Length<>0) then
       z_MultMatrixxOES_ovr_0(m[0]) else
       z_MultMatrixxOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixxOES(var m: Fixed) :=
     z_MultMatrixxOES_ovr_0(m);
-    private static procedure z_MultMatrixxOES_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultMatrixxOES';
+    private z_MultMatrixxOES_ovr_2 := GetFuncOrNil&(z_MultMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultMatrixxOES(m: IntPtr) :=
     z_MultMatrixxOES_ovr_2(m);
     
-    private static procedure z_MultiTexCoord4xOES_ovr_0(texture: TextureUnit; s: Fixed; t: Fixed; r: Fixed; q: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord4xOES';
+    private z_MultiTexCoord4xOES_adr := GetFuncAdr('glMultiTexCoord4xOES');
+    private z_MultiTexCoord4xOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4xOES(texture: TextureUnit; s: Fixed; t: Fixed; r: Fixed; q: Fixed) :=
     z_MultiTexCoord4xOES_ovr_0(texture, s, t, r, q);
     
-    private static procedure z_Normal3xOES_ovr_0(nx: Fixed; ny: Fixed; nz: Fixed);
-    external 'opengl32.dll' name 'glNormal3xOES';
+    private z_Normal3xOES_adr := GetFuncAdr('glNormal3xOES');
+    private z_Normal3xOES_ovr_0 := GetFuncOrNil&(z_Normal3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3xOES(nx: Fixed; ny: Fixed; nz: Fixed) :=
     z_Normal3xOES_ovr_0(nx, ny, nz);
     
-    private static procedure z_OrthoxOES_ovr_0(l: Fixed; r: Fixed; b: Fixed; t: Fixed; n: Fixed; f: Fixed);
-    external 'opengl32.dll' name 'glOrthoxOES';
+    private z_OrthoxOES_adr := GetFuncAdr('glOrthoxOES');
+    private z_OrthoxOES_ovr_0 := GetFuncOrNil&(z_OrthoxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure OrthoxOES(l: Fixed; r: Fixed; b: Fixed; t: Fixed; n: Fixed; f: Fixed) :=
     z_OrthoxOES_ovr_0(l, r, b, t, n, f);
     
-    private static procedure z_PointParameterxvOES_ovr_0(pname: PointParameterNameARB; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glPointParameterxvOES';
-    private static procedure z_PointParameterxvOES_ovr_0_anh001(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterxvOES';
+    private z_PointParameterxvOES_adr := GetFuncAdr('glPointParameterxvOES');
+    private z_PointParameterxvOES_ovr_0 := GetFuncOrNil&(z_PointParameterxvOES_adr);
+    private z_PointParameterxvOES_ovr_0_anh001 := GetFuncOrNil&(z_PointParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterxvOES(pname: PointParameterNameARB; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PointParameterxvOES_ovr_0(pname, ¶ms[0]) else
       z_PointParameterxvOES_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterxvOES(pname: PointParameterNameARB; var ¶ms: Fixed) :=
     z_PointParameterxvOES_ovr_0(pname, ¶ms);
-    private static procedure z_PointParameterxvOES_ovr_2(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterxvOES';
+    private z_PointParameterxvOES_ovr_2 := GetFuncOrNil&(z_PointParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterxvOES(pname: PointParameterNameARB; ¶ms: IntPtr) :=
     z_PointParameterxvOES_ovr_2(pname, ¶ms);
     
-    private static procedure z_PointSizexOES_ovr_0(size: Fixed);
-    external 'opengl32.dll' name 'glPointSizexOES';
+    private z_PointSizexOES_adr := GetFuncAdr('glPointSizexOES');
+    private z_PointSizexOES_ovr_0 := GetFuncOrNil&(z_PointSizexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointSizexOES(size: Fixed) :=
     z_PointSizexOES_ovr_0(size);
     
-    private static procedure z_PolygonOffsetxOES_ovr_0(factor: Fixed; units: Fixed);
-    external 'opengl32.dll' name 'glPolygonOffsetxOES';
+    private z_PolygonOffsetxOES_adr := GetFuncAdr('glPolygonOffsetxOES');
+    private z_PolygonOffsetxOES_ovr_0 := GetFuncOrNil&(z_PolygonOffsetxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PolygonOffsetxOES(factor: Fixed; units: Fixed) :=
     z_PolygonOffsetxOES_ovr_0(factor, units);
     
-    private static procedure z_RotatexOES_ovr_0(angle: Fixed; x: Fixed; y: Fixed; z: Fixed);
-    external 'opengl32.dll' name 'glRotatexOES';
+    private z_RotatexOES_adr := GetFuncAdr('glRotatexOES');
+    private z_RotatexOES_ovr_0 := GetFuncOrNil&(z_RotatexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RotatexOES(angle: Fixed; x: Fixed; y: Fixed; z: Fixed) :=
     z_RotatexOES_ovr_0(angle, x, y, z);
     
-    private static procedure z_ScalexOES_ovr_0(x: Fixed; y: Fixed; z: Fixed);
-    external 'opengl32.dll' name 'glScalexOES';
+    private z_ScalexOES_adr := GetFuncAdr('glScalexOES');
+    private z_ScalexOES_ovr_0 := GetFuncOrNil&(z_ScalexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ScalexOES(x: Fixed; y: Fixed; z: Fixed) :=
     z_ScalexOES_ovr_0(x, y, z);
     
-    private static procedure z_TexEnvxOES_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; param: Fixed);
-    external 'opengl32.dll' name 'glTexEnvxOES';
+    private z_TexEnvxOES_adr := GetFuncAdr('glTexEnvxOES');
+    private z_TexEnvxOES_ovr_0 := GetFuncOrNil&(z_TexEnvxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvxOES(target: TextureEnvTarget; pname: TextureEnvParameter; param: Fixed) :=
     z_TexEnvxOES_ovr_0(target, pname, param);
     
-    private static procedure z_TexEnvxvOES_ovr_0(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glTexEnvxvOES';
-    private static procedure z_TexEnvxvOES_ovr_0_anh0001(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnvxvOES';
+    private z_TexEnvxvOES_adr := GetFuncAdr('glTexEnvxvOES');
+    private z_TexEnvxvOES_ovr_0 := GetFuncOrNil&(z_TexEnvxvOES_adr);
+    private z_TexEnvxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_TexEnvxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TexEnvxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_TexEnvxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; var ¶ms: Fixed) :=
     z_TexEnvxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexEnvxvOES_ovr_2(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexEnvxvOES';
+    private z_TexEnvxvOES_ovr_2 := GetFuncOrNil&(z_TexEnvxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexEnvxvOES(target: TextureEnvTarget; pname: TextureEnvParameter; ¶ms: IntPtr) :=
     z_TexEnvxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_TexParameterxOES_ovr_0(target: TextureTarget; pname: GetTextureParameter; param: Fixed);
-    external 'opengl32.dll' name 'glTexParameterxOES';
+    private z_TexParameterxOES_adr := GetFuncAdr('glTexParameterxOES');
+    private z_TexParameterxOES_ovr_0 := GetFuncOrNil&(z_TexParameterxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterxOES(target: TextureTarget; pname: GetTextureParameter; param: Fixed) :=
     z_TexParameterxOES_ovr_0(target, pname, param);
     
-    private static procedure z_TexParameterxvOES_ovr_0(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glTexParameterxvOES';
-    private static procedure z_TexParameterxvOES_ovr_0_anh0001(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterxvOES';
+    private z_TexParameterxvOES_adr := GetFuncAdr('glTexParameterxvOES');
+    private z_TexParameterxvOES_ovr_0 := GetFuncOrNil&(z_TexParameterxvOES_adr);
+    private z_TexParameterxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_TexParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TexParameterxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_TexParameterxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; var ¶ms: Fixed) :=
     z_TexParameterxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_TexParameterxvOES_ovr_2(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexParameterxvOES';
+    private z_TexParameterxvOES_ovr_2 := GetFuncOrNil&(z_TexParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexParameterxvOES(target: TextureTarget; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_TexParameterxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_TranslatexOES_ovr_0(x: Fixed; y: Fixed; z: Fixed);
-    external 'opengl32.dll' name 'glTranslatexOES';
+    private z_TranslatexOES_adr := GetFuncAdr('glTranslatexOES');
+    private z_TranslatexOES_ovr_0 := GetFuncOrNil&(z_TranslatexOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TranslatexOES(x: Fixed; y: Fixed; z: Fixed) :=
     z_TranslatexOES_ovr_0(x, y, z);
     
-    private static procedure z_AccumxOES_ovr_0(op: DummyEnum; value: Fixed);
-    external 'opengl32.dll' name 'glAccumxOES';
+    private z_AccumxOES_adr := GetFuncAdr('glAccumxOES');
+    private z_AccumxOES_ovr_0 := GetFuncOrNil&(z_AccumxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AccumxOES(op: DummyEnum; value: Fixed) :=
     z_AccumxOES_ovr_0(op, value);
     
-    private static procedure z_BitmapxOES_ovr_0(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; var bitmap: Byte);
-    external 'opengl32.dll' name 'glBitmapxOES';
-    private static procedure z_BitmapxOES_ovr_0_anh00000001(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; bitmap: IntPtr);
-    external 'opengl32.dll' name 'glBitmapxOES';
+    private z_BitmapxOES_adr := GetFuncAdr('glBitmapxOES');
+    private z_BitmapxOES_ovr_0 := GetFuncOrNil&(z_BitmapxOES_adr);
+    private z_BitmapxOES_ovr_0_anh00000001 := GetFuncOrNil&(z_BitmapxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BitmapxOES(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; bitmap: array of Byte) :=
     if (bitmap<>nil) and (bitmap.Length<>0) then
       z_BitmapxOES_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap[0]) else
       z_BitmapxOES_ovr_0_anh00000001(width, height, xorig, yorig, xmove, ymove, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BitmapxOES(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; var bitmap: Byte) :=
     z_BitmapxOES_ovr_0(width, height, xorig, yorig, xmove, ymove, bitmap);
-    private static procedure z_BitmapxOES_ovr_2(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; bitmap: IntPtr);
-    external 'opengl32.dll' name 'glBitmapxOES';
+    private z_BitmapxOES_ovr_2 := GetFuncOrNil&(z_BitmapxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BitmapxOES(width: Int32; height: Int32; xorig: Fixed; yorig: Fixed; xmove: Fixed; ymove: Fixed; bitmap: IntPtr) :=
     z_BitmapxOES_ovr_2(width, height, xorig, yorig, xmove, ymove, bitmap);
     
-    private static procedure z_BlendColorxOES_ovr_0(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed);
-    external 'opengl32.dll' name 'glBlendColorxOES';
+    private z_BlendColorxOES_adr := GetFuncAdr('glBlendColorxOES');
+    private z_BlendColorxOES_ovr_0 := GetFuncOrNil&(z_BlendColorxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlendColorxOES(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed) :=
     z_BlendColorxOES_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_ClearAccumxOES_ovr_0(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed);
-    external 'opengl32.dll' name 'glClearAccumxOES';
+    private z_ClearAccumxOES_adr := GetFuncAdr('glClearAccumxOES');
+    private z_ClearAccumxOES_ovr_0 := GetFuncOrNil&(z_ClearAccumxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearAccumxOES(red: Fixed; green: Fixed; blue: Fixed; alpha: Fixed) :=
     z_ClearAccumxOES_ovr_0(red, green, blue, alpha);
     
-    private static procedure z_Color3xOES_ovr_0(red: Fixed; green: Fixed; blue: Fixed);
-    external 'opengl32.dll' name 'glColor3xOES';
+    private z_Color3xOES_adr := GetFuncAdr('glColor3xOES');
+    private z_Color3xOES_ovr_0 := GetFuncOrNil&(z_Color3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3xOES(red: Fixed; green: Fixed; blue: Fixed) :=
     z_Color3xOES_ovr_0(red, green, blue);
     
-    private static procedure z_Color3xvOES_ovr_0(var components: Fixed);
-    external 'opengl32.dll' name 'glColor3xvOES';
-    private static procedure z_Color3xvOES_ovr_0_anh01(components: IntPtr);
-    external 'opengl32.dll' name 'glColor3xvOES';
+    private z_Color3xvOES_adr := GetFuncAdr('glColor3xvOES');
+    private z_Color3xvOES_ovr_0 := GetFuncOrNil&(z_Color3xvOES_adr);
+    private z_Color3xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Color3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3xvOES(components: array of Fixed) :=
     if (components<>nil) and (components.Length<>0) then
       z_Color3xvOES_ovr_0(components[0]) else
       z_Color3xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3xvOES(var components: Fixed) :=
     z_Color3xvOES_ovr_0(components);
-    private static procedure z_Color3xvOES_ovr_2(components: IntPtr);
-    external 'opengl32.dll' name 'glColor3xvOES';
+    private z_Color3xvOES_ovr_2 := GetFuncOrNil&(z_Color3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3xvOES(components: IntPtr) :=
     z_Color3xvOES_ovr_2(components);
     
-    private static procedure z_Color4xvOES_ovr_0(var components: Fixed);
-    external 'opengl32.dll' name 'glColor4xvOES';
-    private static procedure z_Color4xvOES_ovr_0_anh01(components: IntPtr);
-    external 'opengl32.dll' name 'glColor4xvOES';
+    private z_Color4xvOES_adr := GetFuncAdr('glColor4xvOES');
+    private z_Color4xvOES_ovr_0 := GetFuncOrNil&(z_Color4xvOES_adr);
+    private z_Color4xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Color4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4xvOES(components: array of Fixed) :=
     if (components<>nil) and (components.Length<>0) then
       z_Color4xvOES_ovr_0(components[0]) else
       z_Color4xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4xvOES(var components: Fixed) :=
     z_Color4xvOES_ovr_0(components);
-    private static procedure z_Color4xvOES_ovr_2(components: IntPtr);
-    external 'opengl32.dll' name 'glColor4xvOES';
+    private z_Color4xvOES_ovr_2 := GetFuncOrNil&(z_Color4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4xvOES(components: IntPtr) :=
     z_Color4xvOES_ovr_2(components);
     
-    private static procedure z_ConvolutionParameterxOES_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; param: Fixed);
-    external 'opengl32.dll' name 'glConvolutionParameterxOES';
+    private z_ConvolutionParameterxOES_adr := GetFuncAdr('glConvolutionParameterxOES');
+    private z_ConvolutionParameterxOES_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterxOES(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; param: Fixed) :=
     z_ConvolutionParameterxOES_ovr_0(target, pname, param);
     
-    private static procedure z_ConvolutionParameterxvOES_ovr_0(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glConvolutionParameterxvOES';
-    private static procedure z_ConvolutionParameterxvOES_ovr_0_anh0001(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterxvOES';
+    private z_ConvolutionParameterxvOES_adr := GetFuncAdr('glConvolutionParameterxvOES');
+    private z_ConvolutionParameterxvOES_ovr_0 := GetFuncOrNil&(z_ConvolutionParameterxvOES_adr);
+    private z_ConvolutionParameterxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_ConvolutionParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterxvOES(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ConvolutionParameterxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_ConvolutionParameterxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterxvOES(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; var ¶ms: Fixed) :=
     z_ConvolutionParameterxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_ConvolutionParameterxvOES_ovr_2(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glConvolutionParameterxvOES';
+    private z_ConvolutionParameterxvOES_ovr_2 := GetFuncOrNil&(z_ConvolutionParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ConvolutionParameterxvOES(target: ConvolutionTargetEXT; pname: ConvolutionParameterEXT; ¶ms: IntPtr) :=
     z_ConvolutionParameterxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_EvalCoord1xOES_ovr_0(u: Fixed);
-    external 'opengl32.dll' name 'glEvalCoord1xOES';
+    private z_EvalCoord1xOES_adr := GetFuncAdr('glEvalCoord1xOES');
+    private z_EvalCoord1xOES_ovr_0 := GetFuncOrNil&(z_EvalCoord1xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1xOES(u: Fixed) :=
     z_EvalCoord1xOES_ovr_0(u);
     
-    private static procedure z_EvalCoord1xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glEvalCoord1xvOES';
-    private static procedure z_EvalCoord1xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1xvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1xvOES(coords: array of Fixed) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_EvalCoord1xvOES_ovr_0(coords[0]) else
-      z_EvalCoord1xvOES_ovr_0_anh01(IntPtr.Zero);
+    private z_EvalCoord1xvOES_adr := GetFuncAdr('glEvalCoord1xvOES');
+    private z_EvalCoord1xvOES_ovr_0 := GetFuncOrNil&(z_EvalCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1xvOES(var coords: Fixed) :=
     z_EvalCoord1xvOES_ovr_0(coords);
-    private static procedure z_EvalCoord1xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord1xvOES';
+    private z_EvalCoord1xvOES_ovr_1 := GetFuncOrNil&(z_EvalCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord1xvOES(coords: IntPtr) :=
-    z_EvalCoord1xvOES_ovr_2(coords);
+    z_EvalCoord1xvOES_ovr_1(coords);
     
-    private static procedure z_EvalCoord2xOES_ovr_0(u: Fixed; v: Fixed);
-    external 'opengl32.dll' name 'glEvalCoord2xOES';
+    private z_EvalCoord2xOES_adr := GetFuncAdr('glEvalCoord2xOES');
+    private z_EvalCoord2xOES_ovr_0 := GetFuncOrNil&(z_EvalCoord2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2xOES(u: Fixed; v: Fixed) :=
     z_EvalCoord2xOES_ovr_0(u, v);
     
-    private static procedure z_EvalCoord2xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glEvalCoord2xvOES';
-    private static procedure z_EvalCoord2xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2xvOES';
+    private z_EvalCoord2xvOES_adr := GetFuncAdr('glEvalCoord2xvOES');
+    private z_EvalCoord2xvOES_ovr_0 := GetFuncOrNil&(z_EvalCoord2xvOES_adr);
+    private z_EvalCoord2xvOES_ovr_0_anh01 := GetFuncOrNil&(z_EvalCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_EvalCoord2xvOES_ovr_0(coords[0]) else
       z_EvalCoord2xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2xvOES(var coords: Fixed) :=
     z_EvalCoord2xvOES_ovr_0(coords);
-    private static procedure z_EvalCoord2xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glEvalCoord2xvOES';
+    private z_EvalCoord2xvOES_ovr_2 := GetFuncOrNil&(z_EvalCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure EvalCoord2xvOES(coords: IntPtr) :=
     z_EvalCoord2xvOES_ovr_2(coords);
     
-    private static procedure z_FeedbackBufferxOES_ovr_0(n: Int32; &type: DummyEnum; var buffer: Fixed);
-    external 'opengl32.dll' name 'glFeedbackBufferxOES';
-    private static procedure z_FeedbackBufferxOES_ovr_0_anh0001(n: Int32; &type: DummyEnum; buffer: IntPtr);
-    external 'opengl32.dll' name 'glFeedbackBufferxOES';
+    private z_FeedbackBufferxOES_adr := GetFuncAdr('glFeedbackBufferxOES');
+    private z_FeedbackBufferxOES_ovr_0 := GetFuncOrNil&(z_FeedbackBufferxOES_adr);
+    private z_FeedbackBufferxOES_ovr_0_anh0001 := GetFuncOrNil&(z_FeedbackBufferxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBufferxOES(n: Int32; &type: DummyEnum; buffer: array of Fixed) :=
     if (buffer<>nil) and (buffer.Length<>0) then
       z_FeedbackBufferxOES_ovr_0(n, &type, buffer[0]) else
       z_FeedbackBufferxOES_ovr_0_anh0001(n, &type, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBufferxOES(n: Int32; &type: DummyEnum; var buffer: Fixed) :=
     z_FeedbackBufferxOES_ovr_0(n, &type, buffer);
-    private static procedure z_FeedbackBufferxOES_ovr_2(n: Int32; &type: DummyEnum; buffer: IntPtr);
-    external 'opengl32.dll' name 'glFeedbackBufferxOES';
+    private z_FeedbackBufferxOES_ovr_2 := GetFuncOrNil&(z_FeedbackBufferxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FeedbackBufferxOES(n: Int32; &type: DummyEnum; buffer: IntPtr) :=
     z_FeedbackBufferxOES_ovr_2(n, &type, buffer);
     
-    private static procedure z_GetConvolutionParameterxvOES_ovr_0(target: DummyEnum; pname: DummyEnum; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetConvolutionParameterxvOES';
-    private static procedure z_GetConvolutionParameterxvOES_ovr_0_anh0001(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterxvOES';
+    private z_GetConvolutionParameterxvOES_adr := GetFuncAdr('glGetConvolutionParameterxvOES');
+    private z_GetConvolutionParameterxvOES_ovr_0 := GetFuncOrNil&(z_GetConvolutionParameterxvOES_adr);
+    private z_GetConvolutionParameterxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetConvolutionParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterxvOES(target: DummyEnum; pname: DummyEnum; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetConvolutionParameterxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_GetConvolutionParameterxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterxvOES(target: DummyEnum; pname: DummyEnum; var ¶ms: Fixed) :=
     z_GetConvolutionParameterxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetConvolutionParameterxvOES_ovr_2(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetConvolutionParameterxvOES';
+    private z_GetConvolutionParameterxvOES_ovr_2 := GetFuncOrNil&(z_GetConvolutionParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetConvolutionParameterxvOES(target: DummyEnum; pname: DummyEnum; ¶ms: IntPtr) :=
     z_GetConvolutionParameterxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetHistogramParameterxvOES_ovr_0(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetHistogramParameterxvOES';
-    private static procedure z_GetHistogramParameterxvOES_ovr_0_anh0001(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterxvOES';
+    private z_GetHistogramParameterxvOES_adr := GetFuncAdr('glGetHistogramParameterxvOES');
+    private z_GetHistogramParameterxvOES_ovr_0 := GetFuncOrNil&(z_GetHistogramParameterxvOES_adr);
+    private z_GetHistogramParameterxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetHistogramParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterxvOES(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetHistogramParameterxvOES_ovr_0(target, pname, ¶ms[0]) else
       z_GetHistogramParameterxvOES_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterxvOES(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; var ¶ms: Fixed) :=
     z_GetHistogramParameterxvOES_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetHistogramParameterxvOES_ovr_2(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetHistogramParameterxvOES';
+    private z_GetHistogramParameterxvOES_ovr_2 := GetFuncOrNil&(z_GetHistogramParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetHistogramParameterxvOES(target: HistogramTargetEXT; pname: GetHistogramParameterPNameEXT; ¶ms: IntPtr) :=
     z_GetHistogramParameterxvOES_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetLightxOES_ovr_0(light: LightName; pname: LightParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetLightxOES';
-    private static procedure z_GetLightxOES_ovr_0_anh0001(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightxOES';
+    private z_GetLightxOES_adr := GetFuncAdr('glGetLightxOES');
+    private z_GetLightxOES_ovr_0 := GetFuncOrNil&(z_GetLightxOES_adr);
+    private z_GetLightxOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetLightxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightxOES(light: LightName; pname: LightParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetLightxOES_ovr_0(light, pname, ¶ms[0]) else
       z_GetLightxOES_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightxOES(light: LightName; pname: LightParameter; var ¶ms: Fixed) :=
     z_GetLightxOES_ovr_0(light, pname, ¶ms);
-    private static procedure z_GetLightxOES_ovr_2(light: LightName; pname: LightParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetLightxOES';
+    private z_GetLightxOES_ovr_2 := GetFuncOrNil&(z_GetLightxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetLightxOES(light: LightName; pname: LightParameter; ¶ms: IntPtr) :=
     z_GetLightxOES_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_GetMapxvOES_ovr_0(target: MapTarget; query: GetMapQuery; var v: Fixed);
-    external 'opengl32.dll' name 'glGetMapxvOES';
-    private static procedure z_GetMapxvOES_ovr_0_anh0001(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapxvOES';
+    private z_GetMapxvOES_adr := GetFuncAdr('glGetMapxvOES');
+    private z_GetMapxvOES_ovr_0 := GetFuncOrNil&(z_GetMapxvOES_adr);
+    private z_GetMapxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetMapxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapxvOES(target: MapTarget; query: GetMapQuery; v: array of Fixed) :=
     if (v<>nil) and (v.Length<>0) then
       z_GetMapxvOES_ovr_0(target, query, v[0]) else
       z_GetMapxvOES_ovr_0_anh0001(target, query, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapxvOES(target: MapTarget; query: GetMapQuery; var v: Fixed) :=
     z_GetMapxvOES_ovr_0(target, query, v);
-    private static procedure z_GetMapxvOES_ovr_2(target: MapTarget; query: GetMapQuery; v: IntPtr);
-    external 'opengl32.dll' name 'glGetMapxvOES';
+    private z_GetMapxvOES_ovr_2 := GetFuncOrNil&(z_GetMapxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMapxvOES(target: MapTarget; query: GetMapQuery; v: IntPtr) :=
     z_GetMapxvOES_ovr_2(target, query, v);
     
-    private static procedure z_GetMaterialxOES_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Fixed);
-    external 'opengl32.dll' name 'glGetMaterialxOES';
+    private z_GetMaterialxOES_adr := GetFuncAdr('glGetMaterialxOES');
+    private z_GetMaterialxOES_ovr_0 := GetFuncOrNil&(z_GetMaterialxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetMaterialxOES(face: MaterialFace; pname: MaterialParameter; param: Fixed) :=
     z_GetMaterialxOES_ovr_0(face, pname, param);
     
-    private static procedure z_GetPixelMapxv_ovr_0(map: PixelMap; size: Int32; var values: Fixed);
-    external 'opengl32.dll' name 'glGetPixelMapxv';
-    private static procedure z_GetPixelMapxv_ovr_0_anh0001(map: PixelMap; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapxv';
+    private z_GetPixelMapxv_adr := GetFuncAdr('glGetPixelMapxv');
+    private z_GetPixelMapxv_ovr_0 := GetFuncOrNil&(z_GetPixelMapxv_adr);
+    private z_GetPixelMapxv_ovr_0_anh0001 := GetFuncOrNil&(z_GetPixelMapxv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapxv(map: PixelMap; size: Int32; values: array of Fixed) :=
     if (values<>nil) and (values.Length<>0) then
       z_GetPixelMapxv_ovr_0(map, size, values[0]) else
       z_GetPixelMapxv_ovr_0_anh0001(map, size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapxv(map: PixelMap; size: Int32; var values: Fixed) :=
     z_GetPixelMapxv_ovr_0(map, size, values);
-    private static procedure z_GetPixelMapxv_ovr_2(map: PixelMap; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelMapxv';
+    private z_GetPixelMapxv_ovr_2 := GetFuncOrNil&(z_GetPixelMapxv_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelMapxv(map: PixelMap; size: Int32; values: IntPtr) :=
     z_GetPixelMapxv_ovr_2(map, size, values);
     
-    private static procedure z_GetTexGenxvOES_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetTexGenxvOES';
-    private static procedure z_GetTexGenxvOES_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGenxvOES';
+    private z_GetTexGenxvOES_adr := GetFuncAdr('glGetTexGenxvOES');
+    private z_GetTexGenxvOES_ovr_0 := GetFuncOrNil&(z_GetTexGenxvOES_adr);
+    private z_GetTexGenxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexGenxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexGenxvOES_ovr_0(coord, pname, ¶ms[0]) else
       z_GetTexGenxvOES_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Fixed) :=
     z_GetTexGenxvOES_ovr_0(coord, pname, ¶ms);
-    private static procedure z_GetTexGenxvOES_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexGenxvOES';
+    private z_GetTexGenxvOES_ovr_2 := GetFuncOrNil&(z_GetTexGenxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_GetTexGenxvOES_ovr_2(coord, pname, ¶ms);
     
-    private static procedure z_GetTexLevelParameterxvOES_ovr_0(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glGetTexLevelParameterxvOES';
-    private static procedure z_GetTexLevelParameterxvOES_ovr_0_anh00001(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameterxvOES';
+    private z_GetTexLevelParameterxvOES_adr := GetFuncAdr('glGetTexLevelParameterxvOES');
+    private z_GetTexLevelParameterxvOES_ovr_0 := GetFuncOrNil&(z_GetTexLevelParameterxvOES_adr);
+    private z_GetTexLevelParameterxvOES_ovr_0_anh00001 := GetFuncOrNil&(z_GetTexLevelParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterxvOES(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetTexLevelParameterxvOES_ovr_0(target, level, pname, ¶ms[0]) else
       z_GetTexLevelParameterxvOES_ovr_0_anh00001(target, level, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterxvOES(target: TextureTarget; level: Int32; pname: GetTextureParameter; var ¶ms: Fixed) :=
     z_GetTexLevelParameterxvOES_ovr_0(target, level, pname, ¶ms);
-    private static procedure z_GetTexLevelParameterxvOES_ovr_2(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetTexLevelParameterxvOES';
+    private z_GetTexLevelParameterxvOES_ovr_2 := GetFuncOrNil&(z_GetTexLevelParameterxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexLevelParameterxvOES(target: TextureTarget; level: Int32; pname: GetTextureParameter; ¶ms: IntPtr) :=
     z_GetTexLevelParameterxvOES_ovr_2(target, level, pname, ¶ms);
     
-    private static procedure z_IndexxOES_ovr_0(component: Fixed);
-    external 'opengl32.dll' name 'glIndexxOES';
+    private z_IndexxOES_adr := GetFuncAdr('glIndexxOES');
+    private z_IndexxOES_ovr_0 := GetFuncOrNil&(z_IndexxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexxOES(component: Fixed) :=
     z_IndexxOES_ovr_0(component);
     
-    private static procedure z_IndexxvOES_ovr_0(var component: Fixed);
-    external 'opengl32.dll' name 'glIndexxvOES';
-    private static procedure z_IndexxvOES_ovr_0_anh01(component: IntPtr);
-    external 'opengl32.dll' name 'glIndexxvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexxvOES(component: array of Fixed) :=
-    if (component<>nil) and (component.Length<>0) then
-      z_IndexxvOES_ovr_0(component[0]) else
-      z_IndexxvOES_ovr_0_anh01(IntPtr.Zero);
+    private z_IndexxvOES_adr := GetFuncAdr('glIndexxvOES');
+    private z_IndexxvOES_ovr_0 := GetFuncOrNil&(z_IndexxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexxvOES(var component: Fixed) :=
     z_IndexxvOES_ovr_0(component);
-    private static procedure z_IndexxvOES_ovr_2(component: IntPtr);
-    external 'opengl32.dll' name 'glIndexxvOES';
+    private z_IndexxvOES_ovr_1 := GetFuncOrNil&(z_IndexxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IndexxvOES(component: IntPtr) :=
-    z_IndexxvOES_ovr_2(component);
+    z_IndexxvOES_ovr_1(component);
     
-    private static procedure z_LoadTransposeMatrixxOES_ovr_0(var m: Fixed);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixxOES';
-    private static procedure z_LoadTransposeMatrixxOES_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixxOES';
+    private z_LoadTransposeMatrixxOES_adr := GetFuncAdr('glLoadTransposeMatrixxOES');
+    private z_LoadTransposeMatrixxOES_ovr_0 := GetFuncOrNil&(z_LoadTransposeMatrixxOES_adr);
+    private z_LoadTransposeMatrixxOES_ovr_0_anh01 := GetFuncOrNil&(z_LoadTransposeMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixxOES(m: array of Fixed) :=
     if (m<>nil) and (m.Length<>0) then
       z_LoadTransposeMatrixxOES_ovr_0(m[0]) else
       z_LoadTransposeMatrixxOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixxOES(var m: Fixed) :=
     z_LoadTransposeMatrixxOES_ovr_0(m);
-    private static procedure z_LoadTransposeMatrixxOES_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glLoadTransposeMatrixxOES';
+    private z_LoadTransposeMatrixxOES_ovr_2 := GetFuncOrNil&(z_LoadTransposeMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadTransposeMatrixxOES(m: IntPtr) :=
     z_LoadTransposeMatrixxOES_ovr_2(m);
     
-    private static procedure z_Map1xOES_ovr_0(target: MapTarget; u1: Fixed; u2: Fixed; stride: Int32; order: Int32; points: Fixed);
-    external 'opengl32.dll' name 'glMap1xOES';
+    private z_Map1xOES_adr := GetFuncAdr('glMap1xOES');
+    private z_Map1xOES_ovr_0 := GetFuncOrNil&(z_Map1xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map1xOES(target: MapTarget; u1: Fixed; u2: Fixed; stride: Int32; order: Int32; points: Fixed) :=
     z_Map1xOES_ovr_0(target, u1, u2, stride, order, points);
     
-    private static procedure z_Map2xOES_ovr_0(target: MapTarget; u1: Fixed; u2: Fixed; ustride: Int32; uorder: Int32; v1: Fixed; v2: Fixed; vstride: Int32; vorder: Int32; points: Fixed);
-    external 'opengl32.dll' name 'glMap2xOES';
+    private z_Map2xOES_adr := GetFuncAdr('glMap2xOES');
+    private z_Map2xOES_ovr_0 := GetFuncOrNil&(z_Map2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Map2xOES(target: MapTarget; u1: Fixed; u2: Fixed; ustride: Int32; uorder: Int32; v1: Fixed; v2: Fixed; vstride: Int32; vorder: Int32; points: Fixed) :=
     z_Map2xOES_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, points);
     
-    private static procedure z_MapGrid1xOES_ovr_0(n: Int32; u1: Fixed; u2: Fixed);
-    external 'opengl32.dll' name 'glMapGrid1xOES';
+    private z_MapGrid1xOES_adr := GetFuncAdr('glMapGrid1xOES');
+    private z_MapGrid1xOES_ovr_0 := GetFuncOrNil&(z_MapGrid1xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid1xOES(n: Int32; u1: Fixed; u2: Fixed) :=
     z_MapGrid1xOES_ovr_0(n, u1, u2);
     
-    private static procedure z_MapGrid2xOES_ovr_0(n: Int32; u1: Fixed; u2: Fixed; v1: Fixed; v2: Fixed);
-    external 'opengl32.dll' name 'glMapGrid2xOES';
+    private z_MapGrid2xOES_adr := GetFuncAdr('glMapGrid2xOES');
+    private z_MapGrid2xOES_ovr_0 := GetFuncOrNil&(z_MapGrid2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MapGrid2xOES(n: Int32; u1: Fixed; u2: Fixed; v1: Fixed; v2: Fixed) :=
     z_MapGrid2xOES_ovr_0(n, u1, u2, v1, v2);
     
-    private static procedure z_MultTransposeMatrixxOES_ovr_0(var m: Fixed);
-    external 'opengl32.dll' name 'glMultTransposeMatrixxOES';
-    private static procedure z_MultTransposeMatrixxOES_ovr_0_anh01(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixxOES';
+    private z_MultTransposeMatrixxOES_adr := GetFuncAdr('glMultTransposeMatrixxOES');
+    private z_MultTransposeMatrixxOES_ovr_0 := GetFuncOrNil&(z_MultTransposeMatrixxOES_adr);
+    private z_MultTransposeMatrixxOES_ovr_0_anh01 := GetFuncOrNil&(z_MultTransposeMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixxOES(m: array of Fixed) :=
     if (m<>nil) and (m.Length<>0) then
       z_MultTransposeMatrixxOES_ovr_0(m[0]) else
       z_MultTransposeMatrixxOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixxOES(var m: Fixed) :=
     z_MultTransposeMatrixxOES_ovr_0(m);
-    private static procedure z_MultTransposeMatrixxOES_ovr_2(m: IntPtr);
-    external 'opengl32.dll' name 'glMultTransposeMatrixxOES';
+    private z_MultTransposeMatrixxOES_ovr_2 := GetFuncOrNil&(z_MultTransposeMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultTransposeMatrixxOES(m: IntPtr) :=
     z_MultTransposeMatrixxOES_ovr_2(m);
     
-    private static procedure z_MultiTexCoord1xOES_ovr_0(texture: TextureUnit; s: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord1xOES';
+    private z_MultiTexCoord1xOES_adr := GetFuncAdr('glMultiTexCoord1xOES');
+    private z_MultiTexCoord1xOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1xOES(texture: TextureUnit; s: Fixed) :=
     z_MultiTexCoord1xOES_ovr_0(texture, s);
     
-    private static procedure z_MultiTexCoord1xvOES_ovr_0(texture: TextureUnit; var coords: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord1xvOES';
-    private static procedure z_MultiTexCoord1xvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1xvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1xvOES(texture: TextureUnit; coords: array of Fixed) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_MultiTexCoord1xvOES_ovr_0(texture, coords[0]) else
-      z_MultiTexCoord1xvOES_ovr_0_anh001(texture, IntPtr.Zero);
+    private z_MultiTexCoord1xvOES_adr := GetFuncAdr('glMultiTexCoord1xvOES');
+    private z_MultiTexCoord1xvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1xvOES(texture: TextureUnit; var coords: Fixed) :=
     z_MultiTexCoord1xvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord1xvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord1xvOES';
+    private z_MultiTexCoord1xvOES_ovr_1 := GetFuncOrNil&(z_MultiTexCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord1xvOES(texture: TextureUnit; coords: IntPtr) :=
-    z_MultiTexCoord1xvOES_ovr_2(texture, coords);
+    z_MultiTexCoord1xvOES_ovr_1(texture, coords);
     
-    private static procedure z_MultiTexCoord2xOES_ovr_0(texture: TextureUnit; s: Fixed; t: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord2xOES';
+    private z_MultiTexCoord2xOES_adr := GetFuncAdr('glMultiTexCoord2xOES');
+    private z_MultiTexCoord2xOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2xOES(texture: TextureUnit; s: Fixed; t: Fixed) :=
     z_MultiTexCoord2xOES_ovr_0(texture, s, t);
     
-    private static procedure z_MultiTexCoord2xvOES_ovr_0(texture: TextureUnit; var coords: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord2xvOES';
-    private static procedure z_MultiTexCoord2xvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2xvOES';
+    private z_MultiTexCoord2xvOES_adr := GetFuncAdr('glMultiTexCoord2xvOES');
+    private z_MultiTexCoord2xvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord2xvOES_adr);
+    private z_MultiTexCoord2xvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2xvOES(texture: TextureUnit; coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord2xvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord2xvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2xvOES(texture: TextureUnit; var coords: Fixed) :=
     z_MultiTexCoord2xvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord2xvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord2xvOES';
+    private z_MultiTexCoord2xvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord2xvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord2xvOES_ovr_2(texture, coords);
     
-    private static procedure z_MultiTexCoord3xOES_ovr_0(texture: TextureUnit; s: Fixed; t: Fixed; r: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord3xOES';
+    private z_MultiTexCoord3xOES_adr := GetFuncAdr('glMultiTexCoord3xOES');
+    private z_MultiTexCoord3xOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3xOES(texture: TextureUnit; s: Fixed; t: Fixed; r: Fixed) :=
     z_MultiTexCoord3xOES_ovr_0(texture, s, t, r);
     
-    private static procedure z_MultiTexCoord3xvOES_ovr_0(texture: TextureUnit; var coords: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord3xvOES';
-    private static procedure z_MultiTexCoord3xvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3xvOES';
+    private z_MultiTexCoord3xvOES_adr := GetFuncAdr('glMultiTexCoord3xvOES');
+    private z_MultiTexCoord3xvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord3xvOES_adr);
+    private z_MultiTexCoord3xvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3xvOES(texture: TextureUnit; coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord3xvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord3xvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3xvOES(texture: TextureUnit; var coords: Fixed) :=
     z_MultiTexCoord3xvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord3xvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord3xvOES';
+    private z_MultiTexCoord3xvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord3xvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord3xvOES_ovr_2(texture, coords);
     
-    private static procedure z_MultiTexCoord4xvOES_ovr_0(texture: TextureUnit; var coords: Fixed);
-    external 'opengl32.dll' name 'glMultiTexCoord4xvOES';
-    private static procedure z_MultiTexCoord4xvOES_ovr_0_anh001(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4xvOES';
+    private z_MultiTexCoord4xvOES_adr := GetFuncAdr('glMultiTexCoord4xvOES');
+    private z_MultiTexCoord4xvOES_ovr_0 := GetFuncOrNil&(z_MultiTexCoord4xvOES_adr);
+    private z_MultiTexCoord4xvOES_ovr_0_anh001 := GetFuncOrNil&(z_MultiTexCoord4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4xvOES(texture: TextureUnit; coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_MultiTexCoord4xvOES_ovr_0(texture, coords[0]) else
       z_MultiTexCoord4xvOES_ovr_0_anh001(texture, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4xvOES(texture: TextureUnit; var coords: Fixed) :=
     z_MultiTexCoord4xvOES_ovr_0(texture, coords);
-    private static procedure z_MultiTexCoord4xvOES_ovr_2(texture: TextureUnit; coords: IntPtr);
-    external 'opengl32.dll' name 'glMultiTexCoord4xvOES';
+    private z_MultiTexCoord4xvOES_ovr_2 := GetFuncOrNil&(z_MultiTexCoord4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure MultiTexCoord4xvOES(texture: TextureUnit; coords: IntPtr) :=
     z_MultiTexCoord4xvOES_ovr_2(texture, coords);
     
-    private static procedure z_Normal3xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glNormal3xvOES';
-    private static procedure z_Normal3xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glNormal3xvOES';
+    private z_Normal3xvOES_adr := GetFuncAdr('glNormal3xvOES');
+    private z_Normal3xvOES_ovr_0 := GetFuncOrNil&(z_Normal3xvOES_adr);
+    private z_Normal3xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Normal3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Normal3xvOES_ovr_0(coords[0]) else
       z_Normal3xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3xvOES(var coords: Fixed) :=
     z_Normal3xvOES_ovr_0(coords);
-    private static procedure z_Normal3xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glNormal3xvOES';
+    private z_Normal3xvOES_ovr_2 := GetFuncOrNil&(z_Normal3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3xvOES(coords: IntPtr) :=
     z_Normal3xvOES_ovr_2(coords);
     
-    private static procedure z_PassThroughxOES_ovr_0(token: Fixed);
-    external 'opengl32.dll' name 'glPassThroughxOES';
+    private z_PassThroughxOES_adr := GetFuncAdr('glPassThroughxOES');
+    private z_PassThroughxOES_ovr_0 := GetFuncOrNil&(z_PassThroughxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PassThroughxOES(token: Fixed) :=
     z_PassThroughxOES_ovr_0(token);
     
-    private static procedure z_PixelMapx_ovr_0(map: PixelMap; size: Int32; var values: Fixed);
-    external 'opengl32.dll' name 'glPixelMapx';
-    private static procedure z_PixelMapx_ovr_0_anh0001(map: PixelMap; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapx';
+    private z_PixelMapx_adr := GetFuncAdr('glPixelMapx');
+    private z_PixelMapx_ovr_0 := GetFuncOrNil&(z_PixelMapx_adr);
+    private z_PixelMapx_ovr_0_anh0001 := GetFuncOrNil&(z_PixelMapx_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapx(map: PixelMap; size: Int32; values: array of Fixed) :=
     if (values<>nil) and (values.Length<>0) then
       z_PixelMapx_ovr_0(map, size, values[0]) else
       z_PixelMapx_ovr_0_anh0001(map, size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapx(map: PixelMap; size: Int32; var values: Fixed) :=
     z_PixelMapx_ovr_0(map, size, values);
-    private static procedure z_PixelMapx_ovr_2(map: PixelMap; size: Int32; values: IntPtr);
-    external 'opengl32.dll' name 'glPixelMapx';
+    private z_PixelMapx_ovr_2 := GetFuncOrNil&(z_PixelMapx_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelMapx(map: PixelMap; size: Int32; values: IntPtr) :=
     z_PixelMapx_ovr_2(map, size, values);
     
-    private static procedure z_PixelStorex_ovr_0(pname: PixelStoreParameter; param: Fixed);
-    external 'opengl32.dll' name 'glPixelStorex';
+    private z_PixelStorex_adr := GetFuncAdr('glPixelStorex');
+    private z_PixelStorex_ovr_0 := GetFuncOrNil&(z_PixelStorex_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelStorex(pname: PixelStoreParameter; param: Fixed) :=
     z_PixelStorex_ovr_0(pname, param);
     
-    private static procedure z_PixelTransferxOES_ovr_0(pname: PixelTransferParameter; param: Fixed);
-    external 'opengl32.dll' name 'glPixelTransferxOES';
+    private z_PixelTransferxOES_adr := GetFuncAdr('glPixelTransferxOES');
+    private z_PixelTransferxOES_ovr_0 := GetFuncOrNil&(z_PixelTransferxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTransferxOES(pname: PixelTransferParameter; param: Fixed) :=
     z_PixelTransferxOES_ovr_0(pname, param);
     
-    private static procedure z_PixelZoomxOES_ovr_0(xfactor: Fixed; yfactor: Fixed);
-    external 'opengl32.dll' name 'glPixelZoomxOES';
+    private z_PixelZoomxOES_adr := GetFuncAdr('glPixelZoomxOES');
+    private z_PixelZoomxOES_ovr_0 := GetFuncOrNil&(z_PixelZoomxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelZoomxOES(xfactor: Fixed; yfactor: Fixed) :=
     z_PixelZoomxOES_ovr_0(xfactor, yfactor);
     
-    private static procedure z_PrioritizeTexturesxOES_ovr_0(n: Int32; var textures: UInt32; var priorities: Fixed);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    private static procedure z_PrioritizeTexturesxOES_ovr_0_anh0010(n: Int32; textures: IntPtr; var priorities: Fixed);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    private static procedure z_PrioritizeTexturesxOES_ovr_0_anh0001(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    private static procedure z_PrioritizeTexturesxOES_ovr_0_anh0011(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of UInt32; priorities: array of Fixed) :=
+    private z_PrioritizeTexturesxOES_adr := GetFuncAdr('glPrioritizeTexturesxOES');
+    private z_PrioritizeTexturesxOES_ovr_0 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    private z_PrioritizeTexturesxOES_ovr_0_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    private z_PrioritizeTexturesxOES_ovr_0_anh0001 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    private z_PrioritizeTexturesxOES_ovr_0_anh0011 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of gl_texture; priorities: array of Fixed) :=
     if (textures<>nil) and (textures.Length<>0) then
       if (priorities<>nil) and (priorities.Length<>0) then
         z_PrioritizeTexturesxOES_ovr_0(n, textures[0], priorities[0]) else
@@ -69501,116 +65741,101 @@ type
       if (priorities<>nil) and (priorities.Length<>0) then
         z_PrioritizeTexturesxOES_ovr_0_anh0010(n, IntPtr.Zero, priorities[0]) else
         z_PrioritizeTexturesxOES_ovr_0_anh0011(n, IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_PrioritizeTexturesxOES_ovr_1_anh0010(n: Int32; textures: IntPtr; var priorities: Fixed);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of UInt32; var priorities: Fixed) :=
+    private z_PrioritizeTexturesxOES_ovr_1_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of gl_texture; var priorities: Fixed) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_PrioritizeTexturesxOES_ovr_0(n, textures[0], priorities) else
       z_PrioritizeTexturesxOES_ovr_0_anh0010(n, IntPtr.Zero, priorities);
-    private static procedure z_PrioritizeTexturesxOES_ovr_2(n: Int32; var textures: UInt32; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    private static procedure z_PrioritizeTexturesxOES_ovr_2_anh0010(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of UInt32; priorities: IntPtr) :=
+    private z_PrioritizeTexturesxOES_ovr_2 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    private z_PrioritizeTexturesxOES_ovr_2_anh0010 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: array of gl_texture; priorities: IntPtr) :=
     if (textures<>nil) and (textures.Length<>0) then
       z_PrioritizeTexturesxOES_ovr_2(n, textures[0], priorities) else
       z_PrioritizeTexturesxOES_ovr_2_anh0010(n, IntPtr.Zero, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: UInt32; priorities: array of Fixed) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: gl_texture; priorities: array of Fixed) :=
     if (priorities<>nil) and (priorities.Length<>0) then
       z_PrioritizeTexturesxOES_ovr_0(n, textures, priorities[0]) else
       z_PrioritizeTexturesxOES_ovr_0_anh0001(n, textures, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: UInt32; var priorities: Fixed) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: gl_texture; var priorities: Fixed) :=
     z_PrioritizeTexturesxOES_ovr_0(n, textures, priorities);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: UInt32; priorities: IntPtr) :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; var textures: gl_texture; priorities: IntPtr) :=
     z_PrioritizeTexturesxOES_ovr_2(n, textures, priorities);
-    private static procedure z_PrioritizeTexturesxOES_ovr_6(n: Int32; textures: IntPtr; var priorities: Fixed);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
-    private static procedure z_PrioritizeTexturesxOES_ovr_6_anh0001(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
+    private z_PrioritizeTexturesxOES_ovr_6 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
+    private z_PrioritizeTexturesxOES_ovr_6_anh0001 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: IntPtr; priorities: array of Fixed) :=
     if (priorities<>nil) and (priorities.Length<>0) then
       z_PrioritizeTexturesxOES_ovr_6(n, textures, priorities[0]) else
       z_PrioritizeTexturesxOES_ovr_6_anh0001(n, textures, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: IntPtr; var priorities: Fixed) :=
     z_PrioritizeTexturesxOES_ovr_6(n, textures, priorities);
-    private static procedure z_PrioritizeTexturesxOES_ovr_8(n: Int32; textures: IntPtr; priorities: IntPtr);
-    external 'opengl32.dll' name 'glPrioritizeTexturesxOES';
+    private z_PrioritizeTexturesxOES_ovr_8 := GetFuncOrNil&(z_PrioritizeTexturesxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PrioritizeTexturesxOES(n: Int32; textures: IntPtr; priorities: IntPtr) :=
     z_PrioritizeTexturesxOES_ovr_8(n, textures, priorities);
     
-    private static procedure z_RasterPos2xOES_ovr_0(x: Fixed; y: Fixed);
-    external 'opengl32.dll' name 'glRasterPos2xOES';
+    private z_RasterPos2xOES_adr := GetFuncAdr('glRasterPos2xOES');
+    private z_RasterPos2xOES_ovr_0 := GetFuncOrNil&(z_RasterPos2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2xOES(x: Fixed; y: Fixed) :=
     z_RasterPos2xOES_ovr_0(x, y);
     
-    private static procedure z_RasterPos2xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glRasterPos2xvOES';
-    private static procedure z_RasterPos2xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2xvOES';
+    private z_RasterPos2xvOES_adr := GetFuncAdr('glRasterPos2xvOES');
+    private z_RasterPos2xvOES_ovr_0 := GetFuncOrNil&(z_RasterPos2xvOES_adr);
+    private z_RasterPos2xvOES_ovr_0_anh01 := GetFuncOrNil&(z_RasterPos2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_RasterPos2xvOES_ovr_0(coords[0]) else
       z_RasterPos2xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2xvOES(var coords: Fixed) :=
     z_RasterPos2xvOES_ovr_0(coords);
-    private static procedure z_RasterPos2xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos2xvOES';
+    private z_RasterPos2xvOES_ovr_2 := GetFuncOrNil&(z_RasterPos2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos2xvOES(coords: IntPtr) :=
     z_RasterPos2xvOES_ovr_2(coords);
     
-    private static procedure z_RasterPos3xOES_ovr_0(x: Fixed; y: Fixed; z: Fixed);
-    external 'opengl32.dll' name 'glRasterPos3xOES';
+    private z_RasterPos3xOES_adr := GetFuncAdr('glRasterPos3xOES');
+    private z_RasterPos3xOES_ovr_0 := GetFuncOrNil&(z_RasterPos3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3xOES(x: Fixed; y: Fixed; z: Fixed) :=
     z_RasterPos3xOES_ovr_0(x, y, z);
     
-    private static procedure z_RasterPos3xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glRasterPos3xvOES';
-    private static procedure z_RasterPos3xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3xvOES';
+    private z_RasterPos3xvOES_adr := GetFuncAdr('glRasterPos3xvOES');
+    private z_RasterPos3xvOES_ovr_0 := GetFuncOrNil&(z_RasterPos3xvOES_adr);
+    private z_RasterPos3xvOES_ovr_0_anh01 := GetFuncOrNil&(z_RasterPos3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_RasterPos3xvOES_ovr_0(coords[0]) else
       z_RasterPos3xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3xvOES(var coords: Fixed) :=
     z_RasterPos3xvOES_ovr_0(coords);
-    private static procedure z_RasterPos3xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos3xvOES';
+    private z_RasterPos3xvOES_ovr_2 := GetFuncOrNil&(z_RasterPos3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos3xvOES(coords: IntPtr) :=
     z_RasterPos3xvOES_ovr_2(coords);
     
-    private static procedure z_RasterPos4xOES_ovr_0(x: Fixed; y: Fixed; z: Fixed; w: Fixed);
-    external 'opengl32.dll' name 'glRasterPos4xOES';
+    private z_RasterPos4xOES_adr := GetFuncAdr('glRasterPos4xOES');
+    private z_RasterPos4xOES_ovr_0 := GetFuncOrNil&(z_RasterPos4xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4xOES(x: Fixed; y: Fixed; z: Fixed; w: Fixed) :=
     z_RasterPos4xOES_ovr_0(x, y, z, w);
     
-    private static procedure z_RasterPos4xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glRasterPos4xvOES';
-    private static procedure z_RasterPos4xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4xvOES';
+    private z_RasterPos4xvOES_adr := GetFuncAdr('glRasterPos4xvOES');
+    private z_RasterPos4xvOES_ovr_0 := GetFuncOrNil&(z_RasterPos4xvOES_adr);
+    private z_RasterPos4xvOES_ovr_0_anh01 := GetFuncOrNil&(z_RasterPos4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_RasterPos4xvOES_ovr_0(coords[0]) else
       z_RasterPos4xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4xvOES(var coords: Fixed) :=
     z_RasterPos4xvOES_ovr_0(coords);
-    private static procedure z_RasterPos4xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glRasterPos4xvOES';
+    private z_RasterPos4xvOES_ovr_2 := GetFuncOrNil&(z_RasterPos4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RasterPos4xvOES(coords: IntPtr) :=
     z_RasterPos4xvOES_ovr_2(coords);
     
-    private static procedure z_RectxOES_ovr_0(x1: Fixed; y1: Fixed; x2: Fixed; y2: Fixed);
-    external 'opengl32.dll' name 'glRectxOES';
+    private z_RectxOES_adr := GetFuncAdr('glRectxOES');
+    private z_RectxOES_ovr_0 := GetFuncOrNil&(z_RectxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxOES(x1: Fixed; y1: Fixed; x2: Fixed; y2: Fixed) :=
     z_RectxOES_ovr_0(x1, y1, x2, y2);
     
-    private static procedure z_RectxvOES_ovr_0(var v1: Fixed; var v2: Fixed);
-    external 'opengl32.dll' name 'glRectxvOES';
-    private static procedure z_RectxvOES_ovr_0_anh010(v1: IntPtr; var v2: Fixed);
-    external 'opengl32.dll' name 'glRectxvOES';
-    private static procedure z_RectxvOES_ovr_0_anh001(var v1: Fixed; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
-    private static procedure z_RectxvOES_ovr_0_anh011(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
+    private z_RectxvOES_adr := GetFuncAdr('glRectxvOES');
+    private z_RectxvOES_ovr_0 := GetFuncOrNil&(z_RectxvOES_adr);
+    private z_RectxvOES_ovr_0_anh010 := GetFuncOrNil&(z_RectxvOES_adr);
+    private z_RectxvOES_ovr_0_anh001 := GetFuncOrNil&(z_RectxvOES_adr);
+    private z_RectxvOES_ovr_0_anh011 := GetFuncOrNil&(z_RectxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: array of Fixed; v2: array of Fixed) :=
     if (v1<>nil) and (v1.Length<>0) then
       if (v2<>nil) and (v2.Length<>0) then
@@ -69619,16 +65844,13 @@ type
       if (v2<>nil) and (v2.Length<>0) then
         z_RectxvOES_ovr_0_anh010(IntPtr.Zero, v2[0]) else
         z_RectxvOES_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static procedure z_RectxvOES_ovr_1_anh010(v1: IntPtr; var v2: Fixed);
-    external 'opengl32.dll' name 'glRectxvOES';
+    private z_RectxvOES_ovr_1_anh010 := GetFuncOrNil&(z_RectxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: array of Fixed; var v2: Fixed) :=
     if (v1<>nil) and (v1.Length<>0) then
       z_RectxvOES_ovr_0(v1[0], v2) else
       z_RectxvOES_ovr_0_anh010(IntPtr.Zero, v2);
-    private static procedure z_RectxvOES_ovr_2(var v1: Fixed; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
-    private static procedure z_RectxvOES_ovr_2_anh010(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
+    private z_RectxvOES_ovr_2 := GetFuncOrNil&(z_RectxvOES_adr);
+    private z_RectxvOES_ovr_2_anh010 := GetFuncOrNil&(z_RectxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: array of Fixed; v2: IntPtr) :=
     if (v1<>nil) and (v1.Length<>0) then
       z_RectxvOES_ovr_2(v1[0], v2) else
@@ -69641,200 +65863,175 @@ type
     z_RectxvOES_ovr_0(v1, v2);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(var v1: Fixed; v2: IntPtr) :=
     z_RectxvOES_ovr_2(v1, v2);
-    private static procedure z_RectxvOES_ovr_6(v1: IntPtr; var v2: Fixed);
-    external 'opengl32.dll' name 'glRectxvOES';
-    private static procedure z_RectxvOES_ovr_6_anh001(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
+    private z_RectxvOES_ovr_6 := GetFuncOrNil&(z_RectxvOES_adr);
+    private z_RectxvOES_ovr_6_anh001 := GetFuncOrNil&(z_RectxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: IntPtr; v2: array of Fixed) :=
     if (v2<>nil) and (v2.Length<>0) then
       z_RectxvOES_ovr_6(v1, v2[0]) else
       z_RectxvOES_ovr_6_anh001(v1, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: IntPtr; var v2: Fixed) :=
     z_RectxvOES_ovr_6(v1, v2);
-    private static procedure z_RectxvOES_ovr_8(v1: IntPtr; v2: IntPtr);
-    external 'opengl32.dll' name 'glRectxvOES';
+    private z_RectxvOES_ovr_8 := GetFuncOrNil&(z_RectxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure RectxvOES(v1: IntPtr; v2: IntPtr) :=
     z_RectxvOES_ovr_8(v1, v2);
     
-    private static procedure z_TexCoord1xOES_ovr_0(s: Fixed);
-    external 'opengl32.dll' name 'glTexCoord1xOES';
+    private z_TexCoord1xOES_adr := GetFuncAdr('glTexCoord1xOES');
+    private z_TexCoord1xOES_ovr_0 := GetFuncOrNil&(z_TexCoord1xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1xOES(s: Fixed) :=
     z_TexCoord1xOES_ovr_0(s);
     
-    private static procedure z_TexCoord1xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glTexCoord1xvOES';
-    private static procedure z_TexCoord1xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1xvOES';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1xvOES(coords: array of Fixed) :=
-    if (coords<>nil) and (coords.Length<>0) then
-      z_TexCoord1xvOES_ovr_0(coords[0]) else
-      z_TexCoord1xvOES_ovr_0_anh01(IntPtr.Zero);
+    private z_TexCoord1xvOES_adr := GetFuncAdr('glTexCoord1xvOES');
+    private z_TexCoord1xvOES_ovr_0 := GetFuncOrNil&(z_TexCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1xvOES(var coords: Fixed) :=
     z_TexCoord1xvOES_ovr_0(coords);
-    private static procedure z_TexCoord1xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord1xvOES';
+    private z_TexCoord1xvOES_ovr_1 := GetFuncOrNil&(z_TexCoord1xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord1xvOES(coords: IntPtr) :=
-    z_TexCoord1xvOES_ovr_2(coords);
+    z_TexCoord1xvOES_ovr_1(coords);
     
-    private static procedure z_TexCoord2xOES_ovr_0(s: Fixed; t: Fixed);
-    external 'opengl32.dll' name 'glTexCoord2xOES';
+    private z_TexCoord2xOES_adr := GetFuncAdr('glTexCoord2xOES');
+    private z_TexCoord2xOES_ovr_0 := GetFuncOrNil&(z_TexCoord2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2xOES(s: Fixed; t: Fixed) :=
     z_TexCoord2xOES_ovr_0(s, t);
     
-    private static procedure z_TexCoord2xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glTexCoord2xvOES';
-    private static procedure z_TexCoord2xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2xvOES';
+    private z_TexCoord2xvOES_adr := GetFuncAdr('glTexCoord2xvOES');
+    private z_TexCoord2xvOES_ovr_0 := GetFuncOrNil&(z_TexCoord2xvOES_adr);
+    private z_TexCoord2xvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord2xvOES_ovr_0(coords[0]) else
       z_TexCoord2xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2xvOES(var coords: Fixed) :=
     z_TexCoord2xvOES_ovr_0(coords);
-    private static procedure z_TexCoord2xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2xvOES';
+    private z_TexCoord2xvOES_ovr_2 := GetFuncOrNil&(z_TexCoord2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2xvOES(coords: IntPtr) :=
     z_TexCoord2xvOES_ovr_2(coords);
     
-    private static procedure z_TexCoord3xOES_ovr_0(s: Fixed; t: Fixed; r: Fixed);
-    external 'opengl32.dll' name 'glTexCoord3xOES';
+    private z_TexCoord3xOES_adr := GetFuncAdr('glTexCoord3xOES');
+    private z_TexCoord3xOES_ovr_0 := GetFuncOrNil&(z_TexCoord3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3xOES(s: Fixed; t: Fixed; r: Fixed) :=
     z_TexCoord3xOES_ovr_0(s, t, r);
     
-    private static procedure z_TexCoord3xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glTexCoord3xvOES';
-    private static procedure z_TexCoord3xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3xvOES';
+    private z_TexCoord3xvOES_adr := GetFuncAdr('glTexCoord3xvOES');
+    private z_TexCoord3xvOES_ovr_0 := GetFuncOrNil&(z_TexCoord3xvOES_adr);
+    private z_TexCoord3xvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord3xvOES_ovr_0(coords[0]) else
       z_TexCoord3xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3xvOES(var coords: Fixed) :=
     z_TexCoord3xvOES_ovr_0(coords);
-    private static procedure z_TexCoord3xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord3xvOES';
+    private z_TexCoord3xvOES_ovr_2 := GetFuncOrNil&(z_TexCoord3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord3xvOES(coords: IntPtr) :=
     z_TexCoord3xvOES_ovr_2(coords);
     
-    private static procedure z_TexCoord4xOES_ovr_0(s: Fixed; t: Fixed; r: Fixed; q: Fixed);
-    external 'opengl32.dll' name 'glTexCoord4xOES';
+    private z_TexCoord4xOES_adr := GetFuncAdr('glTexCoord4xOES');
+    private z_TexCoord4xOES_ovr_0 := GetFuncOrNil&(z_TexCoord4xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4xOES(s: Fixed; t: Fixed; r: Fixed; q: Fixed) :=
     z_TexCoord4xOES_ovr_0(s, t, r, q);
     
-    private static procedure z_TexCoord4xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glTexCoord4xvOES';
-    private static procedure z_TexCoord4xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4xvOES';
+    private z_TexCoord4xvOES_adr := GetFuncAdr('glTexCoord4xvOES');
+    private z_TexCoord4xvOES_ovr_0 := GetFuncOrNil&(z_TexCoord4xvOES_adr);
+    private z_TexCoord4xvOES_ovr_0_anh01 := GetFuncOrNil&(z_TexCoord4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_TexCoord4xvOES_ovr_0(coords[0]) else
       z_TexCoord4xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4xvOES(var coords: Fixed) :=
     z_TexCoord4xvOES_ovr_0(coords);
-    private static procedure z_TexCoord4xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4xvOES';
+    private z_TexCoord4xvOES_ovr_2 := GetFuncOrNil&(z_TexCoord4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4xvOES(coords: IntPtr) :=
     z_TexCoord4xvOES_ovr_2(coords);
     
-    private static procedure z_TexGenxOES_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; param: Fixed);
-    external 'opengl32.dll' name 'glTexGenxOES';
+    private z_TexGenxOES_adr := GetFuncAdr('glTexGenxOES');
+    private z_TexGenxOES_ovr_0 := GetFuncOrNil&(z_TexGenxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenxOES(coord: TextureCoordName; pname: TextureGenParameter; param: Fixed) :=
     z_TexGenxOES_ovr_0(coord, pname, param);
     
-    private static procedure z_TexGenxvOES_ovr_0(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Fixed);
-    external 'opengl32.dll' name 'glTexGenxvOES';
-    private static procedure z_TexGenxvOES_ovr_0_anh0001(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGenxvOES';
+    private z_TexGenxvOES_adr := GetFuncAdr('glTexGenxvOES');
+    private z_TexGenxvOES_ovr_0 := GetFuncOrNil&(z_TexGenxvOES_adr);
+    private z_TexGenxvOES_ovr_0_anh0001 := GetFuncOrNil&(z_TexGenxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: array of Fixed) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_TexGenxvOES_ovr_0(coord, pname, ¶ms[0]) else
       z_TexGenxvOES_ovr_0_anh0001(coord, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; var ¶ms: Fixed) :=
     z_TexGenxvOES_ovr_0(coord, pname, ¶ms);
-    private static procedure z_TexGenxvOES_ovr_2(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glTexGenxvOES';
+    private z_TexGenxvOES_ovr_2 := GetFuncOrNil&(z_TexGenxvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexGenxvOES(coord: TextureCoordName; pname: TextureGenParameter; ¶ms: IntPtr) :=
     z_TexGenxvOES_ovr_2(coord, pname, ¶ms);
     
-    private static procedure z_Vertex2xOES_ovr_0(x: Fixed);
-    external 'opengl32.dll' name 'glVertex2xOES';
+    private z_Vertex2xOES_adr := GetFuncAdr('glVertex2xOES');
+    private z_Vertex2xOES_ovr_0 := GetFuncOrNil&(z_Vertex2xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2xOES(x: Fixed) :=
     z_Vertex2xOES_ovr_0(x);
     
-    private static procedure z_Vertex2xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glVertex2xvOES';
-    private static procedure z_Vertex2xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex2xvOES';
+    private z_Vertex2xvOES_adr := GetFuncAdr('glVertex2xvOES');
+    private z_Vertex2xvOES_ovr_0 := GetFuncOrNil&(z_Vertex2xvOES_adr);
+    private z_Vertex2xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex2xvOES_ovr_0(coords[0]) else
       z_Vertex2xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2xvOES(var coords: Fixed) :=
     z_Vertex2xvOES_ovr_0(coords);
-    private static procedure z_Vertex2xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex2xvOES';
+    private z_Vertex2xvOES_ovr_2 := GetFuncOrNil&(z_Vertex2xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex2xvOES(coords: IntPtr) :=
     z_Vertex2xvOES_ovr_2(coords);
     
-    private static procedure z_Vertex3xOES_ovr_0(x: Fixed; y: Fixed);
-    external 'opengl32.dll' name 'glVertex3xOES';
+    private z_Vertex3xOES_adr := GetFuncAdr('glVertex3xOES');
+    private z_Vertex3xOES_ovr_0 := GetFuncOrNil&(z_Vertex3xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3xOES(x: Fixed; y: Fixed) :=
     z_Vertex3xOES_ovr_0(x, y);
     
-    private static procedure z_Vertex3xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glVertex3xvOES';
-    private static procedure z_Vertex3xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex3xvOES';
+    private z_Vertex3xvOES_adr := GetFuncAdr('glVertex3xvOES');
+    private z_Vertex3xvOES_ovr_0 := GetFuncOrNil&(z_Vertex3xvOES_adr);
+    private z_Vertex3xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex3xvOES_ovr_0(coords[0]) else
       z_Vertex3xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3xvOES(var coords: Fixed) :=
     z_Vertex3xvOES_ovr_0(coords);
-    private static procedure z_Vertex3xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex3xvOES';
+    private z_Vertex3xvOES_ovr_2 := GetFuncOrNil&(z_Vertex3xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex3xvOES(coords: IntPtr) :=
     z_Vertex3xvOES_ovr_2(coords);
     
-    private static procedure z_Vertex4xOES_ovr_0(x: Fixed; y: Fixed; z: Fixed);
-    external 'opengl32.dll' name 'glVertex4xOES';
+    private z_Vertex4xOES_adr := GetFuncAdr('glVertex4xOES');
+    private z_Vertex4xOES_ovr_0 := GetFuncOrNil&(z_Vertex4xOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4xOES(x: Fixed; y: Fixed; z: Fixed) :=
     z_Vertex4xOES_ovr_0(x, y, z);
     
-    private static procedure z_Vertex4xvOES_ovr_0(var coords: Fixed);
-    external 'opengl32.dll' name 'glVertex4xvOES';
-    private static procedure z_Vertex4xvOES_ovr_0_anh01(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex4xvOES';
+    private z_Vertex4xvOES_adr := GetFuncAdr('glVertex4xvOES');
+    private z_Vertex4xvOES_ovr_0 := GetFuncOrNil&(z_Vertex4xvOES_adr);
+    private z_Vertex4xvOES_ovr_0_anh01 := GetFuncOrNil&(z_Vertex4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4xvOES(coords: array of Fixed) :=
     if (coords<>nil) and (coords.Length<>0) then
       z_Vertex4xvOES_ovr_0(coords[0]) else
       z_Vertex4xvOES_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4xvOES(var coords: Fixed) :=
     z_Vertex4xvOES_ovr_0(coords);
-    private static procedure z_Vertex4xvOES_ovr_2(coords: IntPtr);
-    external 'opengl32.dll' name 'glVertex4xvOES';
+    private z_Vertex4xvOES_ovr_2 := GetFuncOrNil&(z_Vertex4xvOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Vertex4xvOES(coords: IntPtr) :=
     z_Vertex4xvOES_ovr_2(coords);
     
   end;
   
   [PCUNotRestore]
-  glQueryMatrixOES = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glQueryMatrixOES = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OES_query_matrix';
     
-    private static function z_QueryMatrixxOES_ovr_0(var mantissa: Fixed; var exponent: Int32): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
-    private static function z_QueryMatrixxOES_ovr_0_anh010(mantissa: IntPtr; var exponent: Int32): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
-    private static function z_QueryMatrixxOES_ovr_0_anh001(var mantissa: Fixed; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
-    private static function z_QueryMatrixxOES_ovr_0_anh011(mantissa: IntPtr; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
+    private z_QueryMatrixxOES_adr := GetFuncAdr('glQueryMatrixxOES');
+    private z_QueryMatrixxOES_ovr_0 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
+    private z_QueryMatrixxOES_ovr_0_anh010 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
+    private z_QueryMatrixxOES_ovr_0_anh001 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
+    private z_QueryMatrixxOES_ovr_0_anh011 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: array of Fixed; exponent: array of Int32): DummyFlags :=
     if (mantissa<>nil) and (mantissa.Length<>0) then
       if (exponent<>nil) and (exponent.Length<>0) then
@@ -69843,16 +66040,13 @@ type
       if (exponent<>nil) and (exponent.Length<>0) then
         z_QueryMatrixxOES_ovr_0_anh010(IntPtr.Zero, exponent[0]) else
         z_QueryMatrixxOES_ovr_0_anh011(IntPtr.Zero, IntPtr.Zero);
-    private static function z_QueryMatrixxOES_ovr_1_anh010(mantissa: IntPtr; var exponent: Int32): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
+    private z_QueryMatrixxOES_ovr_1_anh010 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: array of Fixed; var exponent: Int32): DummyFlags :=
     if (mantissa<>nil) and (mantissa.Length<>0) then
       z_QueryMatrixxOES_ovr_0(mantissa[0], exponent) else
       z_QueryMatrixxOES_ovr_0_anh010(IntPtr.Zero, exponent);
-    private static function z_QueryMatrixxOES_ovr_2(var mantissa: Fixed; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
-    private static function z_QueryMatrixxOES_ovr_2_anh010(mantissa: IntPtr; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
+    private z_QueryMatrixxOES_ovr_2 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
+    private z_QueryMatrixxOES_ovr_2_anh010 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: array of Fixed; exponent: IntPtr): DummyFlags :=
     if (mantissa<>nil) and (mantissa.Length<>0) then
       z_QueryMatrixxOES_ovr_2(mantissa[0], exponent) else
@@ -69865,1343 +66059,1289 @@ type
     z_QueryMatrixxOES_ovr_0(mantissa, exponent);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(var mantissa: Fixed; exponent: IntPtr): DummyFlags :=
     z_QueryMatrixxOES_ovr_2(mantissa, exponent);
-    private static function z_QueryMatrixxOES_ovr_6(mantissa: IntPtr; var exponent: Int32): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
-    private static function z_QueryMatrixxOES_ovr_6_anh001(mantissa: IntPtr; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
+    private z_QueryMatrixxOES_ovr_6 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
+    private z_QueryMatrixxOES_ovr_6_anh001 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: IntPtr; exponent: array of Int32): DummyFlags :=
     if (exponent<>nil) and (exponent.Length<>0) then
       z_QueryMatrixxOES_ovr_6(mantissa, exponent[0]) else
       z_QueryMatrixxOES_ovr_6_anh001(mantissa, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: IntPtr; var exponent: Int32): DummyFlags :=
     z_QueryMatrixxOES_ovr_6(mantissa, exponent);
-    private static function z_QueryMatrixxOES_ovr_8(mantissa: IntPtr; exponent: IntPtr): DummyFlags;
-    external 'opengl32.dll' name 'glQueryMatrixxOES';
+    private z_QueryMatrixxOES_ovr_8 := GetFuncOrNil&(z_QueryMatrixxOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMatrixxOES(mantissa: IntPtr; exponent: IntPtr): DummyFlags :=
     z_QueryMatrixxOES_ovr_8(mantissa, exponent);
     
   end;
   
   [PCUNotRestore]
-  glSinglePrecisionOES = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSinglePrecisionOES = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OES_single_precision';
     
-    private static procedure z_ClearDepthfOES_ovr_0(depth: single);
-    external 'opengl32.dll' name 'glClearDepthfOES';
+    private z_ClearDepthfOES_adr := GetFuncAdr('glClearDepthfOES');
+    private z_ClearDepthfOES_ovr_0 := GetFuncOrNil&(z_ClearDepthfOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClearDepthfOES(depth: single) :=
     z_ClearDepthfOES_ovr_0(depth);
     
-    private static procedure z_ClipPlanefOES_ovr_0(plane: ClipPlaneName; var equation: single);
-    external 'opengl32.dll' name 'glClipPlanefOES';
-    private static procedure z_ClipPlanefOES_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlanefOES';
+    private z_ClipPlanefOES_adr := GetFuncAdr('glClipPlanefOES');
+    private z_ClipPlanefOES_ovr_0 := GetFuncOrNil&(z_ClipPlanefOES_adr);
+    private z_ClipPlanefOES_ovr_0_anh001 := GetFuncOrNil&(z_ClipPlanefOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanefOES(plane: ClipPlaneName; equation: array of single) :=
     if (equation<>nil) and (equation.Length<>0) then
       z_ClipPlanefOES_ovr_0(plane, equation[0]) else
       z_ClipPlanefOES_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanefOES(plane: ClipPlaneName; var equation: single) :=
     z_ClipPlanefOES_ovr_0(plane, equation);
-    private static procedure z_ClipPlanefOES_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glClipPlanefOES';
+    private z_ClipPlanefOES_ovr_2 := GetFuncOrNil&(z_ClipPlanefOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ClipPlanefOES(plane: ClipPlaneName; equation: IntPtr) :=
     z_ClipPlanefOES_ovr_2(plane, equation);
     
-    private static procedure z_DepthRangefOES_ovr_0(n: single; f: single);
-    external 'opengl32.dll' name 'glDepthRangefOES';
+    private z_DepthRangefOES_adr := GetFuncAdr('glDepthRangefOES');
+    private z_DepthRangefOES_ovr_0 := GetFuncOrNil&(z_DepthRangefOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DepthRangefOES(n: single; f: single) :=
     z_DepthRangefOES_ovr_0(n, f);
     
-    private static procedure z_FrustumfOES_ovr_0(l: single; r: single; b: single; t: single; n: single; f: single);
-    external 'opengl32.dll' name 'glFrustumfOES';
+    private z_FrustumfOES_adr := GetFuncAdr('glFrustumfOES');
+    private z_FrustumfOES_ovr_0 := GetFuncOrNil&(z_FrustumfOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FrustumfOES(l: single; r: single; b: single; t: single; n: single; f: single) :=
     z_FrustumfOES_ovr_0(l, r, b, t, n, f);
     
-    private static procedure z_GetClipPlanefOES_ovr_0(plane: ClipPlaneName; var equation: single);
-    external 'opengl32.dll' name 'glGetClipPlanefOES';
-    private static procedure z_GetClipPlanefOES_ovr_0_anh001(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlanefOES';
+    private z_GetClipPlanefOES_adr := GetFuncAdr('glGetClipPlanefOES');
+    private z_GetClipPlanefOES_ovr_0 := GetFuncOrNil&(z_GetClipPlanefOES_adr);
+    private z_GetClipPlanefOES_ovr_0_anh001 := GetFuncOrNil&(z_GetClipPlanefOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanefOES(plane: ClipPlaneName; equation: array of single) :=
     if (equation<>nil) and (equation.Length<>0) then
       z_GetClipPlanefOES_ovr_0(plane, equation[0]) else
       z_GetClipPlanefOES_ovr_0_anh001(plane, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanefOES(plane: ClipPlaneName; var equation: single) :=
     z_GetClipPlanefOES_ovr_0(plane, equation);
-    private static procedure z_GetClipPlanefOES_ovr_2(plane: ClipPlaneName; equation: IntPtr);
-    external 'opengl32.dll' name 'glGetClipPlanefOES';
+    private z_GetClipPlanefOES_ovr_2 := GetFuncOrNil&(z_GetClipPlanefOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetClipPlanefOES(plane: ClipPlaneName; equation: IntPtr) :=
     z_GetClipPlanefOES_ovr_2(plane, equation);
     
-    private static procedure z_OrthofOES_ovr_0(l: single; r: single; b: single; t: single; n: single; f: single);
-    external 'opengl32.dll' name 'glOrthofOES';
+    private z_OrthofOES_adr := GetFuncAdr('glOrthofOES');
+    private z_OrthofOES_ovr_0 := GetFuncOrNil&(z_OrthofOES_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure OrthofOES(l: single; r: single; b: single; t: single; n: single; f: single) :=
     z_OrthofOES_ovr_0(l, r, b, t, n, f);
     
   end;
   
   [PCUNotRestore]
-  glMultiviewOVR = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultiviewOVR = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OVR_multiview';
     
-    private static procedure z_FramebufferTextureMultiviewOVR_ovr_0(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; baseViewIndex: Int32; numViews: Int32);
-    external 'opengl32.dll' name 'glFramebufferTextureMultiviewOVR';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureMultiviewOVR(target: FramebufferTarget; attachment: FramebufferAttachment; texture: UInt32; level: Int32; baseViewIndex: Int32; numViews: Int32) :=
+    private z_FramebufferTextureMultiviewOVR_adr := GetFuncAdr('glFramebufferTextureMultiviewOVR');
+    private z_FramebufferTextureMultiviewOVR_ovr_0 := GetFuncOrNil&(z_FramebufferTextureMultiviewOVR_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FramebufferTextureMultiviewOVR(target: FramebufferTarget; attachment: FramebufferAttachment; texture: gl_texture; level: Int32; baseViewIndex: Int32; numViews: Int32) :=
     z_FramebufferTextureMultiviewOVR_ovr_0(target, attachment, texture, level, baseViewIndex, numViews);
     
   end;
   
   [PCUNotRestore]
-  glMiscHintsPGI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMiscHintsPGI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'PGI_misc_hints';
     
-    private static procedure z_HintPGI_ovr_0(target: HintTargetPGI; mode: Int32);
-    external 'opengl32.dll' name 'glHintPGI';
+    private z_HintPGI_adr := GetFuncAdr('glHintPGI');
+    private z_HintPGI_ovr_0 := GetFuncOrNil&(z_HintPGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure HintPGI(target: HintTargetPGI; mode: Int32) :=
     z_HintPGI_ovr_0(target, mode);
     
   end;
   
   [PCUNotRestore]
-  glDetailTextureSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glDetailTextureSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_detail_texture';
     
-    private static procedure z_DetailTexFuncSGIS_ovr_0(target: TextureTarget; n: Int32; var points: single);
-    external 'opengl32.dll' name 'glDetailTexFuncSGIS';
-    private static procedure z_DetailTexFuncSGIS_ovr_0_anh0001(target: TextureTarget; n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDetailTexFuncSGIS';
+    private z_DetailTexFuncSGIS_adr := GetFuncAdr('glDetailTexFuncSGIS');
+    private z_DetailTexFuncSGIS_ovr_0 := GetFuncOrNil&(z_DetailTexFuncSGIS_adr);
+    private z_DetailTexFuncSGIS_ovr_0_anh0001 := GetFuncOrNil&(z_DetailTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetailTexFuncSGIS(target: TextureTarget; n: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_DetailTexFuncSGIS_ovr_0(target, n, points[0]) else
       z_DetailTexFuncSGIS_ovr_0_anh0001(target, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetailTexFuncSGIS(target: TextureTarget; n: Int32; var points: single) :=
     z_DetailTexFuncSGIS_ovr_0(target, n, points);
-    private static procedure z_DetailTexFuncSGIS_ovr_2(target: TextureTarget; n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDetailTexFuncSGIS';
+    private z_DetailTexFuncSGIS_ovr_2 := GetFuncOrNil&(z_DetailTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DetailTexFuncSGIS(target: TextureTarget; n: Int32; points: IntPtr) :=
     z_DetailTexFuncSGIS_ovr_2(target, n, points);
     
-    private static procedure z_GetDetailTexFuncSGIS_ovr_0(target: TextureTarget; var points: single);
-    external 'opengl32.dll' name 'glGetDetailTexFuncSGIS';
-    private static procedure z_GetDetailTexFuncSGIS_ovr_0_anh001(target: TextureTarget; points: IntPtr);
-    external 'opengl32.dll' name 'glGetDetailTexFuncSGIS';
+    private z_GetDetailTexFuncSGIS_adr := GetFuncAdr('glGetDetailTexFuncSGIS');
+    private z_GetDetailTexFuncSGIS_ovr_0 := GetFuncOrNil&(z_GetDetailTexFuncSGIS_adr);
+    private z_GetDetailTexFuncSGIS_ovr_0_anh001 := GetFuncOrNil&(z_GetDetailTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDetailTexFuncSGIS(target: TextureTarget; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_GetDetailTexFuncSGIS_ovr_0(target, points[0]) else
       z_GetDetailTexFuncSGIS_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDetailTexFuncSGIS(target: TextureTarget; var points: single) :=
     z_GetDetailTexFuncSGIS_ovr_0(target, points);
-    private static procedure z_GetDetailTexFuncSGIS_ovr_2(target: TextureTarget; points: IntPtr);
-    external 'opengl32.dll' name 'glGetDetailTexFuncSGIS';
+    private z_GetDetailTexFuncSGIS_ovr_2 := GetFuncOrNil&(z_GetDetailTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetDetailTexFuncSGIS(target: TextureTarget; points: IntPtr) :=
     z_GetDetailTexFuncSGIS_ovr_2(target, points);
     
   end;
   
   [PCUNotRestore]
-  glFogFunctionSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFogFunctionSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_fog_function';
     
-    private static procedure z_FogFuncSGIS_ovr_0(n: Int32; var points: single);
-    external 'opengl32.dll' name 'glFogFuncSGIS';
-    private static procedure z_FogFuncSGIS_ovr_0_anh001(n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glFogFuncSGIS';
+    private z_FogFuncSGIS_adr := GetFuncAdr('glFogFuncSGIS');
+    private z_FogFuncSGIS_ovr_0 := GetFuncOrNil&(z_FogFuncSGIS_adr);
+    private z_FogFuncSGIS_ovr_0_anh001 := GetFuncOrNil&(z_FogFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogFuncSGIS(n: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_FogFuncSGIS_ovr_0(n, points[0]) else
       z_FogFuncSGIS_ovr_0_anh001(n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogFuncSGIS(n: Int32; var points: single) :=
     z_FogFuncSGIS_ovr_0(n, points);
-    private static procedure z_FogFuncSGIS_ovr_2(n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glFogFuncSGIS';
+    private z_FogFuncSGIS_ovr_2 := GetFuncOrNil&(z_FogFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FogFuncSGIS(n: Int32; points: IntPtr) :=
     z_FogFuncSGIS_ovr_2(n, points);
     
-    private static procedure z_GetFogFuncSGIS_ovr_0(var points: single);
-    external 'opengl32.dll' name 'glGetFogFuncSGIS';
-    private static procedure z_GetFogFuncSGIS_ovr_0_anh01(points: IntPtr);
-    external 'opengl32.dll' name 'glGetFogFuncSGIS';
+    private z_GetFogFuncSGIS_adr := GetFuncAdr('glGetFogFuncSGIS');
+    private z_GetFogFuncSGIS_ovr_0 := GetFuncOrNil&(z_GetFogFuncSGIS_adr);
+    private z_GetFogFuncSGIS_ovr_0_anh01 := GetFuncOrNil&(z_GetFogFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFogFuncSGIS(points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_GetFogFuncSGIS_ovr_0(points[0]) else
       z_GetFogFuncSGIS_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFogFuncSGIS(var points: single) :=
     z_GetFogFuncSGIS_ovr_0(points);
-    private static procedure z_GetFogFuncSGIS_ovr_2(points: IntPtr);
-    external 'opengl32.dll' name 'glGetFogFuncSGIS';
+    private z_GetFogFuncSGIS_ovr_2 := GetFuncOrNil&(z_GetFogFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFogFuncSGIS(points: IntPtr) :=
     z_GetFogFuncSGIS_ovr_2(points);
     
   end;
   
   [PCUNotRestore]
-  glMultisampleSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMultisampleSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_multisample';
     
-    private static procedure z_SampleMaskSGIS_ovr_0(value: single; invert: boolean);
-    external 'opengl32.dll' name 'glSampleMaskSGIS';
+    private z_SampleMaskSGIS_adr := GetFuncAdr('glSampleMaskSGIS');
+    private z_SampleMaskSGIS_ovr_0 := GetFuncOrNil&(z_SampleMaskSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SampleMaskSGIS(value: single; invert: boolean) :=
     z_SampleMaskSGIS_ovr_0(value, invert);
     
-    private static procedure z_SamplePatternSGIS_ovr_0(pattern: OpenGL.SamplePatternSGIS);
-    external 'opengl32.dll' name 'glSamplePatternSGIS';
+    private z_SamplePatternSGIS_adr := GetFuncAdr('glSamplePatternSGIS');
+    private z_SamplePatternSGIS_ovr_0 := GetFuncOrNil&(z_SamplePatternSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SamplePatternSGIS(pattern: OpenGL.SamplePatternSGIS) :=
     z_SamplePatternSGIS_ovr_0(pattern);
     
   end;
   
   [PCUNotRestore]
-  glPixelTextureSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPixelTextureSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_pixel_texture';
     
-    private static procedure z_PixelTexGenParameteriSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; param: Int32);
-    external 'opengl32.dll' name 'glPixelTexGenParameteriSGIS';
+    private z_PixelTexGenParameteriSGIS_adr := GetFuncAdr('glPixelTexGenParameteriSGIS');
+    private z_PixelTexGenParameteriSGIS_ovr_0 := GetFuncOrNil&(z_PixelTexGenParameteriSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameteriSGIS(pname: PixelTexGenParameterNameSGIS; param: Int32) :=
     z_PixelTexGenParameteriSGIS_ovr_0(pname, param);
     
-    private static procedure z_PixelTexGenParameterivSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glPixelTexGenParameterivSGIS';
-    private static procedure z_PixelTexGenParameterivSGIS_ovr_0_anh001(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTexGenParameterivSGIS';
+    private z_PixelTexGenParameterivSGIS_adr := GetFuncAdr('glPixelTexGenParameterivSGIS');
+    private z_PixelTexGenParameterivSGIS_ovr_0 := GetFuncOrNil&(z_PixelTexGenParameterivSGIS_adr);
+    private z_PixelTexGenParameterivSGIS_ovr_0_anh001 := GetFuncOrNil&(z_PixelTexGenParameterivSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PixelTexGenParameterivSGIS_ovr_0(pname, ¶ms[0]) else
       z_PixelTexGenParameterivSGIS_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; var ¶ms: Int32) :=
     z_PixelTexGenParameterivSGIS_ovr_0(pname, ¶ms);
-    private static procedure z_PixelTexGenParameterivSGIS_ovr_2(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTexGenParameterivSGIS';
+    private z_PixelTexGenParameterivSGIS_ovr_2 := GetFuncOrNil&(z_PixelTexGenParameterivSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr) :=
     z_PixelTexGenParameterivSGIS_ovr_2(pname, ¶ms);
     
-    private static procedure z_PixelTexGenParameterfSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; param: single);
-    external 'opengl32.dll' name 'glPixelTexGenParameterfSGIS';
+    private z_PixelTexGenParameterfSGIS_adr := GetFuncAdr('glPixelTexGenParameterfSGIS');
+    private z_PixelTexGenParameterfSGIS_ovr_0 := GetFuncOrNil&(z_PixelTexGenParameterfSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterfSGIS(pname: PixelTexGenParameterNameSGIS; param: single) :=
     z_PixelTexGenParameterfSGIS_ovr_0(pname, param);
     
-    private static procedure z_PixelTexGenParameterfvSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; var ¶ms: single);
-    external 'opengl32.dll' name 'glPixelTexGenParameterfvSGIS';
-    private static procedure z_PixelTexGenParameterfvSGIS_ovr_0_anh001(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTexGenParameterfvSGIS';
+    private z_PixelTexGenParameterfvSGIS_adr := GetFuncAdr('glPixelTexGenParameterfvSGIS');
+    private z_PixelTexGenParameterfvSGIS_ovr_0 := GetFuncOrNil&(z_PixelTexGenParameterfvSGIS_adr);
+    private z_PixelTexGenParameterfvSGIS_ovr_0_anh001 := GetFuncOrNil&(z_PixelTexGenParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PixelTexGenParameterfvSGIS_ovr_0(pname, ¶ms[0]) else
       z_PixelTexGenParameterfvSGIS_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; var ¶ms: single) :=
     z_PixelTexGenParameterfvSGIS_ovr_0(pname, ¶ms);
-    private static procedure z_PixelTexGenParameterfvSGIS_ovr_2(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPixelTexGenParameterfvSGIS';
+    private z_PixelTexGenParameterfvSGIS_ovr_2 := GetFuncOrNil&(z_PixelTexGenParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr) :=
     z_PixelTexGenParameterfvSGIS_ovr_2(pname, ¶ms);
     
-    private static procedure z_GetPixelTexGenParameterivSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterivSGIS';
-    private static procedure z_GetPixelTexGenParameterivSGIS_ovr_0_anh001(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterivSGIS';
+    private z_GetPixelTexGenParameterivSGIS_adr := GetFuncAdr('glGetPixelTexGenParameterivSGIS');
+    private z_GetPixelTexGenParameterivSGIS_ovr_0 := GetFuncOrNil&(z_GetPixelTexGenParameterivSGIS_adr);
+    private z_GetPixelTexGenParameterivSGIS_ovr_0_anh001 := GetFuncOrNil&(z_GetPixelTexGenParameterivSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetPixelTexGenParameterivSGIS_ovr_0(pname, ¶ms[0]) else
       z_GetPixelTexGenParameterivSGIS_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; var ¶ms: Int32) :=
     z_GetPixelTexGenParameterivSGIS_ovr_0(pname, ¶ms);
-    private static procedure z_GetPixelTexGenParameterivSGIS_ovr_2(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterivSGIS';
+    private z_GetPixelTexGenParameterivSGIS_ovr_2 := GetFuncOrNil&(z_GetPixelTexGenParameterivSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterivSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr) :=
     z_GetPixelTexGenParameterivSGIS_ovr_2(pname, ¶ms);
     
-    private static procedure z_GetPixelTexGenParameterfvSGIS_ovr_0(pname: PixelTexGenParameterNameSGIS; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterfvSGIS';
-    private static procedure z_GetPixelTexGenParameterfvSGIS_ovr_0_anh001(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterfvSGIS';
+    private z_GetPixelTexGenParameterfvSGIS_adr := GetFuncAdr('glGetPixelTexGenParameterfvSGIS');
+    private z_GetPixelTexGenParameterfvSGIS_ovr_0 := GetFuncOrNil&(z_GetPixelTexGenParameterfvSGIS_adr);
+    private z_GetPixelTexGenParameterfvSGIS_ovr_0_anh001 := GetFuncOrNil&(z_GetPixelTexGenParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetPixelTexGenParameterfvSGIS_ovr_0(pname, ¶ms[0]) else
       z_GetPixelTexGenParameterfvSGIS_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; var ¶ms: single) :=
     z_GetPixelTexGenParameterfvSGIS_ovr_0(pname, ¶ms);
-    private static procedure z_GetPixelTexGenParameterfvSGIS_ovr_2(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetPixelTexGenParameterfvSGIS';
+    private z_GetPixelTexGenParameterfvSGIS_ovr_2 := GetFuncOrNil&(z_GetPixelTexGenParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetPixelTexGenParameterfvSGIS(pname: PixelTexGenParameterNameSGIS; ¶ms: IntPtr) :=
     z_GetPixelTexGenParameterfvSGIS_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPointParametersSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPointParametersSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_point_parameters';
     
-    private static procedure z_PointParameterfSGIS_ovr_0(pname: PointParameterNameARB; param: single);
-    external 'opengl32.dll' name 'glPointParameterfSGIS';
+    private z_PointParameterfSGIS_adr := GetFuncAdr('glPointParameterfSGIS');
+    private z_PointParameterfSGIS_ovr_0 := GetFuncOrNil&(z_PointParameterfSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfSGIS(pname: PointParameterNameARB; param: single) :=
     z_PointParameterfSGIS_ovr_0(pname, param);
     
-    private static procedure z_PointParameterfvSGIS_ovr_0(pname: PointParameterNameARB; var ¶ms: single);
-    external 'opengl32.dll' name 'glPointParameterfvSGIS';
-    private static procedure z_PointParameterfvSGIS_ovr_0_anh001(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvSGIS';
+    private z_PointParameterfvSGIS_adr := GetFuncAdr('glPointParameterfvSGIS');
+    private z_PointParameterfvSGIS_ovr_0 := GetFuncOrNil&(z_PointParameterfvSGIS_adr);
+    private z_PointParameterfvSGIS_ovr_0_anh001 := GetFuncOrNil&(z_PointParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvSGIS(pname: PointParameterNameARB; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_PointParameterfvSGIS_ovr_0(pname, ¶ms[0]) else
       z_PointParameterfvSGIS_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvSGIS(pname: PointParameterNameARB; var ¶ms: single) :=
     z_PointParameterfvSGIS_ovr_0(pname, ¶ms);
-    private static procedure z_PointParameterfvSGIS_ovr_2(pname: PointParameterNameARB; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glPointParameterfvSGIS';
+    private z_PointParameterfvSGIS_ovr_2 := GetFuncOrNil&(z_PointParameterfvSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PointParameterfvSGIS(pname: PointParameterNameARB; ¶ms: IntPtr) :=
     z_PointParameterfvSGIS_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glSharpenTextureSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSharpenTextureSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_sharpen_texture';
     
-    private static procedure z_SharpenTexFuncSGIS_ovr_0(target: TextureTarget; n: Int32; var points: single);
-    external 'opengl32.dll' name 'glSharpenTexFuncSGIS';
-    private static procedure z_SharpenTexFuncSGIS_ovr_0_anh0001(target: TextureTarget; n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glSharpenTexFuncSGIS';
+    private z_SharpenTexFuncSGIS_adr := GetFuncAdr('glSharpenTexFuncSGIS');
+    private z_SharpenTexFuncSGIS_ovr_0 := GetFuncOrNil&(z_SharpenTexFuncSGIS_adr);
+    private z_SharpenTexFuncSGIS_ovr_0_anh0001 := GetFuncOrNil&(z_SharpenTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SharpenTexFuncSGIS(target: TextureTarget; n: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_SharpenTexFuncSGIS_ovr_0(target, n, points[0]) else
       z_SharpenTexFuncSGIS_ovr_0_anh0001(target, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SharpenTexFuncSGIS(target: TextureTarget; n: Int32; var points: single) :=
     z_SharpenTexFuncSGIS_ovr_0(target, n, points);
-    private static procedure z_SharpenTexFuncSGIS_ovr_2(target: TextureTarget; n: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glSharpenTexFuncSGIS';
+    private z_SharpenTexFuncSGIS_ovr_2 := GetFuncOrNil&(z_SharpenTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SharpenTexFuncSGIS(target: TextureTarget; n: Int32; points: IntPtr) :=
     z_SharpenTexFuncSGIS_ovr_2(target, n, points);
     
-    private static procedure z_GetSharpenTexFuncSGIS_ovr_0(target: TextureTarget; var points: single);
-    external 'opengl32.dll' name 'glGetSharpenTexFuncSGIS';
-    private static procedure z_GetSharpenTexFuncSGIS_ovr_0_anh001(target: TextureTarget; points: IntPtr);
-    external 'opengl32.dll' name 'glGetSharpenTexFuncSGIS';
+    private z_GetSharpenTexFuncSGIS_adr := GetFuncAdr('glGetSharpenTexFuncSGIS');
+    private z_GetSharpenTexFuncSGIS_ovr_0 := GetFuncOrNil&(z_GetSharpenTexFuncSGIS_adr);
+    private z_GetSharpenTexFuncSGIS_ovr_0_anh001 := GetFuncOrNil&(z_GetSharpenTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSharpenTexFuncSGIS(target: TextureTarget; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_GetSharpenTexFuncSGIS_ovr_0(target, points[0]) else
       z_GetSharpenTexFuncSGIS_ovr_0_anh001(target, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSharpenTexFuncSGIS(target: TextureTarget; var points: single) :=
     z_GetSharpenTexFuncSGIS_ovr_0(target, points);
-    private static procedure z_GetSharpenTexFuncSGIS_ovr_2(target: TextureTarget; points: IntPtr);
-    external 'opengl32.dll' name 'glGetSharpenTexFuncSGIS';
+    private z_GetSharpenTexFuncSGIS_ovr_2 := GetFuncOrNil&(z_GetSharpenTexFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSharpenTexFuncSGIS(target: TextureTarget; points: IntPtr) :=
     z_GetSharpenTexFuncSGIS_ovr_2(target, points);
     
   end;
   
   [PCUNotRestore]
-  glTexture4DSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTexture4DSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_texture4D';
     
-    private static procedure z_TexImage4DSGIS_ovr_0(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; size4d: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexImage4DSGIS';
+    private z_TexImage4DSGIS_adr := GetFuncAdr('glTexImage4DSGIS');
+    private z_TexImage4DSGIS_ovr_0 := GetFuncOrNil&(z_TexImage4DSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexImage4DSGIS(target: TextureTarget; level: Int32; _internalformat: InternalFormat; width: Int32; height: Int32; depth: Int32; size4d: Int32; border: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexImage4DSGIS_ovr_0(target, level, _internalformat, width, height, depth, size4d, border, format, &type, pixels);
     
-    private static procedure z_TexSubImage4DSGIS_ovr_0(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; woffset: Int32; width: Int32; height: Int32; depth: Int32; size4d: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr);
-    external 'opengl32.dll' name 'glTexSubImage4DSGIS';
+    private z_TexSubImage4DSGIS_adr := GetFuncAdr('glTexSubImage4DSGIS');
+    private z_TexSubImage4DSGIS_ovr_0 := GetFuncOrNil&(z_TexSubImage4DSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexSubImage4DSGIS(target: TextureTarget; level: Int32; xoffset: Int32; yoffset: Int32; zoffset: Int32; woffset: Int32; width: Int32; height: Int32; depth: Int32; size4d: Int32; format: PixelFormat; &type: PixelType; pixels: IntPtr) :=
     z_TexSubImage4DSGIS_ovr_0(target, level, xoffset, yoffset, zoffset, woffset, width, height, depth, size4d, format, &type, pixels);
     
   end;
   
   [PCUNotRestore]
-  glTextureColorMaskSGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureColorMaskSGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_texture_color_mask';
     
-    private static procedure z_TextureColorMaskSGIS_ovr_0(red: boolean; green: boolean; blue: boolean; alpha: boolean);
-    external 'opengl32.dll' name 'glTextureColorMaskSGIS';
+    private z_TextureColorMaskSGIS_adr := GetFuncAdr('glTextureColorMaskSGIS');
+    private z_TextureColorMaskSGIS_ovr_0 := GetFuncOrNil&(z_TextureColorMaskSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TextureColorMaskSGIS(red: boolean; green: boolean; blue: boolean; alpha: boolean) :=
     z_TextureColorMaskSGIS_ovr_0(red, green, blue, alpha);
     
   end;
   
   [PCUNotRestore]
-  glTextureFilter4SGIS = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTextureFilter4SGIS = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIS_texture_filter4';
     
-    private static procedure z_GetTexFilterFuncSGIS_ovr_0(target: TextureTarget; filter: TextureFilterSGIS; var weights: single);
-    external 'opengl32.dll' name 'glGetTexFilterFuncSGIS';
-    private static procedure z_GetTexFilterFuncSGIS_ovr_0_anh0001(target: TextureTarget; filter: TextureFilterSGIS; weights: IntPtr);
-    external 'opengl32.dll' name 'glGetTexFilterFuncSGIS';
+    private z_GetTexFilterFuncSGIS_adr := GetFuncAdr('glGetTexFilterFuncSGIS');
+    private z_GetTexFilterFuncSGIS_ovr_0 := GetFuncOrNil&(z_GetTexFilterFuncSGIS_adr);
+    private z_GetTexFilterFuncSGIS_ovr_0_anh0001 := GetFuncOrNil&(z_GetTexFilterFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; weights: array of single) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_GetTexFilterFuncSGIS_ovr_0(target, filter, weights[0]) else
       z_GetTexFilterFuncSGIS_ovr_0_anh0001(target, filter, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; var weights: single) :=
     z_GetTexFilterFuncSGIS_ovr_0(target, filter, weights);
-    private static procedure z_GetTexFilterFuncSGIS_ovr_2(target: TextureTarget; filter: TextureFilterSGIS; weights: IntPtr);
-    external 'opengl32.dll' name 'glGetTexFilterFuncSGIS';
+    private z_GetTexFilterFuncSGIS_ovr_2 := GetFuncOrNil&(z_GetTexFilterFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetTexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; weights: IntPtr) :=
     z_GetTexFilterFuncSGIS_ovr_2(target, filter, weights);
     
-    private static procedure z_TexFilterFuncSGIS_ovr_0(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; var weights: single);
-    external 'opengl32.dll' name 'glTexFilterFuncSGIS';
-    private static procedure z_TexFilterFuncSGIS_ovr_0_anh00001(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glTexFilterFuncSGIS';
+    private z_TexFilterFuncSGIS_adr := GetFuncAdr('glTexFilterFuncSGIS');
+    private z_TexFilterFuncSGIS_ovr_0 := GetFuncOrNil&(z_TexFilterFuncSGIS_adr);
+    private z_TexFilterFuncSGIS_ovr_0_anh00001 := GetFuncOrNil&(z_TexFilterFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; weights: array of single) :=
     if (weights<>nil) and (weights.Length<>0) then
       z_TexFilterFuncSGIS_ovr_0(target, filter, n, weights[0]) else
       z_TexFilterFuncSGIS_ovr_0_anh00001(target, filter, n, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; var weights: single) :=
     z_TexFilterFuncSGIS_ovr_0(target, filter, n, weights);
-    private static procedure z_TexFilterFuncSGIS_ovr_2(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; weights: IntPtr);
-    external 'opengl32.dll' name 'glTexFilterFuncSGIS';
+    private z_TexFilterFuncSGIS_ovr_2 := GetFuncOrNil&(z_TexFilterFuncSGIS_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexFilterFuncSGIS(target: TextureTarget; filter: TextureFilterSGIS; n: Int32; weights: IntPtr) :=
     z_TexFilterFuncSGIS_ovr_2(target, filter, n, weights);
     
   end;
   
   [PCUNotRestore]
-  glAsyncSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glAsyncSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_async';
     
-    private static procedure z_AsyncMarkerSGIX_ovr_0(marker: UInt32);
-    external 'opengl32.dll' name 'glAsyncMarkerSGIX';
+    private z_AsyncMarkerSGIX_adr := GetFuncAdr('glAsyncMarkerSGIX');
+    private z_AsyncMarkerSGIX_ovr_0 := GetFuncOrNil&(z_AsyncMarkerSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure AsyncMarkerSGIX(marker: UInt32) :=
     z_AsyncMarkerSGIX_ovr_0(marker);
     
-    private static function z_FinishAsyncSGIX_ovr_0(var markerp: UInt32): Int32;
-    external 'opengl32.dll' name 'glFinishAsyncSGIX';
-    private static function z_FinishAsyncSGIX_ovr_0_anh01(markerp: IntPtr): Int32;
-    external 'opengl32.dll' name 'glFinishAsyncSGIX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FinishAsyncSGIX(markerp: array of UInt32): Int32 :=
-    if (markerp<>nil) and (markerp.Length<>0) then
-      z_FinishAsyncSGIX_ovr_0(markerp[0]) else
-      z_FinishAsyncSGIX_ovr_0_anh01(IntPtr.Zero);
+    private z_FinishAsyncSGIX_adr := GetFuncAdr('glFinishAsyncSGIX');
+    private z_FinishAsyncSGIX_ovr_0 := GetFuncOrNil&(z_FinishAsyncSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FinishAsyncSGIX(var markerp: UInt32): Int32 :=
     z_FinishAsyncSGIX_ovr_0(markerp);
-    private static function z_FinishAsyncSGIX_ovr_2(markerp: IntPtr): Int32;
-    external 'opengl32.dll' name 'glFinishAsyncSGIX';
+    private z_FinishAsyncSGIX_ovr_1 := GetFuncOrNil&(z_FinishAsyncSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function FinishAsyncSGIX(markerp: IntPtr): Int32 :=
-    z_FinishAsyncSGIX_ovr_2(markerp);
+    z_FinishAsyncSGIX_ovr_1(markerp);
     
-    private static function z_PollAsyncSGIX_ovr_0(var markerp: UInt32): Int32;
-    external 'opengl32.dll' name 'glPollAsyncSGIX';
-    private static function z_PollAsyncSGIX_ovr_0_anh01(markerp: IntPtr): Int32;
-    external 'opengl32.dll' name 'glPollAsyncSGIX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollAsyncSGIX(markerp: array of UInt32): Int32 :=
-    if (markerp<>nil) and (markerp.Length<>0) then
-      z_PollAsyncSGIX_ovr_0(markerp[0]) else
-      z_PollAsyncSGIX_ovr_0_anh01(IntPtr.Zero);
+    private z_PollAsyncSGIX_adr := GetFuncAdr('glPollAsyncSGIX');
+    private z_PollAsyncSGIX_ovr_0 := GetFuncOrNil&(z_PollAsyncSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollAsyncSGIX(var markerp: UInt32): Int32 :=
     z_PollAsyncSGIX_ovr_0(markerp);
-    private static function z_PollAsyncSGIX_ovr_2(markerp: IntPtr): Int32;
-    external 'opengl32.dll' name 'glPollAsyncSGIX';
+    private z_PollAsyncSGIX_ovr_1 := GetFuncOrNil&(z_PollAsyncSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollAsyncSGIX(markerp: IntPtr): Int32 :=
-    z_PollAsyncSGIX_ovr_2(markerp);
+    z_PollAsyncSGIX_ovr_1(markerp);
     
-    private static function z_GenAsyncMarkersSGIX_ovr_0(range: Int32): UInt32;
-    external 'opengl32.dll' name 'glGenAsyncMarkersSGIX';
+    private z_GenAsyncMarkersSGIX_adr := GetFuncAdr('glGenAsyncMarkersSGIX');
+    private z_GenAsyncMarkersSGIX_ovr_0 := GetFuncOrNil&(z_GenAsyncMarkersSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenAsyncMarkersSGIX(range: Int32): UInt32 :=
     z_GenAsyncMarkersSGIX_ovr_0(range);
     
-    private static procedure z_DeleteAsyncMarkersSGIX_ovr_0(marker: UInt32; range: Int32);
-    external 'opengl32.dll' name 'glDeleteAsyncMarkersSGIX';
+    private z_DeleteAsyncMarkersSGIX_adr := GetFuncAdr('glDeleteAsyncMarkersSGIX');
+    private z_DeleteAsyncMarkersSGIX_ovr_0 := GetFuncOrNil&(z_DeleteAsyncMarkersSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteAsyncMarkersSGIX(marker: UInt32; range: Int32) :=
     z_DeleteAsyncMarkersSGIX_ovr_0(marker, range);
     
-    private static function z_IsAsyncMarkerSGIX_ovr_0(marker: UInt32): boolean;
-    external 'opengl32.dll' name 'glIsAsyncMarkerSGIX';
+    private z_IsAsyncMarkerSGIX_adr := GetFuncAdr('glIsAsyncMarkerSGIX');
+    private z_IsAsyncMarkerSGIX_ovr_0 := GetFuncOrNil&(z_IsAsyncMarkerSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsAsyncMarkerSGIX(marker: UInt32): boolean :=
     z_IsAsyncMarkerSGIX_ovr_0(marker);
     
   end;
   
   [PCUNotRestore]
-  glFlushRasterSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFlushRasterSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_flush_raster';
     
-    private static procedure z_FlushRasterSGIX_ovr_0;
-    external 'opengl32.dll' name 'glFlushRasterSGIX';
+    private z_FlushRasterSGIX_adr := GetFuncAdr('glFlushRasterSGIX');
+    private z_FlushRasterSGIX_ovr_0 := GetFuncOrNil&(z_FlushRasterSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FlushRasterSGIX :=
     z_FlushRasterSGIX_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glFragmentLightingSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFragmentLightingSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_fragment_lighting';
     
-    private static procedure z_FragmentColorMaterialSGIX_ovr_0(face: MaterialFace; mode: MaterialParameter);
-    external 'opengl32.dll' name 'glFragmentColorMaterialSGIX';
+    private z_FragmentColorMaterialSGIX_adr := GetFuncAdr('glFragmentColorMaterialSGIX');
+    private z_FragmentColorMaterialSGIX_ovr_0 := GetFuncOrNil&(z_FragmentColorMaterialSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentColorMaterialSGIX(face: MaterialFace; mode: MaterialParameter) :=
     z_FragmentColorMaterialSGIX_ovr_0(face, mode);
     
-    private static procedure z_FragmentLightfSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; param: single);
-    external 'opengl32.dll' name 'glFragmentLightfSGIX';
+    private z_FragmentLightfSGIX_adr := GetFuncAdr('glFragmentLightfSGIX');
+    private z_FragmentLightfSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightfSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightfSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; param: single) :=
     z_FragmentLightfSGIX_ovr_0(light, pname, param);
     
-    private static procedure z_FragmentLightfvSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: single);
-    external 'opengl32.dll' name 'glFragmentLightfvSGIX';
-    private static procedure z_FragmentLightfvSGIX_ovr_0_anh0001(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightfvSGIX';
+    private z_FragmentLightfvSGIX_adr := GetFuncAdr('glFragmentLightfvSGIX');
+    private z_FragmentLightfvSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightfvSGIX_adr);
+    private z_FragmentLightfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_FragmentLightfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentLightfvSGIX_ovr_0(light, pname, ¶ms[0]) else
       z_FragmentLightfvSGIX_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: single) :=
     z_FragmentLightfvSGIX_ovr_0(light, pname, ¶ms);
-    private static procedure z_FragmentLightfvSGIX_ovr_2(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightfvSGIX';
+    private z_FragmentLightfvSGIX_ovr_2 := GetFuncOrNil&(z_FragmentLightfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr) :=
     z_FragmentLightfvSGIX_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_FragmentLightiSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; param: Int32);
-    external 'opengl32.dll' name 'glFragmentLightiSGIX';
+    private z_FragmentLightiSGIX_adr := GetFuncAdr('glFragmentLightiSGIX');
+    private z_FragmentLightiSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightiSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightiSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; param: Int32) :=
     z_FragmentLightiSGIX_ovr_0(light, pname, param);
     
-    private static procedure z_FragmentLightivSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glFragmentLightivSGIX';
-    private static procedure z_FragmentLightivSGIX_ovr_0_anh0001(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightivSGIX';
+    private z_FragmentLightivSGIX_adr := GetFuncAdr('glFragmentLightivSGIX');
+    private z_FragmentLightivSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightivSGIX_adr);
+    private z_FragmentLightivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_FragmentLightivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentLightivSGIX_ovr_0(light, pname, ¶ms[0]) else
       z_FragmentLightivSGIX_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: Int32) :=
     z_FragmentLightivSGIX_ovr_0(light, pname, ¶ms);
-    private static procedure z_FragmentLightivSGIX_ovr_2(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightivSGIX';
+    private z_FragmentLightivSGIX_ovr_2 := GetFuncOrNil&(z_FragmentLightivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr) :=
     z_FragmentLightivSGIX_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_FragmentLightModelfSGIX_ovr_0(pname: FragmentLightModelParameterSGIX; param: single);
-    external 'opengl32.dll' name 'glFragmentLightModelfSGIX';
+    private z_FragmentLightModelfSGIX_adr := GetFuncAdr('glFragmentLightModelfSGIX');
+    private z_FragmentLightModelfSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightModelfSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelfSGIX(pname: FragmentLightModelParameterSGIX; param: single) :=
     z_FragmentLightModelfSGIX_ovr_0(pname, param);
     
-    private static procedure z_FragmentLightModelfvSGIX_ovr_0(pname: FragmentLightModelParameterSGIX; var ¶ms: single);
-    external 'opengl32.dll' name 'glFragmentLightModelfvSGIX';
-    private static procedure z_FragmentLightModelfvSGIX_ovr_0_anh001(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightModelfvSGIX';
+    private z_FragmentLightModelfvSGIX_adr := GetFuncAdr('glFragmentLightModelfvSGIX');
+    private z_FragmentLightModelfvSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightModelfvSGIX_adr);
+    private z_FragmentLightModelfvSGIX_ovr_0_anh001 := GetFuncOrNil&(z_FragmentLightModelfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelfvSGIX(pname: FragmentLightModelParameterSGIX; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentLightModelfvSGIX_ovr_0(pname, ¶ms[0]) else
       z_FragmentLightModelfvSGIX_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelfvSGIX(pname: FragmentLightModelParameterSGIX; var ¶ms: single) :=
     z_FragmentLightModelfvSGIX_ovr_0(pname, ¶ms);
-    private static procedure z_FragmentLightModelfvSGIX_ovr_2(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightModelfvSGIX';
+    private z_FragmentLightModelfvSGIX_ovr_2 := GetFuncOrNil&(z_FragmentLightModelfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelfvSGIX(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr) :=
     z_FragmentLightModelfvSGIX_ovr_2(pname, ¶ms);
     
-    private static procedure z_FragmentLightModeliSGIX_ovr_0(pname: FragmentLightModelParameterSGIX; param: Int32);
-    external 'opengl32.dll' name 'glFragmentLightModeliSGIX';
+    private z_FragmentLightModeliSGIX_adr := GetFuncAdr('glFragmentLightModeliSGIX');
+    private z_FragmentLightModeliSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightModeliSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModeliSGIX(pname: FragmentLightModelParameterSGIX; param: Int32) :=
     z_FragmentLightModeliSGIX_ovr_0(pname, param);
     
-    private static procedure z_FragmentLightModelivSGIX_ovr_0(pname: FragmentLightModelParameterSGIX; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glFragmentLightModelivSGIX';
-    private static procedure z_FragmentLightModelivSGIX_ovr_0_anh001(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightModelivSGIX';
+    private z_FragmentLightModelivSGIX_adr := GetFuncAdr('glFragmentLightModelivSGIX');
+    private z_FragmentLightModelivSGIX_ovr_0 := GetFuncOrNil&(z_FragmentLightModelivSGIX_adr);
+    private z_FragmentLightModelivSGIX_ovr_0_anh001 := GetFuncOrNil&(z_FragmentLightModelivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelivSGIX(pname: FragmentLightModelParameterSGIX; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentLightModelivSGIX_ovr_0(pname, ¶ms[0]) else
       z_FragmentLightModelivSGIX_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelivSGIX(pname: FragmentLightModelParameterSGIX; var ¶ms: Int32) :=
     z_FragmentLightModelivSGIX_ovr_0(pname, ¶ms);
-    private static procedure z_FragmentLightModelivSGIX_ovr_2(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentLightModelivSGIX';
+    private z_FragmentLightModelivSGIX_ovr_2 := GetFuncOrNil&(z_FragmentLightModelivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentLightModelivSGIX(pname: FragmentLightModelParameterSGIX; ¶ms: IntPtr) :=
     z_FragmentLightModelivSGIX_ovr_2(pname, ¶ms);
     
-    private static procedure z_FragmentMaterialfSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; param: single);
-    external 'opengl32.dll' name 'glFragmentMaterialfSGIX';
+    private z_FragmentMaterialfSGIX_adr := GetFuncAdr('glFragmentMaterialfSGIX');
+    private z_FragmentMaterialfSGIX_ovr_0 := GetFuncOrNil&(z_FragmentMaterialfSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfSGIX(face: MaterialFace; pname: MaterialParameter; param: single) :=
     z_FragmentMaterialfSGIX_ovr_0(face, pname, param);
     
-    private static procedure z_FragmentMaterialfvSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glFragmentMaterialfvSGIX';
-    private static procedure z_FragmentMaterialfvSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentMaterialfvSGIX';
+    private z_FragmentMaterialfvSGIX_adr := GetFuncAdr('glFragmentMaterialfvSGIX');
+    private z_FragmentMaterialfvSGIX_ovr_0 := GetFuncOrNil&(z_FragmentMaterialfvSGIX_adr);
+    private z_FragmentMaterialfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_FragmentMaterialfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms[0]) else
       z_FragmentMaterialfvSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) :=
     z_FragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms);
-    private static procedure z_FragmentMaterialfvSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentMaterialfvSGIX';
+    private z_FragmentMaterialfvSGIX_ovr_2 := GetFuncOrNil&(z_FragmentMaterialfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
     z_FragmentMaterialfvSGIX_ovr_2(face, pname, ¶ms);
     
-    private static procedure z_FragmentMaterialiSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; param: Int32);
-    external 'opengl32.dll' name 'glFragmentMaterialiSGIX';
+    private z_FragmentMaterialiSGIX_adr := GetFuncAdr('glFragmentMaterialiSGIX');
+    private z_FragmentMaterialiSGIX_ovr_0 := GetFuncOrNil&(z_FragmentMaterialiSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialiSGIX(face: MaterialFace; pname: MaterialParameter; param: Int32) :=
     z_FragmentMaterialiSGIX_ovr_0(face, pname, param);
     
-    private static procedure z_FragmentMaterialivSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glFragmentMaterialivSGIX';
-    private static procedure z_FragmentMaterialivSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentMaterialivSGIX';
+    private z_FragmentMaterialivSGIX_adr := GetFuncAdr('glFragmentMaterialivSGIX');
+    private z_FragmentMaterialivSGIX_ovr_0 := GetFuncOrNil&(z_FragmentMaterialivSGIX_adr);
+    private z_FragmentMaterialivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_FragmentMaterialivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_FragmentMaterialivSGIX_ovr_0(face, pname, ¶ms[0]) else
       z_FragmentMaterialivSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) :=
     z_FragmentMaterialivSGIX_ovr_0(face, pname, ¶ms);
-    private static procedure z_FragmentMaterialivSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glFragmentMaterialivSGIX';
+    private z_FragmentMaterialivSGIX_ovr_2 := GetFuncOrNil&(z_FragmentMaterialivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
     z_FragmentMaterialivSGIX_ovr_2(face, pname, ¶ms);
     
-    private static procedure z_GetFragmentLightfvSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetFragmentLightfvSGIX';
-    private static procedure z_GetFragmentLightfvSGIX_ovr_0_anh0001(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentLightfvSGIX';
+    private z_GetFragmentLightfvSGIX_adr := GetFuncAdr('glGetFragmentLightfvSGIX');
+    private z_GetFragmentLightfvSGIX_ovr_0 := GetFuncOrNil&(z_GetFragmentLightfvSGIX_adr);
+    private z_GetFragmentLightfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetFragmentLightfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFragmentLightfvSGIX_ovr_0(light, pname, ¶ms[0]) else
       z_GetFragmentLightfvSGIX_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: single) :=
     z_GetFragmentLightfvSGIX_ovr_0(light, pname, ¶ms);
-    private static procedure z_GetFragmentLightfvSGIX_ovr_2(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentLightfvSGIX';
+    private z_GetFragmentLightfvSGIX_ovr_2 := GetFuncOrNil&(z_GetFragmentLightfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightfvSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr) :=
     z_GetFragmentLightfvSGIX_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_GetFragmentLightivSGIX_ovr_0(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFragmentLightivSGIX';
-    private static procedure z_GetFragmentLightivSGIX_ovr_0_anh0001(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentLightivSGIX';
+    private z_GetFragmentLightivSGIX_adr := GetFuncAdr('glGetFragmentLightivSGIX');
+    private z_GetFragmentLightivSGIX_ovr_0 := GetFuncOrNil&(z_GetFragmentLightivSGIX_adr);
+    private z_GetFragmentLightivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetFragmentLightivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFragmentLightivSGIX_ovr_0(light, pname, ¶ms[0]) else
       z_GetFragmentLightivSGIX_ovr_0_anh0001(light, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; var ¶ms: Int32) :=
     z_GetFragmentLightivSGIX_ovr_0(light, pname, ¶ms);
-    private static procedure z_GetFragmentLightivSGIX_ovr_2(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentLightivSGIX';
+    private z_GetFragmentLightivSGIX_ovr_2 := GetFuncOrNil&(z_GetFragmentLightivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentLightivSGIX(light: FragmentLightNameSGIX; pname: FragmentLightParameterSGIX; ¶ms: IntPtr) :=
     z_GetFragmentLightivSGIX_ovr_2(light, pname, ¶ms);
     
-    private static procedure z_GetFragmentMaterialfvSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX';
-    private static procedure z_GetFragmentMaterialfvSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX';
+    private z_GetFragmentMaterialfvSGIX_adr := GetFuncAdr('glGetFragmentMaterialfvSGIX');
+    private z_GetFragmentMaterialfvSGIX_ovr_0 := GetFuncOrNil&(z_GetFragmentMaterialfvSGIX_adr);
+    private z_GetFragmentMaterialfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetFragmentMaterialfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms[0]) else
       z_GetFragmentMaterialfvSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: single) :=
     z_GetFragmentMaterialfvSGIX_ovr_0(face, pname, ¶ms);
-    private static procedure z_GetFragmentMaterialfvSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentMaterialfvSGIX';
+    private z_GetFragmentMaterialfvSGIX_ovr_2 := GetFuncOrNil&(z_GetFragmentMaterialfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialfvSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
     z_GetFragmentMaterialfvSGIX_ovr_2(face, pname, ¶ms);
     
-    private static procedure z_GetFragmentMaterialivSGIX_ovr_0(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX';
-    private static procedure z_GetFragmentMaterialivSGIX_ovr_0_anh0001(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX';
+    private z_GetFragmentMaterialivSGIX_adr := GetFuncAdr('glGetFragmentMaterialivSGIX');
+    private z_GetFragmentMaterialivSGIX_ovr_0 := GetFuncOrNil&(z_GetFragmentMaterialivSGIX_adr);
+    private z_GetFragmentMaterialivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetFragmentMaterialivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetFragmentMaterialivSGIX_ovr_0(face, pname, ¶ms[0]) else
       z_GetFragmentMaterialivSGIX_ovr_0_anh0001(face, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; var ¶ms: Int32) :=
     z_GetFragmentMaterialivSGIX_ovr_0(face, pname, ¶ms);
-    private static procedure z_GetFragmentMaterialivSGIX_ovr_2(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetFragmentMaterialivSGIX';
+    private z_GetFragmentMaterialivSGIX_ovr_2 := GetFuncOrNil&(z_GetFragmentMaterialivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetFragmentMaterialivSGIX(face: MaterialFace; pname: MaterialParameter; ¶ms: IntPtr) :=
     z_GetFragmentMaterialivSGIX_ovr_2(face, pname, ¶ms);
     
-    private static procedure z_LightEnviSGIX_ovr_0(pname: LightEnvParameterSGIX; param: Int32);
-    external 'opengl32.dll' name 'glLightEnviSGIX';
+    private z_LightEnviSGIX_adr := GetFuncAdr('glLightEnviSGIX');
+    private z_LightEnviSGIX_ovr_0 := GetFuncOrNil&(z_LightEnviSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LightEnviSGIX(pname: LightEnvParameterSGIX; param: Int32) :=
     z_LightEnviSGIX_ovr_0(pname, param);
     
   end;
   
   [PCUNotRestore]
-  glFramezoomSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glFramezoomSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_framezoom';
     
-    private static procedure z_FrameZoomSGIX_ovr_0(factor: Int32);
-    external 'opengl32.dll' name 'glFrameZoomSGIX';
+    private z_FrameZoomSGIX_adr := GetFuncAdr('glFrameZoomSGIX');
+    private z_FrameZoomSGIX_ovr_0 := GetFuncOrNil&(z_FrameZoomSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FrameZoomSGIX(factor: Int32) :=
     z_FrameZoomSGIX_ovr_0(factor);
     
   end;
   
   [PCUNotRestore]
-  glIglooInterfaceSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glIglooInterfaceSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_igloo_interface';
     
-    private static procedure z_IglooInterfaceSGIX_ovr_0(pname: DummyEnum; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glIglooInterfaceSGIX';
+    private z_IglooInterfaceSGIX_adr := GetFuncAdr('glIglooInterfaceSGIX');
+    private z_IglooInterfaceSGIX_ovr_0 := GetFuncOrNil&(z_IglooInterfaceSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure IglooInterfaceSGIX(pname: DummyEnum; ¶ms: IntPtr) :=
     z_IglooInterfaceSGIX_ovr_0(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glInstrumentsSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glInstrumentsSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_instruments';
     
-    private static function z_GetInstrumentsSGIX_ovr_0: Int32;
-    external 'opengl32.dll' name 'glGetInstrumentsSGIX';
+    private z_GetInstrumentsSGIX_adr := GetFuncAdr('glGetInstrumentsSGIX');
+    private z_GetInstrumentsSGIX_ovr_0 := GetFuncOrNil&(z_GetInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetInstrumentsSGIX: Int32 :=
     z_GetInstrumentsSGIX_ovr_0;
     
-    private static procedure z_InstrumentsBufferSGIX_ovr_0(size: Int32; var buffer: Int32);
-    external 'opengl32.dll' name 'glInstrumentsBufferSGIX';
-    private static procedure z_InstrumentsBufferSGIX_ovr_0_anh001(size: Int32; buffer: IntPtr);
-    external 'opengl32.dll' name 'glInstrumentsBufferSGIX';
+    private z_InstrumentsBufferSGIX_adr := GetFuncAdr('glInstrumentsBufferSGIX');
+    private z_InstrumentsBufferSGIX_ovr_0 := GetFuncOrNil&(z_InstrumentsBufferSGIX_adr);
+    private z_InstrumentsBufferSGIX_ovr_0_anh001 := GetFuncOrNil&(z_InstrumentsBufferSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InstrumentsBufferSGIX(size: Int32; buffer: array of Int32) :=
     if (buffer<>nil) and (buffer.Length<>0) then
       z_InstrumentsBufferSGIX_ovr_0(size, buffer[0]) else
       z_InstrumentsBufferSGIX_ovr_0_anh001(size, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InstrumentsBufferSGIX(size: Int32; var buffer: Int32) :=
     z_InstrumentsBufferSGIX_ovr_0(size, buffer);
-    private static procedure z_InstrumentsBufferSGIX_ovr_2(size: Int32; buffer: IntPtr);
-    external 'opengl32.dll' name 'glInstrumentsBufferSGIX';
+    private z_InstrumentsBufferSGIX_ovr_2 := GetFuncOrNil&(z_InstrumentsBufferSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure InstrumentsBufferSGIX(size: Int32; buffer: IntPtr) :=
     z_InstrumentsBufferSGIX_ovr_2(size, buffer);
     
-    private static function z_PollInstrumentsSGIX_ovr_0(var marker_p: Int32): Int32;
-    external 'opengl32.dll' name 'glPollInstrumentsSGIX';
-    private static function z_PollInstrumentsSGIX_ovr_0_anh01(marker_p: IntPtr): Int32;
-    external 'opengl32.dll' name 'glPollInstrumentsSGIX';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollInstrumentsSGIX(marker_p: array of Int32): Int32 :=
-    if (marker_p<>nil) and (marker_p.Length<>0) then
-      z_PollInstrumentsSGIX_ovr_0(marker_p[0]) else
-      z_PollInstrumentsSGIX_ovr_0_anh01(IntPtr.Zero);
+    private z_PollInstrumentsSGIX_adr := GetFuncAdr('glPollInstrumentsSGIX');
+    private z_PollInstrumentsSGIX_ovr_0 := GetFuncOrNil&(z_PollInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollInstrumentsSGIX(var marker_p: Int32): Int32 :=
     z_PollInstrumentsSGIX_ovr_0(marker_p);
-    private static function z_PollInstrumentsSGIX_ovr_2(marker_p: IntPtr): Int32;
-    external 'opengl32.dll' name 'glPollInstrumentsSGIX';
+    private z_PollInstrumentsSGIX_ovr_1 := GetFuncOrNil&(z_PollInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PollInstrumentsSGIX(marker_p: IntPtr): Int32 :=
-    z_PollInstrumentsSGIX_ovr_2(marker_p);
+    z_PollInstrumentsSGIX_ovr_1(marker_p);
     
-    private static procedure z_ReadInstrumentsSGIX_ovr_0(marker: Int32);
-    external 'opengl32.dll' name 'glReadInstrumentsSGIX';
+    private z_ReadInstrumentsSGIX_adr := GetFuncAdr('glReadInstrumentsSGIX');
+    private z_ReadInstrumentsSGIX_ovr_0 := GetFuncOrNil&(z_ReadInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReadInstrumentsSGIX(marker: Int32) :=
     z_ReadInstrumentsSGIX_ovr_0(marker);
     
-    private static procedure z_StartInstrumentsSGIX_ovr_0;
-    external 'opengl32.dll' name 'glStartInstrumentsSGIX';
+    private z_StartInstrumentsSGIX_adr := GetFuncAdr('glStartInstrumentsSGIX');
+    private z_StartInstrumentsSGIX_ovr_0 := GetFuncOrNil&(z_StartInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StartInstrumentsSGIX :=
     z_StartInstrumentsSGIX_ovr_0;
     
-    private static procedure z_StopInstrumentsSGIX_ovr_0(marker: Int32);
-    external 'opengl32.dll' name 'glStopInstrumentsSGIX';
+    private z_StopInstrumentsSGIX_adr := GetFuncAdr('glStopInstrumentsSGIX');
+    private z_StopInstrumentsSGIX_ovr_0 := GetFuncOrNil&(z_StopInstrumentsSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure StopInstrumentsSGIX(marker: Int32) :=
     z_StopInstrumentsSGIX_ovr_0(marker);
     
   end;
   
   [PCUNotRestore]
-  glListPrioritySGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glListPrioritySGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_list_priority';
     
-    private static procedure z_GetListParameterfvSGIX_ovr_0(list: UInt32; pname: ListParameterName; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetListParameterfvSGIX';
-    private static procedure z_GetListParameterfvSGIX_ovr_0_anh0001(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetListParameterfvSGIX';
+    private z_GetListParameterfvSGIX_adr := GetFuncAdr('glGetListParameterfvSGIX');
+    private z_GetListParameterfvSGIX_ovr_0 := GetFuncOrNil&(z_GetListParameterfvSGIX_adr);
+    private z_GetListParameterfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetListParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterfvSGIX(list: UInt32; pname: ListParameterName; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetListParameterfvSGIX_ovr_0(list, pname, ¶ms[0]) else
       z_GetListParameterfvSGIX_ovr_0_anh0001(list, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterfvSGIX(list: UInt32; pname: ListParameterName; var ¶ms: single) :=
     z_GetListParameterfvSGIX_ovr_0(list, pname, ¶ms);
-    private static procedure z_GetListParameterfvSGIX_ovr_2(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetListParameterfvSGIX';
+    private z_GetListParameterfvSGIX_ovr_2 := GetFuncOrNil&(z_GetListParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterfvSGIX(list: UInt32; pname: ListParameterName; ¶ms: IntPtr) :=
     z_GetListParameterfvSGIX_ovr_2(list, pname, ¶ms);
     
-    private static procedure z_GetListParameterivSGIX_ovr_0(list: UInt32; pname: ListParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetListParameterivSGIX';
-    private static procedure z_GetListParameterivSGIX_ovr_0_anh0001(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetListParameterivSGIX';
+    private z_GetListParameterivSGIX_adr := GetFuncAdr('glGetListParameterivSGIX');
+    private z_GetListParameterivSGIX_ovr_0 := GetFuncOrNil&(z_GetListParameterivSGIX_adr);
+    private z_GetListParameterivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetListParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterivSGIX(list: UInt32; pname: ListParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetListParameterivSGIX_ovr_0(list, pname, ¶ms[0]) else
       z_GetListParameterivSGIX_ovr_0_anh0001(list, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterivSGIX(list: UInt32; pname: ListParameterName; var ¶ms: Int32) :=
     z_GetListParameterivSGIX_ovr_0(list, pname, ¶ms);
-    private static procedure z_GetListParameterivSGIX_ovr_2(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetListParameterivSGIX';
+    private z_GetListParameterivSGIX_ovr_2 := GetFuncOrNil&(z_GetListParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetListParameterivSGIX(list: UInt32; pname: ListParameterName; ¶ms: IntPtr) :=
     z_GetListParameterivSGIX_ovr_2(list, pname, ¶ms);
     
-    private static procedure z_ListParameterfSGIX_ovr_0(list: UInt32; pname: ListParameterName; param: single);
-    external 'opengl32.dll' name 'glListParameterfSGIX';
+    private z_ListParameterfSGIX_adr := GetFuncAdr('glListParameterfSGIX');
+    private z_ListParameterfSGIX_ovr_0 := GetFuncOrNil&(z_ListParameterfSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterfSGIX(list: UInt32; pname: ListParameterName; param: single) :=
     z_ListParameterfSGIX_ovr_0(list, pname, param);
     
-    private static procedure z_ListParameterfvSGIX_ovr_0(list: UInt32; pname: ListParameterName; var ¶ms: single);
-    external 'opengl32.dll' name 'glListParameterfvSGIX';
-    private static procedure z_ListParameterfvSGIX_ovr_0_anh0001(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glListParameterfvSGIX';
+    private z_ListParameterfvSGIX_adr := GetFuncAdr('glListParameterfvSGIX');
+    private z_ListParameterfvSGIX_ovr_0 := GetFuncOrNil&(z_ListParameterfvSGIX_adr);
+    private z_ListParameterfvSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_ListParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterfvSGIX(list: UInt32; pname: ListParameterName; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ListParameterfvSGIX_ovr_0(list, pname, ¶ms[0]) else
       z_ListParameterfvSGIX_ovr_0_anh0001(list, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterfvSGIX(list: UInt32; pname: ListParameterName; var ¶ms: single) :=
     z_ListParameterfvSGIX_ovr_0(list, pname, ¶ms);
-    private static procedure z_ListParameterfvSGIX_ovr_2(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glListParameterfvSGIX';
+    private z_ListParameterfvSGIX_ovr_2 := GetFuncOrNil&(z_ListParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterfvSGIX(list: UInt32; pname: ListParameterName; ¶ms: IntPtr) :=
     z_ListParameterfvSGIX_ovr_2(list, pname, ¶ms);
     
-    private static procedure z_ListParameteriSGIX_ovr_0(list: UInt32; pname: ListParameterName; param: Int32);
-    external 'opengl32.dll' name 'glListParameteriSGIX';
+    private z_ListParameteriSGIX_adr := GetFuncAdr('glListParameteriSGIX');
+    private z_ListParameteriSGIX_ovr_0 := GetFuncOrNil&(z_ListParameteriSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameteriSGIX(list: UInt32; pname: ListParameterName; param: Int32) :=
     z_ListParameteriSGIX_ovr_0(list, pname, param);
     
-    private static procedure z_ListParameterivSGIX_ovr_0(list: UInt32; pname: ListParameterName; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glListParameterivSGIX';
-    private static procedure z_ListParameterivSGIX_ovr_0_anh0001(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glListParameterivSGIX';
+    private z_ListParameterivSGIX_adr := GetFuncAdr('glListParameterivSGIX');
+    private z_ListParameterivSGIX_ovr_0 := GetFuncOrNil&(z_ListParameterivSGIX_adr);
+    private z_ListParameterivSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_ListParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterivSGIX(list: UInt32; pname: ListParameterName; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ListParameterivSGIX_ovr_0(list, pname, ¶ms[0]) else
       z_ListParameterivSGIX_ovr_0_anh0001(list, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterivSGIX(list: UInt32; pname: ListParameterName; var ¶ms: Int32) :=
     z_ListParameterivSGIX_ovr_0(list, pname, ¶ms);
-    private static procedure z_ListParameterivSGIX_ovr_2(list: UInt32; pname: ListParameterName; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glListParameterivSGIX';
+    private z_ListParameterivSGIX_ovr_2 := GetFuncOrNil&(z_ListParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ListParameterivSGIX(list: UInt32; pname: ListParameterName; ¶ms: IntPtr) :=
     z_ListParameterivSGIX_ovr_2(list, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glPixelTextureSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPixelTextureSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_pixel_texture';
     
-    private static procedure z_PixelTexGenSGIX_ovr_0(mode: PixelTexGenModeSGIX);
-    external 'opengl32.dll' name 'glPixelTexGenSGIX';
+    private z_PixelTexGenSGIX_adr := GetFuncAdr('glPixelTexGenSGIX');
+    private z_PixelTexGenSGIX_ovr_0 := GetFuncOrNil&(z_PixelTexGenSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure PixelTexGenSGIX(mode: PixelTexGenModeSGIX) :=
     z_PixelTexGenSGIX_ovr_0(mode);
     
   end;
   
   [PCUNotRestore]
-  glPolynomialFfdSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glPolynomialFfdSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_polynomial_ffd';
     
-    private static procedure z_DeformationMap3dSGIX_ovr_0(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; var points: real);
-    external 'opengl32.dll' name 'glDeformationMap3dSGIX';
-    private static procedure z_DeformationMap3dSGIX_ovr_0_anh000000000000001(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDeformationMap3dSGIX';
+    private z_DeformationMap3dSGIX_adr := GetFuncAdr('glDeformationMap3dSGIX');
+    private z_DeformationMap3dSGIX_ovr_0 := GetFuncOrNil&(z_DeformationMap3dSGIX_adr);
+    private z_DeformationMap3dSGIX_ovr_0_anh000000000000001 := GetFuncOrNil&(z_DeformationMap3dSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3dSGIX(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; points: array of real) :=
     if (points<>nil) and (points.Length<>0) then
       z_DeformationMap3dSGIX_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points[0]) else
       z_DeformationMap3dSGIX_ovr_0_anh000000000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3dSGIX(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; var points: real) :=
     z_DeformationMap3dSGIX_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points);
-    private static procedure z_DeformationMap3dSGIX_ovr_2(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDeformationMap3dSGIX';
+    private z_DeformationMap3dSGIX_ovr_2 := GetFuncOrNil&(z_DeformationMap3dSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3dSGIX(target: FfdTargetSGIX; u1: real; u2: real; ustride: Int32; uorder: Int32; v1: real; v2: real; vstride: Int32; vorder: Int32; w1: real; w2: real; wstride: Int32; worder: Int32; points: IntPtr) :=
     z_DeformationMap3dSGIX_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points);
     
-    private static procedure z_DeformationMap3fSGIX_ovr_0(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; var points: single);
-    external 'opengl32.dll' name 'glDeformationMap3fSGIX';
-    private static procedure z_DeformationMap3fSGIX_ovr_0_anh000000000000001(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDeformationMap3fSGIX';
+    private z_DeformationMap3fSGIX_adr := GetFuncAdr('glDeformationMap3fSGIX');
+    private z_DeformationMap3fSGIX_ovr_0 := GetFuncOrNil&(z_DeformationMap3fSGIX_adr);
+    private z_DeformationMap3fSGIX_ovr_0_anh000000000000001 := GetFuncOrNil&(z_DeformationMap3fSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3fSGIX(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; points: array of single) :=
     if (points<>nil) and (points.Length<>0) then
       z_DeformationMap3fSGIX_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points[0]) else
       z_DeformationMap3fSGIX_ovr_0_anh000000000000001(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3fSGIX(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; var points: single) :=
     z_DeformationMap3fSGIX_ovr_0(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points);
-    private static procedure z_DeformationMap3fSGIX_ovr_2(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; points: IntPtr);
-    external 'opengl32.dll' name 'glDeformationMap3fSGIX';
+    private z_DeformationMap3fSGIX_ovr_2 := GetFuncOrNil&(z_DeformationMap3fSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformationMap3fSGIX(target: FfdTargetSGIX; u1: single; u2: single; ustride: Int32; uorder: Int32; v1: single; v2: single; vstride: Int32; vorder: Int32; w1: single; w2: single; wstride: Int32; worder: Int32; points: IntPtr) :=
     z_DeformationMap3fSGIX_ovr_2(target, u1, u2, ustride, uorder, v1, v2, vstride, vorder, w1, w2, wstride, worder, points);
     
-    private static procedure z_DeformSGIX_ovr_0(mask: FfdMaskSGIX);
-    external 'opengl32.dll' name 'glDeformSGIX';
+    private z_DeformSGIX_adr := GetFuncAdr('glDeformSGIX');
+    private z_DeformSGIX_ovr_0 := GetFuncOrNil&(z_DeformSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeformSGIX(mask: FfdMaskSGIX) :=
     z_DeformSGIX_ovr_0(mask);
     
-    private static procedure z_LoadIdentityDeformationMapSGIX_ovr_0(mask: FfdMaskSGIX);
-    external 'opengl32.dll' name 'glLoadIdentityDeformationMapSGIX';
+    private z_LoadIdentityDeformationMapSGIX_adr := GetFuncAdr('glLoadIdentityDeformationMapSGIX');
+    private z_LoadIdentityDeformationMapSGIX_ovr_0 := GetFuncOrNil&(z_LoadIdentityDeformationMapSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LoadIdentityDeformationMapSGIX(mask: FfdMaskSGIX) :=
     z_LoadIdentityDeformationMapSGIX_ovr_0(mask);
     
   end;
   
   [PCUNotRestore]
-  glReferencePlaneSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glReferencePlaneSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_reference_plane';
     
-    private static procedure z_ReferencePlaneSGIX_ovr_0(var equation: real);
-    external 'opengl32.dll' name 'glReferencePlaneSGIX';
-    private static procedure z_ReferencePlaneSGIX_ovr_0_anh01(equation: IntPtr);
-    external 'opengl32.dll' name 'glReferencePlaneSGIX';
+    private z_ReferencePlaneSGIX_adr := GetFuncAdr('glReferencePlaneSGIX');
+    private z_ReferencePlaneSGIX_ovr_0 := GetFuncOrNil&(z_ReferencePlaneSGIX_adr);
+    private z_ReferencePlaneSGIX_ovr_0_anh01 := GetFuncOrNil&(z_ReferencePlaneSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReferencePlaneSGIX(equation: array of real) :=
     if (equation<>nil) and (equation.Length<>0) then
       z_ReferencePlaneSGIX_ovr_0(equation[0]) else
       z_ReferencePlaneSGIX_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReferencePlaneSGIX(var equation: real) :=
     z_ReferencePlaneSGIX_ovr_0(equation);
-    private static procedure z_ReferencePlaneSGIX_ovr_2(equation: IntPtr);
-    external 'opengl32.dll' name 'glReferencePlaneSGIX';
+    private z_ReferencePlaneSGIX_ovr_2 := GetFuncOrNil&(z_ReferencePlaneSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReferencePlaneSGIX(equation: IntPtr) :=
     z_ReferencePlaneSGIX_ovr_2(equation);
     
   end;
   
   [PCUNotRestore]
-  glSpriteSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glSpriteSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_sprite';
     
-    private static procedure z_SpriteParameterfSGIX_ovr_0(pname: SpriteParameterNameSGIX; param: single);
-    external 'opengl32.dll' name 'glSpriteParameterfSGIX';
+    private z_SpriteParameterfSGIX_adr := GetFuncAdr('glSpriteParameterfSGIX');
+    private z_SpriteParameterfSGIX_ovr_0 := GetFuncOrNil&(z_SpriteParameterfSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterfSGIX(pname: SpriteParameterNameSGIX; param: single) :=
     z_SpriteParameterfSGIX_ovr_0(pname, param);
     
-    private static procedure z_SpriteParameterfvSGIX_ovr_0(pname: SpriteParameterNameSGIX; var ¶ms: single);
-    external 'opengl32.dll' name 'glSpriteParameterfvSGIX';
-    private static procedure z_SpriteParameterfvSGIX_ovr_0_anh001(pname: SpriteParameterNameSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSpriteParameterfvSGIX';
+    private z_SpriteParameterfvSGIX_adr := GetFuncAdr('glSpriteParameterfvSGIX');
+    private z_SpriteParameterfvSGIX_ovr_0 := GetFuncOrNil&(z_SpriteParameterfvSGIX_adr);
+    private z_SpriteParameterfvSGIX_ovr_0_anh001 := GetFuncOrNil&(z_SpriteParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterfvSGIX(pname: SpriteParameterNameSGIX; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_SpriteParameterfvSGIX_ovr_0(pname, ¶ms[0]) else
       z_SpriteParameterfvSGIX_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterfvSGIX(pname: SpriteParameterNameSGIX; var ¶ms: single) :=
     z_SpriteParameterfvSGIX_ovr_0(pname, ¶ms);
-    private static procedure z_SpriteParameterfvSGIX_ovr_2(pname: SpriteParameterNameSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSpriteParameterfvSGIX';
+    private z_SpriteParameterfvSGIX_ovr_2 := GetFuncOrNil&(z_SpriteParameterfvSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterfvSGIX(pname: SpriteParameterNameSGIX; ¶ms: IntPtr) :=
     z_SpriteParameterfvSGIX_ovr_2(pname, ¶ms);
     
-    private static procedure z_SpriteParameteriSGIX_ovr_0(pname: SpriteParameterNameSGIX; param: Int32);
-    external 'opengl32.dll' name 'glSpriteParameteriSGIX';
+    private z_SpriteParameteriSGIX_adr := GetFuncAdr('glSpriteParameteriSGIX');
+    private z_SpriteParameteriSGIX_ovr_0 := GetFuncOrNil&(z_SpriteParameteriSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameteriSGIX(pname: SpriteParameterNameSGIX; param: Int32) :=
     z_SpriteParameteriSGIX_ovr_0(pname, param);
     
-    private static procedure z_SpriteParameterivSGIX_ovr_0(pname: SpriteParameterNameSGIX; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glSpriteParameterivSGIX';
-    private static procedure z_SpriteParameterivSGIX_ovr_0_anh001(pname: SpriteParameterNameSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSpriteParameterivSGIX';
+    private z_SpriteParameterivSGIX_adr := GetFuncAdr('glSpriteParameterivSGIX');
+    private z_SpriteParameterivSGIX_ovr_0 := GetFuncOrNil&(z_SpriteParameterivSGIX_adr);
+    private z_SpriteParameterivSGIX_ovr_0_anh001 := GetFuncOrNil&(z_SpriteParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterivSGIX(pname: SpriteParameterNameSGIX; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_SpriteParameterivSGIX_ovr_0(pname, ¶ms[0]) else
       z_SpriteParameterivSGIX_ovr_0_anh001(pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterivSGIX(pname: SpriteParameterNameSGIX; var ¶ms: Int32) :=
     z_SpriteParameterivSGIX_ovr_0(pname, ¶ms);
-    private static procedure z_SpriteParameterivSGIX_ovr_2(pname: SpriteParameterNameSGIX; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glSpriteParameterivSGIX';
+    private z_SpriteParameterivSGIX_ovr_2 := GetFuncOrNil&(z_SpriteParameterivSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SpriteParameterivSGIX(pname: SpriteParameterNameSGIX; ¶ms: IntPtr) :=
     z_SpriteParameterivSGIX_ovr_2(pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glTagSampleBufferSGIX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTagSampleBufferSGIX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGIX_tag_sample_buffer';
     
-    private static procedure z_TagSampleBufferSGIX_ovr_0;
-    external 'opengl32.dll' name 'glTagSampleBufferSGIX';
+    private z_TagSampleBufferSGIX_adr := GetFuncAdr('glTagSampleBufferSGIX');
+    private z_TagSampleBufferSGIX_ovr_0 := GetFuncOrNil&(z_TagSampleBufferSGIX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TagSampleBufferSGIX :=
     z_TagSampleBufferSGIX_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glColorTableSGI = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glColorTableSGI = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SGI_color_table';
     
-    private static procedure z_ColorTableSGI_ovr_0(target: ColorTableTargetSGI; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr);
-    external 'opengl32.dll' name 'glColorTableSGI';
+    private z_ColorTableSGI_adr := GetFuncAdr('glColorTableSGI');
+    private z_ColorTableSGI_ovr_0 := GetFuncOrNil&(z_ColorTableSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableSGI(target: ColorTableTargetSGI; _internalformat: InternalFormat; width: Int32; format: PixelFormat; &type: PixelType; table: IntPtr) :=
     z_ColorTableSGI_ovr_0(target, _internalformat, width, format, &type, table);
     
-    private static procedure z_ColorTableParameterfvSGI_ovr_0(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: single);
-    external 'opengl32.dll' name 'glColorTableParameterfvSGI';
-    private static procedure z_ColorTableParameterfvSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterfvSGI';
+    private z_ColorTableParameterfvSGI_adr := GetFuncAdr('glColorTableParameterfvSGI');
+    private z_ColorTableParameterfvSGI_ovr_0 := GetFuncOrNil&(z_ColorTableParameterfvSGI_adr);
+    private z_ColorTableParameterfvSGI_ovr_0_anh0001 := GetFuncOrNil&(z_ColorTableParameterfvSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ColorTableParameterfvSGI_ovr_0(target, pname, ¶ms[0]) else
       z_ColorTableParameterfvSGI_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: single) :=
     z_ColorTableParameterfvSGI_ovr_0(target, pname, ¶ms);
-    private static procedure z_ColorTableParameterfvSGI_ovr_2(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterfvSGI';
+    private z_ColorTableParameterfvSGI_ovr_2 := GetFuncOrNil&(z_ColorTableParameterfvSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_ColorTableParameterfvSGI_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_ColorTableParameterivSGI_ovr_0(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glColorTableParameterivSGI';
-    private static procedure z_ColorTableParameterivSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterivSGI';
+    private z_ColorTableParameterivSGI_adr := GetFuncAdr('glColorTableParameterivSGI');
+    private z_ColorTableParameterivSGI_ovr_0 := GetFuncOrNil&(z_ColorTableParameterivSGI_adr);
+    private z_ColorTableParameterivSGI_ovr_0_anh0001 := GetFuncOrNil&(z_ColorTableParameterivSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_ColorTableParameterivSGI_ovr_0(target, pname, ¶ms[0]) else
       z_ColorTableParameterivSGI_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; var ¶ms: Int32) :=
     z_ColorTableParameterivSGI_ovr_0(target, pname, ¶ms);
-    private static procedure z_ColorTableParameterivSGI_ovr_2(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glColorTableParameterivSGI';
+    private z_ColorTableParameterivSGI_ovr_2 := GetFuncOrNil&(z_ColorTableParameterivSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ColorTableParameterivSGI(target: ColorTableTargetSGI; pname: ColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_ColorTableParameterivSGI_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_CopyColorTableSGI_ovr_0(target: ColorTableTargetSGI; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32);
-    external 'opengl32.dll' name 'glCopyColorTableSGI';
+    private z_CopyColorTableSGI_adr := GetFuncAdr('glCopyColorTableSGI');
+    private z_CopyColorTableSGI_ovr_0 := GetFuncOrNil&(z_CopyColorTableSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyColorTableSGI(target: ColorTableTargetSGI; _internalformat: InternalFormat; x: Int32; y: Int32; width: Int32) :=
     z_CopyColorTableSGI_ovr_0(target, _internalformat, x, y, width);
     
-    private static procedure z_GetColorTableSGI_ovr_0(target: ColorTableTargetSGI; format: PixelFormat; &type: PixelType; table: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableSGI';
+    private z_GetColorTableSGI_adr := GetFuncAdr('glGetColorTableSGI');
+    private z_GetColorTableSGI_ovr_0 := GetFuncOrNil&(z_GetColorTableSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableSGI(target: ColorTableTargetSGI; format: PixelFormat; &type: PixelType; table: IntPtr) :=
     z_GetColorTableSGI_ovr_0(target, format, &type, table);
     
-    private static procedure z_GetColorTableParameterfvSGI_ovr_0(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; var ¶ms: single);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvSGI';
-    private static procedure z_GetColorTableParameterfvSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvSGI';
+    private z_GetColorTableParameterfvSGI_adr := GetFuncAdr('glGetColorTableParameterfvSGI');
+    private z_GetColorTableParameterfvSGI_ovr_0 := GetFuncOrNil&(z_GetColorTableParameterfvSGI_adr);
+    private z_GetColorTableParameterfvSGI_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameterfvSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: array of single) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameterfvSGI_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameterfvSGI_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; var ¶ms: single) :=
     z_GetColorTableParameterfvSGI_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameterfvSGI_ovr_2(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterfvSGI';
+    private z_GetColorTableParameterfvSGI_ovr_2 := GetFuncOrNil&(z_GetColorTableParameterfvSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterfvSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameterfvSGI_ovr_2(target, pname, ¶ms);
     
-    private static procedure z_GetColorTableParameterivSGI_ovr_0(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32);
-    external 'opengl32.dll' name 'glGetColorTableParameterivSGI';
-    private static procedure z_GetColorTableParameterivSGI_ovr_0_anh0001(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterivSGI';
+    private z_GetColorTableParameterivSGI_adr := GetFuncAdr('glGetColorTableParameterivSGI');
+    private z_GetColorTableParameterivSGI_ovr_0 := GetFuncOrNil&(z_GetColorTableParameterivSGI_adr);
+    private z_GetColorTableParameterivSGI_ovr_0_anh0001 := GetFuncOrNil&(z_GetColorTableParameterivSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: array of Int32) :=
     if (¶ms<>nil) and (¶ms.Length<>0) then
       z_GetColorTableParameterivSGI_ovr_0(target, pname, ¶ms[0]) else
       z_GetColorTableParameterivSGI_ovr_0_anh0001(target, pname, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; var ¶ms: Int32) :=
     z_GetColorTableParameterivSGI_ovr_0(target, pname, ¶ms);
-    private static procedure z_GetColorTableParameterivSGI_ovr_2(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr);
-    external 'opengl32.dll' name 'glGetColorTableParameterivSGI';
+    private z_GetColorTableParameterivSGI_ovr_2 := GetFuncOrNil&(z_GetColorTableParameterivSGI_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetColorTableParameterivSGI(target: ColorTableTargetSGI; pname: GetColorTableParameterPNameSGI; ¶ms: IntPtr) :=
     z_GetColorTableParameterivSGI_ovr_2(target, pname, ¶ms);
     
   end;
   
   [PCUNotRestore]
-  glConstantDataSUNX = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glConstantDataSUNX = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SUNX_constant_data';
     
-    private static procedure z_FinishTextureSUNX_ovr_0;
-    external 'opengl32.dll' name 'glFinishTextureSUNX';
+    private z_FinishTextureSUNX_adr := GetFuncAdr('glFinishTextureSUNX');
+    private z_FinishTextureSUNX_ovr_0 := GetFuncOrNil&(z_FinishTextureSUNX_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FinishTextureSUNX :=
     z_FinishTextureSUNX_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  glGlobalAlphaSUN = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glGlobalAlphaSUN = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SUN_global_alpha';
     
-    private static procedure z_GlobalAlphaFactorbSUN_ovr_0(factor: SByte);
-    external 'opengl32.dll' name 'glGlobalAlphaFactorbSUN';
+    private z_GlobalAlphaFactorbSUN_adr := GetFuncAdr('glGlobalAlphaFactorbSUN');
+    private z_GlobalAlphaFactorbSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactorbSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactorbSUN(factor: SByte) :=
     z_GlobalAlphaFactorbSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactorsSUN_ovr_0(factor: Int16);
-    external 'opengl32.dll' name 'glGlobalAlphaFactorsSUN';
+    private z_GlobalAlphaFactorsSUN_adr := GetFuncAdr('glGlobalAlphaFactorsSUN');
+    private z_GlobalAlphaFactorsSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactorsSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactorsSUN(factor: Int16) :=
     z_GlobalAlphaFactorsSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactoriSUN_ovr_0(factor: Int32);
-    external 'opengl32.dll' name 'glGlobalAlphaFactoriSUN';
+    private z_GlobalAlphaFactoriSUN_adr := GetFuncAdr('glGlobalAlphaFactoriSUN');
+    private z_GlobalAlphaFactoriSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactoriSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactoriSUN(factor: Int32) :=
     z_GlobalAlphaFactoriSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactorfSUN_ovr_0(factor: single);
-    external 'opengl32.dll' name 'glGlobalAlphaFactorfSUN';
+    private z_GlobalAlphaFactorfSUN_adr := GetFuncAdr('glGlobalAlphaFactorfSUN');
+    private z_GlobalAlphaFactorfSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactorfSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactorfSUN(factor: single) :=
     z_GlobalAlphaFactorfSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactordSUN_ovr_0(factor: real);
-    external 'opengl32.dll' name 'glGlobalAlphaFactordSUN';
+    private z_GlobalAlphaFactordSUN_adr := GetFuncAdr('glGlobalAlphaFactordSUN');
+    private z_GlobalAlphaFactordSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactordSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactordSUN(factor: real) :=
     z_GlobalAlphaFactordSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactorubSUN_ovr_0(factor: Byte);
-    external 'opengl32.dll' name 'glGlobalAlphaFactorubSUN';
+    private z_GlobalAlphaFactorubSUN_adr := GetFuncAdr('glGlobalAlphaFactorubSUN');
+    private z_GlobalAlphaFactorubSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactorubSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactorubSUN(factor: Byte) :=
     z_GlobalAlphaFactorubSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactorusSUN_ovr_0(factor: UInt16);
-    external 'opengl32.dll' name 'glGlobalAlphaFactorusSUN';
+    private z_GlobalAlphaFactorusSUN_adr := GetFuncAdr('glGlobalAlphaFactorusSUN');
+    private z_GlobalAlphaFactorusSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactorusSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactorusSUN(factor: UInt16) :=
     z_GlobalAlphaFactorusSUN_ovr_0(factor);
     
-    private static procedure z_GlobalAlphaFactoruiSUN_ovr_0(factor: UInt32);
-    external 'opengl32.dll' name 'glGlobalAlphaFactoruiSUN';
+    private z_GlobalAlphaFactoruiSUN_adr := GetFuncAdr('glGlobalAlphaFactoruiSUN');
+    private z_GlobalAlphaFactoruiSUN_ovr_0 := GetFuncOrNil&(z_GlobalAlphaFactoruiSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GlobalAlphaFactoruiSUN(factor: UInt32) :=
     z_GlobalAlphaFactoruiSUN_ovr_0(factor);
     
   end;
   
   [PCUNotRestore]
-  glMeshArraySUN = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glMeshArraySUN = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SUN_mesh_array';
     
-    private static procedure z_DrawMeshArraysSUN_ovr_0(mode: PrimitiveType; first: Int32; count: Int32; width: Int32);
-    external 'opengl32.dll' name 'glDrawMeshArraysSUN';
+    private z_DrawMeshArraysSUN_adr := GetFuncAdr('glDrawMeshArraysSUN');
+    private z_DrawMeshArraysSUN_ovr_0 := GetFuncOrNil&(z_DrawMeshArraysSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DrawMeshArraysSUN(mode: PrimitiveType; first: Int32; count: Int32; width: Int32) :=
     z_DrawMeshArraysSUN_ovr_0(mode, first, count, width);
     
   end;
   
   [PCUNotRestore]
-  glTriangleListSUN = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glTriangleListSUN = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SUN_triangle_list';
     
-    private static procedure z_ReplacementCodeuiSUN_ovr_0(code: UInt32);
-    external 'opengl32.dll' name 'glReplacementCodeuiSUN';
+    private z_ReplacementCodeuiSUN_adr := GetFuncAdr('glReplacementCodeuiSUN');
+    private z_ReplacementCodeuiSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiSUN(code: UInt32) :=
     z_ReplacementCodeuiSUN_ovr_0(code);
     
-    private static procedure z_ReplacementCodeusSUN_ovr_0(code: UInt16);
-    external 'opengl32.dll' name 'glReplacementCodeusSUN';
+    private z_ReplacementCodeusSUN_adr := GetFuncAdr('glReplacementCodeusSUN');
+    private z_ReplacementCodeusSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeusSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeusSUN(code: UInt16) :=
     z_ReplacementCodeusSUN_ovr_0(code);
     
-    private static procedure z_ReplacementCodeubSUN_ovr_0(code: Byte);
-    external 'opengl32.dll' name 'glReplacementCodeubSUN';
+    private z_ReplacementCodeubSUN_adr := GetFuncAdr('glReplacementCodeubSUN');
+    private z_ReplacementCodeubSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeubSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeubSUN(code: Byte) :=
     z_ReplacementCodeubSUN_ovr_0(code);
     
-    private static procedure z_ReplacementCodeuivSUN_ovr_0(var code: UInt32);
-    external 'opengl32.dll' name 'glReplacementCodeuivSUN';
-    private static procedure z_ReplacementCodeuivSUN_ovr_0_anh01(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuivSUN';
+    private z_ReplacementCodeuivSUN_adr := GetFuncAdr('glReplacementCodeuivSUN');
+    private z_ReplacementCodeuivSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuivSUN_adr);
+    private z_ReplacementCodeuivSUN_ovr_0_anh01 := GetFuncOrNil&(z_ReplacementCodeuivSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuivSUN(code: array of UInt32) :=
     if (code<>nil) and (code.Length<>0) then
       z_ReplacementCodeuivSUN_ovr_0(code[0]) else
       z_ReplacementCodeuivSUN_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuivSUN(var code: UInt32) :=
     z_ReplacementCodeuivSUN_ovr_0(code);
-    private static procedure z_ReplacementCodeuivSUN_ovr_2(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuivSUN';
+    private z_ReplacementCodeuivSUN_ovr_2 := GetFuncOrNil&(z_ReplacementCodeuivSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuivSUN(code: IntPtr) :=
     z_ReplacementCodeuivSUN_ovr_2(code);
     
-    private static procedure z_ReplacementCodeusvSUN_ovr_0(var code: UInt16);
-    external 'opengl32.dll' name 'glReplacementCodeusvSUN';
-    private static procedure z_ReplacementCodeusvSUN_ovr_0_anh01(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeusvSUN';
+    private z_ReplacementCodeusvSUN_adr := GetFuncAdr('glReplacementCodeusvSUN');
+    private z_ReplacementCodeusvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeusvSUN_adr);
+    private z_ReplacementCodeusvSUN_ovr_0_anh01 := GetFuncOrNil&(z_ReplacementCodeusvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeusvSUN(code: array of UInt16) :=
     if (code<>nil) and (code.Length<>0) then
       z_ReplacementCodeusvSUN_ovr_0(code[0]) else
       z_ReplacementCodeusvSUN_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeusvSUN(var code: UInt16) :=
     z_ReplacementCodeusvSUN_ovr_0(code);
-    private static procedure z_ReplacementCodeusvSUN_ovr_2(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeusvSUN';
+    private z_ReplacementCodeusvSUN_ovr_2 := GetFuncOrNil&(z_ReplacementCodeusvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeusvSUN(code: IntPtr) :=
     z_ReplacementCodeusvSUN_ovr_2(code);
     
-    private static procedure z_ReplacementCodeubvSUN_ovr_0(var code: Byte);
-    external 'opengl32.dll' name 'glReplacementCodeubvSUN';
-    private static procedure z_ReplacementCodeubvSUN_ovr_0_anh01(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeubvSUN';
+    private z_ReplacementCodeubvSUN_adr := GetFuncAdr('glReplacementCodeubvSUN');
+    private z_ReplacementCodeubvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeubvSUN_adr);
+    private z_ReplacementCodeubvSUN_ovr_0_anh01 := GetFuncOrNil&(z_ReplacementCodeubvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeubvSUN(code: array of Byte) :=
     if (code<>nil) and (code.Length<>0) then
       z_ReplacementCodeubvSUN_ovr_0(code[0]) else
       z_ReplacementCodeubvSUN_ovr_0_anh01(IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeubvSUN(var code: Byte) :=
     z_ReplacementCodeubvSUN_ovr_0(code);
-    private static procedure z_ReplacementCodeubvSUN_ovr_2(code: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeubvSUN';
+    private z_ReplacementCodeubvSUN_ovr_2 := GetFuncOrNil&(z_ReplacementCodeubvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeubvSUN(code: IntPtr) :=
     z_ReplacementCodeubvSUN_ovr_2(code);
     
-    private static procedure z_ReplacementCodePointerSUN_ovr_0(&type: ReplacementCodeTypeSUN; stride: Int32; var _pointer: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodePointerSUN';
-    private static procedure z_ReplacementCodePointerSUN_ovr_0_anh0001(&type: ReplacementCodeTypeSUN; stride: Int32; _pointer: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodePointerSUN';
+    private z_ReplacementCodePointerSUN_adr := GetFuncAdr('glReplacementCodePointerSUN');
+    private z_ReplacementCodePointerSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodePointerSUN_adr);
+    private z_ReplacementCodePointerSUN_ovr_0_anh0001 := GetFuncOrNil&(z_ReplacementCodePointerSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodePointerSUN(&type: ReplacementCodeTypeSUN; stride: Int32; _pointer: array of IntPtr) :=
     if (_pointer<>nil) and (_pointer.Length<>0) then
       z_ReplacementCodePointerSUN_ovr_0(&type, stride, _pointer[0]) else
       z_ReplacementCodePointerSUN_ovr_0_anh0001(&type, stride, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodePointerSUN(&type: ReplacementCodeTypeSUN; stride: Int32; var _pointer: IntPtr) :=
     z_ReplacementCodePointerSUN_ovr_0(&type, stride, _pointer);
-    private static procedure z_ReplacementCodePointerSUN_ovr_2(&type: ReplacementCodeTypeSUN; stride: Int32; _pointer: pointer);
-    external 'opengl32.dll' name 'glReplacementCodePointerSUN';
+    private z_ReplacementCodePointerSUN_ovr_2 := GetFuncOrNil&(z_ReplacementCodePointerSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodePointerSUN(&type: ReplacementCodeTypeSUN; stride: Int32; _pointer: pointer) :=
     z_ReplacementCodePointerSUN_ovr_2(&type, stride, _pointer);
     
   end;
   
   [PCUNotRestore]
-  glVertexSUN = sealed class
-    public static function GetFuncAdr([MarshalAs(UnmanagedType.LPStr)] lpszProc: string): IntPtr;
-    external 'opengl32.dll' name 'wglGetProcAddress';
-    public static function GetFuncOrNil(fadr: IntPtr) :=
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glVertexSUN = 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(fadr: IntPtr) :=
     fadr=IntPtr.Zero ? default(T) :
     Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'SUN_vertex';
     
-    private static procedure z_Color4ubVertex2fSUN_ovr_0(r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single);
-    external 'opengl32.dll' name 'glColor4ubVertex2fSUN';
+    private z_Color4ubVertex2fSUN_adr := GetFuncAdr('glColor4ubVertex2fSUN');
+    private z_Color4ubVertex2fSUN_ovr_0 := GetFuncOrNil&(z_Color4ubVertex2fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex2fSUN(r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single) :=
     z_Color4ubVertex2fSUN_ovr_0(r, g, b, a, x, y);
     
-    private static procedure z_Color4ubVertex2fvSUN_ovr_0(var c: Vec4ub; var v: Vec2f);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
+    private z_Color4ubVertex2fvSUN_adr := GetFuncAdr('glColor4ubVertex2fvSUN');
+    private z_Color4ubVertex2fvSUN_ovr_0 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex2fvSUN(var c: Vec4ub; var v: Vec2f) :=
     z_Color4ubVertex2fvSUN_ovr_0(c, v);
-    private static procedure z_Color4ubVertex2fvSUN_ovr_1(var c: Byte; var v: single);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
-    private static procedure z_Color4ubVertex2fvSUN_ovr_1_anh010(c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
-    private static procedure z_Color4ubVertex2fvSUN_ovr_1_anh001(var c: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
-    private static procedure z_Color4ubVertex2fvSUN_ovr_1_anh011(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
+    private z_Color4ubVertex2fvSUN_ovr_1 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
+    private z_Color4ubVertex2fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
+    private z_Color4ubVertex2fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
+    private z_Color4ubVertex2fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex2fvSUN(c: array of Byte; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71212,28 +67352,23 @@ type
         z_Color4ubVertex2fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex2fvSUN(var c: Byte; var v: single) :=
     z_Color4ubVertex2fvSUN_ovr_1(c, v);
-    private static procedure z_Color4ubVertex2fvSUN_ovr_3(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex2fvSUN';
+    private z_Color4ubVertex2fvSUN_ovr_3 := GetFuncOrNil&(z_Color4ubVertex2fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex2fvSUN(c: IntPtr; v: IntPtr) :=
     z_Color4ubVertex2fvSUN_ovr_3(c, v);
     
-    private static procedure z_Color4ubVertex3fSUN_ovr_0(r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glColor4ubVertex3fSUN';
+    private z_Color4ubVertex3fSUN_adr := GetFuncAdr('glColor4ubVertex3fSUN');
+    private z_Color4ubVertex3fSUN_ovr_0 := GetFuncOrNil&(z_Color4ubVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex3fSUN(r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single) :=
     z_Color4ubVertex3fSUN_ovr_0(r, g, b, a, x, y, z);
     
-    private static procedure z_Color4ubVertex3fvSUN_ovr_0(var c: Vec4ub; var v: Vec3f);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
+    private z_Color4ubVertex3fvSUN_adr := GetFuncAdr('glColor4ubVertex3fvSUN');
+    private z_Color4ubVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex3fvSUN(var c: Vec4ub; var v: Vec3f) :=
     z_Color4ubVertex3fvSUN_ovr_0(c, v);
-    private static procedure z_Color4ubVertex3fvSUN_ovr_1(var c: Byte; var v: single);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
-    private static procedure z_Color4ubVertex3fvSUN_ovr_1_anh010(c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
-    private static procedure z_Color4ubVertex3fvSUN_ovr_1_anh001(var c: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
-    private static procedure z_Color4ubVertex3fvSUN_ovr_1_anh011(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
+    private z_Color4ubVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
+    private z_Color4ubVertex3fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
+    private z_Color4ubVertex3fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
+    private z_Color4ubVertex3fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex3fvSUN(c: array of Byte; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71244,28 +67379,23 @@ type
         z_Color4ubVertex3fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex3fvSUN(var c: Byte; var v: single) :=
     z_Color4ubVertex3fvSUN_ovr_1(c, v);
-    private static procedure z_Color4ubVertex3fvSUN_ovr_3(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4ubVertex3fvSUN';
+    private z_Color4ubVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_Color4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4ubVertex3fvSUN(c: IntPtr; v: IntPtr) :=
     z_Color4ubVertex3fvSUN_ovr_3(c, v);
     
-    private static procedure z_Color3fVertex3fSUN_ovr_0(r: single; g: single; b: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glColor3fVertex3fSUN';
+    private z_Color3fVertex3fSUN_adr := GetFuncAdr('glColor3fVertex3fSUN');
+    private z_Color3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_Color3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fVertex3fSUN(r: single; g: single; b: single; x: single; y: single; z: single) :=
     z_Color3fVertex3fSUN_ovr_0(r, g, b, x, y, z);
     
-    private static procedure z_Color3fVertex3fvSUN_ovr_0(var c: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
+    private z_Color3fVertex3fvSUN_adr := GetFuncAdr('glColor3fVertex3fvSUN');
+    private z_Color3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fVertex3fvSUN(var c: Vec3f; var v: Vec3f) :=
     z_Color3fVertex3fvSUN_ovr_0(c, v);
-    private static procedure z_Color3fVertex3fvSUN_ovr_1(var c: single; var v: single);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
-    private static procedure z_Color3fVertex3fvSUN_ovr_1_anh010(c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
-    private static procedure z_Color3fVertex3fvSUN_ovr_1_anh001(var c: single; v: IntPtr);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
-    private static procedure z_Color3fVertex3fvSUN_ovr_1_anh011(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
+    private z_Color3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
+    private z_Color3fVertex3fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
+    private z_Color3fVertex3fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
+    private z_Color3fVertex3fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fVertex3fvSUN(c: array of single; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71276,28 +67406,23 @@ type
         z_Color3fVertex3fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fVertex3fvSUN(var c: single; var v: single) :=
     z_Color3fVertex3fvSUN_ovr_1(c, v);
-    private static procedure z_Color3fVertex3fvSUN_ovr_3(c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor3fVertex3fvSUN';
+    private z_Color3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_Color3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color3fVertex3fvSUN(c: IntPtr; v: IntPtr) :=
     z_Color3fVertex3fvSUN_ovr_3(c, v);
     
-    private static procedure z_Normal3fVertex3fSUN_ovr_0(nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glNormal3fVertex3fSUN';
+    private z_Normal3fVertex3fSUN_adr := GetFuncAdr('glNormal3fVertex3fSUN');
+    private z_Normal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_Normal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fVertex3fSUN(nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_Normal3fVertex3fSUN_ovr_0(nx, ny, nz, x, y, z);
     
-    private static procedure z_Normal3fVertex3fvSUN_ovr_0(var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
+    private z_Normal3fVertex3fvSUN_adr := GetFuncAdr('glNormal3fVertex3fvSUN');
+    private z_Normal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fVertex3fvSUN(var n: Vec3f; var v: Vec3f) :=
     z_Normal3fVertex3fvSUN_ovr_0(n, v);
-    private static procedure z_Normal3fVertex3fvSUN_ovr_1(var n: single; var v: single);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
-    private static procedure z_Normal3fVertex3fvSUN_ovr_1_anh010(n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
-    private static procedure z_Normal3fVertex3fvSUN_ovr_1_anh001(var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
-    private static procedure z_Normal3fVertex3fvSUN_ovr_1_anh011(n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
+    private z_Normal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
+    private z_Normal3fVertex3fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
+    private z_Normal3fVertex3fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
+    private z_Normal3fVertex3fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fVertex3fvSUN(n: array of single; v: array of single) :=
     if (n<>nil) and (n.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71308,36 +67433,27 @@ type
         z_Normal3fVertex3fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fVertex3fvSUN(var n: single; var v: single) :=
     z_Normal3fVertex3fvSUN_ovr_1(n, v);
-    private static procedure z_Normal3fVertex3fvSUN_ovr_3(n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glNormal3fVertex3fvSUN';
+    private z_Normal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_Normal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Normal3fVertex3fvSUN(n: IntPtr; v: IntPtr) :=
     z_Normal3fVertex3fvSUN_ovr_3(n, v);
     
-    private static procedure z_Color4fNormal3fVertex3fSUN_ovr_0(r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fSUN';
+    private z_Color4fNormal3fVertex3fSUN_adr := GetFuncAdr('glColor4fNormal3fVertex3fSUN');
+    private z_Color4fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_Color4fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fNormal3fVertex3fSUN(r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_Color4fNormal3fVertex3fSUN_ovr_0(r, g, b, a, nx, ny, nz, x, y, z);
     
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_0(var c: Vec4f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
+    private z_Color4fNormal3fVertex3fvSUN_adr := GetFuncAdr('glColor4fNormal3fVertex3fvSUN');
+    private z_Color4fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fNormal3fVertex3fvSUN(var c: Vec4f; var n: Vec3f; var v: Vec3f) :=
     z_Color4fNormal3fVertex3fvSUN_ovr_0(c, n, v);
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1(var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0100(c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0010(var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0110(c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0001(var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0101(c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0011(var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0111(c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0100 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0110 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0101 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
+    private z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0111 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fNormal3fVertex3fvSUN(c: array of single; n: array of single; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (n<>nil) and (n.Length<>0) then
@@ -71356,28 +67472,23 @@ type
           z_Color4fNormal3fVertex3fvSUN_ovr_1_anh0111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fNormal3fVertex3fvSUN(var c: single; var n: single; var v: single) :=
     z_Color4fNormal3fVertex3fvSUN_ovr_1(c, n, v);
-    private static procedure z_Color4fNormal3fVertex3fvSUN_ovr_3(c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glColor4fNormal3fVertex3fvSUN';
+    private z_Color4fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_Color4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure Color4fNormal3fVertex3fvSUN(c: IntPtr; n: IntPtr; v: IntPtr) :=
     z_Color4fNormal3fVertex3fvSUN_ovr_3(c, n, v);
     
-    private static procedure z_TexCoord2fVertex3fSUN_ovr_0(s: single; t: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fSUN';
+    private z_TexCoord2fVertex3fSUN_adr := GetFuncAdr('glTexCoord2fVertex3fSUN');
+    private z_TexCoord2fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fVertex3fSUN(s: single; t: single; x: single; y: single; z: single) :=
     z_TexCoord2fVertex3fSUN_ovr_0(s, t, x, y, z);
     
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_0(var tc: Vec2f; var v: Vec3f);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
+    private z_TexCoord2fVertex3fvSUN_adr := GetFuncAdr('glTexCoord2fVertex3fvSUN');
+    private z_TexCoord2fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fVertex3fvSUN(var tc: Vec2f; var v: Vec3f) :=
     z_TexCoord2fVertex3fvSUN_ovr_0(tc, v);
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_1(var tc: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_1_anh010(tc: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_1_anh001(var tc: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_1_anh011(tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
+    private z_TexCoord2fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
+    private z_TexCoord2fVertex3fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
+    private z_TexCoord2fVertex3fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
+    private z_TexCoord2fVertex3fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fVertex3fvSUN(tc: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71388,28 +67499,23 @@ type
         z_TexCoord2fVertex3fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fVertex3fvSUN(var tc: single; var v: single) :=
     z_TexCoord2fVertex3fvSUN_ovr_1(tc, v);
-    private static procedure z_TexCoord2fVertex3fvSUN_ovr_3(tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fVertex3fvSUN';
+    private z_TexCoord2fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fVertex3fvSUN(tc: IntPtr; v: IntPtr) :=
     z_TexCoord2fVertex3fvSUN_ovr_3(tc, v);
     
-    private static procedure z_TexCoord4fVertex4fSUN_ovr_0(s: single; t: single; p: single; q: single; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fSUN';
+    private z_TexCoord4fVertex4fSUN_adr := GetFuncAdr('glTexCoord4fVertex4fSUN');
+    private z_TexCoord4fVertex4fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord4fVertex4fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fVertex4fSUN(s: single; t: single; p: single; q: single; x: single; y: single; z: single; w: single) :=
     z_TexCoord4fVertex4fSUN_ovr_0(s, t, p, q, x, y, z, w);
     
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_0(var tc: Vec4f; var v: Vec4f);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
+    private z_TexCoord4fVertex4fvSUN_adr := GetFuncAdr('glTexCoord4fVertex4fvSUN');
+    private z_TexCoord4fVertex4fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fVertex4fvSUN(var tc: Vec4f; var v: Vec4f) :=
     z_TexCoord4fVertex4fvSUN_ovr_0(tc, v);
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_1(var tc: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_1_anh010(tc: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_1_anh001(var tc: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_1_anh011(tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
+    private z_TexCoord4fVertex4fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
+    private z_TexCoord4fVertex4fvSUN_ovr_1_anh010 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
+    private z_TexCoord4fVertex4fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
+    private z_TexCoord4fVertex4fvSUN_ovr_1_anh011 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fVertex4fvSUN(tc: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71420,36 +67526,27 @@ type
         z_TexCoord4fVertex4fvSUN_ovr_1_anh011(IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fVertex4fvSUN(var tc: single; var v: single) :=
     z_TexCoord4fVertex4fvSUN_ovr_1(tc, v);
-    private static procedure z_TexCoord4fVertex4fvSUN_ovr_3(tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fVertex4fvSUN';
+    private z_TexCoord4fVertex4fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord4fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fVertex4fvSUN(tc: IntPtr; v: IntPtr) :=
     z_TexCoord4fVertex4fvSUN_ovr_3(tc, v);
     
-    private static procedure z_TexCoord2fColor4ubVertex3fSUN_ovr_0(s: single; t: single; r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fSUN';
+    private z_TexCoord2fColor4ubVertex3fSUN_adr := GetFuncAdr('glTexCoord2fColor4ubVertex3fSUN');
+    private z_TexCoord2fColor4ubVertex3fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4ubVertex3fSUN(s: single; t: single; r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single) :=
     z_TexCoord2fColor4ubVertex3fSUN_ovr_0(s, t, r, g, b, a, x, y, z);
     
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_0(var tc: Vec2f; var c: Vec4ub; var v: Vec3f);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
+    private z_TexCoord2fColor4ubVertex3fvSUN_adr := GetFuncAdr('glTexCoord2fColor4ubVertex3fvSUN');
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4ubVertex3fvSUN(var tc: Vec2f; var c: Vec4ub; var v: Vec3f) :=
     z_TexCoord2fColor4ubVertex3fvSUN_ovr_0(tc, c, v);
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1(var tc: single; var c: Byte; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0100(tc: IntPtr; var c: Byte; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0010(var tc: single; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0110(tc: IntPtr; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0001(var tc: single; var c: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0101(tc: IntPtr; var c: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0011(var tc: single; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0111(tc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0100 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0110 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0101 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0111 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4ubVertex3fvSUN(tc: array of single; c: array of Byte; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (c<>nil) and (c.Length<>0) then
@@ -71468,36 +67565,27 @@ type
           z_TexCoord2fColor4ubVertex3fvSUN_ovr_1_anh0111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4ubVertex3fvSUN(var tc: single; var c: Byte; var v: single) :=
     z_TexCoord2fColor4ubVertex3fvSUN_ovr_1(tc, c, v);
-    private static procedure z_TexCoord2fColor4ubVertex3fvSUN_ovr_3(tc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4ubVertex3fvSUN';
+    private z_TexCoord2fColor4ubVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord2fColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4ubVertex3fvSUN(tc: IntPtr; c: IntPtr; v: IntPtr) :=
     z_TexCoord2fColor4ubVertex3fvSUN_ovr_3(tc, c, v);
     
-    private static procedure z_TexCoord2fColor3fVertex3fSUN_ovr_0(s: single; t: single; r: single; g: single; b: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fSUN';
+    private z_TexCoord2fColor3fVertex3fSUN_adr := GetFuncAdr('glTexCoord2fColor3fVertex3fSUN');
+    private z_TexCoord2fColor3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor3fVertex3fSUN(s: single; t: single; r: single; g: single; b: single; x: single; y: single; z: single) :=
     z_TexCoord2fColor3fVertex3fSUN_ovr_0(s, t, r, g, b, x, y, z);
     
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_0(var tc: Vec2f; var c: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
+    private z_TexCoord2fColor3fVertex3fvSUN_adr := GetFuncAdr('glTexCoord2fColor3fVertex3fvSUN');
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor3fVertex3fvSUN(var tc: Vec2f; var c: Vec3f; var v: Vec3f) :=
     z_TexCoord2fColor3fVertex3fvSUN_ovr_0(tc, c, v);
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1(var tc: single; var c: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0100(tc: IntPtr; var c: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0010(var tc: single; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0110(tc: IntPtr; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0001(var tc: single; var c: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0101(tc: IntPtr; var c: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0011(var tc: single; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0111(tc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0100 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0110 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0101 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0111 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor3fVertex3fvSUN(tc: array of single; c: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (c<>nil) and (c.Length<>0) then
@@ -71516,36 +67604,27 @@ type
           z_TexCoord2fColor3fVertex3fvSUN_ovr_1_anh0111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor3fVertex3fvSUN(var tc: single; var c: single; var v: single) :=
     z_TexCoord2fColor3fVertex3fvSUN_ovr_1(tc, c, v);
-    private static procedure z_TexCoord2fColor3fVertex3fvSUN_ovr_3(tc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor3fVertex3fvSUN';
+    private z_TexCoord2fColor3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord2fColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor3fVertex3fvSUN(tc: IntPtr; c: IntPtr; v: IntPtr) :=
     z_TexCoord2fColor3fVertex3fvSUN_ovr_3(tc, c, v);
     
-    private static procedure z_TexCoord2fNormal3fVertex3fSUN_ovr_0(s: single; t: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fSUN';
+    private z_TexCoord2fNormal3fVertex3fSUN_adr := GetFuncAdr('glTexCoord2fNormal3fVertex3fSUN');
+    private z_TexCoord2fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fNormal3fVertex3fSUN(s: single; t: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_TexCoord2fNormal3fVertex3fSUN_ovr_0(s, t, nx, ny, nz, x, y, z);
     
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_0(var tc: Vec2f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
+    private z_TexCoord2fNormal3fVertex3fvSUN_adr := GetFuncAdr('glTexCoord2fNormal3fVertex3fvSUN');
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fNormal3fVertex3fvSUN(var tc: Vec2f; var n: Vec3f; var v: Vec3f) :=
     z_TexCoord2fNormal3fVertex3fvSUN_ovr_0(tc, n, v);
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1(var tc: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0100(tc: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0010(var tc: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0110(tc: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0001(var tc: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0101(tc: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0011(var tc: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0111(tc: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0100 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0110 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0101 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0111 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fNormal3fVertex3fvSUN(tc: array of single; n: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (n<>nil) and (n.Length<>0) then
@@ -71564,52 +67643,35 @@ type
           z_TexCoord2fNormal3fVertex3fvSUN_ovr_1_anh0111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fNormal3fVertex3fvSUN(var tc: single; var n: single; var v: single) :=
     z_TexCoord2fNormal3fVertex3fvSUN_ovr_1(tc, n, v);
-    private static procedure z_TexCoord2fNormal3fVertex3fvSUN_ovr_3(tc: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fNormal3fVertex3fvSUN';
+    private z_TexCoord2fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fNormal3fVertex3fvSUN(tc: IntPtr; n: IntPtr; v: IntPtr) :=
     z_TexCoord2fNormal3fVertex3fvSUN_ovr_3(tc, n, v);
     
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fSUN_ovr_0(s: single; t: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fSUN';
+    private z_TexCoord2fColor4fNormal3fVertex3fSUN_adr := GetFuncAdr('glTexCoord2fColor4fNormal3fVertex3fSUN');
+    private z_TexCoord2fColor4fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4fNormal3fVertex3fSUN(s: single; t: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_TexCoord2fColor4fNormal3fVertex3fSUN_ovr_0(s, t, r, g, b, a, nx, ny, nz, x, y, z);
     
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0(var tc: Vec2f; var c: Vec4f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr := GetFuncAdr('glTexCoord2fColor4fNormal3fVertex3fvSUN');
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4fNormal3fVertex3fvSUN(var tc: Vec2f; var c: Vec4f; var n: Vec3f; var v: Vec3f) :=
     z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0(tc, c, n, v);
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1(var tc: single; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01000(tc: IntPtr; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00100(var tc: single; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01100(tc: IntPtr; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00010(var tc: single; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01010(tc: IntPtr; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00110(var tc: single; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01110(tc: IntPtr; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00001(var tc: single; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01001(tc: IntPtr; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00101(var tc: single; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01101(tc: IntPtr; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00011(var tc: single; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01011(tc: IntPtr; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00111(var tc: single; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01111(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01000 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00100 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01100 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00010 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01010 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00110 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01110 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00001 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01001 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00101 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01101 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00011 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01011 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh00111 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01111 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4fNormal3fVertex3fvSUN(tc: array of single; c: array of single; n: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (c<>nil) and (c.Length<>0) then
@@ -71644,52 +67706,35 @@ type
             z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh01111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4fNormal3fVertex3fvSUN(var tc: single; var c: single; var n: single; var v: single) :=
     z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1(tc, c, n, v);
-    private static procedure z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord2fColor4fNormal3fVertex3fvSUN(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr) :=
     z_TexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3(tc, c, n, v);
     
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fSUN_ovr_0(s: single; t: single; p: single; q: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single; w: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fSUN';
+    private z_TexCoord4fColor4fNormal3fVertex4fSUN_adr := GetFuncAdr('glTexCoord4fColor4fNormal3fVertex4fSUN');
+    private z_TexCoord4fColor4fNormal3fVertex4fSUN_ovr_0 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fColor4fNormal3fVertex4fSUN(s: single; t: single; p: single; q: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single; w: single) :=
     z_TexCoord4fColor4fNormal3fVertex4fSUN_ovr_0(s, t, p, q, r, g, b, a, nx, ny, nz, x, y, z, w);
     
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_0(var tc: Vec4f; var c: Vec4f; var n: Vec3f; var v: Vec4f);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr := GetFuncAdr('glTexCoord4fColor4fNormal3fVertex4fvSUN');
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_0 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fColor4fNormal3fVertex4fvSUN(var tc: Vec4f; var c: Vec4f; var n: Vec3f; var v: Vec4f) :=
     z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_0(tc, c, n, v);
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1(var tc: single; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01000(tc: IntPtr; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00100(var tc: single; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01100(tc: IntPtr; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00010(var tc: single; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01010(tc: IntPtr; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00110(var tc: single; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01110(tc: IntPtr; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00001(var tc: single; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01001(tc: IntPtr; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00101(var tc: single; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01101(tc: IntPtr; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00011(var tc: single; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01011(tc: IntPtr; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00111(var tc: single; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01111(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01000 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00100 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01100 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00010 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01010 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00110 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01110 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00001 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01001 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00101 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01101 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00011 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01011 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh00111 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01111 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fColor4fNormal3fVertex4fvSUN(tc: array of single; c: array of single; n: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (c<>nil) and (c.Length<>0) then
@@ -71724,52 +67769,44 @@ type
             z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1_anh01111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fColor4fNormal3fVertex4fvSUN(var tc: single; var c: single; var n: single; var v: single) :=
     z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_1(tc, c, n, v);
-    private static procedure z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_3(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glTexCoord4fColor4fNormal3fVertex4fvSUN';
+    private z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_3 := GetFuncOrNil&(z_TexCoord4fColor4fNormal3fVertex4fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure TexCoord4fColor4fNormal3fVertex4fvSUN(tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr) :=
     z_TexCoord4fColor4fNormal3fVertex4fvSUN_ovr_3(tc, c, n, v);
     
-    private static procedure z_ReplacementCodeuiVertex3fSUN_ovr_0(rc: UInt32; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiVertex3fSUN';
+    private z_ReplacementCodeuiVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiVertex3fSUN');
+    private z_ReplacementCodeuiVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiVertex3fSUN(rc: UInt32; x: single; y: single; z: single) :=
     z_ReplacementCodeuiVertex3fSUN_ovr_0(rc, x, y, z);
     
-    private static procedure z_ReplacementCodeuiVertex3fvSUN_ovr_0(var rc: UInt32; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiVertex3fvSUN';
+    private z_ReplacementCodeuiVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiVertex3fvSUN');
+    private z_ReplacementCodeuiVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiVertex3fvSUN(var rc: UInt32; var v: Vec3f) :=
     z_ReplacementCodeuiVertex3fvSUN_ovr_0(rc, v);
-    private static procedure z_ReplacementCodeuiVertex3fvSUN_ovr_1(var rc: UInt32; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiVertex3fvSUN_ovr_1_anh001(var rc: UInt32; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiVertex3fvSUN';
+    private z_ReplacementCodeuiVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiVertex3fvSUN_adr);
+    private z_ReplacementCodeuiVertex3fvSUN_ovr_1_anh001 := GetFuncOrNil&(z_ReplacementCodeuiVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiVertex3fvSUN(var rc: UInt32; v: array of single) :=
     if (v<>nil) and (v.Length<>0) then
       z_ReplacementCodeuiVertex3fvSUN_ovr_1(rc, v[0]) else
       z_ReplacementCodeuiVertex3fvSUN_ovr_1_anh001(rc, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiVertex3fvSUN(var rc: UInt32; var v: single) :=
     z_ReplacementCodeuiVertex3fvSUN_ovr_1(rc, v);
-    private static procedure z_ReplacementCodeuiVertex3fvSUN_ovr_3(rc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiVertex3fvSUN';
+    private z_ReplacementCodeuiVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiVertex3fvSUN(rc: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiVertex3fvSUN_ovr_3(rc, v);
     
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fSUN_ovr_0(rc: UInt32; r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fSUN';
+    private z_ReplacementCodeuiColor4ubVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiColor4ubVertex3fSUN');
+    private z_ReplacementCodeuiColor4ubVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4ubVertex3fSUN(rc: UInt32; r: Byte; g: Byte; b: Byte; a: Byte; x: single; y: single; z: single) :=
     z_ReplacementCodeuiColor4ubVertex3fSUN_ovr_0(rc, r, g, b, a, x, y, z);
     
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_0(var rc: UInt32; var c: Vec4ub; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiColor4ubVertex3fvSUN');
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4ubVertex3fvSUN(var rc: UInt32; var c: Vec4ub; var v: Vec3f) :=
     z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_0(rc, c, v);
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1(var rc: UInt32; var c: Byte; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0010(var rc: UInt32; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0001(var rc: UInt32; var c: Byte; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0011(var rc: UInt32; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4ubVertex3fvSUN(var rc: UInt32; c: array of Byte; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71780,28 +67817,23 @@ type
         z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1_anh0011(rc, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4ubVertex3fvSUN(var rc: UInt32; var c: Byte; var v: single) :=
     z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_1(rc, c, v);
-    private static procedure z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_3(rc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4ubVertex3fvSUN';
+    private z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiColor4ubVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4ubVertex3fvSUN(rc: IntPtr; c: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiColor4ubVertex3fvSUN_ovr_3(rc, c, v);
     
-    private static procedure z_ReplacementCodeuiColor3fVertex3fSUN_ovr_0(rc: UInt32; r: single; g: single; b: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fSUN';
+    private z_ReplacementCodeuiColor3fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiColor3fVertex3fSUN');
+    private z_ReplacementCodeuiColor3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor3fVertex3fSUN(rc: UInt32; r: single; g: single; b: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiColor3fVertex3fSUN_ovr_0(rc, r, g, b, x, y, z);
     
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_0(var rc: UInt32; var c: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiColor3fVertex3fvSUN');
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor3fVertex3fvSUN(var rc: UInt32; var c: Vec3f; var v: Vec3f) :=
     z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_0(rc, c, v);
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1(var rc: UInt32; var c: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0010(var rc: UInt32; c: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0001(var rc: UInt32; var c: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0011(var rc: UInt32; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor3fVertex3fvSUN(var rc: UInt32; c: array of single; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71812,28 +67844,23 @@ type
         z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1_anh0011(rc, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor3fVertex3fvSUN(var rc: UInt32; var c: single; var v: single) :=
     z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_1(rc, c, v);
-    private static procedure z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_3(rc: IntPtr; c: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiColor3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor3fVertex3fvSUN(rc: IntPtr; c: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiColor3fVertex3fvSUN_ovr_3(rc, c, v);
     
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fSUN_ovr_0(rc: UInt32; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fSUN';
+    private z_ReplacementCodeuiNormal3fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiNormal3fVertex3fSUN');
+    private z_ReplacementCodeuiNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiNormal3fVertex3fSUN(rc: UInt32; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiNormal3fVertex3fSUN_ovr_0(rc, nx, ny, nz, x, y, z);
     
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_0(var rc: UInt32; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiNormal3fVertex3fvSUN');
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiNormal3fVertex3fvSUN(var rc: UInt32; var n: Vec3f; var v: Vec3f) :=
     z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_0(rc, n, v);
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1(var rc: UInt32; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0010(var rc: UInt32; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0001(var rc: UInt32; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0011(var rc: UInt32; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiNormal3fVertex3fvSUN(var rc: UInt32; n: array of single; v: array of single) :=
     if (n<>nil) and (n.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71844,36 +67871,27 @@ type
         z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1_anh0011(rc, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiNormal3fVertex3fvSUN(var rc: UInt32; var n: single; var v: single) :=
     z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_1(rc, n, v);
-    private static procedure z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_3(rc: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiNormal3fVertex3fvSUN(rc: IntPtr; n: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiNormal3fVertex3fvSUN_ovr_3(rc, n, v);
     
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fSUN_ovr_0(rc: UInt32; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fSUN';
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiColor4fNormal3fVertex3fSUN');
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4fNormal3fVertex3fSUN(rc: UInt32; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiColor4fNormal3fVertex3fSUN_ovr_0(rc, r, g, b, a, nx, ny, nz, x, y, z);
     
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_0(var rc: UInt32; var c: Vec4f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiColor4fNormal3fVertex3fvSUN');
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4fNormal3fVertex3fvSUN(var rc: UInt32; var c: Vec4f; var n: Vec3f; var v: Vec3f) :=
     z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_0(rc, c, n, v);
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1(var rc: UInt32; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00100(var rc: UInt32; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00010(var rc: UInt32; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00110(var rc: UInt32; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00001(var rc: UInt32; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00101(var rc: UInt32; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00011(var rc: UInt32; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00111(var rc: UInt32; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00100 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00010 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00110 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00001 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00101 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00011 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00111 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4fNormal3fVertex3fvSUN(var rc: UInt32; c: array of single; n: array of single; v: array of single) :=
     if (c<>nil) and (c.Length<>0) then
       if (n<>nil) and (n.Length<>0) then
@@ -71892,28 +67910,23 @@ type
           z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1_anh00111(rc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4fNormal3fVertex3fvSUN(var rc: UInt32; var c: single; var n: single; var v: single) :=
     z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_1(rc, c, n, v);
-    private static procedure z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_3(rc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiColor4fNormal3fVertex3fvSUN(rc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiColor4fNormal3fVertex3fvSUN_ovr_3(rc, c, n, v);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fSUN_ovr_0(rc: UInt32; s: single; t: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fSUN';
+    private z_ReplacementCodeuiTexCoord2fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fVertex3fSUN');
+    private z_ReplacementCodeuiTexCoord2fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fVertex3fSUN(rc: UInt32; s: single; t: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiTexCoord2fVertex3fSUN_ovr_0(rc, s, t, x, y, z);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_0(var rc: UInt32; var tc: Vec2f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fVertex3fvSUN');
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fVertex3fvSUN(var rc: UInt32; var tc: Vec2f; var v: Vec3f) :=
     z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_0(rc, tc, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1(var rc: UInt32; var tc: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0010(var rc: UInt32; tc: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0001(var rc: UInt32; var tc: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0011(var rc: UInt32; tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0010 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0001 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0011 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fVertex3fvSUN(var rc: UInt32; tc: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (v<>nil) and (v.Length<>0) then
@@ -71924,36 +67937,27 @@ type
         z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1_anh0011(rc, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fVertex3fvSUN(var rc: UInt32; var tc: single; var v: single) :=
     z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_1(rc, tc, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_3(rc: IntPtr; tc: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fVertex3fvSUN(rc: IntPtr; tc: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiTexCoord2fVertex3fvSUN_ovr_3(rc, tc, v);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN_ovr_0(rc: UInt32; s: single; t: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN';
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fNormal3fVertex3fSUN');
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN(rc: UInt32; s: single; t: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiTexCoord2fNormal3fVertex3fSUN_ovr_0(rc, s, t, nx, ny, nz, x, y, z);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_0(var rc: UInt32; var tc: Vec2f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN');
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN(var rc: UInt32; var tc: Vec2f; var n: Vec3f; var v: Vec3f) :=
     z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_0(rc, tc, n, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1(var rc: UInt32; var tc: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00100(var rc: UInt32; tc: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00010(var rc: UInt32; var tc: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00110(var rc: UInt32; tc: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00001(var rc: UInt32; var tc: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00101(var rc: UInt32; tc: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00011(var rc: UInt32; var tc: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00111(var rc: UInt32; tc: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00100 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00010 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00110 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00001 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00101 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00011 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00111 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN(var rc: UInt32; tc: array of single; n: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (n<>nil) and (n.Length<>0) then
@@ -71972,52 +67976,35 @@ type
           z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1_anh00111(rc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN(var rc: UInt32; var tc: single; var n: single; var v: single) :=
     z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_1(rc, tc, n, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_3(rc: IntPtr; tc: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN(rc: IntPtr; tc: IntPtr; n: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiTexCoord2fNormal3fVertex3fvSUN_ovr_3(rc, tc, n, v);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN_ovr_0(rc: UInt32; s: single; t: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN';
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN');
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN(rc: UInt32; s: single; t: single; r: single; g: single; b: single; a: single; nx: single; ny: single; nz: single; x: single; y: single; z: single) :=
     z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fSUN_ovr_0(rc, s, t, r, g, b, a, nx, ny, nz, x, y, z);
     
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0(var rc: UInt32; var tc: Vec2f; var c: Vec4f; var n: Vec3f; var v: Vec3f);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr := GetFuncAdr('glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN');
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN(var rc: UInt32; var tc: Vec2f; var c: Vec4f; var n: Vec3f; var v: Vec3f) :=
     z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_0(rc, tc, c, n, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1(var rc: UInt32; var tc: single; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001000(var rc: UInt32; tc: IntPtr; var c: single; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000100(var rc: UInt32; var tc: single; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001100(var rc: UInt32; tc: IntPtr; c: IntPtr; var n: single; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000010(var rc: UInt32; var tc: single; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001010(var rc: UInt32; tc: IntPtr; var c: single; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000110(var rc: UInt32; var tc: single; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001110(var rc: UInt32; tc: IntPtr; c: IntPtr; n: IntPtr; var v: single);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000001(var rc: UInt32; var tc: single; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001001(var rc: UInt32; tc: IntPtr; var c: single; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000101(var rc: UInt32; var tc: single; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001101(var rc: UInt32; tc: IntPtr; c: IntPtr; var n: single; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000011(var rc: UInt32; var tc: single; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001011(var rc: UInt32; tc: IntPtr; var c: single; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000111(var rc: UInt32; var tc: single; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001111(var rc: UInt32; tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001000 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000100 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001100 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000010 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001010 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000110 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001110 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000001 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001001 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000101 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001101 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000011 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001011 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh000111 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001111 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN(var rc: UInt32; tc: array of single; c: array of single; n: array of single; v: array of single) :=
     if (tc<>nil) and (tc.Length<>0) then
       if (c<>nil) and (c.Length<>0) then
@@ -72052,149 +68039,167 @@ type
             z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1_anh001111(rc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN(var rc: UInt32; var tc: single; var c: single; var n: single; var v: single) :=
     z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_1(rc, tc, c, n, v);
-    private static procedure z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3(rc: IntPtr; tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr);
-    external 'opengl32.dll' name 'glReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN';
+    private z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3 := GetFuncOrNil&(z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_adr);
     public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN(rc: IntPtr; tc: IntPtr; c: IntPtr; n: IntPtr; v: IntPtr) :=
     z_ReplacementCodeuiTexCoord2fColor4fNormal3fVertex3fvSUN_ovr_3(rc, tc, c, n, v);
     
   end;
   
   [PCUNotRestore]
-  wglStereoControl3DL = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglStereoControl3DL = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = '3DL_stereo_control';
     
-    private static function z_SetStereoEmitterState3DL_ovr_0(hDC: GDI_DC; uState: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglSetStereoEmitterState3DL';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetStereoEmitterState3DL(hDC: GDI_DC; uState: UInt32): UInt32 :=
+    private z_SetStereoEmitterState3DL_adr := GetFuncAdr('wglSetStereoEmitterState3DL');
+    private z_SetStereoEmitterState3DL_ovr_0 := GetFuncOrNil&(z_SetStereoEmitterState3DL_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetStereoEmitterState3DL(hDC: gdi_device_context; uState: UInt32): Bool :=
     z_SetStereoEmitterState3DL_ovr_0(hDC, uState);
     
   end;
   
   [PCUNotRestore]
-  wglGpuAssociationAMD = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglGpuAssociationAMD = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'AMD_gpu_association';
     
-    private static function z_GetGPUIDsAMD_ovr_0(maxCount: UInt32; var ids: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGetGPUIDsAMD';
-    private static function z_GetGPUIDsAMD_ovr_0_anh001(maxCount: UInt32; ids: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGPUIDsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGPUIDsAMD(maxCount: UInt32; ids: array of UInt32): UInt32 :=
+    private z_GetGPUIDsAMD_adr := GetFuncAdr('wglGetGPUIDsAMD');
+    private z_GetGPUIDsAMD_ovr_0 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    private z_GetGPUIDsAMD_ovr_0_anh001 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; ids: array of UInt32): UInt32 :=
     if (ids<>nil) and (ids.Length<>0) then
       z_GetGPUIDsAMD_ovr_0(maxCount, ids[0]) else
       z_GetGPUIDsAMD_ovr_0_anh001(maxCount, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGPUIDsAMD(maxCount: UInt32; var ids: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; var ids: UInt32): UInt32 :=
     z_GetGPUIDsAMD_ovr_0(maxCount, ids);
-    private static function z_GetGPUIDsAMD_ovr_2(maxCount: UInt32; ids: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGPUIDsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGPUIDsAMD(maxCount: UInt32; ids: IntPtr): UInt32 :=
+    private z_GetGPUIDsAMD_ovr_2 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; ids: IntPtr): UInt32 :=
     z_GetGPUIDsAMD_ovr_2(maxCount, ids);
     
-    private static function z_GetGPUInfoAMD_ovr_0(id: UInt32; &property: Int32; dataType: DummyEnum; size: UInt32; data: IntPtr): Int32;
-    external 'opengl32.dll' name 'wglGetGPUInfoAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGPUInfoAMD(id: UInt32; &property: Int32; dataType: DummyEnum; size: UInt32; data: IntPtr): Int32 :=
+    private z_GetGPUInfoAMD_adr := GetFuncAdr('wglGetGPUInfoAMD');
+    private z_GetGPUInfoAMD_ovr_0 := GetFuncOrNil&(z_GetGPUInfoAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUInfoAMD(id: UInt32; &property: Int32; dataType: DummyEnum; size: UInt32; data: IntPtr): Int32 :=
     z_GetGPUInfoAMD_ovr_0(id, &property, dataType, size, data);
     
-    private static function z_GetContextGPUIDAMD_ovr_0(hglrc: GLContext): UInt32;
-    external 'opengl32.dll' name 'wglGetContextGPUIDAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetContextGPUIDAMD(hglrc: GLContext): UInt32 :=
+    private z_GetContextGPUIDAMD_adr := GetFuncAdr('wglGetContextGPUIDAMD');
+    private z_GetContextGPUIDAMD_ovr_0 := GetFuncOrNil&(z_GetContextGPUIDAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetContextGPUIDAMD(hglrc: wgl_context): UInt32 :=
     z_GetContextGPUIDAMD_ovr_0(hglrc);
     
-    private static function z_CreateAssociatedContextAMD_ovr_0(id: UInt32): GLContext;
-    external 'opengl32.dll' name 'wglCreateAssociatedContextAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAssociatedContextAMD(id: UInt32): GLContext :=
+    private z_CreateAssociatedContextAMD_adr := GetFuncAdr('wglCreateAssociatedContextAMD');
+    private z_CreateAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_CreateAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAMD(id: UInt32): wgl_context :=
     z_CreateAssociatedContextAMD_ovr_0(id);
     
-    private static function z_CreateAssociatedContextAttribsAMD_ovr_0(id: UInt32; hShareContext: GLContext; var attribList: Int32): GLContext;
-    external 'opengl32.dll' name 'wglCreateAssociatedContextAttribsAMD';
-    private static function z_CreateAssociatedContextAttribsAMD_ovr_0_anh0001(id: UInt32; hShareContext: GLContext; attribList: IntPtr): GLContext;
-    external 'opengl32.dll' name 'wglCreateAssociatedContextAttribsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: GLContext; attribList: array of Int32): GLContext :=
+    private z_CreateAssociatedContextAttribsAMD_adr := GetFuncAdr('wglCreateAssociatedContextAttribsAMD');
+    private z_CreateAssociatedContextAttribsAMD_ovr_0 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    private z_CreateAssociatedContextAttribsAMD_ovr_0_anh0001 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: wgl_context; attribList: array of Int32): wgl_context :=
     if (attribList<>nil) and (attribList.Length<>0) then
       z_CreateAssociatedContextAttribsAMD_ovr_0(id, hShareContext, attribList[0]) else
       z_CreateAssociatedContextAttribsAMD_ovr_0_anh0001(id, hShareContext, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: GLContext; var attribList: Int32): GLContext :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: wgl_context; var attribList: Int32): wgl_context :=
     z_CreateAssociatedContextAttribsAMD_ovr_0(id, hShareContext, attribList);
-    private static function z_CreateAssociatedContextAttribsAMD_ovr_2(id: UInt32; hShareContext: GLContext; attribList: IntPtr): GLContext;
-    external 'opengl32.dll' name 'wglCreateAssociatedContextAttribsAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: GLContext; attribList: IntPtr): GLContext :=
+    private z_CreateAssociatedContextAttribsAMD_ovr_2 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; hShareContext: wgl_context; attribList: IntPtr): wgl_context :=
     z_CreateAssociatedContextAttribsAMD_ovr_2(id, hShareContext, attribList);
     
-    private static function z_DeleteAssociatedContextAMD_ovr_0(hglrc: GLContext): UInt32;
-    external 'opengl32.dll' name 'wglDeleteAssociatedContextAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DeleteAssociatedContextAMD(hglrc: GLContext): UInt32 :=
+    private z_DeleteAssociatedContextAMD_adr := GetFuncAdr('wglDeleteAssociatedContextAMD');
+    private z_DeleteAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_DeleteAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DeleteAssociatedContextAMD(hglrc: wgl_context): Bool :=
     z_DeleteAssociatedContextAMD_ovr_0(hglrc);
     
-    private static function z_MakeAssociatedContextCurrentAMD_ovr_0(hglrc: GLContext): UInt32;
-    external 'opengl32.dll' name 'wglMakeAssociatedContextCurrentAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeAssociatedContextCurrentAMD(hglrc: GLContext): UInt32 :=
+    private z_MakeAssociatedContextCurrentAMD_adr := GetFuncAdr('wglMakeAssociatedContextCurrentAMD');
+    private z_MakeAssociatedContextCurrentAMD_ovr_0 := GetFuncOrNil&(z_MakeAssociatedContextCurrentAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MakeAssociatedContextCurrentAMD(hglrc: wgl_context): Bool :=
     z_MakeAssociatedContextCurrentAMD_ovr_0(hglrc);
     
-    private static function z_GetCurrentAssociatedContextAMD_ovr_0: GLContext;
-    external 'opengl32.dll' name 'wglGetCurrentAssociatedContextAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentAssociatedContextAMD: GLContext :=
+    private z_GetCurrentAssociatedContextAMD_adr := GetFuncAdr('wglGetCurrentAssociatedContextAMD');
+    private z_GetCurrentAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_GetCurrentAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentAssociatedContextAMD: wgl_context :=
     z_GetCurrentAssociatedContextAMD_ovr_0;
     
-    private static procedure z_BlitContextFramebufferAMD_ovr_0(dstCtx: GLContext; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: DummyFlags; filter: DummyEnum);
-    external 'opengl32.dll' name 'wglBlitContextFramebufferAMD';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure BlitContextFramebufferAMD(dstCtx: GLContext; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: DummyFlags; filter: DummyEnum) :=
+    private z_BlitContextFramebufferAMD_adr := GetFuncAdr('wglBlitContextFramebufferAMD');
+    private z_BlitContextFramebufferAMD_ovr_0 := GetFuncOrNil&(z_BlitContextFramebufferAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitContextFramebufferAMD(dstCtx: wgl_context; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: DummyFlags; filter: DummyEnum) :=
     z_BlitContextFramebufferAMD_ovr_0(dstCtx, srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
     
   end;
   
   [PCUNotRestore]
-  wglBufferRegionARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglBufferRegionARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_buffer_region';
     
-    private static function z_CreateBufferRegionARB_ovr_0(hDC: GDI_DC; iLayerPlane: Int32; uType: UInt32): IntPtr;
-    external 'opengl32.dll' name 'wglCreateBufferRegionARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateBufferRegionARB(hDC: GDI_DC; iLayerPlane: Int32; uType: UInt32): IntPtr :=
+    private z_CreateBufferRegionARB_adr := GetFuncAdr('wglCreateBufferRegionARB');
+    private z_CreateBufferRegionARB_ovr_0 := GetFuncOrNil&(z_CreateBufferRegionARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateBufferRegionARB(hDC: gdi_device_context; iLayerPlane: Int32; uType: UInt32): IntPtr :=
     z_CreateBufferRegionARB_ovr_0(hDC, iLayerPlane, uType);
     
-    private static procedure z_DeleteBufferRegionARB_ovr_0(hRegion: IntPtr);
-    external 'opengl32.dll' name 'wglDeleteBufferRegionARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DeleteBufferRegionARB(hRegion: IntPtr) :=
+    private z_DeleteBufferRegionARB_adr := GetFuncAdr('wglDeleteBufferRegionARB');
+    private z_DeleteBufferRegionARB_ovr_0 := GetFuncOrNil&(z_DeleteBufferRegionARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DeleteBufferRegionARB(hRegion: IntPtr) :=
     z_DeleteBufferRegionARB_ovr_0(hRegion);
     
-    private static function z_SaveBufferRegionARB_ovr_0(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32): UInt32;
-    external 'opengl32.dll' name 'wglSaveBufferRegionARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SaveBufferRegionARB(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32): UInt32 :=
+    private z_SaveBufferRegionARB_adr := GetFuncAdr('wglSaveBufferRegionARB');
+    private z_SaveBufferRegionARB_ovr_0 := GetFuncOrNil&(z_SaveBufferRegionARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SaveBufferRegionARB(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32): Bool :=
     z_SaveBufferRegionARB_ovr_0(hRegion, x, y, width, height);
     
-    private static function z_RestoreBufferRegionARB_ovr_0(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32; xSrc: Int32; ySrc: Int32): UInt32;
-    external 'opengl32.dll' name 'wglRestoreBufferRegionARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function RestoreBufferRegionARB(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32; xSrc: Int32; ySrc: Int32): UInt32 :=
+    private z_RestoreBufferRegionARB_adr := GetFuncAdr('wglRestoreBufferRegionARB');
+    private z_RestoreBufferRegionARB_ovr_0 := GetFuncOrNil&(z_RestoreBufferRegionARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function RestoreBufferRegionARB(hRegion: IntPtr; x: Int32; y: Int32; width: Int32; height: Int32; xSrc: Int32; ySrc: Int32): Bool :=
     z_RestoreBufferRegionARB_ovr_0(hRegion, x, y, width, height, xSrc, ySrc);
     
   end;
   
   [PCUNotRestore]
-  wglCreateContextARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglCreateContextARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_create_context';
     
-    private static function z_CreateContextAttribsARB_ovr_0(hDC: GDI_DC; hShareContext: GLContext; var attribList: Int32): GLContext;
-    external 'opengl32.dll' name 'wglCreateContextAttribsARB';
-    private static function z_CreateContextAttribsARB_ovr_0_anh0001(hDC: GDI_DC; hShareContext: GLContext; attribList: IntPtr): GLContext;
-    external 'opengl32.dll' name 'wglCreateContextAttribsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContextAttribsARB(hDC: GDI_DC; hShareContext: GLContext; attribList: array of Int32): GLContext :=
+    private z_CreateContextAttribsARB_adr := GetFuncAdr('wglCreateContextAttribsARB');
+    private z_CreateContextAttribsARB_ovr_0 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    private z_CreateContextAttribsARB_ovr_0_anh0001 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(hDC: gdi_device_context; hShareContext: wgl_context; attribList: array of Int32): wgl_context :=
     if (attribList<>nil) and (attribList.Length<>0) then
       z_CreateContextAttribsARB_ovr_0(hDC, hShareContext, attribList[0]) else
       z_CreateContextAttribsARB_ovr_0_anh0001(hDC, hShareContext, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContextAttribsARB(hDC: GDI_DC; hShareContext: GLContext; var attribList: Int32): GLContext :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(hDC: gdi_device_context; hShareContext: wgl_context; var attribList: Int32): wgl_context :=
     z_CreateContextAttribsARB_ovr_0(hDC, hShareContext, attribList);
-    private static function z_CreateContextAttribsARB_ovr_2(hDC: GDI_DC; hShareContext: GLContext; attribList: IntPtr): GLContext;
-    external 'opengl32.dll' name 'wglCreateContextAttribsARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContextAttribsARB(hDC: GDI_DC; hShareContext: GLContext; attribList: IntPtr): GLContext :=
+    private z_CreateContextAttribsARB_ovr_2 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(hDC: gdi_device_context; hShareContext: wgl_context; attribList: IntPtr): wgl_context :=
     z_CreateContextAttribsARB_ovr_2(hDC, hShareContext, attribList);
     
   end;
   
   [PCUNotRestore]
-  wglExtensionsStringARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglExtensionsStringARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_extensions_string';
     
-    private static function z_GetExtensionsStringARB_ovr_0(hdc: GDI_DC): IntPtr;
-    external 'opengl32.dll' name 'wglGetExtensionsStringARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetExtensionsStringARB(hdc: GDI_DC): string;
+    private z_GetExtensionsStringARB_adr := GetFuncAdr('wglGetExtensionsStringARB');
+    private z_GetExtensionsStringARB_ovr_0 := GetFuncOrNil&(z_GetExtensionsStringARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetExtensionsStringARB(hdc: gdi_device_context): string;
     begin
       var res_str_ptr: IntPtr;
       res_str_ptr := z_GetExtensionsStringARB_ovr_0(hdc);
@@ -72204,85 +68209,93 @@ type
   end;
   
   [PCUNotRestore]
-  wglMakeCurrentReadARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglMakeCurrentReadARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_make_current_read';
     
-    private static function z_MakeContextCurrentARB_ovr_0(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32;
-    external 'opengl32.dll' name 'wglMakeContextCurrentARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeContextCurrentARB(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32 :=
+    private z_MakeContextCurrentARB_adr := GetFuncAdr('wglMakeContextCurrentARB');
+    private z_MakeContextCurrentARB_ovr_0 := GetFuncOrNil&(z_MakeContextCurrentARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MakeContextCurrentARB(hDrawDC: gdi_device_context; hReadDC: gdi_device_context; hglrc: wgl_context): Bool :=
     z_MakeContextCurrentARB_ovr_0(hDrawDC, hReadDC, hglrc);
     
-    private static function z_GetCurrentReadDCARB_ovr_0: GDI_DC;
-    external 'opengl32.dll' name 'wglGetCurrentReadDCARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentReadDCARB: GDI_DC :=
+    private z_GetCurrentReadDCARB_adr := GetFuncAdr('wglGetCurrentReadDCARB');
+    private z_GetCurrentReadDCARB_ovr_0 := GetFuncOrNil&(z_GetCurrentReadDCARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentReadDCARB: gdi_device_context :=
     z_GetCurrentReadDCARB_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  wglPbufferARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglPbufferARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_pbuffer';
     
-    private static function z_CreatePbufferARB_ovr_0(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferARB';
-    private static function z_CreatePbufferARB_ovr_0_anh000001(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferARB(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: array of Int32): HPBUFFER :=
+    private z_CreatePbufferARB_adr := GetFuncAdr('wglCreatePbufferARB');
+    private z_CreatePbufferARB_ovr_0 := GetFuncOrNil&(z_CreatePbufferARB_adr);
+    private z_CreatePbufferARB_ovr_0_anh000001 := GetFuncOrNil&(z_CreatePbufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferARB(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: array of Int32): wgl_pbuffer_ARB :=
     if (piAttribList<>nil) and (piAttribList.Length<>0) then
       z_CreatePbufferARB_ovr_0(hDC, iPixelFormat, iWidth, iHeight, piAttribList[0]) else
       z_CreatePbufferARB_ovr_0_anh000001(hDC, iPixelFormat, iWidth, iHeight, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferARB(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferARB(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): wgl_pbuffer_ARB :=
     z_CreatePbufferARB_ovr_0(hDC, iPixelFormat, iWidth, iHeight, piAttribList);
-    private static function z_CreatePbufferARB_ovr_2(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferARB(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER :=
+    private z_CreatePbufferARB_ovr_2 := GetFuncOrNil&(z_CreatePbufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferARB(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): wgl_pbuffer_ARB :=
     z_CreatePbufferARB_ovr_2(hDC, iPixelFormat, iWidth, iHeight, piAttribList);
     
-    private static function z_GetPbufferDCARB_ovr_0(_hPbuffer: HPBUFFER): GDI_DC;
-    external 'opengl32.dll' name 'wglGetPbufferDCARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPbufferDCARB(_hPbuffer: HPBUFFER): GDI_DC :=
-    z_GetPbufferDCARB_ovr_0(_hPbuffer);
+    private z_GetPbufferDCARB_adr := GetFuncAdr('wglGetPbufferDCARB');
+    private z_GetPbufferDCARB_ovr_0 := GetFuncOrNil&(z_GetPbufferDCARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPbufferDCARB(hPbuffer: wgl_pbuffer_ARB): gdi_device_context :=
+    z_GetPbufferDCARB_ovr_0(hPbuffer);
     
-    private static function z_ReleasePbufferDCARB_ovr_0(_hPbuffer: HPBUFFER; hDC: GDI_DC): Int32;
-    external 'opengl32.dll' name 'wglReleasePbufferDCARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleasePbufferDCARB(_hPbuffer: HPBUFFER; hDC: GDI_DC): Int32 :=
-    z_ReleasePbufferDCARB_ovr_0(_hPbuffer, hDC);
+    private z_ReleasePbufferDCARB_adr := GetFuncAdr('wglReleasePbufferDCARB');
+    private z_ReleasePbufferDCARB_ovr_0 := GetFuncOrNil&(z_ReleasePbufferDCARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleasePbufferDCARB(hPbuffer: wgl_pbuffer_ARB; hDC: gdi_device_context): Int32 :=
+    z_ReleasePbufferDCARB_ovr_0(hPbuffer, hDC);
     
-    private static function z_DestroyPbufferARB_ovr_0(_hPbuffer: HPBUFFER): UInt32;
-    external 'opengl32.dll' name 'wglDestroyPbufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DestroyPbufferARB(_hPbuffer: HPBUFFER): UInt32 :=
-    z_DestroyPbufferARB_ovr_0(_hPbuffer);
+    private z_DestroyPbufferARB_adr := GetFuncAdr('wglDestroyPbufferARB');
+    private z_DestroyPbufferARB_ovr_0 := GetFuncOrNil&(z_DestroyPbufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DestroyPbufferARB(hPbuffer: wgl_pbuffer_ARB): Bool :=
+    z_DestroyPbufferARB_ovr_0(hPbuffer);
     
-    private static function z_QueryPbufferARB_ovr_0(_hPbuffer: HPBUFFER; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferARB';
-    private static function z_QueryPbufferARB_ovr_0_anh0001(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferARB(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_QueryPbufferARB_adr := GetFuncAdr('wglQueryPbufferARB');
+    private z_QueryPbufferARB_ovr_0 := GetFuncOrNil&(z_QueryPbufferARB_adr);
+    private z_QueryPbufferARB_ovr_0_anh0001 := GetFuncOrNil&(z_QueryPbufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferARB(hPbuffer: wgl_pbuffer_ARB; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
-      z_QueryPbufferARB_ovr_0(_hPbuffer, iAttribute, piValue[0]) else
-      z_QueryPbufferARB_ovr_0_anh0001(_hPbuffer, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferARB(_hPbuffer: HPBUFFER; iAttribute: Int32; var piValue: Int32): UInt32 :=
-    z_QueryPbufferARB_ovr_0(_hPbuffer, iAttribute, piValue);
-    private static function z_QueryPbufferARB_ovr_2(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferARB(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32 :=
-    z_QueryPbufferARB_ovr_2(_hPbuffer, iAttribute, piValue);
+      z_QueryPbufferARB_ovr_0(hPbuffer, iAttribute, piValue[0]) else
+      z_QueryPbufferARB_ovr_0_anh0001(hPbuffer, iAttribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferARB(hPbuffer: wgl_pbuffer_ARB; iAttribute: Int32; var piValue: Int32): Bool :=
+    z_QueryPbufferARB_ovr_0(hPbuffer, iAttribute, piValue);
+    private z_QueryPbufferARB_ovr_2 := GetFuncOrNil&(z_QueryPbufferARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferARB(hPbuffer: wgl_pbuffer_ARB; iAttribute: Int32; piValue: IntPtr): Bool :=
+    z_QueryPbufferARB_ovr_2(hPbuffer, iAttribute, piValue);
     
   end;
   
   [PCUNotRestore]
-  wglPixelFormatARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglPixelFormatARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_pixel_format';
     
-    private static function z_GetPixelFormatAttribivARB_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    private static function z_GetPixelFormatAttribivARB_ovr_0_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    private static function z_GetPixelFormatAttribivARB_ovr_0_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    private static function z_GetPixelFormatAttribivARB_ovr_0_anh0000011(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: array of Int32): UInt32 :=
+    private z_GetPixelFormatAttribivARB_adr := GetFuncAdr('wglGetPixelFormatAttribivARB');
+    private z_GetPixelFormatAttribivARB_ovr_0 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    private z_GetPixelFormatAttribivARB_ovr_0_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    private z_GetPixelFormatAttribivARB_ovr_0_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    private z_GetPixelFormatAttribivARB_ovr_0_anh0000011 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: array of Int32): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       if (piValues<>nil) and (piValues.Length<>0) then
         z_GetPixelFormatAttribivARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues[0]) else
@@ -72290,52 +68303,43 @@ type
       if (piValues<>nil) and (piValues.Length<>0) then
         z_GetPixelFormatAttribivARB_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues[0]) else
         z_GetPixelFormatAttribivARB_ovr_0_anh0000011(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetPixelFormatAttribivARB_ovr_1_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var piValues: Int32): UInt32 :=
+    private z_GetPixelFormatAttribivARB_ovr_1_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var piValues: Int32): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribivARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues) else
       z_GetPixelFormatAttribivARB_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues);
-    private static function z_GetPixelFormatAttribivARB_ovr_2(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    private static function z_GetPixelFormatAttribivARB_ovr_2_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribivARB_ovr_2 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    private z_GetPixelFormatAttribivARB_ovr_2_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: IntPtr): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribivARB_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues) else
       z_GetPixelFormatAttribivARB_ovr_2_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: array of Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: array of Int32): Bool :=
     if (piValues<>nil) and (piValues.Length<>0) then
       z_GetPixelFormatAttribivARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues[0]) else
       z_GetPixelFormatAttribivARB_ovr_0_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): Bool :=
     z_GetPixelFormatAttribivARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): Bool :=
     z_GetPixelFormatAttribivARB_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    private static function z_GetPixelFormatAttribivARB_ovr_6(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    private static function z_GetPixelFormatAttribivARB_ovr_6_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: array of Int32): UInt32 :=
+    private z_GetPixelFormatAttribivARB_ovr_6 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    private z_GetPixelFormatAttribivARB_ovr_6_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: array of Int32): Bool :=
     if (piValues<>nil) and (piValues.Length<>0) then
       z_GetPixelFormatAttribivARB_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues[0]) else
       z_GetPixelFormatAttribivARB_ovr_6_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): Bool :=
     z_GetPixelFormatAttribivARB_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    private static function z_GetPixelFormatAttribivARB_ovr_8(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribivARB_ovr_8 := GetFuncOrNil&(z_GetPixelFormatAttribivARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): Bool :=
     z_GetPixelFormatAttribivARB_ovr_8(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
     
-    private static function z_GetPixelFormatAttribfvARB_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    private static function z_GetPixelFormatAttribfvARB_ovr_0_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    private static function z_GetPixelFormatAttribfvARB_ovr_0_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    private static function z_GetPixelFormatAttribfvARB_ovr_0_anh0000011(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: array of single): UInt32 :=
+    private z_GetPixelFormatAttribfvARB_adr := GetFuncAdr('wglGetPixelFormatAttribfvARB');
+    private z_GetPixelFormatAttribfvARB_ovr_0 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    private z_GetPixelFormatAttribfvARB_ovr_0_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    private z_GetPixelFormatAttribfvARB_ovr_0_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    private z_GetPixelFormatAttribfvARB_ovr_0_anh0000011 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: array of single): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       if (pfValues<>nil) and (pfValues.Length<>0) then
         z_GetPixelFormatAttribfvARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues[0]) else
@@ -72343,76 +68347,55 @@ type
       if (pfValues<>nil) and (pfValues.Length<>0) then
         z_GetPixelFormatAttribfvARB_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues[0]) else
         z_GetPixelFormatAttribfvARB_ovr_0_anh0000011(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetPixelFormatAttribfvARB_ovr_1_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var pfValues: single): UInt32 :=
+    private z_GetPixelFormatAttribfvARB_ovr_1_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var pfValues: single): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribfvARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues) else
       z_GetPixelFormatAttribfvARB_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues);
-    private static function z_GetPixelFormatAttribfvARB_ovr_2(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    private static function z_GetPixelFormatAttribfvARB_ovr_2_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribfvARB_ovr_2 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    private z_GetPixelFormatAttribfvARB_ovr_2_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: IntPtr): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribfvARB_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues) else
       z_GetPixelFormatAttribfvARB_ovr_2_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: array of single): Bool :=
     if (pfValues<>nil) and (pfValues.Length<>0) then
       z_GetPixelFormatAttribfvARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues[0]) else
       z_GetPixelFormatAttribfvARB_ovr_0_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): Bool :=
     z_GetPixelFormatAttribfvARB_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): Bool :=
     z_GetPixelFormatAttribfvARB_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    private static function z_GetPixelFormatAttribfvARB_ovr_6(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    private static function z_GetPixelFormatAttribfvARB_ovr_6_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: array of single): UInt32 :=
+    private z_GetPixelFormatAttribfvARB_ovr_6 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    private z_GetPixelFormatAttribfvARB_ovr_6_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: array of single): Bool :=
     if (pfValues<>nil) and (pfValues.Length<>0) then
       z_GetPixelFormatAttribfvARB_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues[0]) else
       z_GetPixelFormatAttribfvARB_ovr_6_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): Bool :=
     z_GetPixelFormatAttribfvARB_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    private static function z_GetPixelFormatAttribfvARB_ovr_8(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvARB(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribfvARB_ovr_8 := GetFuncOrNil&(z_GetPixelFormatAttribfvARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvARB(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): Bool :=
     z_GetPixelFormatAttribfvARB_ovr_8(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
     
-    private static function z_ChoosePixelFormatARB_ovr_0(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0000011(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0001011(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_0_anh0011011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_adr := GetFuncAdr('wglChoosePixelFormatARB');
+    private z_ChoosePixelFormatARB_ovr_0 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0001011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_0_anh0011011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -72444,21 +68427,14 @@ type
           if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
             z_ChoosePixelFormatARB_ovr_0_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
             z_ChoosePixelFormatARB_ovr_0_anh0011011(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_1_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_1_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_1_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -72474,23 +68450,15 @@ type
         if (piFormats<>nil) and (piFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
           z_ChoosePixelFormatARB_ovr_0_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_2(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_2_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_2 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_2_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -72506,19 +68474,13 @@ type
         if (piFormats<>nil) and (piFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_2_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
           z_ChoosePixelFormatARB_ovr_2_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_3_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_3_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_3_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_3_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_3_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_3_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_3_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72534,13 +68496,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_0_anh0011001(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_4_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_4_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_4_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_4_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_4_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_4_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -72548,13 +68507,10 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatARB_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_5_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_5_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_5_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_5_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_5_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_5_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -72562,23 +68518,15 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatARB_ovr_2_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_6(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_6_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_6 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_6_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72594,13 +68542,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_6_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_6_anh0011001(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_7_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_7_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_7_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_7_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_7_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_7_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -72608,15 +68553,11 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatARB_ovr_6_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_8(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_8_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_8_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_8_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_8 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_8_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_8_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_8_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_8(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -72624,15 +68565,11 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatARB_ovr_8_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatARB_ovr_8_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_9_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_9_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_9_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_9_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_9_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_9_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_9_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_9_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72648,11 +68585,9 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_0_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_0_anh0010011(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_10_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_10_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_10_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_10_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -72660,11 +68595,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_0_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_11_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_11_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_11_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_11_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -72672,11 +68605,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_2_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_12_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_12_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_12_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_12_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72684,23 +68615,19 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_0_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_13_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_13_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_14_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_14_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_15_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_15_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_15_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_15_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72708,35 +68635,25 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_6_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_16_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_16_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_17_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_17_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_8(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_8_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_18(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0000011(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_18_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_18 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_18_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72752,13 +68669,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_18_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_18_anh0010011(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_19_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_19_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_19_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_19_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_19_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_19_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -72766,15 +68680,11 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_18_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_20(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_20_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_20_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_20_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_20 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_20_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_20_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_20_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_20(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -72782,11 +68692,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_20_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_20_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_21_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_21_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_21_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_21_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72794,27 +68702,21 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_18_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_22_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_22_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_23_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_23_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_20(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_20_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_24(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_24_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_24_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_24_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_24 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_24_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_24_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_24_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_24(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72822,21 +68724,18 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_24_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_24_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_25_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_25_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_24(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_24_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_26(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_26_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_26 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_26_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_26(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_26_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72852,7 +68751,7 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_0_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_0_anh0001011(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -72860,7 +68759,7 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_0_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -72868,7 +68767,7 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_2_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_2_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72876,15 +68775,15 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_0_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_2_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -72892,15 +68791,15 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_6_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_6_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_6_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_8(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_8_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -72908,31 +68807,31 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_0_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_0_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_0_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_2_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_0_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_2(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_6_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_6(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_8(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -72940,47 +68839,39 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_18_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_18_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_18_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_20(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_20_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_18_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_20(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_24(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_24_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_24(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_26(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_54(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0000011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_54_anh0001011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_54 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_54_anh0001011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -72996,13 +68887,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatARB_ovr_54_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatARB_ovr_54_anh0001011(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_55_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_55_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_55_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_55_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_55_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_55_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -73010,15 +68898,11 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_54_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_56(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_56_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_56_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_56_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_56 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_56_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_56_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_56_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_56(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -73026,11 +68910,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_56_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatARB_ovr_56_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_57_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_57_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_57_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_57_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73038,27 +68920,21 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_54_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_58_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_58_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_59_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_59_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_56(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_56_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_60(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_60_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_60_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_60_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_60 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_60_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_60_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_60_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_60(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73066,21 +68942,18 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_60_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_60_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_61_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_61_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_60(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_60_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_62(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_62_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_62 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_62_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatARB_ovr_62(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatARB_ovr_62_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -73088,39 +68961,35 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_54_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_54_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_54_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_56(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_56_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_54_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_56(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_60(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_60_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_60(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_62(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_72(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_72_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_72_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_72_anh0000011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_72 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_72_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_72_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_72_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -73128,119 +68997,124 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatARB_ovr_72_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatARB_ovr_72_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatARB_ovr_73_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_73_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_72_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_74(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_74_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_74 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_74_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_74(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatARB_ovr_74_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_72_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_74(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_78(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    private static function z_ChoosePixelFormatARB_ovr_78_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_78 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    private z_ChoosePixelFormatARB_ovr_78_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatARB_ovr_78(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatARB_ovr_78_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatARB_ovr_78(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatARB_ovr_80(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatARB(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatARB_ovr_80 := GetFuncOrNil&(z_ChoosePixelFormatARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatARB(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatARB_ovr_80(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
     
   end;
   
   [PCUNotRestore]
-  wglRenderTextureARB = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglRenderTextureARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'ARB_render_texture';
     
-    private static function z_BindTexImageARB_ovr_0(_hPbuffer: HPBUFFER; iBuffer: Int32): UInt32;
-    external 'opengl32.dll' name 'wglBindTexImageARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindTexImageARB(_hPbuffer: HPBUFFER; iBuffer: Int32): UInt32 :=
-    z_BindTexImageARB_ovr_0(_hPbuffer, iBuffer);
+    private z_BindTexImageARB_adr := GetFuncAdr('wglBindTexImageARB');
+    private z_BindTexImageARB_ovr_0 := GetFuncOrNil&(z_BindTexImageARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindTexImageARB(hPbuffer: wgl_pbuffer_ARB; iBuffer: Int32): Bool :=
+    z_BindTexImageARB_ovr_0(hPbuffer, iBuffer);
     
-    private static function z_ReleaseTexImageARB_ovr_0(_hPbuffer: HPBUFFER; iBuffer: Int32): UInt32;
-    external 'opengl32.dll' name 'wglReleaseTexImageARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseTexImageARB(_hPbuffer: HPBUFFER; iBuffer: Int32): UInt32 :=
-    z_ReleaseTexImageARB_ovr_0(_hPbuffer, iBuffer);
+    private z_ReleaseTexImageARB_adr := GetFuncAdr('wglReleaseTexImageARB');
+    private z_ReleaseTexImageARB_ovr_0 := GetFuncOrNil&(z_ReleaseTexImageARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseTexImageARB(hPbuffer: wgl_pbuffer_ARB; iBuffer: Int32): Bool :=
+    z_ReleaseTexImageARB_ovr_0(hPbuffer, iBuffer);
     
-    private static function z_SetPbufferAttribARB_ovr_0(_hPbuffer: HPBUFFER; var piAttribList: Int32): UInt32;
-    external 'opengl32.dll' name 'wglSetPbufferAttribARB';
-    private static function z_SetPbufferAttribARB_ovr_0_anh001(_hPbuffer: HPBUFFER; piAttribList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetPbufferAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPbufferAttribARB(_hPbuffer: HPBUFFER; piAttribList: array of Int32): UInt32 :=
+    private z_SetPbufferAttribARB_adr := GetFuncAdr('wglSetPbufferAttribARB');
+    private z_SetPbufferAttribARB_ovr_0 := GetFuncOrNil&(z_SetPbufferAttribARB_adr);
+    private z_SetPbufferAttribARB_ovr_0_anh001 := GetFuncOrNil&(z_SetPbufferAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetPbufferAttribARB(hPbuffer: wgl_pbuffer_ARB; piAttribList: array of Int32): Bool :=
     if (piAttribList<>nil) and (piAttribList.Length<>0) then
-      z_SetPbufferAttribARB_ovr_0(_hPbuffer, piAttribList[0]) else
-      z_SetPbufferAttribARB_ovr_0_anh001(_hPbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPbufferAttribARB(_hPbuffer: HPBUFFER; var piAttribList: Int32): UInt32 :=
-    z_SetPbufferAttribARB_ovr_0(_hPbuffer, piAttribList);
-    private static function z_SetPbufferAttribARB_ovr_2(_hPbuffer: HPBUFFER; piAttribList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetPbufferAttribARB';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetPbufferAttribARB(_hPbuffer: HPBUFFER; piAttribList: IntPtr): UInt32 :=
-    z_SetPbufferAttribARB_ovr_2(_hPbuffer, piAttribList);
+      z_SetPbufferAttribARB_ovr_0(hPbuffer, piAttribList[0]) else
+      z_SetPbufferAttribARB_ovr_0_anh001(hPbuffer, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetPbufferAttribARB(hPbuffer: wgl_pbuffer_ARB; var piAttribList: Int32): Bool :=
+    z_SetPbufferAttribARB_ovr_0(hPbuffer, piAttribList);
+    private z_SetPbufferAttribARB_ovr_2 := GetFuncOrNil&(z_SetPbufferAttribARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetPbufferAttribARB(hPbuffer: wgl_pbuffer_ARB; piAttribList: IntPtr): Bool :=
+    z_SetPbufferAttribARB_ovr_2(hPbuffer, piAttribList);
     
   end;
   
   [PCUNotRestore]
-  wglDisplayColorTableEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglDisplayColorTableEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_display_color_table';
     
-    private static function z_CreateDisplayColorTableEXT_ovr_0(id: UInt16): boolean;
-    external 'opengl32.dll' name 'wglCreateDisplayColorTableEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateDisplayColorTableEXT(id: UInt16): boolean :=
+    private z_CreateDisplayColorTableEXT_adr := GetFuncAdr('wglCreateDisplayColorTableEXT');
+    private z_CreateDisplayColorTableEXT_ovr_0 := GetFuncOrNil&(z_CreateDisplayColorTableEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateDisplayColorTableEXT(id: UInt16): boolean :=
     z_CreateDisplayColorTableEXT_ovr_0(id);
     
-    private static function z_LoadDisplayColorTableEXT_ovr_0(var table: UInt16; length: UInt32): boolean;
-    external 'opengl32.dll' name 'wglLoadDisplayColorTableEXT';
-    private static function z_LoadDisplayColorTableEXT_ovr_0_anh010(table: IntPtr; length: UInt32): boolean;
-    external 'opengl32.dll' name 'wglLoadDisplayColorTableEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function LoadDisplayColorTableEXT(table: array of UInt16; length: UInt32): boolean :=
+    private z_LoadDisplayColorTableEXT_adr := GetFuncAdr('wglLoadDisplayColorTableEXT');
+    private z_LoadDisplayColorTableEXT_ovr_0 := GetFuncOrNil&(z_LoadDisplayColorTableEXT_adr);
+    private z_LoadDisplayColorTableEXT_ovr_0_anh010 := GetFuncOrNil&(z_LoadDisplayColorTableEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function LoadDisplayColorTableEXT(table: array of UInt16; length: UInt32): boolean :=
     if (table<>nil) and (table.Length<>0) then
       z_LoadDisplayColorTableEXT_ovr_0(table[0], length) else
       z_LoadDisplayColorTableEXT_ovr_0_anh010(IntPtr.Zero, length);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function LoadDisplayColorTableEXT(var table: UInt16; length: UInt32): boolean :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function LoadDisplayColorTableEXT(var table: UInt16; length: UInt32): boolean :=
     z_LoadDisplayColorTableEXT_ovr_0(table, length);
-    private static function z_LoadDisplayColorTableEXT_ovr_2(table: IntPtr; length: UInt32): boolean;
-    external 'opengl32.dll' name 'wglLoadDisplayColorTableEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function LoadDisplayColorTableEXT(table: IntPtr; length: UInt32): boolean :=
+    private z_LoadDisplayColorTableEXT_ovr_2 := GetFuncOrNil&(z_LoadDisplayColorTableEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function LoadDisplayColorTableEXT(table: IntPtr; length: UInt32): boolean :=
     z_LoadDisplayColorTableEXT_ovr_2(table, length);
     
-    private static function z_BindDisplayColorTableEXT_ovr_0(id: UInt16): boolean;
-    external 'opengl32.dll' name 'wglBindDisplayColorTableEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindDisplayColorTableEXT(id: UInt16): boolean :=
+    private z_BindDisplayColorTableEXT_adr := GetFuncAdr('wglBindDisplayColorTableEXT');
+    private z_BindDisplayColorTableEXT_ovr_0 := GetFuncOrNil&(z_BindDisplayColorTableEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindDisplayColorTableEXT(id: UInt16): boolean :=
     z_BindDisplayColorTableEXT_ovr_0(id);
     
-    private static procedure z_DestroyDisplayColorTableEXT_ovr_0(id: UInt16);
-    external 'opengl32.dll' name 'wglDestroyDisplayColorTableEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyDisplayColorTableEXT(id: UInt16) :=
+    private z_DestroyDisplayColorTableEXT_adr := GetFuncAdr('wglDestroyDisplayColorTableEXT');
+    private z_DestroyDisplayColorTableEXT_ovr_0 := GetFuncOrNil&(z_DestroyDisplayColorTableEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DestroyDisplayColorTableEXT(id: UInt16) :=
     z_DestroyDisplayColorTableEXT_ovr_0(id);
     
   end;
   
   [PCUNotRestore]
-  wglExtensionsStringEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglExtensionsStringEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_extensions_string';
     
-    private static function z_GetExtensionsStringEXT_ovr_0: IntPtr;
-    external 'opengl32.dll' name 'wglGetExtensionsStringEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetExtensionsStringEXT: string;
+    private z_GetExtensionsStringEXT_adr := GetFuncAdr('wglGetExtensionsStringEXT');
+    private z_GetExtensionsStringEXT_ovr_0 := GetFuncOrNil&(z_GetExtensionsStringEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetExtensionsStringEXT: string;
     begin
       var res_str_ptr: IntPtr;
       res_str_ptr := z_GetExtensionsStringEXT_ovr_0;
@@ -73250,85 +69124,93 @@ type
   end;
   
   [PCUNotRestore]
-  wglMakeCurrentReadEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglMakeCurrentReadEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_make_current_read';
     
-    private static function z_MakeContextCurrentEXT_ovr_0(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32;
-    external 'opengl32.dll' name 'wglMakeContextCurrentEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeContextCurrentEXT(hDrawDC: GDI_DC; hReadDC: GDI_DC; hglrc: GLContext): UInt32 :=
+    private z_MakeContextCurrentEXT_adr := GetFuncAdr('wglMakeContextCurrentEXT');
+    private z_MakeContextCurrentEXT_ovr_0 := GetFuncOrNil&(z_MakeContextCurrentEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MakeContextCurrentEXT(hDrawDC: gdi_device_context; hReadDC: gdi_device_context; hglrc: wgl_context): Bool :=
     z_MakeContextCurrentEXT_ovr_0(hDrawDC, hReadDC, hglrc);
     
-    private static function z_GetCurrentReadDCEXT_ovr_0: GDI_DC;
-    external 'opengl32.dll' name 'wglGetCurrentReadDCEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentReadDCEXT: GDI_DC :=
+    private z_GetCurrentReadDCEXT_adr := GetFuncAdr('wglGetCurrentReadDCEXT');
+    private z_GetCurrentReadDCEXT_ovr_0 := GetFuncOrNil&(z_GetCurrentReadDCEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentReadDCEXT: gdi_device_context :=
     z_GetCurrentReadDCEXT_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  wglPbufferEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglPbufferEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_pbuffer';
     
-    private static function z_CreatePbufferEXT_ovr_0(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferEXT';
-    private static function z_CreatePbufferEXT_ovr_0_anh000001(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferEXT(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: array of Int32): HPBUFFER :=
+    private z_CreatePbufferEXT_adr := GetFuncAdr('wglCreatePbufferEXT');
+    private z_CreatePbufferEXT_ovr_0 := GetFuncOrNil&(z_CreatePbufferEXT_adr);
+    private z_CreatePbufferEXT_ovr_0_anh000001 := GetFuncOrNil&(z_CreatePbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferEXT(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: array of Int32): wgl_pbuffer_EXT :=
     if (piAttribList<>nil) and (piAttribList.Length<>0) then
       z_CreatePbufferEXT_ovr_0(hDC, iPixelFormat, iWidth, iHeight, piAttribList[0]) else
       z_CreatePbufferEXT_ovr_0_anh000001(hDC, iPixelFormat, iWidth, iHeight, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferEXT(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): HPBUFFER :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferEXT(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; var piAttribList: Int32): wgl_pbuffer_EXT :=
     z_CreatePbufferEXT_ovr_0(hDC, iPixelFormat, iWidth, iHeight, piAttribList);
-    private static function z_CreatePbufferEXT_ovr_2(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER;
-    external 'opengl32.dll' name 'wglCreatePbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbufferEXT(hDC: GDI_DC; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): HPBUFFER :=
+    private z_CreatePbufferEXT_ovr_2 := GetFuncOrNil&(z_CreatePbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreatePbufferEXT(hDC: gdi_device_context; iPixelFormat: Int32; iWidth: Int32; iHeight: Int32; piAttribList: IntPtr): wgl_pbuffer_EXT :=
     z_CreatePbufferEXT_ovr_2(hDC, iPixelFormat, iWidth, iHeight, piAttribList);
     
-    private static function z_GetPbufferDCEXT_ovr_0(_hPbuffer: HPBUFFER): GDI_DC;
-    external 'opengl32.dll' name 'wglGetPbufferDCEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPbufferDCEXT(_hPbuffer: HPBUFFER): GDI_DC :=
-    z_GetPbufferDCEXT_ovr_0(_hPbuffer);
+    private z_GetPbufferDCEXT_adr := GetFuncAdr('wglGetPbufferDCEXT');
+    private z_GetPbufferDCEXT_ovr_0 := GetFuncOrNil&(z_GetPbufferDCEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPbufferDCEXT(hPbuffer: wgl_pbuffer_EXT): gdi_device_context :=
+    z_GetPbufferDCEXT_ovr_0(hPbuffer);
     
-    private static function z_ReleasePbufferDCEXT_ovr_0(_hPbuffer: HPBUFFER; hDC: GDI_DC): Int32;
-    external 'opengl32.dll' name 'wglReleasePbufferDCEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleasePbufferDCEXT(_hPbuffer: HPBUFFER; hDC: GDI_DC): Int32 :=
-    z_ReleasePbufferDCEXT_ovr_0(_hPbuffer, hDC);
+    private z_ReleasePbufferDCEXT_adr := GetFuncAdr('wglReleasePbufferDCEXT');
+    private z_ReleasePbufferDCEXT_ovr_0 := GetFuncOrNil&(z_ReleasePbufferDCEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleasePbufferDCEXT(hPbuffer: wgl_pbuffer_EXT; hDC: gdi_device_context): Int32 :=
+    z_ReleasePbufferDCEXT_ovr_0(hPbuffer, hDC);
     
-    private static function z_DestroyPbufferEXT_ovr_0(_hPbuffer: HPBUFFER): UInt32;
-    external 'opengl32.dll' name 'wglDestroyPbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DestroyPbufferEXT(_hPbuffer: HPBUFFER): UInt32 :=
-    z_DestroyPbufferEXT_ovr_0(_hPbuffer);
+    private z_DestroyPbufferEXT_adr := GetFuncAdr('wglDestroyPbufferEXT');
+    private z_DestroyPbufferEXT_ovr_0 := GetFuncOrNil&(z_DestroyPbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DestroyPbufferEXT(hPbuffer: wgl_pbuffer_EXT): Bool :=
+    z_DestroyPbufferEXT_ovr_0(hPbuffer);
     
-    private static function z_QueryPbufferEXT_ovr_0(_hPbuffer: HPBUFFER; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferEXT';
-    private static function z_QueryPbufferEXT_ovr_0_anh0001(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferEXT(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_QueryPbufferEXT_adr := GetFuncAdr('wglQueryPbufferEXT');
+    private z_QueryPbufferEXT_ovr_0 := GetFuncOrNil&(z_QueryPbufferEXT_adr);
+    private z_QueryPbufferEXT_ovr_0_anh0001 := GetFuncOrNil&(z_QueryPbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferEXT(hPbuffer: wgl_pbuffer_EXT; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
-      z_QueryPbufferEXT_ovr_0(_hPbuffer, iAttribute, piValue[0]) else
-      z_QueryPbufferEXT_ovr_0_anh0001(_hPbuffer, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferEXT(_hPbuffer: HPBUFFER; iAttribute: Int32; var piValue: Int32): UInt32 :=
-    z_QueryPbufferEXT_ovr_0(_hPbuffer, iAttribute, piValue);
-    private static function z_QueryPbufferEXT_ovr_2(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryPbufferEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryPbufferEXT(_hPbuffer: HPBUFFER; iAttribute: Int32; piValue: IntPtr): UInt32 :=
-    z_QueryPbufferEXT_ovr_2(_hPbuffer, iAttribute, piValue);
+      z_QueryPbufferEXT_ovr_0(hPbuffer, iAttribute, piValue[0]) else
+      z_QueryPbufferEXT_ovr_0_anh0001(hPbuffer, iAttribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferEXT(hPbuffer: wgl_pbuffer_EXT; iAttribute: Int32; var piValue: Int32): Bool :=
+    z_QueryPbufferEXT_ovr_0(hPbuffer, iAttribute, piValue);
+    private z_QueryPbufferEXT_ovr_2 := GetFuncOrNil&(z_QueryPbufferEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryPbufferEXT(hPbuffer: wgl_pbuffer_EXT; iAttribute: Int32; piValue: IntPtr): Bool :=
+    z_QueryPbufferEXT_ovr_2(hPbuffer, iAttribute, piValue);
     
   end;
   
   [PCUNotRestore]
-  wglPixelFormatEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglPixelFormatEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_pixel_format';
     
-    private static function z_GetPixelFormatAttribivEXT_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    private static function z_GetPixelFormatAttribivEXT_ovr_0_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    private static function z_GetPixelFormatAttribivEXT_ovr_0_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    private static function z_GetPixelFormatAttribivEXT_ovr_0_anh0000011(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: array of Int32): UInt32 :=
+    private z_GetPixelFormatAttribivEXT_adr := GetFuncAdr('wglGetPixelFormatAttribivEXT');
+    private z_GetPixelFormatAttribivEXT_ovr_0 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    private z_GetPixelFormatAttribivEXT_ovr_0_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    private z_GetPixelFormatAttribivEXT_ovr_0_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    private z_GetPixelFormatAttribivEXT_ovr_0_anh0000011 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: array of Int32): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       if (piValues<>nil) and (piValues.Length<>0) then
         z_GetPixelFormatAttribivEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues[0]) else
@@ -73336,52 +69218,43 @@ type
       if (piValues<>nil) and (piValues.Length<>0) then
         z_GetPixelFormatAttribivEXT_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues[0]) else
         z_GetPixelFormatAttribivEXT_ovr_0_anh0000011(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetPixelFormatAttribivEXT_ovr_1_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var piValues: Int32): UInt32 :=
+    private z_GetPixelFormatAttribivEXT_ovr_1_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var piValues: Int32): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribivEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues) else
       z_GetPixelFormatAttribivEXT_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues);
-    private static function z_GetPixelFormatAttribivEXT_ovr_2(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    private static function z_GetPixelFormatAttribivEXT_ovr_2_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribivEXT_ovr_2 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    private z_GetPixelFormatAttribivEXT_ovr_2_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; piValues: IntPtr): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribivEXT_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], piValues) else
       z_GetPixelFormatAttribivEXT_ovr_2_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, piValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: array of Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: array of Int32): Bool :=
     if (piValues<>nil) and (piValues.Length<>0) then
       z_GetPixelFormatAttribivEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues[0]) else
       z_GetPixelFormatAttribivEXT_ovr_0_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var piValues: Int32): Bool :=
     z_GetPixelFormatAttribivEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; piValues: IntPtr): Bool :=
     z_GetPixelFormatAttribivEXT_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    private static function z_GetPixelFormatAttribivEXT_ovr_6(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    private static function z_GetPixelFormatAttribivEXT_ovr_6_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: array of Int32): UInt32 :=
+    private z_GetPixelFormatAttribivEXT_ovr_6 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    private z_GetPixelFormatAttribivEXT_ovr_6_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: array of Int32): Bool :=
     if (piValues<>nil) and (piValues.Length<>0) then
       z_GetPixelFormatAttribivEXT_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues[0]) else
       z_GetPixelFormatAttribivEXT_ovr_6_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var piValues: Int32): Bool :=
     z_GetPixelFormatAttribivEXT_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
-    private static function z_GetPixelFormatAttribivEXT_ovr_8(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribivEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribivEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribivEXT_ovr_8 := GetFuncOrNil&(z_GetPixelFormatAttribivEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribivEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; piValues: IntPtr): Bool :=
     z_GetPixelFormatAttribivEXT_ovr_8(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, piValues);
     
-    private static function z_GetPixelFormatAttribfvEXT_ovr_0(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    private static function z_GetPixelFormatAttribfvEXT_ovr_0_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    private static function z_GetPixelFormatAttribfvEXT_ovr_0_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    private static function z_GetPixelFormatAttribfvEXT_ovr_0_anh0000011(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: array of single): UInt32 :=
+    private z_GetPixelFormatAttribfvEXT_adr := GetFuncAdr('wglGetPixelFormatAttribfvEXT');
+    private z_GetPixelFormatAttribfvEXT_ovr_0 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    private z_GetPixelFormatAttribfvEXT_ovr_0_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    private z_GetPixelFormatAttribfvEXT_ovr_0_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    private z_GetPixelFormatAttribfvEXT_ovr_0_anh0000011 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: array of single): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       if (pfValues<>nil) and (pfValues.Length<>0) then
         z_GetPixelFormatAttribfvEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues[0]) else
@@ -73389,76 +69262,55 @@ type
       if (pfValues<>nil) and (pfValues.Length<>0) then
         z_GetPixelFormatAttribfvEXT_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues[0]) else
         z_GetPixelFormatAttribfvEXT_ovr_0_anh0000011(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetPixelFormatAttribfvEXT_ovr_1_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var pfValues: single): UInt32 :=
+    private z_GetPixelFormatAttribfvEXT_ovr_1_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; var pfValues: single): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribfvEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues) else
       z_GetPixelFormatAttribfvEXT_ovr_0_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues);
-    private static function z_GetPixelFormatAttribfvEXT_ovr_2(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    private static function z_GetPixelFormatAttribfvEXT_ovr_2_anh0000010(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribfvEXT_ovr_2 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    private z_GetPixelFormatAttribfvEXT_ovr_2_anh0000010 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: array of Int32; pfValues: IntPtr): Bool :=
     if (piAttributes<>nil) and (piAttributes.Length<>0) then
       z_GetPixelFormatAttribfvEXT_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes[0], pfValues) else
       z_GetPixelFormatAttribfvEXT_ovr_2_anh0000010(hdc, iPixelFormat, iLayerPlane, nAttributes, IntPtr.Zero, pfValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: array of single): Bool :=
     if (pfValues<>nil) and (pfValues.Length<>0) then
       z_GetPixelFormatAttribfvEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues[0]) else
       z_GetPixelFormatAttribfvEXT_ovr_0_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; var pfValues: single): Bool :=
     z_GetPixelFormatAttribfvEXT_ovr_0(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; var piAttributes: Int32; pfValues: IntPtr): Bool :=
     z_GetPixelFormatAttribfvEXT_ovr_2(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    private static function z_GetPixelFormatAttribfvEXT_ovr_6(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    private static function z_GetPixelFormatAttribfvEXT_ovr_6_anh0000001(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: array of single): UInt32 :=
+    private z_GetPixelFormatAttribfvEXT_ovr_6 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    private z_GetPixelFormatAttribfvEXT_ovr_6_anh0000001 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: array of single): Bool :=
     if (pfValues<>nil) and (pfValues.Length<>0) then
       z_GetPixelFormatAttribfvEXT_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues[0]) else
       z_GetPixelFormatAttribfvEXT_ovr_6_anh0000001(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; var pfValues: single): Bool :=
     z_GetPixelFormatAttribfvEXT_ovr_6(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
-    private static function z_GetPixelFormatAttribfvEXT_ovr_8(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetPixelFormatAttribfvEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetPixelFormatAttribfvEXT(hdc: GDI_DC; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): UInt32 :=
+    private z_GetPixelFormatAttribfvEXT_ovr_8 := GetFuncOrNil&(z_GetPixelFormatAttribfvEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetPixelFormatAttribfvEXT(hdc: gdi_device_context; iPixelFormat: Int32; iLayerPlane: Int32; nAttributes: UInt32; piAttributes: IntPtr; pfValues: IntPtr): Bool :=
     z_GetPixelFormatAttribfvEXT_ovr_8(hdc, iPixelFormat, iLayerPlane, nAttributes, piAttributes, pfValues);
     
-    private static function z_ChoosePixelFormatEXT_ovr_0(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0000011(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0001011(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_0_anh0011011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_adr := GetFuncAdr('wglChoosePixelFormatEXT');
+    private z_ChoosePixelFormatEXT_ovr_0 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0001011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_0_anh0011011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -73490,21 +69342,14 @@ type
           if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
             z_ChoosePixelFormatEXT_ovr_0_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
             z_ChoosePixelFormatEXT_ovr_0_anh0011011(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_1_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_1_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_1_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -73520,23 +69365,15 @@ type
         if (piFormats<>nil) and (piFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
           z_ChoosePixelFormatEXT_ovr_0_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_2(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0001010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_2_anh0011010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_2 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_2_anh0011010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (piFormats<>nil) and (piFormats.Length<>0) then
@@ -73552,19 +69389,13 @@ type
         if (piFormats<>nil) and (piFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_2_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
           z_ChoosePixelFormatEXT_ovr_2_anh0011010(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_3_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_3_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_3_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_3_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_3_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_3_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_3_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -73580,13 +69411,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_0_anh0011001(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_4_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_4_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_4_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_4_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_4_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_4_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -73594,13 +69422,10 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_0_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_5_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_5_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_5_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_5_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_5_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_5_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -73608,23 +69433,15 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_2_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_6(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0001001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_6_anh0011001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_6 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_6_anh0011001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -73640,13 +69457,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_6_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_6_anh0011001(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_7_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_7_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_7_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_7_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_7_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_7_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -73654,15 +69468,11 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_6_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_8(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_8_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_8_anh0001000(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_8_anh0011000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_8 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_8_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_8_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_8_anh0011000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_8(hdc, piAttribIList[0], pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
@@ -73670,15 +69480,11 @@ type
       if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_8_anh0010000(hdc, IntPtr.Zero, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_8_anh0011000(hdc, IntPtr.Zero, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_9_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_9_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_9_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_9_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_9_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_9_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_9_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_9_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -73694,11 +69500,9 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_0_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_0_anh0010011(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_10_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_10_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_10_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_10_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -73706,11 +69510,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_0_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_11_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_11_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_11_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_11_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -73718,11 +69520,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_2_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_12_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_12_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_12_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_12_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73730,23 +69530,19 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_0_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_13_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_13_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_0_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_14_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_14_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_2_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_15_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_15_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_15_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_15_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73754,35 +69550,25 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_6_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_16_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_16_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_6_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_17_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_17_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_8(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_8_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_18(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0000011(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_18_anh0010011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_18 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_18_anh0010011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -73798,13 +69584,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_18_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_18_anh0010011(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_19_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_19_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_19_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_19_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_19_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_19_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -73812,15 +69595,11 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_18_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_20(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_20_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_20_anh0000010(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_20_anh0010010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_20 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_20_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_20_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_20_anh0010010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_20(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
@@ -73828,11 +69607,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_20_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_20_anh0010010(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_21_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_21_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_21_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_21_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73840,27 +69617,21 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_18_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_22_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_22_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_18_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_23_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_23_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_20(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_20_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_24(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_24_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_24_anh0000001(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_24_anh0010001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_24 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_24_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_24_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_24_anh0010001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_24(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73868,21 +69639,18 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_24_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_24_anh0010001(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_25_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_25_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_24(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_24_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_26(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_26_anh0010000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_26 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_26_anh0010000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: array of Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (piAttribIList<>nil) and (piAttribIList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_26(hdc, piAttribIList[0], pfAttribFList, nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_26_anh0010000(hdc, IntPtr.Zero, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -73898,7 +69666,7 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_0_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_0_anh0001011(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -73906,7 +69674,7 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_0_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -73914,7 +69682,7 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_2_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_2_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73922,15 +69690,15 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_0_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_0_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_2_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -73938,15 +69706,15 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_6_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_6_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_6_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_8(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_8_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -73954,31 +69722,31 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_0_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_0_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_0_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_2_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_0_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_0(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_2(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_6_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_6(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_8(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -73986,47 +69754,39 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_18_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_18_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_18_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_20(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_20_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_18_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_18(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_20(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_24(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_24_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_24(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; var piAttribIList: Int32; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_26(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_54(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0000011(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_54_anh0001011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_54 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_54_anh0001011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
@@ -74042,13 +69802,10 @@ type
         if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
           z_ChoosePixelFormatEXT_ovr_54_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
           z_ChoosePixelFormatEXT_ovr_54_anh0001011(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_55_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_55_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_55_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_55_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_55_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_55_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -74056,15 +69813,11 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_54_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_56(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_56_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_56_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_56_anh0001010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_56 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_56_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_56_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_56_anh0001010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_56(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats[0], nNumFormats) else
@@ -74072,11 +69825,9 @@ type
       if (piFormats<>nil) and (piFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_56_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats[0], nNumFormats) else
         z_ChoosePixelFormatEXT_ovr_56_anh0001010(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_57_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_57_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_57_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_57_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -74084,27 +69835,21 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_54_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_58_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_58_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_54_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_59_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_59_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_56(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_56_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_60(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_60_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_60_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_60_anh0001001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_60 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_60_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_60_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_60_anh0001001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_60(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats[0]) else
@@ -74112,21 +69857,18 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_60_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_60_anh0001001(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_61_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_61_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_60(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_60_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_62(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_62_anh0001000(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_62 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_62_anh0001000 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: array of single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     if (pfAttribFList<>nil) and (pfAttribFList.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_62(hdc, piAttribIList, pfAttribFList[0], nMaxFormats, piFormats, nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_62_anh0001000(hdc, piAttribIList, IntPtr.Zero, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -74134,39 +69876,35 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_54_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_54_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_54_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_56(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_56_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_54_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_54(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_56(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_60(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_60_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_60(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; var pfAttribFList: single; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_62(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_72(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_72_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_72_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_72_anh0000011(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_72 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_72_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_72_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_72_anh0000011 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: array of UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats[0]) else
@@ -74174,148 +69912,142 @@ type
       if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
         z_ChoosePixelFormatEXT_ovr_72_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats[0]) else
         z_ChoosePixelFormatEXT_ovr_72_anh0000011(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, IntPtr.Zero);
-    private static function z_ChoosePixelFormatEXT_ovr_73_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_73_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; var nNumFormats: UInt32): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_72_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_74(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_74_anh0000010(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_74 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_74_anh0000010 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: array of Int32; nNumFormats: IntPtr): Bool :=
     if (piFormats<>nil) and (piFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_74(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats[0], nNumFormats) else
       z_ChoosePixelFormatEXT_ovr_74_anh0000010(hdc, piAttribIList, pfAttribFList, nMaxFormats, IntPtr.Zero, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_72_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_72(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; var piFormats: Int32; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_74(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_78(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    private static function z_ChoosePixelFormatEXT_ovr_78_anh0000001(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_78 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    private z_ChoosePixelFormatEXT_ovr_78_anh0000001 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: array of UInt32): Bool :=
     if (nNumFormats<>nil) and (nNumFormats.Length<>0) then
       z_ChoosePixelFormatEXT_ovr_78(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats[0]) else
       z_ChoosePixelFormatEXT_ovr_78_anh0000001(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; var nNumFormats: UInt32): Bool :=
     z_ChoosePixelFormatEXT_ovr_78(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
-    private static function z_ChoosePixelFormatEXT_ovr_80(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglChoosePixelFormatEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChoosePixelFormatEXT(hdc: GDI_DC; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): UInt32 :=
+    private z_ChoosePixelFormatEXT_ovr_80 := GetFuncOrNil&(z_ChoosePixelFormatEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChoosePixelFormatEXT(hdc: gdi_device_context; piAttribIList: IntPtr; pfAttribFList: IntPtr; nMaxFormats: UInt32; piFormats: IntPtr; nNumFormats: IntPtr): Bool :=
     z_ChoosePixelFormatEXT_ovr_80(hdc, piAttribIList, pfAttribFList, nMaxFormats, piFormats, nNumFormats);
     
   end;
   
   [PCUNotRestore]
-  wglSwapControlEXT = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglSwapControlEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'EXT_swap_control';
     
-    private static function z_SwapIntervalEXT_ovr_0(interval: Int32): UInt32;
-    external 'opengl32.dll' name 'wglSwapIntervalEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapIntervalEXT(interval: Int32): UInt32 :=
+    private z_SwapIntervalEXT_adr := GetFuncAdr('wglSwapIntervalEXT');
+    private z_SwapIntervalEXT_ovr_0 := GetFuncOrNil&(z_SwapIntervalEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapIntervalEXT(interval: Int32): Bool :=
     z_SwapIntervalEXT_ovr_0(interval);
     
-    private static function z_GetSwapIntervalEXT_ovr_0: Int32;
-    external 'opengl32.dll' name 'wglGetSwapIntervalEXT';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSwapIntervalEXT: Int32 :=
+    private z_GetSwapIntervalEXT_adr := GetFuncAdr('wglGetSwapIntervalEXT');
+    private z_GetSwapIntervalEXT_ovr_0 := GetFuncOrNil&(z_GetSwapIntervalEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSwapIntervalEXT: Int32 :=
     z_GetSwapIntervalEXT_ovr_0;
     
   end;
   
   [PCUNotRestore]
-  wglDigitalVideoControlI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglDigitalVideoControlI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_digital_video_control';
     
-    private static function z_GetDigitalVideoParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetDigitalVideoParametersI3D';
-    private static function z_GetDigitalVideoParametersI3D_ovr_0_anh0001(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetDigitalVideoParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_GetDigitalVideoParametersI3D_adr := GetFuncAdr('wglGetDigitalVideoParametersI3D');
+    private z_GetDigitalVideoParametersI3D_ovr_0 := GetFuncOrNil&(z_GetDigitalVideoParametersI3D_adr);
+    private z_GetDigitalVideoParametersI3D_ovr_0_anh0001 := GetFuncOrNil&(z_GetDigitalVideoParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_GetDigitalVideoParametersI3D_ovr_0(hDC, iAttribute, piValue[0]) else
       z_GetDigitalVideoParametersI3D_ovr_0_anh0001(hDC, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; var piValue: Int32): Bool :=
     z_GetDigitalVideoParametersI3D_ovr_0(hDC, iAttribute, piValue);
-    private static function z_GetDigitalVideoParametersI3D_ovr_2(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetDigitalVideoParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_GetDigitalVideoParametersI3D_ovr_2 := GetFuncOrNil&(z_GetDigitalVideoParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: IntPtr): Bool :=
     z_GetDigitalVideoParametersI3D_ovr_2(hDC, iAttribute, piValue);
     
-    private static function z_SetDigitalVideoParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglSetDigitalVideoParametersI3D';
-    private static function z_SetDigitalVideoParametersI3D_ovr_0_anh0001(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetDigitalVideoParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_SetDigitalVideoParametersI3D_adr := GetFuncAdr('wglSetDigitalVideoParametersI3D');
+    private z_SetDigitalVideoParametersI3D_ovr_0 := GetFuncOrNil&(z_SetDigitalVideoParametersI3D_adr);
+    private z_SetDigitalVideoParametersI3D_ovr_0_anh0001 := GetFuncOrNil&(z_SetDigitalVideoParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_SetDigitalVideoParametersI3D_ovr_0(hDC, iAttribute, piValue[0]) else
       z_SetDigitalVideoParametersI3D_ovr_0_anh0001(hDC, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; var piValue: Int32): Bool :=
     z_SetDigitalVideoParametersI3D_ovr_0(hDC, iAttribute, piValue);
-    private static function z_SetDigitalVideoParametersI3D_ovr_2(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetDigitalVideoParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetDigitalVideoParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_SetDigitalVideoParametersI3D_ovr_2 := GetFuncOrNil&(z_SetDigitalVideoParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetDigitalVideoParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: IntPtr): Bool :=
     z_SetDigitalVideoParametersI3D_ovr_2(hDC, iAttribute, piValue);
     
   end;
   
   [PCUNotRestore]
-  wglGammaI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglGammaI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_gamma';
     
-    private static function z_GetGammaTableParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableParametersI3D';
-    private static function z_GetGammaTableParametersI3D_ovr_0_anh0001(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_GetGammaTableParametersI3D_adr := GetFuncAdr('wglGetGammaTableParametersI3D');
+    private z_GetGammaTableParametersI3D_ovr_0 := GetFuncOrNil&(z_GetGammaTableParametersI3D_adr);
+    private z_GetGammaTableParametersI3D_ovr_0_anh0001 := GetFuncOrNil&(z_GetGammaTableParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_GetGammaTableParametersI3D_ovr_0(hDC, iAttribute, piValue[0]) else
       z_GetGammaTableParametersI3D_ovr_0_anh0001(hDC, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; var piValue: Int32): Bool :=
     z_GetGammaTableParametersI3D_ovr_0(hDC, iAttribute, piValue);
-    private static function z_GetGammaTableParametersI3D_ovr_2(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_GetGammaTableParametersI3D_ovr_2 := GetFuncOrNil&(z_GetGammaTableParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: IntPtr): Bool :=
     z_GetGammaTableParametersI3D_ovr_2(hDC, iAttribute, piValue);
     
-    private static function z_SetGammaTableParametersI3D_ovr_0(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableParametersI3D';
-    private static function z_SetGammaTableParametersI3D_ovr_0_anh0001(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_SetGammaTableParametersI3D_adr := GetFuncAdr('wglSetGammaTableParametersI3D');
+    private z_SetGammaTableParametersI3D_ovr_0 := GetFuncOrNil&(z_SetGammaTableParametersI3D_adr);
+    private z_SetGammaTableParametersI3D_ovr_0_anh0001 := GetFuncOrNil&(z_SetGammaTableParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_SetGammaTableParametersI3D_ovr_0(hDC, iAttribute, piValue[0]) else
       z_SetGammaTableParametersI3D_ovr_0_anh0001(hDC, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; var piValue: Int32): Bool :=
     z_SetGammaTableParametersI3D_ovr_0(hDC, iAttribute, piValue);
-    private static function z_SetGammaTableParametersI3D_ovr_2(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableParametersI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableParametersI3D(hDC: GDI_DC; iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_SetGammaTableParametersI3D_ovr_2 := GetFuncOrNil&(z_SetGammaTableParametersI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableParametersI3D(hDC: gdi_device_context; iAttribute: Int32; piValue: IntPtr): Bool :=
     z_SetGammaTableParametersI3D_ovr_2(hDC, iAttribute, piValue);
     
-    private static function z_GetGammaTableI3D_ovr_0(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000001(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000011(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_0_anh000111(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_GetGammaTableI3D_adr := GetFuncAdr('wglGetGammaTableI3D');
+    private z_GetGammaTableI3D_ovr_0 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000110 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000001 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000101 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000011 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_0_anh000111 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         if (puBlue<>nil) and (puBlue.Length<>0) then
@@ -74331,13 +70063,10 @@ type
         if (puBlue<>nil) and (puBlue.Length<>0) then
           z_GetGammaTableI3D_ovr_0_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue[0]) else
           z_GetGammaTableI3D_ovr_0_anh000111(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetGammaTableI3D_ovr_1_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_1_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_1_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_1_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_1_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_1_anh000110 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen[0], puBlue) else
@@ -74345,15 +70074,11 @@ type
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_GetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen[0], puBlue) else
         z_GetGammaTableI3D_ovr_0_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue);
-    private static function z_GetGammaTableI3D_ovr_2(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_2_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_2_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_2_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    private z_GetGammaTableI3D_ovr_2 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_2_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_2_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_2_anh000110 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_GetGammaTableI3D_ovr_2(hDC, iEntries, puRed[0], puGreen[0], puBlue) else
@@ -74361,11 +70086,9 @@ type
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_GetGammaTableI3D_ovr_2_anh000100(hDC, iEntries, IntPtr.Zero, puGreen[0], puBlue) else
         z_GetGammaTableI3D_ovr_2_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue);
-    private static function z_GetGammaTableI3D_ovr_3_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_3_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_3_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_3_anh000101 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen, puBlue[0]) else
@@ -74373,27 +70096,21 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue[0]) else
         z_GetGammaTableI3D_ovr_0_anh000101(hDC, iEntries, IntPtr.Zero, puGreen, IntPtr.Zero);
-    private static function z_GetGammaTableI3D_ovr_4_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_4_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_GetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_5_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    private z_GetGammaTableI3D_ovr_5_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_GetGammaTableI3D_ovr_2(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_GetGammaTableI3D_ovr_2_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_6(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_6_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_6_anh000001(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_6_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_6 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_6_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_6_anh000001 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_6_anh000101 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_6(hDC, iEntries, puRed[0], puGreen, puBlue[0]) else
@@ -74401,21 +70118,18 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_6_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue[0]) else
         z_GetGammaTableI3D_ovr_6_anh000101(hDC, iEntries, IntPtr.Zero, puGreen, IntPtr.Zero);
-    private static function z_GetGammaTableI3D_ovr_7_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_7_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_GetGammaTableI3D_ovr_6(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_GetGammaTableI3D_ovr_6_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_8(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_8_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    private z_GetGammaTableI3D_ovr_8 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_8_anh000100 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_GetGammaTableI3D_ovr_8(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_GetGammaTableI3D_ovr_8_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen[0], puBlue[0]) else
@@ -74423,39 +70137,35 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_0_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue[0]) else
         z_GetGammaTableI3D_ovr_0_anh000011(hDC, iEntries, puRed, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_GetGammaTableI3D_ovr_0_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_GetGammaTableI3D_ovr_2(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_GetGammaTableI3D_ovr_2_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_GetGammaTableI3D_ovr_0_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     z_GetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     z_GetGammaTableI3D_ovr_2(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_GetGammaTableI3D_ovr_6(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_GetGammaTableI3D_ovr_6_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     z_GetGammaTableI3D_ovr_6(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     z_GetGammaTableI3D_ovr_8(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_18(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_18_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_18_anh000001(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_18_anh000011(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_18 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_18_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_18_anh000001 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_18_anh000011 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen[0], puBlue[0]) else
@@ -74463,60 +70173,47 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_GetGammaTableI3D_ovr_18_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue[0]) else
         z_GetGammaTableI3D_ovr_18_anh000011(hDC, iEntries, puRed, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetGammaTableI3D_ovr_19_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_19_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_GetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_GetGammaTableI3D_ovr_18_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    private static function z_GetGammaTableI3D_ovr_20(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_20_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    private z_GetGammaTableI3D_ovr_20 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_20_anh000010 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_GetGammaTableI3D_ovr_20(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_GetGammaTableI3D_ovr_20_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_GetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_GetGammaTableI3D_ovr_18_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     z_GetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     z_GetGammaTableI3D_ovr_20(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_24(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    private static function z_GetGammaTableI3D_ovr_24_anh000001(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    private z_GetGammaTableI3D_ovr_24 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    private z_GetGammaTableI3D_ovr_24_anh000001 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_GetGammaTableI3D_ovr_24(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_GetGammaTableI3D_ovr_24_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     z_GetGammaTableI3D_ovr_24(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_GetGammaTableI3D_ovr_26(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    private z_GetGammaTableI3D_ovr_26 := GetFuncOrNil&(z_GetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     z_GetGammaTableI3D_ovr_26(hDC, iEntries, puRed, puGreen, puBlue);
     
-    private static function z_SetGammaTableI3D_ovr_0(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000001(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000011(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_0_anh000111(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_SetGammaTableI3D_adr := GetFuncAdr('wglSetGammaTableI3D');
+    private z_SetGammaTableI3D_ovr_0 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000110 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000001 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000101 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000011 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_0_anh000111 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         if (puBlue<>nil) and (puBlue.Length<>0) then
@@ -74532,13 +70229,10 @@ type
         if (puBlue<>nil) and (puBlue.Length<>0) then
           z_SetGammaTableI3D_ovr_0_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue[0]) else
           z_SetGammaTableI3D_ovr_0_anh000111(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_SetGammaTableI3D_ovr_1_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_1_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_1_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_1_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_1_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_1_anh000110 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen[0], puBlue) else
@@ -74546,15 +70240,11 @@ type
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_SetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen[0], puBlue) else
         z_SetGammaTableI3D_ovr_0_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue);
-    private static function z_SetGammaTableI3D_ovr_2(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_2_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_2_anh000010(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_2_anh000110(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    private z_SetGammaTableI3D_ovr_2 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_2_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_2_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_2_anh000110 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_SetGammaTableI3D_ovr_2(hDC, iEntries, puRed[0], puGreen[0], puBlue) else
@@ -74562,11 +70252,9 @@ type
       if (puGreen<>nil) and (puGreen.Length<>0) then
         z_SetGammaTableI3D_ovr_2_anh000100(hDC, iEntries, IntPtr.Zero, puGreen[0], puBlue) else
         z_SetGammaTableI3D_ovr_2_anh000110(hDC, iEntries, IntPtr.Zero, IntPtr.Zero, puBlue);
-    private static function z_SetGammaTableI3D_ovr_3_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_3_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_3_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_3_anh000101 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen, puBlue[0]) else
@@ -74574,27 +70262,21 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue[0]) else
         z_SetGammaTableI3D_ovr_0_anh000101(hDC, iEntries, IntPtr.Zero, puGreen, IntPtr.Zero);
-    private static function z_SetGammaTableI3D_ovr_4_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_4_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_SetGammaTableI3D_ovr_0_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_5_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    private z_SetGammaTableI3D_ovr_5_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_SetGammaTableI3D_ovr_2(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_SetGammaTableI3D_ovr_2_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_6(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_6_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_6_anh000001(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_6_anh000101(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_6 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_6_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_6_anh000001 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_6_anh000101 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_6(hDC, iEntries, puRed[0], puGreen, puBlue[0]) else
@@ -74602,21 +70284,18 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_6_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue[0]) else
         z_SetGammaTableI3D_ovr_6_anh000101(hDC, iEntries, IntPtr.Zero, puGreen, IntPtr.Zero);
-    private static function z_SetGammaTableI3D_ovr_7_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_7_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_SetGammaTableI3D_ovr_6(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_SetGammaTableI3D_ovr_6_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_8(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_8_anh000100(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    private z_SetGammaTableI3D_ovr_8 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_8_anh000100 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: array of UInt16; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     if (puRed<>nil) and (puRed.Length<>0) then
       z_SetGammaTableI3D_ovr_8(hDC, iEntries, puRed[0], puGreen, puBlue) else
       z_SetGammaTableI3D_ovr_8_anh000100(hDC, iEntries, IntPtr.Zero, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen[0], puBlue[0]) else
@@ -74624,39 +70303,35 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_0_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue[0]) else
         z_SetGammaTableI3D_ovr_0_anh000011(hDC, iEntries, puRed, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_SetGammaTableI3D_ovr_0_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_SetGammaTableI3D_ovr_2(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_SetGammaTableI3D_ovr_2_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_SetGammaTableI3D_ovr_0_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     z_SetGammaTableI3D_ovr_0(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     z_SetGammaTableI3D_ovr_2(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_SetGammaTableI3D_ovr_6(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_SetGammaTableI3D_ovr_6_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     z_SetGammaTableI3D_ovr_6(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; var puRed: UInt16; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     z_SetGammaTableI3D_ovr_8(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_18(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_18_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_18_anh000001(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_18_anh000011(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: array of UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_18 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_18_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_18_anh000001 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_18_anh000011 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: array of UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen[0], puBlue[0]) else
@@ -74664,163 +70339,149 @@ type
       if (puBlue<>nil) and (puBlue.Length<>0) then
         z_SetGammaTableI3D_ovr_18_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue[0]) else
         z_SetGammaTableI3D_ovr_18_anh000011(hDC, iEntries, puRed, IntPtr.Zero, IntPtr.Zero);
-    private static function z_SetGammaTableI3D_ovr_19_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; var puBlue: UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_19_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; var puBlue: UInt16): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_SetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_SetGammaTableI3D_ovr_18_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    private static function z_SetGammaTableI3D_ovr_20(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_20_anh000010(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: IntPtr): UInt32 :=
+    private z_SetGammaTableI3D_ovr_20 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_20_anh000010 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: array of UInt16; puBlue: IntPtr): Bool :=
     if (puGreen<>nil) and (puGreen.Length<>0) then
       z_SetGammaTableI3D_ovr_20(hDC, iEntries, puRed, puGreen[0], puBlue) else
       z_SetGammaTableI3D_ovr_20_anh000010(hDC, iEntries, puRed, IntPtr.Zero, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: array of UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_SetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_SetGammaTableI3D_ovr_18_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; var puBlue: UInt16): Bool :=
     z_SetGammaTableI3D_ovr_18(hDC, iEntries, puRed, puGreen, puBlue);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; var puGreen: UInt16; puBlue: IntPtr): Bool :=
     z_SetGammaTableI3D_ovr_20(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_24(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    private static function z_SetGammaTableI3D_ovr_24_anh000001(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: array of UInt16): UInt32 :=
+    private z_SetGammaTableI3D_ovr_24 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    private z_SetGammaTableI3D_ovr_24_anh000001 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: array of UInt16): Bool :=
     if (puBlue<>nil) and (puBlue.Length<>0) then
       z_SetGammaTableI3D_ovr_24(hDC, iEntries, puRed, puGreen, puBlue[0]) else
       z_SetGammaTableI3D_ovr_24_anh000001(hDC, iEntries, puRed, puGreen, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; var puBlue: UInt16): Bool :=
     z_SetGammaTableI3D_ovr_24(hDC, iEntries, puRed, puGreen, puBlue);
-    private static function z_SetGammaTableI3D_ovr_26(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglSetGammaTableI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SetGammaTableI3D(hDC: GDI_DC; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): UInt32 :=
+    private z_SetGammaTableI3D_ovr_26 := GetFuncOrNil&(z_SetGammaTableI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SetGammaTableI3D(hDC: gdi_device_context; iEntries: Int32; puRed: IntPtr; puGreen: IntPtr; puBlue: IntPtr): Bool :=
     z_SetGammaTableI3D_ovr_26(hDC, iEntries, puRed, puGreen, puBlue);
     
   end;
   
   [PCUNotRestore]
-  wglGenlockI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglGenlockI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_genlock';
     
-    private static function z_EnableGenlockI3D_ovr_0(hDC: GDI_DC): UInt32;
-    external 'opengl32.dll' name 'wglEnableGenlockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnableGenlockI3D(hDC: GDI_DC): UInt32 :=
+    private z_EnableGenlockI3D_adr := GetFuncAdr('wglEnableGenlockI3D');
+    private z_EnableGenlockI3D_ovr_0 := GetFuncOrNil&(z_EnableGenlockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnableGenlockI3D(hDC: gdi_device_context): Bool :=
     z_EnableGenlockI3D_ovr_0(hDC);
     
-    private static function z_DisableGenlockI3D_ovr_0(hDC: GDI_DC): UInt32;
-    external 'opengl32.dll' name 'wglDisableGenlockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DisableGenlockI3D(hDC: GDI_DC): UInt32 :=
+    private z_DisableGenlockI3D_adr := GetFuncAdr('wglDisableGenlockI3D');
+    private z_DisableGenlockI3D_ovr_0 := GetFuncOrNil&(z_DisableGenlockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DisableGenlockI3D(hDC: gdi_device_context): Bool :=
     z_DisableGenlockI3D_ovr_0(hDC);
     
-    private static function z_IsEnabledGenlockI3D_ovr_0(hDC: GDI_DC; var pFlag: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledGenlockI3D';
-    private static function z_IsEnabledGenlockI3D_ovr_0_anh001(hDC: GDI_DC; pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledGenlockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledGenlockI3D(hDC: GDI_DC; pFlag: array of UInt32): UInt32 :=
+    private z_IsEnabledGenlockI3D_adr := GetFuncAdr('wglIsEnabledGenlockI3D');
+    private z_IsEnabledGenlockI3D_ovr_0 := GetFuncOrNil&(z_IsEnabledGenlockI3D_adr);
+    private z_IsEnabledGenlockI3D_ovr_0_anh001 := GetFuncOrNil&(z_IsEnabledGenlockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledGenlockI3D(hDC: gdi_device_context; pFlag: array of Bool): Bool :=
     if (pFlag<>nil) and (pFlag.Length<>0) then
       z_IsEnabledGenlockI3D_ovr_0(hDC, pFlag[0]) else
       z_IsEnabledGenlockI3D_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledGenlockI3D(hDC: GDI_DC; var pFlag: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledGenlockI3D(hDC: gdi_device_context; var pFlag: Bool): Bool :=
     z_IsEnabledGenlockI3D_ovr_0(hDC, pFlag);
-    private static function z_IsEnabledGenlockI3D_ovr_2(hDC: GDI_DC; pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledGenlockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledGenlockI3D(hDC: GDI_DC; pFlag: IntPtr): UInt32 :=
+    private z_IsEnabledGenlockI3D_ovr_2 := GetFuncOrNil&(z_IsEnabledGenlockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledGenlockI3D(hDC: gdi_device_context; pFlag: IntPtr): Bool :=
     z_IsEnabledGenlockI3D_ovr_2(hDC, pFlag);
     
-    private static function z_GenlockSourceI3D_ovr_0(hDC: GDI_DC; uSource: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGenlockSourceI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GenlockSourceI3D(hDC: GDI_DC; uSource: UInt32): UInt32 :=
+    private z_GenlockSourceI3D_adr := GetFuncAdr('wglGenlockSourceI3D');
+    private z_GenlockSourceI3D_ovr_0 := GetFuncOrNil&(z_GenlockSourceI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenlockSourceI3D(hDC: gdi_device_context; uSource: UInt32): Bool :=
     z_GenlockSourceI3D_ovr_0(hDC, uSource);
     
-    private static function z_GetGenlockSourceI3D_ovr_0(hDC: GDI_DC; var uSource: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceI3D';
-    private static function z_GetGenlockSourceI3D_ovr_0_anh001(hDC: GDI_DC; uSource: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceI3D(hDC: GDI_DC; uSource: array of UInt32): UInt32 :=
+    private z_GetGenlockSourceI3D_adr := GetFuncAdr('wglGetGenlockSourceI3D');
+    private z_GetGenlockSourceI3D_ovr_0 := GetFuncOrNil&(z_GetGenlockSourceI3D_adr);
+    private z_GetGenlockSourceI3D_ovr_0_anh001 := GetFuncOrNil&(z_GetGenlockSourceI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceI3D(hDC: gdi_device_context; uSource: array of UInt32): Bool :=
     if (uSource<>nil) and (uSource.Length<>0) then
       z_GetGenlockSourceI3D_ovr_0(hDC, uSource[0]) else
       z_GetGenlockSourceI3D_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceI3D(hDC: GDI_DC; var uSource: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceI3D(hDC: gdi_device_context; var uSource: UInt32): Bool :=
     z_GetGenlockSourceI3D_ovr_0(hDC, uSource);
-    private static function z_GetGenlockSourceI3D_ovr_2(hDC: GDI_DC; uSource: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceI3D(hDC: GDI_DC; uSource: IntPtr): UInt32 :=
+    private z_GetGenlockSourceI3D_ovr_2 := GetFuncOrNil&(z_GetGenlockSourceI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceI3D(hDC: gdi_device_context; uSource: IntPtr): Bool :=
     z_GetGenlockSourceI3D_ovr_2(hDC, uSource);
     
-    private static function z_GenlockSourceEdgeI3D_ovr_0(hDC: GDI_DC; uEdge: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGenlockSourceEdgeI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GenlockSourceEdgeI3D(hDC: GDI_DC; uEdge: UInt32): UInt32 :=
+    private z_GenlockSourceEdgeI3D_adr := GetFuncAdr('wglGenlockSourceEdgeI3D');
+    private z_GenlockSourceEdgeI3D_ovr_0 := GetFuncOrNil&(z_GenlockSourceEdgeI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenlockSourceEdgeI3D(hDC: gdi_device_context; uEdge: UInt32): Bool :=
     z_GenlockSourceEdgeI3D_ovr_0(hDC, uEdge);
     
-    private static function z_GetGenlockSourceEdgeI3D_ovr_0(hDC: GDI_DC; var uEdge: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceEdgeI3D';
-    private static function z_GetGenlockSourceEdgeI3D_ovr_0_anh001(hDC: GDI_DC; uEdge: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceEdgeI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceEdgeI3D(hDC: GDI_DC; uEdge: array of UInt32): UInt32 :=
+    private z_GetGenlockSourceEdgeI3D_adr := GetFuncAdr('wglGetGenlockSourceEdgeI3D');
+    private z_GetGenlockSourceEdgeI3D_ovr_0 := GetFuncOrNil&(z_GetGenlockSourceEdgeI3D_adr);
+    private z_GetGenlockSourceEdgeI3D_ovr_0_anh001 := GetFuncOrNil&(z_GetGenlockSourceEdgeI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceEdgeI3D(hDC: gdi_device_context; uEdge: array of UInt32): Bool :=
     if (uEdge<>nil) and (uEdge.Length<>0) then
       z_GetGenlockSourceEdgeI3D_ovr_0(hDC, uEdge[0]) else
       z_GetGenlockSourceEdgeI3D_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceEdgeI3D(hDC: GDI_DC; var uEdge: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceEdgeI3D(hDC: gdi_device_context; var uEdge: UInt32): Bool :=
     z_GetGenlockSourceEdgeI3D_ovr_0(hDC, uEdge);
-    private static function z_GetGenlockSourceEdgeI3D_ovr_2(hDC: GDI_DC; uEdge: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceEdgeI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceEdgeI3D(hDC: GDI_DC; uEdge: IntPtr): UInt32 :=
+    private z_GetGenlockSourceEdgeI3D_ovr_2 := GetFuncOrNil&(z_GetGenlockSourceEdgeI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceEdgeI3D(hDC: gdi_device_context; uEdge: IntPtr): Bool :=
     z_GetGenlockSourceEdgeI3D_ovr_2(hDC, uEdge);
     
-    private static function z_GenlockSampleRateI3D_ovr_0(hDC: GDI_DC; uRate: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGenlockSampleRateI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GenlockSampleRateI3D(hDC: GDI_DC; uRate: UInt32): UInt32 :=
+    private z_GenlockSampleRateI3D_adr := GetFuncAdr('wglGenlockSampleRateI3D');
+    private z_GenlockSampleRateI3D_ovr_0 := GetFuncOrNil&(z_GenlockSampleRateI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenlockSampleRateI3D(hDC: gdi_device_context; uRate: UInt32): Bool :=
     z_GenlockSampleRateI3D_ovr_0(hDC, uRate);
     
-    private static function z_GetGenlockSampleRateI3D_ovr_0(hDC: GDI_DC; var uRate: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSampleRateI3D';
-    private static function z_GetGenlockSampleRateI3D_ovr_0_anh001(hDC: GDI_DC; uRate: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSampleRateI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSampleRateI3D(hDC: GDI_DC; uRate: array of UInt32): UInt32 :=
+    private z_GetGenlockSampleRateI3D_adr := GetFuncAdr('wglGetGenlockSampleRateI3D');
+    private z_GetGenlockSampleRateI3D_ovr_0 := GetFuncOrNil&(z_GetGenlockSampleRateI3D_adr);
+    private z_GetGenlockSampleRateI3D_ovr_0_anh001 := GetFuncOrNil&(z_GetGenlockSampleRateI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSampleRateI3D(hDC: gdi_device_context; uRate: array of UInt32): Bool :=
     if (uRate<>nil) and (uRate.Length<>0) then
       z_GetGenlockSampleRateI3D_ovr_0(hDC, uRate[0]) else
       z_GetGenlockSampleRateI3D_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSampleRateI3D(hDC: GDI_DC; var uRate: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSampleRateI3D(hDC: gdi_device_context; var uRate: UInt32): Bool :=
     z_GetGenlockSampleRateI3D_ovr_0(hDC, uRate);
-    private static function z_GetGenlockSampleRateI3D_ovr_2(hDC: GDI_DC; uRate: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSampleRateI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSampleRateI3D(hDC: GDI_DC; uRate: IntPtr): UInt32 :=
+    private z_GetGenlockSampleRateI3D_ovr_2 := GetFuncOrNil&(z_GetGenlockSampleRateI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSampleRateI3D(hDC: gdi_device_context; uRate: IntPtr): Bool :=
     z_GetGenlockSampleRateI3D_ovr_2(hDC, uRate);
     
-    private static function z_GenlockSourceDelayI3D_ovr_0(hDC: GDI_DC; uDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGenlockSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GenlockSourceDelayI3D(hDC: GDI_DC; uDelay: UInt32): UInt32 :=
+    private z_GenlockSourceDelayI3D_adr := GetFuncAdr('wglGenlockSourceDelayI3D');
+    private z_GenlockSourceDelayI3D_ovr_0 := GetFuncOrNil&(z_GenlockSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GenlockSourceDelayI3D(hDC: gdi_device_context; uDelay: UInt32): Bool :=
     z_GenlockSourceDelayI3D_ovr_0(hDC, uDelay);
     
-    private static function z_GetGenlockSourceDelayI3D_ovr_0(hDC: GDI_DC; var uDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceDelayI3D';
-    private static function z_GetGenlockSourceDelayI3D_ovr_0_anh001(hDC: GDI_DC; uDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceDelayI3D(hDC: GDI_DC; uDelay: array of UInt32): UInt32 :=
+    private z_GetGenlockSourceDelayI3D_adr := GetFuncAdr('wglGetGenlockSourceDelayI3D');
+    private z_GetGenlockSourceDelayI3D_ovr_0 := GetFuncOrNil&(z_GetGenlockSourceDelayI3D_adr);
+    private z_GetGenlockSourceDelayI3D_ovr_0_anh001 := GetFuncOrNil&(z_GetGenlockSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceDelayI3D(hDC: gdi_device_context; uDelay: array of UInt32): Bool :=
     if (uDelay<>nil) and (uDelay.Length<>0) then
       z_GetGenlockSourceDelayI3D_ovr_0(hDC, uDelay[0]) else
       z_GetGenlockSourceDelayI3D_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceDelayI3D(hDC: GDI_DC; var uDelay: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceDelayI3D(hDC: gdi_device_context; var uDelay: UInt32): Bool :=
     z_GetGenlockSourceDelayI3D_ovr_0(hDC, uDelay);
-    private static function z_GetGenlockSourceDelayI3D_ovr_2(hDC: GDI_DC; uDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetGenlockSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetGenlockSourceDelayI3D(hDC: GDI_DC; uDelay: IntPtr): UInt32 :=
+    private z_GetGenlockSourceDelayI3D_ovr_2 := GetFuncOrNil&(z_GetGenlockSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGenlockSourceDelayI3D(hDC: gdi_device_context; uDelay: IntPtr): Bool :=
     z_GetGenlockSourceDelayI3D_ovr_2(hDC, uDelay);
     
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_0(hDC: GDI_DC; var uMaxLineDelay: UInt32; var uMaxPixelDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0010(hDC: GDI_DC; uMaxLineDelay: IntPtr; var uMaxPixelDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0001(hDC: GDI_DC; var uMaxLineDelay: UInt32; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0011(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: array of UInt32; uMaxPixelDelay: array of UInt32): UInt32 :=
+    private z_QueryGenlockMaxSourceDelayI3D_adr := GetFuncAdr('wglQueryGenlockMaxSourceDelayI3D');
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_0 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0010 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0001 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0011 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: array of UInt32; uMaxPixelDelay: array of UInt32): Bool :=
     if (uMaxLineDelay<>nil) and (uMaxLineDelay.Length<>0) then
       if (uMaxPixelDelay<>nil) and (uMaxPixelDelay.Length<>0) then
         z_QueryGenlockMaxSourceDelayI3D_ovr_0(hDC, uMaxLineDelay[0], uMaxPixelDelay[0]) else
@@ -74828,76 +70489,68 @@ type
       if (uMaxPixelDelay<>nil) and (uMaxPixelDelay.Length<>0) then
         z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0010(hDC, IntPtr.Zero, uMaxPixelDelay[0]) else
         z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0011(hDC, IntPtr.Zero, IntPtr.Zero);
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_1_anh0010(hDC: GDI_DC; uMaxLineDelay: IntPtr; var uMaxPixelDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: array of UInt32; var uMaxPixelDelay: UInt32): UInt32 :=
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_1_anh0010 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: array of UInt32; var uMaxPixelDelay: UInt32): Bool :=
     if (uMaxLineDelay<>nil) and (uMaxLineDelay.Length<>0) then
       z_QueryGenlockMaxSourceDelayI3D_ovr_0(hDC, uMaxLineDelay[0], uMaxPixelDelay) else
       z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0010(hDC, IntPtr.Zero, uMaxPixelDelay);
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_2(hDC: GDI_DC; var uMaxLineDelay: UInt32; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_2_anh0010(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: array of UInt32; uMaxPixelDelay: IntPtr): UInt32 :=
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_2 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_2_anh0010 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: array of UInt32; uMaxPixelDelay: IntPtr): Bool :=
     if (uMaxLineDelay<>nil) and (uMaxLineDelay.Length<>0) then
       z_QueryGenlockMaxSourceDelayI3D_ovr_2(hDC, uMaxLineDelay[0], uMaxPixelDelay) else
       z_QueryGenlockMaxSourceDelayI3D_ovr_2_anh0010(hDC, IntPtr.Zero, uMaxPixelDelay);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; var uMaxLineDelay: UInt32; uMaxPixelDelay: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; var uMaxLineDelay: UInt32; uMaxPixelDelay: array of UInt32): Bool :=
     if (uMaxPixelDelay<>nil) and (uMaxPixelDelay.Length<>0) then
       z_QueryGenlockMaxSourceDelayI3D_ovr_0(hDC, uMaxLineDelay, uMaxPixelDelay[0]) else
       z_QueryGenlockMaxSourceDelayI3D_ovr_0_anh0001(hDC, uMaxLineDelay, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; var uMaxLineDelay: UInt32; var uMaxPixelDelay: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; var uMaxLineDelay: UInt32; var uMaxPixelDelay: UInt32): Bool :=
     z_QueryGenlockMaxSourceDelayI3D_ovr_0(hDC, uMaxLineDelay, uMaxPixelDelay);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; var uMaxLineDelay: UInt32; uMaxPixelDelay: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; var uMaxLineDelay: UInt32; uMaxPixelDelay: IntPtr): Bool :=
     z_QueryGenlockMaxSourceDelayI3D_ovr_2(hDC, uMaxLineDelay, uMaxPixelDelay);
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_6(hDC: GDI_DC; uMaxLineDelay: IntPtr; var uMaxPixelDelay: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_6_anh0001(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: array of UInt32): UInt32 :=
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_6 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_6_anh0001 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: IntPtr; uMaxPixelDelay: array of UInt32): Bool :=
     if (uMaxPixelDelay<>nil) and (uMaxPixelDelay.Length<>0) then
       z_QueryGenlockMaxSourceDelayI3D_ovr_6(hDC, uMaxLineDelay, uMaxPixelDelay[0]) else
       z_QueryGenlockMaxSourceDelayI3D_ovr_6_anh0001(hDC, uMaxLineDelay, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: IntPtr; var uMaxPixelDelay: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: IntPtr; var uMaxPixelDelay: UInt32): Bool :=
     z_QueryGenlockMaxSourceDelayI3D_ovr_6(hDC, uMaxLineDelay, uMaxPixelDelay);
-    private static function z_QueryGenlockMaxSourceDelayI3D_ovr_8(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryGenlockMaxSourceDelayI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryGenlockMaxSourceDelayI3D(hDC: GDI_DC; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): UInt32 :=
+    private z_QueryGenlockMaxSourceDelayI3D_ovr_8 := GetFuncOrNil&(z_QueryGenlockMaxSourceDelayI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryGenlockMaxSourceDelayI3D(hDC: gdi_device_context; uMaxLineDelay: IntPtr; uMaxPixelDelay: IntPtr): Bool :=
     z_QueryGenlockMaxSourceDelayI3D_ovr_8(hDC, uMaxLineDelay, uMaxPixelDelay);
     
   end;
   
   [PCUNotRestore]
-  wglImageBufferI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglImageBufferI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_image_buffer';
     
-    private static function z_CreateImageBufferI3D_ovr_0(hDC: GDI_DC; dwSize: UInt32; uFlags: UInt32): IntPtr;
-    external 'opengl32.dll' name 'wglCreateImageBufferI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateImageBufferI3D(hDC: GDI_DC; dwSize: UInt32; uFlags: UInt32): IntPtr :=
+    private z_CreateImageBufferI3D_adr := GetFuncAdr('wglCreateImageBufferI3D');
+    private z_CreateImageBufferI3D_ovr_0 := GetFuncOrNil&(z_CreateImageBufferI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateImageBufferI3D(hDC: gdi_device_context; dwSize: UInt32; uFlags: UInt32): IntPtr :=
     z_CreateImageBufferI3D_ovr_0(hDC, dwSize, uFlags);
     
-    private static function z_DestroyImageBufferI3D_ovr_0(hDC: GDI_DC; pAddress: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDestroyImageBufferI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DestroyImageBufferI3D(hDC: GDI_DC; pAddress: IntPtr): UInt32 :=
+    private z_DestroyImageBufferI3D_adr := GetFuncAdr('wglDestroyImageBufferI3D');
+    private z_DestroyImageBufferI3D_ovr_0 := GetFuncOrNil&(z_DestroyImageBufferI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DestroyImageBufferI3D(hDC: gdi_device_context; pAddress: IntPtr): Bool :=
     z_DestroyImageBufferI3D_ovr_0(hDC, pAddress);
     
-    private static function z_AssociateImageBufferEventsI3D_ovr_0(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh001100(hDC: GDI_DC; pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh000010(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh001010(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh000110(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_0_anh001110(hDC: GDI_DC; pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_adr := GetFuncAdr('wglAssociateImageBufferEventsI3D');
+    private z_AssociateImageBufferEventsI3D_ovr_0 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh001100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh000010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh001010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh000110 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_0_anh001110 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       if (pAddress<>nil) and (pAddress.Length<>0) then
         if (pSize<>nil) and (pSize.Length<>0) then
@@ -74913,13 +70566,10 @@ type
         if (pSize<>nil) and (pSize.Length<>0) then
           z_AssociateImageBufferEventsI3D_ovr_0_anh001100(hDC, IntPtr.Zero, IntPtr.Zero, pSize[0], count) else
           z_AssociateImageBufferEventsI3D_ovr_0_anh001110(hDC, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_1_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_1_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_1_anh001100(hDC: GDI_DC; pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_1_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_1_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_1_anh001100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       if (pAddress<>nil) and (pAddress.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent[0], pAddress[0], pSize, count) else
@@ -74927,15 +70577,11 @@ type
       if (pAddress<>nil) and (pAddress.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0_anh001000(hDC, IntPtr.Zero, pAddress[0], pSize, count) else
         z_AssociateImageBufferEventsI3D_ovr_0_anh001100(hDC, IntPtr.Zero, IntPtr.Zero, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_2(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_2_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_2_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_2_anh001100(hDC: GDI_DC; pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_2 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_2_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_2_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_2_anh001100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       if (pAddress<>nil) and (pAddress.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_2(hDC, pEvent[0], pAddress[0], pSize, count) else
@@ -74943,11 +70589,9 @@ type
       if (pAddress<>nil) and (pAddress.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_2_anh001000(hDC, IntPtr.Zero, pAddress[0], pSize, count) else
         z_AssociateImageBufferEventsI3D_ovr_2_anh001100(hDC, IntPtr.Zero, IntPtr.Zero, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_3_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_3_anh001010(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_3_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_3_anh001010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent[0], pAddress, pSize[0], count) else
@@ -74955,27 +70599,21 @@ type
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0_anh001000(hDC, IntPtr.Zero, pAddress, pSize[0], count) else
         z_AssociateImageBufferEventsI3D_ovr_0_anh001010(hDC, IntPtr.Zero, pAddress, IntPtr.Zero, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_4_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_4_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent[0], pAddress, pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_0_anh001000(hDC, IntPtr.Zero, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_5_anh001000(hDC: GDI_DC; pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_5_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_2(hDC, pEvent[0], pAddress, pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_2_anh001000(hDC, IntPtr.Zero, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_6(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_6_anh001000(hDC: GDI_DC; pEvent: IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_6_anh000010(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_6_anh001010(hDC: GDI_DC; pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: pointer; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_6 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_6_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_6_anh000010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_6_anh001010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: pointer; pSize: array of UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_6(hDC, pEvent[0], pAddress, pSize[0], count) else
@@ -74983,25 +70621,20 @@ type
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_6_anh001000(hDC, IntPtr.Zero, pAddress, pSize[0], count) else
         z_AssociateImageBufferEventsI3D_ovr_6_anh001010(hDC, IntPtr.Zero, pAddress, IntPtr.Zero, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_7_anh001000(hDC: GDI_DC; pEvent: IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_7_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_6(hDC, pEvent[0], pAddress, pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_6_anh001000(hDC, IntPtr.Zero, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_8(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_8_anh001000(hDC: GDI_DC; pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: array of IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_8 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_8_anh001000 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: array of IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): Bool :=
     if (pEvent<>nil) and (pEvent.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_8(hDC, pEvent[0], pAddress, pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_8_anh001000(hDC, IntPtr.Zero, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_9_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_9_anh000110(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_9_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_9_anh000110 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent, pAddress[0], pSize[0], count) else
@@ -75009,43 +70642,37 @@ type
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_0_anh000100(hDC, pEvent, IntPtr.Zero, pSize[0], count) else
         z_AssociateImageBufferEventsI3D_ovr_0_anh000110(hDC, pEvent, IntPtr.Zero, IntPtr.Zero, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_10_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_10_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent, pAddress[0], pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_0_anh000100(hDC, pEvent, IntPtr.Zero, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_11_anh000100(hDC: GDI_DC; var pEvent: IntPtr; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_11_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_2(hDC, pEvent, pAddress[0], pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_2_anh000100(hDC, pEvent, IntPtr.Zero, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pSize<>nil) and (pSize.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent, pAddress, pSize[0], count) else
       z_AssociateImageBufferEventsI3D_ovr_0_anh000010(hDC, pEvent, pAddress, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_0(hDC, pEvent, pAddress, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_2(hDC, pEvent, pAddress, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; pSize: array of UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: pointer; pSize: array of UInt32; count: UInt32): Bool :=
     if (pSize<>nil) and (pSize.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_6(hDC, pEvent, pAddress, pSize[0], count) else
       z_AssociateImageBufferEventsI3D_ovr_6_anh000010(hDC, pEvent, pAddress, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: pointer; var pSize: UInt32; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_6(hDC, pEvent, pAddress, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; var pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; var pEvent: IntPtr; pAddress: pointer; pSize: IntPtr; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_8(hDC, pEvent, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_18(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_18_anh000100(hDC: GDI_DC; pEvent: pointer; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_18_anh000010(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_18_anh000110(hDC: GDI_DC; pEvent: pointer; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_18 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_18_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_18_anh000010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_18_anh000110 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: array of IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_18(hDC, pEvent, pAddress[0], pSize[0], count) else
@@ -75053,152 +70680,141 @@ type
       if (pSize<>nil) and (pSize.Length<>0) then
         z_AssociateImageBufferEventsI3D_ovr_18_anh000100(hDC, pEvent, IntPtr.Zero, pSize[0], count) else
         z_AssociateImageBufferEventsI3D_ovr_18_anh000110(hDC, pEvent, IntPtr.Zero, IntPtr.Zero, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_19_anh000100(hDC: GDI_DC; pEvent: pointer; pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_19_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: array of IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_18(hDC, pEvent, pAddress[0], pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_18_anh000100(hDC, pEvent, IntPtr.Zero, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_20(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_20_anh000100(hDC: GDI_DC; pEvent: pointer; pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_20 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_20_anh000100 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: array of IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_20(hDC, pEvent, pAddress[0], pSize, count) else
       z_AssociateImageBufferEventsI3D_ovr_20_anh000100(hDC, pEvent, IntPtr.Zero, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; var pAddress: IntPtr; pSize: array of UInt32; count: UInt32): Bool :=
     if (pSize<>nil) and (pSize.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_18(hDC, pEvent, pAddress, pSize[0], count) else
       z_AssociateImageBufferEventsI3D_ovr_18_anh000010(hDC, pEvent, pAddress, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; var pAddress: IntPtr; var pSize: UInt32; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_18(hDC, pEvent, pAddress, pSize, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; var pAddress: IntPtr; pSize: IntPtr; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_20(hDC, pEvent, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_24(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    private static function z_AssociateImageBufferEventsI3D_ovr_24_anh000010(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; pSize: array of UInt32; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_24 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    private z_AssociateImageBufferEventsI3D_ovr_24_anh000010 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: pointer; pSize: array of UInt32; count: UInt32): Bool :=
     if (pSize<>nil) and (pSize.Length<>0) then
       z_AssociateImageBufferEventsI3D_ovr_24(hDC, pEvent, pAddress, pSize[0], count) else
       z_AssociateImageBufferEventsI3D_ovr_24_anh000010(hDC, pEvent, pAddress, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; var pSize: UInt32; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: pointer; var pSize: UInt32; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_24(hDC, pEvent, pAddress, pSize, count);
-    private static function z_AssociateImageBufferEventsI3D_ovr_26(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglAssociateImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AssociateImageBufferEventsI3D(hDC: GDI_DC; pEvent: pointer; pAddress: pointer; pSize: IntPtr; count: UInt32): UInt32 :=
+    private z_AssociateImageBufferEventsI3D_ovr_26 := GetFuncOrNil&(z_AssociateImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateImageBufferEventsI3D(hDC: gdi_device_context; pEvent: pointer; pAddress: pointer; pSize: IntPtr; count: UInt32): Bool :=
     z_AssociateImageBufferEventsI3D_ovr_26(hDC, pEvent, pAddress, pSize, count);
     
-    private static function z_ReleaseImageBufferEventsI3D_ovr_0(hDC: GDI_DC; var pAddress: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglReleaseImageBufferEventsI3D';
-    private static function z_ReleaseImageBufferEventsI3D_ovr_0_anh0010(hDC: GDI_DC; pAddress: IntPtr; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglReleaseImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseImageBufferEventsI3D(hDC: GDI_DC; pAddress: array of IntPtr; count: UInt32): UInt32 :=
+    private z_ReleaseImageBufferEventsI3D_adr := GetFuncAdr('wglReleaseImageBufferEventsI3D');
+    private z_ReleaseImageBufferEventsI3D_ovr_0 := GetFuncOrNil&(z_ReleaseImageBufferEventsI3D_adr);
+    private z_ReleaseImageBufferEventsI3D_ovr_0_anh0010 := GetFuncOrNil&(z_ReleaseImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseImageBufferEventsI3D(hDC: gdi_device_context; pAddress: array of IntPtr; count: UInt32): Bool :=
     if (pAddress<>nil) and (pAddress.Length<>0) then
       z_ReleaseImageBufferEventsI3D_ovr_0(hDC, pAddress[0], count) else
       z_ReleaseImageBufferEventsI3D_ovr_0_anh0010(hDC, IntPtr.Zero, count);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseImageBufferEventsI3D(hDC: GDI_DC; var pAddress: IntPtr; count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseImageBufferEventsI3D(hDC: gdi_device_context; var pAddress: IntPtr; count: UInt32): Bool :=
     z_ReleaseImageBufferEventsI3D_ovr_0(hDC, pAddress, count);
-    private static function z_ReleaseImageBufferEventsI3D_ovr_2(hDC: GDI_DC; pAddress: pointer; count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglReleaseImageBufferEventsI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseImageBufferEventsI3D(hDC: GDI_DC; pAddress: pointer; count: UInt32): UInt32 :=
+    private z_ReleaseImageBufferEventsI3D_ovr_2 := GetFuncOrNil&(z_ReleaseImageBufferEventsI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseImageBufferEventsI3D(hDC: gdi_device_context; pAddress: pointer; count: UInt32): Bool :=
     z_ReleaseImageBufferEventsI3D_ovr_2(hDC, pAddress, count);
     
   end;
   
   [PCUNotRestore]
-  wglSwapFrameLockI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglSwapFrameLockI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_swap_frame_lock';
     
-    private static function z_EnableFrameLockI3D_ovr_0: UInt32;
-    external 'opengl32.dll' name 'wglEnableFrameLockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnableFrameLockI3D: UInt32 :=
+    private z_EnableFrameLockI3D_adr := GetFuncAdr('wglEnableFrameLockI3D');
+    private z_EnableFrameLockI3D_ovr_0 := GetFuncOrNil&(z_EnableFrameLockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnableFrameLockI3D: Bool :=
     z_EnableFrameLockI3D_ovr_0;
     
-    private static function z_DisableFrameLockI3D_ovr_0: UInt32;
-    external 'opengl32.dll' name 'wglDisableFrameLockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DisableFrameLockI3D: UInt32 :=
+    private z_DisableFrameLockI3D_adr := GetFuncAdr('wglDisableFrameLockI3D');
+    private z_DisableFrameLockI3D_ovr_0 := GetFuncOrNil&(z_DisableFrameLockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DisableFrameLockI3D: Bool :=
     z_DisableFrameLockI3D_ovr_0;
     
-    private static function z_IsEnabledFrameLockI3D_ovr_0(var pFlag: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledFrameLockI3D';
-    private static function z_IsEnabledFrameLockI3D_ovr_0_anh01(pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledFrameLockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledFrameLockI3D(pFlag: array of UInt32): UInt32 :=
+    private z_IsEnabledFrameLockI3D_adr := GetFuncAdr('wglIsEnabledFrameLockI3D');
+    private z_IsEnabledFrameLockI3D_ovr_0 := GetFuncOrNil&(z_IsEnabledFrameLockI3D_adr);
+    private z_IsEnabledFrameLockI3D_ovr_0_anh01 := GetFuncOrNil&(z_IsEnabledFrameLockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledFrameLockI3D(pFlag: array of Bool): Bool :=
     if (pFlag<>nil) and (pFlag.Length<>0) then
       z_IsEnabledFrameLockI3D_ovr_0(pFlag[0]) else
       z_IsEnabledFrameLockI3D_ovr_0_anh01(IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledFrameLockI3D(var pFlag: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledFrameLockI3D(var pFlag: Bool): Bool :=
     z_IsEnabledFrameLockI3D_ovr_0(pFlag);
-    private static function z_IsEnabledFrameLockI3D_ovr_2(pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglIsEnabledFrameLockI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsEnabledFrameLockI3D(pFlag: IntPtr): UInt32 :=
+    private z_IsEnabledFrameLockI3D_ovr_2 := GetFuncOrNil&(z_IsEnabledFrameLockI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function IsEnabledFrameLockI3D(pFlag: IntPtr): Bool :=
     z_IsEnabledFrameLockI3D_ovr_2(pFlag);
     
-    private static function z_QueryFrameLockMasterI3D_ovr_0(var pFlag: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameLockMasterI3D';
-    private static function z_QueryFrameLockMasterI3D_ovr_0_anh01(pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameLockMasterI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameLockMasterI3D(pFlag: array of UInt32): UInt32 :=
+    private z_QueryFrameLockMasterI3D_adr := GetFuncAdr('wglQueryFrameLockMasterI3D');
+    private z_QueryFrameLockMasterI3D_ovr_0 := GetFuncOrNil&(z_QueryFrameLockMasterI3D_adr);
+    private z_QueryFrameLockMasterI3D_ovr_0_anh01 := GetFuncOrNil&(z_QueryFrameLockMasterI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameLockMasterI3D(pFlag: array of Bool): Bool :=
     if (pFlag<>nil) and (pFlag.Length<>0) then
       z_QueryFrameLockMasterI3D_ovr_0(pFlag[0]) else
       z_QueryFrameLockMasterI3D_ovr_0_anh01(IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameLockMasterI3D(var pFlag: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameLockMasterI3D(var pFlag: Bool): Bool :=
     z_QueryFrameLockMasterI3D_ovr_0(pFlag);
-    private static function z_QueryFrameLockMasterI3D_ovr_2(pFlag: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameLockMasterI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameLockMasterI3D(pFlag: IntPtr): UInt32 :=
+    private z_QueryFrameLockMasterI3D_ovr_2 := GetFuncOrNil&(z_QueryFrameLockMasterI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameLockMasterI3D(pFlag: IntPtr): Bool :=
     z_QueryFrameLockMasterI3D_ovr_2(pFlag);
     
   end;
   
   [PCUNotRestore]
-  wglSwapFrameUsageI3D = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglSwapFrameUsageI3D = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'I3D_swap_frame_usage';
     
-    private static function z_GetFrameUsageI3D_ovr_0(var pUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglGetFrameUsageI3D';
-    private static function z_GetFrameUsageI3D_ovr_0_anh01(pUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetFrameUsageI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFrameUsageI3D(pUsage: array of single): UInt32 :=
+    private z_GetFrameUsageI3D_adr := GetFuncAdr('wglGetFrameUsageI3D');
+    private z_GetFrameUsageI3D_ovr_0 := GetFuncOrNil&(z_GetFrameUsageI3D_adr);
+    private z_GetFrameUsageI3D_ovr_0_anh01 := GetFuncOrNil&(z_GetFrameUsageI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFrameUsageI3D(pUsage: array of single): Bool :=
     if (pUsage<>nil) and (pUsage.Length<>0) then
       z_GetFrameUsageI3D_ovr_0(pUsage[0]) else
       z_GetFrameUsageI3D_ovr_0_anh01(IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFrameUsageI3D(var pUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFrameUsageI3D(var pUsage: single): Bool :=
     z_GetFrameUsageI3D_ovr_0(pUsage);
-    private static function z_GetFrameUsageI3D_ovr_2(pUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetFrameUsageI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFrameUsageI3D(pUsage: IntPtr): UInt32 :=
+    private z_GetFrameUsageI3D_ovr_2 := GetFuncOrNil&(z_GetFrameUsageI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFrameUsageI3D(pUsage: IntPtr): Bool :=
     z_GetFrameUsageI3D_ovr_2(pUsage);
     
-    private static function z_BeginFrameTrackingI3D_ovr_0: UInt32;
-    external 'opengl32.dll' name 'wglBeginFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BeginFrameTrackingI3D: UInt32 :=
+    private z_BeginFrameTrackingI3D_adr := GetFuncAdr('wglBeginFrameTrackingI3D');
+    private z_BeginFrameTrackingI3D_ovr_0 := GetFuncOrNil&(z_BeginFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BeginFrameTrackingI3D: Bool :=
     z_BeginFrameTrackingI3D_ovr_0;
     
-    private static function z_EndFrameTrackingI3D_ovr_0: UInt32;
-    external 'opengl32.dll' name 'wglEndFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EndFrameTrackingI3D: UInt32 :=
+    private z_EndFrameTrackingI3D_adr := GetFuncAdr('wglEndFrameTrackingI3D');
+    private z_EndFrameTrackingI3D_ovr_0 := GetFuncOrNil&(z_EndFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EndFrameTrackingI3D: Bool :=
     z_EndFrameTrackingI3D_ovr_0;
     
-    private static function z_QueryFrameTrackingI3D_ovr_0(var pFrameCount: UInt32; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0010(var pFrameCount: UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0110(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0001(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0101(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0011(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_0_anh0111(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): UInt32 :=
+    private z_QueryFrameTrackingI3D_adr := GetFuncAdr('wglQueryFrameTrackingI3D');
+    private z_QueryFrameTrackingI3D_ovr_0 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0110 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0001 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0101 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0011 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_0_anh0111 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
         if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
@@ -75214,13 +70830,10 @@ type
         if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
           z_QueryFrameTrackingI3D_ovr_0_anh0110(IntPtr.Zero, IntPtr.Zero, pLastMissedUsage[0]) else
           z_QueryFrameTrackingI3D_ovr_0_anh0111(IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_QueryFrameTrackingI3D_ovr_1_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_1_anh0010(var pFrameCount: UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_1_anh0110(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; var pLastMissedUsage: single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_1_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_1_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_1_anh0110 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; var pLastMissedUsage: single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0(pFrameCount[0], pMissedFrames[0], pLastMissedUsage) else
@@ -75228,15 +70841,11 @@ type
       if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0_anh0100(IntPtr.Zero, pMissedFrames[0], pLastMissedUsage) else
         z_QueryFrameTrackingI3D_ovr_0_anh0110(IntPtr.Zero, IntPtr.Zero, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_2(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_2_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_2_anh0010(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_2_anh0110(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_2 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_2_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_2_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_2_anh0110 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_2(pFrameCount[0], pMissedFrames[0], pLastMissedUsage) else
@@ -75244,11 +70853,9 @@ type
       if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_2_anh0100(IntPtr.Zero, pMissedFrames[0], pLastMissedUsage) else
         z_QueryFrameTrackingI3D_ovr_2_anh0110(IntPtr.Zero, IntPtr.Zero, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_3_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_3_anh0101(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; pLastMissedUsage: array of single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_3_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_3_anh0101 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; pLastMissedUsage: array of single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0(pFrameCount[0], pMissedFrames, pLastMissedUsage[0]) else
@@ -75256,27 +70863,21 @@ type
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage[0]) else
         z_QueryFrameTrackingI3D_ovr_0_anh0101(IntPtr.Zero, pMissedFrames, IntPtr.Zero);
-    private static function z_QueryFrameTrackingI3D_ovr_4_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_4_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; var pLastMissedUsage: single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_0(pFrameCount[0], pMissedFrames, pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_0_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_5_anh0100(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_5_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_2(pFrameCount[0], pMissedFrames, pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_2_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_6(var pFrameCount: UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_6_anh0100(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_6_anh0001(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_6_anh0101(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; pLastMissedUsage: array of single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_6 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_6_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_6_anh0001 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_6_anh0101 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; pLastMissedUsage: array of single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_6(pFrameCount[0], pMissedFrames, pLastMissedUsage[0]) else
@@ -75284,21 +70885,18 @@ type
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_6_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage[0]) else
         z_QueryFrameTrackingI3D_ovr_6_anh0101(IntPtr.Zero, pMissedFrames, IntPtr.Zero);
-    private static function z_QueryFrameTrackingI3D_ovr_7_anh0100(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_7_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_6(pFrameCount[0], pMissedFrames, pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_6_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_8(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_8_anh0100(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_8 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_8_anh0100 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: array of UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): Bool :=
     if (pFrameCount<>nil) and (pFrameCount.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_8(pFrameCount[0], pMissedFrames, pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_8_anh0100(IntPtr.Zero, pMissedFrames, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0(pFrameCount, pMissedFrames[0], pLastMissedUsage[0]) else
@@ -75306,39 +70904,35 @@ type
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_0_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage[0]) else
         z_QueryFrameTrackingI3D_ovr_0_anh0011(pFrameCount, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; var pLastMissedUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; var pLastMissedUsage: single): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_0(pFrameCount, pMissedFrames[0], pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_0_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_2(pFrameCount, pMissedFrames[0], pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_2_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: array of single): Bool :=
     if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_0(pFrameCount, pMissedFrames, pLastMissedUsage[0]) else
       z_QueryFrameTrackingI3D_ovr_0_anh0001(pFrameCount, pMissedFrames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; var pLastMissedUsage: single): Bool :=
     z_QueryFrameTrackingI3D_ovr_0(pFrameCount, pMissedFrames, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): Bool :=
     z_QueryFrameTrackingI3D_ovr_2(pFrameCount, pMissedFrames, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: array of single): Bool :=
     if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_6(pFrameCount, pMissedFrames, pLastMissedUsage[0]) else
       z_QueryFrameTrackingI3D_ovr_6_anh0001(pFrameCount, pMissedFrames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; var pLastMissedUsage: single): Bool :=
     z_QueryFrameTrackingI3D_ovr_6(pFrameCount, pMissedFrames, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(var pFrameCount: UInt32; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): Bool :=
     z_QueryFrameTrackingI3D_ovr_8(pFrameCount, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_18(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_18_anh0010(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_18_anh0001(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_18_anh0011(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_18 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_18_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_18_anh0001 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_18_anh0011 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; pLastMissedUsage: array of single): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_18(pFrameCount, pMissedFrames[0], pLastMissedUsage[0]) else
@@ -75346,268 +70940,281 @@ type
       if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
         z_QueryFrameTrackingI3D_ovr_18_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage[0]) else
         z_QueryFrameTrackingI3D_ovr_18_anh0011(pFrameCount, IntPtr.Zero, IntPtr.Zero);
-    private static function z_QueryFrameTrackingI3D_ovr_19_anh0010(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; var pLastMissedUsage: single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_19_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; var pLastMissedUsage: single): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_18(pFrameCount, pMissedFrames[0], pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_18_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_20(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_20_anh0010(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_20 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_20_anh0010 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: array of UInt32; pLastMissedUsage: IntPtr): Bool :=
     if (pMissedFrames<>nil) and (pMissedFrames.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_20(pFrameCount, pMissedFrames[0], pLastMissedUsage) else
       z_QueryFrameTrackingI3D_ovr_20_anh0010(pFrameCount, IntPtr.Zero, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: array of single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: array of single): Bool :=
     if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_18(pFrameCount, pMissedFrames, pLastMissedUsage[0]) else
       z_QueryFrameTrackingI3D_ovr_18_anh0001(pFrameCount, pMissedFrames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; var pLastMissedUsage: single): Bool :=
     z_QueryFrameTrackingI3D_ovr_18(pFrameCount, pMissedFrames, pLastMissedUsage);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; var pMissedFrames: UInt32; pLastMissedUsage: IntPtr): Bool :=
     z_QueryFrameTrackingI3D_ovr_20(pFrameCount, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_24(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    private static function z_QueryFrameTrackingI3D_ovr_24_anh0001(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: array of single): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_24 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    private z_QueryFrameTrackingI3D_ovr_24_anh0001 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: array of single): Bool :=
     if (pLastMissedUsage<>nil) and (pLastMissedUsage.Length<>0) then
       z_QueryFrameTrackingI3D_ovr_24(pFrameCount, pMissedFrames, pLastMissedUsage[0]) else
       z_QueryFrameTrackingI3D_ovr_24_anh0001(pFrameCount, pMissedFrames, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; var pLastMissedUsage: single): Bool :=
     z_QueryFrameTrackingI3D_ovr_24(pFrameCount, pMissedFrames, pLastMissedUsage);
-    private static function z_QueryFrameTrackingI3D_ovr_26(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameTrackingI3D';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): UInt32 :=
+    private z_QueryFrameTrackingI3D_ovr_26 := GetFuncOrNil&(z_QueryFrameTrackingI3D_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameTrackingI3D(pFrameCount: IntPtr; pMissedFrames: IntPtr; pLastMissedUsage: IntPtr): Bool :=
     z_QueryFrameTrackingI3D_ovr_26(pFrameCount, pMissedFrames, pLastMissedUsage);
     
   end;
   
   [PCUNotRestore]
-  wglCopyImageNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglCopyImageNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_copy_image';
     
-    private static function z_CopyImageSubDataNV_ovr_0(hSrcRC: GLContext; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; hDstRC: GLContext; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32): UInt32;
-    external 'opengl32.dll' name 'wglCopyImageSubDataNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CopyImageSubDataNV(hSrcRC: GLContext; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; hDstRC: GLContext; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32): UInt32 :=
+    private z_CopyImageSubDataNV_adr := GetFuncAdr('wglCopyImageSubDataNV');
+    private z_CopyImageSubDataNV_ovr_0 := GetFuncOrNil&(z_CopyImageSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CopyImageSubDataNV(hSrcRC: wgl_context; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; hDstRC: wgl_context; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32): Bool :=
     z_CopyImageSubDataNV_ovr_0(hSrcRC, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, hDstRC, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, width, height, depth);
     
   end;
   
   [PCUNotRestore]
-  wglDelayBeforeSwapNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglDelayBeforeSwapNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_delay_before_swap';
     
-    private static function z_DelayBeforeSwapNV_ovr_0(hDC: GDI_DC; seconds: single): UInt32;
-    external 'opengl32.dll' name 'wglDelayBeforeSwapNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DelayBeforeSwapNV(hDC: GDI_DC; seconds: single): UInt32 :=
+    private z_DelayBeforeSwapNV_adr := GetFuncAdr('wglDelayBeforeSwapNV');
+    private z_DelayBeforeSwapNV_ovr_0 := GetFuncOrNil&(z_DelayBeforeSwapNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DelayBeforeSwapNV(hDC: gdi_device_context; seconds: single): Bool :=
     z_DelayBeforeSwapNV_ovr_0(hDC, seconds);
     
   end;
   
   [PCUNotRestore]
-  wglDXInteropNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglDXInteropNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_DX_interop';
     
-    private static function z_DXSetResourceShareHandleNV_ovr_0(dxObject: IntPtr; shareHandle: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXSetResourceShareHandleNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXSetResourceShareHandleNV(dxObject: IntPtr; shareHandle: IntPtr): UInt32 :=
+    private z_DXSetResourceShareHandleNV_adr := GetFuncAdr('wglDXSetResourceShareHandleNV');
+    private z_DXSetResourceShareHandleNV_ovr_0 := GetFuncOrNil&(z_DXSetResourceShareHandleNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXSetResourceShareHandleNV(dxObject: IntPtr; shareHandle: IntPtr): Bool :=
     z_DXSetResourceShareHandleNV_ovr_0(dxObject, shareHandle);
     
-    private static function z_DXOpenDeviceNV_ovr_0(dxDevice: IntPtr): IntPtr;
-    external 'opengl32.dll' name 'wglDXOpenDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXOpenDeviceNV(dxDevice: IntPtr): IntPtr :=
+    private z_DXOpenDeviceNV_adr := GetFuncAdr('wglDXOpenDeviceNV');
+    private z_DXOpenDeviceNV_ovr_0 := GetFuncOrNil&(z_DXOpenDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXOpenDeviceNV(dxDevice: IntPtr): IntPtr :=
     z_DXOpenDeviceNV_ovr_0(dxDevice);
     
-    private static function z_DXCloseDeviceNV_ovr_0(hDevice: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXCloseDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXCloseDeviceNV(hDevice: IntPtr): UInt32 :=
+    private z_DXCloseDeviceNV_adr := GetFuncAdr('wglDXCloseDeviceNV');
+    private z_DXCloseDeviceNV_ovr_0 := GetFuncOrNil&(z_DXCloseDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXCloseDeviceNV(hDevice: IntPtr): Bool :=
     z_DXCloseDeviceNV_ovr_0(hDevice);
     
-    private static function z_DXRegisterObjectNV_ovr_0(hDevice: IntPtr; dxObject: IntPtr; name: UInt32; &type: DummyEnum; access: DummyEnum): IntPtr;
-    external 'opengl32.dll' name 'wglDXRegisterObjectNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXRegisterObjectNV(hDevice: IntPtr; dxObject: IntPtr; name: UInt32; &type: DummyEnum; access: DummyEnum): IntPtr :=
+    private z_DXRegisterObjectNV_adr := GetFuncAdr('wglDXRegisterObjectNV');
+    private z_DXRegisterObjectNV_ovr_0 := GetFuncOrNil&(z_DXRegisterObjectNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXRegisterObjectNV(hDevice: IntPtr; dxObject: IntPtr; name: UInt32; &type: DummyEnum; access: DummyEnum): IntPtr :=
     z_DXRegisterObjectNV_ovr_0(hDevice, dxObject, name, &type, access);
     
-    private static function z_DXUnregisterObjectNV_ovr_0(hDevice: IntPtr; hObject: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXUnregisterObjectNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXUnregisterObjectNV(hDevice: IntPtr; hObject: IntPtr): UInt32 :=
+    private z_DXUnregisterObjectNV_adr := GetFuncAdr('wglDXUnregisterObjectNV');
+    private z_DXUnregisterObjectNV_ovr_0 := GetFuncOrNil&(z_DXUnregisterObjectNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXUnregisterObjectNV(hDevice: IntPtr; hObject: IntPtr): Bool :=
     z_DXUnregisterObjectNV_ovr_0(hDevice, hObject);
     
-    private static function z_DXObjectAccessNV_ovr_0(hObject: IntPtr; access: DummyEnum): UInt32;
-    external 'opengl32.dll' name 'wglDXObjectAccessNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXObjectAccessNV(hObject: IntPtr; access: DummyEnum): UInt32 :=
+    private z_DXObjectAccessNV_adr := GetFuncAdr('wglDXObjectAccessNV');
+    private z_DXObjectAccessNV_ovr_0 := GetFuncOrNil&(z_DXObjectAccessNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXObjectAccessNV(hObject: IntPtr; access: DummyEnum): Bool :=
     z_DXObjectAccessNV_ovr_0(hObject, access);
     
-    private static function z_DXLockObjectsNV_ovr_0(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXLockObjectsNV';
-    private static function z_DXLockObjectsNV_ovr_0_anh0001(hDevice: IntPtr; count: Int32; hObjects: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXLockObjectsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXLockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: array of IntPtr): UInt32 :=
+    private z_DXLockObjectsNV_adr := GetFuncAdr('wglDXLockObjectsNV');
+    private z_DXLockObjectsNV_ovr_0 := GetFuncOrNil&(z_DXLockObjectsNV_adr);
+    private z_DXLockObjectsNV_ovr_0_anh0001 := GetFuncOrNil&(z_DXLockObjectsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXLockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: array of IntPtr): Bool :=
     if (hObjects<>nil) and (hObjects.Length<>0) then
       z_DXLockObjectsNV_ovr_0(hDevice, count, hObjects[0]) else
       z_DXLockObjectsNV_ovr_0_anh0001(hDevice, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXLockObjectsNV(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXLockObjectsNV(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): Bool :=
     z_DXLockObjectsNV_ovr_0(hDevice, count, hObjects);
-    private static function z_DXLockObjectsNV_ovr_2(hDevice: IntPtr; count: Int32; hObjects: pointer): UInt32;
-    external 'opengl32.dll' name 'wglDXLockObjectsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXLockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: pointer): UInt32 :=
+    private z_DXLockObjectsNV_ovr_2 := GetFuncOrNil&(z_DXLockObjectsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXLockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: pointer): Bool :=
     z_DXLockObjectsNV_ovr_2(hDevice, count, hObjects);
     
-    private static function z_DXUnlockObjectsNV_ovr_0(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXUnlockObjectsNV';
-    private static function z_DXUnlockObjectsNV_ovr_0_anh0001(hDevice: IntPtr; count: Int32; hObjects: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglDXUnlockObjectsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: array of IntPtr): UInt32 :=
+    private z_DXUnlockObjectsNV_adr := GetFuncAdr('wglDXUnlockObjectsNV');
+    private z_DXUnlockObjectsNV_ovr_0 := GetFuncOrNil&(z_DXUnlockObjectsNV_adr);
+    private z_DXUnlockObjectsNV_ovr_0_anh0001 := GetFuncOrNil&(z_DXUnlockObjectsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: array of IntPtr): Bool :=
     if (hObjects<>nil) and (hObjects.Length<>0) then
       z_DXUnlockObjectsNV_ovr_0(hDevice, count, hObjects[0]) else
       z_DXUnlockObjectsNV_ovr_0_anh0001(hDevice, count, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; var hObjects: IntPtr): Bool :=
     z_DXUnlockObjectsNV_ovr_0(hDevice, count, hObjects);
-    private static function z_DXUnlockObjectsNV_ovr_2(hDevice: IntPtr; count: Int32; hObjects: pointer): UInt32;
-    external 'opengl32.dll' name 'wglDXUnlockObjectsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: pointer): UInt32 :=
+    private z_DXUnlockObjectsNV_ovr_2 := GetFuncOrNil&(z_DXUnlockObjectsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DXUnlockObjectsNV(hDevice: IntPtr; count: Int32; hObjects: pointer): Bool :=
     z_DXUnlockObjectsNV_ovr_2(hDevice, count, hObjects);
     
   end;
   
   [PCUNotRestore]
-  wglGpuAffinityNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglGpuAffinityNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_gpu_affinity';
     
-    private static function z_EnumGpusNV_ovr_0(iGpuIndex: UInt32; var phGpu: HGPUNV): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusNV';
-    private static function z_EnumGpusNV_ovr_0_anh001(iGpuIndex: UInt32; phGpu: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusNV(iGpuIndex: UInt32; phGpu: array of HGPUNV): UInt32 :=
+    private z_EnumGpusNV_adr := GetFuncAdr('wglEnumGpusNV');
+    private z_EnumGpusNV_ovr_0 := GetFuncOrNil&(z_EnumGpusNV_adr);
+    private z_EnumGpusNV_ovr_0_anh001 := GetFuncOrNil&(z_EnumGpusNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusNV(iGpuIndex: UInt32; phGpu: array of wgl_GPU_NV): Bool :=
     if (phGpu<>nil) and (phGpu.Length<>0) then
       z_EnumGpusNV_ovr_0(iGpuIndex, phGpu[0]) else
       z_EnumGpusNV_ovr_0_anh001(iGpuIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusNV(iGpuIndex: UInt32; var phGpu: HGPUNV): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusNV(iGpuIndex: UInt32; var phGpu: wgl_GPU_NV): Bool :=
     z_EnumGpusNV_ovr_0(iGpuIndex, phGpu);
-    private static function z_EnumGpusNV_ovr_2(iGpuIndex: UInt32; phGpu: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusNV(iGpuIndex: UInt32; phGpu: IntPtr): UInt32 :=
+    private z_EnumGpusNV_ovr_2 := GetFuncOrNil&(z_EnumGpusNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusNV(iGpuIndex: UInt32; phGpu: IntPtr): Bool :=
     z_EnumGpusNV_ovr_2(iGpuIndex, phGpu);
     
-    private static function z_EnumGpuDevicesNV_ovr_0(hGpu: HGPUNV; iDeviceIndex: UInt32; lpGpuDevice: PGPU_DEVICE): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpuDevicesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpuDevicesNV(hGpu: HGPUNV; iDeviceIndex: UInt32; lpGpuDevice: PGPU_DEVICE): UInt32 :=
+    private z_EnumGpuDevicesNV_adr := GetFuncAdr('wglEnumGpuDevicesNV');
+    private z_EnumGpuDevicesNV_ovr_0 := GetFuncOrNil&(z_EnumGpuDevicesNV_adr);
+    private z_EnumGpuDevicesNV_ovr_0_anh0001 := GetFuncOrNil&(z_EnumGpuDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpuDevicesNV(hGpu: wgl_GPU_NV; iDeviceIndex: UInt32; lpGpuDevice: array of wgl_GPU_device_NV): Bool :=
+    if (lpGpuDevice<>nil) and (lpGpuDevice.Length<>0) then
+      z_EnumGpuDevicesNV_ovr_0(hGpu, iDeviceIndex, lpGpuDevice[0]) else
+      z_EnumGpuDevicesNV_ovr_0_anh0001(hGpu, iDeviceIndex, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpuDevicesNV(hGpu: wgl_GPU_NV; iDeviceIndex: UInt32; var lpGpuDevice: wgl_GPU_device_NV): Bool :=
     z_EnumGpuDevicesNV_ovr_0(hGpu, iDeviceIndex, lpGpuDevice);
+    private z_EnumGpuDevicesNV_ovr_2 := GetFuncOrNil&(z_EnumGpuDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpuDevicesNV(hGpu: wgl_GPU_NV; iDeviceIndex: UInt32; lpGpuDevice: IntPtr): Bool :=
+    z_EnumGpuDevicesNV_ovr_2(hGpu, iDeviceIndex, lpGpuDevice);
     
-    private static function z_CreateAffinityDCNV_ovr_0(var phGpuList: HGPUNV): GDI_DC;
-    external 'opengl32.dll' name 'wglCreateAffinityDCNV';
-    private static function z_CreateAffinityDCNV_ovr_0_anh01(phGpuList: IntPtr): GDI_DC;
-    external 'opengl32.dll' name 'wglCreateAffinityDCNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAffinityDCNV(phGpuList: array of HGPUNV): GDI_DC :=
+    private z_CreateAffinityDCNV_adr := GetFuncAdr('wglCreateAffinityDCNV');
+    private z_CreateAffinityDCNV_ovr_0 := GetFuncOrNil&(z_CreateAffinityDCNV_adr);
+    private z_CreateAffinityDCNV_ovr_0_anh01 := GetFuncOrNil&(z_CreateAffinityDCNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAffinityDCNV(phGpuList: array of wgl_GPU_NV): gdi_device_context :=
     if (phGpuList<>nil) and (phGpuList.Length<>0) then
       z_CreateAffinityDCNV_ovr_0(phGpuList[0]) else
       z_CreateAffinityDCNV_ovr_0_anh01(IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAffinityDCNV(var phGpuList: HGPUNV): GDI_DC :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAffinityDCNV(var phGpuList: wgl_GPU_NV): gdi_device_context :=
     z_CreateAffinityDCNV_ovr_0(phGpuList);
-    private static function z_CreateAffinityDCNV_ovr_2(phGpuList: IntPtr): GDI_DC;
-    external 'opengl32.dll' name 'wglCreateAffinityDCNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateAffinityDCNV(phGpuList: IntPtr): GDI_DC :=
+    private z_CreateAffinityDCNV_ovr_2 := GetFuncOrNil&(z_CreateAffinityDCNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAffinityDCNV(phGpuList: IntPtr): gdi_device_context :=
     z_CreateAffinityDCNV_ovr_2(phGpuList);
     
-    private static function z_EnumGpusFromAffinityDCNV_ovr_0(hAffinityDC: GDI_DC; iGpuIndex: UInt32; var hGpu: HGPUNV): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusFromAffinityDCNV';
-    private static function z_EnumGpusFromAffinityDCNV_ovr_0_anh0001(hAffinityDC: GDI_DC; iGpuIndex: UInt32; hGpu: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusFromAffinityDCNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusFromAffinityDCNV(hAffinityDC: GDI_DC; iGpuIndex: UInt32; hGpu: array of HGPUNV): UInt32 :=
+    private z_EnumGpusFromAffinityDCNV_adr := GetFuncAdr('wglEnumGpusFromAffinityDCNV');
+    private z_EnumGpusFromAffinityDCNV_ovr_0 := GetFuncOrNil&(z_EnumGpusFromAffinityDCNV_adr);
+    private z_EnumGpusFromAffinityDCNV_ovr_0_anh0001 := GetFuncOrNil&(z_EnumGpusFromAffinityDCNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusFromAffinityDCNV(hAffinityDC: gdi_device_context; iGpuIndex: UInt32; hGpu: array of wgl_GPU_NV): Bool :=
     if (hGpu<>nil) and (hGpu.Length<>0) then
       z_EnumGpusFromAffinityDCNV_ovr_0(hAffinityDC, iGpuIndex, hGpu[0]) else
       z_EnumGpusFromAffinityDCNV_ovr_0_anh0001(hAffinityDC, iGpuIndex, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusFromAffinityDCNV(hAffinityDC: GDI_DC; iGpuIndex: UInt32; var hGpu: HGPUNV): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusFromAffinityDCNV(hAffinityDC: gdi_device_context; iGpuIndex: UInt32; var hGpu: wgl_GPU_NV): Bool :=
     z_EnumGpusFromAffinityDCNV_ovr_0(hAffinityDC, iGpuIndex, hGpu);
-    private static function z_EnumGpusFromAffinityDCNV_ovr_2(hAffinityDC: GDI_DC; iGpuIndex: UInt32; hGpu: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumGpusFromAffinityDCNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumGpusFromAffinityDCNV(hAffinityDC: GDI_DC; iGpuIndex: UInt32; hGpu: IntPtr): UInt32 :=
+    private z_EnumGpusFromAffinityDCNV_ovr_2 := GetFuncOrNil&(z_EnumGpusFromAffinityDCNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumGpusFromAffinityDCNV(hAffinityDC: gdi_device_context; iGpuIndex: UInt32; hGpu: IntPtr): Bool :=
     z_EnumGpusFromAffinityDCNV_ovr_2(hAffinityDC, iGpuIndex, hGpu);
     
-    private static function z_DeleteDCNV_ovr_0(hdc: GDI_DC): UInt32;
-    external 'opengl32.dll' name 'wglDeleteDCNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function DeleteDCNV(hdc: GDI_DC): UInt32 :=
+    private z_DeleteDCNV_adr := GetFuncAdr('wglDeleteDCNV');
+    private z_DeleteDCNV_ovr_0 := GetFuncOrNil&(z_DeleteDCNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DeleteDCNV(hdc: gdi_device_context): Bool :=
     z_DeleteDCNV_ovr_0(hdc);
     
   end;
   
   [PCUNotRestore]
-  wglPresentVideoNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglPresentVideoNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_present_video';
     
-    private static function z_EnumerateVideoDevicesNV_ovr_0(hDc: GDI_DC; var phDeviceList: HVIDEOOUTPUTDEVICENV): Int32;
-    external 'opengl32.dll' name 'wglEnumerateVideoDevicesNV';
-    private static function z_EnumerateVideoDevicesNV_ovr_0_anh001(hDc: GDI_DC; phDeviceList: IntPtr): Int32;
-    external 'opengl32.dll' name 'wglEnumerateVideoDevicesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoDevicesNV(hDc: GDI_DC; phDeviceList: array of HVIDEOOUTPUTDEVICENV): Int32 :=
+    private z_EnumerateVideoDevicesNV_adr := GetFuncAdr('wglEnumerateVideoDevicesNV');
+    private z_EnumerateVideoDevicesNV_ovr_0 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    private z_EnumerateVideoDevicesNV_ovr_0_anh001 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(hDc: gdi_device_context; phDeviceList: array of wgl_h_video_output_device_NV): Int32 :=
     if (phDeviceList<>nil) and (phDeviceList.Length<>0) then
       z_EnumerateVideoDevicesNV_ovr_0(hDc, phDeviceList[0]) else
       z_EnumerateVideoDevicesNV_ovr_0_anh001(hDc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoDevicesNV(hDc: GDI_DC; var phDeviceList: HVIDEOOUTPUTDEVICENV): Int32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(hDc: gdi_device_context; var phDeviceList: wgl_h_video_output_device_NV): Int32 :=
     z_EnumerateVideoDevicesNV_ovr_0(hDc, phDeviceList);
-    private static function z_EnumerateVideoDevicesNV_ovr_2(hDc: GDI_DC; phDeviceList: IntPtr): Int32;
-    external 'opengl32.dll' name 'wglEnumerateVideoDevicesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoDevicesNV(hDc: GDI_DC; phDeviceList: IntPtr): Int32 :=
+    private z_EnumerateVideoDevicesNV_ovr_2 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(hDc: gdi_device_context; phDeviceList: IntPtr): Int32 :=
     z_EnumerateVideoDevicesNV_ovr_2(hDc, phDeviceList);
     
-    private static function z_BindVideoDeviceNV_ovr_0(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; var piAttribList: Int32): UInt32;
-    external 'opengl32.dll' name 'wglBindVideoDeviceNV';
-    private static function z_BindVideoDeviceNV_ovr_0_anh00001(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; piAttribList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglBindVideoDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindVideoDeviceNV(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; piAttribList: array of Int32): UInt32 :=
+    private z_BindVideoDeviceNV_adr := GetFuncAdr('wglBindVideoDeviceNV');
+    private z_BindVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    private z_BindVideoDeviceNV_ovr_0_anh00001 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(hDc: gdi_device_context; uVideoSlot: UInt32; hVideoDevice: wgl_h_video_output_device_NV; piAttribList: array of Int32): Bool :=
     if (piAttribList<>nil) and (piAttribList.Length<>0) then
       z_BindVideoDeviceNV_ovr_0(hDc, uVideoSlot, hVideoDevice, piAttribList[0]) else
       z_BindVideoDeviceNV_ovr_0_anh00001(hDc, uVideoSlot, hVideoDevice, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindVideoDeviceNV(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; var piAttribList: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(hDc: gdi_device_context; uVideoSlot: UInt32; hVideoDevice: wgl_h_video_output_device_NV; var piAttribList: Int32): Bool :=
     z_BindVideoDeviceNV_ovr_0(hDc, uVideoSlot, hVideoDevice, piAttribList);
-    private static function z_BindVideoDeviceNV_ovr_2(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; piAttribList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglBindVideoDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindVideoDeviceNV(hDc: GDI_DC; uVideoSlot: UInt32; hVideoDevice: HVIDEOOUTPUTDEVICENV; piAttribList: IntPtr): UInt32 :=
+    private z_BindVideoDeviceNV_ovr_2 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(hDc: gdi_device_context; uVideoSlot: UInt32; hVideoDevice: wgl_h_video_output_device_NV; piAttribList: IntPtr): Bool :=
     z_BindVideoDeviceNV_ovr_2(hDc, uVideoSlot, hVideoDevice, piAttribList);
     
-    private static function z_QueryCurrentContextNV_ovr_0(iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglQueryCurrentContextNV';
-    private static function z_QueryCurrentContextNV_ovr_0_anh001(iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryCurrentContextNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryCurrentContextNV(iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_QueryCurrentContextNV_adr := GetFuncAdr('wglQueryCurrentContextNV');
+    private z_QueryCurrentContextNV_ovr_0 := GetFuncOrNil&(z_QueryCurrentContextNV_adr);
+    private z_QueryCurrentContextNV_ovr_0_anh001 := GetFuncOrNil&(z_QueryCurrentContextNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentContextNV(iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_QueryCurrentContextNV_ovr_0(iAttribute, piValue[0]) else
       z_QueryCurrentContextNV_ovr_0_anh001(iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryCurrentContextNV(iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentContextNV(iAttribute: Int32; var piValue: Int32): Bool :=
     z_QueryCurrentContextNV_ovr_0(iAttribute, piValue);
-    private static function z_QueryCurrentContextNV_ovr_2(iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryCurrentContextNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryCurrentContextNV(iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_QueryCurrentContextNV_ovr_2 := GetFuncOrNil&(z_QueryCurrentContextNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentContextNV(iAttribute: Int32; piValue: IntPtr): Bool :=
     z_QueryCurrentContextNV_ovr_2(iAttribute, piValue);
     
   end;
   
   [PCUNotRestore]
-  wglSwapGroupNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglSwapGroupNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_swap_group';
     
-    private static function z_JoinSwapGroupNV_ovr_0(hDC: GDI_DC; group: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglJoinSwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function JoinSwapGroupNV(hDC: GDI_DC; group: UInt32): UInt32 :=
+    private z_JoinSwapGroupNV_adr := GetFuncAdr('wglJoinSwapGroupNV');
+    private z_JoinSwapGroupNV_ovr_0 := GetFuncOrNil&(z_JoinSwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function JoinSwapGroupNV(hDC: gdi_device_context; group: UInt32): Bool :=
     z_JoinSwapGroupNV_ovr_0(hDC, group);
     
-    private static function z_BindSwapBarrierNV_ovr_0(group: UInt32; barrier: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglBindSwapBarrierNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindSwapBarrierNV(group: UInt32; barrier: UInt32): UInt32 :=
+    private z_BindSwapBarrierNV_adr := GetFuncAdr('wglBindSwapBarrierNV');
+    private z_BindSwapBarrierNV_ovr_0 := GetFuncOrNil&(z_BindSwapBarrierNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindSwapBarrierNV(group: UInt32; barrier: UInt32): Bool :=
     z_BindSwapBarrierNV_ovr_0(group, barrier);
     
-    private static function z_QuerySwapGroupNV_ovr_0(hDC: GDI_DC; var group: UInt32; var barrier: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    private static function z_QuerySwapGroupNV_ovr_0_anh0010(hDC: GDI_DC; group: IntPtr; var barrier: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    private static function z_QuerySwapGroupNV_ovr_0_anh0001(hDC: GDI_DC; var group: UInt32; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    private static function z_QuerySwapGroupNV_ovr_0_anh0011(hDC: GDI_DC; group: IntPtr; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: array of UInt32; barrier: array of UInt32): UInt32 :=
+    private z_QuerySwapGroupNV_adr := GetFuncAdr('wglQuerySwapGroupNV');
+    private z_QuerySwapGroupNV_ovr_0 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh0010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh0001 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh0011 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: array of UInt32; barrier: array of UInt32): Bool :=
     if (group<>nil) and (group.Length<>0) then
       if (barrier<>nil) and (barrier.Length<>0) then
         z_QuerySwapGroupNV_ovr_0(hDC, group[0], barrier[0]) else
@@ -75615,52 +71222,43 @@ type
       if (barrier<>nil) and (barrier.Length<>0) then
         z_QuerySwapGroupNV_ovr_0_anh0010(hDC, IntPtr.Zero, barrier[0]) else
         z_QuerySwapGroupNV_ovr_0_anh0011(hDC, IntPtr.Zero, IntPtr.Zero);
-    private static function z_QuerySwapGroupNV_ovr_1_anh0010(hDC: GDI_DC; group: IntPtr; var barrier: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: array of UInt32; var barrier: UInt32): UInt32 :=
+    private z_QuerySwapGroupNV_ovr_1_anh0010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: array of UInt32; var barrier: UInt32): Bool :=
     if (group<>nil) and (group.Length<>0) then
       z_QuerySwapGroupNV_ovr_0(hDC, group[0], barrier) else
       z_QuerySwapGroupNV_ovr_0_anh0010(hDC, IntPtr.Zero, barrier);
-    private static function z_QuerySwapGroupNV_ovr_2(hDC: GDI_DC; var group: UInt32; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    private static function z_QuerySwapGroupNV_ovr_2_anh0010(hDC: GDI_DC; group: IntPtr; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: array of UInt32; barrier: IntPtr): UInt32 :=
+    private z_QuerySwapGroupNV_ovr_2 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_2_anh0010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: array of UInt32; barrier: IntPtr): Bool :=
     if (group<>nil) and (group.Length<>0) then
       z_QuerySwapGroupNV_ovr_2(hDC, group[0], barrier) else
       z_QuerySwapGroupNV_ovr_2_anh0010(hDC, IntPtr.Zero, barrier);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; var group: UInt32; barrier: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; var group: UInt32; barrier: array of UInt32): Bool :=
     if (barrier<>nil) and (barrier.Length<>0) then
       z_QuerySwapGroupNV_ovr_0(hDC, group, barrier[0]) else
       z_QuerySwapGroupNV_ovr_0_anh0001(hDC, group, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; var group: UInt32; var barrier: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; var group: UInt32; var barrier: UInt32): Bool :=
     z_QuerySwapGroupNV_ovr_0(hDC, group, barrier);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; var group: UInt32; barrier: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; var group: UInt32; barrier: IntPtr): Bool :=
     z_QuerySwapGroupNV_ovr_2(hDC, group, barrier);
-    private static function z_QuerySwapGroupNV_ovr_6(hDC: GDI_DC; group: IntPtr; var barrier: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    private static function z_QuerySwapGroupNV_ovr_6_anh0001(hDC: GDI_DC; group: IntPtr; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: IntPtr; barrier: array of UInt32): UInt32 :=
+    private z_QuerySwapGroupNV_ovr_6 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_6_anh0001 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: IntPtr; barrier: array of UInt32): Bool :=
     if (barrier<>nil) and (barrier.Length<>0) then
       z_QuerySwapGroupNV_ovr_6(hDC, group, barrier[0]) else
       z_QuerySwapGroupNV_ovr_6_anh0001(hDC, group, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: IntPtr; var barrier: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: IntPtr; var barrier: UInt32): Bool :=
     z_QuerySwapGroupNV_ovr_6(hDC, group, barrier);
-    private static function z_QuerySwapGroupNV_ovr_8(hDC: GDI_DC; group: IntPtr; barrier: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQuerySwapGroupNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QuerySwapGroupNV(hDC: GDI_DC; group: IntPtr; barrier: IntPtr): UInt32 :=
+    private z_QuerySwapGroupNV_ovr_8 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(hDC: gdi_device_context; group: IntPtr; barrier: IntPtr): Bool :=
     z_QuerySwapGroupNV_ovr_8(hDC, group, barrier);
     
-    private static function z_QueryMaxSwapGroupsNV_ovr_0(hDC: GDI_DC; var maxGroups: UInt32; var maxBarriers: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    private static function z_QueryMaxSwapGroupsNV_ovr_0_anh0010(hDC: GDI_DC; maxGroups: IntPtr; var maxBarriers: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    private static function z_QueryMaxSwapGroupsNV_ovr_0_anh0001(hDC: GDI_DC; var maxGroups: UInt32; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    private static function z_QueryMaxSwapGroupsNV_ovr_0_anh0011(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: array of UInt32; maxBarriers: array of UInt32): UInt32 :=
+    private z_QueryMaxSwapGroupsNV_adr := GetFuncAdr('wglQueryMaxSwapGroupsNV');
+    private z_QueryMaxSwapGroupsNV_ovr_0 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh0010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh0001 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh0011 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: array of UInt32; maxBarriers: array of UInt32): Bool :=
     if (maxGroups<>nil) and (maxGroups.Length<>0) then
       if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
         z_QueryMaxSwapGroupsNV_ovr_0(hDC, maxGroups[0], maxBarriers[0]) else
@@ -75668,174 +71266,165 @@ type
       if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
         z_QueryMaxSwapGroupsNV_ovr_0_anh0010(hDC, IntPtr.Zero, maxBarriers[0]) else
         z_QueryMaxSwapGroupsNV_ovr_0_anh0011(hDC, IntPtr.Zero, IntPtr.Zero);
-    private static function z_QueryMaxSwapGroupsNV_ovr_1_anh0010(hDC: GDI_DC; maxGroups: IntPtr; var maxBarriers: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: array of UInt32; var maxBarriers: UInt32): UInt32 :=
+    private z_QueryMaxSwapGroupsNV_ovr_1_anh0010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: array of UInt32; var maxBarriers: UInt32): Bool :=
     if (maxGroups<>nil) and (maxGroups.Length<>0) then
       z_QueryMaxSwapGroupsNV_ovr_0(hDC, maxGroups[0], maxBarriers) else
       z_QueryMaxSwapGroupsNV_ovr_0_anh0010(hDC, IntPtr.Zero, maxBarriers);
-    private static function z_QueryMaxSwapGroupsNV_ovr_2(hDC: GDI_DC; var maxGroups: UInt32; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    private static function z_QueryMaxSwapGroupsNV_ovr_2_anh0010(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: array of UInt32; maxBarriers: IntPtr): UInt32 :=
+    private z_QueryMaxSwapGroupsNV_ovr_2 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_2_anh0010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: array of UInt32; maxBarriers: IntPtr): Bool :=
     if (maxGroups<>nil) and (maxGroups.Length<>0) then
       z_QueryMaxSwapGroupsNV_ovr_2(hDC, maxGroups[0], maxBarriers) else
       z_QueryMaxSwapGroupsNV_ovr_2_anh0010(hDC, IntPtr.Zero, maxBarriers);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; var maxGroups: UInt32; maxBarriers: array of UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; var maxGroups: UInt32; maxBarriers: array of UInt32): Bool :=
     if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
       z_QueryMaxSwapGroupsNV_ovr_0(hDC, maxGroups, maxBarriers[0]) else
       z_QueryMaxSwapGroupsNV_ovr_0_anh0001(hDC, maxGroups, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; var maxGroups: UInt32; var maxBarriers: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; var maxGroups: UInt32; var maxBarriers: UInt32): Bool :=
     z_QueryMaxSwapGroupsNV_ovr_0(hDC, maxGroups, maxBarriers);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; var maxGroups: UInt32; maxBarriers: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; var maxGroups: UInt32; maxBarriers: IntPtr): Bool :=
     z_QueryMaxSwapGroupsNV_ovr_2(hDC, maxGroups, maxBarriers);
-    private static function z_QueryMaxSwapGroupsNV_ovr_6(hDC: GDI_DC; maxGroups: IntPtr; var maxBarriers: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    private static function z_QueryMaxSwapGroupsNV_ovr_6_anh0001(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: array of UInt32): UInt32 :=
+    private z_QueryMaxSwapGroupsNV_ovr_6 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_6_anh0001 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: IntPtr; maxBarriers: array of UInt32): Bool :=
     if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
       z_QueryMaxSwapGroupsNV_ovr_6(hDC, maxGroups, maxBarriers[0]) else
       z_QueryMaxSwapGroupsNV_ovr_6_anh0001(hDC, maxGroups, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: IntPtr; var maxBarriers: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: IntPtr; var maxBarriers: UInt32): Bool :=
     z_QueryMaxSwapGroupsNV_ovr_6(hDC, maxGroups, maxBarriers);
-    private static function z_QueryMaxSwapGroupsNV_ovr_8(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryMaxSwapGroupsNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryMaxSwapGroupsNV(hDC: GDI_DC; maxGroups: IntPtr; maxBarriers: IntPtr): UInt32 :=
+    private z_QueryMaxSwapGroupsNV_ovr_8 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(hDC: gdi_device_context; maxGroups: IntPtr; maxBarriers: IntPtr): Bool :=
     z_QueryMaxSwapGroupsNV_ovr_8(hDC, maxGroups, maxBarriers);
     
-    private static function z_QueryFrameCountNV_ovr_0(hDC: GDI_DC; var count: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameCountNV';
-    private static function z_QueryFrameCountNV_ovr_0_anh001(hDC: GDI_DC; count: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameCountNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameCountNV(hDC: GDI_DC; count: array of UInt32): UInt32 :=
+    private z_QueryFrameCountNV_adr := GetFuncAdr('wglQueryFrameCountNV');
+    private z_QueryFrameCountNV_ovr_0 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    private z_QueryFrameCountNV_ovr_0_anh001 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(hDC: gdi_device_context; count: array of UInt32): Bool :=
     if (count<>nil) and (count.Length<>0) then
       z_QueryFrameCountNV_ovr_0(hDC, count[0]) else
       z_QueryFrameCountNV_ovr_0_anh001(hDC, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameCountNV(hDC: GDI_DC; var count: UInt32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(hDC: gdi_device_context; var count: UInt32): Bool :=
     z_QueryFrameCountNV_ovr_0(hDC, count);
-    private static function z_QueryFrameCountNV_ovr_2(hDC: GDI_DC; count: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryFrameCountNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryFrameCountNV(hDC: GDI_DC; count: IntPtr): UInt32 :=
+    private z_QueryFrameCountNV_ovr_2 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(hDC: gdi_device_context; count: IntPtr): Bool :=
     z_QueryFrameCountNV_ovr_2(hDC, count);
     
-    private static function z_ResetFrameCountNV_ovr_0(hDC: GDI_DC): UInt32;
-    external 'opengl32.dll' name 'wglResetFrameCountNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ResetFrameCountNV(hDC: GDI_DC): UInt32 :=
+    private z_ResetFrameCountNV_adr := GetFuncAdr('wglResetFrameCountNV');
+    private z_ResetFrameCountNV_ovr_0 := GetFuncOrNil&(z_ResetFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ResetFrameCountNV(hDC: gdi_device_context): Bool :=
     z_ResetFrameCountNV_ovr_0(hDC);
     
   end;
   
   [PCUNotRestore]
-  wglVideoCaptureNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglVideoCaptureNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_video_capture';
     
-    private static function z_BindVideoCaptureDeviceNV_ovr_0(uVideoSlot: UInt32; hDevice: HVIDEOINPUTDEVICENV): UInt32;
-    external 'opengl32.dll' name 'wglBindVideoCaptureDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindVideoCaptureDeviceNV(uVideoSlot: UInt32; hDevice: HVIDEOINPUTDEVICENV): UInt32 :=
+    private z_BindVideoCaptureDeviceNV_adr := GetFuncAdr('wglBindVideoCaptureDeviceNV');
+    private z_BindVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_BindVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoCaptureDeviceNV(uVideoSlot: UInt32; hDevice: wgl_h_video_input_device_NV): Bool :=
     z_BindVideoCaptureDeviceNV_ovr_0(uVideoSlot, hDevice);
     
-    private static function z_EnumerateVideoCaptureDevicesNV_ovr_0(hDc: GDI_DC; var phDeviceList: HVIDEOINPUTDEVICENV): UInt32;
-    external 'opengl32.dll' name 'wglEnumerateVideoCaptureDevicesNV';
-    private static function z_EnumerateVideoCaptureDevicesNV_ovr_0_anh001(hDc: GDI_DC; phDeviceList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumerateVideoCaptureDevicesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoCaptureDevicesNV(hDc: GDI_DC; phDeviceList: array of HVIDEOINPUTDEVICENV): UInt32 :=
+    private z_EnumerateVideoCaptureDevicesNV_adr := GetFuncAdr('wglEnumerateVideoCaptureDevicesNV');
+    private z_EnumerateVideoCaptureDevicesNV_ovr_0 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    private z_EnumerateVideoCaptureDevicesNV_ovr_0_anh001 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(hDc: gdi_device_context; phDeviceList: array of wgl_h_video_input_device_NV): UInt32 :=
     if (phDeviceList<>nil) and (phDeviceList.Length<>0) then
       z_EnumerateVideoCaptureDevicesNV_ovr_0(hDc, phDeviceList[0]) else
       z_EnumerateVideoCaptureDevicesNV_ovr_0_anh001(hDc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoCaptureDevicesNV(hDc: GDI_DC; var phDeviceList: HVIDEOINPUTDEVICENV): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(hDc: gdi_device_context; var phDeviceList: wgl_h_video_input_device_NV): UInt32 :=
     z_EnumerateVideoCaptureDevicesNV_ovr_0(hDc, phDeviceList);
-    private static function z_EnumerateVideoCaptureDevicesNV_ovr_2(hDc: GDI_DC; phDeviceList: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglEnumerateVideoCaptureDevicesNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnumerateVideoCaptureDevicesNV(hDc: GDI_DC; phDeviceList: IntPtr): UInt32 :=
+    private z_EnumerateVideoCaptureDevicesNV_ovr_2 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(hDc: gdi_device_context; phDeviceList: IntPtr): UInt32 :=
     z_EnumerateVideoCaptureDevicesNV_ovr_2(hDc, phDeviceList);
     
-    private static function z_LockVideoCaptureDeviceNV_ovr_0(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV): UInt32;
-    external 'opengl32.dll' name 'wglLockVideoCaptureDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function LockVideoCaptureDeviceNV(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV): UInt32 :=
+    private z_LockVideoCaptureDeviceNV_adr := GetFuncAdr('wglLockVideoCaptureDeviceNV');
+    private z_LockVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_LockVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function LockVideoCaptureDeviceNV(hDc: gdi_device_context; hDevice: wgl_h_video_input_device_NV): Bool :=
     z_LockVideoCaptureDeviceNV_ovr_0(hDc, hDevice);
     
-    private static function z_QueryVideoCaptureDeviceNV_ovr_0(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; var piValue: Int32): UInt32;
-    external 'opengl32.dll' name 'wglQueryVideoCaptureDeviceNV';
-    private static function z_QueryVideoCaptureDeviceNV_ovr_0_anh00001(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryVideoCaptureDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVideoCaptureDeviceNV(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; piValue: array of Int32): UInt32 :=
+    private z_QueryVideoCaptureDeviceNV_adr := GetFuncAdr('wglQueryVideoCaptureDeviceNV');
+    private z_QueryVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    private z_QueryVideoCaptureDeviceNV_ovr_0_anh00001 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(hDc: gdi_device_context; hDevice: wgl_h_video_input_device_NV; iAttribute: Int32; piValue: array of Int32): Bool :=
     if (piValue<>nil) and (piValue.Length<>0) then
       z_QueryVideoCaptureDeviceNV_ovr_0(hDc, hDevice, iAttribute, piValue[0]) else
       z_QueryVideoCaptureDeviceNV_ovr_0_anh00001(hDc, hDevice, iAttribute, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVideoCaptureDeviceNV(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; var piValue: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(hDc: gdi_device_context; hDevice: wgl_h_video_input_device_NV; iAttribute: Int32; var piValue: Int32): Bool :=
     z_QueryVideoCaptureDeviceNV_ovr_0(hDc, hDevice, iAttribute, piValue);
-    private static function z_QueryVideoCaptureDeviceNV_ovr_2(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; piValue: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglQueryVideoCaptureDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVideoCaptureDeviceNV(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV; iAttribute: Int32; piValue: IntPtr): UInt32 :=
+    private z_QueryVideoCaptureDeviceNV_ovr_2 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(hDc: gdi_device_context; hDevice: wgl_h_video_input_device_NV; iAttribute: Int32; piValue: IntPtr): Bool :=
     z_QueryVideoCaptureDeviceNV_ovr_2(hDc, hDevice, iAttribute, piValue);
     
-    private static function z_ReleaseVideoCaptureDeviceNV_ovr_0(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV): UInt32;
-    external 'opengl32.dll' name 'wglReleaseVideoCaptureDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseVideoCaptureDeviceNV(hDc: GDI_DC; hDevice: HVIDEOINPUTDEVICENV): UInt32 :=
+    private z_ReleaseVideoCaptureDeviceNV_adr := GetFuncAdr('wglReleaseVideoCaptureDeviceNV');
+    private z_ReleaseVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseVideoCaptureDeviceNV(hDc: gdi_device_context; hDevice: wgl_h_video_input_device_NV): Bool :=
     z_ReleaseVideoCaptureDeviceNV_ovr_0(hDc, hDevice);
     
   end;
   
   [PCUNotRestore]
-  wglVideoOutputNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglVideoOutputNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_video_output';
     
-    private static function z_GetVideoDeviceNV_ovr_0(hDC: GDI_DC; numDevices: Int32; var hVideoDevice: HPVIDEODEV): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoDeviceNV';
-    private static function z_GetVideoDeviceNV_ovr_0_anh0001(hDC: GDI_DC; numDevices: Int32; hVideoDevice: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoDeviceNV(hDC: GDI_DC; numDevices: Int32; hVideoDevice: array of HPVIDEODEV): UInt32 :=
+    private z_GetVideoDeviceNV_adr := GetFuncAdr('wglGetVideoDeviceNV');
+    private z_GetVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    private z_GetVideoDeviceNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(hDC: gdi_device_context; numDevices: Int32; hVideoDevice: array of wgl_h_video_device_NV): Bool :=
     if (hVideoDevice<>nil) and (hVideoDevice.Length<>0) then
       z_GetVideoDeviceNV_ovr_0(hDC, numDevices, hVideoDevice[0]) else
       z_GetVideoDeviceNV_ovr_0_anh0001(hDC, numDevices, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoDeviceNV(hDC: GDI_DC; numDevices: Int32; var hVideoDevice: HPVIDEODEV): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(hDC: gdi_device_context; numDevices: Int32; var hVideoDevice: wgl_h_video_device_NV): Bool :=
     z_GetVideoDeviceNV_ovr_0(hDC, numDevices, hVideoDevice);
-    private static function z_GetVideoDeviceNV_ovr_2(hDC: GDI_DC; numDevices: Int32; hVideoDevice: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoDeviceNV(hDC: GDI_DC; numDevices: Int32; hVideoDevice: IntPtr): UInt32 :=
+    private z_GetVideoDeviceNV_ovr_2 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(hDC: gdi_device_context; numDevices: Int32; hVideoDevice: IntPtr): Bool :=
     z_GetVideoDeviceNV_ovr_2(hDC, numDevices, hVideoDevice);
     
-    private static function z_ReleaseVideoDeviceNV_ovr_0(hVideoDevice: HPVIDEODEV): UInt32;
-    external 'opengl32.dll' name 'wglReleaseVideoDeviceNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseVideoDeviceNV(hVideoDevice: HPVIDEODEV): UInt32 :=
+    private z_ReleaseVideoDeviceNV_adr := GetFuncAdr('wglReleaseVideoDeviceNV');
+    private z_ReleaseVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseVideoDeviceNV(hVideoDevice: wgl_h_video_device_NV): Bool :=
     z_ReleaseVideoDeviceNV_ovr_0(hVideoDevice);
     
-    private static function z_BindVideoImageNV_ovr_0(hVideoDevice: HPVIDEODEV; _hPbuffer: HPBUFFER; iVideoBuffer: Int32): UInt32;
-    external 'opengl32.dll' name 'wglBindVideoImageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function BindVideoImageNV(hVideoDevice: HPVIDEODEV; _hPbuffer: HPBUFFER; iVideoBuffer: Int32): UInt32 :=
-    z_BindVideoImageNV_ovr_0(hVideoDevice, _hPbuffer, iVideoBuffer);
+    private z_BindVideoImageNV_adr := GetFuncAdr('wglBindVideoImageNV');
+    private z_BindVideoImageNV_ovr_0 := GetFuncOrNil&(z_BindVideoImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoImageNV(hVideoDevice: wgl_h_video_device_NV; hPbuffer: wgl_pbuffer_ARB; iVideoBuffer: Int32): Bool :=
+    z_BindVideoImageNV_ovr_0(hVideoDevice, hPbuffer, iVideoBuffer);
     
-    private static function z_ReleaseVideoImageNV_ovr_0(_hPbuffer: HPBUFFER; iVideoBuffer: Int32): UInt32;
-    external 'opengl32.dll' name 'wglReleaseVideoImageNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ReleaseVideoImageNV(_hPbuffer: HPBUFFER; iVideoBuffer: Int32): UInt32 :=
-    z_ReleaseVideoImageNV_ovr_0(_hPbuffer, iVideoBuffer);
+    private z_ReleaseVideoImageNV_adr := GetFuncAdr('wglReleaseVideoImageNV');
+    private z_ReleaseVideoImageNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseVideoImageNV(hPbuffer: wgl_pbuffer_ARB; iVideoBuffer: Int32): Bool :=
+    z_ReleaseVideoImageNV_ovr_0(hPbuffer, iVideoBuffer);
     
-    private static function z_SendPbufferToVideoNV_ovr_0(_hPbuffer: HPBUFFER; iBufferType: Int32; var pulCounterPbuffer: UInt64; bBlock: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglSendPbufferToVideoNV';
-    private static function z_SendPbufferToVideoNV_ovr_0_anh00010(_hPbuffer: HPBUFFER; iBufferType: Int32; pulCounterPbuffer: IntPtr; bBlock: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglSendPbufferToVideoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SendPbufferToVideoNV(_hPbuffer: HPBUFFER; iBufferType: Int32; pulCounterPbuffer: array of UInt64; bBlock: UInt32): UInt32 :=
+    private z_SendPbufferToVideoNV_adr := GetFuncAdr('wglSendPbufferToVideoNV');
+    private z_SendPbufferToVideoNV_ovr_0 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    private z_SendPbufferToVideoNV_ovr_0_anh00010 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(hPbuffer: wgl_pbuffer_ARB; iBufferType: Int32; pulCounterPbuffer: array of UInt64; bBlock: Bool): Bool :=
     if (pulCounterPbuffer<>nil) and (pulCounterPbuffer.Length<>0) then
-      z_SendPbufferToVideoNV_ovr_0(_hPbuffer, iBufferType, pulCounterPbuffer[0], bBlock) else
-      z_SendPbufferToVideoNV_ovr_0_anh00010(_hPbuffer, iBufferType, IntPtr.Zero, bBlock);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SendPbufferToVideoNV(_hPbuffer: HPBUFFER; iBufferType: Int32; var pulCounterPbuffer: UInt64; bBlock: UInt32): UInt32 :=
-    z_SendPbufferToVideoNV_ovr_0(_hPbuffer, iBufferType, pulCounterPbuffer, bBlock);
-    private static function z_SendPbufferToVideoNV_ovr_2(_hPbuffer: HPBUFFER; iBufferType: Int32; pulCounterPbuffer: IntPtr; bBlock: UInt32): UInt32;
-    external 'opengl32.dll' name 'wglSendPbufferToVideoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SendPbufferToVideoNV(_hPbuffer: HPBUFFER; iBufferType: Int32; pulCounterPbuffer: IntPtr; bBlock: UInt32): UInt32 :=
-    z_SendPbufferToVideoNV_ovr_2(_hPbuffer, iBufferType, pulCounterPbuffer, bBlock);
+      z_SendPbufferToVideoNV_ovr_0(hPbuffer, iBufferType, pulCounterPbuffer[0], bBlock) else
+      z_SendPbufferToVideoNV_ovr_0_anh00010(hPbuffer, iBufferType, IntPtr.Zero, bBlock);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(hPbuffer: wgl_pbuffer_ARB; iBufferType: Int32; var pulCounterPbuffer: UInt64; bBlock: Bool): Bool :=
+    z_SendPbufferToVideoNV_ovr_0(hPbuffer, iBufferType, pulCounterPbuffer, bBlock);
+    private z_SendPbufferToVideoNV_ovr_2 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(hPbuffer: wgl_pbuffer_ARB; iBufferType: Int32; pulCounterPbuffer: IntPtr; bBlock: Bool): Bool :=
+    z_SendPbufferToVideoNV_ovr_2(hPbuffer, iBufferType, pulCounterPbuffer, bBlock);
     
-    private static function z_GetVideoInfoNV_ovr_0(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; var pulCounterOutputVideo: UInt64): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    private static function z_GetVideoInfoNV_ovr_0_anh0010(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    private static function z_GetVideoInfoNV_ovr_0_anh0001(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    private static function z_GetVideoInfoNV_ovr_0_anh0011(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: array of UInt64): UInt32 :=
+    private z_GetVideoInfoNV_adr := GetFuncAdr('wglGetVideoInfoNV');
+    private z_GetVideoInfoNV_ovr_0 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh0010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh0001 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh0011 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: array of UInt64): Bool :=
     if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
       if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
         z_GetVideoInfoNV_ovr_0(hpVideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo[0]) else
@@ -75843,82 +71432,79 @@ type
       if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
         z_GetVideoInfoNV_ovr_0_anh0010(hpVideoDevice, IntPtr.Zero, pulCounterOutputVideo[0]) else
         z_GetVideoInfoNV_ovr_0_anh0011(hpVideoDevice, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetVideoInfoNV_ovr_1_anh0010(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: array of UInt64; var pulCounterOutputVideo: UInt64): UInt32 :=
+    private z_GetVideoInfoNV_ovr_1_anh0010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: array of UInt64; var pulCounterOutputVideo: UInt64): Bool :=
     if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
       z_GetVideoInfoNV_ovr_0(hpVideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo) else
       z_GetVideoInfoNV_ovr_0_anh0010(hpVideoDevice, IntPtr.Zero, pulCounterOutputVideo);
-    private static function z_GetVideoInfoNV_ovr_2(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    private static function z_GetVideoInfoNV_ovr_2_anh0010(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: IntPtr): UInt32 :=
+    private z_GetVideoInfoNV_ovr_2 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_2_anh0010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: IntPtr): Bool :=
     if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
       z_GetVideoInfoNV_ovr_2(hpVideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo) else
       z_GetVideoInfoNV_ovr_2_anh0010(hpVideoDevice, IntPtr.Zero, pulCounterOutputVideo);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: array of UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: array of UInt64): Bool :=
     if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
       z_GetVideoInfoNV_ovr_0(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo[0]) else
       z_GetVideoInfoNV_ovr_0_anh0001(hpVideoDevice, pulCounterOutputPbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; var pulCounterOutputVideo: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; var pulCounterOutputPbuffer: UInt64; var pulCounterOutputVideo: UInt64): Bool :=
     z_GetVideoInfoNV_ovr_0(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: IntPtr): Bool :=
     z_GetVideoInfoNV_ovr_2(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
-    private static function z_GetVideoInfoNV_ovr_6(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    private static function z_GetVideoInfoNV_ovr_6_anh0001(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: array of UInt64): UInt32 :=
+    private z_GetVideoInfoNV_ovr_6 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_6_anh0001 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: array of UInt64): Bool :=
     if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
       z_GetVideoInfoNV_ovr_6(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo[0]) else
       z_GetVideoInfoNV_ovr_6_anh0001(hpVideoDevice, pulCounterOutputPbuffer, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): Bool :=
     z_GetVideoInfoNV_ovr_6(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
-    private static function z_GetVideoInfoNV_ovr_8(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetVideoInfoNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVideoInfoNV(hpVideoDevice: HPVIDEODEV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): UInt32 :=
+    private z_GetVideoInfoNV_ovr_8 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(hpVideoDevice: wgl_h_video_device_NV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): Bool :=
     z_GetVideoInfoNV_ovr_8(hpVideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
     
   end;
   
   [PCUNotRestore]
-  wglVertexArrayRangeNV = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglVertexArrayRangeNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'NV_vertex_array_range';
     
-    private static function z_AllocateMemoryNV_ovr_0(size: Int32; readfreq: single; writefreq: single; priority: single): IntPtr;
-    external 'opengl32.dll' name 'wglAllocateMemoryNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function AllocateMemoryNV(size: Int32; readfreq: single; writefreq: single; priority: single): IntPtr :=
+    private z_AllocateMemoryNV_adr := GetFuncAdr('wglAllocateMemoryNV');
+    private z_AllocateMemoryNV_ovr_0 := GetFuncOrNil&(z_AllocateMemoryNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AllocateMemoryNV(size: Int32; readfreq: single; writefreq: single; priority: single): IntPtr :=
     z_AllocateMemoryNV_ovr_0(size, readfreq, writefreq, priority);
     
-    private static procedure z_FreeMemoryNV_ovr_0(pointer: IntPtr);
-    external 'opengl32.dll' name 'wglFreeMemoryNV';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure FreeMemoryNV(pointer: IntPtr) :=
+    private z_FreeMemoryNV_adr := GetFuncAdr('wglFreeMemoryNV');
+    private z_FreeMemoryNV_ovr_0 := GetFuncOrNil&(z_FreeMemoryNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FreeMemoryNV(pointer: IntPtr) :=
     z_FreeMemoryNV_ovr_0(pointer);
     
   end;
   
   [PCUNotRestore]
-  wglSyncControlOML = static class
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  wglSyncControlOML = sealed class
+    private static function GetFuncAdr(lpszProc: string) := wgl.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
     public const _ExtStr = 'OML_sync_control';
     
-    private static function z_GetSyncValuesOML_ovr_0(hdc: GDI_DC; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00010(hdc: GDI_DC; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00110(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00001(hdc: GDI_DC; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00101(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00011(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_0_anh00111(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_GetSyncValuesOML_adr := GetFuncAdr('wglGetSyncValuesOML');
+    private z_GetSyncValuesOML_ovr_0 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00011 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh00111 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         if (sbc<>nil) and (sbc.Length<>0) then
@@ -75934,13 +71520,10 @@ type
         if (sbc<>nil) and (sbc.Length<>0) then
           z_GetSyncValuesOML_ovr_0_anh00110(hdc, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
           z_GetSyncValuesOML_ovr_0_anh00111(hdc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetSyncValuesOML_ovr_1_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_1_anh00010(hdc: GDI_DC; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_1_anh00110(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_1_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_1_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_1_anh00110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_GetSyncValuesOML_ovr_0(hdc, ust[0], msc[0], sbc) else
@@ -75948,15 +71531,11 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_GetSyncValuesOML_ovr_0_anh00100(hdc, IntPtr.Zero, msc[0], sbc) else
         z_GetSyncValuesOML_ovr_0_anh00110(hdc, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_GetSyncValuesOML_ovr_2(hdc: GDI_DC; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_2_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_2_anh00010(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_2_anh00110(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_GetSyncValuesOML_ovr_2 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh00110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_GetSyncValuesOML_ovr_2(hdc, ust[0], msc[0], sbc) else
@@ -75964,11 +71543,9 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_GetSyncValuesOML_ovr_2_anh00100(hdc, IntPtr.Zero, msc[0], sbc) else
         z_GetSyncValuesOML_ovr_2_anh00110(hdc, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_GetSyncValuesOML_ovr_3_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_3_anh00101(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_3_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_3_anh00101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_0(hdc, ust[0], msc, sbc[0]) else
@@ -75976,27 +71553,21 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_0_anh00100(hdc, IntPtr.Zero, msc, sbc[0]) else
         z_GetSyncValuesOML_ovr_0_anh00101(hdc, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_GetSyncValuesOML_ovr_4_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_4_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_GetSyncValuesOML_ovr_0(hdc, ust[0], msc, sbc) else
       z_GetSyncValuesOML_ovr_0_anh00100(hdc, IntPtr.Zero, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_5_anh00100(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    private z_GetSyncValuesOML_ovr_5_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_GetSyncValuesOML_ovr_2(hdc, ust[0], msc, sbc) else
       z_GetSyncValuesOML_ovr_2_anh00100(hdc, IntPtr.Zero, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_6(hdc: GDI_DC; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_6_anh00100(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_6_anh00001(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_6_anh00101(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_6 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh00001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh00101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_6(hdc, ust[0], msc, sbc[0]) else
@@ -76004,21 +71575,18 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_6_anh00100(hdc, IntPtr.Zero, msc, sbc[0]) else
         z_GetSyncValuesOML_ovr_6_anh00101(hdc, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_GetSyncValuesOML_ovr_7_anh00100(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_7_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_GetSyncValuesOML_ovr_6(hdc, ust[0], msc, sbc) else
       z_GetSyncValuesOML_ovr_6_anh00100(hdc, IntPtr.Zero, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_8(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_8_anh00100(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: array of Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_GetSyncValuesOML_ovr_8 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_8_anh00100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_GetSyncValuesOML_ovr_8(hdc, ust[0], msc, sbc) else
       z_GetSyncValuesOML_ovr_8_anh00100(hdc, IntPtr.Zero, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_0(hdc, ust, msc[0], sbc[0]) else
@@ -76026,39 +71594,35 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_0_anh00010(hdc, ust, IntPtr.Zero, sbc[0]) else
         z_GetSyncValuesOML_ovr_0_anh00011(hdc, ust, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_GetSyncValuesOML_ovr_0(hdc, ust, msc[0], sbc) else
       z_GetSyncValuesOML_ovr_0_anh00010(hdc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_GetSyncValuesOML_ovr_2(hdc, ust, msc[0], sbc) else
       z_GetSyncValuesOML_ovr_2_anh00010(hdc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_GetSyncValuesOML_ovr_0(hdc, ust, msc, sbc[0]) else
       z_GetSyncValuesOML_ovr_0_anh00001(hdc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
     z_GetSyncValuesOML_ovr_0(hdc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
     z_GetSyncValuesOML_ovr_2(hdc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_GetSyncValuesOML_ovr_6(hdc, ust, msc, sbc[0]) else
       z_GetSyncValuesOML_ovr_6_anh00001(hdc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
     z_GetSyncValuesOML_ovr_6(hdc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     z_GetSyncValuesOML_ovr_8(hdc, ust, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_18(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_18_anh00010(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_18_anh00001(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_18_anh00011(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_18 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh00001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh00011 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_18(hdc, ust, msc[0], sbc[0]) else
@@ -76066,52 +71630,43 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_GetSyncValuesOML_ovr_18_anh00010(hdc, ust, IntPtr.Zero, sbc[0]) else
         z_GetSyncValuesOML_ovr_18_anh00011(hdc, ust, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetSyncValuesOML_ovr_19_anh00010(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_19_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_GetSyncValuesOML_ovr_18(hdc, ust, msc[0], sbc) else
       z_GetSyncValuesOML_ovr_18_anh00010(hdc, ust, IntPtr.Zero, sbc);
-    private static function z_GetSyncValuesOML_ovr_20(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_20_anh00010(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_GetSyncValuesOML_ovr_20 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_20_anh00010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_GetSyncValuesOML_ovr_20(hdc, ust, msc[0], sbc) else
       z_GetSyncValuesOML_ovr_20_anh00010(hdc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_GetSyncValuesOML_ovr_18(hdc, ust, msc, sbc[0]) else
       z_GetSyncValuesOML_ovr_18_anh00001(hdc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
     z_GetSyncValuesOML_ovr_18(hdc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
     z_GetSyncValuesOML_ovr_20(hdc, ust, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_24(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    private static function z_GetSyncValuesOML_ovr_24_anh00001(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_GetSyncValuesOML_ovr_24 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_24_anh00001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_GetSyncValuesOML_ovr_24(hdc, ust, msc, sbc[0]) else
       z_GetSyncValuesOML_ovr_24_anh00001(hdc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
     z_GetSyncValuesOML_ovr_24(hdc, ust, msc, sbc);
-    private static function z_GetSyncValuesOML_ovr_26(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetSyncValuesOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetSyncValuesOML(hdc: GDI_DC; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_GetSyncValuesOML_ovr_26 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(hdc: gdi_device_context; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
     z_GetSyncValuesOML_ovr_26(hdc, ust, msc, sbc);
     
-    private static function z_GetMscRateOML_ovr_0(hdc: GDI_DC; var numerator: Int32; var denominator: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    private static function z_GetMscRateOML_ovr_0_anh0010(hdc: GDI_DC; numerator: IntPtr; var denominator: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    private static function z_GetMscRateOML_ovr_0_anh0001(hdc: GDI_DC; var numerator: Int32; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    private static function z_GetMscRateOML_ovr_0_anh0011(hdc: GDI_DC; numerator: IntPtr; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: array of Int32; denominator: array of Int32): UInt32 :=
+    private z_GetMscRateOML_adr := GetFuncAdr('wglGetMscRateOML');
+    private z_GetMscRateOML_ovr_0 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh0010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh0001 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh0011 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: array of Int32; denominator: array of Int32): Bool :=
     if (numerator<>nil) and (numerator.Length<>0) then
       if (denominator<>nil) and (denominator.Length<>0) then
         z_GetMscRateOML_ovr_0(hdc, numerator[0], denominator[0]) else
@@ -76119,70 +71674,57 @@ type
       if (denominator<>nil) and (denominator.Length<>0) then
         z_GetMscRateOML_ovr_0_anh0010(hdc, IntPtr.Zero, denominator[0]) else
         z_GetMscRateOML_ovr_0_anh0011(hdc, IntPtr.Zero, IntPtr.Zero);
-    private static function z_GetMscRateOML_ovr_1_anh0010(hdc: GDI_DC; numerator: IntPtr; var denominator: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: array of Int32; var denominator: Int32): UInt32 :=
+    private z_GetMscRateOML_ovr_1_anh0010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: array of Int32; var denominator: Int32): Bool :=
     if (numerator<>nil) and (numerator.Length<>0) then
       z_GetMscRateOML_ovr_0(hdc, numerator[0], denominator) else
       z_GetMscRateOML_ovr_0_anh0010(hdc, IntPtr.Zero, denominator);
-    private static function z_GetMscRateOML_ovr_2(hdc: GDI_DC; var numerator: Int32; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    private static function z_GetMscRateOML_ovr_2_anh0010(hdc: GDI_DC; numerator: IntPtr; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: array of Int32; denominator: IntPtr): UInt32 :=
+    private z_GetMscRateOML_ovr_2 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_2_anh0010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: array of Int32; denominator: IntPtr): Bool :=
     if (numerator<>nil) and (numerator.Length<>0) then
       z_GetMscRateOML_ovr_2(hdc, numerator[0], denominator) else
       z_GetMscRateOML_ovr_2_anh0010(hdc, IntPtr.Zero, denominator);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; var numerator: Int32; denominator: array of Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; var numerator: Int32; denominator: array of Int32): Bool :=
     if (denominator<>nil) and (denominator.Length<>0) then
       z_GetMscRateOML_ovr_0(hdc, numerator, denominator[0]) else
       z_GetMscRateOML_ovr_0_anh0001(hdc, numerator, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; var numerator: Int32; var denominator: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; var numerator: Int32; var denominator: Int32): Bool :=
     z_GetMscRateOML_ovr_0(hdc, numerator, denominator);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; var numerator: Int32; denominator: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; var numerator: Int32; denominator: IntPtr): Bool :=
     z_GetMscRateOML_ovr_2(hdc, numerator, denominator);
-    private static function z_GetMscRateOML_ovr_6(hdc: GDI_DC; numerator: IntPtr; var denominator: Int32): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    private static function z_GetMscRateOML_ovr_6_anh0001(hdc: GDI_DC; numerator: IntPtr; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: IntPtr; denominator: array of Int32): UInt32 :=
+    private z_GetMscRateOML_ovr_6 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_6_anh0001 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: IntPtr; denominator: array of Int32): Bool :=
     if (denominator<>nil) and (denominator.Length<>0) then
       z_GetMscRateOML_ovr_6(hdc, numerator, denominator[0]) else
       z_GetMscRateOML_ovr_6_anh0001(hdc, numerator, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: IntPtr; var denominator: Int32): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: IntPtr; var denominator: Int32): Bool :=
     z_GetMscRateOML_ovr_6(hdc, numerator, denominator);
-    private static function z_GetMscRateOML_ovr_8(hdc: GDI_DC; numerator: IntPtr; denominator: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglGetMscRateOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMscRateOML(hdc: GDI_DC; numerator: IntPtr; denominator: IntPtr): UInt32 :=
+    private z_GetMscRateOML_ovr_8 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(hdc: gdi_device_context; numerator: IntPtr; denominator: IntPtr): Bool :=
     z_GetMscRateOML_ovr_8(hdc, numerator, denominator);
     
-    private static function z_SwapBuffersMscOML_ovr_0(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64): Int64;
-    external 'opengl32.dll' name 'wglSwapBuffersMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapBuffersMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64): Int64 :=
+    private z_SwapBuffersMscOML_adr := GetFuncAdr('wglSwapBuffersMscOML');
+    private z_SwapBuffersMscOML_ovr_0 := GetFuncOrNil&(z_SwapBuffersMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapBuffersMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64): Int64 :=
     z_SwapBuffersMscOML_ovr_0(hdc, target_msc, divisor, remainder);
     
-    private static function z_SwapLayerBuffersMscOML_ovr_0(hdc: GDI_DC; fuPlanes: Int32; target_msc: Int64; divisor: Int64; remainder: Int64): Int64;
-    external 'opengl32.dll' name 'wglSwapLayerBuffersMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function SwapLayerBuffersMscOML(hdc: GDI_DC; fuPlanes: Int32; target_msc: Int64; divisor: Int64; remainder: Int64): Int64 :=
+    private z_SwapLayerBuffersMscOML_adr := GetFuncAdr('wglSwapLayerBuffersMscOML');
+    private z_SwapLayerBuffersMscOML_ovr_0 := GetFuncOrNil&(z_SwapLayerBuffersMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapLayerBuffersMscOML(hdc: gdi_device_context; fuPlanes: Int32; target_msc: Int64; divisor: Int64; remainder: Int64): Int64 :=
     z_SwapLayerBuffersMscOML_ovr_0(hdc, fuPlanes, target_msc, divisor, remainder);
     
-    private static function z_WaitForMscOML_ovr_0(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000110(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000001(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000101(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000011(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_0_anh00000111(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForMscOML_adr := GetFuncAdr('wglWaitForMscOML');
+    private z_WaitForMscOML_ovr_0 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000011 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh00000111 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         if (sbc<>nil) and (sbc.Length<>0) then
@@ -76198,13 +71740,10 @@ type
         if (sbc<>nil) and (sbc.Length<>0) then
           z_WaitForMscOML_ovr_0_anh00000110(hdc, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
           z_WaitForMscOML_ovr_0_anh00000111(hdc, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_WaitForMscOML_ovr_1_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_1_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_1_anh00000110(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_1_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_1_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_1_anh00000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust[0], msc[0], sbc) else
@@ -76212,15 +71751,11 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForMscOML_ovr_0_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc[0], sbc) else
         z_WaitForMscOML_ovr_0_anh00000110(hdc, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_WaitForMscOML_ovr_2(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_2_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_2_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_2_anh00000110(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForMscOML_ovr_2 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh00000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForMscOML_ovr_2(hdc, target_msc, divisor, remainder, ust[0], msc[0], sbc) else
@@ -76228,11 +71763,9 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForMscOML_ovr_2_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc[0], sbc) else
         z_WaitForMscOML_ovr_2_anh00000110(hdc, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_WaitForMscOML_ovr_3_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_3_anh00000101(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_3_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_3_anh00000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust[0], msc, sbc[0]) else
@@ -76240,27 +71773,21 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_0_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc[0]) else
         z_WaitForMscOML_ovr_0_anh00000101(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_WaitForMscOML_ovr_4_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_4_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust[0], msc, sbc) else
       z_WaitForMscOML_ovr_0_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForMscOML_ovr_5_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForMscOML_ovr_5_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForMscOML_ovr_2(hdc, target_msc, divisor, remainder, ust[0], msc, sbc) else
       z_WaitForMscOML_ovr_2_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForMscOML_ovr_6(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_6_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_6_anh00000001(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_6_anh00000101(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_6 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh00000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh00000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_6(hdc, target_msc, divisor, remainder, ust[0], msc, sbc[0]) else
@@ -76268,21 +71795,18 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_6_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc[0]) else
         z_WaitForMscOML_ovr_6_anh00000101(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_WaitForMscOML_ovr_7_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_7_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForMscOML_ovr_6(hdc, target_msc, divisor, remainder, ust[0], msc, sbc) else
       z_WaitForMscOML_ovr_6_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForMscOML_ovr_8(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_8_anh00000100(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_WaitForMscOML_ovr_8 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_8_anh00000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForMscOML_ovr_8(hdc, target_msc, divisor, remainder, ust[0], msc, sbc) else
       z_WaitForMscOML_ovr_8_anh00000100(hdc, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust, msc[0], sbc[0]) else
@@ -76290,39 +71814,35 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_0_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc[0]) else
         z_WaitForMscOML_ovr_0_anh00000011(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust, msc[0], sbc) else
       z_WaitForMscOML_ovr_0_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForMscOML_ovr_2(hdc, target_msc, divisor, remainder, ust, msc[0], sbc) else
       z_WaitForMscOML_ovr_2_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust, msc, sbc[0]) else
       z_WaitForMscOML_ovr_0_anh00000001(hdc, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
     z_WaitForMscOML_ovr_0(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
     z_WaitForMscOML_ovr_2(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForMscOML_ovr_6(hdc, target_msc, divisor, remainder, ust, msc, sbc[0]) else
       z_WaitForMscOML_ovr_6_anh00000001(hdc, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
     z_WaitForMscOML_ovr_6(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     z_WaitForMscOML_ovr_8(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    private static function z_WaitForMscOML_ovr_18(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_18_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_18_anh00000001(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_18_anh00000011(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_18 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh00000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh00000011 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_18(hdc, target_msc, divisor, remainder, ust, msc[0], sbc[0]) else
@@ -76330,60 +71850,47 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForMscOML_ovr_18_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc[0]) else
         z_WaitForMscOML_ovr_18_anh00000011(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, IntPtr.Zero);
-    private static function z_WaitForMscOML_ovr_19_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_19_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForMscOML_ovr_18(hdc, target_msc, divisor, remainder, ust, msc[0], sbc) else
       z_WaitForMscOML_ovr_18_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
-    private static function z_WaitForMscOML_ovr_20(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_20_anh00000010(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForMscOML_ovr_20 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_20_anh00000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForMscOML_ovr_20(hdc, target_msc, divisor, remainder, ust, msc[0], sbc) else
       z_WaitForMscOML_ovr_20_anh00000010(hdc, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForMscOML_ovr_18(hdc, target_msc, divisor, remainder, ust, msc, sbc[0]) else
       z_WaitForMscOML_ovr_18_anh00000001(hdc, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
     z_WaitForMscOML_ovr_18(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
     z_WaitForMscOML_ovr_20(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    private static function z_WaitForMscOML_ovr_24(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    private static function z_WaitForMscOML_ovr_24_anh00000001(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_WaitForMscOML_ovr_24 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_24_anh00000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForMscOML_ovr_24(hdc, target_msc, divisor, remainder, ust, msc, sbc[0]) else
       z_WaitForMscOML_ovr_24_anh00000001(hdc, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
     z_WaitForMscOML_ovr_24(hdc, target_msc, divisor, remainder, ust, msc, sbc);
-    private static function z_WaitForMscOML_ovr_26(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForMscOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForMscOML(hdc: GDI_DC; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_WaitForMscOML_ovr_26 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(hdc: gdi_device_context; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
     z_WaitForMscOML_ovr_26(hdc, target_msc, divisor, remainder, ust, msc, sbc);
     
-    private static function z_WaitForSbcOML_ovr_0(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000010(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000110(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000001(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000101(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000011(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_0_anh000111(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForSbcOML_adr := GetFuncAdr('wglWaitForSbcOML');
+    private z_WaitForSbcOML_ovr_0 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000011 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh000111 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         if (sbc<>nil) and (sbc.Length<>0) then
@@ -76399,13 +71906,10 @@ type
         if (sbc<>nil) and (sbc.Length<>0) then
           z_WaitForSbcOML_ovr_0_anh000110(hdc, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
           z_WaitForSbcOML_ovr_0_anh000111(hdc, target_sbc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
-    private static function z_WaitForSbcOML_ovr_1_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_1_anh000010(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_1_anh000110(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_1_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_1_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_1_anh000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust[0], msc[0], sbc) else
@@ -76413,15 +71917,11 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForSbcOML_ovr_0_anh000100(hdc, target_sbc, IntPtr.Zero, msc[0], sbc) else
         z_WaitForSbcOML_ovr_0_anh000110(hdc, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_WaitForSbcOML_ovr_2(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_2_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_2_anh000010(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_2_anh000110(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForSbcOML_ovr_2 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForSbcOML_ovr_2(hdc, target_sbc, ust[0], msc[0], sbc) else
@@ -76429,11 +71929,9 @@ type
       if (msc<>nil) and (msc.Length<>0) then
         z_WaitForSbcOML_ovr_2_anh000100(hdc, target_sbc, IntPtr.Zero, msc[0], sbc) else
         z_WaitForSbcOML_ovr_2_anh000110(hdc, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc);
-    private static function z_WaitForSbcOML_ovr_3_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_3_anh000101(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_3_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_3_anh000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust[0], msc, sbc[0]) else
@@ -76441,27 +71939,21 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_0_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc[0]) else
         z_WaitForSbcOML_ovr_0_anh000101(hdc, target_sbc, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_WaitForSbcOML_ovr_4_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_4_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust[0], msc, sbc) else
       z_WaitForSbcOML_ovr_0_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_5_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForSbcOML_ovr_5_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForSbcOML_ovr_2(hdc, target_sbc, ust[0], msc, sbc) else
       z_WaitForSbcOML_ovr_2_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_6(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_6_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_6_anh000001(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_6_anh000101(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_6 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_6(hdc, target_sbc, ust[0], msc, sbc[0]) else
@@ -76469,21 +71961,18 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_6_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc[0]) else
         z_WaitForSbcOML_ovr_6_anh000101(hdc, target_sbc, IntPtr.Zero, msc, IntPtr.Zero);
-    private static function z_WaitForSbcOML_ovr_7_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_7_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForSbcOML_ovr_6(hdc, target_sbc, ust[0], msc, sbc) else
       z_WaitForSbcOML_ovr_6_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_8(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_8_anh000100(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_WaitForSbcOML_ovr_8 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_8_anh000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     if (ust<>nil) and (ust.Length<>0) then
       z_WaitForSbcOML_ovr_8(hdc, target_sbc, ust[0], msc, sbc) else
       z_WaitForSbcOML_ovr_8_anh000100(hdc, target_sbc, IntPtr.Zero, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust, msc[0], sbc[0]) else
@@ -76491,39 +71980,35 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_0_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc[0]) else
         z_WaitForSbcOML_ovr_0_anh000011(hdc, target_sbc, ust, IntPtr.Zero, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust, msc[0], sbc) else
       z_WaitForSbcOML_ovr_0_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForSbcOML_ovr_2(hdc, target_sbc, ust, msc[0], sbc) else
       z_WaitForSbcOML_ovr_2_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust, msc, sbc[0]) else
       z_WaitForSbcOML_ovr_0_anh000001(hdc, target_sbc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
     z_WaitForSbcOML_ovr_0(hdc, target_sbc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
     z_WaitForSbcOML_ovr_2(hdc, target_sbc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForSbcOML_ovr_6(hdc, target_sbc, ust, msc, sbc[0]) else
       z_WaitForSbcOML_ovr_6_anh000001(hdc, target_sbc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
     z_WaitForSbcOML_ovr_6(hdc, target_sbc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
     z_WaitForSbcOML_ovr_8(hdc, target_sbc, ust, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_18(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_18_anh000010(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_18_anh000001(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_18_anh000011(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_18 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh000011 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_18(hdc, target_sbc, ust, msc[0], sbc[0]) else
@@ -76531,49 +72016,3155 @@ type
       if (sbc<>nil) and (sbc.Length<>0) then
         z_WaitForSbcOML_ovr_18_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc[0]) else
         z_WaitForSbcOML_ovr_18_anh000011(hdc, target_sbc, ust, IntPtr.Zero, IntPtr.Zero);
-    private static function z_WaitForSbcOML_ovr_19_anh000010(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_19_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForSbcOML_ovr_18(hdc, target_sbc, ust, msc[0], sbc) else
       z_WaitForSbcOML_ovr_18_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc);
-    private static function z_WaitForSbcOML_ovr_20(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_20_anh000010(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): UInt32 :=
+    private z_WaitForSbcOML_ovr_20 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_20_anh000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
     if (msc<>nil) and (msc.Length<>0) then
       z_WaitForSbcOML_ovr_20(hdc, target_sbc, ust, msc[0], sbc) else
       z_WaitForSbcOML_ovr_20_anh000010(hdc, target_sbc, ust, IntPtr.Zero, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForSbcOML_ovr_18(hdc, target_sbc, ust, msc, sbc[0]) else
       z_WaitForSbcOML_ovr_18_anh000001(hdc, target_sbc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
     z_WaitForSbcOML_ovr_18(hdc, target_sbc, ust, msc, sbc);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
     z_WaitForSbcOML_ovr_20(hdc, target_sbc, ust, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_24(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    private static function z_WaitForSbcOML_ovr_24_anh000001(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): UInt32 :=
+    private z_WaitForSbcOML_ovr_24 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_24_anh000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
     if (sbc<>nil) and (sbc.Length<>0) then
       z_WaitForSbcOML_ovr_24(hdc, target_sbc, ust, msc, sbc[0]) else
       z_WaitForSbcOML_ovr_24_anh000001(hdc, target_sbc, ust, msc, IntPtr.Zero);
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): UInt32 :=
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
     z_WaitForSbcOML_ovr_24(hdc, target_sbc, ust, msc, sbc);
-    private static function z_WaitForSbcOML_ovr_26(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32;
-    external 'opengl32.dll' name 'wglWaitForSbcOML';
-    public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function WaitForSbcOML(hdc: GDI_DC; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): UInt32 :=
+    private z_WaitForSbcOML_ovr_26 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(hdc: gdi_device_context; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
     z_WaitForSbcOML_ovr_26(hdc, target_sbc, ust, msc, sbc);
     
   end;
   
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxGpuAssociationAMD = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'AMD_gpu_association';
+    
+    private z_GetGPUIDsAMD_adr := GetFuncAdr('glXGetGPUIDsAMD');
+    private z_GetGPUIDsAMD_ovr_0 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    private z_GetGPUIDsAMD_ovr_0_anh001 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; ids: array of UInt32): UInt32 :=
+    if (ids<>nil) and (ids.Length<>0) then
+      z_GetGPUIDsAMD_ovr_0(maxCount, ids[0]) else
+      z_GetGPUIDsAMD_ovr_0_anh001(maxCount, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; var ids: UInt32): UInt32 :=
+    z_GetGPUIDsAMD_ovr_0(maxCount, ids);
+    private z_GetGPUIDsAMD_ovr_2 := GetFuncOrNil&(z_GetGPUIDsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUIDsAMD(maxCount: UInt32; ids: IntPtr): UInt32 :=
+    z_GetGPUIDsAMD_ovr_2(maxCount, ids);
+    
+    private z_GetGPUInfoAMD_adr := GetFuncAdr('glXGetGPUInfoAMD');
+    private z_GetGPUInfoAMD_ovr_0 := GetFuncOrNil&(z_GetGPUInfoAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetGPUInfoAMD(id: UInt32; &property: Int32; dataType: DummyEnum; size: UInt32; data: IntPtr): Int32 :=
+    z_GetGPUInfoAMD_ovr_0(id, &property, dataType, size, data);
+    
+    private z_GetContextGPUIDAMD_adr := GetFuncAdr('glXGetContextGPUIDAMD');
+    private z_GetContextGPUIDAMD_ovr_0 := GetFuncOrNil&(z_GetContextGPUIDAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetContextGPUIDAMD(ctx: glx_context): UInt32 :=
+    z_GetContextGPUIDAMD_ovr_0(ctx);
+    
+    private z_CreateAssociatedContextAMD_adr := GetFuncAdr('glXCreateAssociatedContextAMD');
+    private z_CreateAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_CreateAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAMD(id: UInt32; share_list: glx_context): glx_context :=
+    z_CreateAssociatedContextAMD_ovr_0(id, share_list);
+    
+    private z_CreateAssociatedContextAttribsAMD_adr := GetFuncAdr('glXCreateAssociatedContextAttribsAMD');
+    private z_CreateAssociatedContextAttribsAMD_ovr_0 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    private z_CreateAssociatedContextAttribsAMD_ovr_0_anh0001 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; share_context: glx_context; attribList: array of Int32): glx_context :=
+    if (attribList<>nil) and (attribList.Length<>0) then
+      z_CreateAssociatedContextAttribsAMD_ovr_0(id, share_context, attribList[0]) else
+      z_CreateAssociatedContextAttribsAMD_ovr_0_anh0001(id, share_context, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; share_context: glx_context; var attribList: Int32): glx_context :=
+    z_CreateAssociatedContextAttribsAMD_ovr_0(id, share_context, attribList);
+    private z_CreateAssociatedContextAttribsAMD_ovr_2 := GetFuncOrNil&(z_CreateAssociatedContextAttribsAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateAssociatedContextAttribsAMD(id: UInt32; share_context: glx_context; attribList: IntPtr): glx_context :=
+    z_CreateAssociatedContextAttribsAMD_ovr_2(id, share_context, attribList);
+    
+    private z_DeleteAssociatedContextAMD_adr := GetFuncAdr('glXDeleteAssociatedContextAMD');
+    private z_DeleteAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_DeleteAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DeleteAssociatedContextAMD(ctx: glx_context): Bool :=
+    z_DeleteAssociatedContextAMD_ovr_0(ctx);
+    
+    private z_MakeAssociatedContextCurrentAMD_adr := GetFuncAdr('glXMakeAssociatedContextCurrentAMD');
+    private z_MakeAssociatedContextCurrentAMD_ovr_0 := GetFuncOrNil&(z_MakeAssociatedContextCurrentAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MakeAssociatedContextCurrentAMD(ctx: glx_context): Bool :=
+    z_MakeAssociatedContextCurrentAMD_ovr_0(ctx);
+    
+    private z_GetCurrentAssociatedContextAMD_adr := GetFuncAdr('glXGetCurrentAssociatedContextAMD');
+    private z_GetCurrentAssociatedContextAMD_ovr_0 := GetFuncOrNil&(z_GetCurrentAssociatedContextAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentAssociatedContextAMD: glx_context :=
+    z_GetCurrentAssociatedContextAMD_ovr_0;
+    
+    private z_BlitContextFramebufferAMD_adr := GetFuncAdr('glXBlitContextFramebufferAMD');
+    private z_BlitContextFramebufferAMD_ovr_0 := GetFuncOrNil&(z_BlitContextFramebufferAMD_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BlitContextFramebufferAMD(dstCtx: glx_context; srcX0: Int32; srcY0: Int32; srcX1: Int32; srcY1: Int32; dstX0: Int32; dstY0: Int32; dstX1: Int32; dstY1: Int32; mask: DummyFlags; filter: DummyEnum) :=
+    z_BlitContextFramebufferAMD_ovr_0(dstCtx, srcX0, srcY0, srcX1, srcY1, dstX0, dstY0, dstX1, dstY1, mask, filter);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxCreateContextARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'ARB_create_context';
+    
+    private z_CreateContextAttribsARB_adr := GetFuncAdr('glXCreateContextAttribsARB');
+    private z_CreateContextAttribsARB_ovr_0 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    private z_CreateContextAttribsARB_ovr_0_anh000001 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(dpy: x_p_display; config: glx_fb_config; share_context: glx_context; direct: Bool; attrib_list: array of Int32): glx_context :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_CreateContextAttribsARB_ovr_0(dpy, config, share_context, direct, attrib_list[0]) else
+      z_CreateContextAttribsARB_ovr_0_anh000001(dpy, config, share_context, direct, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(dpy: x_p_display; config: glx_fb_config; share_context: glx_context; direct: Bool; var attrib_list: Int32): glx_context :=
+    z_CreateContextAttribsARB_ovr_0(dpy, config, share_context, direct, attrib_list);
+    private z_CreateContextAttribsARB_ovr_2 := GetFuncOrNil&(z_CreateContextAttribsARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextAttribsARB(dpy: x_p_display; config: glx_fb_config; share_context: glx_context; direct: Bool; attrib_list: IntPtr): glx_context :=
+    z_CreateContextAttribsARB_ovr_2(dpy, config, share_context, direct, attrib_list);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxGetProcAddressARB = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'ARB_get_proc_address';
+    
+    private z_GetProcAddressARB_adr := GetFuncAdr('glXGetProcAddressARB');
+    private z_GetProcAddressARB_ovr_0 := GetFuncOrNil&(z_GetProcAddressARB_adr);
+    private z_GetProcAddressARB_ovr_0_anh01 := GetFuncOrNil&(z_GetProcAddressARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProcAddressARB(procName: array of Byte): IntPtr :=
+    if (procName<>nil) and (procName.Length<>0) then
+      z_GetProcAddressARB_ovr_0(procName[0]) else
+      z_GetProcAddressARB_ovr_0_anh01(IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProcAddressARB(var procName: Byte): IntPtr :=
+    z_GetProcAddressARB_ovr_0(procName);
+    private z_GetProcAddressARB_ovr_2 := GetFuncOrNil&(z_GetProcAddressARB_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetProcAddressARB(procName: IntPtr): IntPtr :=
+    z_GetProcAddressARB_ovr_2(procName);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxImportContextEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'EXT_import_context';
+    
+    private z_GetCurrentDisplayEXT_adr := GetFuncAdr('glXGetCurrentDisplayEXT');
+    private z_GetCurrentDisplayEXT_ovr_0 := GetFuncOrNil&(z_GetCurrentDisplayEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentDisplayEXT: x_p_display :=
+    z_GetCurrentDisplayEXT_ovr_0;
+    
+    private z_QueryContextInfoEXT_adr := GetFuncAdr('glXQueryContextInfoEXT');
+    private z_QueryContextInfoEXT_ovr_0 := GetFuncOrNil&(z_QueryContextInfoEXT_adr);
+    private z_QueryContextInfoEXT_ovr_0_anh00001 := GetFuncOrNil&(z_QueryContextInfoEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryContextInfoEXT(dpy: x_p_display; context: glx_context; attribute: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryContextInfoEXT_ovr_0(dpy, context, attribute, value[0]) else
+      z_QueryContextInfoEXT_ovr_0_anh00001(dpy, context, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryContextInfoEXT(dpy: x_p_display; context: glx_context; attribute: Int32; var value: Int32): Int32 :=
+    z_QueryContextInfoEXT_ovr_0(dpy, context, attribute, value);
+    private z_QueryContextInfoEXT_ovr_2 := GetFuncOrNil&(z_QueryContextInfoEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryContextInfoEXT(dpy: x_p_display; context: glx_context; attribute: Int32; value: IntPtr): Int32 :=
+    z_QueryContextInfoEXT_ovr_2(dpy, context, attribute, value);
+    
+    private z_GetContextIDEXT_adr := GetFuncAdr('glXGetContextIDEXT');
+    private z_GetContextIDEXT_ovr_0 := GetFuncOrNil&(z_GetContextIDEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetContextIDEXT(context: glx_context): glx_context_id :=
+    z_GetContextIDEXT_ovr_0(context);
+    
+    private z_ImportContextEXT_adr := GetFuncAdr('glXImportContextEXT');
+    private z_ImportContextEXT_ovr_0 := GetFuncOrNil&(z_ImportContextEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ImportContextEXT(dpy: x_p_display; contextID: glx_context_id): glx_context :=
+    z_ImportContextEXT_ovr_0(dpy, contextID);
+    
+    private z_FreeContextEXT_adr := GetFuncAdr('glXFreeContextEXT');
+    private z_FreeContextEXT_ovr_0 := GetFuncOrNil&(z_FreeContextEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure FreeContextEXT(dpy: x_p_display; context: glx_context) :=
+    z_FreeContextEXT_ovr_0(dpy, context);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapControlEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'EXT_swap_control';
+    
+    private z_SwapIntervalEXT_adr := GetFuncAdr('glXSwapIntervalEXT');
+    private z_SwapIntervalEXT_ovr_0 := GetFuncOrNil&(z_SwapIntervalEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SwapIntervalEXT(dpy: x_p_display; drawable: glx_drawable; interval: Int32) :=
+    z_SwapIntervalEXT_ovr_0(dpy, drawable, interval);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxTextureFromPixmapEXT = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'EXT_texture_from_pixmap';
+    
+    private z_BindTexImageEXT_adr := GetFuncAdr('glXBindTexImageEXT');
+    private z_BindTexImageEXT_ovr_0 := GetFuncOrNil&(z_BindTexImageEXT_adr);
+    private z_BindTexImageEXT_ovr_0_anh00001 := GetFuncOrNil&(z_BindTexImageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTexImageEXT(dpy: x_p_display; drawable: glx_drawable; buffer: Int32; attrib_list: array of Int32) :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_BindTexImageEXT_ovr_0(dpy, drawable, buffer, attrib_list[0]) else
+      z_BindTexImageEXT_ovr_0_anh00001(dpy, drawable, buffer, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTexImageEXT(dpy: x_p_display; drawable: glx_drawable; buffer: Int32; var attrib_list: Int32) :=
+    z_BindTexImageEXT_ovr_0(dpy, drawable, buffer, attrib_list);
+    private z_BindTexImageEXT_ovr_2 := GetFuncOrNil&(z_BindTexImageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindTexImageEXT(dpy: x_p_display; drawable: glx_drawable; buffer: Int32; attrib_list: IntPtr) :=
+    z_BindTexImageEXT_ovr_2(dpy, drawable, buffer, attrib_list);
+    
+    private z_ReleaseTexImageEXT_adr := GetFuncAdr('glXReleaseTexImageEXT');
+    private z_ReleaseTexImageEXT_ovr_0 := GetFuncOrNil&(z_ReleaseTexImageEXT_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReleaseTexImageEXT(dpy: x_p_display; drawable: glx_drawable; buffer: Int32) :=
+    z_ReleaseTexImageEXT_ovr_0(dpy, drawable, buffer);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxAgpOffsetMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_agp_offset';
+    
+    private z_GetAGPOffsetMESA_adr := GetFuncAdr('glXGetAGPOffsetMESA');
+    private z_GetAGPOffsetMESA_ovr_0 := GetFuncOrNil&(z_GetAGPOffsetMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetAGPOffsetMESA(pointer: IntPtr): UInt32 :=
+    z_GetAGPOffsetMESA_ovr_0(pointer);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxCopySubBufferMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_copy_sub_buffer';
+    
+    private z_CopySubBufferMESA_adr := GetFuncAdr('glXCopySubBufferMESA');
+    private z_CopySubBufferMESA_ovr_0 := GetFuncOrNil&(z_CopySubBufferMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopySubBufferMESA(dpy: x_p_display; drawable: glx_drawable; x: Int32; y: Int32; width: Int32; height: Int32) :=
+    z_CopySubBufferMESA_ovr_0(dpy, drawable, x, y, width, height);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxPixmapColormapMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_pixmap_colormap';
+    
+    private z_CreateGLXPixmapMESA_adr := GetFuncAdr('glXCreateGLXPixmapMESA');
+    private z_CreateGLXPixmapMESA_ovr_0 := GetFuncOrNil&(z_CreateGLXPixmapMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXPixmapMESA(dpy: x_p_display; visual: x_p_visual_info; pixmap: x_pixmap; cmap: x_colormap): glx_pixmap :=
+    z_CreateGLXPixmapMESA_ovr_0(dpy, visual, pixmap, cmap);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxQueryRendererMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_query_renderer';
+    
+    private z_QueryCurrentRendererIntegerMESA_adr := GetFuncAdr('glXQueryCurrentRendererIntegerMESA');
+    private z_QueryCurrentRendererIntegerMESA_ovr_0 := GetFuncOrNil&(z_QueryCurrentRendererIntegerMESA_adr);
+    private z_QueryCurrentRendererIntegerMESA_ovr_0_anh001 := GetFuncOrNil&(z_QueryCurrentRendererIntegerMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentRendererIntegerMESA(attribute: Int32; value: array of UInt32): Bool :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryCurrentRendererIntegerMESA_ovr_0(attribute, value[0]) else
+      z_QueryCurrentRendererIntegerMESA_ovr_0_anh001(attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentRendererIntegerMESA(attribute: Int32; var value: UInt32): Bool :=
+    z_QueryCurrentRendererIntegerMESA_ovr_0(attribute, value);
+    private z_QueryCurrentRendererIntegerMESA_ovr_2 := GetFuncOrNil&(z_QueryCurrentRendererIntegerMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentRendererIntegerMESA(attribute: Int32; value: IntPtr): Bool :=
+    z_QueryCurrentRendererIntegerMESA_ovr_2(attribute, value);
+    
+    private z_QueryCurrentRendererStringMESA_adr := GetFuncAdr('glXQueryCurrentRendererStringMESA');
+    private z_QueryCurrentRendererStringMESA_ovr_0 := GetFuncOrNil&(z_QueryCurrentRendererStringMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryCurrentRendererStringMESA(attribute: Int32): string;
+    begin
+      var res_str_ptr: IntPtr;
+      res_str_ptr := z_QueryCurrentRendererStringMESA_ovr_0(attribute);
+      Result := Marshal.PtrToStringAnsi(res_str_ptr);
+    end;
+    
+    private z_QueryRendererIntegerMESA_adr := GetFuncAdr('glXQueryRendererIntegerMESA');
+    private z_QueryRendererIntegerMESA_ovr_0 := GetFuncOrNil&(z_QueryRendererIntegerMESA_adr);
+    private z_QueryRendererIntegerMESA_ovr_0_anh000001 := GetFuncOrNil&(z_QueryRendererIntegerMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryRendererIntegerMESA(dpy: x_p_display; screen: Int32; renderer: Int32; attribute: Int32; value: array of UInt32): Bool :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryRendererIntegerMESA_ovr_0(dpy, screen, renderer, attribute, value[0]) else
+      z_QueryRendererIntegerMESA_ovr_0_anh000001(dpy, screen, renderer, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryRendererIntegerMESA(dpy: x_p_display; screen: Int32; renderer: Int32; attribute: Int32; var value: UInt32): Bool :=
+    z_QueryRendererIntegerMESA_ovr_0(dpy, screen, renderer, attribute, value);
+    private z_QueryRendererIntegerMESA_ovr_2 := GetFuncOrNil&(z_QueryRendererIntegerMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryRendererIntegerMESA(dpy: x_p_display; screen: Int32; renderer: Int32; attribute: Int32; value: IntPtr): Bool :=
+    z_QueryRendererIntegerMESA_ovr_2(dpy, screen, renderer, attribute, value);
+    
+    private z_QueryRendererStringMESA_adr := GetFuncAdr('glXQueryRendererStringMESA');
+    private z_QueryRendererStringMESA_ovr_0 := GetFuncOrNil&(z_QueryRendererStringMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryRendererStringMESA(dpy: x_p_display; screen: Int32; renderer: Int32; attribute: Int32): string;
+    begin
+      var res_str_ptr: IntPtr;
+      res_str_ptr := z_QueryRendererStringMESA_ovr_0(dpy, screen, renderer, attribute);
+      Result := Marshal.PtrToStringAnsi(res_str_ptr);
+    end;
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxReleaseBuffersMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_release_buffers';
+    
+    private z_ReleaseBuffersMESA_adr := GetFuncAdr('glXReleaseBuffersMESA');
+    private z_ReleaseBuffersMESA_ovr_0 := GetFuncOrNil&(z_ReleaseBuffersMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseBuffersMESA(dpy: x_p_display; drawable: glx_drawable): Bool :=
+    z_ReleaseBuffersMESA_ovr_0(dpy, drawable);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSet3dfxModeMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_set_3dfx_mode';
+    
+    private z_Set3DfxModeMESA_adr := GetFuncAdr('glXSet3DfxModeMESA');
+    private z_Set3DfxModeMESA_ovr_0 := GetFuncOrNil&(z_Set3DfxModeMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function Set3DfxModeMESA(mode: Int32): boolean :=
+    z_Set3DfxModeMESA_ovr_0(mode);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapControlMESA = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'MESA_swap_control';
+    
+    private z_GetSwapIntervalMESA_adr := GetFuncAdr('glXGetSwapIntervalMESA');
+    private z_GetSwapIntervalMESA_ovr_0 := GetFuncOrNil&(z_GetSwapIntervalMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSwapIntervalMESA: Int32 :=
+    z_GetSwapIntervalMESA_ovr_0;
+    
+    private z_SwapIntervalMESA_adr := GetFuncAdr('glXSwapIntervalMESA');
+    private z_SwapIntervalMESA_ovr_0 := GetFuncOrNil&(z_SwapIntervalMESA_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapIntervalMESA(interval: UInt32): Int32 :=
+    z_SwapIntervalMESA_ovr_0(interval);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxCopyBufferNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_copy_buffer';
+    
+    private z_CopyBufferSubDataNV_adr := GetFuncAdr('glXCopyBufferSubDataNV');
+    private z_CopyBufferSubDataNV_ovr_0 := GetFuncOrNil&(z_CopyBufferSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyBufferSubDataNV(dpy: x_p_display; readCtx: glx_context; writeCtx: glx_context; readTarget: DummyEnum; writeTarget: DummyEnum; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    z_CopyBufferSubDataNV_ovr_0(dpy, readCtx, writeCtx, readTarget, writeTarget, readOffset, writeOffset, size);
+    
+    private z_NamedCopyBufferSubDataNV_adr := GetFuncAdr('glXNamedCopyBufferSubDataNV');
+    private z_NamedCopyBufferSubDataNV_ovr_0 := GetFuncOrNil&(z_NamedCopyBufferSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure NamedCopyBufferSubDataNV(dpy: x_p_display; readCtx: glx_context; writeCtx: glx_context; readBuffer: UInt32; writeBuffer: UInt32; readOffset: IntPtr; writeOffset: IntPtr; size: IntPtr) :=
+    z_NamedCopyBufferSubDataNV_ovr_0(dpy, readCtx, writeCtx, readBuffer, writeBuffer, readOffset, writeOffset, size);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxCopyImageNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_copy_image';
+    
+    private z_CopyImageSubDataNV_adr := GetFuncAdr('glXCopyImageSubDataNV');
+    private z_CopyImageSubDataNV_ovr_0 := GetFuncOrNil&(z_CopyImageSubDataNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CopyImageSubDataNV(dpy: x_p_display; srcCtx: glx_context; srcName: UInt32; srcTarget: DummyEnum; srcLevel: Int32; srcX: Int32; srcY: Int32; srcZ: Int32; dstCtx: glx_context; dstName: UInt32; dstTarget: DummyEnum; dstLevel: Int32; dstX: Int32; dstY: Int32; dstZ: Int32; width: Int32; height: Int32; depth: Int32) :=
+    z_CopyImageSubDataNV_ovr_0(dpy, srcCtx, srcName, srcTarget, srcLevel, srcX, srcY, srcZ, dstCtx, dstName, dstTarget, dstLevel, dstX, dstY, dstZ, width, height, depth);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxDelayBeforeSwapNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_delay_before_swap';
+    
+    private z_DelayBeforeSwapNV_adr := GetFuncAdr('glXDelayBeforeSwapNV');
+    private z_DelayBeforeSwapNV_ovr_0 := GetFuncOrNil&(z_DelayBeforeSwapNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DelayBeforeSwapNV(dpy: x_p_display; drawable: glx_drawable; seconds: single): Bool :=
+    z_DelayBeforeSwapNV_ovr_0(dpy, drawable, seconds);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxPresentVideoNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_present_video';
+    
+    private z_EnumerateVideoDevicesNV_adr := GetFuncAdr('glXEnumerateVideoDevicesNV');
+    private z_EnumerateVideoDevicesNV_ovr_0 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    private z_EnumerateVideoDevicesNV_ovr_0_anh0001 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(dpy: x_p_display; screen: Int32; nelements: array of Int32): ^UInt32 :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_EnumerateVideoDevicesNV_ovr_0(dpy, screen, nelements[0]) else
+      z_EnumerateVideoDevicesNV_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(dpy: x_p_display; screen: Int32; var nelements: Int32): ^UInt32 :=
+    z_EnumerateVideoDevicesNV_ovr_0(dpy, screen, nelements);
+    private z_EnumerateVideoDevicesNV_ovr_2 := GetFuncOrNil&(z_EnumerateVideoDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoDevicesNV(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^UInt32 :=
+    z_EnumerateVideoDevicesNV_ovr_2(dpy, screen, nelements);
+    
+    private z_BindVideoDeviceNV_adr := GetFuncAdr('glXBindVideoDeviceNV');
+    private z_BindVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    private z_BindVideoDeviceNV_ovr_0_anh00001 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(dpy: x_p_display; video_slot: UInt32; video_device: UInt32; attrib_list: array of Int32): Int32 :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_BindVideoDeviceNV_ovr_0(dpy, video_slot, video_device, attrib_list[0]) else
+      z_BindVideoDeviceNV_ovr_0_anh00001(dpy, video_slot, video_device, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(dpy: x_p_display; video_slot: UInt32; video_device: UInt32; var attrib_list: Int32): Int32 :=
+    z_BindVideoDeviceNV_ovr_0(dpy, video_slot, video_device, attrib_list);
+    private z_BindVideoDeviceNV_ovr_2 := GetFuncOrNil&(z_BindVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoDeviceNV(dpy: x_p_display; video_slot: UInt32; video_device: UInt32; attrib_list: IntPtr): Int32 :=
+    z_BindVideoDeviceNV_ovr_2(dpy, video_slot, video_device, attrib_list);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapGroupNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_swap_group';
+    
+    private z_JoinSwapGroupNV_adr := GetFuncAdr('glXJoinSwapGroupNV');
+    private z_JoinSwapGroupNV_ovr_0 := GetFuncOrNil&(z_JoinSwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function JoinSwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: UInt32): Bool :=
+    z_JoinSwapGroupNV_ovr_0(dpy, drawable, group);
+    
+    private z_BindSwapBarrierNV_adr := GetFuncAdr('glXBindSwapBarrierNV');
+    private z_BindSwapBarrierNV_ovr_0 := GetFuncOrNil&(z_BindSwapBarrierNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindSwapBarrierNV(dpy: x_p_display; group: UInt32; barrier: UInt32): Bool :=
+    z_BindSwapBarrierNV_ovr_0(dpy, group, barrier);
+    
+    private z_QuerySwapGroupNV_adr := GetFuncAdr('glXQuerySwapGroupNV');
+    private z_QuerySwapGroupNV_ovr_0 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh00010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh00001 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_0_anh00011 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: array of UInt32; barrier: array of UInt32): Bool :=
+    if (group<>nil) and (group.Length<>0) then
+      if (barrier<>nil) and (barrier.Length<>0) then
+        z_QuerySwapGroupNV_ovr_0(dpy, drawable, group[0], barrier[0]) else
+        z_QuerySwapGroupNV_ovr_0_anh00001(dpy, drawable, group[0], IntPtr.Zero) else
+      if (barrier<>nil) and (barrier.Length<>0) then
+        z_QuerySwapGroupNV_ovr_0_anh00010(dpy, drawable, IntPtr.Zero, barrier[0]) else
+        z_QuerySwapGroupNV_ovr_0_anh00011(dpy, drawable, IntPtr.Zero, IntPtr.Zero);
+    private z_QuerySwapGroupNV_ovr_1_anh00010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: array of UInt32; var barrier: UInt32): Bool :=
+    if (group<>nil) and (group.Length<>0) then
+      z_QuerySwapGroupNV_ovr_0(dpy, drawable, group[0], barrier) else
+      z_QuerySwapGroupNV_ovr_0_anh00010(dpy, drawable, IntPtr.Zero, barrier);
+    private z_QuerySwapGroupNV_ovr_2 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_2_anh00010 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: array of UInt32; barrier: IntPtr): Bool :=
+    if (group<>nil) and (group.Length<>0) then
+      z_QuerySwapGroupNV_ovr_2(dpy, drawable, group[0], barrier) else
+      z_QuerySwapGroupNV_ovr_2_anh00010(dpy, drawable, IntPtr.Zero, barrier);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; var group: UInt32; barrier: array of UInt32): Bool :=
+    if (barrier<>nil) and (barrier.Length<>0) then
+      z_QuerySwapGroupNV_ovr_0(dpy, drawable, group, barrier[0]) else
+      z_QuerySwapGroupNV_ovr_0_anh00001(dpy, drawable, group, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; var group: UInt32; var barrier: UInt32): Bool :=
+    z_QuerySwapGroupNV_ovr_0(dpy, drawable, group, barrier);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; var group: UInt32; barrier: IntPtr): Bool :=
+    z_QuerySwapGroupNV_ovr_2(dpy, drawable, group, barrier);
+    private z_QuerySwapGroupNV_ovr_6 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    private z_QuerySwapGroupNV_ovr_6_anh00001 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: IntPtr; barrier: array of UInt32): Bool :=
+    if (barrier<>nil) and (barrier.Length<>0) then
+      z_QuerySwapGroupNV_ovr_6(dpy, drawable, group, barrier[0]) else
+      z_QuerySwapGroupNV_ovr_6_anh00001(dpy, drawable, group, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: IntPtr; var barrier: UInt32): Bool :=
+    z_QuerySwapGroupNV_ovr_6(dpy, drawable, group, barrier);
+    private z_QuerySwapGroupNV_ovr_8 := GetFuncOrNil&(z_QuerySwapGroupNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QuerySwapGroupNV(dpy: x_p_display; drawable: glx_drawable; group: IntPtr; barrier: IntPtr): Bool :=
+    z_QuerySwapGroupNV_ovr_8(dpy, drawable, group, barrier);
+    
+    private z_QueryMaxSwapGroupsNV_adr := GetFuncAdr('glXQueryMaxSwapGroupsNV');
+    private z_QueryMaxSwapGroupsNV_ovr_0 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh00010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh00001 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_0_anh00011 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: array of UInt32; maxBarriers: array of UInt32): Bool :=
+    if (maxGroups<>nil) and (maxGroups.Length<>0) then
+      if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
+        z_QueryMaxSwapGroupsNV_ovr_0(dpy, screen, maxGroups[0], maxBarriers[0]) else
+        z_QueryMaxSwapGroupsNV_ovr_0_anh00001(dpy, screen, maxGroups[0], IntPtr.Zero) else
+      if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
+        z_QueryMaxSwapGroupsNV_ovr_0_anh00010(dpy, screen, IntPtr.Zero, maxBarriers[0]) else
+        z_QueryMaxSwapGroupsNV_ovr_0_anh00011(dpy, screen, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryMaxSwapGroupsNV_ovr_1_anh00010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: array of UInt32; var maxBarriers: UInt32): Bool :=
+    if (maxGroups<>nil) and (maxGroups.Length<>0) then
+      z_QueryMaxSwapGroupsNV_ovr_0(dpy, screen, maxGroups[0], maxBarriers) else
+      z_QueryMaxSwapGroupsNV_ovr_0_anh00010(dpy, screen, IntPtr.Zero, maxBarriers);
+    private z_QueryMaxSwapGroupsNV_ovr_2 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_2_anh00010 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: array of UInt32; maxBarriers: IntPtr): Bool :=
+    if (maxGroups<>nil) and (maxGroups.Length<>0) then
+      z_QueryMaxSwapGroupsNV_ovr_2(dpy, screen, maxGroups[0], maxBarriers) else
+      z_QueryMaxSwapGroupsNV_ovr_2_anh00010(dpy, screen, IntPtr.Zero, maxBarriers);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; var maxGroups: UInt32; maxBarriers: array of UInt32): Bool :=
+    if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
+      z_QueryMaxSwapGroupsNV_ovr_0(dpy, screen, maxGroups, maxBarriers[0]) else
+      z_QueryMaxSwapGroupsNV_ovr_0_anh00001(dpy, screen, maxGroups, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; var maxGroups: UInt32; var maxBarriers: UInt32): Bool :=
+    z_QueryMaxSwapGroupsNV_ovr_0(dpy, screen, maxGroups, maxBarriers);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; var maxGroups: UInt32; maxBarriers: IntPtr): Bool :=
+    z_QueryMaxSwapGroupsNV_ovr_2(dpy, screen, maxGroups, maxBarriers);
+    private z_QueryMaxSwapGroupsNV_ovr_6 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    private z_QueryMaxSwapGroupsNV_ovr_6_anh00001 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: IntPtr; maxBarriers: array of UInt32): Bool :=
+    if (maxBarriers<>nil) and (maxBarriers.Length<>0) then
+      z_QueryMaxSwapGroupsNV_ovr_6(dpy, screen, maxGroups, maxBarriers[0]) else
+      z_QueryMaxSwapGroupsNV_ovr_6_anh00001(dpy, screen, maxGroups, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: IntPtr; var maxBarriers: UInt32): Bool :=
+    z_QueryMaxSwapGroupsNV_ovr_6(dpy, screen, maxGroups, maxBarriers);
+    private z_QueryMaxSwapGroupsNV_ovr_8 := GetFuncOrNil&(z_QueryMaxSwapGroupsNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapGroupsNV(dpy: x_p_display; screen: Int32; maxGroups: IntPtr; maxBarriers: IntPtr): Bool :=
+    z_QueryMaxSwapGroupsNV_ovr_8(dpy, screen, maxGroups, maxBarriers);
+    
+    private z_QueryFrameCountNV_adr := GetFuncAdr('glXQueryFrameCountNV');
+    private z_QueryFrameCountNV_ovr_0 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    private z_QueryFrameCountNV_ovr_0_anh0001 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(dpy: x_p_display; screen: Int32; count: array of UInt32): Bool :=
+    if (count<>nil) and (count.Length<>0) then
+      z_QueryFrameCountNV_ovr_0(dpy, screen, count[0]) else
+      z_QueryFrameCountNV_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(dpy: x_p_display; screen: Int32; var count: UInt32): Bool :=
+    z_QueryFrameCountNV_ovr_0(dpy, screen, count);
+    private z_QueryFrameCountNV_ovr_2 := GetFuncOrNil&(z_QueryFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryFrameCountNV(dpy: x_p_display; screen: Int32; count: IntPtr): Bool :=
+    z_QueryFrameCountNV_ovr_2(dpy, screen, count);
+    
+    private z_ResetFrameCountNV_adr := GetFuncAdr('glXResetFrameCountNV');
+    private z_ResetFrameCountNV_ovr_0 := GetFuncOrNil&(z_ResetFrameCountNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ResetFrameCountNV(dpy: x_p_display; screen: Int32): Bool :=
+    z_ResetFrameCountNV_ovr_0(dpy, screen);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxVideoCaptureNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_video_capture';
+    
+    private z_BindVideoCaptureDeviceNV_adr := GetFuncAdr('glXBindVideoCaptureDeviceNV');
+    private z_BindVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_BindVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoCaptureDeviceNV(dpy: x_p_display; video_capture_slot: UInt32; device: glx_video_capture_device_NV): Int32 :=
+    z_BindVideoCaptureDeviceNV_ovr_0(dpy, video_capture_slot, device);
+    
+    private z_EnumerateVideoCaptureDevicesNV_adr := GetFuncAdr('glXEnumerateVideoCaptureDevicesNV');
+    private z_EnumerateVideoCaptureDevicesNV_ovr_0 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    private z_EnumerateVideoCaptureDevicesNV_ovr_0_anh0001 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(dpy: x_p_display; screen: Int32; nelements: array of Int32): ^glx_video_capture_device_NV :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_EnumerateVideoCaptureDevicesNV_ovr_0(dpy, screen, nelements[0]) else
+      z_EnumerateVideoCaptureDevicesNV_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(dpy: x_p_display; screen: Int32; var nelements: Int32): ^glx_video_capture_device_NV :=
+    z_EnumerateVideoCaptureDevicesNV_ovr_0(dpy, screen, nelements);
+    private z_EnumerateVideoCaptureDevicesNV_ovr_2 := GetFuncOrNil&(z_EnumerateVideoCaptureDevicesNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function EnumerateVideoCaptureDevicesNV(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_video_capture_device_NV :=
+    z_EnumerateVideoCaptureDevicesNV_ovr_2(dpy, screen, nelements);
+    
+    private z_LockVideoCaptureDeviceNV_adr := GetFuncAdr('glXLockVideoCaptureDeviceNV');
+    private z_LockVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_LockVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure LockVideoCaptureDeviceNV(dpy: x_p_display; device: glx_video_capture_device_NV) :=
+    z_LockVideoCaptureDeviceNV_ovr_0(dpy, device);
+    
+    private z_QueryVideoCaptureDeviceNV_adr := GetFuncAdr('glXQueryVideoCaptureDeviceNV');
+    private z_QueryVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    private z_QueryVideoCaptureDeviceNV_ovr_0_anh00001 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(dpy: x_p_display; device: glx_video_capture_device_NV; attribute: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryVideoCaptureDeviceNV_ovr_0(dpy, device, attribute, value[0]) else
+      z_QueryVideoCaptureDeviceNV_ovr_0_anh00001(dpy, device, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(dpy: x_p_display; device: glx_video_capture_device_NV; attribute: Int32; var value: Int32): Int32 :=
+    z_QueryVideoCaptureDeviceNV_ovr_0(dpy, device, attribute, value);
+    private z_QueryVideoCaptureDeviceNV_ovr_2 := GetFuncOrNil&(z_QueryVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryVideoCaptureDeviceNV(dpy: x_p_display; device: glx_video_capture_device_NV; attribute: Int32; value: IntPtr): Int32 :=
+    z_QueryVideoCaptureDeviceNV_ovr_2(dpy, device, attribute, value);
+    
+    private z_ReleaseVideoCaptureDeviceNV_adr := GetFuncAdr('glXReleaseVideoCaptureDeviceNV');
+    private z_ReleaseVideoCaptureDeviceNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoCaptureDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure ReleaseVideoCaptureDeviceNV(dpy: x_p_display; device: glx_video_capture_device_NV) :=
+    z_ReleaseVideoCaptureDeviceNV_ovr_0(dpy, device);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxVideoOutNV = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'NV_video_out';
+    
+    private z_GetVideoDeviceNV_adr := GetFuncAdr('glXGetVideoDeviceNV');
+    private z_GetVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    private z_GetVideoDeviceNV_ovr_0_anh00001 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(dpy: x_p_display; screen: Int32; numVideoDevices: Int32; pVideoDevice: array of glx_video_device_NV): Int32 :=
+    if (pVideoDevice<>nil) and (pVideoDevice.Length<>0) then
+      z_GetVideoDeviceNV_ovr_0(dpy, screen, numVideoDevices, pVideoDevice[0]) else
+      z_GetVideoDeviceNV_ovr_0_anh00001(dpy, screen, numVideoDevices, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(dpy: x_p_display; screen: Int32; numVideoDevices: Int32; var pVideoDevice: glx_video_device_NV): Int32 :=
+    z_GetVideoDeviceNV_ovr_0(dpy, screen, numVideoDevices, pVideoDevice);
+    private z_GetVideoDeviceNV_ovr_2 := GetFuncOrNil&(z_GetVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoDeviceNV(dpy: x_p_display; screen: Int32; numVideoDevices: Int32; pVideoDevice: IntPtr): Int32 :=
+    z_GetVideoDeviceNV_ovr_2(dpy, screen, numVideoDevices, pVideoDevice);
+    
+    private z_ReleaseVideoDeviceNV_adr := GetFuncAdr('glXReleaseVideoDeviceNV');
+    private z_ReleaseVideoDeviceNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoDeviceNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseVideoDeviceNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV): Int32 :=
+    z_ReleaseVideoDeviceNV_ovr_0(dpy, screen, VideoDevice);
+    
+    private z_BindVideoImageNV_adr := GetFuncAdr('glXBindVideoImageNV');
+    private z_BindVideoImageNV_ovr_0 := GetFuncOrNil&(z_BindVideoImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindVideoImageNV(dpy: x_p_display; VideoDevice: glx_video_device_NV; pbuf: glx_pbuffer; iVideoBuffer: Int32): Int32 :=
+    z_BindVideoImageNV_ovr_0(dpy, VideoDevice, pbuf, iVideoBuffer);
+    
+    private z_ReleaseVideoImageNV_adr := GetFuncAdr('glXReleaseVideoImageNV');
+    private z_ReleaseVideoImageNV_ovr_0 := GetFuncOrNil&(z_ReleaseVideoImageNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ReleaseVideoImageNV(dpy: x_p_display; pbuf: glx_pbuffer): Int32 :=
+    z_ReleaseVideoImageNV_ovr_0(dpy, pbuf);
+    
+    private z_SendPbufferToVideoNV_adr := GetFuncAdr('glXSendPbufferToVideoNV');
+    private z_SendPbufferToVideoNV_ovr_0 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    private z_SendPbufferToVideoNV_ovr_0_anh000010 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(dpy: x_p_display; pbuf: glx_pbuffer; iBufferType: Int32; pulCounterPbuffer: array of UInt64; bBlock: boolean): Int32 :=
+    if (pulCounterPbuffer<>nil) and (pulCounterPbuffer.Length<>0) then
+      z_SendPbufferToVideoNV_ovr_0(dpy, pbuf, iBufferType, pulCounterPbuffer[0], bBlock) else
+      z_SendPbufferToVideoNV_ovr_0_anh000010(dpy, pbuf, iBufferType, IntPtr.Zero, bBlock);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(dpy: x_p_display; pbuf: glx_pbuffer; iBufferType: Int32; var pulCounterPbuffer: UInt64; bBlock: boolean): Int32 :=
+    z_SendPbufferToVideoNV_ovr_0(dpy, pbuf, iBufferType, pulCounterPbuffer, bBlock);
+    private z_SendPbufferToVideoNV_ovr_2 := GetFuncOrNil&(z_SendPbufferToVideoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SendPbufferToVideoNV(dpy: x_p_display; pbuf: glx_pbuffer; iBufferType: Int32; pulCounterPbuffer: IntPtr; bBlock: boolean): Int32 :=
+    z_SendPbufferToVideoNV_ovr_2(dpy, pbuf, iBufferType, pulCounterPbuffer, bBlock);
+    
+    private z_GetVideoInfoNV_adr := GetFuncAdr('glXGetVideoInfoNV');
+    private z_GetVideoInfoNV_ovr_0 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh000010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh000001 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_0_anh000011 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: array of UInt64): Int32 :=
+    if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
+      if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
+        z_GetVideoInfoNV_ovr_0(dpy, screen, VideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo[0]) else
+        z_GetVideoInfoNV_ovr_0_anh000001(dpy, screen, VideoDevice, pulCounterOutputPbuffer[0], IntPtr.Zero) else
+      if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
+        z_GetVideoInfoNV_ovr_0_anh000010(dpy, screen, VideoDevice, IntPtr.Zero, pulCounterOutputVideo[0]) else
+        z_GetVideoInfoNV_ovr_0_anh000011(dpy, screen, VideoDevice, IntPtr.Zero, IntPtr.Zero);
+    private z_GetVideoInfoNV_ovr_1_anh000010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: array of UInt64; var pulCounterOutputVideo: UInt64): Int32 :=
+    if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
+      z_GetVideoInfoNV_ovr_0(dpy, screen, VideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo) else
+      z_GetVideoInfoNV_ovr_0_anh000010(dpy, screen, VideoDevice, IntPtr.Zero, pulCounterOutputVideo);
+    private z_GetVideoInfoNV_ovr_2 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_2_anh000010 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: array of UInt64; pulCounterOutputVideo: IntPtr): Int32 :=
+    if (pulCounterOutputPbuffer<>nil) and (pulCounterOutputPbuffer.Length<>0) then
+      z_GetVideoInfoNV_ovr_2(dpy, screen, VideoDevice, pulCounterOutputPbuffer[0], pulCounterOutputVideo) else
+      z_GetVideoInfoNV_ovr_2_anh000010(dpy, screen, VideoDevice, IntPtr.Zero, pulCounterOutputVideo);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: array of UInt64): Int32 :=
+    if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
+      z_GetVideoInfoNV_ovr_0(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo[0]) else
+      z_GetVideoInfoNV_ovr_0_anh000001(dpy, screen, VideoDevice, pulCounterOutputPbuffer, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; var pulCounterOutputPbuffer: UInt64; var pulCounterOutputVideo: UInt64): Int32 :=
+    z_GetVideoInfoNV_ovr_0(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; var pulCounterOutputPbuffer: UInt64; pulCounterOutputVideo: IntPtr): Int32 :=
+    z_GetVideoInfoNV_ovr_2(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
+    private z_GetVideoInfoNV_ovr_6 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    private z_GetVideoInfoNV_ovr_6_anh000001 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: array of UInt64): Int32 :=
+    if (pulCounterOutputVideo<>nil) and (pulCounterOutputVideo.Length<>0) then
+      z_GetVideoInfoNV_ovr_6(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo[0]) else
+      z_GetVideoInfoNV_ovr_6_anh000001(dpy, screen, VideoDevice, pulCounterOutputPbuffer, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: IntPtr; var pulCounterOutputVideo: UInt64): Int32 :=
+    z_GetVideoInfoNV_ovr_6(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
+    private z_GetVideoInfoNV_ovr_8 := GetFuncOrNil&(z_GetVideoInfoNV_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoInfoNV(dpy: x_p_display; screen: Int32; VideoDevice: glx_video_device_NV; pulCounterOutputPbuffer: IntPtr; pulCounterOutputVideo: IntPtr): Int32 :=
+    z_GetVideoInfoNV_ovr_8(dpy, screen, VideoDevice, pulCounterOutputPbuffer, pulCounterOutputVideo);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSyncControlOML = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'OML_sync_control';
+    
+    private z_GetSyncValuesOML_adr := GetFuncAdr('glXGetSyncValuesOML');
+    private z_GetSyncValuesOML_ovr_0 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000011 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_0_anh000111 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_GetSyncValuesOML_ovr_0(dpy, drawable, ust[0], msc[0], sbc[0]) else
+          z_GetSyncValuesOML_ovr_0_anh000001(dpy, drawable, ust[0], msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_GetSyncValuesOML_ovr_0_anh000010(dpy, drawable, ust[0], IntPtr.Zero, sbc[0]) else
+          z_GetSyncValuesOML_ovr_0_anh000011(dpy, drawable, ust[0], IntPtr.Zero, IntPtr.Zero) else
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_GetSyncValuesOML_ovr_0_anh000100(dpy, drawable, IntPtr.Zero, msc[0], sbc[0]) else
+          z_GetSyncValuesOML_ovr_0_anh000101(dpy, drawable, IntPtr.Zero, msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_GetSyncValuesOML_ovr_0_anh000110(dpy, drawable, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
+          z_GetSyncValuesOML_ovr_0_anh000111(dpy, drawable, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_GetSyncValuesOML_ovr_1_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_1_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_1_anh000110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0(dpy, drawable, ust[0], msc[0], sbc) else
+        z_GetSyncValuesOML_ovr_0_anh000010(dpy, drawable, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0_anh000100(dpy, drawable, IntPtr.Zero, msc[0], sbc) else
+        z_GetSyncValuesOML_ovr_0_anh000110(dpy, drawable, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_GetSyncValuesOML_ovr_2 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_2_anh000110 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_GetSyncValuesOML_ovr_2(dpy, drawable, ust[0], msc[0], sbc) else
+        z_GetSyncValuesOML_ovr_2_anh000010(dpy, drawable, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_GetSyncValuesOML_ovr_2_anh000100(dpy, drawable, IntPtr.Zero, msc[0], sbc) else
+        z_GetSyncValuesOML_ovr_2_anh000110(dpy, drawable, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_GetSyncValuesOML_ovr_3_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_3_anh000101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0(dpy, drawable, ust[0], msc, sbc[0]) else
+        z_GetSyncValuesOML_ovr_0_anh000001(dpy, drawable, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc[0]) else
+        z_GetSyncValuesOML_ovr_0_anh000101(dpy, drawable, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_GetSyncValuesOML_ovr_4_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_GetSyncValuesOML_ovr_0(dpy, drawable, ust[0], msc, sbc) else
+      z_GetSyncValuesOML_ovr_0_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc);
+    private z_GetSyncValuesOML_ovr_5_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_GetSyncValuesOML_ovr_2(dpy, drawable, ust[0], msc, sbc) else
+      z_GetSyncValuesOML_ovr_2_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc);
+    private z_GetSyncValuesOML_ovr_6 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh000001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_6_anh000101 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_6(dpy, drawable, ust[0], msc, sbc[0]) else
+        z_GetSyncValuesOML_ovr_6_anh000001(dpy, drawable, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_6_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc[0]) else
+        z_GetSyncValuesOML_ovr_6_anh000101(dpy, drawable, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_GetSyncValuesOML_ovr_7_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_GetSyncValuesOML_ovr_6(dpy, drawable, ust[0], msc, sbc) else
+      z_GetSyncValuesOML_ovr_6_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc);
+    private z_GetSyncValuesOML_ovr_8 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_8_anh000100 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_GetSyncValuesOML_ovr_8(dpy, drawable, ust[0], msc, sbc) else
+      z_GetSyncValuesOML_ovr_8_anh000100(dpy, drawable, IntPtr.Zero, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0(dpy, drawable, ust, msc[0], sbc[0]) else
+        z_GetSyncValuesOML_ovr_0_anh000001(dpy, drawable, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_0_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc[0]) else
+        z_GetSyncValuesOML_ovr_0_anh000011(dpy, drawable, ust, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_GetSyncValuesOML_ovr_0(dpy, drawable, ust, msc[0], sbc) else
+      z_GetSyncValuesOML_ovr_0_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_GetSyncValuesOML_ovr_2(dpy, drawable, ust, msc[0], sbc) else
+      z_GetSyncValuesOML_ovr_2_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_GetSyncValuesOML_ovr_0(dpy, drawable, ust, msc, sbc[0]) else
+      z_GetSyncValuesOML_ovr_0_anh000001(dpy, drawable, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
+    z_GetSyncValuesOML_ovr_0(dpy, drawable, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    z_GetSyncValuesOML_ovr_2(dpy, drawable, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_GetSyncValuesOML_ovr_6(dpy, drawable, ust, msc, sbc[0]) else
+      z_GetSyncValuesOML_ovr_6_anh000001(dpy, drawable, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    z_GetSyncValuesOML_ovr_6(dpy, drawable, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_GetSyncValuesOML_ovr_8(dpy, drawable, ust, msc, sbc);
+    private z_GetSyncValuesOML_ovr_18 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh000001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_18_anh000011 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_18(dpy, drawable, ust, msc[0], sbc[0]) else
+        z_GetSyncValuesOML_ovr_18_anh000001(dpy, drawable, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_GetSyncValuesOML_ovr_18_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc[0]) else
+        z_GetSyncValuesOML_ovr_18_anh000011(dpy, drawable, ust, IntPtr.Zero, IntPtr.Zero);
+    private z_GetSyncValuesOML_ovr_19_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_GetSyncValuesOML_ovr_18(dpy, drawable, ust, msc[0], sbc) else
+      z_GetSyncValuesOML_ovr_18_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc);
+    private z_GetSyncValuesOML_ovr_20 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_20_anh000010 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_GetSyncValuesOML_ovr_20(dpy, drawable, ust, msc[0], sbc) else
+      z_GetSyncValuesOML_ovr_20_anh000010(dpy, drawable, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_GetSyncValuesOML_ovr_18(dpy, drawable, ust, msc, sbc[0]) else
+      z_GetSyncValuesOML_ovr_18_anh000001(dpy, drawable, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
+    z_GetSyncValuesOML_ovr_18(dpy, drawable, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
+    z_GetSyncValuesOML_ovr_20(dpy, drawable, ust, msc, sbc);
+    private z_GetSyncValuesOML_ovr_24 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    private z_GetSyncValuesOML_ovr_24_anh000001 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_GetSyncValuesOML_ovr_24(dpy, drawable, ust, msc, sbc[0]) else
+      z_GetSyncValuesOML_ovr_24_anh000001(dpy, drawable, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
+    z_GetSyncValuesOML_ovr_24(dpy, drawable, ust, msc, sbc);
+    private z_GetSyncValuesOML_ovr_26 := GetFuncOrNil&(z_GetSyncValuesOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetSyncValuesOML(dpy: x_p_display; drawable: glx_drawable; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_GetSyncValuesOML_ovr_26(dpy, drawable, ust, msc, sbc);
+    
+    private z_GetMscRateOML_adr := GetFuncAdr('glXGetMscRateOML');
+    private z_GetMscRateOML_ovr_0 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh00010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh00001 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_0_anh00011 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: array of Int32; denominator: array of Int32): Bool :=
+    if (numerator<>nil) and (numerator.Length<>0) then
+      if (denominator<>nil) and (denominator.Length<>0) then
+        z_GetMscRateOML_ovr_0(dpy, drawable, numerator[0], denominator[0]) else
+        z_GetMscRateOML_ovr_0_anh00001(dpy, drawable, numerator[0], IntPtr.Zero) else
+      if (denominator<>nil) and (denominator.Length<>0) then
+        z_GetMscRateOML_ovr_0_anh00010(dpy, drawable, IntPtr.Zero, denominator[0]) else
+        z_GetMscRateOML_ovr_0_anh00011(dpy, drawable, IntPtr.Zero, IntPtr.Zero);
+    private z_GetMscRateOML_ovr_1_anh00010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: array of Int32; var denominator: Int32): Bool :=
+    if (numerator<>nil) and (numerator.Length<>0) then
+      z_GetMscRateOML_ovr_0(dpy, drawable, numerator[0], denominator) else
+      z_GetMscRateOML_ovr_0_anh00010(dpy, drawable, IntPtr.Zero, denominator);
+    private z_GetMscRateOML_ovr_2 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_2_anh00010 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: array of Int32; denominator: IntPtr): Bool :=
+    if (numerator<>nil) and (numerator.Length<>0) then
+      z_GetMscRateOML_ovr_2(dpy, drawable, numerator[0], denominator) else
+      z_GetMscRateOML_ovr_2_anh00010(dpy, drawable, IntPtr.Zero, denominator);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; var numerator: Int32; denominator: array of Int32): Bool :=
+    if (denominator<>nil) and (denominator.Length<>0) then
+      z_GetMscRateOML_ovr_0(dpy, drawable, numerator, denominator[0]) else
+      z_GetMscRateOML_ovr_0_anh00001(dpy, drawable, numerator, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; var numerator: Int32; var denominator: Int32): Bool :=
+    z_GetMscRateOML_ovr_0(dpy, drawable, numerator, denominator);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; var numerator: Int32; denominator: IntPtr): Bool :=
+    z_GetMscRateOML_ovr_2(dpy, drawable, numerator, denominator);
+    private z_GetMscRateOML_ovr_6 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    private z_GetMscRateOML_ovr_6_anh00001 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: IntPtr; denominator: array of Int32): Bool :=
+    if (denominator<>nil) and (denominator.Length<>0) then
+      z_GetMscRateOML_ovr_6(dpy, drawable, numerator, denominator[0]) else
+      z_GetMscRateOML_ovr_6_anh00001(dpy, drawable, numerator, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: IntPtr; var denominator: Int32): Bool :=
+    z_GetMscRateOML_ovr_6(dpy, drawable, numerator, denominator);
+    private z_GetMscRateOML_ovr_8 := GetFuncOrNil&(z_GetMscRateOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMscRateOML(dpy: x_p_display; drawable: glx_drawable; numerator: IntPtr; denominator: IntPtr): Bool :=
+    z_GetMscRateOML_ovr_8(dpy, drawable, numerator, denominator);
+    
+    private z_SwapBuffersMscOML_adr := GetFuncAdr('glXSwapBuffersMscOML');
+    private z_SwapBuffersMscOML_ovr_0 := GetFuncOrNil&(z_SwapBuffersMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapBuffersMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64): Int64 :=
+    z_SwapBuffersMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder);
+    
+    private z_WaitForMscOML_adr := GetFuncAdr('glXWaitForMscOML');
+    private z_WaitForMscOML_ovr_0 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000011 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_0_anh000000111 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust[0], msc[0], sbc[0]) else
+          z_WaitForMscOML_ovr_0_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust[0], msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForMscOML_ovr_0_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust[0], IntPtr.Zero, sbc[0]) else
+          z_WaitForMscOML_ovr_0_anh000000011(dpy, drawable, target_msc, divisor, remainder, ust[0], IntPtr.Zero, IntPtr.Zero) else
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForMscOML_ovr_0_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc[0], sbc[0]) else
+          z_WaitForMscOML_ovr_0_anh000000101(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForMscOML_ovr_0_anh000000110(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
+          z_WaitForMscOML_ovr_0_anh000000111(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_WaitForMscOML_ovr_1_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_1_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_1_anh000000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust[0], msc[0], sbc) else
+        z_WaitForMscOML_ovr_0_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForMscOML_ovr_0_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc[0], sbc) else
+        z_WaitForMscOML_ovr_0_anh000000110(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_WaitForMscOML_ovr_2 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_2_anh000000110 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForMscOML_ovr_2(dpy, drawable, target_msc, divisor, remainder, ust[0], msc[0], sbc) else
+        z_WaitForMscOML_ovr_2_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForMscOML_ovr_2_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc[0], sbc) else
+        z_WaitForMscOML_ovr_2_anh000000110(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_WaitForMscOML_ovr_3_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_3_anh000000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc[0]) else
+        z_WaitForMscOML_ovr_0_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_0_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc[0]) else
+        z_WaitForMscOML_ovr_0_anh000000101(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_WaitForMscOML_ovr_4_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc) else
+      z_WaitForMscOML_ovr_0_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
+    private z_WaitForMscOML_ovr_5_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForMscOML_ovr_2(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc) else
+      z_WaitForMscOML_ovr_2_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
+    private z_WaitForMscOML_ovr_6 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh000000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_6_anh000000101 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_6(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc[0]) else
+        z_WaitForMscOML_ovr_6_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_6_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc[0]) else
+        z_WaitForMscOML_ovr_6_anh000000101(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_WaitForMscOML_ovr_7_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForMscOML_ovr_6(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc) else
+      z_WaitForMscOML_ovr_6_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
+    private z_WaitForMscOML_ovr_8 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_8_anh000000100 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForMscOML_ovr_8(dpy, drawable, target_msc, divisor, remainder, ust[0], msc, sbc) else
+      z_WaitForMscOML_ovr_8_anh000000100(dpy, drawable, target_msc, divisor, remainder, IntPtr.Zero, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc[0]) else
+        z_WaitForMscOML_ovr_0_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_0_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc[0]) else
+        z_WaitForMscOML_ovr_0_anh000000011(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc) else
+      z_WaitForMscOML_ovr_0_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForMscOML_ovr_2(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc) else
+      z_WaitForMscOML_ovr_2_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc[0]) else
+      z_WaitForMscOML_ovr_0_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
+    z_WaitForMscOML_ovr_0(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    z_WaitForMscOML_ovr_2(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForMscOML_ovr_6(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc[0]) else
+      z_WaitForMscOML_ovr_6_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    z_WaitForMscOML_ovr_6(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_WaitForMscOML_ovr_8(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    private z_WaitForMscOML_ovr_18 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh000000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_18_anh000000011 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_18(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc[0]) else
+        z_WaitForMscOML_ovr_18_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForMscOML_ovr_18_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc[0]) else
+        z_WaitForMscOML_ovr_18_anh000000011(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, IntPtr.Zero);
+    private z_WaitForMscOML_ovr_19_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForMscOML_ovr_18(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc) else
+      z_WaitForMscOML_ovr_18_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
+    private z_WaitForMscOML_ovr_20 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_20_anh000000010 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForMscOML_ovr_20(dpy, drawable, target_msc, divisor, remainder, ust, msc[0], sbc) else
+      z_WaitForMscOML_ovr_20_anh000000010(dpy, drawable, target_msc, divisor, remainder, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForMscOML_ovr_18(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc[0]) else
+      z_WaitForMscOML_ovr_18_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
+    z_WaitForMscOML_ovr_18(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
+    z_WaitForMscOML_ovr_20(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    private z_WaitForMscOML_ovr_24 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    private z_WaitForMscOML_ovr_24_anh000000001 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForMscOML_ovr_24(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc[0]) else
+      z_WaitForMscOML_ovr_24_anh000000001(dpy, drawable, target_msc, divisor, remainder, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
+    z_WaitForMscOML_ovr_24(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    private z_WaitForMscOML_ovr_26 := GetFuncOrNil&(z_WaitForMscOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForMscOML(dpy: x_p_display; drawable: glx_drawable; target_msc: Int64; divisor: Int64; remainder: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_WaitForMscOML_ovr_26(dpy, drawable, target_msc, divisor, remainder, ust, msc, sbc);
+    
+    private z_WaitForSbcOML_adr := GetFuncAdr('glXWaitForSbcOML');
+    private z_WaitForSbcOML_ovr_0 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000011 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_0_anh0000111 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust[0], msc[0], sbc[0]) else
+          z_WaitForSbcOML_ovr_0_anh0000001(dpy, drawable, target_sbc, ust[0], msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForSbcOML_ovr_0_anh0000010(dpy, drawable, target_sbc, ust[0], IntPtr.Zero, sbc[0]) else
+          z_WaitForSbcOML_ovr_0_anh0000011(dpy, drawable, target_sbc, ust[0], IntPtr.Zero, IntPtr.Zero) else
+      if (msc<>nil) and (msc.Length<>0) then
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForSbcOML_ovr_0_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc[0], sbc[0]) else
+          z_WaitForSbcOML_ovr_0_anh0000101(dpy, drawable, target_sbc, IntPtr.Zero, msc[0], IntPtr.Zero) else
+        if (sbc<>nil) and (sbc.Length<>0) then
+          z_WaitForSbcOML_ovr_0_anh0000110(dpy, drawable, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc[0]) else
+          z_WaitForSbcOML_ovr_0_anh0000111(dpy, drawable, target_sbc, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_WaitForSbcOML_ovr_1_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_1_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_1_anh0000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust[0], msc[0], sbc) else
+        z_WaitForSbcOML_ovr_0_anh0000010(dpy, drawable, target_sbc, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForSbcOML_ovr_0_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc[0], sbc) else
+        z_WaitForSbcOML_ovr_0_anh0000110(dpy, drawable, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_WaitForSbcOML_ovr_2 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_2_anh0000110 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForSbcOML_ovr_2(dpy, drawable, target_sbc, ust[0], msc[0], sbc) else
+        z_WaitForSbcOML_ovr_2_anh0000010(dpy, drawable, target_sbc, ust[0], IntPtr.Zero, sbc) else
+      if (msc<>nil) and (msc.Length<>0) then
+        z_WaitForSbcOML_ovr_2_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc[0], sbc) else
+        z_WaitForSbcOML_ovr_2_anh0000110(dpy, drawable, target_sbc, IntPtr.Zero, IntPtr.Zero, sbc);
+    private z_WaitForSbcOML_ovr_3_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_3_anh0000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust[0], msc, sbc[0]) else
+        z_WaitForSbcOML_ovr_0_anh0000001(dpy, drawable, target_sbc, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_0_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc[0]) else
+        z_WaitForSbcOML_ovr_0_anh0000101(dpy, drawable, target_sbc, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_WaitForSbcOML_ovr_4_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; var msc: Int64; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust[0], msc, sbc) else
+      z_WaitForSbcOML_ovr_0_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc);
+    private z_WaitForSbcOML_ovr_5_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForSbcOML_ovr_2(dpy, drawable, target_sbc, ust[0], msc, sbc) else
+      z_WaitForSbcOML_ovr_2_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc);
+    private z_WaitForSbcOML_ovr_6 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh0000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_6_anh0000101 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_6(dpy, drawable, target_sbc, ust[0], msc, sbc[0]) else
+        z_WaitForSbcOML_ovr_6_anh0000001(dpy, drawable, target_sbc, ust[0], msc, IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_6_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc[0]) else
+        z_WaitForSbcOML_ovr_6_anh0000101(dpy, drawable, target_sbc, IntPtr.Zero, msc, IntPtr.Zero);
+    private z_WaitForSbcOML_ovr_7_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForSbcOML_ovr_6(dpy, drawable, target_sbc, ust[0], msc, sbc) else
+      z_WaitForSbcOML_ovr_6_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc);
+    private z_WaitForSbcOML_ovr_8 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_8_anh0000100 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: array of Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    if (ust<>nil) and (ust.Length<>0) then
+      z_WaitForSbcOML_ovr_8(dpy, drawable, target_sbc, ust[0], msc, sbc) else
+      z_WaitForSbcOML_ovr_8_anh0000100(dpy, drawable, target_sbc, IntPtr.Zero, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust, msc[0], sbc[0]) else
+        z_WaitForSbcOML_ovr_0_anh0000001(dpy, drawable, target_sbc, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_0_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc[0]) else
+        z_WaitForSbcOML_ovr_0_anh0000011(dpy, drawable, target_sbc, ust, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust, msc[0], sbc) else
+      z_WaitForSbcOML_ovr_0_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForSbcOML_ovr_2(dpy, drawable, target_sbc, ust, msc[0], sbc) else
+      z_WaitForSbcOML_ovr_2_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust, msc, sbc[0]) else
+      z_WaitForSbcOML_ovr_0_anh0000001(dpy, drawable, target_sbc, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; var msc: Int64; var sbc: Int64): Bool :=
+    z_WaitForSbcOML_ovr_0(dpy, drawable, target_sbc, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; var msc: Int64; sbc: IntPtr): Bool :=
+    z_WaitForSbcOML_ovr_2(dpy, drawable, target_sbc, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForSbcOML_ovr_6(dpy, drawable, target_sbc, ust, msc, sbc[0]) else
+      z_WaitForSbcOML_ovr_6_anh0000001(dpy, drawable, target_sbc, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: IntPtr; var sbc: Int64): Bool :=
+    z_WaitForSbcOML_ovr_6(dpy, drawable, target_sbc, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; var ust: Int64; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_WaitForSbcOML_ovr_8(dpy, drawable, target_sbc, ust, msc, sbc);
+    private z_WaitForSbcOML_ovr_18 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh0000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_18_anh0000011 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: array of Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_18(dpy, drawable, target_sbc, ust, msc[0], sbc[0]) else
+        z_WaitForSbcOML_ovr_18_anh0000001(dpy, drawable, target_sbc, ust, msc[0], IntPtr.Zero) else
+      if (sbc<>nil) and (sbc.Length<>0) then
+        z_WaitForSbcOML_ovr_18_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc[0]) else
+        z_WaitForSbcOML_ovr_18_anh0000011(dpy, drawable, target_sbc, ust, IntPtr.Zero, IntPtr.Zero);
+    private z_WaitForSbcOML_ovr_19_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: array of Int64; var sbc: Int64): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForSbcOML_ovr_18(dpy, drawable, target_sbc, ust, msc[0], sbc) else
+      z_WaitForSbcOML_ovr_18_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc);
+    private z_WaitForSbcOML_ovr_20 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_20_anh0000010 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: array of Int64; sbc: IntPtr): Bool :=
+    if (msc<>nil) and (msc.Length<>0) then
+      z_WaitForSbcOML_ovr_20(dpy, drawable, target_sbc, ust, msc[0], sbc) else
+      z_WaitForSbcOML_ovr_20_anh0000010(dpy, drawable, target_sbc, ust, IntPtr.Zero, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForSbcOML_ovr_18(dpy, drawable, target_sbc, ust, msc, sbc[0]) else
+      z_WaitForSbcOML_ovr_18_anh0000001(dpy, drawable, target_sbc, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; var msc: Int64; var sbc: Int64): Bool :=
+    z_WaitForSbcOML_ovr_18(dpy, drawable, target_sbc, ust, msc, sbc);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; var msc: Int64; sbc: IntPtr): Bool :=
+    z_WaitForSbcOML_ovr_20(dpy, drawable, target_sbc, ust, msc, sbc);
+    private z_WaitForSbcOML_ovr_24 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    private z_WaitForSbcOML_ovr_24_anh0000001 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: array of Int64): Bool :=
+    if (sbc<>nil) and (sbc.Length<>0) then
+      z_WaitForSbcOML_ovr_24(dpy, drawable, target_sbc, ust, msc, sbc[0]) else
+      z_WaitForSbcOML_ovr_24_anh0000001(dpy, drawable, target_sbc, ust, msc, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: IntPtr; var sbc: Int64): Bool :=
+    z_WaitForSbcOML_ovr_24(dpy, drawable, target_sbc, ust, msc, sbc);
+    private z_WaitForSbcOML_ovr_26 := GetFuncOrNil&(z_WaitForSbcOML_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitForSbcOML(dpy: x_p_display; drawable: glx_drawable; target_sbc: Int64; ust: IntPtr; msc: IntPtr; sbc: IntPtr): Bool :=
+    z_WaitForSbcOML_ovr_26(dpy, drawable, target_sbc, ust, msc, sbc);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxCushionSGI = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGI_cushion';
+    
+    private z_CushionSGI_adr := GetFuncAdr('glXCushionSGI');
+    private z_CushionSGI_ovr_0 := GetFuncOrNil&(z_CushionSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure CushionSGI(dpy: x_p_display; window: x_window; cushion: single) :=
+    z_CushionSGI_ovr_0(dpy, window, cushion);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxMakeCurrentReadSGI = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGI_make_current_read';
+    
+    private z_MakeCurrentReadSGI_adr := GetFuncAdr('glXMakeCurrentReadSGI');
+    private z_MakeCurrentReadSGI_ovr_0 := GetFuncOrNil&(z_MakeCurrentReadSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function MakeCurrentReadSGI(dpy: x_p_display; draw: glx_drawable; read: glx_drawable; ctx: glx_context): Bool :=
+    z_MakeCurrentReadSGI_ovr_0(dpy, draw, read, ctx);
+    
+    private z_GetCurrentReadDrawableSGI_adr := GetFuncAdr('glXGetCurrentReadDrawableSGI');
+    private z_GetCurrentReadDrawableSGI_ovr_0 := GetFuncOrNil&(z_GetCurrentReadDrawableSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetCurrentReadDrawableSGI: glx_drawable :=
+    z_GetCurrentReadDrawableSGI_ovr_0;
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapControlSGI = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGI_swap_control';
+    
+    private z_SwapIntervalSGI_adr := GetFuncAdr('glXSwapIntervalSGI');
+    private z_SwapIntervalSGI_ovr_0 := GetFuncOrNil&(z_SwapIntervalSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function SwapIntervalSGI(interval: Int32): Int32 :=
+    z_SwapIntervalSGI_ovr_0(interval);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxVideoSyncSGI = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGI_video_sync';
+    
+    private z_GetVideoSyncSGI_adr := GetFuncAdr('glXGetVideoSyncSGI');
+    private z_GetVideoSyncSGI_ovr_0 := GetFuncOrNil&(z_GetVideoSyncSGI_adr);
+    private z_GetVideoSyncSGI_ovr_0_anh01 := GetFuncOrNil&(z_GetVideoSyncSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoSyncSGI(count: array of UInt32): Int32 :=
+    if (count<>nil) and (count.Length<>0) then
+      z_GetVideoSyncSGI_ovr_0(count[0]) else
+      z_GetVideoSyncSGI_ovr_0_anh01(IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoSyncSGI(var count: UInt32): Int32 :=
+    z_GetVideoSyncSGI_ovr_0(count);
+    private z_GetVideoSyncSGI_ovr_2 := GetFuncOrNil&(z_GetVideoSyncSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVideoSyncSGI(count: IntPtr): Int32 :=
+    z_GetVideoSyncSGI_ovr_2(count);
+    
+    private z_WaitVideoSyncSGI_adr := GetFuncAdr('glXWaitVideoSyncSGI');
+    private z_WaitVideoSyncSGI_ovr_0 := GetFuncOrNil&(z_WaitVideoSyncSGI_adr);
+    private z_WaitVideoSyncSGI_ovr_0_anh0001 := GetFuncOrNil&(z_WaitVideoSyncSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitVideoSyncSGI(divisor: Int32; remainder: Int32; count: array of UInt32): Int32 :=
+    if (count<>nil) and (count.Length<>0) then
+      z_WaitVideoSyncSGI_ovr_0(divisor, remainder, count[0]) else
+      z_WaitVideoSyncSGI_ovr_0_anh0001(divisor, remainder, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitVideoSyncSGI(divisor: Int32; remainder: Int32; var count: UInt32): Int32 :=
+    z_WaitVideoSyncSGI_ovr_0(divisor, remainder, count);
+    private z_WaitVideoSyncSGI_ovr_2 := GetFuncOrNil&(z_WaitVideoSyncSGI_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function WaitVideoSyncSGI(divisor: Int32; remainder: Int32; count: IntPtr): Int32 :=
+    z_WaitVideoSyncSGI_ovr_2(divisor, remainder, count);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxDmbufferSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_dmbuffer';
+    
+    private z_AssociateDMPbufferSGIX_adr := GetFuncAdr('glXAssociateDMPbufferSGIX');
+    private z_AssociateDMPbufferSGIX_ovr_0 := GetFuncOrNil&(z_AssociateDMPbufferSGIX_adr);
+    private z_AssociateDMPbufferSGIX_ovr_0_anh00010 := GetFuncOrNil&(z_AssociateDMPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateDMPbufferSGIX(dpy: x_p_display; pbuffer: glx_pbuffer; ¶ms: array of x_dm_params; dmbuffer: x_dm_buffer): Bool :=
+    if (¶ms<>nil) and (¶ms.Length<>0) then
+      z_AssociateDMPbufferSGIX_ovr_0(dpy, pbuffer, ¶ms[0], dmbuffer) else
+      z_AssociateDMPbufferSGIX_ovr_0_anh00010(dpy, pbuffer, IntPtr.Zero, dmbuffer);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateDMPbufferSGIX(dpy: x_p_display; pbuffer: glx_pbuffer; var ¶ms: x_dm_params; dmbuffer: x_dm_buffer): Bool :=
+    z_AssociateDMPbufferSGIX_ovr_0(dpy, pbuffer, ¶ms, dmbuffer);
+    private z_AssociateDMPbufferSGIX_ovr_2 := GetFuncOrNil&(z_AssociateDMPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function AssociateDMPbufferSGIX(dpy: x_p_display; pbuffer: glx_pbuffer; ¶ms: IntPtr; dmbuffer: x_dm_buffer): Bool :=
+    z_AssociateDMPbufferSGIX_ovr_2(dpy, pbuffer, ¶ms, dmbuffer);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxFbconfigSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_fbconfig';
+    
+    private z_GetFBConfigAttribSGIX_adr := GetFuncAdr('glXGetFBConfigAttribSGIX');
+    private z_GetFBConfigAttribSGIX_ovr_0 := GetFuncOrNil&(z_GetFBConfigAttribSGIX_adr);
+    private z_GetFBConfigAttribSGIX_ovr_0_anh00001 := GetFuncOrNil&(z_GetFBConfigAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFBConfigAttribSGIX(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: array of Int32): Int32 :=
+    if (value<>nil) and (value.Length<>0) then
+      z_GetFBConfigAttribSGIX_ovr_0(dpy, config, attribute, value[0]) else
+      z_GetFBConfigAttribSGIX_ovr_0_anh00001(dpy, config, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFBConfigAttribSGIX(dpy: x_p_display; config: glx_fb_config; attribute: Int32; var value: Int32): Int32 :=
+    z_GetFBConfigAttribSGIX_ovr_0(dpy, config, attribute, value);
+    private z_GetFBConfigAttribSGIX_ovr_2 := GetFuncOrNil&(z_GetFBConfigAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFBConfigAttribSGIX(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32 :=
+    z_GetFBConfigAttribSGIX_ovr_2(dpy, config, attribute, value);
+    
+    private z_ChooseFBConfigSGIX_adr := GetFuncAdr('glXChooseFBConfigSGIX');
+    private z_ChooseFBConfigSGIX_ovr_0 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    private z_ChooseFBConfigSGIX_ovr_0_anh00010 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    private z_ChooseFBConfigSGIX_ovr_0_anh00001 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    private z_ChooseFBConfigSGIX_ovr_0_anh00011 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: array of Int32): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      if (nelements<>nil) and (nelements.Length<>0) then
+        z_ChooseFBConfigSGIX_ovr_0(dpy, screen, attrib_list[0], nelements[0]) else
+        z_ChooseFBConfigSGIX_ovr_0_anh00001(dpy, screen, attrib_list[0], IntPtr.Zero) else
+      if (nelements<>nil) and (nelements.Length<>0) then
+        z_ChooseFBConfigSGIX_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements[0]) else
+        z_ChooseFBConfigSGIX_ovr_0_anh00011(dpy, screen, IntPtr.Zero, IntPtr.Zero);
+    private z_ChooseFBConfigSGIX_ovr_1_anh00010 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; var nelements: Int32): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_ChooseFBConfigSGIX_ovr_0(dpy, screen, attrib_list[0], nelements) else
+      z_ChooseFBConfigSGIX_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements);
+    private z_ChooseFBConfigSGIX_ovr_2 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    private z_ChooseFBConfigSGIX_ovr_2_anh00010 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: IntPtr): ^glx_fb_config :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_ChooseFBConfigSGIX_ovr_2(dpy, screen, attrib_list[0], nelements) else
+      z_ChooseFBConfigSGIX_ovr_2_anh00010(dpy, screen, IntPtr.Zero, nelements);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: array of Int32): ^glx_fb_config :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_ChooseFBConfigSGIX_ovr_0(dpy, screen, attrib_list, nelements[0]) else
+      z_ChooseFBConfigSGIX_ovr_0_anh00001(dpy, screen, attrib_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; var attrib_list: Int32; var nelements: Int32): ^glx_fb_config :=
+    z_ChooseFBConfigSGIX_ovr_0(dpy, screen, attrib_list, nelements);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config :=
+    z_ChooseFBConfigSGIX_ovr_2(dpy, screen, attrib_list, nelements);
+    private z_ChooseFBConfigSGIX_ovr_6 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    private z_ChooseFBConfigSGIX_ovr_6_anh00001 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: array of Int32): ^glx_fb_config :=
+    if (nelements<>nil) and (nelements.Length<>0) then
+      z_ChooseFBConfigSGIX_ovr_6(dpy, screen, attrib_list, nelements[0]) else
+      z_ChooseFBConfigSGIX_ovr_6_anh00001(dpy, screen, attrib_list, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config :=
+    z_ChooseFBConfigSGIX_ovr_6(dpy, screen, attrib_list, nelements);
+    private z_ChooseFBConfigSGIX_ovr_8 := GetFuncOrNil&(z_ChooseFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChooseFBConfigSGIX(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config :=
+    z_ChooseFBConfigSGIX_ovr_8(dpy, screen, attrib_list, nelements);
+    
+    private z_CreateGLXPixmapWithConfigSGIX_adr := GetFuncAdr('glXCreateGLXPixmapWithConfigSGIX');
+    private z_CreateGLXPixmapWithConfigSGIX_ovr_0 := GetFuncOrNil&(z_CreateGLXPixmapWithConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXPixmapWithConfigSGIX(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap): glx_pixmap :=
+    z_CreateGLXPixmapWithConfigSGIX_ovr_0(dpy, config, pixmap);
+    
+    private z_CreateContextWithConfigSGIX_adr := GetFuncAdr('glXCreateContextWithConfigSGIX');
+    private z_CreateContextWithConfigSGIX_ovr_0 := GetFuncOrNil&(z_CreateContextWithConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateContextWithConfigSGIX(dpy: x_p_display; config: glx_fb_config; render_type: Int32; share_list: glx_context; direct: Bool): glx_context :=
+    z_CreateContextWithConfigSGIX_ovr_0(dpy, config, render_type, share_list, direct);
+    
+    private z_GetVisualFromFBConfigSGIX_adr := GetFuncAdr('glXGetVisualFromFBConfigSGIX');
+    private z_GetVisualFromFBConfigSGIX_ovr_0 := GetFuncOrNil&(z_GetVisualFromFBConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetVisualFromFBConfigSGIX(dpy: x_p_display; config: glx_fb_config): x_p_visual_info :=
+    z_GetVisualFromFBConfigSGIX_ovr_0(dpy, config);
+    
+    private z_GetFBConfigFromVisualSGIX_adr := GetFuncAdr('glXGetFBConfigFromVisualSGIX');
+    private z_GetFBConfigFromVisualSGIX_ovr_0 := GetFuncOrNil&(z_GetFBConfigFromVisualSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetFBConfigFromVisualSGIX(dpy: x_p_display; vis: x_p_visual_info): glx_fb_config :=
+    z_GetFBConfigFromVisualSGIX_ovr_0(dpy, vis);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxHyperpipeSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_hyperpipe';
+    
+    private z_QueryHyperpipeNetworkSGIX_adr := GetFuncAdr('glXQueryHyperpipeNetworkSGIX');
+    private z_QueryHyperpipeNetworkSGIX_ovr_0 := GetFuncOrNil&(z_QueryHyperpipeNetworkSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeNetworkSGIX(dpy: x_p_display; var npipes: Int32): ^glx_hyperpipe_network_SGIX :=
+    z_QueryHyperpipeNetworkSGIX_ovr_0(dpy, npipes);
+    private z_QueryHyperpipeNetworkSGIX_ovr_1 := GetFuncOrNil&(z_QueryHyperpipeNetworkSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeNetworkSGIX(dpy: x_p_display; npipes: IntPtr): ^glx_hyperpipe_network_SGIX :=
+    z_QueryHyperpipeNetworkSGIX_ovr_1(dpy, npipes);
+    
+    private z_HyperpipeConfigSGIX_adr := GetFuncAdr('glXHyperpipeConfigSGIX');
+    private z_HyperpipeConfigSGIX_ovr_0 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    private z_HyperpipeConfigSGIX_ovr_0_anh000010 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; cfg: array of glx_hyperpipe_config_SGIX; var hpId: Int32): Int32 :=
+    if (cfg<>nil) and (cfg.Length<>0) then
+      z_HyperpipeConfigSGIX_ovr_0(dpy, networkId, npipes, cfg[0], hpId) else
+      z_HyperpipeConfigSGIX_ovr_0_anh000010(dpy, networkId, npipes, IntPtr.Zero, hpId);
+    private z_HyperpipeConfigSGIX_ovr_1 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    private z_HyperpipeConfigSGIX_ovr_1_anh000010 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; cfg: array of glx_hyperpipe_config_SGIX; hpId: IntPtr): Int32 :=
+    if (cfg<>nil) and (cfg.Length<>0) then
+      z_HyperpipeConfigSGIX_ovr_1(dpy, networkId, npipes, cfg[0], hpId) else
+      z_HyperpipeConfigSGIX_ovr_1_anh000010(dpy, networkId, npipes, IntPtr.Zero, hpId);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; var cfg: glx_hyperpipe_config_SGIX; var hpId: Int32): Int32 :=
+    z_HyperpipeConfigSGIX_ovr_0(dpy, networkId, npipes, cfg, hpId);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; var cfg: glx_hyperpipe_config_SGIX; hpId: IntPtr): Int32 :=
+    z_HyperpipeConfigSGIX_ovr_1(dpy, networkId, npipes, cfg, hpId);
+    private z_HyperpipeConfigSGIX_ovr_4 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; cfg: IntPtr; var hpId: Int32): Int32 :=
+    z_HyperpipeConfigSGIX_ovr_4(dpy, networkId, npipes, cfg, hpId);
+    private z_HyperpipeConfigSGIX_ovr_5 := GetFuncOrNil&(z_HyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeConfigSGIX(dpy: x_p_display; networkId: Int32; npipes: Int32; cfg: IntPtr; hpId: IntPtr): Int32 :=
+    z_HyperpipeConfigSGIX_ovr_5(dpy, networkId, npipes, cfg, hpId);
+    
+    private z_QueryHyperpipeConfigSGIX_adr := GetFuncAdr('glXQueryHyperpipeConfigSGIX');
+    private z_QueryHyperpipeConfigSGIX_ovr_0 := GetFuncOrNil&(z_QueryHyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeConfigSGIX(dpy: x_p_display; hpId: Int32; var npipes: Int32): ^glx_hyperpipe_config_SGIX :=
+    z_QueryHyperpipeConfigSGIX_ovr_0(dpy, hpId, npipes);
+    private z_QueryHyperpipeConfigSGIX_ovr_1 := GetFuncOrNil&(z_QueryHyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeConfigSGIX(dpy: x_p_display; hpId: Int32; npipes: IntPtr): ^glx_hyperpipe_config_SGIX :=
+    z_QueryHyperpipeConfigSGIX_ovr_1(dpy, hpId, npipes);
+    
+    private z_DestroyHyperpipeConfigSGIX_adr := GetFuncAdr('glXDestroyHyperpipeConfigSGIX');
+    private z_DestroyHyperpipeConfigSGIX_ovr_0 := GetFuncOrNil&(z_DestroyHyperpipeConfigSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function DestroyHyperpipeConfigSGIX(dpy: x_p_display; hpId: Int32): Int32 :=
+    z_DestroyHyperpipeConfigSGIX_ovr_0(dpy, hpId);
+    
+    private z_BindHyperpipeSGIX_adr := GetFuncAdr('glXBindHyperpipeSGIX');
+    private z_BindHyperpipeSGIX_ovr_0 := GetFuncOrNil&(z_BindHyperpipeSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindHyperpipeSGIX(dpy: x_p_display; hpId: Int32): Int32 :=
+    z_BindHyperpipeSGIX_ovr_0(dpy, hpId);
+    
+    private z_QueryHyperpipeBestAttribSGIX_adr := GetFuncAdr('glXQueryHyperpipeBestAttribSGIX');
+    private z_QueryHyperpipeBestAttribSGIX_ovr_0 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000010 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000001 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000011 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeBestAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; attribList: array of glx_pipe_rect_SGIX; returnAttribList: array of glx_pipe_rect_SGIX): Int32 :=
+    if (attribList<>nil) and (attribList.Length<>0) then
+      if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+        z_QueryHyperpipeBestAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, attribList[0], returnAttribList[0]) else
+        z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000001(dpy, timeSlice, attrib, size, attribList[0], IntPtr.Zero) else
+      if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+        z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000010(dpy, timeSlice, attrib, size, IntPtr.Zero, returnAttribList[0]) else
+        z_QueryHyperpipeBestAttribSGIX_ovr_0_anh0000011(dpy, timeSlice, attrib, size, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeBestAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var attribList: glx_pipe_rect_SGIX; var returnAttribList: glx_pipe_rect_SGIX): Int32 :=
+    z_QueryHyperpipeBestAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, attribList, returnAttribList);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_2 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000010 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000001 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000011 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeBestAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; attribList: array of glx_pipe_rect_limits_SGIX; returnAttribList: array of glx_pipe_rect_limits_SGIX): Int32 :=
+    if (attribList<>nil) and (attribList.Length<>0) then
+      if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+        z_QueryHyperpipeBestAttribSGIX_ovr_2(dpy, timeSlice, attrib, size, attribList[0], returnAttribList[0]) else
+        z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000001(dpy, timeSlice, attrib, size, attribList[0], IntPtr.Zero) else
+      if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+        z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000010(dpy, timeSlice, attrib, size, IntPtr.Zero, returnAttribList[0]) else
+        z_QueryHyperpipeBestAttribSGIX_ovr_2_anh0000011(dpy, timeSlice, attrib, size, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeBestAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var attribList: glx_pipe_rect_limits_SGIX; var returnAttribList: glx_pipe_rect_limits_SGIX): Int32 :=
+    z_QueryHyperpipeBestAttribSGIX_ovr_2(dpy, timeSlice, attrib, size, attribList, returnAttribList);
+    private z_QueryHyperpipeBestAttribSGIX_ovr_4 := GetFuncOrNil&(z_QueryHyperpipeBestAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeBestAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; attribList: IntPtr; returnAttribList: IntPtr): Int32 :=
+    z_QueryHyperpipeBestAttribSGIX_ovr_4(dpy, timeSlice, attrib, size, attribList, returnAttribList);
+    
+    private z_HyperpipeAttribSGIX_adr := GetFuncAdr('glXHyperpipeAttribSGIX');
+    private z_HyperpipeAttribSGIX_ovr_0 := GetFuncOrNil&(z_HyperpipeAttribSGIX_adr);
+    private z_HyperpipeAttribSGIX_ovr_0_anh000001 := GetFuncOrNil&(z_HyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; attribList: array of glx_pipe_rect_SGIX): Int32 :=
+    if (attribList<>nil) and (attribList.Length<>0) then
+      z_HyperpipeAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, attribList[0]) else
+      z_HyperpipeAttribSGIX_ovr_0_anh000001(dpy, timeSlice, attrib, size, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var attribList: glx_pipe_rect_SGIX): Int32 :=
+    z_HyperpipeAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, attribList);
+    private z_HyperpipeAttribSGIX_ovr_2 := GetFuncOrNil&(z_HyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var attribList: Int32): Int32 :=
+    z_HyperpipeAttribSGIX_ovr_2(dpy, timeSlice, attrib, size, attribList);
+    private z_HyperpipeAttribSGIX_ovr_3 := GetFuncOrNil&(z_HyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function HyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; attribList: IntPtr): Int32 :=
+    z_HyperpipeAttribSGIX_ovr_3(dpy, timeSlice, attrib, size, attribList);
+    
+    private z_QueryHyperpipeAttribSGIX_adr := GetFuncAdr('glXQueryHyperpipeAttribSGIX');
+    private z_QueryHyperpipeAttribSGIX_ovr_0 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    private z_QueryHyperpipeAttribSGIX_ovr_0_anh000001 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; returnAttribList: array of glx_pipe_rect_SGIX): Int32 :=
+    if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+      z_QueryHyperpipeAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, returnAttribList[0]) else
+      z_QueryHyperpipeAttribSGIX_ovr_0_anh000001(dpy, timeSlice, attrib, size, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var returnAttribList: glx_pipe_rect_SGIX): Int32 :=
+    z_QueryHyperpipeAttribSGIX_ovr_0(dpy, timeSlice, attrib, size, returnAttribList);
+    private z_QueryHyperpipeAttribSGIX_ovr_2 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    private z_QueryHyperpipeAttribSGIX_ovr_2_anh000001 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; returnAttribList: array of glx_pipe_rect_limits_SGIX): Int32 :=
+    if (returnAttribList<>nil) and (returnAttribList.Length<>0) then
+      z_QueryHyperpipeAttribSGIX_ovr_2(dpy, timeSlice, attrib, size, returnAttribList[0]) else
+      z_QueryHyperpipeAttribSGIX_ovr_2_anh000001(dpy, timeSlice, attrib, size, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var returnAttribList: glx_pipe_rect_limits_SGIX): Int32 :=
+    z_QueryHyperpipeAttribSGIX_ovr_2(dpy, timeSlice, attrib, size, returnAttribList);
+    private z_QueryHyperpipeAttribSGIX_ovr_4 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; var returnAttribList: Int32): Int32 :=
+    z_QueryHyperpipeAttribSGIX_ovr_4(dpy, timeSlice, attrib, size, returnAttribList);
+    private z_QueryHyperpipeAttribSGIX_ovr_5 := GetFuncOrNil&(z_QueryHyperpipeAttribSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryHyperpipeAttribSGIX(dpy: x_p_display; timeSlice: Int32; attrib: Int32; size: Int32; returnAttribList: IntPtr): Int32 :=
+    z_QueryHyperpipeAttribSGIX_ovr_5(dpy, timeSlice, attrib, size, returnAttribList);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxPbufferSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_pbuffer';
+    
+    private z_CreateGLXPbufferSGIX_adr := GetFuncAdr('glXCreateGLXPbufferSGIX');
+    private z_CreateGLXPbufferSGIX_ovr_0 := GetFuncOrNil&(z_CreateGLXPbufferSGIX_adr);
+    private z_CreateGLXPbufferSGIX_ovr_0_anh000001 := GetFuncOrNil&(z_CreateGLXPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXPbufferSGIX(dpy: x_p_display; config: glx_fb_config; width: UInt32; height: UInt32; attrib_list: array of Int32): glx_pbuffer :=
+    if (attrib_list<>nil) and (attrib_list.Length<>0) then
+      z_CreateGLXPbufferSGIX_ovr_0(dpy, config, width, height, attrib_list[0]) else
+      z_CreateGLXPbufferSGIX_ovr_0_anh000001(dpy, config, width, height, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXPbufferSGIX(dpy: x_p_display; config: glx_fb_config; width: UInt32; height: UInt32; var attrib_list: Int32): glx_pbuffer :=
+    z_CreateGLXPbufferSGIX_ovr_0(dpy, config, width, height, attrib_list);
+    private z_CreateGLXPbufferSGIX_ovr_2 := GetFuncOrNil&(z_CreateGLXPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXPbufferSGIX(dpy: x_p_display; config: glx_fb_config; width: UInt32; height: UInt32; attrib_list: IntPtr): glx_pbuffer :=
+    z_CreateGLXPbufferSGIX_ovr_2(dpy, config, width, height, attrib_list);
+    
+    private z_DestroyGLXPbufferSGIX_adr := GetFuncAdr('glXDestroyGLXPbufferSGIX');
+    private z_DestroyGLXPbufferSGIX_ovr_0 := GetFuncOrNil&(z_DestroyGLXPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DestroyGLXPbufferSGIX(dpy: x_p_display; pbuf: glx_pbuffer) :=
+    z_DestroyGLXPbufferSGIX_ovr_0(dpy, pbuf);
+    
+    private z_QueryGLXPbufferSGIX_adr := GetFuncAdr('glXQueryGLXPbufferSGIX');
+    private z_QueryGLXPbufferSGIX_ovr_0 := GetFuncOrNil&(z_QueryGLXPbufferSGIX_adr);
+    private z_QueryGLXPbufferSGIX_ovr_0_anh00001 := GetFuncOrNil&(z_QueryGLXPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryGLXPbufferSGIX(dpy: x_p_display; pbuf: glx_pbuffer; attribute: Int32; value: array of UInt32) :=
+    if (value<>nil) and (value.Length<>0) then
+      z_QueryGLXPbufferSGIX_ovr_0(dpy, pbuf, attribute, value[0]) else
+      z_QueryGLXPbufferSGIX_ovr_0_anh00001(dpy, pbuf, attribute, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryGLXPbufferSGIX(dpy: x_p_display; pbuf: glx_pbuffer; attribute: Int32; var value: UInt32) :=
+    z_QueryGLXPbufferSGIX_ovr_0(dpy, pbuf, attribute, value);
+    private z_QueryGLXPbufferSGIX_ovr_2 := GetFuncOrNil&(z_QueryGLXPbufferSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure QueryGLXPbufferSGIX(dpy: x_p_display; pbuf: glx_pbuffer; attribute: Int32; value: IntPtr) :=
+    z_QueryGLXPbufferSGIX_ovr_2(dpy, pbuf, attribute, value);
+    
+    private z_SelectEventSGIX_adr := GetFuncAdr('glXSelectEventSGIX');
+    private z_SelectEventSGIX_ovr_0 := GetFuncOrNil&(z_SelectEventSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure SelectEventSGIX(dpy: x_p_display; drawable: glx_drawable; mask: UInt64) :=
+    z_SelectEventSGIX_ovr_0(dpy, drawable, mask);
+    
+    private z_GetSelectedEventSGIX_adr := GetFuncAdr('glXGetSelectedEventSGIX');
+    private z_GetSelectedEventSGIX_ovr_0 := GetFuncOrNil&(z_GetSelectedEventSGIX_adr);
+    private z_GetSelectedEventSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_GetSelectedEventSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSelectedEventSGIX(dpy: x_p_display; drawable: glx_drawable; mask: array of UInt64) :=
+    if (mask<>nil) and (mask.Length<>0) then
+      z_GetSelectedEventSGIX_ovr_0(dpy, drawable, mask[0]) else
+      z_GetSelectedEventSGIX_ovr_0_anh0001(dpy, drawable, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSelectedEventSGIX(dpy: x_p_display; drawable: glx_drawable; var mask: UInt64) :=
+    z_GetSelectedEventSGIX_ovr_0(dpy, drawable, mask);
+    private z_GetSelectedEventSGIX_ovr_2 := GetFuncOrNil&(z_GetSelectedEventSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure GetSelectedEventSGIX(dpy: x_p_display; drawable: glx_drawable; mask: IntPtr) :=
+    z_GetSelectedEventSGIX_ovr_2(dpy, drawable, mask);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapBarrierSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_swap_barrier';
+    
+    private z_BindSwapBarrierSGIX_adr := GetFuncAdr('glXBindSwapBarrierSGIX');
+    private z_BindSwapBarrierSGIX_ovr_0 := GetFuncOrNil&(z_BindSwapBarrierSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure BindSwapBarrierSGIX(dpy: x_p_display; drawable: glx_drawable; barrier: Int32) :=
+    z_BindSwapBarrierSGIX_ovr_0(dpy, drawable, barrier);
+    
+    private z_QueryMaxSwapBarriersSGIX_adr := GetFuncAdr('glXQueryMaxSwapBarriersSGIX');
+    private z_QueryMaxSwapBarriersSGIX_ovr_0 := GetFuncOrNil&(z_QueryMaxSwapBarriersSGIX_adr);
+    private z_QueryMaxSwapBarriersSGIX_ovr_0_anh0001 := GetFuncOrNil&(z_QueryMaxSwapBarriersSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapBarriersSGIX(dpy: x_p_display; screen: Int32; max: array of Int32): Bool :=
+    if (max<>nil) and (max.Length<>0) then
+      z_QueryMaxSwapBarriersSGIX_ovr_0(dpy, screen, max[0]) else
+      z_QueryMaxSwapBarriersSGIX_ovr_0_anh0001(dpy, screen, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapBarriersSGIX(dpy: x_p_display; screen: Int32; var max: Int32): Bool :=
+    z_QueryMaxSwapBarriersSGIX_ovr_0(dpy, screen, max);
+    private z_QueryMaxSwapBarriersSGIX_ovr_2 := GetFuncOrNil&(z_QueryMaxSwapBarriersSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryMaxSwapBarriersSGIX(dpy: x_p_display; screen: Int32; max: IntPtr): Bool :=
+    z_QueryMaxSwapBarriersSGIX_ovr_2(dpy, screen, max);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxSwapGroupSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_swap_group';
+    
+    private z_JoinSwapGroupSGIX_adr := GetFuncAdr('glXJoinSwapGroupSGIX');
+    private z_JoinSwapGroupSGIX_ovr_0 := GetFuncOrNil&(z_JoinSwapGroupSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure JoinSwapGroupSGIX(dpy: x_p_display; drawable: glx_drawable; member: glx_drawable) :=
+    z_JoinSwapGroupSGIX_ovr_0(dpy, drawable, member);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxVideoResizeSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_video_resize';
+    
+    private z_BindChannelToWindowSGIX_adr := GetFuncAdr('glXBindChannelToWindowSGIX');
+    private z_BindChannelToWindowSGIX_ovr_0 := GetFuncOrNil&(z_BindChannelToWindowSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function BindChannelToWindowSGIX(display: x_p_display; screen: Int32; channel: Int32; window: x_window): Int32 :=
+    z_BindChannelToWindowSGIX_ovr_0(display, screen, channel, window);
+    
+    private z_ChannelRectSGIX_adr := GetFuncAdr('glXChannelRectSGIX');
+    private z_ChannelRectSGIX_ovr_0 := GetFuncOrNil&(z_ChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; x: Int32; y: Int32; w: Int32; h: Int32): Int32 :=
+    z_ChannelRectSGIX_ovr_0(display, screen, channel, x, y, w, h);
+    
+    private z_QueryChannelRectSGIX_adr := GetFuncAdr('glXQueryChannelRectSGIX');
+    private z_QueryChannelRectSGIX_ovr_0 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00000111 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_0_anh00001111 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy[0], dw[0], dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx[0], dy[0], dw[0], IntPtr.Zero) else
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx[0], dy[0], IntPtr.Zero, dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00000011(display, screen, channel, dx[0], dy[0], IntPtr.Zero, IntPtr.Zero) else
+        if (dw<>nil) and (dw.Length<>0) then
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw[0], dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00000101(display, screen, channel, dx[0], IntPtr.Zero, dw[0], IntPtr.Zero) else
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00000110(display, screen, channel, dx[0], IntPtr.Zero, IntPtr.Zero, dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00000111(display, screen, channel, dx[0], IntPtr.Zero, IntPtr.Zero, IntPtr.Zero) else
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw[0], dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, dy[0], dw[0], IntPtr.Zero) else
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, dy[0], IntPtr.Zero, dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00001011(display, screen, channel, IntPtr.Zero, dy[0], IntPtr.Zero, IntPtr.Zero) else
+        if (dw<>nil) and (dw.Length<>0) then
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw[0], dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw[0], IntPtr.Zero) else
+          if (dh<>nil) and (dh.Length<>0) then
+            z_QueryChannelRectSGIX_ovr_0_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, dh[0]) else
+            z_QueryChannelRectSGIX_ovr_0_anh00001111(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_1_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_1_anh00001110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy[0], dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx[0], dy[0], IntPtr.Zero, dh) else
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000110(display, screen, channel, dx[0], IntPtr.Zero, IntPtr.Zero, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, dy[0], IntPtr.Zero, dh) else
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_2 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_2_anh00001110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx[0], dy[0], dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_2_anh00000010(display, screen, channel, dx[0], dy[0], IntPtr.Zero, dh) else
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_2_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_2_anh00000110(display, screen, channel, dx[0], IntPtr.Zero, IntPtr.Zero, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_2_anh00001010(display, screen, channel, IntPtr.Zero, dy[0], IntPtr.Zero, dh) else
+        if (dw<>nil) and (dw.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_2_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw[0], dh) else
+          z_QueryChannelRectSGIX_ovr_2_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_3_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_3_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_3_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_3_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_3_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_3_anh00001101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy[0], dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx[0], dy[0], dw, IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000101(display, screen, channel, dx[0], IntPtr.Zero, dw, IntPtr.Zero) else
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, dy[0], dw, IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_4_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_4_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_4_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; var dw: Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_5_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_5_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_5_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx[0], dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_6 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_6_anh00001101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx[0], dy[0], dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_6_anh00000001(display, screen, channel, dx[0], dy[0], dw, IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_6_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_6_anh00000101(display, screen, channel, dx[0], IntPtr.Zero, dw, IntPtr.Zero) else
+      if (dy<>nil) and (dy.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_6_anh00001001(display, screen, channel, IntPtr.Zero, dy[0], dw, IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_6_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_6_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_7_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_7_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_7_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx[0], dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_6_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_6_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_8 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_8_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_8_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_8_anh00001100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: array of Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_8(display, screen, channel, dx[0], dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_8_anh00000100(display, screen, channel, dx[0], IntPtr.Zero, dw, dh) else
+      if (dy<>nil) and (dy.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_8_anh00001000(display, screen, channel, IntPtr.Zero, dy[0], dw, dh) else
+        z_QueryChannelRectSGIX_ovr_8_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_9_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_9_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_9_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_9_anh00001011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx[0], dy, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000011(display, screen, channel, dx[0], dy, IntPtr.Zero, IntPtr.Zero) else
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00001011(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_10_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_10_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_11_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_11_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx[0], dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_12_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_12_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx[0], dy, dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_13_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; var dw: Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_14_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_15_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_15_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx[0], dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_6_anh00000001(display, screen, channel, dx[0], dy, dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_6_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_16_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_17_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; var dy: Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_8(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_8_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_18 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00000011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_18_anh00001011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx[0], dy, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_18_anh00000001(display, screen, channel, dx[0], dy, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_18_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_18_anh00000011(display, screen, channel, dx[0], dy, IntPtr.Zero, IntPtr.Zero) else
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_18_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_18_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_18_anh00001011(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_19_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_19_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_19_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx[0], dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_18_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_18_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_20 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_20_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_20_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_20_anh00001010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_20(display, screen, channel, dx[0], dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_20_anh00000010(display, screen, channel, dx[0], dy, IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_20_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_20_anh00001010(display, screen, channel, IntPtr.Zero, dy, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_21_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_21_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx[0], dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_18_anh00000001(display, screen, channel, dx[0], dy, dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_18_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_22_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; var dw: Int32; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_23_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; var dw: Int32; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_20(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_20_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_24 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_24_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_24_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_24_anh00001001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_24(display, screen, channel, dx[0], dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_24_anh00000001(display, screen, channel, dx[0], dy, dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_24_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_24_anh00001001(display, screen, channel, IntPtr.Zero, dy, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_25_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: IntPtr; var dh: Int32): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_24(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_24_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_26 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_26_anh00001000 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: array of Int32; dy: IntPtr; dw: IntPtr; dh: IntPtr): Int32 :=
+    if (dx<>nil) and (dx.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_26(display, screen, channel, dx[0], dy, dw, dh) else
+      z_QueryChannelRectSGIX_ovr_26_anh00001000(display, screen, channel, IntPtr.Zero, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy[0], dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx, dy[0], dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000011(display, screen, channel, dx, dy[0], IntPtr.Zero, IntPtr.Zero) else
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_0_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_0_anh00000111(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy[0], dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx, dy[0], dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_2_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_2_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy[0], dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx, dy[0], dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; var dw: Int32; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_0_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_2_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx, dy[0], dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_6_anh00000001(display, screen, channel, dx, dy[0], dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_6_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_6_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_6_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: array of Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_8(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_8_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy, dw[0], dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx, dy, dw[0], IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_0_anh00000011(display, screen, channel, dx, dy, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_0_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_2_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_0_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; var dw: Int32; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_0(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_2(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_6_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_6(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; var dy: Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_8(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx, dy, dw[0], dh[0]) else
+        z_QueryChannelRectSGIX_ovr_18_anh00000001(display, screen, channel, dx, dy, dw[0], IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_18_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_18_anh00000011(display, screen, channel, dx, dy, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_18_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_20(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_20_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_18_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; var dw: Int32; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_18(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; var dw: Int32; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_20(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_24(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_24_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: IntPtr; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_24(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; var dx: Int32; dy: IntPtr; dw: IntPtr; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_26(display, screen, channel, dx, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_54 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_54_anh00000111 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy[0], dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_54_anh00000001(display, screen, channel, dx, dy[0], dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_54_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_54_anh00000011(display, screen, channel, dx, dy[0], IntPtr.Zero, IntPtr.Zero) else
+      if (dw<>nil) and (dw.Length<>0) then
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_54_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh[0]) else
+          z_QueryChannelRectSGIX_ovr_54_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw[0], IntPtr.Zero) else
+        if (dh<>nil) and (dh.Length<>0) then
+          z_QueryChannelRectSGIX_ovr_54_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh[0]) else
+          z_QueryChannelRectSGIX_ovr_54_anh00000111(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_55_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_55_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_55_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy[0], dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_56 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_56_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_56_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_56_anh00000110 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_56(display, screen, channel, dx, dy[0], dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_56_anh00000010(display, screen, channel, dx, dy[0], IntPtr.Zero, dh) else
+      if (dw<>nil) and (dw.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_56_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw[0], dh) else
+        z_QueryChannelRectSGIX_ovr_56_anh00000110(display, screen, channel, dx, IntPtr.Zero, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_57_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_57_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy[0], dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000001(display, screen, channel, dx, dy[0], dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_58_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; var dw: Int32; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_54_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_59_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_56(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_56_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_60 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_60_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_60_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_60_anh00000101 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_60(display, screen, channel, dx, dy[0], dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_60_anh00000001(display, screen, channel, dx, dy[0], dw, IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_60_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_60_anh00000101(display, screen, channel, dx, IntPtr.Zero, dw, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_61_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_60(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_60_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_62 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_62_anh00000100 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: array of Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    if (dy<>nil) and (dy.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_62(display, screen, channel, dx, dy[0], dw, dh) else
+      z_QueryChannelRectSGIX_ovr_62_anh00000100(display, screen, channel, dx, IntPtr.Zero, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy, dw[0], dh[0]) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000001(display, screen, channel, dx, dy, dw[0], IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_54_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_54_anh00000011(display, screen, channel, dx, dy, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_54_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_56(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_56_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_54_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; var dw: Int32; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_54(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; var dw: Int32; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_56(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_60(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_60_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: IntPtr; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_60(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; var dy: Int32; dw: IntPtr; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_62(display, screen, channel, dx, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_72 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_72_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_72_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_72_anh00000011 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: array of Int32; dh: array of Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_72(display, screen, channel, dx, dy, dw[0], dh[0]) else
+        z_QueryChannelRectSGIX_ovr_72_anh00000001(display, screen, channel, dx, dy, dw[0], IntPtr.Zero) else
+      if (dh<>nil) and (dh.Length<>0) then
+        z_QueryChannelRectSGIX_ovr_72_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh[0]) else
+        z_QueryChannelRectSGIX_ovr_72_anh00000011(display, screen, channel, dx, dy, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelRectSGIX_ovr_73_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: array of Int32; var dh: Int32): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_72(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_72_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    private z_QueryChannelRectSGIX_ovr_74 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_74_anh00000010 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: array of Int32; dh: IntPtr): Int32 :=
+    if (dw<>nil) and (dw.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_74(display, screen, channel, dx, dy, dw[0], dh) else
+      z_QueryChannelRectSGIX_ovr_74_anh00000010(display, screen, channel, dx, dy, IntPtr.Zero, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; var dw: Int32; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_72(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_72_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; var dw: Int32; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_72(display, screen, channel, dx, dy, dw, dh);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; var dw: Int32; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_74(display, screen, channel, dx, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_78 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    private z_QueryChannelRectSGIX_ovr_78_anh00000001 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: IntPtr; dh: array of Int32): Int32 :=
+    if (dh<>nil) and (dh.Length<>0) then
+      z_QueryChannelRectSGIX_ovr_78(display, screen, channel, dx, dy, dw, dh[0]) else
+      z_QueryChannelRectSGIX_ovr_78_anh00000001(display, screen, channel, dx, dy, dw, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: IntPtr; var dh: Int32): Int32 :=
+    z_QueryChannelRectSGIX_ovr_78(display, screen, channel, dx, dy, dw, dh);
+    private z_QueryChannelRectSGIX_ovr_80 := GetFuncOrNil&(z_QueryChannelRectSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelRectSGIX(display: x_p_display; screen: Int32; channel: Int32; dx: IntPtr; dy: IntPtr; dw: IntPtr; dh: IntPtr): Int32 :=
+    z_QueryChannelRectSGIX_ovr_80(display, screen, channel, dx, dy, dw, dh);
+    
+    private z_QueryChannelDeltasSGIX_adr := GetFuncAdr('glXQueryChannelDeltasSGIX');
+    private z_QueryChannelDeltasSGIX_ovr_0 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00000111 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_0_anh00001111 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y[0], w[0], h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x[0], y[0], w[0], IntPtr.Zero) else
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x[0], y[0], IntPtr.Zero, h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000011(display, screen, channel, x[0], y[0], IntPtr.Zero, IntPtr.Zero) else
+        if (w<>nil) and (w.Length<>0) then
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w[0], h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000101(display, screen, channel, x[0], IntPtr.Zero, w[0], IntPtr.Zero) else
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000110(display, screen, channel, x[0], IntPtr.Zero, IntPtr.Zero, h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00000111(display, screen, channel, x[0], IntPtr.Zero, IntPtr.Zero, IntPtr.Zero) else
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w[0], h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, y[0], w[0], IntPtr.Zero) else
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, y[0], IntPtr.Zero, h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001011(display, screen, channel, IntPtr.Zero, y[0], IntPtr.Zero, IntPtr.Zero) else
+        if (w<>nil) and (w.Length<>0) then
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w[0], h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w[0], IntPtr.Zero) else
+          if (h<>nil) and (h.Length<>0) then
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, h[0]) else
+            z_QueryChannelDeltasSGIX_ovr_0_anh00001111(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_1_anh00001110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y[0], w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x[0], y[0], IntPtr.Zero, h) else
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000110(display, screen, channel, x[0], IntPtr.Zero, IntPtr.Zero, h) else
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, y[0], IntPtr.Zero, h) else
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_2 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_2_anh00001110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x[0], y[0], w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_2_anh00000010(display, screen, channel, x[0], y[0], IntPtr.Zero, h) else
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_2_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_2_anh00000110(display, screen, channel, x[0], IntPtr.Zero, IntPtr.Zero, h) else
+      if (y<>nil) and (y.Length<>0) then
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_2_anh00001010(display, screen, channel, IntPtr.Zero, y[0], IntPtr.Zero, h) else
+        if (w<>nil) and (w.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_2_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w[0], h) else
+          z_QueryChannelDeltasSGIX_ovr_2_anh00001110(display, screen, channel, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_3_anh00001101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y[0], w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x[0], y[0], w, IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000101(display, screen, channel, x[0], IntPtr.Zero, w, IntPtr.Zero) else
+      if (y<>nil) and (y.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, y[0], w, IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_4_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_4_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_4_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; var w: Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h) else
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_5_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_5_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_5_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; var w: Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x[0], y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h) else
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_6 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_6_anh00001101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x[0], y[0], w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_6_anh00000001(display, screen, channel, x[0], y[0], w, IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_6_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_6_anh00000101(display, screen, channel, x[0], IntPtr.Zero, w, IntPtr.Zero) else
+      if (y<>nil) and (y.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_6_anh00001001(display, screen, channel, IntPtr.Zero, y[0], w, IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_6_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_6_anh00001101(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_7_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_7_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_7_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: IntPtr; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x[0], y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h) else
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_8 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_8_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_8_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_8_anh00001100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: array of Int32; w: IntPtr; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_8(display, screen, channel, x[0], y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_8_anh00000100(display, screen, channel, x[0], IntPtr.Zero, w, h) else
+      if (y<>nil) and (y.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_8_anh00001000(display, screen, channel, IntPtr.Zero, y[0], w, h) else
+        z_QueryChannelDeltasSGIX_ovr_8_anh00001100(display, screen, channel, IntPtr.Zero, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_9_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_9_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_9_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_9_anh00001011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x[0], y, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000011(display, screen, channel, x[0], y, IntPtr.Zero, IntPtr.Zero) else
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, y, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00001011(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_10_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_10_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_11_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_11_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x[0], y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_12_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_12_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x[0], y, w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00001001(display, screen, channel, IntPtr.Zero, y, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_13_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; var w: Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_0_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_14_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; var w: Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_2_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_15_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_15_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x[0], y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00000001(display, screen, channel, x[0], y, w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00001001(display, screen, channel, IntPtr.Zero, y, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_16_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: IntPtr; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_6_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_17_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; var y: Int32; w: IntPtr; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_8(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_8_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_18 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00000011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_18_anh00001011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: array of Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x[0], y, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_18_anh00000001(display, screen, channel, x[0], y, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_18_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_18_anh00000011(display, screen, channel, x[0], y, IntPtr.Zero, IntPtr.Zero) else
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_18_anh00001001(display, screen, channel, IntPtr.Zero, y, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_18_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_18_anh00001011(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_19_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_19_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_19_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: array of Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x[0], y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_20 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_20_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_20_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_20_anh00001010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: array of Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_20(display, screen, channel, x[0], y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_20_anh00000010(display, screen, channel, x[0], y, IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_20_anh00001000(display, screen, channel, IntPtr.Zero, y, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_20_anh00001010(display, screen, channel, IntPtr.Zero, y, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_21_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_21_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; var w: Int32; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x[0], y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00000001(display, screen, channel, x[0], y, w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00001001(display, screen, channel, IntPtr.Zero, y, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_22_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; var w: Int32; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_18_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_23_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; var w: Int32; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_20(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_20_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_24 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_24_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_24_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_24_anh00001001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: IntPtr; h: array of Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_24(display, screen, channel, x[0], y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_24_anh00000001(display, screen, channel, x[0], y, w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_24_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_24_anh00001001(display, screen, channel, IntPtr.Zero, y, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_25_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: IntPtr; var h: Int32): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_24(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_24_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_26 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_26_anh00001000 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: array of Int32; y: IntPtr; w: IntPtr; h: IntPtr): Int32 :=
+    if (x<>nil) and (x.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_26(display, screen, channel, x[0], y, w, h) else
+      z_QueryChannelDeltasSGIX_ovr_26_anh00001000(display, screen, channel, IntPtr.Zero, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y[0], w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x, y[0], w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000011(display, screen, channel, x, y[0], IntPtr.Zero, IntPtr.Zero) else
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000101(display, screen, channel, x, IntPtr.Zero, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_0_anh00000111(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y[0], w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x, y[0], w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_2_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_2_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y[0], w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x, y[0], w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000101(display, screen, channel, x, IntPtr.Zero, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; var w: Int32; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_0_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; var w: Int32; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_2_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x, y[0], w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00000001(display, screen, channel, x, y[0], w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_6_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_6_anh00000101(display, screen, channel, x, IntPtr.Zero, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: IntPtr; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_6_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: array of Int32; w: IntPtr; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_8(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_8_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y, w[0], h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x, y, w[0], IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_0_anh00000011(display, screen, channel, x, y, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_0_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_2_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_0_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; var w: Int32; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_0(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; var w: Int32; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_2(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_6_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: IntPtr; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_6(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; var y: Int32; w: IntPtr; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_8(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: array of Int32; h: array of Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x, y, w[0], h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00000001(display, screen, channel, x, y, w[0], IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_18_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_18_anh00000011(display, screen, channel, x, y, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: array of Int32; var h: Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_18_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: array of Int32; h: IntPtr): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_20(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_20_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; var w: Int32; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_18_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; var w: Int32; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_18(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; var w: Int32; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_20(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: IntPtr; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_24(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_24_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: IntPtr; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_24(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; var x: Int32; y: IntPtr; w: IntPtr; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_26(display, screen, channel, x, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_54 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_54_anh00000111 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y[0], w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000001(display, screen, channel, x, y[0], w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000011(display, screen, channel, x, y[0], IntPtr.Zero, IntPtr.Zero) else
+      if (w<>nil) and (w.Length<>0) then
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000101(display, screen, channel, x, IntPtr.Zero, w[0], IntPtr.Zero) else
+        if (h<>nil) and (h.Length<>0) then
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h[0]) else
+          z_QueryChannelDeltasSGIX_ovr_54_anh00000111(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_55_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_55_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_55_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y[0], w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_56 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_56_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_56_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_56_anh00000110 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_56(display, screen, channel, x, y[0], w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_56_anh00000010(display, screen, channel, x, y[0], IntPtr.Zero, h) else
+      if (w<>nil) and (w.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_56_anh00000100(display, screen, channel, x, IntPtr.Zero, w[0], h) else
+        z_QueryChannelDeltasSGIX_ovr_56_anh00000110(display, screen, channel, x, IntPtr.Zero, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_57_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_57_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y[0], w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000001(display, screen, channel, x, y[0], w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000101(display, screen, channel, x, IntPtr.Zero, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_58_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; var w: Int32; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_54_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_59_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; var w: Int32; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_56(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_56_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_60 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_60_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_60_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_60_anh00000101 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_60(display, screen, channel, x, y[0], w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_60_anh00000001(display, screen, channel, x, y[0], w, IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_60_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_60_anh00000101(display, screen, channel, x, IntPtr.Zero, w, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_61_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: IntPtr; var h: Int32): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_60(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_60_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_62 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_62_anh00000100 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: array of Int32; w: IntPtr; h: IntPtr): Int32 :=
+    if (y<>nil) and (y.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_62(display, screen, channel, x, y[0], w, h) else
+      z_QueryChannelDeltasSGIX_ovr_62_anh00000100(display, screen, channel, x, IntPtr.Zero, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: array of Int32; h: array of Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y, w[0], h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000001(display, screen, channel, x, y, w[0], IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_54_anh00000011(display, screen, channel, x, y, IntPtr.Zero, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: array of Int32; var h: Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_54_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: array of Int32; h: IntPtr): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_56(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_56_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; var w: Int32; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_54_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; var w: Int32; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_54(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; var w: Int32; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_56(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: IntPtr; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_60(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_60_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: IntPtr; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_60(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; var y: Int32; w: IntPtr; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_62(display, screen, channel, x, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_72 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_72_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_72_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_72_anh00000011 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: array of Int32; h: array of Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_72(display, screen, channel, x, y, w[0], h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_72_anh00000001(display, screen, channel, x, y, w[0], IntPtr.Zero) else
+      if (h<>nil) and (h.Length<>0) then
+        z_QueryChannelDeltasSGIX_ovr_72_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h[0]) else
+        z_QueryChannelDeltasSGIX_ovr_72_anh00000011(display, screen, channel, x, y, IntPtr.Zero, IntPtr.Zero);
+    private z_QueryChannelDeltasSGIX_ovr_73_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: array of Int32; var h: Int32): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_72(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_72_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    private z_QueryChannelDeltasSGIX_ovr_74 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_74_anh00000010 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: array of Int32; h: IntPtr): Int32 :=
+    if (w<>nil) and (w.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_74(display, screen, channel, x, y, w[0], h) else
+      z_QueryChannelDeltasSGIX_ovr_74_anh00000010(display, screen, channel, x, y, IntPtr.Zero, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; var w: Int32; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_72(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_72_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; var w: Int32; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_72(display, screen, channel, x, y, w, h);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; var w: Int32; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_74(display, screen, channel, x, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_78 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    private z_QueryChannelDeltasSGIX_ovr_78_anh00000001 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: IntPtr; h: array of Int32): Int32 :=
+    if (h<>nil) and (h.Length<>0) then
+      z_QueryChannelDeltasSGIX_ovr_78(display, screen, channel, x, y, w, h[0]) else
+      z_QueryChannelDeltasSGIX_ovr_78_anh00000001(display, screen, channel, x, y, w, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: IntPtr; var h: Int32): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_78(display, screen, channel, x, y, w, h);
+    private z_QueryChannelDeltasSGIX_ovr_80 := GetFuncOrNil&(z_QueryChannelDeltasSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function QueryChannelDeltasSGIX(display: x_p_display; screen: Int32; channel: Int32; x: IntPtr; y: IntPtr; w: IntPtr; h: IntPtr): Int32 :=
+    z_QueryChannelDeltasSGIX_ovr_80(display, screen, channel, x, y, w, h);
+    
+    private z_ChannelRectSyncSGIX_adr := GetFuncAdr('glXChannelRectSyncSGIX');
+    private z_ChannelRectSyncSGIX_ovr_0 := GetFuncOrNil&(z_ChannelRectSyncSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function ChannelRectSyncSGIX(display: x_p_display; screen: Int32; channel: Int32; synctype: DummyEnum): Int32 :=
+    z_ChannelRectSyncSGIX_ovr_0(display, screen, channel, synctype);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxVideoSourceSGIX = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SGIX_video_source';
+    
+    private z_CreateGLXVideoSourceSGIX_adr := GetFuncAdr('glXCreateGLXVideoSourceSGIX');
+    private z_CreateGLXVideoSourceSGIX_ovr_0 := GetFuncOrNil&(z_CreateGLXVideoSourceSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CreateGLXVideoSourceSGIX(display: x_p_display; screen: Int32; server: x_vl_server; path: x_vl_path; nodeClass: Int32; drainNode: x_vl_node): glx_video_source_SGIX :=
+    z_CreateGLXVideoSourceSGIX_ovr_0(display, screen, server, path, nodeClass, drainNode);
+    
+    private z_DestroyGLXVideoSourceSGIX_adr := GetFuncAdr('glXDestroyGLXVideoSourceSGIX');
+    private z_DestroyGLXVideoSourceSGIX_ovr_0 := GetFuncOrNil&(z_DestroyGLXVideoSourceSGIX_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] procedure DestroyGLXVideoSourceSGIX(dpy: x_p_display; glxvideosource: glx_video_source_SGIX) :=
+    z_DestroyGLXVideoSourceSGIX_ovr_0(dpy, glxvideosource);
+    
+  end;
+  
+  [PCUNotRestore]
+  [System.Security.SuppressUnmanagedCodeSecurity]
+  glxGetTransparentIndexSUN = sealed class
+    private static function GetFuncAdr(lpszProc: string) := glx.GetProcAddress(lpszProc);
+    private static function GetFuncOrNil(fadr: IntPtr) :=
+    fadr=IntPtr.Zero ? default(T) :
+    Marshal.GetDelegateForFunctionPointer&(fadr);
+    public const _ExtStr = 'SUN_get_transparent_index';
+    
+    private z_GetTransparentIndexSUN_adr := GetFuncAdr('glXGetTransparentIndexSUN');
+    private z_GetTransparentIndexSUN_ovr_0 := GetFuncOrNil&(z_GetTransparentIndexSUN_adr);
+    private z_GetTransparentIndexSUN_ovr_0_anh00001 := GetFuncOrNil&(z_GetTransparentIndexSUN_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTransparentIndexSUN(dpy: x_p_display; overlay: x_window; underlay: x_window; pTransparentIndex: array of UInt64): Bool :=
+    if (pTransparentIndex<>nil) and (pTransparentIndex.Length<>0) then
+      z_GetTransparentIndexSUN_ovr_0(dpy, overlay, underlay, pTransparentIndex[0]) else
+      z_GetTransparentIndexSUN_ovr_0_anh00001(dpy, overlay, underlay, IntPtr.Zero);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTransparentIndexSUN(dpy: x_p_display; overlay: x_window; underlay: x_window; var pTransparentIndex: UInt64): Bool :=
+    z_GetTransparentIndexSUN_ovr_0(dpy, overlay, underlay, pTransparentIndex);
+    private z_GetTransparentIndexSUN_ovr_2 := GetFuncOrNil&(z_GetTransparentIndexSUN_adr);
+    public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetTransparentIndexSUN(dpy: x_p_display; overlay: x_window; underlay: x_window; pTransparentIndex: IntPtr): Bool :=
+    z_GetTransparentIndexSUN_ovr_2(dpy, overlay, underlay, pTransparentIndex);
+    
+  end;
+  
   {$endregion Extensions}
   
   {$endregion Функции}
   
+  {$region Платформы}
+  
+  PlWin = record(IPlatformAPI)
+    public function GetProcAddress(lpszProc: string): IntPtr := wgl.GetProcAddress(lpszProc);
+  end;
+  
+  PlX = record(IPlatformAPI)
+    public function GetProcAddress(lpszProc: string): IntPtr := glx.GetProcAddress(lpszProc);
+  end;
+  
+  {$endregion Платформы}
+  
   {$region GDI}
   
   ///Методы для интеграции с gdi
@@ -76582,32 +75173,32 @@ type
     
     {$region Misc}
     
-    ///Создаёт новую поверхность рисования GDI для дескриптора элемента управления
-    public static function GetControlDC(hwnd: IntPtr): GDI_DC;
+    ///Создаёт новый контекст устройства GDI для дескриптора элемента управления
+    public static function GetControlDC(hwnd: IntPtr): gdi_device_context;
     external 'user32.dll' name 'GetDC';
     
     {$endregion Misc}
     
     {$region InitControl}
     
-    ///Создаёт и настраивает поверхность рисования GDI элемента управления WF
+    ///Создаёт и настраивает контекст устройства GDI элемента управления WF
     ///hwnd - дескриптор элемента управления
-    public static function InitControl(hwnd: IntPtr): GDI_DC;
+    public static function InitControl(hwnd: IntPtr): gdi_device_context;
     begin
       Result := gl_gdi.GetControlDC(hwnd);
       
-      var pfd: GDI_PixelFormatDescriptor;
+      var pfd: gdi_pixel_format_descriptor;
       pfd.nVersion := 1;
       
       pfd.dwFlags :=
-        PixelFormatFlagsGDI.DRAW_TO_WINDOW or
-        PixelFormatFlagsGDI.SUPPORT_OPENGL or
-        PixelFormatFlagsGDI.DOUBLEBUFFER
+        GDI_PixelFormatFlags.DRAW_TO_WINDOW or
+        GDI_PixelFormatFlags.SUPPORT_OPENGL or
+        GDI_PixelFormatFlags.DOUBLEBUFFER
       ;
       pfd.cColorBits := 24;
       pfd.cDepthBits := 16;
       
-      if 1 <> gdi.SetPixelFormat(
+      if not gdi.SetPixelFormat(
         Result,
         gdi.ChoosePixelFormat(Result, pfd),
         pfd
@@ -76615,7 +75206,7 @@ type
       
     end;
     
-    ///Создаёт и настраивает поверхность рисования GDI элемента управления WF
+    ///Создаёт и настраивает контекст устройства GDI элемента управления WF
     public static function InitControl(c: System.Windows.Forms.Control) := InitControl(c.Handle);
     
     {$endregion InitControl}
@@ -76623,9 +75214,9 @@ type
     {$region SetupControlRedrawing}
     
     ///Добавляет в эвент Form.Load формы (f) обработчик, который:
-    ///1. Создаёт контекст OpenGL на поверхности рисования GDI (hdc)
+    ///1. Создаёт контекст OpenGL из контекста устройства GDI (hdc)
     ///2. Запускает перерисовку (RedrawThreadProc)
-    public static procedure SetupControlRedrawing(f: System.Windows.Forms.Form; hdc: GDI_DC; RedrawThreadProc: procedure(EndFrame: ()->()); vsync_fps: integer := 65);
+    public static procedure SetupControlRedrawing(f: System.Windows.Forms.Form; hdc: gdi_device_context; RedrawThreadProc: procedure(EndFrame: ()->()); vsync_fps: integer := 65);
     begin
       
       f.Load += (o,e)->
@@ -76633,7 +75224,7 @@ type
         begin
           
           var context := wgl.CreateContext(hdc);
-          if 1 <> wgl.MakeCurrent(hdc, context) then raise new InvalidOperationException('Не удалось применить контекст');
+          if not wgl.MakeCurrent(hdc, context) then raise new InvalidOperationException('Не удалось применить контекст');
           
           var EndFrame: ()->();
           if vsync_fps<=0 then
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index a2c1c3ba0..9d32b6cff 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -8215,7 +8215,7 @@ function LogN(base, x: real) := Math.Log(x) / Math.Log(base);
 
 function Sqrt(x: real) := Math.Sqrt(x);
 
-function Sqr(x: integer): int64 := x * x;
+function Sqr(x: integer): int64 := int64(x) * int64(x);
 
 function Sqr(x: shortint): integer := x * x;
 
@@ -8225,11 +8225,11 @@ function Sqr(x: BigInteger): BigInteger := x * x;
 
 function Sqr(x: byte): integer := x * x;
 
-function Sqr(x: word): uint64 := x * x;
+function Sqr(x: word): uint64 := uint64(x) * uint64(x);
 
-function Sqr(x: longword): uint64 := x * x;
+function Sqr(x: longword): uint64 := uint64(x) * uint64(x);
 
-function Sqr(x: int64): int64 := x * x;
+function Sqr(x: int64): int64 := int64(x) * int64(x);
 
 function Sqr(x: uint64): uint64 := x * x;
 
diff --git a/bin/TestRunner.exe b/bin/TestRunner.exe
index de20bb5a5..c6d48b895 100644
Binary files a/bin/TestRunner.exe and b/bin/TestRunner.exe differ
diff --git a/bin/TestRunner.pas b/bin/TestRunner.pas
index 101a0e3bd..6b90a6113 100644
--- a/bin/TestRunner.pas
+++ b/bin/TestRunner.pas
@@ -11,7 +11,8 @@ uses PascalABCCompiler, System.IO, System.Diagnostics;
 
 var
   TestSuiteDir: string;
-
+  nogui: boolean;
+  
 var
   PathSeparator: string := Path.DirectorySeparatorChar;
 
@@ -56,13 +57,19 @@ begin
     comp.Compile(co);
     if comp.ErrorsList.Count = 0 then
     begin
+      if nogui then
+        raise new Exception('Compilation of error sample ' + files[i] + ' was successfull');
       System.Windows.Forms.MessageBox.Show('Compilation of error sample ' + files[i] + ' was successfull' + System.Environment.NewLine);
       Halt();
     end
     else if comp.ErrorsList.Count = 1 then
     begin
       if comp.ErrorsList[0].GetType() = typeof(PascalABCCompiler.Errors.CompilerInternalError) then
+      begin
+        if nogui then
+          raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
         System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
+      end;
     end;
     if i mod 50 = 0 then
       System.GC.Collect();
@@ -96,6 +103,8 @@ begin
     comp.Compile(co);
     if comp.ErrorsList.Count > 0 then
     begin
+      if nogui then
+        raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       Halt();
     end;
@@ -130,6 +139,8 @@ begin
     comp.Compile(co);
     if comp.ErrorsList.Count > 0 then
     begin
+      if nogui then
+        raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       Halt();
     end;
@@ -159,6 +170,8 @@ begin
     comp.Compile(co);
     if comp.ErrorsList.Count > 0 then
     begin
+      if nogui then
+        raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       Halt();
     end;
@@ -186,6 +199,8 @@ begin
     comp.Compile(co);
     if comp.ErrorsList.Count > 0 then
     begin
+      if nogui then
+        raise new Exception('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
       Halt();
     end;
@@ -230,11 +245,22 @@ begin
       p.StandardInput.WriteLine('GO');
 		  //p.StandardInput.AutoFlush := true;
 		  //var p := System.Diagnostics.Process.Start(psi);
-    
-    while not p.HasExited do
-      Sleep(10);
+		if nogui then
+    begin
+      var success := p.WaitForExit(60000);
+      if not success then
+      begin
+        raise new Exception('Running of ' + files[i] + ' failed.');
+      end;
+    end
+    else
+      p.WaitForExit();
+    //while not p.HasExited do
+    //  Sleep(5);
     if p.ExitCode <> 0 then
     begin
+      if nogui then
+        raise new Exception('Running of ' + files[i] + ' failed. Exit code is not 0');
       System.Windows.Forms.MessageBox.Show('Running of ' + files[i] + ' failed. Exit code is not 0');
       Halt;
     end;
@@ -344,17 +370,21 @@ begin
   try
     TestSuiteDir := GetTestSuiteDir;
     System.Environment.CurrentDirectory := Path.GetDirectoryName(GetEXEFileName());
+    if (ParamCount = 2) and (ParamStr(2) = '1') then
+      nogui := true;
     if (ParamCount = 0) or (ParamStr(1) = '1') then
     begin
       DeletePCUFiles;
       ClearExeDir;
       CompileAllRunTests(false);
+      writeln('Tests to run: '+Milliseconds()+'ms');
     end;
     
     if (ParamCount = 0) or (ParamStr(1) = '2') then
     begin
       CopyLibFiles;
       CompileAllCompilationTests('CompilationSamples', false);
+      writeln('CompilationSamples: '+Milliseconds()+'ms');
     end;
     if (ParamCount = 0) or (ParamStr(1) = '3') then
     begin
@@ -362,12 +392,12 @@ begin
       CopyPCUFiles;
       CompileAllUsesUnits;
       CompileErrorTests(false);
-      writeln('Tests compiled successfully');
+      writeln('Other tests '+Milliseconds()+'ms'+'. Tests compiled successfully ');
     end;
     if (ParamCount = 0) or (ParamStr(1) = '4') then
     begin
       RunAllTests(false);
-      writeln('Tests run successfully');
+      writeln('Tests run successfully: '+Milliseconds()+'ms');
       ClearExeDir;
       DeletePCUFiles;
     end;
@@ -397,6 +427,11 @@ begin
     end;
   except
     on e: Exception do
+    begin
+      if nogui then
+        raise new Exception(e.ToString());
       assert(false, e.ToString());
+    end;
+     
   end;
 end.
\ No newline at end of file
diff --git a/pabcnetc/AssemblyInfo.cs b/pabcnetc/AssemblyInfo.cs
index 3ffd69521..48f230c17 100644
--- a/pabcnetc/AssemblyInfo.cs
+++ b/pabcnetc/AssemblyInfo.cs
@@ -13,7 +13,7 @@ using System.Runtime.CompilerServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("")]
-[assembly: AssemblyCopyright("Copyright © 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright © 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]		
 
diff --git a/pabcnetc/ConsoleCompiler.cs b/pabcnetc/ConsoleCompiler.cs
index 81907ebb7..5c1dddd5b 100644
--- a/pabcnetc/ConsoleCompiler.cs
+++ b/pabcnetc/ConsoleCompiler.cs
@@ -375,7 +375,7 @@ namespace PascalABCCompiler
             DateTime ldt = DateTime.Now;
             Compiler = new PascalABCCompiler.Compiler(null,ChangeCompilerState);
             //GC.Collect();
-            WriteColorText(Compiler.Banner + "\nCopyright (c) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich\n", ConsoleColor.Black, ConsoleColor.Green);
+            WriteColorText(Compiler.Banner + "\nCopyright (c) 2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich\n", ConsoleColor.Black, ConsoleColor.Green);
             Console.WriteLine("OK {0}ms", (DateTime.Now - ldt).TotalMilliseconds);
             if (Compiler.SupportedSourceFiles.Length == 0)
                 WriteColorText(StringResourcesGet("ERROR_PARSERS_NOT_FOUND")+Environment.NewLine,ConsoleColor.Black,ConsoleColor.Red);
diff --git a/pabcnetc_clear/AssemblyInfo.cs b/pabcnetc_clear/AssemblyInfo.cs
index b6df1584a..77fa81dbd 100644
--- a/pabcnetc_clear/AssemblyInfo.cs
+++ b/pabcnetc_clear/AssemblyInfo.cs
@@ -13,7 +13,7 @@ using System.Runtime.CompilerServices;
 [assembly: AssemblyConfiguration("")]
 [assembly: AssemblyCompany("")]
 [assembly: AssemblyProduct("")]
-[assembly: AssemblyCopyright("Copyright  2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich")]
+[assembly: AssemblyCopyright("Copyright  2005-2021 by Ivan Bondarev, Stanislav Mikhalkovich")]
 [assembly: AssemblyTrademark("")]
 [assembly: AssemblyCulture("")]