rbdc 1.0.0 → 1.1.0

data/dyncall/ToDo.orig

@@ -0,0 +1,201 @@
+1.1:
+----
+- test atpcs thumb on arm and verify if ellipse and C++ thiscalls work, if so adapt doc appendix
+- test eabi thumb on arm and verify if ellipse and C++ thiscalls work, if so adapt doc appendix
+- new platform matrix
+  * check dark green cells and validit in general
+- dyncall/dyncall_call*h could probably be all removed, as forward declarations in corresponding .c
+  files would be enough; no headers are needed b/c those functions declared in there are of no public use
+
+1.2:
+----
+- test/thunk win/x64 doesn't output anything decent for stack test (neither sigsegv nor output), which can create a problem for test log file as it'll mess with the subsequent test's output)
+- remove test/gen-masm alltogether
+- test code: add sparc tests for when out of register windows, meaning multiple layers deep in the call stack
+- ./configure on macOS does not pass CFLAGS etc.. to Makefile.config
+- support platforms without shared libraries so they can be built by just typing `./configure;make` (e.g. minix < 3.2.1)
+  * also make sure minix with shared library support builds and works in general (>= 3.2.1) as well as ELF on Minix (>= 3.2.0) to begin with (as that's the base, and we only test on 3.1.8 so far)
+- dyncall supports calls to functions where prototype exists (with and without varargs); however not when no
+  prototype exist (e.g. just calling some pointer), without any declaration... even possible in C, as one has
+  to cast to the function type? need to support?
+
+
+- dyncallback's "stack_cleanup" can be removed from non x86 impls... test if they still work
+- target a minimum c version, for use with -pedantic, etc.? Right now we use e.g. extensions
+  for anon structs, etc. -> we do now target c99
+- the CallVM-free functions are per VTable, however the latter can be changed out
+  at runtime... which basically changes potentially the deallocator...
+  same goes for functions setting the mode. think about how to make this safer - currently
+  we have a higher flexibility and we need to potentially clean up from the mode we are in,
+  however, this is open to misuse
+- check all vararg calling conv implementations if they promote correctly
+  (e.g. float to double); we used to not care as it was the user's job to
+  think of that, but we allow users to use ArgFloat, etc. on "..." now,
+  taking care of the promotion; so it should be consistent all across the
+  implementations -> also write testcode specifically for that
+- autovar was never really pushed all the way through and still plays second
+  fiddle to dyncall_macros.h, clean this all up, eventually (Tassilo: for now, I
+  removed out of sync files to avoid confusion; but still probably duped code)
+- add portable "make install"
+  * make install should also install manpages
+- mailing list announcements (html email?)
+- fix for NDS:
+  * ARM:
+    - callback_plain retval wrong (not only platform), area on stack where
+      it's stored is probably not zeroed, so half-words, etc., come with garbage
+  * THUMB:
+    - ellipsis (might be test itself, not respecting fixed part of args)
+    - callback_plain retval, see above under ARM
+    - callf
+- support Solaris11 CFLAGS with -D_FILE_OFFSET_BITS=64
+- make sure selinux works (esp. regarding NX bits)
+  Daniel has a patch for it, if needed, implementing allocwx with two memory blocks, one for w^x, mmaped to one for r|x
+- support /SAFESEH on cl/win32
+- test code functions should be in .so files, optionally, so the suites can directly
+  be used to test dycnall bindings
+- pkg-config support?
+- quadmath support (long double)
+- add tests using alloca(), as this might depend on the frame pointer being correctly set (we don't
+  check for this, currently, at all - but might not affect dyncall's stubs, anyways) - verify
+
+portasm:
+--------
+- add solaris support for x64
+
+dyncall:
+--------
+- merge arm32_thumb_{gas/apple} and include thumb support for portasm
+- x64 verification: return values are passed via RAX and RDX, and XMM0 and XMM1.
+- find big endian arm box (also hardfloat), e.g. cubietruck: http://blog.netbsd.org/tnf/entry/working_arm_multiprocessor_support
+- test if armhf/thumb is actually working... pulls in arm mode code in dyncall_callvm.c
+- dyncall_call_mips_n32.h and dyncall_call_mips_n64.h are pretty much the same, share code
+- support for return values: aggregate return values
+- support for argument values: structures, half-precision, vector types, long double
+  * make sure that struct support for ellipsis calls are not forgotten (copy everything by value)
+- consider automatic type-promotion for arguments passed through DC_CALL_C_ELLIPSIS_VARARGS;
+  this would make it easier to just pass arguments instead of having to know about the C
+  type promotions (this is partly done, see todo-item above under 1.1)
+- other syscalls
+- test MIPS32 eabi big endian (current port works on psp, which is little endian)
+- implement MIPS64 N32 (gcc -mabi=n32); both, little and big-endian (looks like NetNBSD on and
+  EdgeRouter lite uses this: https://blog.netbsd.org/tnf/entry/hands_on_experience_with_edgerouter)
+- MIPS64 n32 softfloat support (-msoft-float)
+- implement MIPS64 EABI (gcc -mabi=eabi); both, little and big-endian
+- support for Minix/arm
+- improve ellipsis test:
+  * test not just with one fixed arg, to also simulate alignment problems
+  * test return values
+  * convert from c++ to c, to have it also on plan9, and more portability
+
+dynload:
+--------
+- dlGetLibraryPath: dl_iterate_phdr() used on OpenBSD, but not available on version < 3.7
+- bug: test/nm crashes on qemu mips linux o32 debian etch
+- rename SymsInit to InitSyms and similar for cleanup function to reflect naming
+  in dyncall
+- get rid of Dl_info and friends (_GNU_SOURCE) in dynload/dynload_syms_elf.c
+  for implementation of dlSymsNameFromValue(..)
+- check if PSP can support dynload (missing elf.h, dlfcn.h, etc.); fixup readme if successful
+- some functionality like java's System.mapLibraryName('name') might be helpful?
+- Failed On Open Solaris 11:
+    In file included from dynload_syms.c:28:
+    dynload_syms_elf.c:56: error: syntax error before "Elf_Dyn"
+    dynload_syms_elf.c:56: warning: data definition has no type or storage class
+    dynload_syms_elf.c: In function `dlSymsInit':
+    dynload_syms_elf.c:155: error: `pDyn' undeclared (first use in this function)
+    dynload_syms_elf.c:155: error: (Each undeclared identifier is reported only once
+    dynload_syms_elf.c:155: error: for each function it appears in.)
+    dynload_syms_elf.c:155: error: syntax error before ')' token
+    dynload_syms_elf.c:160: error: `DT_NULL' undeclared (first use in this function)
+    dynload_syms_elf.c:163: error: `DT_STRTAB' undeclared (first use in this function)
+    dynload_syms_elf.c:164: error: `DT_SYMTAB' undeclared (first use in this function)
+    dynload_syms_elf.c:165: error: `DT_HASH' undeclared (first use in this function)
+    make: *** [dynload_syms.o] Error 1
+
+dyncallback:
+------------
+- callback_plain's return value not correct anymore on NDS (maybe just broken testcode?),
+  see above under 1.1 items
+  * check other platforms also, if asm stub initializes retval space, correctly
+- test MIPS32 eabi big endian (current port works on psp, which is little endian)
+- implement MIPS64 N32 (gcc -mabi=n32); both, little and big-endian (looks like NetNBSD on and
+  EdgeRouter lite uses this: https://blog.netbsd.org/tnf/entry/hands_on_experience_with_edgerouter)
+- MIPS64 n32 softfloat support (-msoft-float)
+- implement MIPS64 EABI (gcc -mabi=eabi); both, little and big-endian
+- support for Minix/arm
+
+bindings:
+---------
+- release bindings as standalone packages (already done for rbdc as a gem and rdyncall on cran)
+  * add note to documentation, where bindings are and that some bindings are svn-only ATM
+- add rdoc documentation to ruby gem
+- add pydoc for python
+- add manpage for shdc
+- expose callf-convenience functions to go
+- add godoc for godc
+- add javadoc to java
+- add more bindings
+- add callback support for erlang, go, java, lua, python and ruby (and shell? how?)
+- add call-conv-mode-support for rbdc through signature
+
+manual:
+-------
+- introduce doc overview tables and common vocab for calling convention specifics, following example of table on page 13 of https://www.linux-mips.org/pub/linux/mips/doc/ABI/MIPS-N32-ABI-Handbook.pdf; also as inspiration, e.g. user 'preserved' instead of 'permanent', etc. https://developer.apple.com/library/content/documentation/Xcode/Conceptual/iPhoneOSABIReference/Articles/ARMv6FunctionCallingConventions.html#//apple_ref/doc/uid/TP40009021-SW4
+  * also, get inspiration for naming for GCC predefs as talked about in https://stffrdhrn.github.io/software/embedded/openrisc/2018/06/08/gcc_stack_frames.html
+- make stack layout diagrams better, e.g. add grow direction (example: https://developer.apple.com/library/content/documentation/Xcode/Conceptual/iPhoneOSABIReference/art/arm_stack.jpg on https://developer.apple.com/library/content/documentation/Xcode/Conceptual/iPhoneOSABIReference/Articles/ARMv6FunctionCallingConventions.html#//apple_ref/doc/uid/TP40009021-SW1)
+  * another example, chapter 3 of: ftp://www.sourceware.org/pub/binutils/ppc-docs/ppc-poweropen/
+- provide more examples on how to use dyncall, dynload and dyncallback
+  * e.g. enhance manual with a couple of examples (e.g. calling MessageBoxA on windows, etc.)
+- manuals for bindings (as stated in bindings-section, above)
+- under "dyncall support", in each calling convention appendix, list crucial details of e.g. big/little endian support, etc.
+- specify integer models in use, use common ILP32, LLP64, etc. terms
+
+regressions:
+------------
+- Haiku/gmake build doesn't build dynload due to the fact, that elf.h is not found
+  on default installations (one has to install the system headers)
+  * add to doc
+- Solaris/gmake build doesn't build dynload and tests anymore (maybe not even dyncallback)
+- look over code and fix TODO or @@@ marks
+- add ppc-support to doc (both, 32 and 64, as well as little and big endian remarks)
+
+nice to have:
+-------------
+- update: microsoft visual c++ build files - integrate all test suites in solution file
+- consistency: on x64 platforms: make both ABIs available ('win64','sysv') for all x64 OS ports
+- microsoft build enhancement: autodetect assembly via C preprocessor (like with .S gcc files)
+- test/thunk: some platforms do not allow for allocation of executable code on heap and stack -- 
+  currently this test will segfault (handled), maybe we should collect information which platforms allow and which not.
+- PSP
+	- automate ppsspp stuff, seems to print to stdout for callback_suite? but not for call_suite.. (?)
+	- fix link with dummy versions of the following for test-bins:
+		void __stack_chk_fail(){}
+		void __stack_chk_guard(){}
+
+bugs:
+-----
+- setting callconv, specifically for platforms that have only one (default)) excepts on some
+  platforms, eg. setting X64_sysv on amd64/Linux - keeping cdecl which is the same in
+  this case, works (this should work now...)
+- vararg function calls don't work for ARM THUMB mode (Daniel's new interface for modesetting for varag
+  args should be used); adapt test/ellipsis and/or retest
+
+missing implementations (descending priority):
+----------------------------------------------
+- riscv
+- itanium
+- superh/j-core
+- 68k, 88k, 6502, etc.
+- arc
+- alpha
+- cell
+- blackfin
+- seaforth
+- s/390
+- z80
+- hppa
+- vax
+- atmel avr
+- propeller
+- amd29k
+

data/dyncall/autovar/autovar_ARCH.h

@@ -48,7 +48,7 @@
 # if defined(__thumb__)
 #   define ARCH_THUMB
 # endif
-#elif defined(__aarch64__)
+#elif defined(__aarch64__) || defined(__arm64) || defined(__arm64__)
 # define ARCH_ARM64
 #elif defined(__sh__)
 # define ARCH_SH

data/dyncall/buildsys/vs2005/vs2005.sln

@@ -3,11 +3,6 @@ Microsoft Visual Studio Solution File, Format Version 9.00
 # Visual Studio 2005
 Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "dyncall", "dyncall\dyncall.vcproj", "{DF67B85F-C8F8-4FB1-A701-867A9C835ABA}"
 EndProject
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "test_plain", "test_plain\test_plain.vcproj", "{65E1A63C-079D-4F72-8307-E070A499D2EA}"
-	ProjectSection(ProjectDependencies) = postProject
-		{DF67B85F-C8F8-4FB1-A701-867A9C835ABA} = {DF67B85F-C8F8-4FB1-A701-867A9C835ABA}
-	EndProjectSection
-EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Win32 = Debug|Win32
@@ -18,10 +13,6 @@ Global
 		{DF67B85F-C8F8-4FB1-A701-867A9C835ABA}.Debug|Win32.Build.0 = Debug|Win32
 		{DF67B85F-C8F8-4FB1-A701-867A9C835ABA}.Release|Win32.ActiveCfg = Release|Win32
 		{DF67B85F-C8F8-4FB1-A701-867A9C835ABA}.Release|Win32.Build.0 = Release|Win32
-		{65E1A63C-079D-4F72-8307-E070A499D2EA}.Debug|Win32.ActiveCfg = Debug|Win32
-		{65E1A63C-079D-4F72-8307-E070A499D2EA}.Debug|Win32.Build.0 = Debug|Win32
-		{65E1A63C-079D-4F72-8307-E070A499D2EA}.Release|Win32.ActiveCfg = Release|Win32
-		{65E1A63C-079D-4F72-8307-E070A499D2EA}.Release|Win32.Build.0 = Release|Win32
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

data/dyncall/cconv.lang

@@ -0,0 +1,36 @@
+e.g. vx{r%eax%ebx l0pL}
+
+NOTE: codes are regex style in left hand columns
+
+[ ;]                token delimiters (if needed)
+[v^]                stack direction: down/up
+[1248xX]            slot alignment: x=16, X=32
+0                   requires 0 in unused space (alignment/justification)
+[if]?[<>]           slot justification (i=int, f=float, both if ommitted)
+[{}]                frame begin/end (= fp/sp)
+
+
+Areas
+
+r([0-9]+|(%[a-z0-9])+)        register save area, number is (aligned) slot count or alternatively names of registers in order
+s([0-9]+|(%[a-z0-9])+)        spill area, "
+n[0-9]+                       null/unused, number is aligned slot count
+l[0-9]+                       local data, number is minium aligned slot count
+p([0-9]+|([if][<>1248xX]?)+)  stack params, number is aligned slot count or alternatively float/int specs (with alignment/justification specifiers, if difference from global setting) @@@ this is an n-element space, so not sure if the hard specification of count/type makes any sense, here
+L                             link address
+@@@ needed?: S[0-9]+          special, "
+
+
+conditionals:
+
+
+
+
+see also wacom's #pragma aux, e.g.:
+ #pragma aux __mycall "_!" \                 mangle with _prefix and lowercase
+                parm caller [eax ecx] \      use eax and ecx for params
+                value [edx] \                return in edx
+                modify [eax ecx edx]         eax, ecx and edx are scratch
+
+more: https://users.pja.edu.pl/~jms/qnx/help/watcom/compiler-tools/pragma32.html
+

data/dyncall/configure

@@ -5,7 +5,7 @@ cat <<EOF
 usage: $0 --<option>=<value> <var>=<value> ..
 
   --prefix=<dir>
-  --target=<platform>       uname/special targets: MacOSX,iOS,iPhoneSimulator
+  --target=<platform>       uname/special targets: macos,iOS,iPhoneSimulator
                             use "?" to get a list of explicitly specifiable
                             targets
   --sdk=<version>           Mac OS X/iOS SDK version (e.g. '6.1' or '10.9.3')
@@ -91,12 +91,17 @@ case ${TARGET:=`uname`} in
     ;;
   FreeBSD)
     if [ -z "${CFLAGS}" ]; then
-      printf "CFLAGS=-fPIC\n" >>$C
+      if [ `uname -m` = "mips" ] && make -V MACHINE_ARCH | grep 'hf$' >/dev/null 2>&1; then
+        # FBSD12-CURRENT/mipshf needs to be told explicitly to use -mhard-float (at least as of may 2018)
+        printf "CFLAGS=-fPIC -mhard-float\n" >>$C
+      else
+        printf "CFLAGS=-fPIC\n" >>$C
+      fi
     fi
     printf "LDLIBS=-lm\n" >>$C
     printf "RM=rm -f\n" >>$C
     ;;
-  MacOSX|Darwin)
+  MacOSX|macos|Darwin)
     # if Apple's libtool (not to be confused with GNU's) is available, which is according to libtool(1) "with -static [...] intended
     # to replace ar(5) and ranlib", use it - if it is shadowed by some install of GNU's libtool assume that a foreign environment is
     # intentionally used, and fall back to using 'ar rs' (the equivalent to 'libtool -static'), for compatibility:
