ページ 1 / 1
QWord型が絡む(?)String型のアクセス違反
Posted: 2006年10月19日(木) 14:55
by hira
コード: 全て選択
Function Func(Num As QWord) As String
Func=Chr$((Num+96) As Byte)
End Function
Dim a As String
a=Func(1)
このコードで、string.sbpのAllocStringBuffer内でアクセス違反となってしまいます。
しかし、Funcの引数をDWordにした場合は期待通りの結果で正常終了します。
また、引数がQWordのままでも、Chr$関数の引数をキャストしない場合は(警告は出ますが)正しく動作しています。
ActiveBasic 5.00.00(CP3)で確認。調査をお願いします。
Posted: 2006年10月22日(日) 14:57
by たかせ
たかせです。
上記のソースで確認したらアクセス違反となってしまいます。
ちなみにキャストをかけなければ正常に終了しました
Func=Chr$((Num+96) As Byte)
↓
Func=Chr$((Num+96))
原因はよくわかりせんがとりあえずキャストをはずしてみてはいかがでしょうか?
追伸
Posted: 2006年10月22日(日) 14:59
by たかせ
たかせです。
ちなみにキャストをはずしても警告は出ませんでしたが?
Posted: 2006年10月22日(日) 21:05
by hira
すみません、#strictがあった場合の話です。>警告
ということで現状はキャストを外して回避しています。
Posted: 2006年10月26日(木) 17:59
by 山本
hira さんが書きました:コード: 全て選択
Function Func(Num As QWord) As String
Func=Chr$((Num+96) As Byte)
End Function
Dim a As String
a=Func(1)
このコードで、string.sbpのAllocStringBuffer内でアクセス違反となってしまいます。
しかし、Funcの引数をDWordにした場合は期待通りの結果で正常終了します。
また、引数がQWordのままでも、Chr$関数の引数をキャストしない場合は(警告は出ますが)正しく動作しています。
ActiveBasic 5.00.00(CP3)で確認。調査をお願いします。
ご報告ありがとうございます。
本来であればアクセス違反にならない処理において、hiraさんの仰る現象が確認できました。
次回のバージョンアップで修正しますので、今しばらくお待ちください。