Mercurial > projects > ldc
annotate tests/mini/assign.d @ 583:12bda38ea366
Fixed choosing default target machine without needing to link in targets.
author | Tomas Lindquist Olsen <tomas.l.olsen@gmail.com> |
---|---|
date | Sun, 07 Sep 2008 17:44:25 -0700 |
parents | 1bb99290e03a |
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 } |