Mercurial > projects > ldc

annotate test/bug13.d @ 132:1700239cab2e trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r136] MAJOR UNSTABLE UPDATE!!! Initial commit after moving to Tango instead of Phobos. Lots of bugfixes... This build is not suitable for most things.
author lindquist
date Fri, 11 Jan 2008 17:57:40 +0100
parents 8b0e809563df
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 }