comparison dyncallback/dyncall_args_ppc32.c @ 236:9bca9ca46db9

- dyncallback 'long long' arg fix for Darwin/PPC
author Tassilo Philipp
date Tue, 02 May 2017 02:52:56 +0200
parents 3e629dc19168
children f5577f6bf97a
comparison
equal deleted inserted replaced
235:df556fd8ea37 236:9bca9ca46db9
4 Library: dyncallback 4 Library: dyncallback
5 File: dyncallback/dyncall_args_ppc32.c 5 File: dyncallback/dyncall_args_ppc32.c
6 Description: Callback's Arguments VM - Implementation for ppc32 6 Description: Callback's Arguments VM - Implementation for ppc32
7 License: 7 License:
8 8
9 Copyright (c) 2007-2015 Daniel Adler <dadler@uni-goettingen.de>, 9 Copyright (c) 2007-2017 Daniel Adler <dadler@uni-goettingen.de>,
10 Tassilo Philipp <tphilipp@potion-studios.com> 10 Tassilo Philipp <tphilipp@potion-studios.com>
11 11
12 Permission to use, copy, modify, and distribute this software for any 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 13 purpose with or without fee is hereby granted, provided that the above
14 copyright notice and this permission notice appear in all copies. 14 copyright notice and this permission notice appear in all copies.
39 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); } 39 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgInt(p); }
40 40
41 DCulonglong dcbArgULongLong (DCArgs* p) 41 DCulonglong dcbArgULongLong (DCArgs* p)
42 { 42 {
43 DCulonglong value; 43 DCulonglong value;
44 value = ( (DCulonglong) dcbArgUInt(p) ) << 16UL; 44 value = ( (DCulonglong) dcbArgUInt(p) ) << 32UL;
45 value |= dcbArgUInt(p); 45 value |= dcbArgUInt(p);
46 return value; 46 return value;
47 } 47 }
48 DClonglong dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); } 48 DClonglong dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
49 49