VB to C# convertion problem

[DragonLord]

The following line is giving me problems. The end result should be value = -1749281834 on the first pass, I am not sure how to convert this to c# seems the ways I have tried are really messing up and don't return the right values.

VB:

 
value = value Or ((lngSign < 0) And 1) Or (CBool(lngSign And &H40000000) And &H80000000)
 

value has a current value of : 1272842731 (before this line executes)
lngSign has a value of : 1073741824
&H40000000 is = 1073741824
&H80000000 is = -2147483648

original VB code:

 
Function LongLeftRotate(ByRef value As Integer, ByRef Bits As Integer) As Integer
        Dim lngSign, lngI As Integer
        Bits = Bits Mod 32
        If Bits = 0 Then LongLeftRotate = value : Exit Function
        For lngI = 1 To Bits
            lngSign = value And &HC0000000
            value = Int(value And &H3FFFFFFF) * 2
            value = value Or ((lngSign < 0) And 1) Or (CBool(lngSign And &H40000000) And &H80000000)
        Next 
        LongLeftRotate = value
    End Function
 

[Monomachus]

@DragonLord
Using Convert VB.NET to C# - A free code conversion tool

I have something like this:

public int LongLeftRotate(ref int value, ref int Bits)
        {
            int lngSign = 0;
            int lngI = 0;
            Bits = Bits % 32;
            if (Bits == 0) { return value; }
 
            for (lngI = 1; lngI <= Bits; lngI++)
            {
                lngSign = Convert.ToInt32(value & 0xc0000000);
                value = Convert.ToInt32(value & 0x3fffffff) * 2;
                value = value | ((lngSign < 0) && 1) | ((bool)lngSign & 0x40000000 & 0x80000000);
            }
 
            return value;
        }
 
 

[Plater]

Not quite sure what that line does, you apply a mask to a boolean value?

 
value = value | ((lngSign < 0) & 1) | (((bool)(lngSign & 0x40000000)) & 0x80000000) 
 
 

This will always produce a zero: (((bool)(lngSign & 0x40000000)) & 0x80000000)
VB really shouldn't even let you apply a bitmask to a boolean value, C# probably wouldn't

[DragonLord]

@Plater
yes exactly that is my problem it behaves differently in the VB than it does in the C#

i get zero all the time so it always uses the value...i need it to not do so.. i tried i the same thing that Monomachus suggested however i get errors that you can't cast type int to type bool and cannot apply '&&' operator to type int and bool

Anyone else have any suggestions.. I am trying to avoid using the visualbasic dll reference and convert the application fully to C# and so far this is the only line i can tell that is standing in my way.

[DragonLord]

The best guess that it is doing a bit shift to the left and rotate. This all new to me so I AM not sure if I an saying it right. Any
thoughts????

[Plater]

Hmm well it should always be zero in VB as well.

This operation:
lngSign And &H40000000
produces either a zero or 0x40000000
Converting that to a bool, should either produce a false(for zero) or true(for the other value i suppose)
Applying a mask of 0x80000000 after the fact is pointless even if you didn't cbool it.
0x80000000 & 0x40000000 will always produce a zero.

Now if the intent was to see it the 0x80000000 AND the 0x40000000 bit are set on the value of lngSign you could do this:
(lngSign & 0xC0000000)
//Which produces either a zero or 0xC0000000
//Which if you turn into a bool NOW its either true/false depending on if BOTH bits are set. Which is pobably what the VB is trying to do.
Something similar to this could be used
bool a =( (lngSign & 0xC0000000) >0);

[DragonLord]

Funny enough here is how i solved it today....

 
 private Int32 LongLeftRotate(ref Int32 value,int Bits)
        {
            long lngSign;
            long lngI;
            int temp;
            Bits %= 32;            
            if (Bits == 0)
            {
                return (value);
            }
 
            for (lngI = 1; lngI <= Bits; lngI++)
            {
                lngSign = value & -1073741824;
                value = (value & 0x3FFFFFFF)*2;
                temp = value;
                bool b;
                b = (lngSign < 0);
                int l;
                if (b == true)
                    l = 1;
                else
                    l = 0;
 
                if (lngSign < 0 && lngSign!= -1073741824)
                {
                    value = (value + l);
                }
                if (lngSign == 0x40000000)
                {
                    value = value + Int32.MinValue;
                }
                if (lngSign == -1073741824)
                {
                    value = value + Int32.MinValue +1;
                }
   //             MessageBox.Show(lngSign + "  " + temp + "  " + value);
              //  MessageBox.Show(value.ToString());
            }
            return (value);
 
 
 
        }
 
 

I have looped through this endlessly and it matches what the VB code is doing every time..... on to tackle the Chr() function lol....be posting for that shortly.