← Back to branch summary

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

« back to all changes in this revision

Viewing changes to callback/trampoline_r/tramp-powerpc.new.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:
callback/trampoline_r/tramp-powerpc.new.S
 
1
/* Trampoline for powerpc CPU with AIX calling convention */
 
2
 
 
3
/*
 
4
 * Copyright 1995-2006 Bruno Haible, <bruno@clisp.org>
 
5
 *
 
6
 * This is free software distributed under the GNU General Public Licence
 
7
 * described in the file COPYING. Contact the author if you don't have this
 
8
 * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
 
9
 * on this software.
 
10
 */
 
11
 
 
12
/* Available registers: r0, r12, r11, r10, r9, r8, r7, r6, r5, r4, r3. */
 
13
/* However, r0 is special in that it cannot be used as a base register. */
 
14
/* And r3...r10 should not be clobbered because they contain the first 8
 
15
 * integer arguments to the function being called. */
 
16
 
 
17
        .globl tramp_r
 
18
        .globl .tramp_r
 
19
.csect tramp_r[DS]
 
20
tramp_r:
 
21
        .long .tramp_r, 0, 0
 
22
.csect .text[PR]
 
23
.tramp_r:
 
24
/* Move <data> into register r11 */
 
25
        lwz 11,0(2)     /* get <data> */
 
26
/* Get <function> */
 
27
        lwz 12,4(2)
 
28
/*
 
29
 * gcc-2.6.3 source says:
 
30
 * A function pointer is a pointer to a data area whose first word contains
 
31
 * the actual address of the function, whose second word contains a pointer
 
32
 * to its TOC, and whose third word contains a value to place in the static
 
33
 * chain register (r11). But we have already placed our information in r11.
 
34
 */
 
35
/*      lwz 11,8(12)       pass static chain in r11 */
 
36
        lwz 2,4(12)     /* pass TOC in r2 */
 
37
        lwz 0,0(12)     /* actual code address */
 
38
        mtctr 0
 
39
        bctr
 
40
 
 
41
_section_.text:
 
42
.csect .data[RW]
 
43
        .long _section_.text