File ffcall/trampoline/tramp-s390.s from the latest check-in


/* Trampoline for s390 CPU */

/*
 * Copyright 1995 Bruno Haible, <bruno@clisp.org>
 * Copyright 2001 Gerhard Tonn, <gt@debian.org>
 *
 * This is free software distributed under the GNU General Public Licence
 * described in the file COPYING. Contact the author if you don't have this
 * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
 * on this software.
 */

/* Available registers: r0, r1. */

.globl _tramp
_tramp:
	lr	%r0,%r13
	bras    %r13,.LTN0_0
.LT0_0:
.LC0:
        .long   0x73554711
.LC1:
        .long   0x12345678
.LC2:
        .long   0xbabebec0
.LTN0_0:
        l       %r1,.LC0-.LT0_0(%r13)
        mvc     0(4,%r1),.LC1-.LT0_0(%r13)
        l       %r1,.LC2-.LT0_0(%r13)
	lr	%r13,%r0
        br      %r1