Mercurial > pub > dyncall > dyncall

annotate dyncallback/dyncall_args_sparc64.c @ 357:d982a00c2177

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- PPC64 asm syntax fix, specifying explicitly comparison mode for cmpi (newer toolchains complain, older ones took optional field of instruction which happened to be same value)
author Tassilo Philipp
date Tue, 25 Feb 2020 18:16:13 +0100
parents f5577f6bf97a
children 71c884e610f0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: dyncallback
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: dyncallback/dyncall_args_sparc64.c
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
6 Description: Callback's Arguments VM - Implementation for sparc64 - not yet
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
281
f5577f6bf97a - file header cleanups for release
Tassilo Philipp
parents: 196
diff changeset
9 Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27 #include "dyncall_args_sparc64.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
196
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
29 DCulonglong dcbArgULongLong(DCArgs* p) { return p->arg_ptr[p->i++]; }
88
82a0eef83db0 - cosmetics
cslag
parents: 0
diff changeset
30 DClonglong dcbArgLongLong (DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
191
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
31 DCulong dcbArgULong (DCArgs* p) { return (DCulong) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
32 DClong dcbArgLong (DCArgs* p) { return (DClong) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
33 DCuint dcbArgUInt (DCArgs* p) { return (DCuint) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
34 DCint dcbArgInt (DCArgs* p) { return (DCint) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
35 DCuchar dcbArgUChar (DCArgs* p) { return (DCuchar) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
36 DCchar dcbArgChar (DCArgs* p) { return (DCchar) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
37 DCushort dcbArgUShort (DCArgs* p) { return (DCushort) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
38 DCshort dcbArgShort (DCArgs* p) { return (DCshort) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
39 DCbool dcbArgBool (DCArgs* p) { return (DCbool) dcbArgULongLong(p); }
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
40 DCpointer dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgULongLong(p); }
196
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
41
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
42 DCdouble dcbArgDouble(DCArgs* p)
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
43 {
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
44 return (p->i < DCARGS_SPARC64_NUM_DOUBLE_REGS)
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
45 ? p->dreg_data[p->i++]
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
46 : *(DCdouble*)(p->arg_ptr + p->i++);
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
47 }
191
2f7a7f3472cb - first draft at sparc64 callbacks (floats not working, yet)
Tassilo Philipp
parents: 88
diff changeset
48
196
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
49 DCfloat dcbArgFloat(DCArgs* p)
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
50 {
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
51 return (p->i < DCARGS_SPARC64_NUM_DOUBLE_REGS)
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
52 ? *((DCfloat*)(p->dreg_data + p->i++)+1) /* +1 bc single-prec fp args are */
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
53 : *((DCfloat*)(p->arg_ptr + p->i++)+1); /* right aligned in 64bit slot */
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
54 }
95cf20c0d1de - sparc64 callbacks:
Tassilo Philipp
parents: 191
diff changeset
55