--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncallback/dyncall_args_mips_o32.c	Tue Jun 07 09:05:34 2016 +0200
@@ -0,0 +1,85 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_args_mips.c
+ Description: Callback's Arguments VM - Implementation for MIPS
+ License:
+
+   Copyright (c) 2013-2015 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_mips.h"
+
+DCint dcbArgInt(DCArgs* p)
+{
+  DCint value;
+  value = *((int*)p->stackptr);
+  p->stackptr += sizeof(int);
+  return value;
+}
+DCuint dcbArgUInt(DCArgs* p) { return (DCuint)dcbArgInt(p); }
+
+DCulonglong dcbArgULongLong(DCArgs* p)
+{
+  DCulonglong value;
+  p->stackptr += ((int)p->stackptr & 4); // Skip one slot if not aligned.
+#if defined(DC__Endian_LITTLE)
+  value  = dcbArgUInt(p);
+  value |= ((DCulonglong)dcbArgUInt(p)) << 32;
+#else
+  value  = ((DCulonglong)dcbArgUInt(p)) << 32;
+  value |= dcbArgUInt(p);
+#endif
+  return value;
+}
+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); }
+
+DCfloat dcbArgFloat(DCArgs* p)
+{
+  DCfloat result;
+  result = *((float*)p->stackptr);
+  p->stackptr += sizeof(float);
+  return result;
+}
+DCdouble dcbArgDouble(DCArgs* p)
+{
+  union {
+    DCdouble result;
+    DCfloat f[2];
+  } d;
+  p->stackptr += ((int)p->stackptr & 4); // Skip one slot if not aligned.
+#if defined(DC__Endian_LITTLE)
+  d.f[0] = dcbArgFloat(p);
+  d.f[1] = dcbArgFloat(p);
+#else
+  d.f[1] = dcbArgFloat(p);
+  d.f[0] = dcbArgFloat(p);
+#endif
+  return d.result;
+}
+