← Back to branch summary

~ubuntu-branches/debian/squeeze/ffcall/squeeze

« back to all changes in this revision

Viewing changes to ffcall/trampoline/tramp-s390.s

  • Committer: Bazaar Package Importer
  • Author(s): Christoph Egger
  • Date: 2010-06-26 15:29:30 UTC
  • mfrom: (5.1.1 experimental)
  • Revision ID: james.westby@ubuntu.com-20100626152930-c09y01gk3szcnykn
Tags: 1.10+cvs20100619-2
Ship to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
ffcall/trampoline/tramp-s390.s
1
 
/* Trampoline for s390 CPU */
2
 
 
3
 
/*
4
 
 * Copyright 1995 Bruno Haible, <bruno@clisp.org>
5
 
 * Copyright 2001 Gerhard Tonn, <gt@debian.org>
6
 
 *
7
 
 * This is free software distributed under the GNU General Public Licence
8
 
 * described in the file COPYING. Contact the author if you don't have this
9
 
 * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
10
 
 * on this software.
11
 
 */
12
 
 
13
 
/* Available registers: r0, r1. */
14
 
 
15
 
.globl _tramp
16
 
_tramp:
17
 
        lr      %r0,%r13
18
 
        bras    %r13,.LTN0_0
19
 
.LT0_0:
20
 
.LC0:
21
 
        .long   0x73554711
22
 
.LC1:
23
 
        .long   0x12345678
24
 
.LC2:
25
 
        .long   0xbabebec0
26
 
.LTN0_0:
27
 
        l       %r1,.LC0-.LT0_0(%r13)
28
 
        mvc     0(4,%r1),.LC1-.LT0_0(%r13)
29
 
        l       %r1,.LC2-.LT0_0(%r13)
30
 
        lr      %r13,%r0
31
 
        br      %r1