[svn r291] Fixed a bunch of the old Phobos tests to work with Tango.

Branch statements now emit a new block after it.
Fixed the _adSort runtime function had a bad signature.
Added a missing dot prefix on compiler generated string tables for string switch.
Fixed, PTRSIZE seems like it was wrong on 64bit, now it definitely gets set properly.

dmd/mtype.c

@@ -223,16 +223,18 @@ void Type::init()
 
     tvoidptr = tvoid->pointerTo();
 
-    // set size_t / ptrdiff_t types
+    // set size_t / ptrdiff_t types and pointer size
     if (global.params.is64bit)
     {
     Tsize_t = Tuns64;
     Tptrdiff_t = Tint64;
+    PTRSIZE = 8;
     }
     else
     {
     Tsize_t = Tuns32;
     Tptrdiff_t = Tint32;
+    PTRSIZE = 4;
     }
 
     // set real size and padding

gen/statements.cpp

@@ -440,19 +440,26 @@ void BreakStatement::toIR(IRState* p)
             targetLoopStatement = tmp->statement;
 
         // find the right break block and jump there
+        bool found = false;
         IRState::LoopScopeVec::reverse_iterator it;
         for(it = p->loopbbs.rbegin(); it != p->loopbbs.rend(); ++it) {
             if(it->s == targetLoopStatement) {
                 llvm::BranchInst::Create(it->end, p->scopebb());
-                return;
+                found = true;
+                break;
             }
         }
-        assert(0);
+        assert(found);
     }
     else {
         emit_finallyblocks(p, enclosingtryfinally, p->loopbbs.back().enclosingtryfinally);
         llvm::BranchInst::Create(p->loopbbs.back().end, p->scopebb());
     }
+
+    // the break terminated this basicblock, start a new one
+    llvm::BasicBlock* oldend = gIR->scopeend();
+    llvm::BasicBlock* bb = llvm::BasicBlock::Create("afterbreak", p->topfunc(), oldend);
+    p->scope() = IRScope(bb,oldend);
 }
 
 //////////////////////////////////////////////////////////////////////////////
@@ -724,7 +731,7 @@ void SwitchStatement::toIR(IRState* p)
         const LLType* elemTy = DtoType(condition->type);
         const llvm::ArrayType* arrTy = llvm::ArrayType::get(elemTy, inits.size());
         LLConstant* arrInit = llvm::ConstantArray::get(arrTy, inits);
-        llvm::GlobalVariable* arr = new llvm::GlobalVariable(arrTy, true, llvm::GlobalValue::InternalLinkage, arrInit, "string_switch_table_data", gIR->module);
+        llvm::GlobalVariable* arr = new llvm::GlobalVariable(arrTy, true, llvm::GlobalValue::InternalLinkage, arrInit, ".string_switch_table_data", gIR->module);
 
         const LLType* elemPtrTy = getPtrToType(elemTy);
         LLConstant* arrPtr = llvm::ConstantExpr::getBitCast(arr, elemPtrTy);
@@ -739,7 +746,7 @@ void SwitchStatement::toIR(IRState* p)
         sinits.push_back(arrPtr);
         LLConstant* sInit = llvm::ConstantStruct::get(sTy, sinits);
 
-        switchTable = new llvm::GlobalVariable(sTy, true, llvm::GlobalValue::InternalLinkage, sInit, "string_switch_table", gIR->module);
+        switchTable = new llvm::GlobalVariable(sTy, true, llvm::GlobalValue::InternalLinkage, sInit, ".string_switch_table", gIR->module);
     }
 
     // body block

tango/lib/compiler/llvmdc/memory.d

@@ -47,7 +47,6 @@ private
         {
                 void* llvm_frameaddress(uint level=0);
         }
-        extern(C) int printf(char*, ...);
     }
 }
 
