--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dyncallback/dyncall_thunk_ppc32_sysv.c	Thu Mar 19 22:24:28 2015 +0100
@@ -0,0 +1,50 @@
+/*
+
+ Package: dyncall
+ Library: dyncallback
+ File: dyncallback/dyncall_thunk_ppc32_sysv.c
+ Description: Thunks on PowerPC 32-bit System V ABI
+ License:
+
+   Copyright (c) 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_thunk.h"
+
+unsigned short hi16(x) { return ( (unsigned short) (((unsigned int)x)>>16UL) ); }
+unsigned short lo16(x) { return ( (unsigned short)  ((unsigned int)x)        ); }   
+
+void dcbInitThunk(DCThunk* p, void (*entry)())
+{
+/*
+   0:	3d 60 00 00 	lis     r11,0
+   4:	61 6b 00 01 	ori     r11,r11,1
+   8:	81 82 00 14 	lwz     r12,20(r2)
+   c:	7d 89 03 a6 	mtctr   r12
+  10:	4e 80 04 20 	bctr
+*/
+  p->code_load_hi = 0x3d60U;     /* lis  r11, HI16(p) */
+  p->addr_self_hi = hi16(p);
+  p->code_load_lo = 0x616bU; 	 /* ori  r11, r11, LO16(p) */
+  p->addr_self_lo = lo16(p);
+  p->code_jump[0] = 0x818b0014U; /* lwz   r12, 20(r11) */
+  p->code_jump[1] = 0x7d8903a6U; /* mtclr r12 */
+  p->code_jump[2] = 0x4e800420U; /* bctr */
+  p->addr_entry   = entry;
+
+}
+