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
281
+ − 9 Copyright (c) 2015-2018 Daniel Adler <dadler@uni-goettingen.de>
0
+ − 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