@@ -98,7 +97,11 @@ extern (C) void* rt_stackBottom()
  */
 extern (C) void* rt_stackTop()
 {
-    version( D_InlineAsm_X86 )
+    version(LLVMDC)
+    {
+        return llvm_frameaddress();
+    }
+    else version( D_InlineAsm_X86 )
     {
         asm
         {
@@ -107,10 +110,6 @@ extern (C) void* rt_stackTop()
             ret;
         }
     }
-    else version(LLVMDC)
-    {
-        return llvm_frameaddress();
-    }
     else
     {
             static assert( false, "Architecture not supported." );

tango/lib/compiler/llvmdc/qsort2.d

@@ -30,14 +30,14 @@ extern (C) int cmp(void* p1, void* p2)
     return tiglobal.compare(p1, p2);
 }
 
-extern (C) long _adSort(Array a, TypeInfo ti)
+extern (C) Array _adSort(Array a, TypeInfo ti)
 {
     synchronized
     {
         tiglobal = ti;
         tango.stdc.stdlib.qsort(a.ptr, a.length, cast(size_t)ti.tsize(), &cmp);
     }
-    return *cast(long*)(&a);
+    return a;
 }
 
 

test/a.d

@@ -1,5 +1,7 @@
 module a;
 
+extern(C) int printf(char*, ...);
+
 int i = 42;
 
 void main()

test/aa3.d

@@ -1,5 +1,8 @@
 module aa3;
 
+extern(C) int printf(char*, ...);
+alias char[] string;
+
 void main()
 {
     int[string] aa;

test/aa6.d

@@ -1,5 +1,7 @@
 module aa6;
 
+extern(C) int printf(char*, ...);
+
 void main()
 {
     int[int] aa;

test/alloca1.d

@@ -3,6 +3,8 @@ module alloca1;
 pragma(LLVM_internal, "alloca")
 void* alloca(uint);
 
+extern(C) int printf(char*, ...);
+
 void main()
 {
     int n = 16;

test/b.d

@@ -1,5 +1,7 @@
 module b;
 
+extern(C) int printf(char*, ...);
+
 struct S
 {
     int i;

test/bitops.d

@@ -1,3 +1,6 @@
+
+extern(C) int printf(char*, ...);
+
 void main()
 {
     printf("Bitwise operations test\n");

test/bug10.d

@@ -1,5 +1,6 @@
 module bug10;
-import std.stdio;
+extern(C) int printf(char*, ...);
+
 class C
 {
     char[] msg;

test/bug12.d

@@ -2,5 +2,5 @@ module bug12;
 
 void main()
 {
-    const string name="y";
+    const char[] name="y";
 }

test/bug20.d

@@ -1,4 +1,5 @@
 module bug20;
+extern(C) int printf(char*, ...);
 
 void func(void delegate() dg)
 {

test/bug21.d

@@ -1,4 +1,5 @@
 module bug21;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug22.d

@@ -1,4 +1,5 @@
 module bug22;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug23.d

@@ -1,4 +1,6 @@
 module bug23;
+extern(C) int printf(char*, ...);
+
 void main()
 {
     int i;

test/bug24.d

@@ -1,4 +1,5 @@
 module bug24;
+extern(C) int printf(char*, ...);
 
 struct S
 {

test/bug25.d

@@ -1,4 +1,5 @@
 module bug25;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug29.d

@@ -1,4 +1,5 @@
 module bug29;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug32.d

@@ -1,4 +1,5 @@
 module bug32;
+extern(C) int printf(char*, ...);
 
 struct S
 {

test/bug50.d

@@ -1,4 +1,5 @@
 module bug50;
+extern(C) int printf(char*, ...);
 
 pragma(LLVM_internal, "notypeinfo")
 struct S

test/bug55.d

@@ -1,4 +1,5 @@
 module bug55;
+extern(C) int printf(char*, ...);
 
 int atoi(char[] s) {
     int i, fac=1;

test/bug60.d

@@ -1,4 +1,6 @@
 module bug60;
+extern(C) int printf(char*, ...);
+
 void func(T...)(T t)
 {
     foreach(v;t) {

test/bug61.d

@@ -1,4 +1,5 @@
 module bug61;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug62.d

@@ -1,4 +1,5 @@
 module bug62;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug63.d

@@ -1,4 +1,5 @@
 module bug63;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug77.d

@@ -1,5 +1,5 @@
 module bug77;
-import std.c.string;
+import tango.stdc.string;
 void main()
 {
     size_t len;

test/bug80.d

@@ -1,4 +1,5 @@
 module bug80;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/bug9.d

@@ -1,4 +1,6 @@
 module bug9;
+extern(C) int printf(char*, ...);
+
 struct rgb
 {
   ubyte[3] values;

test/calls1.d

@@ -1,5 +1,5 @@
 module calls1;
-import std.stdarg;
+import tango.core.Vararg;
 void main()
 {
     {int a = byVal1(3);}

test/classes.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 class C
 {
     int i;

test/classes11.d

@@ -1,4 +1,5 @@
 module classes11;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/classes2.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 class A
 {
     int i;

test/classes4.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 class A
 {
     int i = 42;

test/classes5.d

@@ -1,4 +1,5 @@
 module classes5;
+extern(C) int printf(char*, ...);
 
 struct S
 {

test/classes6.d

@@ -1,4 +1,5 @@
 module classes6;
+extern(C) int printf(char*, ...);
 
 class C
 {

test/classinfo1.d

@@ -1,5 +1,7 @@
 module classinfo1;
 
+extern(C) int printf(char*, ...);
+
 class NoPtrs
 {
 }

test/cond.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 version=AndAnd;
 version=OrOr;
 

test/dgs.d

@@ -1,3 +1,6 @@
+
+extern(C) int printf(char*, ...);
+
 struct S
 {
     int i;

test/dotproduct.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 struct vec3
 {
     float x,y,z;

test/e.d

@@ -1,5 +1,7 @@
 module e;
 
+extern(C) int printf(char*, ...);
+
 struct C
 {
     float x=0,y=0;

test/floatcmp.d

@@ -1,4 +1,5 @@
 module floatcmp;
+extern(C) int printf(char*, ...);
 
 void eq()
 {

test/foreach1.d

@@ -1,17 +1,17 @@
 module foreach1;
-import std.stdio;
+extern(C) int printf(char*, ...);
 
 void main()
 {
     static arr = [1,2,3,4,5];
 
-    writef("forward");
+    printf("forward");
     foreach(v;arr) {
-        writef(' ',v);
+        printf(" %d",v);
     }
-    writef("\nreverse");
+    printf("\nreverse");
     foreach_reverse(v;arr) {
-        writef(' ',v);
+        printf(" %d",v);
     }
-    writef("\n");
+    printf("\n");
 }

test/foreach2.d

@@ -1,5 +1,5 @@
 module foreach2;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     static arr = [1.0, 2.0, 4.0, 8.0, 16.0];

test/foreach3.d

@@ -1,5 +1,5 @@
 module foreach3;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     static str = ['h','e','l','l','o'];

test/foreach4.d

@@ -1,5 +1,5 @@
 module foreach4;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     int[] arr = new int[4];

test/foreach5.d

@@ -1,5 +1,5 @@
 module foreach5;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     int[3] arr = [1,2,3];

test/funcptr.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 int return_six()
 {
     return 6;

test/funcs.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 void main()
 {
     printf("Testing functions\n");

test/g.d

@@ -1,5 +1,7 @@
 module g;
 
+extern(C) int printf(char*, ...);
+
 void func(char[] str)
 {
     printf("%.*s\n", str.length, str.ptr);

test/globals1.d

@@ -1,4 +1,5 @@
 module globals1;
+extern(C) int printf(char*, ...);
 
 char[] gstr = "hello world";
 

test/innerclass1.d

@@ -1,4 +1,5 @@
 module innerclass1;
+extern(C) int printf(char*, ...);
 
 class Outer
 {

test/mainargs1.d

@@ -2,7 +2,7 @@ module mainargs1;
 
 extern(C) int printf(char*,...);
 
-void main(string[] args)
+void main(char[][] args)
 {
     foreach(v; args)
     {

test/moduleinfo1.d

@@ -1,8 +1,5 @@
 module moduleinfo1;
 
-// has static this
-import std.outofmemory;
-
 static this()
 {
 }

test/moduleinfo2.d

@@ -1,12 +1,14 @@
 module moduleinfo2;
-import std.stdio;
+
+extern(C) int printf(char*, ...);
+
 void main()
 {
     ModuleInfo[] mi = ModuleInfo.modules();
-    writefln("listing ",mi.length," modules");
+    printf("listing %u modules:\n");
     foreach(m; mi)
     {
-        writefln("  ",m.name);
+        printf("  %s\n", m.name.length, m.name.ptr);
     }
     assert(mi.length > 50);
 }

test/multiarr4.d

@@ -1,4 +1,5 @@
 module multiarr4;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/nested5.d

@@ -1,4 +1,5 @@
 module nested5;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/nested6.d

@@ -1,4 +1,5 @@
 module nested6;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/nested7.d

@@ -1,4 +1,5 @@
 module nested7;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/nested8.d

@@ -1,4 +1,5 @@
 module nested8;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/nested9.d

@@ -1,4 +1,5 @@
 module nested9;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/pt.d

@@ -1,3 +1,6 @@
+
+extern(C) int printf(char*, ...);
+
 int main()
 {
     char[16] s = void;

test/ptrarith.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 void main()
 {
     printf("Pointer arithmetic test\n");

test/scope1.d

@@ -1,5 +1,5 @@
 module scope1;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     printf("1\n");

test/scope2.d

@@ -1,5 +1,5 @@
 module scope2;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     scope(exit) printf("exit\n");

test/scope3.d

@@ -1,5 +1,5 @@
 module scope3;
-
+extern(C) int printf(char*, ...);
 void main()
 {
     int i;

test/sieve.d

@@ -1,5 +1,7 @@
 /* Eratosthenes Sieve prime number calculation. */
 
+extern(C) int printf(char*, ...);
+
 bool flags[8191];
 
 int main()

test/sqrts.d

@@ -1,6 +1,6 @@
 module sqrts;
 
-import std.c.math;
+import tango.stdc.math;
 
 double sqrt(double d)
 {

test/static_ctor.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 static this()
 {
     printf("static this\n");

test/staticarrays.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 void numbers()
 {
     bool[8] bools;

test/strings1.d

@@ -1,5 +1,5 @@
 module strings1;
-
+extern(C) int printf(char*, ...);
 void f(char[11] buffer)
 {
     printf("%.*s\n", buffer.length, buffer.ptr);

test/switch2.d

@@ -1,4 +1,5 @@
 module switch2;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/switch3.d

@@ -1,4 +1,5 @@
 module switch3;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/typeinfo.d

@@ -1,4 +1,5 @@
 module typeinfo;
+extern(C) int printf(char*, ...);
 
 void main()
 {

test/typeinfo7.d

@@ -1,5 +1,5 @@
 module typeinfo7;
-
+extern(C) int printf(char*, ...);
 int func(long)
 {
     return 0;

test/typeinfo8.d

@@ -1,5 +1,5 @@
 module typeinfo8;
-
+extern(C) int printf(char*, ...);
 struct S
 {
     void func()

test/unrolled.d

@@ -1,5 +1,7 @@
 module unrolled;
 
+extern(C) int printf(char*, ...);
+
 void test(T...)(T t) {
     foreach (value; t) {
         printf("%d\n", value);

test/v2d.d

@@ -1,3 +1,5 @@
+extern(C) int printf(char*, ...);
+
 struct V2D(T)
 {
     T x,y;

test/vararg1.d

@@ -1,6 +1,6 @@
 module vararg1;
 
-import std.c.stdarg;
+import tango.stdc.stdarg;
 
 extern(C) int add(int n, ...)
 {

test/vararg3.d

@@ -1,6 +1,6 @@
 module vararg3;
 
-import std.stdarg;
+import tango.core.Vararg;
 
 void func(...)
 {

test/vararg4.d

@@ -1,5 +1,5 @@
 module vararg4;
-import std.stdarg;
+import tango.core.Vararg;
 
 void vafunc(...)
 {

test/vararg5.d

@@ -1,5 +1,5 @@
 module vararg5;
-import std.stdarg;
+import tango.core.Vararg;
 void func(...)
 {
     char[] str = va_arg!(char[])(_argptr);

test/virtcall.d

@@ -1,5 +1,7 @@
 module virtcall;
 
+extern(C) int printf(char*, ...);
+
 class C
 {
     override char[] toString()