Mercurial > projects > ldc

annotate tests/mini/bug13.d @ 585:fbb1a366cfbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Complex number should now follow the D ABI on x86. They're also treated as first class values now. Big change.
author Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date Tue, 09 Sep 2008 16:49:47 -0700
parents 1bb99290e03a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
40
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
1 module bug13;
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
2
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
3 void func1(ubyte[4]* arr)
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
4 {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
5 ubyte* b = &(*arr)[0];
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
6 func2(&(*arr)[1]);
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
7 }
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
8
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
9 void func2(ubyte* ptr)
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
10 {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
11 assert(*ptr == 2);
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
12 }
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
13
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
14 void main()
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
15 {
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
16 ubyte[4] arr = [cast(ubyte)1,2,3,4];
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
17 func1(&arr);
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents:
diff changeset
18 }