Mercurial > projects > ldc
annotate test/assign.d @ 273:25fa34e899e9 trunk
[svn r294] Fixed some more of the old tests.
author | lindquist |
---|---|
date | Wed, 18 Jun 2008 23:29:14 +0200 |
parents | c53b6e3fe49a |
children |
rev | line source |
---|---|
1 | 1 module assign; |
2 | |
3 // this is taken from std.intrinsic from gdc | |
4 | |
5 int mybtc(uint *p, uint bitnum) | |
6 { | |
7 uint * q = p + (bitnum / (uint.sizeof*8)); | |
8 uint mask = 1 << (bitnum & ((uint.sizeof*8) - 1)); | |
9 int result = *q & mask; | |
10 *q ^= mask; | |
11 return result ? -1 : 0; | |
12 } | |
13 | |
14 void main() | |
15 { | |
16 uint i = 0xFFFF_FFFF; | |
17 int r = mybtc(&i, 31); | |
18 assert(r); | |
19 assert(i == 0x7FFF_FFFF); | |
20 r = mybtc(&i, 31); | |
21 assert(!r); | |
22 assert(i == 0xFFFF_FFFF); | |
23 } |