HSPTV!掲示板

モジュール空間内の命令or関数ルーチンの中で、
引数にvar エイリアスを使用しているとします。

命令実行時に渡された変数を、任意のサイズで再確保したいのですが、
(Size>0の整数)
memexpand エイリアス,Size　はエラーを吐き、
sdim エイリアス,Size　は0byteになる？始末。

僕のプログラムのバグなのか、エイリアスを利用したメモリ操作に正規の手順があるのか、
どなたかご説明お願いします……!!

memexpandでエラーを吐く理由は

p1で指定される変数は、 文字列型(str)のように動的にメモリ確保量を変更することが可能な型である必要があります。

に抵触するからかなと推測しました。 なので、vartypeで変数型を見てから、配列を作りなおすように書いてみました。 「メモリ退避はしていない」ので、文字列以外では配列内データは消しますし、1次元配列しか想定していませんので。 //arrayじゃなくてvarでも動くけど……どっちのほうが正しいんだろうね？

#module
#deffunc reallocate array a,int size
	switch vartype(a)
	case 2
		memexpand a,size
		swbreak
	case 3
		ddim a,size
		swbreak
	case 4
		dim a,size
		swbreak
	swend
	return
#global
a=0
b=0.0
c=""
reallocate a,10
reallocate b,10
reallocate c,1024

あ、memexpendのエラーは自己解決しました。
対象の変数が整数型になっていました。



バイナリ操作をしたいのですが、どうにもこうにも……

memexpand エイリアス,strlen(b_data)
;sdim エイリアス,strlen(b_data)
mes strlen(b_data);debug
memcpy エイリアス,b_data,strlen(b_data)

これの実行結果がmemcpyの行でのバッファオーバーフローで、これを修正したいと思います。
b_dataの中身はバイナリデータでゴチャゴチャイジっていますがNullには気をつけています。
;debugの表示結果は0より大きい整数値です(125とか)。

ごめんなさい！
スレの質問内容は、僕の直面しているバグとは全く関係ありませんでした。
以下はまあ、参考程度に

#module
#deffunc test var p1
	sdim text,10
	text="0123456789"
	p1=""
	memexpand p1,strlen(text)
	memcpy p1,text,strlen(text)
return
#global

saramanda="golem"
test saramanda
mes saramanda