by 高信期 » 2006年4月14日(金) 23:52
1.GetQWord関数の戻り値が引数と同値です。
2.リテラル値の&HFFFFFFFFFFFFFFFFを右シフトすることが出来ません。
3.QWord型変数の右シフト代入を繰り返し行う際、
合計ビットシフト数が32を超えると異常な値が代入されるようです。
ABver 4.24.00で確認しました。
お忙しいとは思いますが、以上の点の修正をお願いいたします。
コード: 全て選択
#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
1.GetQWord関数の戻り値が引数と同値です。
2.リテラル値の&HFFFFFFFFFFFFFFFFを右シフトすることが出来ません。
3.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]