freepascal.ru

Есть такая функция:

Код: Выделить всё

function CreateTexture2D(Level, Components : GLint; TexWidth, TexHeight : GLsizei; Border : GLint; Format, Type: GLenum; PData : Pointer; TexID : GLuint = 0; GenerateMipMaps : GLboolean = false; MipMapMaxLevel : GLint = 1024) : GLuint;

Если я вторым параметром передаю результат другой функции (function ilGetInteger(Mode: TILenum): TILint; stdcall; external OPENILDLL;):

Код: Выделить всё

CreateTexture2D(0, ilGetInteger(IL_IMAGE_BYTES_PER_PIXEL), TexWidth, TexHeight, 0, ImgFormat, GL_UNSIGNED_BYTE, PImgData, 0, GenerateMipMaps, MipMapMaxLevel);

то внутри функции CreateTexture2D параметр TexHeight равен 0, а не реально предаваемому значению.

А если через переменную:

Код: Выделить всё

BPP := ilGetInteger(IL_IMAGE_BYTES_PER_PIXEL);
Result := CreateTexture2D(0, BPP, TexWidth, TexHeight, 0, ImgFormat, GL_UNSIGNED_BYTE, PImgData, 0, GenerateMipMaps, MipMapMaxLevel);


то все нормально передается.

Подскажите в чем дело?

Проверял выключеной оптимизацией?

А как сопоставимы типы GLint и TILint?

zub писал(а):Проверял выключеной оптимизацией?

Оптимизация не влияет.

vada писал(а):А как сопоставимы типы GLint и TILint?

Эквивалентны. А если бы отличались разве приведение типов не сработало бы? Передача параметра ведь по значению идет, не по сылке.

Добавлено спустя 1 минуту 8 секунд:
Работаю под Ubuntu на виртуалке. Если это имеет значение.

А значение TexWidth не портится?

vada писал(а):А значение TexWidth не портится?

Не портится.

А вот все параметры, которые идут после TexHeight сдвинуты, т.е. в Border приходит Format, в Format - Type, дальше видимо тоже самое, но типы уже другие, сложно проследить.

> function ilGetInteger(Mode: TILenum): TILint; stdcall;
> stdcall;
Попробуй cdecl.

stdcall задает соглашение вызова для ilGetInteger. И эта функция отрабатывает корректно. Так что не вижу смысла.

Вот правда сейчас подумал может FPC глючит из-за того, что у ilGetInteger и CreateTexture2D разные соглашения вызова?
Кстати какое соглашение вызова по умолчанию в FPC?

ya_vanka писал(а):Работаю под Ubuntu на виртуалке. Если это имеет значение.

64 бита?

Добавлено спустя 2 минуты 36 секунд:
sizeof GLint и TILint чему равны?

Ubuntu 12.04 32-bit
Host 64-bit (но вроде не важно)

GLint = Integer = TILint

ya_vanka писал(а):Ubuntu 12.04 32-bit
Host 64-bit (но вроде не важно)

GLint = Integer = TILint

чему конкретно равно sizeof

sizeOf(GLint) = 4

таки попробуй для ilGetInteger поставить cdecl а не stdcall, потому как не Винда у тебя

Да, действительно в этом было дело. Спасибо!

Правда, не до конца понятно почему функция ilGetInteger работает с неправильным соглашением вызова?
И почему возникла проблема при передаче параметра по значению, а не по ссылке?

Разница между cdecl и stdcall в том, что при возврате при cdecl указатель стека подстраивает вызывающая сторона, а при stdcall - вызываемая. Если их перепутать, эффекты проявляются только на вызывающей стороне, для вызваемой стороны ничего не изменяется.
Разницы между передачей по значению или ссылке тоже нет, в обоих случаях что-то записывается на стек: либо само значение, либо указатель на него.