ab.com コミュニティ

ご報告ありがとうございます。
高信期さんにご指摘いただいた不具合は、こちらでも確認がとれましたので、次回のバージョンアップで修正させていただきます。今しばらくお待ちください。

#prompt
Dim A = &HFFFFFFFFFFFFFFFF As QWord, I As Long
Print GetQWord(VarPtr(A)) = VarPtr(A)
Print "リテラル値のシフト:", (&HFFFFFFFFFFFFFFFF >> 32)
Print "変数のシフト:",(A >> 32)
For I = 0 To 15
  A >>= 4
  Print I, ":", A, A And &HF
Next I

１．GetQWord関数の戻り値が引数と同値です。
２．リテラル値の&HFFFFFFFFFFFFFFFFを右シフトすることが出来ません。
３．QWord型変数の右シフト代入を繰り返し行う際、
　　合計ビットシフト数が32を超えると異常な値が代入されるようです。
ABver 4.24.00で確認しました。
お忙しいとは思いますが、以上の点の修正をお願いいたします。

[code]#prompt
Dim A = &HFFFFFFFFFFFFFFFF As QWord, I As Long
Print GetQWord(VarPtr(A)) = VarPtr(A)
Print "リテラル値のシフト:", (&HFFFFFFFFFFFFFFFF >> 32)
Print "変数のシフト:",(A >> 32)
For I = 0 To 15
A >>= 4
Print I, ":", A, A And &HF
Next I[/code]