Mercurial > projects > ldc
annotate tests/mini/assign.d @ 1520:1a93c3da09ef
Yet another fix for finding llvm's config file.
Since llvm-config --includedir sometimes includes the trailing llvm/ and
sometimes it doesn't, we just check both directories.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Tue, 30 Jun 2009 22:07:50 +0200 |
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 } |