Don't save Common.pcu (for now)

SunSerega · Oct 17, 2023 · e61e2fe · e61e2fe
1 parent 50662ec
commit e61e2fe
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/Samples/OpenGLABC/Common.pas b/Samples/OpenGLABC/Common.pas
@@ -1,5 +1,12 @@
 unit Common;
 
+//TODO Костыль чтобы получать одинаковые .exe
+// - Сейчас компилятор загружает все перегрузки методов вроде gl.GetProgramInfoLog
+// - Но только при первой компиляции (когда Common.pcu не существует)
+// - Ему это нужно чтобы проверить, какая перегрузка подходит
+// - Но эти перегрузки сразу добавляет в .exe, даже если они не подходят
+{$savepcu false}
+
 uses System;
 uses OpenGL;
 

diff --git a/Samples/OpenGLABC/Точки на поле/Точки.td b/Samples/OpenGLABC/Точки на поле/Точки.td
@@ -20,13 +20,19 @@ OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program)
 OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; params: System.IntPtr)
 OpenGL.$delegate? = procedure(program: gl_program; pname: glProgramProperty; var params: integer)
 OpenGL.$delegate? = procedure(program: gl_program; shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader)
 OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; length: System.IntPtr; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; bufSize: integer; var length: integer; infoLog: System.IntPtr)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; string: Void*; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; length: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; count: integer; var string: System.IntPtr; var length: integer)
+OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; params: System.IntPtr)
 OpenGL.$delegate? = procedure(shader: gl_shader; pname: glShaderParameterName; var params: integer)
 OpenGL.$delegate? = procedure(target: glBufferTarget; index: longword; buffer: gl_buffer)
 OpenGL.$delegate? = procedure(x: integer; y: integer; width: integer; height: integer)