Передача структуры из блица

[wolfhound512]

Проблема с передачей структуры из блица
В decls функция объявлена так:

alGetEvent% (event__*) : "_GetEvent@4"

если в нее передать структуру, т.е. тип

Type MyTpye
...
End Type

t.MyTpye = new MyTpye
alGetEvent(t)

То все ок, но если туда передать пустой тип (Null) или ноль (0), то вылетает MAV
Причем MAV вылетает не со стороны функции alGetEvent, т.к. там этот указатель просто не используется, а именно со стороны блица.

Можно как-то решить эту проблему? Необходимо передать именно нулевой указатель.

[LLI.T.A.L.K.E.R.]

Покажи в dll исходник функции alGetEvent и что она и как передаёт обратно.

MAV вылетает именно со стороны блица.

Может Блитзу несуществующее данное выдаётся..

Или же тупо где-то float с integer перекосячились.

alGetEvent(t) передаст цифру (номер указателя) типа 38093845, т.е. t=38093845
а не структуру MyTpye (или это Handle() такое выдаёт?)

[Платон Александрович]

Сообщение от wolfhound512

если туда передать пустой тип (Null) или ноль (0), то вылетает MAV

Это баг компилятора, т.к. * - передача указателя на данные, в результате с Null получается такое:

sub esp, $00000004
mov eax, [_GetEvent@4]


mov ebx, $00000000
mov ebx, [ebx]

mov [esp], ebx
call eax

Сообщение от wolfhound512

Можно как-то решить эту проблему? Необходимо передать именно нулевой указатель.

Выделяешь экземпляр любого тайп (или создаешь банк на 4 байта) и по смещению 4 записываешь туда 0, естессно из библиотеки:

Local MyNull% = CreateBank ( 4 )

PokeI ( MyNull + 4, 0 )

где PokeI соответственно

void PokeI ( int * Address, int Value )
{
    *Address = Value;
}

.lib "..."
PokeI ( Address%, Value% )

ну или как-то по другому из своей библиотеки, смысл думаю понятен.

[Crayzi]

Сообщение от wolfhound512

Можно как-то решить эту проблему? Необходимо передать именно нулевой указатель.

Всмысле, тебе нужно передать ссылку на несуществующий тип?
Может ты имел ввиду чтобы когда случайно передают ссылку на несуществующий тип то небыло МАВ? Тогда If t<>null юзай...

[wolfhound512]

Платон, спасибо.
Сделал так:

Type sEvent
	Field object_
	Field type_%
End Type

Global sEvent_Null.sEvent = New sEvent
alPokeI( int(sEvent_Null), 0 ) ;[В типах указатель на данные лежит без смещения]

Function alGetEvent% (event__.sEvent)
	If (event__ = Null) Then event__ = sEvent_Null
	return alGetEvent_(event__)
End Function

[Платон Александрович]

Сообщение от wolfhound512

alPokeI( int(sEvent_Null), 0 )

Кстати хорошо что упомянул приведение к Int, есть полезный трюк - приведение к Int и сравнение с нулем намного быстрее чем прямое сравнение с Null (т.к. для универсальности используется отдельная функция сравнения экземпляров тайпа), разница видна невооруженным глазом:

If SomeObject = Null Then DoSomething

выхлоп:

sub esp, $00000008
mov eax, [SomeObject]
mov [esp], eax
mov [esp + 4], $00000000
call $00945D40 ; сравнение двух экземпляров, в данном случае с нулем
cmp eax, $00000000
jnz SkipDoSomething
    DoSomething
.SkipDoSomething

If Int( SomeObject ) = 0 Then DoSomething

выхлоп:

cmp [SomeObject], $00000000
jnz SkipDoSomething
    DoSomething
.SkipDoSomething

Блиц такой блиц