При импорте через TLB некорректно обрабатывается [retval]

[tyomitch]

Хочу:

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

[
    dllname("MSVBVM60.DLL")
]
module msvbvm60 {

    [entry("GetMem4")]
    void Peek(
   [in] LONG Address,
   [out, retval] LONG* Value);

}


Но VB, зараза, кладёт в стек один параметр, и ждёт результат в eax.

Если объявить функцию как HRESULT вместо void, только тогда до VB допирает, что параметров два.

[tyomitch]

TLB, в которой [out, retval] struct * foo; -- валит среду VB замертво, даже при открытии Object Browser-а.
Эх.

[tyomitch]

Ещё среда VB валится замертво при попытке запуска или компиляции кода, в котором в операторе With используется функция, возвращающая IUnknown.

Кошмар, сколько там волчьих ям припасено любителям самописных TLB.

[Хакер]

Угу. А ещё [in] long foo и long *foo отображаются в Object Browser-е одинакого, как будто в обоих случаях аргумент ByRef-ный.

А по сабжу-... не знаю. Если это глупый баг, то возможно придётся смириться.

[tyomitch]

Угу. А ещё [in] long foo и long *foo отображаются в Object Browser-е одинакого, как будто в обоих случаях аргумент ByRef-ный.

Это не баг, а просто отсутствие фичи.

Ещё: я не понял, баг это или фича, но для [in, defaultvalue(NULL)] long *foo при опущенном параметре передаётся ноль по ссылке, вместо нулевой ссылки.

[keks-n]

tyomitch
Можно вопрос, а зачем With натравливать на IUnknown?

[tyomitch]

Случайно.
И я рассчитывал на ошибку компиляции, а не на моментальный всеразрушающий крэш.