Print Page - Converting Code

Title: Converting Code
Post by: teK on November 02, 2005, 01:06 PM

I'm have some problems converting this code to VB


DWORD dBitField = (DWORD)(*(unsigned __int64 *)(m_Data+pos/8)<<(64-len-(pos&7))>>(64-len));

Heres what I have so far..

Code Select


Dim dBitField As Long
    dBitField = LShift(m_Data + Pos / 8, 64 - Leng - Pos & 7)
    dBitField = RShift(dBitField, 64 - Leng)

This is what I do not understand.

Code Select


(DWORD)(*(unsigned __int64 *)

and 

pos&7

Can someone please explain to me what this code is doing?

Thanks.

Title: Re: Converting Code
Post by: UserLoser. on November 02, 2005, 03:20 PM

(*(unsigned __int64 *) is a C style typecast, basically changing m_Data+Pos/8...whatever to an unsigned __int64 (64 bit unsigned integer).
& is bitwise and operator. In VB you use And].

Title: Re: Converting Code
Post by: rabbit on November 02, 2005, 05:46 PM

(DWORD)(*(unsigned __int64 *) can safely be declared as Long in VB.

Title: Re: Converting Code
Post by: teK on November 02, 2005, 05:59 PM

Thanks for the help. :)

Valhalla Legends Archive

Programming => General Programming => C/C++ Programming => Topic started by: teK on November 02, 2005, 01:06 PM