Mercurial > pub > dyncall > dyncall

changeset 178:183594497726

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- renamed sparc_v9 -> sparc64 for consistency (with other platforms using 32/64 suffix instead of instrset name)
author cslag
date Fri, 10 Feb 2017 00:58:08 +0100
parents 8304f1b31af9
children b11b0735b09f
files dyncall/dyncall_call.S dyncall/dyncall_call_sparc64.S dyncall/dyncall_call_sparc64.h dyncall/dyncall_call_sparc_v9.S dyncall/dyncall_call_sparc_v9.h dyncall/dyncall_callvm.c dyncall/dyncall_callvm_sparc64.c dyncall/dyncall_callvm_sparc64.h dyncall/dyncall_callvm_sparc_v9.c dyncall/dyncall_callvm_sparc_v9.h
diffstat 10 files changed, 492 insertions(+), 492 deletions(-) [+]
line wrap: on
line diff
--- a/dyncall/dyncall_call.S	Fri Feb 10 00:46:05 2017 +0100
+++ b/dyncall/dyncall_call.S	Fri Feb 10 00:58:08 2017 +0100
@@ -69,7 +69,7 @@
 #  elif defined(DC__Arch_MIPS) || defined(DC__Arch_MIPS64)
 #    include "dyncall_call_mips_gas.S"
 #  elif defined(DC__Arch_Sparcv9)
