Merge pull request #2434 from SunSerega/POCGL-stables
Обновление POCGL - объединение OpenCLABC и OpenCLABCBase, используя partial классы
This commit is contained in:
Ivan Bondarev
GitHub
commit
a35c670c48
|
|
@ -16,12 +16,15 @@ begin
|
|||
//
|
||||
|
||||
var A := NamedQ('A');
|
||||
var B := NamedQ('B');
|
||||
var C := NamedQ('C');
|
||||
var B := NamedQ('B').ThenWaitMarker;
|
||||
var C := NamedQ('C').ThenWaitMarker;
|
||||
var D := NamedQ('D');
|
||||
var E := NamedQ('E');
|
||||
var F := NamedQ('F');
|
||||
|
||||
// Можно попробовать расписать как "A + B*C + D*E*F", но это будет не то же самое:
|
||||
// К примеру D будет ожидать окончание выполнения C перед тем как начать выполняться
|
||||
// (когда все очереди выполняются за ровно одну секунду - это не заметно, но в реальной ситуации будет существенно)
|
||||
Context.Default.SyncInvoke(
|
||||
A +
|
||||
(B+D) *
|
||||
|
|
|
|||
|
|
@ -13,19 +13,27 @@ begin
|
|||
var A1 := NamedQ('A1');
|
||||
var A2 := NamedQ('A2');
|
||||
|
||||
var B1 := NamedQ('B1');
|
||||
var B1 := NamedQ('B1').ThenWaitMarker;
|
||||
var Bw := WaitFor(B1);
|
||||
|
||||
var C1 := NamedQ('C1');
|
||||
var C2 := NamedQ('C2');
|
||||
|
||||
var D2 := NamedQ('D2');
|
||||
var D2 := NamedQ('D2').ThenWaitMarker;
|
||||
var Dw := WaitFor(D2);
|
||||
|
||||
var E1 := NamedQ('E1');
|
||||
var E2 := NamedQ('E2');
|
||||
|
||||
// Дерево выполнения из данной программы может решать задачу такого типа:
|
||||
// > Два парралельных процесса выполняются последовательно и иногда взаимодействуют
|
||||
// Его можно расписать без Wait, к примеру как "A1*A2 + B1 + C1*C2 + D2 + E1*E2"
|
||||
// И результат будет тот же, но такое дерево уже не похоже по форме на изначальную задачу
|
||||
// Если между деревом и задачей сложно провести параллели - программу будет сложно улучшать
|
||||
// (то есть будет сложно понять что делает что в очереди)
|
||||
Context.Default.SyncInvoke(
|
||||
( A1 + B1 + C1 + WaitFor(D2) + E1 ) *
|
||||
( A2 + WaitFor(B1) + C2 + D2 + E2 )
|
||||
( A1 + B1 + C1 + Dw + E1 ) *
|
||||
( A2 + Bw + C2 + D2 + E2 )
|
||||
);
|
||||
|
||||
end.
|
||||
|
|
@ -1766,67 +1766,127 @@ q.AddQueue(q);
|
|||
</div>
|
||||
<script>on_page_added(document.getElementById("page-23"))</script>
|
||||
<div id="page-24" page_name="Из ожидания очередей" hidden=true>
|
||||
<p>Есть всего 3 группы подпрограмм, создающих очереди для ожидания других очередей:</p>
|
||||
<p>Большинство деревьев выполнения очередей можно реализовать используя только сложение и умножение очередей. Но есть несколько проблем:</p>
|
||||
<ul>
|
||||
<li><p>Большинство но не все. Пример дерева которое нельзя реализовать через сложение и умножение можно найти в файле:<br />
|
||||
C:\PABCWork.NET\Samples\OpenGL и OpenCL\OpenCLABC\Wait очереди\1.pas</p>
|
||||
</li>
|
||||
<li><p>Даже если дерево реализуется сложением+умножением - такая реализация может выглядеть запутано и не похоже на график дерева выполнения:<br />
|
||||
C:\PABCWork.NET\Samples\OpenGL и OpenCL\OpenCLABC\Wait очереди\2.pas</p>
|
||||
</li>
|
||||
<li><p>Очереди, выполняемые на разных контекстах не могут эффективно взаимодействовать.</p>
|
||||
</li>
|
||||
</ul>
|
||||
<p>Эти проблемы решают <code>Wait</code>-очереди:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
begin
|
||||
var M := new WaitMarker;
|
||||
|
||||
var t := Context.Default.BeginInvoke(
|
||||
HPQ(()->Writeln('Начало .BeginInvoke')) +
|
||||
WaitFor(M) +
|
||||
HPQ(()->Writeln('Конец .BeginInvoke'))
|
||||
);
|
||||
|
||||
Sleep(2000);
|
||||
Writeln('Посылаем сигнал маркера M');
|
||||
M.SendSignal;
|
||||
|
||||
t.Wait;
|
||||
end.
|
||||
</code></pre>
|
||||
<p><code>WaitFor(M)</code> создаёт очень простую <code>Wait</code>-очередь.</p>
|
||||
<p>Внутри вызова <code>.BeginInvoke</code> (до его завершения) эта очередь
|
||||
входит в режим ожидания сигналов от маркера <code>M</code>.<br />
|
||||
В этом режиме она <strong>Не</strong> тратит время процессора, но готова возобновить выполнение в любой момент.</p>
|
||||
<p>Далее, вызов <code>M.SendSignal</code> посылает сигнал всем <code>Wait</code> очередям,
|
||||
которые в данный момент находятся в режиме ожидания маркера <code>M</code>.</p>
|
||||
<p><code>WaitMarker</code>, так же, является своеобразной очередью, то есть
|
||||
его можно складывать с другими очередями и передавать в <code>.BeginInvoke</code></p>
|
||||
<p>При выполнении в качестве очереди маркер вызывает свой метод <code>.SendSignal</code> и сразу возвращает <code>object(nil)</code>.<br />
|
||||
То есть как очередь он равноценен <code>HPQ(M.SendSignal)</code>, но немного более эффективен.</p>
|
||||
<p>Но стоит так же сказать, прямой вызов <code>M.SendSignal</code> всё равно всегда эффективнее чем <code>Context.Default.SyncInvoke(M)</code>.<br />
|
||||
Используйте выполнение маркеров внутри <code>.BeginInvoke</code> только если вам надо активировать его сразу после других очередей:</p>
|
||||
<pre><code> var M := new WaitMarker;
|
||||
|
||||
Context.Default.SyncInvoke(
|
||||
HFQ(()->5) + M
|
||||
);
|
||||
</code></pre>
|
||||
<p>Но в этом же коде видно ещё одну проблему - сложение очередей возвращает последний результат,
|
||||
то есть результат маркера (который <code>object(nil)</code>).</p>
|
||||
<p>Если нужно иметь сразу и маркер и возвращаемое значение предыдущей очереди,
|
||||
можно создать псевдо-маркер методом <code>.ThenWaitMarker</code>:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
begin
|
||||
var Q := HFQ(()->5).ThenWaitMarker;
|
||||
|
||||
var t := Context.Default.BeginInvoke( WaitFor(Q) );
|
||||
Context.Default.SyncInvoke( Q ).Println;
|
||||
|
||||
t.Wait;
|
||||
end.
|
||||
</code></pre>
|
||||
<p>Псевдо-маркеры разлагаются в настоящие маркеры при передаче в <code>Wait</code> очереди,
|
||||
но при этом сохраняют результат оригинальной очереди при выполнении в <code>.BeginInvoke</code>.</p>
|
||||
<p>Точнее <code>Q</code> в последнем коде сначала выполнит <code>HFQ</code>, затем пошлёт сигнал в
|
||||
<code>Wait</code> очередь <code>WaitFor(Q)</code> и в конце вернёт то, что вернула <code>HFQ</code>.</p>
|
||||
<hr />
|
||||
<p>Есть всего 3 группы подпрограмм, создающих <code>Wait</code> очереди:</p>
|
||||
<ol>
|
||||
<li><p>Глобальные, <code>WaitFor*</code>:<br />
|
||||
Ничего не делают сами, но блокируют выполнение пока указанные очереди не выполнятся.</p>
|
||||
Ничего не делают сами, но блокируют выполнение ожидая сигналов указанных маркеров.</p>
|
||||
</li>
|
||||
<li><p>Особые методы <code>.Add*</code> - <code>.AddWait*</code>:<br />
|
||||
Как и <code>.AddQueue</code> и <code>.AddProc</code>, <code>.AddWait(...)</code> это всего лишь аналог
|
||||
<code>.AddQueue(WaitFor(...))</code>, существующий только ради простоты кода.</p>
|
||||
</li>
|
||||
<li><p>Методы очередей, <code>.ThenWaitFor*</code>:<br />
|
||||
Так же не имеет незаменимых применений, но ещё полезнее.<br />
|
||||
<code>Q.ThenWaitFor(...)</code> работает как <code>Q + WaitFor(...)</code>, за исключением того, что возвращает результат <code>Q</code>.<br />
|
||||
То есть, правильнее будет:</p>
|
||||
<pre><code>var Qs := Q.Multiusable;
|
||||
Result := Qs() + WaitFor(...) + Qs();
|
||||
</code></pre>
|
||||
<p>Но это уже даже в одну строчку не напишешь.</p>
|
||||
Как и <code>.ThenWaitMarker</code>, сначала выполняет исходную очередь, потом ожидает и в конце возвращает результат исходной очереди.</p>
|
||||
</li>
|
||||
</ol>
|
||||
<p>В каждой из групп Wait очередей - <code>*</code> можно заменить:</p>
|
||||
<p>В каждой из групп <code>Wait</code> очередей <code>*</code> можно заменить:</p>
|
||||
<ol>
|
||||
<li>Ничем: Ожидание одной очереди.</li>
|
||||
<li>На <code>All</code>: Ожидание всех указанных очередей.</li>
|
||||
<li>На <code>Any</code>: Ожидание любой из указанных очередей (какая раньше выполнится).</li>
|
||||
</ol>
|
||||
<p>То есть, к примеру, <code>WaitForAny</code> создаёт очередь, которая сама ничего не выполняет, но ожидает выполнения любой из указанных очередей.</p>
|
||||
<p>То есть, к примеру, <code>WaitForAny</code> создаёт <code>Wait</code> очередь, которая сама ничего не выполняет, но ожидает сигнала от любого из указанных маркеров.</p>
|
||||
<hr />
|
||||
<p><code>Wait</code> очереди делают реализацию некоторых сложных деревьев выполнения очередей возможными.<br />
|
||||
Примеры можно найти в папке <code>PABCWork.NET\Samples\OpenCLABC\Wait очереди</code>.</p>
|
||||
<p>Но они наиболее полезны благодаря одному особенному свойству:<br />
|
||||
<code>Wait</code> очереди работают даже между вызовами <code>Context.BeginInvoke</code>, в отличии от всего остального в <code>OpenCLABC</code>.</p>
|
||||
<h3><code>Wait</code> очереди между вызовами <code>Context.BeginInvoke</code></h3>
|
||||
<p><code>Wait</code> очереди работают даже между вызовами <code>Context.BeginInvoke</code>, в отличии от всего остального в <code>OpenCLABC</code>.</p>
|
||||
<p>Это не всегда безопастно:</p>
|
||||
<pre><code>Context.Default.BeginInvoke(Q1);
|
||||
Context.Default.BeginInvoke(WaitFor(Q1) + Q2);
|
||||
</code></pre>
|
||||
<p>Проблема этого кода в том, что <code>Q1</code> может закончить выполняться ещё до того как <code>WaitFor(Q1)</code> начнёт ожидать.</p>
|
||||
<p>Чтоб такое не происходило - надо всегда запускать ожидающую очередь раньше ожидаемой:</p>
|
||||
<p>Проблема этого кода в том, что <code>Q1</code> может послать сигнал ещё до того как <code>WaitFor(Q1)</code> начнёт ждать.</p>
|
||||
<p>Чтоб такое не происходило - надо всегда запускать <code>Wait</code> очередь раньше маркера:</p>
|
||||
<pre><code>Context.Default.BeginInvoke(WaitFor(Q1) + Q2);
|
||||
Context.Default.BeginInvoke(Q1);
|
||||
</code></pre>
|
||||
<p>Но, как всегда, лучше, по возможности, объединять вызовы <code>Context.BeginInvoke</code>:</p>
|
||||
<p>Но, как всегда, лучше объединять вызовы <code>Context.BeginInvoke</code>:</p>
|
||||
<pre><code>Context.Default.BeginInvoke(
|
||||
( Q1 ) *
|
||||
( WaitFor(Q1) + Q2 )
|
||||
);
|
||||
</code></pre>
|
||||
<p>Все ожидающие очереди начинают ожидать в самом начале вызова <code>Context.BeginInvoke</code>, перед тем как очередь начнёт выполнятся.
|
||||
Поэтому если ожидающая и ожидаемая очереди находятся в общем <code>Context.BeginInvoke</code> - о их порядке можно не волноваться.</p>
|
||||
<p>Все <code>Wait</code> очереди начинают ждать в самом начале вызова <code>Context.BeginInvoke</code>, перед началом выполнения очереди.
|
||||
Поэтому если <code>Wait</code> очередь и маркер находятся в общем <code>Context.BeginInvoke</code> - маркер никогда не активируется.</p>
|
||||
<hr />
|
||||
<h3>Множественное ожидание несколько раз выполнившейся очереди</h3>
|
||||
<p>Когда начинает выполняться <code>Context.BeginInvoke</code> - для каждой ожидающей очереди в соответствующей
|
||||
ожидаемой очереди создаётся новый счётчик для того, сколько раз ожидаемая очередь была выполнена.</p>
|
||||
<h3>Множественное ожидание одних и тех же маркеров</h3>
|
||||
<p>Когда начинает выполняться <code>Context.BeginInvoke</code> - для каждой <code>Wait</code> очереди в соответствующем маркере
|
||||
создаётся новый счётчик для того, сколько раз маркер был активирован.</p>
|
||||
<p>Поэтому можно делать так:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
begin
|
||||
var Q1 := HPQ(()->
|
||||
begin
|
||||
Sleep(1000);
|
||||
Sleep(10);
|
||||
lock output do Writeln('Выполнилась Q1');
|
||||
end);
|
||||
end).ThenWaitMarker;
|
||||
|
||||
var Q2 := HPQ(()->lock output do Writeln('Выполнилась Q2'));
|
||||
var Q3 := HPQ(()->lock output do Writeln('Выполнилась Q3'));
|
||||
|
|
@ -1846,9 +1906,9 @@ end.
|
|||
begin
|
||||
var Q1 := HPQ(()->
|
||||
begin
|
||||
Sleep(1000);
|
||||
Sleep(10);
|
||||
lock output do Writeln('Выполнилась Q1');
|
||||
end);
|
||||
end).ThenWaitMarker;
|
||||
|
||||
var Q2 := HPQ(()->lock output do Writeln('Выполнилась Q2'));
|
||||
var Q3 := HPQ(()->lock output do Writeln('Выполнилась Q3'));
|
||||
|
|
@ -1861,13 +1921,13 @@ begin
|
|||
|
||||
end.
|
||||
</code></pre>
|
||||
<p>Каждое окончание выполнения <code>Q1</code> добавляет 1 в счётчик внутри <code>Q1</code>.<br />
|
||||
Каждое окончание ожидания <code>WaitFor(Q1)</code> отнимание 1 от того же счётчика.</p>
|
||||
<p>Каждое окончание выполнения <code>Q1</code> добавляет 1 в счётчик внутри маркера.<br />
|
||||
Каждое окончание ожидания <code>WaitFor(Q1)</code> отнимает 1 от того же счётчика.</p>
|
||||
<p>Будьте осторожны, лишняя <code>Wait</code> очередь вызовет зависание:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
begin
|
||||
var Q1 := HFQ(()->0);
|
||||
var Q1 := HFQ(()->0).ThenWaitMarker;
|
||||
|
||||
var t1 := Context.Default.BeginInvoke(
|
||||
WaitFor(Q1) +
|
||||
|
|
@ -1879,7 +1939,7 @@ begin
|
|||
end.
|
||||
</code></pre>
|
||||
<hr />
|
||||
<p>Cчётчик создаётся для каждой пары [ожидаемой очереди] и [вызова <code>Context.BeginInvoke</code> с ожидающей очередью].
|
||||
<p>Cчётчик создаётся для каждой пары [маркера] и [вызова <code>Context.BeginInvoke</code> с <code>Wait</code> очередью].
|
||||
То есть это тоже сработает:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
|
|
@ -1888,7 +1948,7 @@ begin
|
|||
begin
|
||||
Sleep(1000);
|
||||
lock output do Writeln('Выполнилась Q1');
|
||||
end);
|
||||
end).ThenWaitMarker;
|
||||
|
||||
var Q2 := HPQ(()->lock output do Writeln('Выполнилась Q2'));
|
||||
var Q3 := HPQ(()->lock output do Writeln('Выполнилась Q3'));
|
||||
|
|
@ -1904,14 +1964,14 @@ begin
|
|||
( WaitFor(Q1)+Q4 ) *
|
||||
( WaitFor(Q1)+Q5 )
|
||||
);
|
||||
// Каждый вызов Q1 тут - активирует по 1 WaitFor(Q1) в каждом CLTask
|
||||
// Каждый вызов Q1 тут - активирует по одному WaitFor(Q1) в каждом .BeginInvoke
|
||||
Context.Default.SyncInvoke(Q1+Q1);
|
||||
|
||||
t1.Wait;
|
||||
t2.Wait;
|
||||
end.
|
||||
</code></pre>
|
||||
<p>Но каждый <code>Context.BeginInvoke</code> для ожидаемой очереди - добавляет в уже существующий счётчик:</p>
|
||||
<p>Но каждая активация маркера добавляет 1 в уже существующий счётчик:</p>
|
||||
<pre><code>uses OpenCLABC;
|
||||
|
||||
begin
|
||||
|
|
@ -1919,21 +1979,20 @@ begin
|
|||
begin
|
||||
Sleep(1000);
|
||||
lock output do Writeln('Выполнилась Q1');
|
||||
end);
|
||||
end).ThenWaitMarker;
|
||||
|
||||
var Q2 := HPQ(()->lock output do Writeln('Выполнилась Q2'));
|
||||
var Q3 := HPQ(()->lock output do Writeln('Выполнилась Q3'));
|
||||
var Q4 := HPQ(()->lock output do Writeln('Выполнилась Q4'));
|
||||
|
||||
var t1 := Context.Default.BeginInvoke(
|
||||
var t := Context.Default.BeginInvoke(
|
||||
( WaitFor(Q1)+Q3 ) *
|
||||
( WaitFor(Q1)+Q4 )
|
||||
);
|
||||
var t2 := Context.Default.BeginInvoke(WaitFor(Q1)+Q2+Q1);
|
||||
Q1.SendSignal;
|
||||
Context.Default.SyncInvoke(Q1);
|
||||
|
||||
t1.Wait;
|
||||
t2.Wait;
|
||||
t.Wait;
|
||||
end.
|
||||
</code></pre>
|
||||
</div>
|
||||
|
|
|
|||
|
|
@ -13,8 +13,8 @@
|
|||
RobotTaskMaker, RobotZadan, Sockets, Utils, VCL, Timers, PT4Exam, PT4TaskMakerNET, RBDMUtils,
|
||||
Collections, Arrays, Core, FormsABC, MPI, ClientServer, Speech, Sounds, Countries,
|
||||
ABCDatabases,PT4Databases,BlockFileOfT,Controls,
|
||||
OpenCLABC, OpenCL, OpenCLABCBase,
|
||||
OpenGLABC, OpenGL, OpenGLABCBase,
|
||||
OpenCLABC, OpenCL,
|
||||
OpenGLABC, OpenGL,
|
||||
BBCMicroBit, School, SF, TwoPanelsWindow, NUnitABC
|
||||
;
|
||||
|
||||
|
|
|
|||
|
|
@ -130,10 +130,8 @@
|
|||
File ..\bin\Lib\Sounds.pcu
|
||||
File ..\bin\Lib\BlockFileOfT.pcu
|
||||
File ..\bin\Lib\OpenCL.pcu
|
||||
File ..\bin\Lib\OpenCLABCBase.pcu
|
||||
File ..\bin\Lib\OpenCLABC.pcu
|
||||
File ..\bin\Lib\OpenGL.pcu
|
||||
File ..\bin\Lib\OpenGLABCBase.pcu
|
||||
File ..\bin\Lib\OpenGLABC.pcu
|
||||
File ..\bin\Lib\School.pcu
|
||||
File ..\bin\Lib\SF.pcu
|
||||
|
|
@ -204,10 +202,8 @@
|
|||
${AddFile} "Sounds.pcu"
|
||||
${AddFile} "BlockFileOfT.pcu"
|
||||
${AddFile} "OpenCL.pcu"
|
||||
${AddFile} "OpenCLABCBase.pas"
|
||||
${AddFile} "OpenCLABC.pcu"
|
||||
${AddFile} "OpenGL.pcu"
|
||||
${AddFile} "OpenGLABCBase.pas"
|
||||
${AddFile} "OpenGLABC.pcu"
|
||||
${AddFile} "School.pcu"
|
||||
${AddFile} "SF.pcu"
|
||||
|
|
@ -294,10 +290,8 @@
|
|||
File ..\bin\Lib\Sounds.pas
|
||||
File ..\bin\Lib\BlockFileOfT.pas
|
||||
File ..\bin\Lib\OpenCL.pas
|
||||
File ..\bin\Lib\OpenCLABCBase.pas
|
||||
File ..\bin\Lib\OpenCLABC.pas
|
||||
File ..\bin\Lib\OpenGL.pas
|
||||
File ..\bin\Lib\OpenGLABCBase.pas
|
||||
File ..\bin\Lib\OpenGLABC.pas
|
||||
File ..\bin\Lib\School.pas
|
||||
File ..\bin\Lib\SF.pas
|
||||
|
|
@ -364,10 +358,8 @@
|
|||
${AddFile} "Sounds.pas"
|
||||
${AddFile} "BlockFileOfT.pas"
|
||||
${AddFile} "OpenCL.pas"
|
||||
${AddFile} "OpenCLABCBase.pas"
|
||||
${AddFile} "OpenCLABC.pas"
|
||||
${AddFile} "OpenGL.pas"
|
||||
${AddFile} "OpenGLABCBase.pas"
|
||||
${AddFile} "OpenGLABC.pas"
|
||||
${AddFile} "School.pas"
|
||||
${AddFile} "SF.pas"
|
||||
|
|
|
|||
|
|
@ -1500,6 +1500,10 @@ type
|
|||
public static property PIPE_FULL_INTEL: ErrorCode read new ErrorCode(-1106);
|
||||
public static property PIPE_EMPTY_INTEL: ErrorCode read new ErrorCode(-1107);
|
||||
public static property CONTEXT_TERMINATED_KHR: ErrorCode read new ErrorCode(-1121);
|
||||
public static property ERROR_RESERVED0_IMG: ErrorCode read new ErrorCode(-1122);
|
||||
public static property ERROR_RESERVED1_IMG: ErrorCode read new ErrorCode(-1123);
|
||||
public static property ERROR_RESERVED2_IMG: ErrorCode read new ErrorCode(-1124);
|
||||
public static property ERROR_RESERVED3_IMG: ErrorCode read new ErrorCode(-1125);
|
||||
public static property NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE: ErrorCode read new ErrorCode(-9999);
|
||||
|
||||
public function ToString: string; override;
|
||||
|
|
@ -1601,6 +1605,10 @@ 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(-1122) then Result := 'ERROR_RESERVED0_IMG' else
|
||||
if self.val = Int32(-1123) then Result := 'ERROR_RESERVED1_IMG' else
|
||||
if self.val = Int32(-1124) then Result := 'ERROR_RESERVED2_IMG' else
|
||||
if self.val = Int32(-1125) then Result := 'ERROR_RESERVED3_IMG' else
|
||||
if self.val = Int32(-9999) then Result := 'NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE' else
|
||||
Result := $'ErrorCode[{self.val}]';
|
||||
end;
|
||||
|
|
@ -2007,6 +2015,20 @@ type
|
|||
|
||||
end;
|
||||
|
||||
LayerInfo = record
|
||||
public val: UInt32;
|
||||
public constructor(val: UInt32) := self.val := val;
|
||||
|
||||
public static property LAYER_API_VERSION: LayerInfo read new LayerInfo($4240);
|
||||
|
||||
public function ToString: string; override;
|
||||
begin
|
||||
if self.val = UInt32($4240) then Result := 'LAYER_API_VERSION' else
|
||||
Result := $'LayerInfo[{self.val}]';
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
MapFlags = record
|
||||
public val: UInt64;
|
||||
public constructor(val: UInt64) := self.val := val;
|
||||
|
|
@ -7132,13 +7154,13 @@ type
|
|||
external 'opencl.dll' name 'clGetProgramInfo';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode :=
|
||||
z_GetProgramInfo_ovr_5(&program, param_name, param_value_size, param_value, param_value_size_ret);
|
||||
private static function z_GetProgramInfo_ovr_6(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
|
||||
private static function z_GetProgramInfo_ovr_6(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetProgramInfo';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
|
||||
z_GetProgramInfo_ovr_6(&program, param_name, param_value_size, param_value, param_value_size_ret);
|
||||
private static function z_GetProgramInfo_ovr_7(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
|
||||
private static function z_GetProgramInfo_ovr_7(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetProgramInfo';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
|
||||
z_GetProgramInfo_ovr_7(&program, param_name, param_value_size, param_value, param_value_size_ret);
|
||||
private static function z_GetProgramInfo_ovr_8(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: UIntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetProgramInfo';
|
||||
|
|
@ -9880,6 +9902,83 @@ type
|
|||
|
||||
end;
|
||||
|
||||
[PCUNotRestore]
|
||||
[System.Security.SuppressUnmanagedCodeSecurity]
|
||||
clLoaderLayers = static class
|
||||
public const _ExtStr = 'loader_layers';
|
||||
|
||||
private static function z_GetLayerInfo_ovr_0(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetLayerInfo';
|
||||
private static function z_GetLayerInfo_ovr_0_anh00001(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetLayerInfo';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; 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_GetLayerInfo_ovr_0(param_value_size, param_name, param_value, param_value_size_ret[0]) else
|
||||
z_GetLayerInfo_ovr_0_anh00001(param_value_size, param_name, param_value, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
|
||||
z_GetLayerInfo_ovr_0(param_value_size, param_name, param_value, param_value_size_ret);
|
||||
private static function z_GetLayerInfo_ovr_2(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clGetLayerInfo';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
|
||||
z_GetLayerInfo_ovr_2(param_value_size, param_name, param_value, param_value_size_ret);
|
||||
|
||||
private static function z_InitLayer_ovr_0(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; var layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
private static function z_InitLayer_ovr_0_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
private static function z_InitLayer_ovr_0_anh00001(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
private static function z_InitLayer_ovr_0_anh00011(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; layer_dispatch: array of IntPtr): ErrorCode :=
|
||||
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
|
||||
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
|
||||
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch[0]) else
|
||||
z_InitLayer_ovr_0_anh00001(num_entries, target_dispatch, num_entries_ret[0], IntPtr.Zero) else
|
||||
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
|
||||
z_InitLayer_ovr_0_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch[0]) else
|
||||
z_InitLayer_ovr_0_anh00011(num_entries, target_dispatch, IntPtr.Zero, IntPtr.Zero);
|
||||
private static function z_InitLayer_ovr_1_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; var layer_dispatch: IntPtr): ErrorCode :=
|
||||
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
|
||||
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch) else
|
||||
z_InitLayer_ovr_0_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch);
|
||||
private static function z_InitLayer_ovr_2(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: pointer): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
private static function z_InitLayer_ovr_2_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; layer_dispatch: pointer): ErrorCode :=
|
||||
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
|
||||
z_InitLayer_ovr_2(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch) else
|
||||
z_InitLayer_ovr_2_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch);
|
||||
private static function z_InitLayer_ovr_3_anh00001(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: array of IntPtr): ErrorCode :=
|
||||
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
|
||||
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret, layer_dispatch[0]) else
|
||||
z_InitLayer_ovr_0_anh00001(num_entries, target_dispatch, num_entries_ret, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; var layer_dispatch: IntPtr): ErrorCode :=
|
||||
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: pointer): ErrorCode :=
|
||||
z_InitLayer_ovr_2(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
|
||||
private static function z_InitLayer_ovr_6(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
private static function z_InitLayer_ovr_6_anh00001(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: array of IntPtr): ErrorCode :=
|
||||
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
|
||||
z_InitLayer_ovr_6(num_entries, target_dispatch, num_entries_ret, layer_dispatch[0]) else
|
||||
z_InitLayer_ovr_6_anh00001(num_entries, target_dispatch, num_entries_ret, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode :=
|
||||
z_InitLayer_ovr_6(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
|
||||
private static function z_InitLayer_ovr_8(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode;
|
||||
external 'opencl.dll' name 'clInitLayer';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode :=
|
||||
z_InitLayer_ovr_8(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
|
||||
|
||||
end;
|
||||
|
||||
[PCUNotRestore]
|
||||
[System.Security.SuppressUnmanagedCodeSecurity]
|
||||
clIlProgramKHR = static class
|
||||
|
|
@ -10890,15 +10989,123 @@ type
|
|||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SVMFreeARM(context: cl_context; svm_pointer: IntPtr) :=
|
||||
z_SVMFreeARM_ovr_0(context, svm_pointer);
|
||||
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, 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_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100011(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_1_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_1_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_1_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event) else
|
||||
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event) else
|
||||
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_2_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_3_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_3_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_4_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_5_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_6_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_7_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_8(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_8_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
|
||||
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_8(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_8_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
|
||||
|
|
@ -10906,42 +11113,82 @@ type
|
|||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_1_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_8(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_8(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_18(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
|
||||
if (&event<>nil) and (&event.Length<>0) then
|
||||
z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_18_anh000000011(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_19_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_20(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_20_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_20(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
|
||||
z_EnqueueSVMFreeARM_ovr_20_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_20(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_24(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
private static function z_EnqueueSVMFreeARM_ovr_24_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: 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_EnqueueSVMFreeARM_ovr_24(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
|
||||
z_EnqueueSVMFreeARM_ovr_24_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_24(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
private static function z_EnqueueSVMFreeARM_ovr_26(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
|
||||
z_EnqueueSVMFreeARM_ovr_26(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
|
||||
|
||||
private static function z_EnqueueSVMMemcpyARM_ovr_0(command_queue: cl_command_queue; blocking_copy: Bool; dst_ptr: IntPtr; src_ptr: IntPtr; size: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
|
||||
external 'opencl.dll' name 'clEnqueueSVMMemcpyARM';
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
File diff suppressed because it is too large
Load diff
|
|
@ -32390,13 +32390,13 @@ type
|
|||
|
||||
// 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32406,15 +32406,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32428,9 +32428,9 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32438,15 +32438,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32454,39 +32454,39 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32494,15 +32494,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32510,15 +32510,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32526,43 +32526,43 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXGetClientString';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetClientString(dpy: x_p_display; name: Int32): string;
|
||||
begin
|
||||
var res_str_ptr: IntPtr;
|
||||
|
|
@ -32572,9 +32572,9 @@ type
|
|||
|
||||
// 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32582,39 +32582,39 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32622,15 +32622,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32638,13 +32638,13 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXGetProcAddress';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(procName: string): IntPtr;
|
||||
begin
|
||||
var par_1_str_ptr: IntPtr;
|
||||
|
|
@ -32660,9 +32660,9 @@ type
|
|||
|
||||
// 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32670,39 +32670,39 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32710,15 +32710,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32726,19 +32726,19 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXQueryExtension';
|
||||
private static function z_QueryExtension_ovr_0_anh0011(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryExtension';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32748,15 +32748,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXQueryExtension';
|
||||
private static function z_QueryExtension_ovr_2_anh0010(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryExtension';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32770,9 +32770,9 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' name 'glXQueryExtension';
|
||||
private static function z_QueryExtension_ovr_6_anh0001(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryExtension';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32780,13 +32780,13 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXQueryExtensionsString';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtensionsString(dpy: x_p_display; screen: Int32): string;
|
||||
begin
|
||||
var res_str_ptr: IntPtr;
|
||||
|
|
@ -32796,7 +32796,7 @@ type
|
|||
|
||||
// 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';
|
||||
external 'libGL.so.1' name 'glXQueryServerString';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryServerString(dpy: x_p_display; screen: Int32; name: Int32): string;
|
||||
begin
|
||||
var res_str_ptr: IntPtr;
|
||||
|
|
@ -32806,13 +32806,13 @@ type
|
|||
|
||||
// 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXQueryVersion';
|
||||
private static function z_QueryVersion_ovr_0_anh0011(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryVersion';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32822,15 +32822,15 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXQueryVersion';
|
||||
private static function z_QueryVersion_ovr_2_anh0010(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryVersion';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32844,9 +32844,9 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' name 'glXQueryVersion';
|
||||
private static function z_QueryVersion_ovr_6_anh0001(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
|
||||
external 'opengl32.dll' name 'glXQueryVersion';
|
||||
external 'libGL.so.1' 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
|
||||
|
|
@ -32854,37 +32854,37 @@ type
|
|||
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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' 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';
|
||||
external 'libGL.so.1' name 'glXWaitX';
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure WaitX :=
|
||||
z_WaitX_ovr_0;
|
||||
|
||||
|
|
@ -58202,9 +58202,17 @@ type
|
|||
z_StencilThenCoverStrokePathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, transformValues);
|
||||
|
||||
private z_PathGlyphIndexRangeNV_adr := GetFuncAdr('glPathGlyphIndexRangeNV');
|
||||
private z_PathGlyphIndexRangeNV_ovr_0 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum :=
|
||||
private z_PathGlyphIndexRangeNV_ovr_0 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; var baseAndCount: UInt32): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
|
||||
private z_PathGlyphIndexRangeNV_ovr_0_anh0000001 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: array of UInt32): DummyEnum :=
|
||||
if (baseAndCount<>nil) and (baseAndCount.Length<>0) then
|
||||
z_PathGlyphIndexRangeNV_ovr_0(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount[0]) else
|
||||
z_PathGlyphIndexRangeNV_ovr_0_anh0000001(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, IntPtr.Zero);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; var baseAndCount: UInt32): DummyEnum :=
|
||||
z_PathGlyphIndexRangeNV_ovr_0(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount);
|
||||
private z_PathGlyphIndexRangeNV_ovr_2 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
|
||||
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum :=
|
||||
z_PathGlyphIndexRangeNV_ovr_2(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount);
|
||||
|
||||
private z_PathGlyphIndexArrayNV_adr := GetFuncAdr('glPathGlyphIndexArrayNV');
|
||||
private z_PathGlyphIndexArrayNV_ovr_0 := GetFuncOrNil&<function(firstPathName: UInt32; fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum>(z_PathGlyphIndexArrayNV_adr);
|
||||
|
|
|
|||
|
|
@ -6,7 +6,6 @@ unit OpenGLABC;
|
|||
interface
|
||||
|
||||
uses OpenGL;
|
||||
uses OpenGLABCBase;
|
||||
|
||||
implementation
|
||||
|
||||
|
|
|
|||
|
|
@ -1,4 +0,0 @@
|
|||
/// Модуль для внутренних типов модуля OpenGLABC
|
||||
unit OpenGLABCBase;
|
||||
|
||||
end.
|
||||
Loading…
Reference in a new issue