ab.com コミュニティ

Ver.4.03でバグの修正を確認しました。おかげさまで、qwordのshift演算が可能になりました。ただいま、activebasicで256ビットの秘密鍵方式の暗号プログラムを開発中です。その中で、256ビット同志の掛け算が必要になり、dwordを用いた掛け算をqwordを用いた掛け算に代えたところ、掛け算の実行速度が２倍弱改善されました。ありがとうございました。

ご報告ありがとうございます。QWord型に対するシフト演算での符号処理にバグを確認できました。次回のバージョンアップで改良します。

Dim a As QWord, i As DWord
Dim QWArr(64) As QWord

a=&HFFFFFFFFFFFFFFFF
For i = 0 To 64
	QWArr(i) = a >> i
Next

Debug

H.K.さんのコードに少し変更を加えて、こちらでも検証しました。
[code]Dim a As QWord, i As DWord
Dim QWArr(64) As QWord

a=&HFFFFFFFFFFFFFFFF
For i = 0 To 64
QWArr(i) = a >> i
Next

Debug[/code]
ブレークポイントで配列の内容を表示したところ、すべての要素が&HFFFFFFFFFFFFFFFFとなっていることを確認しました。
シフト演算がうまく行われないようです。

次のプログラムでiが0から64まで常に-1が表示されます。qwordのバグではないでしょうか？
#console
dim a as qword,i as dword
for i=0 to 64
a=&HFFFFFFFFFFFFFFFF
a=a>>i
print a
Next
input a