> *Functionの戻り値の挙動についてですが、こちらでもバグを確認できました。次回のバージョンアップで修正しますので、今しばらくお待ちください。
>
> 念のため、もしよろしければ、問題が起きるサンプルコードを提示していただけると助かります。
コード: 全て選択
#N88BASIC
' ↓ ここからプログラムが実行されます
Declare Function mmsystemGetVersion Lib "WINMM" () As DWord
Dim hDLL As HANDLE
Dim pFunc As *Function() As DWord
hDLL = LoadLibrary("winmm")
pFunc = GetProcAddress(hDLL,"mmsystemGetVersion")
Print mmsystemGetVersion()
Print pFunc()
FreeLibrary(hDLL)
こんな具合です。
P.S.
このバグは下記のようにするとうまく動きます。
コード: 全て選択
#N88BASIC
' ↓ ここからプログラムが実行されます
Declare Function mmsystemGetVersion Lib "WINMM" () As DWord
TypeDef PFUNC = *Function() As DWord
Dim hDLL As HANDLE
Dim pFunc As PFUNC
hDLL = LoadLibrary("winmm")
pFunc = GetProcAddress(hDLL,"mmsystemGetVersion")
Print mmsystemGetVersion()
Print pFunc()
FreeLibrary(hDLL)
teflon様の情報によると
下記のようなプログラムがコンパイルできないようです。
※TypeDefを通すとうまく動く
コード: 全て選択
Function Test(pp As *Function() As DWord)
If pp=0 Then Exit Function
Test = pp()
End Function
AB4.01
WindowsXP