Mercurial > projects > ldc
annotate tests/mini/assign.d @ 1043:0485751a40ae
Fix bug in default implementation of ABIRewrite::getL.
author | Frits van Bommel <fvbommel wxs.nl> |
---|---|
date | Wed, 04 Mar 2009 23:06:23 +0100 |
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 } |