--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runtime/internal/llvmdc/bitmanip.d	Fri Aug 01 00:32:06 2008 +0200
@@ -0,0 +1,81 @@
+/*
+ * D phobos intrinsics for LLVMDC
+ *
+ * From GDC ... public domain!
+ */
+module llvmdc.bitmanip;
+
+// Check for the right compiler
+version(LLVMDC)
+{
+    // OK
+}
+else
+{
+    static assert(false, "This module is only valid for LLVMDC");
+}
+
+int bsf(uint v)
+{
+    uint m = 1;
+    uint i;
+    for (i = 0; i < 32; i++,m<<=1) {
+        if (v&m)
+        return i;
+    }
+    return i; // supposed to be undefined
+}
+
+int bsr(uint v)
+{
+    uint m = 0x80000000;
+    uint i;
+    for (i = 32; i ; i--,m>>>=1) {
+    if (v&m)
+        return i-1;
+    }
+    return i; // supposed to be undefined
+}
+
+int bt(uint *p, uint bitnum)
+{
+    return (p[bitnum / (uint.sizeof*8)] & (1<<(bitnum & ((uint.sizeof*8)-1)))) ? -1 : 0 ;
+}
+
+int btc(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;
+}
+
+int btr(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;
+}
+
+int bts(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;
+}
+
+pragma(intrinsic, "llvm.bswap.i32")
+    uint bswap(uint val);
+
+ubyte  inp(uint p) { return 0; }
+ushort inpw(uint p) { return 0; }
+uint   inpl(uint p) { return 0; }
+
+ubyte  outp(uint p, ubyte v) { return v; }
+ushort outpw(uint p, ushort v) { return v; }
+uint   outpl(uint p, uint v) { return v; }