rbdc 0.8.0

data/dyncall/dyncallback/dyncall_args_sparc32.c

@@ -0,0 +1,41 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_sparc32.c
+ Description: Callback's Arguments VM - Implementation for sparc32 - not yet
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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_args_sparc32.h"
+
+DCint       dcbArgInt      (DCArgs* p) { return 0; }
+DCuint      dcbArgUInt     (DCArgs* p) { return 0; }
+DCulonglong dcbArgULongLong (DCArgs* p) {  return 0; }
+DClonglong  dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
+DClong      dcbArgLong     (DCArgs* p) { return (DClong)  dcbArgUInt(p); }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
+DCchar      dcbArgChar     (DCArgs* p) { return (DCchar)  dcbArgUInt(p); }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
+DCshort     dcbArgShort    (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)dcbArgUInt(p); }
+DCbool      dcbArgBool     (DCArgs* p) { return (DCbool)  dcbArgUInt(p); }
+DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)dcbArgUInt(p); }
+DCdouble    dcbArgDouble   (DCArgs* p) { return 0.0; }
+DCfloat     dcbArgFloat    (DCArgs* p) { return 0.0f; }

data/dyncall/dyncallback/dyncall_args_sparc32.h

@@ -0,0 +1,37 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_sparc32.h
+ Description: Callback's Arguments VM - Header for sparc32
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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 DYNCALLBACK_ARGS_SPARC32_H
+#define DYNCALLBACK_ARGS_SPARC32_H
+
+#include "dyncall_args.h"
+
+struct DCArgs
+{
+  int dummy;
+};
+
+#endif /* DYNCALLBACK_ARGS_SPARC32_H */
+

data/dyncall/dyncallback/dyncall_args_sparc64.c

@@ -0,0 +1,41 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_sparc64.c
+ Description: Callback's Arguments VM - Implementation for sparc64 - not yet
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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_args_sparc64.h"
+
+DCint       dcbArgInt      (DCArgs* p) { return 0; }
+DCuint      dcbArgUInt     (DCArgs* p) { return 0; }
+DCulonglong dcbArgULongLong (DCArgs* p) {  return 0; }
+DClonglong  dcbArgLongLong(DCArgs* p) { return (DClonglong)dcbArgULongLong(p); }
+DClong      dcbArgLong     (DCArgs* p) { return (DClong)  dcbArgUInt(p); }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong) dcbArgUInt(p); }
+DCchar      dcbArgChar     (DCArgs* p) { return (DCchar)  dcbArgUInt(p); }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar) dcbArgUInt(p); }
+DCshort     dcbArgShort    (DCArgs* p) { return (DCshort) dcbArgUInt(p); }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)dcbArgUInt(p); }
+DCbool      dcbArgBool     (DCArgs* p) { return (DCbool)  dcbArgUInt(p); }
+DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)dcbArgUInt(p); }
+DCdouble    dcbArgDouble   (DCArgs* p) { return 0.0; }
+DCfloat     dcbArgFloat    (DCArgs* p) { return 0.0f; }

data/dyncall/dyncallback/dyncall_args_sparc64.h

@@ -0,0 +1,37 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_sparc64.h
+ Description: Callback's Arguments VM - Header for sparc32 - not yet
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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 DYNCALLBACK_ARGS_SPARC64_H
+#define DYNCALLBACK_ARGS_SPARC64_H
+
+#include "dyncall_args.h"
+
+struct DCArgs
+{
+  int dummy;
+};
+
+#endif /* DYNCALLBACK_ARGS_SPARC64_H */
+

data/dyncall/dyncallback/dyncall_args_x64.c

@@ -0,0 +1,73 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_x64.c
+ Description: Callback's Arguments VM - Implementation for x64
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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_args_x64.h"
+
+
+static int64* arg_i64(DCArgs* args)
+{
+  if (args->reg_count.i < numIntRegs)
+    return &args->reg_data.i[args->reg_count.i++];
+  else
+    return args->stack_ptr++;
+}
+
+
+static double* arg_f64(DCArgs* args)
+{
+  if (args->reg_count.f < numFloatRegs)
+    return &args->reg_data.f[args->reg_count.f++];
+  else
+  {
+    return (double*)args->stack_ptr++;
+  }
+}
+
+
+// ----------------------------------------------------------------------------
+// C API implementation:
+
+
+// base operations:
+
+DClonglong  dcbArgLongLong (DCArgs* p) { return *arg_i64(p); }
+DCint       dcbArgInt      (DCArgs* p) { return (int)   dcbArgLongLong(p); }
+DClong      dcbArgLong     (DCArgs* p) { return (long)  dcbArgLongLong(p); }
+DCchar      dcbArgChar     (DCArgs* p) { return (char)  dcbArgLongLong(p); }
+DCshort     dcbArgShort    (DCArgs* p) { return (short) dcbArgLongLong(p); }
+DCbool      dcbArgBool     (DCArgs* p) { return (dcbArgInt(p) == 0) ? 0 : 1; }
+
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)      dcbArgInt(p);      }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar)     dcbArgChar(p);     }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)    dcbArgShort(p);    }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong)     dcbArgLong(p);     }
+DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
+
+
+DCpointer   dcbArgPointer  (DCArgs* p) { return (DCpointer)   dcbArgLongLong(p); }
+
+DCdouble    dcbArgDouble   (DCArgs* p) { return *arg_f64(p); }
+DCfloat     dcbArgFloat    (DCArgs* p) { return *(float*)arg_f64(p); }

data/dyncall/dyncallback/dyncall_args_x64.h

