Mercurial > projects > ldc
view test/vararg4.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 | 895e1b50cf2a |
children |
line wrap: on
line source
module vararg4; import tango.core.Vararg; extern(C) int printf(char*, ...); void vafunc(...) { foreach(i,v; _arguments) { if (typeid(byte) == v) { printf("byte(%d)\n", va_arg!(byte)(_argptr)); } else if (typeid(short) == v) { printf("short(%d)\n", va_arg!(short)(_argptr)); } else if (typeid(int) == v) { printf("int(%d)\n", va_arg!(int)(_argptr)); } else if (typeid(long) == v) { printf("long(%ld)\n", va_arg!(long)(_argptr)); } else if (typeid(float) == v) { printf("float(%f)\n", va_arg!(float)(_argptr)); } else if (typeid(double) == v) { printf("double(%f)\n", va_arg!(double)(_argptr)); } else if (typeid(real) == v) { printf("real(%f)\n", va_arg!(real)(_argptr)); } else assert(0, "unsupported type"); } } void main() { vafunc(byte.max,short.max,1,2,3,4L,5.0f,6.0,cast(real)7); }