ポインタとByRef引数

[hira]

コード: 全て選択

Sub test(ByRef l As LONG_PTR)
	l=&H12345678
End Sub

Dim a As *LONG_PTR
a=calloc(SizeOf(LONG_PTR))
test(a[0])
free(a)

こんなコードがtestを呼び出す行で「型が違う」といわれてコンパイルできません。
確認お願いします。[Ver 4.13.00]
※DWord型などではOK、VoidPtrなどはNG。

コード: 全て選択

Dim a As *LONG_PTR,b As LONG_PTR
a=calloc(SizeOf(LONG_PTR))
b=a[0]
free(a)

↑これは動いているようです。

[山本]

ご報告ありがとうございます。
AB Ver4.2を2006年始めにリリース予定ですので、型関係のコード整理はそのタイミングで行おうと思っています。

hiraさんにご指摘いただいた問題に関しては、こちらでも確認できましたので、Ver4.2まで、今しばらくお待ちください。

[hira]

ありがとうございます。
Ver 4.2に期待しています(^^