Mercurial > projects > ldc

annotate test/vararg4.d @ 120:5ce8ab11e75a trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r124] Fixed another D vararg + return in ptr bug. Fixed some nested function calls failed to resolve the context ptr.
author lindquist
date Mon, 26 Nov 2007 07:26:21 +0100
parents fb265a6efea1
children d9d5d59873d8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
70
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
1 module vararg4;
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
2 import std.stdarg;
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
3
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
4 void vafunc(...)
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
5 {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
6 foreach(i,v; _arguments) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
7 if (typeid(byte) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
8 printf("byte(%d)\n", va_arg!(byte)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
9 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
10 else if (typeid(short) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
11 printf("short(%d)\n", va_arg!(short)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
12 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
13 else if (typeid(int) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
14 printf("int(%d)\n", va_arg!(int)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
15 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
16 else if (typeid(long) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
17 printf("long(%ld)\n", va_arg!(long)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
18 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
19 else if (typeid(float) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
20 printf("float(%f)\n", va_arg!(float)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
21 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
22 else if (typeid(double) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
23 printf("double(%f)\n", va_arg!(double)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
24 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
25 else if (typeid(real) == v) {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
26 printf("real(%f)\n", va_arg!(real)(_argptr));
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
27 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
28 else
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
29 assert(0, "unsupported type");
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
30 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
31 }
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
32
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
33 void main()
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
34 {
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
35 vafunc(byte.max,short.max,1,2,3,4L,5.0f,6.0,cast(real)7);
fb265a6efea1 [svn r74] Fixed passing types with different alignment to D-style variadic functions.
lindquist
parents:
diff changeset
36 }