D/ldc
1
0
Fork 0
mirror of https://github.com/xomboverlord/ldc.git synced 2026-01-17 05:13:14 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

[svn r74] Fixed passing types with different alignment to D-style variadic functions.

Browse Source 
Fixed casting integer to pointer.
This commit is contained in:
Tomas Lindquist Olsen
2007-10-28 19:33:50 +01:00
parent 58b6fc972a
commit 449db38d75
3 changed files with 42 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gen/toir.c
View File

@@ -1287,6 +1287,9 @@ elem* CastExp::toElem(IRState* p)
e->val = new llvm::SIToFPInst(u->getValue(), tolltype, "tmp", p->scopebb());
}
}
else if (totype->ty == Tpointer) {
e->val = p->ir->CreateIntToPtr(u->getValue(), tolltype, "tmp");
}
else {
assert(0);
}

5
lphobos/std/stdarg.d
View File

@@ -12,7 +12,8 @@ alias void* va_list;
T va_arg(T)(inout va_list vp)
{
va_list vptmp = vp;
vp += T.sizeof;
static assert((T.sizeof & (T.sizeof -1)) == 0);
va_list vptmp = cast(va_list)((cast(size_t)vp + T.sizeof - 1) & ~(T.sizeof - 1));
vp = vptmp + T.sizeof;
return *cast(T*)vptmp;
}

36
test/vararg4.d Normal file
View File

@@ -0,0 +1,36 @@
module vararg4;
import std.stdarg;
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);
}