配列を返す関数を無理やり作ってみた

思いつきで作りました。ポインタを使ってます。

思いつきで作りました。ポインタを使ってます。

  • タグ:
  • タグはありません
// by akk026

#module

#defcfunc GetArray var count

	dim tmp, 4

	tmp.0 = 10
	tmp.1 = 20
	tmp.2 = 30
	tmp.3 = 40

	count = 4

	return varptr(tmp)

#global

pArray = GetArray(c)
dupptr array, pArray, 4 * c

mes array.0
mes array.1
mes array.2
mes array.3