0
|
1 /*
|
|
2
|
|
3 Package: dyncall
|
|
4 Library: dyncallback
|
|
5 File: dyncallback/dyncall_args_ppc64.c
|
|
6 Description: Callback's Arguments VM - Implementation for ppc64
|
|
7 License:
|
|
8
|
|
9 Copyright (c) 2014-2015 Masanori Mitsugi <mitsugi@linux.vnet.ibm.com>
|
|
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 #include "dyncall_args_ppc64.h"
|
|
26
|
|
27 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgLongLong(p); }
|
|
28 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgLongLong(p); }
|
|
29 DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
|
|
30
|
|
31 DClonglong dcbArgLongLong(DCArgs* p)
|
|
32 {
|
|
33 DClonglong value;
|
|
34 if (p->ireg_count < 8) {
|
|
35 value = p->ireg_data[p->ireg_count++];
|
|
36 } else {
|
|
37 value = *( (long long*) p->stackptr );
|
|
38 }
|
|
39 p->stackptr += sizeof(long long);
|
|
40 return value;
|
|
41 }
|
|
42
|
|
43 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgLongLong(p); }
|
|
44 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgLongLong(p); }
|
|
45 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgLongLong(p); }
|
|
46 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgLongLong(p); }
|
|
47 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgLongLong(p); }
|
|
48 DCushort dcbArgUShort (DCArgs* p) { return (DCushort)dcbArgLongLong(p); }
|
|
49 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgLongLong(p); }
|
|
50
|
|
51 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer)dcbArgLongLong(p); }
|
|
52
|
|
53 DCdouble dcbArgDouble (DCArgs* p)
|
|
54 {
|
|
55 DCdouble result;
|
|
56
|
|
57 if (p->freg_count < 13) {
|
|
58 result = p->freg_data[p->freg_count++];
|
|
59 if (p->ireg_count < 8) {
|
|
60 p->ireg_count++;
|
|
61 }
|
|
62 } else {
|
|
63 result = * ( (double*) p->stackptr );
|
|
64 }
|
|
65
|
|
66 p->stackptr += sizeof(double);
|
|
67 return result;
|
|
68 }
|
|
69
|
|
70 DCfloat dcbArgFloat (DCArgs* p) { return (DCfloat)dcbArgDouble(p); }
|
|
71
|