@@ -0,0 +1,44 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_x64.h
+ Description: Callback's Arguments VM - Header for x64
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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 DYNCALLBACK_ARGS_X64_H
+#define DYNCALLBACK_ARGS_X64_H
+
+#include "dyncall_args.h"
+#include "../dyncall/dyncall_callvm_x64.h"  /* reuse structures */
+
+
+struct DCArgs
+{
+	/* state */
+	int64*          stack_ptr;
+	DCRegCount_x64  reg_count;	/* @@@ win64 version should maybe force alignment to 8 in order to be secure */
+
+	/* reg data */
+	DCRegData_x64_s reg_data;
+};
+
+#endif /* DYNCALLBACK_ARGS_X64_H */
+

data/dyncall/dyncallback/dyncall_args_x86.c

@@ -0,0 +1,121 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_x86.c
+ Description: Callback's Arguments VM - Implementation for x86
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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_args_x86.h"
+
+/* ---------------------------------------------------------------------------- */
+/* C API implementation: */
+
+/* base operations */
+
+DCint      dcbArgInt     (DCArgs* p) { return p->vt->i32(p); }
+DClonglong dcbArgLongLong(DCArgs* p) { return p->vt->i64(p); }
+DCfloat    dcbArgFloat   (DCArgs* p) { return p->vt->f32(p); }
+DCdouble   dcbArgDouble  (DCArgs* p) { return p->vt->f64(p); }
+
+/* promote to integer: bool, char, short, long and pointer */
+
+DCbool     dcbArgBool    (DCArgs* p) { return ( dcbArgInt(p) == 0 ) ? 0 : 1; }
+DCchar     dcbArgChar    (DCArgs* p) { return (char)      dcbArgInt(p); }
+DCshort    dcbArgShort   (DCArgs* p) { return (short)     dcbArgInt(p); }
+DClong     dcbArgLong    (DCArgs* p) { return (long)      dcbArgInt(p); }
+DCpointer  dcbArgPointer (DCArgs* p) { return (DCpointer) dcbArgInt(p); }
+
+/* unsigned types */
+
+DCuint      dcbArgUInt     (DCArgs* p) { return (DCuint)      dcbArgInt(p); }
+DCuchar     dcbArgUChar    (DCArgs* p) { return (DCuchar)     dcbArgChar(p); }
+DCushort    dcbArgUShort   (DCArgs* p) { return (DCushort)    dcbArgShort(p); }
+DCulong     dcbArgULong    (DCArgs* p) { return (DCulong)     dcbArgLong(p); }
+DCulonglong dcbArgULongLong(DCArgs* p) { return (DCulonglong) dcbArgLongLong(p); }
+
+/* ---------------------------------------------------------------------------- */
+/* virtual tables: */
+
+/* cdecl calling convention */
+
+static int default_i32(DCArgs* args)
+{
+	return *args->stack_ptr++;
+}
+
+static long long default_i64(DCArgs* args)
+{
+	long long result = * (long long*) args->stack_ptr;
+	args->stack_ptr += 2;
+	return result;
+}
+
+static float default_f32(DCArgs* args)
+{
+	float result = * ( (float*) args->stack_ptr );
+	args->stack_ptr++;
+	return result;
+}
+
+static double default_f64(DCArgs* args)
+{
+	double result = * ( (double*) args->stack_ptr );
+	args->stack_ptr += 2;
+	return  result;
+}
+
+DCArgsVT dcArgsVT_default   = { default_i32, default_i64, default_f32, default_f64 };
+
+/* thiscall (microsoft) calling convention */
+
+static int this_i32(DCArgs* args)
+{
+	if(args->fast_data[0]) { /* ecx register = this pointer */
+		int thisArg = args->fast_data[0];
+		args->fast_data[0] = 0;
+		return thisArg;
+	}
+	return *args->stack_ptr++;
+}
+
+DCArgsVT dcArgsVT_this_ms = { this_i32, default_i64, default_f32, default_f64 };
+
+/* fastcall (microsoft) calling convention */
+
+static int fast_i32(DCArgs* args)
+{
+	if(args->fast_count < 2)
+		return args->fast_data[args->fast_count++];
+	else
+		return default_i32(args);
+}
+
+DCArgsVT dcArgsVT_fast_ms = { fast_i32, default_i64, default_f32, default_f64 };
+
+/* fastcall (gnu) calling convention */
+
+static long long fast_gnu_i64(DCArgs* args)
+{
+	args->fast_count += 2;
+	return default_i64(args);
+}
+
+DCArgsVT dcArgsVT_fast_gnu = { fast_i32, fast_gnu_i64, default_f32, default_f64 };

data/dyncall/dyncallback/dyncall_args_x86.h

@@ -0,0 +1,58 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_x86.h
+ Description: Callback's Arguments VM - Header for x86
+ License:
+
+   Copyright (c) 2007-2011 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   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_ARGS_X86_H_
+#define DYNCALL_ARGS_X86_H_
+
+#include "dyncall_args.h"
+
+typedef struct
+{
+	DCint      (*i32)(DCArgs*);
+	DClonglong (*i64)(DCArgs*);
+	DCfloat    (*f32)(DCArgs*);
+	DCdouble   (*f64)(DCArgs*);
+} DCArgsVT;
+
+extern DCArgsVT dcArgsVT_default;
+extern DCArgsVT dcArgsVT_this_ms;
+extern DCArgsVT dcArgsVT_fast_ms;
+extern DCArgsVT dcArgsVT_fast_gnu;
+
+struct DCArgs
+{
+	/* callmode */
+	DCArgsVT* vt;
+
+	/* state */
+	int* stack_ptr;
+
+	/* fast data / 'this-ptr' info */
+	int  fast_data[2];
+	int  fast_count;
+};
+
+#endif /* DYNCALL_ARGS_X86_H_ */