-#    include "dyncall_call_sparc_v9.S"
+#    include "dyncall_call_sparc64.S"
 #  elif defined(DC__Arch_Sparc)
 #    include "dyncall_call_sparc.S"
 #  else
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncall/dyncall_call_sparc64.S	Fri Feb 10 00:58:08 2017 +0100
@@ -0,0 +1,222 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_sparc64.S
+ Description: Call kernel for sparc64 (v9) ABI.
+ License:
+
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+#define BIAS 2047
+.global dcCall_v9
+	/* dcCall_sparc64( DCCallVM* , void * target ) */ 
+        /*                 o0          o1              */
+dcCall_v9:
+	or   %o0, %g0, %o3  /* o3: callvm   */
+	or   %o1, %g0, %o0  /* o0: target   */
+	ldx  [%o3+24], %o1  /* o1: mVecSize */
+	add   %o3, 32, %o2  /* o2: stack    */
+	/* Compute a matching stack size (approximate): o3 = align(o1+136,16) */
+
+	add  %o1, (16+1+6)*8+15, %o3
+	and  %o3, -16, %o3
+	neg  %o3            /* o3: -stacksize */
+	save %sp, %o3, %sp	
+
+	ldd     [%i2+8*0 ],%f0		/* Load double-precision float registers. */
+	ldd     [%i2+8*1 ],%f2
+	ldd     [%i2+8*2 ],%f4
+	ldd     [%i2+8*3 ],%f6
+	ldd     [%i2+8*4 ],%f8
+	ldd     [%i2+8*5 ],%f10
+	ldd     [%i2+8*6 ],%f12
+	ldd     [%i2+8*7 ],%f14
+	ldd     [%i2+8*8 ],%f16
+        ldd     [%i2+8*9 ],%f18
+	ldd     [%i2+8*10],%f20
+	ldd     [%i2+8*11],%f22
+	ldd     [%i2+8*12],%f24
+	ldd     [%i2+8*13],%f26
+	ldd     [%i2+8*14],%f28
+	ldd     [%i2+8*15],%f30
+	ldx	[%i2+8*0],%o0		/* Load output registers. */
+	ldx	[%i2+8*1],%o1
+	ldx	[%i2+8*2],%o2
+	ldx	[%i2+8*3],%o3
+	ldx	[%i2+8*4],%o4
+	ldx	[%i2+8*5],%o5
+	sub     %i1, 48, %i1
+	cmp     %i1, 0
+    	ble	.do_call
+    	nop
+	/* Copy loop: */
+	add     %i2, 48, %i2	/* skip homing area */
+	or	%g0, %g0, %l0			/* l0 = offset initialized to 0. */
+	add     %sp, BIAS+((16+6)*8), %l2	/* l2 = argument area on stack space (7th word). (64+4+6*4 = byte offset 92). */
+.next:
+	ldx     [%i2+%l0],%l1	/* Read from arg buffer(%i2) to %l1. */
+	stx     %l1, [%l2+%l0]	/* Write %l1 to stack space(%l2). */
+	add     %l0, 8, %l0	/* Increment offset. */
+	sub     %i1, 8, %i1	/* Decrement copy size. */
+	cmp     %i1, 0
+	bgt     .next
+	nop
+.do_call:
+	call	%i0				/* Call target. */
+    	nop
+	or	%o0, %g0, %i0
+	jmpl	%i7 + 8, %g0
+    	restore
+
+/* 
+    or     %o0, %g0, %i0
+    or     %o1, %g0, %i1
+    or     %o2, %g0, %i2
+    or     %o3, %g0, %i3
+	return  %i7 + 8
+    nop
+
+Changes from v8:
+- fundamental data types
+	- (un)signed int: 8,16,32,64
+	- float: 32,64,128
+- float: IEEE 754 compilant
+	32 32-bit  float registers f0,f1,..,f31
+	32 64-bit  float registers f0,f2,..,f62
+	16 128-bit float registers f0,f4,..,f60
+
+Description:
+We need to raise up a dynamic stack frame.
+Therefore we need to compute the stack size. We do this first, 
+in the context of the caller as a leaf function (using o3 as scratch for addition).
+Then we raise the frame, ending up in o0-o3 is then i0-i3.
+
+
+Stack Layout:
+     BIAS = 2047
+
+   BIAS+XX: should be 16 byte aligned.
+                 ...
+       136: argument overflow area
+       128:  1 extended word  for struct/union poiner return value
+   BIAS+ 0: 16 extended words for registers (in/local) save area [register window]
+
+
+Function Argument Passing:
+- integer %o0..%o5 (caller view).
+- floating-point %f0 .. %f15
+- continuous memory starting at %sp+BIAS+136 (caller view).
+
+Register Usage:
+%fp0..%fp31  : floating-point arguments.
+%sp  or  %o6 : stack pointer, always 8 (or 16?)-byte aligned.
+%fp  or  %i6 : frame pointer.
+%i0  and %o0 : integer and pointer return values.
+%i7  and %o7 : return address. (caller puts return address to %o7, callee uses %i7)
+%fp0 and %fp1: return value (float).
+%i0..%i5     : input argument registers 
+%o0..%o5     : output argument registers
+%g0          : always zero, writes to it have no effect.
+
+Register Mappings:
+r0-7    -> globals
+r8-15   -> outs
+r16-r23 -> locals
+r24-r31 -> ins
+
+Integer Register Overview Table:
+ID      Class   Name    Description
+------------------------------------------------------------------------------
+0	globals	g0	always zero, writes to it have no effect
+1		g1
+2		g2
+3		g3
+4		g4
+5		g5
+6		g6
+7		g7
+8	out	o0	[int/ptr] arg 0 and return
+9		o1	          arg 1
+10		o2	          arg 2
+11		o3	          arg 3
+12              o4                arg 4
+13              o5                arg 5
+14              o6	stack pointer
+15		o7
+16	local	l0	scratch
+17		l1
+18		l2
+19		l3
+20		l4
+21		l5
+22		l6
+23		l7
+24	in	i0	[int/pt] arg 0 and return
+25		i1
+26		i2
+27		i3
+28		i4
+29		i5
+30		i6	frame pointer
+31		i7
+*/
+
+/* --------------------------------------------------------------------------- 
+
+call kernel for sparc64 v9 abi
+tested on sparc64/linux/debian [gcc54.fsffrance.org - thanx to the farm!] 
+
+new C Interface:
+  void dcCall_sparc (DCCallVM* callvm, DCpointer target);
+                     %i0               %1 
+
+see dyncall_call_sparc.S for details.
+
+old C Interface:
+  void dcCall_sparc (DCpointer target, DCsize size, DCpointer data);
+		     %i0             , %i1        , %i2
+Input:
+  i0   target
+  i1   size
+  i2   data
+
+*/
+
+#if 0
+
+
+#define REGSIZE 8
+
+
+
+#define SHEAD ((16+6)*8)
+#define ALIGN 16 
+#define IREGS 6
+#define FREGS 16
+#define SREGS 16
+#define IBASE  0
+#define FBASE  (IREGS*8)
+
+// #define DHEAD  ((IREGS+FREGS)*8)+SREGS*4
+
+CALLVM_regdata = 72
+CALLVM_size    = 208
+CALLVM_buffer  = 216
+
+#endif
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncall/dyncall_call_sparc64.h	Fri Feb 10 00:58:08 2017 +0100
@@ -0,0 +1,43 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_sparc64.h
+ Description: 
+ License:
+
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+
+#ifndef DYNCALL_CALL_SPARC_V9_H
+#define DYNCALL_CALL_SPARC_V9_H
+
+#include "dyncall_types.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+void dcCall_v9 (DCCallVM* vm, DCpointer target);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* DYNCALL_CALL_SPARC_v9_H */
+
--- a/dyncall/dyncall_call_sparc_v9.S	Fri Feb 10 00:46:05 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,222 +0,0 @@
-/*
-
- Package: dyncall
- Library: dyncall
- File: dyncall/dyncall_call_sparc_v9.S
- Description: Call kernel for sparc64 v9 ABI.
- License:
-
-   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
-
-   Permission to use, copy, modify, and distribute this software for any
-   purpose with or without fee is hereby granted, provided that the above
-   copyright notice and this permission notice appear in all copies.
-
-   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-*/
-
-
-#define BIAS 2047
-.global dcCall_v9
-	/* dcCall_sparc64( DCCallVM* , void * target ) */ 
-        /*                 o0          o1              */
-dcCall_v9:
-	or   %o0, %g0, %o3  /* o3: callvm   */
-	or   %o1, %g0, %o0  /* o0: target   */
-	ldx  [%o3+24], %o1  /* o1: mVecSize */
-	add   %o3, 32, %o2  /* o2: stack    */
-	/* Compute a matching stack size (approximate): o3 = align(o1+136,16) */
-
-	add  %o1, (16+1+6)*8+15, %o3
-	and  %o3, -16, %o3
-	neg  %o3            /* o3: -stacksize */
-	save %sp, %o3, %sp	
-
-	ldd     [%i2+8*0 ],%f0		/* Load double-precision float registers. */
-	ldd     [%i2+8*1 ],%f2
-	ldd     [%i2+8*2 ],%f4
-	ldd     [%i2+8*3 ],%f6
-	ldd     [%i2+8*4 ],%f8
-	ldd     [%i2+8*5 ],%f10
-	ldd     [%i2+8*6 ],%f12
-	ldd     [%i2+8*7 ],%f14
-	ldd     [%i2+8*8 ],%f16
-        ldd     [%i2+8*9 ],%f18
-	ldd     [%i2+8*10],%f20
-	ldd     [%i2+8*11],%f22
-	ldd     [%i2+8*12],%f24
-	ldd     [%i2+8*13],%f26
-	ldd     [%i2+8*14],%f28
-	ldd     [%i2+8*15],%f30
-	ldx	[%i2+8*0],%o0		/* Load output registers. */
-	ldx	[%i2+8*1],%o1
-	ldx	[%i2+8*2],%o2
-	ldx	[%i2+8*3],%o3
-	ldx	[%i2+8*4],%o4
-	ldx	[%i2+8*5],%o5
-	sub     %i1, 48, %i1
-	cmp     %i1, 0
-    	ble	.do_call
-    	nop
-	/* Copy loop: */
-	add     %i2, 48, %i2	/* skip homing area */
-	or	%g0, %g0, %l0			/* l0 = offset initialized to 0. */
-	add     %sp, BIAS+((16+6)*8), %l2	/* l2 = argument area on stack space (7th word). (64+4+6*4 = byte offset 92). */
-.next:
-	ldx     [%i2+%l0],%l1	/* Read from arg buffer(%i2) to %l1. */
-	stx     %l1, [%l2+%l0]	/* Write %l1 to stack space(%l2). */
-	add     %l0, 8, %l0	/* Increment offset. */
-	sub     %i1, 8, %i1	/* Decrement copy size. */
-	cmp     %i1, 0
-	bgt     .next
-	nop
-.do_call:
-	call	%i0				/* Call target. */
-    	nop
-	or	%o0, %g0, %i0
-	jmpl	%i7 + 8, %g0
-    	restore
-
-/* 
-    or     %o0, %g0, %i0
-    or     %o1, %g0, %i1
-    or     %o2, %g0, %i2
-    or     %o3, %g0, %i3
-	return  %i7 + 8
-    nop
-
-Changes from v8:
-- fundamental data types
-	- (un)signed int: 8,16,32,64
-	- float: 32,64,128
-- float: IEEE 754 compilant
-	32 32-bit  float registers f0,f1,..,f31
-	32 64-bit  float registers f0,f2,..,f62
-	16 128-bit float registers f0,f4,..,f60
-
-Description:
-We need to raise up a dynamic stack frame.
-Therefore we need to compute the stack size. We do this first, 
-in the context of the caller as a leaf function (using o3 as scratch for addition).
-Then we raise the frame, ending up in o0-o3 is then i0-i3.
-
-
-Stack Layout:
-     BIAS = 2047
-
-   BIAS+XX: should be 16 byte aligned.
-                 ...
-       136: argument overflow area
-       128:  1 extended word  for struct/union poiner return value
-   BIAS+ 0: 16 extended words for registers (in/local) save area [register window]
-
-
-Function Argument Passing:
-- integer %o0..%o5 (caller view).
-- floating-point %f0 .. %f15
-- continuous memory starting at %sp+BIAS+136 (caller view).
-
-Register Usage:
-%fp0..%fp31  : floating-point arguments.
-%sp  or  %o6 : stack pointer, always 8 (or 16?)-byte aligned.
-%fp  or  %i6 : frame pointer.
-%i0  and %o0 : integer and pointer return values.
-%i7  and %o7 : return address. (caller puts return address to %o7, callee uses %i7)
-%fp0 and %fp1: return value (float).
-%i0..%i5     : input argument registers 
-%o0..%o5     : output argument registers
-%g0          : always zero, writes to it have no effect.
-
-Register Mappings:
-r0-7    -> globals
-r8-15   -> outs
-r16-r23 -> locals
-r24-r31 -> ins
-
-Integer Register Overview Table:
-ID      Class   Name    Description
-------------------------------------------------------------------------------
-0	globals	g0	always zero, writes to it have no effect
-1		g1
-2		g2
-3		g3
-4		g4
-5		g5
-6		g6
-7		g7
-8	out	o0	[int/ptr] arg 0 and return
-9		o1	          arg 1
-10		o2	          arg 2
-11		o3	          arg 3
-12              o4                arg 4
-13              o5                arg 5
-14              o6	stack pointer
-15		o7
-16	local	l0	scratch
-17		l1
-18		l2
-19		l3
-20		l4
-21		l5
-22		l6
-23		l7
-24	in	i0	[int/pt] arg 0 and return
-25		i1
-26		i2
-27		i3
-28		i4
-29		i5
-30		i6	frame pointer
-31		i7
-*/
-
-/* --------------------------------------------------------------------------- 
-
-call kernel for sparc64 v9 abi
-tested on sparc64/linux/debian [gcc54.fsffrance.org - thanx to the farm!] 
-
-new C Interface:
-  void dcCall_sparc (DCCallVM* callvm, DCpointer target);
-                     %i0               %1 
-
-see dyncall_call_sparc.S for details.
-
-old C Interface:
-  void dcCall_sparc (DCpointer target, DCsize size, DCpointer data);
-		     %i0             , %i1        , %i2
-Input:
-  i0   target
-  i1   size
-  i2   data
-
-*/
-
-#if 0
-
-
-#define REGSIZE 8
-
-
-
-#define SHEAD ((16+6)*8)
-#define ALIGN 16 
-#define IREGS 6
-#define FREGS 16
-#define SREGS 16
-#define IBASE  0
-#define FBASE  (IREGS*8)
-
-// #define DHEAD  ((IREGS+FREGS)*8)+SREGS*4
-
-CALLVM_regdata = 72
-CALLVM_size    = 208
-CALLVM_buffer  = 216
-
-#endif
--- a/dyncall/dyncall_call_sparc_v9.h	Fri Feb 10 00:46:05 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,43 +0,0 @@
-/*
-
- Package: dyncall
- Library: dyncall
- File: dyncall/dyncall_call_sparc_v9.h
- Description: 
- License:
-
-   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
-
-   Permission to use, copy, modify, and distribute this software for any
-   purpose with or without fee is hereby granted, provided that the above
-   copyright notice and this permission notice appear in all copies.
-
-   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-*/
-
-
-
-#ifndef DYNCALL_CALL_SPARC_V9_H
-#define DYNCALL_CALL_SPARC_V9_H
-
-#include "dyncall_types.h"
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-void dcCall_v9 (DCCallVM* vm, DCpointer target);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* DYNCALL_CALL_SPARC_v9_H */
-
--- a/dyncall/dyncall_callvm.c	Fri Feb 10 00:46:05 2017 +0100
+++ b/dyncall/dyncall_callvm.c	Fri Feb 10 00:58:08 2017 +0100
@@ -68,7 +68,7 @@
 #elif defined(DC__Arch_Sparc)
 #  include "dyncall_callvm_sparc.c"
 #elif defined(DC__Arch_Sparcv9)
