OpenGrok

32 ishftc4 (GFC_INTEGER_4 i, GFC_INTEGER_4 shift, GFC_INTEGER_4 size)
36   if (shift < 0)
37     shift = shift + size;
39   if (shift == 0 || shift == size)
42   /* In C, the result of the shift operator is undefined if the right operand
49   return (i & ~mask) | ((bits << shift) & mask) | (bits >> (size - shift));
56 ishftc8 (GFC_INTEGER_8 i, GFC_INTEGER_4 shift, GFC_INTEGER_4 size)
60   if (shift < 0)
61     shift = shift + size;
63   if (shift == 0 || shift == size)
66   /* In C, the result of the shift operator is undefined if the right operand
73   return (i & ~mask) | ((bits << shift) & mask) | (bits >> (size - shift));
81 ishftc16 (GFC_INTEGER_16 i, GFC_INTEGER_4 shift, GFC_INTEGER_4 size)
85   if (shift < 0)
86     shift = shift + size;
88   if (shift == 0 || shift == size)
91   /* In C, the result of the shift operator is undefined if the right operand
98   return (i & ~mask) | ((bits << shift) & mask) | (bits >> (size - shift));

Indexes created Sun Apr 12 00:22:20 UTC 2026