@@ -111,18 +116,21 @@ case ${TARGET:=`uname`} in
       printf "CC=gcc\n" >>$C
     elif [ -z ${SDK} ]; then
       case `sw_vers -productVersion` in
-        10.4.*)
+        10.4.*)                             # == tiger (10.4.*)
           ARCHS="-arch ppc -arch i386 -arch x86_64" 
           ;;
-        10.5.*)
+        10.5.*)                             # == leopard (10.5.*)
           ARCHS="-arch i386 -arch x86_64 -arch ppc"
           ;;
-        10.6.*)
-          ARCHS="-arch i386 -arch x86_64"
+        10.6.*)                             # == snow leopard (10.6.*)
+          ARCHS="-arch i386 -arch x86_64"   # no more ppc
           ;;
-        10.[789].*|10.1?.*|10.1?)
+        10.[789].*|10.1[0123].*|10.1[0123]) # >= lion (10.7.*), <= high sierra (10.13.*)
           ARCHS="-arch x86_64 -arch i386"
           ;;
+        10.1?.*|10.1?)                      # >= mojave (10.14.*)
+          ARCHS="-arch x86_64"              # mojave is final os to run x86 code, but removed build support for it
+          ;;
       esac
       printf "ASFLAGS=${ARCHS}\n" >>$C
       printf "CFLAGS=${ARCHS}\n" >>$C
