関数ポインタのバグ

[高信期]

コード: 全て選択

Function hogeFunc(ByRef A As Long) As Long
  Print Str$(A)
  hogeFunc = 1
End Function
Dim A As Long
Dim B As *Function(ByRef A As Long) As Long
B = AddressOf(hogeFunc)
B(A)

上記ののように針引数がポインタ参照の関数ポインタを使用するコードをコンパイルしようとすると、
「配列ポインタを引渡すときは、値参照（ByVal）にしてください」
とエラーメッセージが出ます。

[山本]

ご報告ありがとうございます。次回のバージョンアップで修正しますので、今しばらくお待ちください。