Mercurial > projects > ldc

annotate lphobos/internal/arrays.d @ 883:b52d5de7783f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
GC defines and linkage changes.
author Christian Kamm <kamm incasoftware de>
date Thu, 08 Jan 2009 18:20:02 +0100
parents 5ab8e92611f9
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
1 module internal.arrays;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
2
64
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
3 private import llvm.intrinsic;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
4
1
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
5 extern(C):
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
6
64
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
7 int memcmp(void*,void*,size_t);
91
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
8 size_t strlen(char*);
64
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
9
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
10 version(LLVM64)
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
11 alias llvm_memcpy_i64 llvm_memcpy;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
12 else
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
13 alias llvm_memcpy_i32 llvm_memcpy;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
14
40
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents: 1
diff changeset
15 // per-element array init routines
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents: 1
diff changeset
16
1
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
17 void _d_array_init_i1(bool* a, size_t n, bool v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
18 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
19 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
20 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
21 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
22 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
23 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
24
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
25 void _d_array_init_i8(ubyte* a, size_t n, ubyte v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
26 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
27 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
28 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
29 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
30 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
31 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
32
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
33 void _d_array_init_i16(ushort* a, size_t n, ushort v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
34 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
35 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
36 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
37 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
38 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
39 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
40
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
41 void _d_array_init_i32(uint* a, size_t n, uint v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
42 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
43 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
44 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
45 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
46 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
47 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
48
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
49 void _d_array_init_i64(ulong* a, size_t n, ulong v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
50 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
51 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
52 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
53 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
54 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
55 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
56
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
57 void _d_array_init_float(float* a, size_t n, float v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
58 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
59 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
60 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
61 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
62 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
63 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
64
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
65 void _d_array_init_double(double* a, size_t n, double v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
66 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
67 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
68 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
69 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
70 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
71 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
72
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
73 void _d_array_init_pointer(void** a, size_t n, void* v)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
74 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
75 auto p = a;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
76 auto end = a+n;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
77 while (p !is end)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
78 *p++ = v;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough.
lindquist
parents:
diff changeset
79 }
40
8b0e809563df [svn r44] Lots of bug fixes.
lindquist
parents: 1
diff changeset
80
109
5ab8e92611f9 [svn r113] Added initial support for associative arrays (AAs).
lindquist
parents: 100
diff changeset
81 void _d_array_init_mem(void* a, size_t na, void* v, size_t nv)
64
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
82 {
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
83 auto p = a;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
84 auto end = a + na*nv;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
85 while (p !is end) {
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
86 llvm_memcpy(p,v,nv,0);
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
87 p += nv;
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
88 }
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
89 }
b688ad419f8c [svn r68] Added support for multi-dimensional static arrays.
lindquist
parents: 52
diff changeset
90
52
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
91 // for array cast
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
92 size_t _d_array_cast_len(size_t len, size_t elemsz, size_t newelemsz)
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
93 {
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
94 if (newelemsz == 1) {
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
95 return len*elemsz;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
96 }
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
97 else if (len % newelemsz) {
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
98 throw new Exception("Bad array cast");
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
99 }
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
100 return (len*elemsz)/newelemsz;
0c77619e803b [svn r56] Initial support for TypeInfo.
lindquist
parents: 40
diff changeset
101 }
91
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
102
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
103 // creating args for main
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
104 void _d_main_args(uint n, char** args, ref char[][] res)
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
105 {
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
106 assert(res.length == n);
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
107 foreach(i,v; args[0..n])
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
108 {
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
109 res[i] = v[0 .. strlen(v)];
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
110 }
3f949c6e2e9d [svn r95] added support for mains like:
lindquist
parents: 64
diff changeset
111 }