@@ -147,7 +155,7 @@ case ${TARGET:=`uname`} in
         [67].*)
           ARCHS="-arch armv7"
           ;;
-        [89].*)
+        [89].*|1[0-9].*)
           ARCHS="-arch armv7 -arch arm64"
           ;;
       esac

data/dyncall/configure.bat

@@ -56,7 +56,7 @@ IF [%1]==[] (
 	ECHO.  /prefix-bd PATH   set build directory prefix ^(GNU make only^)
 	ECHO.                    ^(only for use with gmake^)
 	ECHO.
-	ECHO.  /target-x86       build for x86 architecture ^(default^)
+	ECHO.  /target-x86       build for x86 architecture
 	ECHO.  /target-x64       build for x64 architecture
 	ECHO.  /target-psp       build for PlayStation Portable ^(homebrew SDK^)
 	ECHO.  /target-nds-arm   build for Nintendo DS ^(devkitPro, ARM mode^)

data/dyncall/dyncall/dyncall.h

@@ -6,7 +6,7 @@
  Description: public header for library dyncall
  License:
 
-   Copyright (c) 2007-2018 Daniel Adler <dadler@uni-goettingen.de>, 
+   Copyright (c) 2007-2020 Daniel Adler <dadler@uni-goettingen.de>, 
                            Tassilo Philipp <tphilipp@potion-studios.com>
 
    Permission to use, copy, modify, and distribute this software for any
@@ -83,6 +83,7 @@ typedef struct DCstruct_    DCstruct;
 #define DC_CALL_SYS_DEFAULT           200
 #define DC_CALL_SYS_X86_INT80H_LINUX  201
 #define DC_CALL_SYS_X86_INT80H_BSD    202
+#define DC_CALL_SYS_X64_SYSCALL_SYSV  204
 #define DC_CALL_SYS_PPC32             210
 #define DC_CALL_SYS_PPC64             211
 

data/dyncall/dyncall/dyncall_call.S

@@ -67,7 +67,15 @@
 #  elif defined(DC__Arch_PPC64)
 #    include "dyncall_call_ppc64.S"
 #  elif defined(DC__Arch_MIPS) || defined(DC__Arch_MIPS64)
-#    include "dyncall_call_mips_gas.S"
+#    if defined(DC__ABI_MIPS_O32)
+#      include "dyncall_call_mips_o32.S"
+#    elif defined(DC__ABI_MIPS_N64)
+#      include "dyncall_call_mips_n64.S"
+#    elif defined(DC__ABI_MIPS_N32)
+#      include "dyncall_call_mips_n32.S"
+#    else
+#      include "dyncall_call_mips_eabi_gas.s"
+#    endif
 #  elif defined(DC__Arch_Sparc64)
 #    include "dyncall_call_sparc64.s"
 #  elif defined(DC__Arch_Sparc)

data/dyncall/dyncall/dyncall_call_mips_n32.S

@@ -0,0 +1,192 @@
+/*
+
+ Package: dyncall
+ Library: dyncall
+ File: dyncall/dyncall_call_mips_n32.S
+ Description: mips64 "n32" abi call kernel implementation in GNU Assembler
+ License:
+
+   Copyright (c) 2007-2018 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.
+
+*/
+
+	.section .mdebug.abiN32
+	.previous
+	.abicalls
+	.text
+	.align  2
+	.globl  dcCall_mips_n32
+	.ent    dcCall_mips_n32
+dcCall_mips_n32:
+
+	/* Stack-frame prolog */
+
+	.frame  $fp,64,$31   /* vars=16, regs=3/0, args=0, extra=16 */
+	.mask   0xd0000000,-8
+	.fmask  0x00000000,0
+	subu    $sp,$sp,64
+	sd      $31,48($sp)  /* save return address register (ra) */
+	sd      $30,40($sp)  /* save frame pointer register (fp) */
+	sd      $28,32($sp)  /* save global pointer register (gp) */
+	move    $fp,$sp
+
+
+	/* arguments: */
+
+	/* $4 target function */
+	/* $5 register data */
+	/* $6 stack size */
+	/* $7 stack data */
+	
+
+	/* allocate argument stack space */
+
+	subu    $sp, $sp, $6
+	
+	/* copy stack data */
+
+	/* n32 abi call assumptions:
+	   - stack data is 16-byte aligned.
+	   - no extra-storage for arguments passed via registers.
+	*/
+
+	/* $12  source pointer (parameter stack data) */
+	/* $14  destination (stack pointer) */
+	/* $6   byte count */
+
+	move    $12, $7
+	move    $14, $sp
+
+.next:
+	beq     $6, $0, .skip
+	nop
+	daddiu  $6, $6, -8
+	ld      $2, 0($12)
+	sd      $2, 0($14)
+	daddiu  $12,$12, 8
+	daddiu  $14,$14, 8
+	b       .next
+.skip:
+	move    $25, $4
+
+	/* load registers */
+
+	/* locals: */
+	/* $13 = register data */
+	/* $14 = useDouble flags */
+	move    $13, $5
+	ld      $14, 128($13)
+	
+	/* load integer parameter registers */
+
+	ld      $4 , 0($13)
+	ld      $5 , 8($13)
+	ld      $6 ,16($13)
+	ld      $7 ,24($13)
+	ld      $8 ,32($13)
+	ld      $9 ,40($13)
+	ld      $10,48($13)
+	ld      $11,56($13)
+
+	/* load float-or-double floating pointer parameter registers 
+	   a 64-bit bitmask given at byte offset 128 of regdata indicates
+	   if loading a float (bit cleared) or double (bit set), starting
+	   at bit position 0 in bitmask.
+	*/
+.t0:
+	and     $15, $14, 1
+	bgtz    $15, .d0
+.f0:
+	l.s     $f12, 64($13)
+	j       .t1
+.d0:
+	l.d     $f12, 64($13)
+
+.t1:
+	and     $15, $14, 2
+	bgtz    $15, .d1
+.f1:
+	l.s     $f13, 72($13)
+	j       .t2
+.d1:
+	l.d     $f13, 72($13)
+.t2:
+	and     $15, $14, 4
+	bgtz    $15, .d2
+.f2:
+	l.s     $f14, 80($13)
+	j       .t3
+.d2:
+	l.d     $f14, 80($13)
+.t3:
+	and     $15, $14, 8
+	bgtz    $15, .d3
+.f3:
+	l.s     $f15, 88($13)
+	j       .t4
+.d3:
+	l.d     $f15, 88($13)
+.t4:
+	and     $15, $14, 16
+	bgtz    $15, .d4
+.f4:
+	l.s     $f16, 96($13)
+	j       .t5
+.d4:
+	l.d     $f16, 96($13)
+.t5:
+	and     $15, $14, 32
+	bgtz    $15, .d5
+.f5:
+	l.s     $f17,104($13)
+	j       .t6
+.d5:
+	l.d     $f17,104($13)
+.t6:
+	and     $15, $14, 64
+	bgtz    $15, .d6
+.f6:
+	l.s     $f18,112($13)
+	j       .t7
+.d6:
+	l.d     $f18,112($13)
+.t7:
+	and     $15, $14, 128
+	bgtz    $15, .d7
+.f7:
+	l.s     $f19,120($13)
+	j       .fregend
+.d7:
+	l.d     $f19,120($13)
+
+.fregend:
+
+	/* jump-and-link to register $25 */
+
+	jal     $31, $25
+	nop /* branch-delay slot - no nop according to gcc assembly */
+	    /* output, but let's play safe */
+
+	/* Stack-frame epilog */
+	move    $sp,$fp 
+	ld      $31,48($sp)  /* restore ra register */
+	ld      $fp,40($sp)  /* restore fp register */
+	ld      $28,32($sp)  /* restore gp register */
+	daddu   $sp,$sp,64
+	j       $31
+	.end    dcCall_mips_n64
+	.size   dcCall_mips_n64, .-dcCall_mips_n64
+