Mercurial > pub > dyncall > dyncall
annotate dyncall/dyncall_vector.c @ 542:a73a5cd50c19
- fix passing aggregate-by-val on x64/sysv: subaggr classification for
aggr *arrays* was wrong (was problematic when there ware exactly 2 8bytes to
be classified, potentially be passed via registers)
author | Tassilo Philipp |
---|---|
date | Mon, 02 May 2022 15:32:41 +0200 |
parents | 6ffb6a00cf55 |
children |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: dyncall | |
5 File: dyncall/dyncall_vector.c | |
6 Description: Simple dynamic vector container type implementation | |
7 License: | |
8 | |
281 | 9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, |
0 | 10 Tassilo Philipp <tphilipp@potion-studios.com> |
11 | |
12 Permission to use, copy, modify, and distribute this software for any | |
13 purpose with or without fee is hereby granted, provided that the above | |
14 copyright notice and this permission notice appear in all copies. | |
15 | |
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
23 | |
24 */ | |
25 | |
26 | |
27 | |
28 #include "dyncall_vector.h" | |
29 #include <string.h> | |
30 | |
31 | |
32 void dcVecAppend(DCVecHead* pHead, const void* pData, size_t size) | |
33 { | |
34 size_t newSize = pHead->mSize + size; | |
35 if(newSize <= pHead->mTotal) | |
36 { | |
323
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
37 void* dst = (DCchar*)dcVecData(pHead) + pHead->mSize; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
38 switch (size) { |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
39 case 1: *(DCchar *)dst = *(const DCchar *)pData; break; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
40 case 2: *(DCshort *)dst = *(const DCshort *)pData; break; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
41 case 4: *(DCint *)dst = *(const DCint *)pData; break; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
42 case 8: *(DCint *)( ( (char*)dst )+4) = *(const DCint *)( ( (char*)pData )+4); |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
43 *(DCint *)dst = *(const DCint *)pData; break; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
44 /* On sparc 32-bit, this one crashes if ptrs are not aligned, so use above. |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
45 case 8: *(DClonglong*)dst = *(const DClonglong*)pData; break; |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
46 */ |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
47 |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
48 default: memcpy(dst, pData, size); /* for all the rest. */ |
6ffb6a00cf55
- cosmetics and comments cleanup for readability
Tassilo Philipp
parents:
281
diff
changeset
|
49 } |
0 | 50 pHead->mSize = newSize; |
51 } | |
52 /*else @@@ warning? error?*/ | |
53 } | |
54 |