Mercurial > pub > dyncall > dyncall
annotate dyncallback/dyncall_args_sparc32.c @ 157:49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
- doc improvements for sparc callconv
author | cslag |
---|---|
date | Wed, 28 Dec 2016 16:48:35 -0600 |
parents | 82a0eef83db0 |
children | 51b0a4544d9e |
rev | line source |
---|---|
0 | 1 /* |
2 | |
3 Package: dyncall | |
4 Library: dyncallback | |
5 File: dyncallback/dyncall_args_sparc32.c | |
6 Description: Callback's Arguments VM - Implementation for sparc32 - not yet | |
7 License: | |
8 | |
157
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
9 Copyright (c) 2007-2016 Daniel Adler <dadler@uni-goettingen.de>, |
0 | 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_sparc32.h" | |
28 | |
157
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
29 static void* sparc_word(DCArgs* args) |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
30 { |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
31 return args->arg_ptr++; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
32 } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
33 |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
34 static void* sparc_dword(DCArgs* args) |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
35 { |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
36 void *p = args->arg_ptr; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
37 args->arg_ptr += 2; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
38 return p; |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
39 } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
40 |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
41 DCuint dcbArgUInt (DCArgs* p) { return *(DCuint*)sparc_word(p); } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
42 DCulonglong dcbArgULongLong(DCArgs* p) { return *(DCulonglong*)sparc_dword(p); } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
43 |
88 | 44 DClonglong dcbArgLongLong (DCArgs* p) { return (DClonglong)dcbArgULongLong(p); } |
157
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
45 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgUInt(p); } |
88 | 46 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgUInt(p); } |
47 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgUInt(p); } | |
48 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgUInt(p); } | |
49 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgUInt(p); } | |
50 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgUInt(p); } | |
51 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgUInt(p); } | |
52 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgUInt(p); } | |
53 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgUInt(p); } | |
157
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
54 |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
55 DCdouble dcbArgDouble (DCArgs* p) { return *(DCdouble*)sparc_dword(p); } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
56 DCfloat dcbArgFloat (DCArgs* p) { return *(DCfloat*) sparc_word(p); } |
49549739228c
- sparc callback asm and args code (still some stack alignment issues, currently)
cslag
parents:
88
diff
changeset
|
57 |