0
|
1 /*
|
|
2
|
|
3 Package: dyncall
|
|
4 Library: dyncallback
|
|
5 File: dyncallback/dyncall_args_ppc32_sysv.c
|
|
6 Description: Callback's Args Implementation for PowerPC 32-bit System V ABI
|
|
7 License:
|
|
8
|
|
9 Copyright (c) 2015 Daniel Adler <dadler@uni-goettingen.de>
|
|
10
|
|
11 Permission to use, copy, modify, and distribute this software for any
|
|
12 purpose with or without fee is hereby granted, provided that the above
|
|
13 copyright notice and this permission notice appear in all copies.
|
|
14
|
|
15 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
16 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
17 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
18 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
19 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
20 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
21 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
22
|
|
23 */
|
|
24
|
|
25
|
|
26 #include "dyncall_args_ppc32.h"
|
|
27
|
|
28 DCint dcbArgInt (DCArgs* p)
|
|
29 {
|
|
30 DCint value;
|
|
31 if (p->ireg_count < 8)
|
|
32 value = p->ireg_data[p->ireg_count++];
|
|
33 else {
|
|
34 value = *( (int*) p->stackptr );
|
|
35 p->stackptr += sizeof(int);
|
|
36 }
|
|
37 return value;
|
|
38 }
|
|
39 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); }
|
|
40
|
|
41 DCulonglong dcbArgULongLong (DCArgs* p)
|
|
42 {
|
|
43 DCulonglong value;
|
|
44 if (p->ireg_count < 7)
|
|
45 {
|
|
46 /* next free integer register is even (r0, r2, r3) ? */
|
|
47 /* if not, skip one integer */
|
|
48 p->ireg_count = (p->ireg_count + 1) & -2;
|
|
49 value = * (unsigned long long*) ( & p->ireg_data[p->ireg_count] );
|
|
50 p->ireg_count += 2;
|
|
51 } else {
|
|
52 p->ireg_count = 8;
|
|
53 /* 64-bit values are naturally aligned on stack */
|
|
54 p->stackptr = (unsigned char*) ( ( ( (ptrdiff_t) (p->stackptr) ) + 7) & ( (ptrdiff_t) -8 ) );
|
|
55 value = * ( (unsigned long long*) p->stackptr );
|
|
56 p->stackptr += sizeof(unsigned long long);
|
|
57 }
|
|
58 return value;
|
|
59 }
|
|
60 DClonglong dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
|
|
61
|
|
62 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); }
|
|
63 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
|
|
64 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); }
|
|
65 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
|
|
66 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
|
|
67 DCushort dcbArgUShort (DCArgs* p) { return (DCushort)dcbArgUInt(p); }
|
|
68 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); }
|
|
69
|
|
70 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer)dcbArgUInt(p); }
|
|
71
|
|
72 DCdouble dcbArgDouble (DCArgs* p)
|
|
73 {
|
|
74 DCdouble result;
|
|
75 if (p->freg_count < 8) {
|
|
76 result = p->freg_data[p->freg_count++];
|
|
77 } else {
|
|
78 p->stackptr = (unsigned char*) ( ( ( (ptrdiff_t) (p->stackptr) ) + 7) & ( (ptrdiff_t) -8 ) );
|
|
79 result = * ( (double*) p->stackptr );
|
|
80 p->stackptr += sizeof(double);
|
|
81 }
|
|
82 return result;
|
|
83 }
|
|
84 DCfloat dcbArgFloat (DCArgs* p)
|
|
85 {
|
|
86 DCfloat result;
|
|
87 if (p->freg_count < 8) {
|
|
88 result = (DCfloat) p->freg_data[p->freg_count++];
|
|
89 } else {
|
|
90 result = * ( (float*) p->stackptr );
|
|
91 p->stackptr += sizeof(float);
|
|
92 }
|
|
93 return result;
|
|
94 }
|
|
95
|