-#  include "dyncall_callvm_sparc_v9.c"
+#  include "dyncall_callvm_sparc64.c"
 #elif defined(DC__Arch_RiscV)
 #  include "dyncall_callvm_riscv.c"
 #else
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncall/dyncall_callvm_sparc64.c	Fri Feb 10 00:58:08 2017 +0100
@@ -0,0 +1,183 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_callvm_sparc64.c
+ Description: Call VM for sparc64 (v9) ABI.
+ License:
+
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+
+#include "dyncall_callvm_sparc64.h"
+#include "dyncall_call_sparc64.h"
+#include "dyncall_alloc.h"
+
+/* Reset argument buffer. */
+static void dc_callvm_reset_v9(DCCallVM* in_self)
+{
+  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
+  dcVecResize(&self->mVecHead, 0);
+}
+
+
+/* Destructor. */
+static void dc_callvm_free_v9(DCCallVM* in_self)
+{
+  dcFreeMem(in_self);
+}
+
+static void dc_callvm_argLongLong_v9(DCCallVM* in_self, DClonglong x)
+{
+  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
+  dcVecAppend(&self->mVecHead, &x, sizeof(DClonglong));
+}
+
+/* all integers are promoted to 64-bit. */
+static void dc_callvm_argLong_v9   (DCCallVM* in_self, DClong    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+static void dc_callvm_argInt_v9    (DCCallVM* in_self, DCint     x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+static void dc_callvm_argBool_v9   (DCCallVM* in_self, DCbool    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+static void dc_callvm_argChar_v9   (DCCallVM* in_self, DCchar    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+static void dc_callvm_argShort_v9  (DCCallVM* in_self, DCshort   x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+static void dc_callvm_argPointer_v9(DCCallVM* in_self, DCpointer x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
+
+static void dc_callvm_argDouble_v9(DCCallVM* in_self, DCdouble x)
+{
+  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
+  dcVecAppend(&self->mVecHead, &x, sizeof(DCdouble));
+}
+
+static void dc_callvm_argDouble_v9_ellipsis(DCCallVM* in_self, DCdouble x)
+{
+  union {
+    long long l;
+    double d;
+  } u;
+  u.d = x;
+  dc_callvm_argLongLong_v9(in_self, u.l);
+}
+
+static void dc_callvm_argFloat_v9_ellipsis(DCCallVM* in_self, DCfloat x)
+{
+  dc_callvm_argDouble_v9_ellipsis(in_self, (DCdouble) x);
+}
+
+static void dc_callvm_argFloat_v9(DCCallVM* in_self, DCfloat x)
+{
+  union {
+    double d;
+    float  f[2];
+  } u;
+  u.f[1] = x;
+  dc_callvm_argDouble_v9(in_self, u.d);
+}
+
+static void dc_callvm_mode_v9(DCCallVM* in_self, DCint mode);
+
+DCCallVM_vt gVT_v9_ellipsis = 
+{
+  &dc_callvm_free_v9, 
+  &dc_callvm_reset_v9, 
+  &dc_callvm_mode_v9, 
+  &dc_callvm_argBool_v9, 
+  &dc_callvm_argChar_v9, 
+  &dc_callvm_argShort_v9, 
+  &dc_callvm_argInt_v9, 
+  &dc_callvm_argLong_v9, 
+  &dc_callvm_argLongLong_v9, 
+  &dc_callvm_argFloat_v9_ellipsis, 
+  &dc_callvm_argDouble_v9_ellipsis, 
+  &dc_callvm_argPointer_v9, 
+  NULL /* argStruct */, 
+  (DCvoidvmfunc*)       &dcCall_v9, 
+  (DCboolvmfunc*)       &dcCall_v9, 
+  (DCcharvmfunc*)       &dcCall_v9, 
+  (DCshortvmfunc*)      &dcCall_v9, 
+  (DCintvmfunc*)        &dcCall_v9, 
+  (DClongvmfunc*)       &dcCall_v9, 
+  (DClonglongvmfunc*)   &dcCall_v9, 
+  (DCfloatvmfunc*)      &dcCall_v9, 
+  (DCdoublevmfunc*)     &dcCall_v9, 
+  (DCpointervmfunc*)    &dcCall_v9, 
+  NULL /* callStruct */
+};
+
+/* CallVM virtual table. */
+DCCallVM_vt gVT_v9 =
+{
+  &dc_callvm_free_v9, 
+  &dc_callvm_reset_v9, 
+  &dc_callvm_mode_v9, 
+  &dc_callvm_argBool_v9, 
+  &dc_callvm_argChar_v9, 
+  &dc_callvm_argShort_v9, 
+  &dc_callvm_argInt_v9, 
+  &dc_callvm_argLong_v9, 
+  &dc_callvm_argLongLong_v9, 
+  &dc_callvm_argFloat_v9, 
+  &dc_callvm_argDouble_v9, 
+  &dc_callvm_argPointer_v9, 
+  NULL /* argStruct */, 
+  (DCvoidvmfunc*)       &dcCall_v9, 
+  (DCboolvmfunc*)       &dcCall_v9, 
+  (DCcharvmfunc*)       &dcCall_v9, 
+  (DCshortvmfunc*)      &dcCall_v9, 
+  (DCintvmfunc*)        &dcCall_v9, 
+  (DClongvmfunc*)       &dcCall_v9, 
+  (DClonglongvmfunc*)   &dcCall_v9, 
+  (DCfloatvmfunc*)      &dcCall_v9, 
+  (DCdoublevmfunc*)     &dcCall_v9, 
+  (DCpointervmfunc*)    &dcCall_v9, 
+  NULL /* callStruct */
+};
+
+/* mode: only a single mode available currently. */
+static void dc_callvm_mode_v9(DCCallVM* in_self, DCint mode)
+{
+  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
+  DCCallVM_vt* vt;
+
+  switch(mode) {
+    case DC_CALL_C_DEFAULT:
+    case DC_CALL_C_SPARC64:
+    case DC_CALL_C_ELLIPSIS:
+      vt = &gVT_v9;
+      break;
+    case DC_CALL_C_ELLIPSIS_VARARGS:
+      vt = &gVT_v9_ellipsis;
+      break;
+    default:
+      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
+      return; 
+  }
+  dc_callvm_base_init(&self->mInterface, vt);
+}
+
+/* Public API. */
+DCCallVM* dcNewCallVM(DCsize size)
+{
+  DCCallVM_v9* p = (DCCallVM_v9*)dcAllocMem(sizeof(DCCallVM_v9)+size);
+
+  dc_callvm_mode_v9((DCCallVM*)p, DC_CALL_C_DEFAULT);
+
+  dcVecInit(&p->mVecHead,size);
+  dc_callvm_reset_v9(&p->mInterface);
+
+  return (DCCallVM*)p;
+}
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncall/dyncall_callvm_sparc64.h	Fri Feb 10 00:58:08 2017 +0100
@@ -0,0 +1,42 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_callvm_sparc64.h
+ Description: Call VM for sparc64 (v9) ABI.
+ License:
+
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+
+
+#ifndef DYNCALL_CALLVM_SPARC_V9_H
+#define DYNCALL_CALLVM_SPARC_V9_H
+
+#include "dyncall_callvm.h"
+#include "dyncall_vector.h"
+
+typedef struct 
+{
+  DCCallVM     mInterface;      /*   0: +12:8 = 16*/
+  DCVecHead    mVecHead;        /* 16   152: mTotalSize +8 */
+                                /* 24   160: mSize      +8 */
+                                /* 32  168: mData  */ 
+} DCCallVM_v9;
+
+#endif /* DYNCALL_CALLVM_SPARC_V9_H */
+
--- a/dyncall/dyncall_callvm_sparc_v9.c	Fri Feb 10 00:46:05 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,183 +0,0 @@
-/*
-
- Package: dyncall
- Library: dyncall
- File: dyncall/dyncall_callvm_sparc_v9.c
- Description: Call VM for sparc-v9 ABI.
- License:
-
-   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
-
-   Permission to use, copy, modify, and distribute this software for any
-   purpose with or without fee is hereby granted, provided that the above
-   copyright notice and this permission notice appear in all copies.
-
-   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-*/
-
-
-
-#include "dyncall_callvm_sparc_v9.h"
-#include "dyncall_call_sparc_v9.h"
-#include "dyncall_alloc.h"
-
-/* Reset argument buffer. */
-static void dc_callvm_reset_v9(DCCallVM* in_self)
-{
-  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
-  dcVecResize(&self->mVecHead, 0);
-}
-
-
-/* Destructor. */
-static void dc_callvm_free_v9(DCCallVM* in_self)
-{
-  dcFreeMem(in_self);
-}
-
-static void dc_callvm_argLongLong_v9(DCCallVM* in_self, DClonglong x)
-{
-  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
-  dcVecAppend(&self->mVecHead, &x, sizeof(DClonglong));
-}
-
-/* all integers are promoted to 64-bit. */
-static void dc_callvm_argLong_v9   (DCCallVM* in_self, DClong    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-static void dc_callvm_argInt_v9    (DCCallVM* in_self, DCint     x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-static void dc_callvm_argBool_v9   (DCCallVM* in_self, DCbool    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-static void dc_callvm_argChar_v9   (DCCallVM* in_self, DCchar    x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-static void dc_callvm_argShort_v9  (DCCallVM* in_self, DCshort   x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-static void dc_callvm_argPointer_v9(DCCallVM* in_self, DCpointer x) { dc_callvm_argLongLong_v9(in_self, (DClonglong) x ); }
-
-static void dc_callvm_argDouble_v9(DCCallVM* in_self, DCdouble x)
-{
-  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
-  dcVecAppend(&self->mVecHead, &x, sizeof(DCdouble));
-}
-
-static void dc_callvm_argDouble_v9_ellipsis(DCCallVM* in_self, DCdouble x)
-{
-  union {
-    long long l;
-    double d;
-  } u;
-  u.d = x;
-  dc_callvm_argLongLong_v9(in_self, u.l);
-}
-
-static void dc_callvm_argFloat_v9_ellipsis(DCCallVM* in_self, DCfloat x)
-{
-  dc_callvm_argDouble_v9_ellipsis(in_self, (DCdouble) x);
-}
-
-static void dc_callvm_argFloat_v9(DCCallVM* in_self, DCfloat x)
-{
-  union {
-    double d;
-    float  f[2];
-  } u;
-  u.f[1] = x;
-  dc_callvm_argDouble_v9(in_self, u.d);
-}
-
-static void dc_callvm_mode_v9(DCCallVM* in_self, DCint mode);
-
-DCCallVM_vt gVT_v9_ellipsis = 
-{
-  &dc_callvm_free_v9, 
-  &dc_callvm_reset_v9, 
-  &dc_callvm_mode_v9, 
-  &dc_callvm_argBool_v9, 
-  &dc_callvm_argChar_v9, 
-  &dc_callvm_argShort_v9, 
-  &dc_callvm_argInt_v9, 
-  &dc_callvm_argLong_v9, 
-  &dc_callvm_argLongLong_v9, 
-  &dc_callvm_argFloat_v9_ellipsis, 
-  &dc_callvm_argDouble_v9_ellipsis, 
-  &dc_callvm_argPointer_v9, 
-  NULL /* argStruct */, 
-  (DCvoidvmfunc*)       &dcCall_v9, 
-  (DCboolvmfunc*)       &dcCall_v9, 
-  (DCcharvmfunc*)       &dcCall_v9, 
-  (DCshortvmfunc*)      &dcCall_v9, 
-  (DCintvmfunc*)        &dcCall_v9, 
-  (DClongvmfunc*)       &dcCall_v9, 
-  (DClonglongvmfunc*)   &dcCall_v9, 
-  (DCfloatvmfunc*)      &dcCall_v9, 
-  (DCdoublevmfunc*)     &dcCall_v9, 
-  (DCpointervmfunc*)    &dcCall_v9, 
-  NULL /* callStruct */
-};
-
-/* CallVM virtual table. */
-DCCallVM_vt gVT_v9 =
-{
-  &dc_callvm_free_v9, 
-  &dc_callvm_reset_v9, 
-  &dc_callvm_mode_v9, 
-  &dc_callvm_argBool_v9, 
-  &dc_callvm_argChar_v9, 
-  &dc_callvm_argShort_v9, 
-  &dc_callvm_argInt_v9, 
-  &dc_callvm_argLong_v9, 
-  &dc_callvm_argLongLong_v9, 
-  &dc_callvm_argFloat_v9, 
-  &dc_callvm_argDouble_v9, 
-  &dc_callvm_argPointer_v9, 
-  NULL /* argStruct */, 
-  (DCvoidvmfunc*)       &dcCall_v9, 
-  (DCboolvmfunc*)       &dcCall_v9, 
-  (DCcharvmfunc*)       &dcCall_v9, 
-  (DCshortvmfunc*)      &dcCall_v9, 
-  (DCintvmfunc*)        &dcCall_v9, 
-  (DClongvmfunc*)       &dcCall_v9, 
-  (DClonglongvmfunc*)   &dcCall_v9, 
-  (DCfloatvmfunc*)      &dcCall_v9, 
-  (DCdoublevmfunc*)     &dcCall_v9, 
-  (DCpointervmfunc*)    &dcCall_v9, 
-  NULL /* callStruct */
-};
-
-/* mode: only a single mode available currently. */
-static void dc_callvm_mode_v9(DCCallVM* in_self, DCint mode)
-{
-  DCCallVM_v9* self = (DCCallVM_v9*)in_self;
-  DCCallVM_vt* vt;
-
-  switch(mode) {
-    case DC_CALL_C_DEFAULT:
-    case DC_CALL_C_SPARC64:
-    case DC_CALL_C_ELLIPSIS:
-      vt = &gVT_v9;
-      break;
-    case DC_CALL_C_ELLIPSIS_VARARGS:
-      vt = &gVT_v9_ellipsis;
-      break;
-    default:
-      self->mInterface.mError = DC_ERROR_UNSUPPORTED_MODE; 
-      return; 
-  }
-  dc_callvm_base_init(&self->mInterface, vt);
-}
-
-/* Public API. */
-DCCallVM* dcNewCallVM(DCsize size)
-{
-  DCCallVM_v9* p = (DCCallVM_v9*)dcAllocMem(sizeof(DCCallVM_v9)+size);
-
-  dc_callvm_mode_v9((DCCallVM*)p, DC_CALL_C_DEFAULT);
-
-  dcVecInit(&p->mVecHead,size);
-  dc_callvm_reset_v9(&p->mInterface);
-
-  return (DCCallVM*)p;
-}
-
--- a/dyncall/dyncall_callvm_sparc_v9.h	Fri Feb 10 00:46:05 2017 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,42 +0,0 @@
-/*
-
- Package: dyncall
- Library: dyncall
- File: dyncall/dyncall_callvm_sparc_v9.h
- Description: Call VM for sparc-v9 ABI.
- License:
-
-   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>
-
-   Permission to use, copy, modify, and distribute this software for any
-   purpose with or without fee is hereby granted, provided that the above
-   copyright notice and this permission notice appear in all copies.
-
-   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-
-*/
-
-
-
-#ifndef DYNCALL_CALLVM_SPARC_V9_H
-#define DYNCALL_CALLVM_SPARC_V9_H
-
-#include "dyncall_callvm.h"
-#include "dyncall_vector.h"
-
-typedef struct 
-{
-  DCCallVM     mInterface;      /*   0: +12:8 = 16*/
-  DCVecHead    mVecHead;        /* 16   152: mTotalSize +8 */
-                                /* 24   160: mSize      +8 */
-                                /* 32  168: mData  */ 
-} DCCallVM_v9;
-
-#endif /* DYNCALL_CALLVM_SPARC_V9_H */
-