|
0
|
1 /*
|
|
|
2
|
|
|
3 Package: dyncall
|
|
|
4 Library: dyncallback
|
|
|
5 File: dyncallback/dyncall_args_ppc32.c
|
|
|
6 Description: Callback's Arguments VM - Implementation for ppc32
|
|
|
7 License:
|
|
|
8
|
|
|
9 Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>,
|
|
|
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 #include "dyncall_args_ppc32.h"
|
|
|
28
|
|
|
29 DCint dcbArgInt (DCArgs* p)
|
|
|
30 {
|
|
|
31 DCint value;
|
|
|
32 if (p->ireg_count < 8)
|
|
|
33 value = p->ireg_data[p->ireg_count++];
|
|
|
34 else
|
|
|
35 value = *( (int*) p->stackptr );
|
|
|
36 p->stackptr += sizeof(int);
|
|
|
37 return value;
|
|
|
38 }
|
|
|
39 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); }
|
|
|
40
|
|
|
41 DCulonglong dcbArgULongLong (DCArgs* p)
|
|
|
42 {
|
|
|
43 DCulonglong value;
|
|
|
44 value = ( (DCulonglong) dcbArgUInt(p) ) << 16UL;
|
|
|
45 value |= dcbArgUInt(p);
|
|
|
46 return value;
|
|
|
47 }
|
|
|
48 DClonglong dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
|
|
|
49
|
|
|
50 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); }
|
|
|
51 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
|
|
|
52 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); }
|
|
|
53 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
|
|
|
54 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
|
|
|
55 DCushort dcbArgUShort (DCArgs* p) { return (DCushort)dcbArgUInt(p); }
|
|
|
56 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); }
|
|
|
57
|
|
|
58 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer)dcbArgUInt(p); }
|
|
|
59
|
|
|
60 DCdouble dcbArgDouble (DCArgs* p)
|
|
|
61 {
|
|
|
62 DCdouble result;
|
|
|
63 if (p->ireg_count < 7) {
|
|
|
64 p->ireg_count+=2;
|
|
|
65 } else if (p->ireg_count == 7) {
|
|
|
66 p->ireg_count = 8;
|
|
|
67 }
|
|
|
68 if (p->freg_count < 13) {
|
|
|
69 result = p->freg_data[p->freg_count++];
|
|
|
70 } else {
|
|
|
71 result = * ( (double*) p->stackptr );
|
|
|
72 }
|
|
|
73 p->stackptr += sizeof(double);
|
|
|
74 return result;
|
|
|
75 }
|
|
|
76 DCfloat dcbArgFloat (DCArgs* p)
|
|
|
77 {
|
|
|
78 DCfloat result;
|
|
|
79 if (p->ireg_count < 8)
|
|
|
80 p->ireg_count++;
|
|
|
81 if (p->freg_count < 13) {
|
|
|
82 result = (DCfloat) p->freg_data[p->freg_count++];
|
|
|
83 } else {
|
|
|
84 result = * ( (float*) p->stackptr );
|
|
|
85 }
|
|
|
86 p->stackptr += sizeof(float);
|
|
|
87 return result;
|
|
|
88 }
|
|
|
89
|
