Mercurial > projects > ldc
view test/assign.d @ 306:0baca2feb554 trunk
[svn r327] Fixed some more MinGW32 issues. It's now very close to working.
Fixed problems with inline asm like: mov EAX, FS:4 , which incidentally is used in the runtime to get the stack bottom, on Windows.
author | lindquist |
---|---|
date | Fri, 27 Jun 2008 23:58:22 +0200 |
parents | c53b6e3fe49a |
children |
line wrap: on
line source
module assign; // this is taken from std.intrinsic from gdc int mybtc(uint *p, uint bitnum) { uint * q = p + (bitnum / (uint.sizeof*8)); uint mask = 1 << (bitnum & ((uint.sizeof*8) - 1)); int result = *q & mask; *q ^= mask; return result ? -1 : 0; } void main() { uint i = 0xFFFF_FFFF; int r = mybtc(&i, 31); assert(r); assert(i == 0x7FFF_FFFF); r = mybtc(&i, 31); assert(!r); assert(i == 0xFFFF_FFFF); }