URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [ld/] [testsuite/] [ld-mips-elf/] [mips16-pic-1.inc] - Blame information for rev 184

Go to most recent revision | Details | Compare with Previous | View Log


        # Declare a function called NAME and an __fn_NAME stub for it.
        # Make the stub use la_TYPE to load the the target address into $2.
        .macro  stub,name,type
        .set    nomips16
        .section .mips16.fn.\name, "ax", @progbits
        .ent    __fn_\name
__fn_\name:
        la_\type \name
        mfc1    $4,$f12
        jr      $2
        nop
        .end    __fn_\name
 
        .set    mips16
        .text
        .ent    \name
\name:
__fn_local_\name:
        jr      $31
        nop
        .end    \name
        .endm
 
        # Like stub, but ensure NAME is a local symbol.
        .macro  lstub,name,type
        stub    \name, \type
        .equ    local_\name,1
        .endm
 
        # Like stub, but ensure NAME is a hidden symbol.
        .macro  hstub,name,type
        .globl  \name
        .hidden \name
        stub    \name, \type
        .endm
 
        # Like lstub, but make the MIPS16 function global rather than local.
        .macro  gstub,name,type
        .globl  \name
        stub    \name, \type
        .endm
 
        # Use an absolute sequence to load NAME into a register.
        .macro  la_noshared,name
        lui     $2,%hi(\name)
        addiu   $2,$2,%lo(\name)
        .endm
 
        # Use the normal PIC sequence to load __fn_local_NAME into $2
        # and emit a dummy relocation against NAME.  This macro is always
        # used at the start of a function.
        .macro  la_shared,name
        .reloc  0,R_MIPS_NONE,\name
        .cpload $25
        la      $2,__fn_local_\name
        .endm
 
        # Use TYPE (either LSTUB, HSTUB or GSTUB) to define functions
        # called a_NAME and b_NAME.  The former uses absolute accesses
        # and the latter uses PIC accesses.
        .macro  decl,name,type
        \type   a_\name, noshared
        \type   b_\name, shared
        .endm
 
        # Emit the MIPS16 PIC sequence for setting $28 from $25.
        # Make the value of $25 available in $2 as well.
        .macro  cpload_mips16
        li      $2,%hi(_gp_disp)
        addiu   $3,$pc,%lo(_gp_disp)
        sll     $2,16
        addu    $2,$2,$3
        move    $28,$2
        .endm
 
        # Likewise, but for non-MIPS16 code.
        .macro  cpload_nomips16
        .cpload $25
        move    $2,$28
        .endm
 
        # Start a PIC function in ISA mode MODE, which is either "mips16"
        # or "nomips16".
        .macro  pic_prologue,mode
        cpload_\mode
        addiu   $sp,$sp,-32
        sw      $2,16($sp)
        sw      $31,20($sp)
        .endm
 
        # Use a PIC function to call NAME.
        .macro  pic_call,name,mode
        .ifdef  local_\name
        .ifc    \mode,mips16
        lw      $2,%got(__fn_local_\name)($2)
        addiu   $2,%lo(__fn_local_\name)
        .else
        lw      $2,%got(\name)($2)
        addiu   $2,%lo(\name)
        .endif
        .else
        lw      $2,%call16(\name)($2)
        .endif
        jalr    $2
        move    $25,$2
        lw      $2,16($sp)
        move    $28,$2
        .endm
 
        # Finish a PIC function started by pic_prologue.
        .macro  pic_epilogue
        lw      $2,20($sp)
        jr      $2
        addiu   $sp,$sp,32
        .endm
 
        # Use PIC %call16 sequences to call a_NAME and b_NAME.
        # MODE selects the ISA mode of the code: either "mips16"
        # or "nomips16".
        .macro  callpic,name,mode
        .text
        .set    \mode
        .ent    callpic_\name\()_\mode
callpic_\name\()_\mode:
        pic_prologue \mode
        pic_call     a_\name,\mode
        pic_call     b_\name,\mode
        pic_epilogue
        .end    callpic_\name\()_\mode
        .endm
 
        # Use absolute jals to call a_NAME and b_NAME.  MODE selects the
        # ISA mode of the code: either "mips16" or "nomips16".
        .macro  jals,name,mode
        .text
        .set    \mode
        .ent    jals_\name\()_\mode
jals_\name\()_\mode:
        .option pic0
        jal     a_\name
        nop
 
        jal     b_\name
        nop
        .option pic2
        .end    jals_\name\()_\mode
        .endm

Line No.	Rev	Author	Line
1	84	khays	`# Declare a function called NAME and an __fn_NAME stub for it.`
2			`# Make the stub use la_TYPE to load the the target address into $2.`
3			`.macro stub,name,type`
4			`.set nomips16`
5			`.section .mips16.fn.\name, "ax", @progbits`
6			`.ent __fn_\name`
7			`__fn_\name:`
8			`la_\type \name`
9			`mfc1 $4,$f12`
10			`jr $2`
11			`nop`
12			`.end __fn_\name`
13
14			`.set mips16`
15			`.text`
16			`.ent \name`
17			`\name:`
18			`__fn_local_\name:`
19			`jr $31`
20			`nop`
21			`.end \name`
22			`.endm`
23
24			`# Like stub, but ensure NAME is a local symbol.`
25			`.macro lstub,name,type`
26			`stub \name, \type`
27			`.equ local_\name,1`
28			`.endm`
29
30			`# Like stub, but ensure NAME is a hidden symbol.`
31			`.macro hstub,name,type`
32			`.globl \name`
33			`.hidden \name`
34			`stub \name, \type`
35			`.endm`
36
37			`# Like lstub, but make the MIPS16 function global rather than local.`
38			`.macro gstub,name,type`
39			`.globl \name`
40			`stub \name, \type`
41			`.endm`
42
43			`# Use an absolute sequence to load NAME into a register.`
44			`.macro la_noshared,name`
45			`lui $2,%hi(\name)`
46			`addiu $2,$2,%lo(\name)`
47			`.endm`
48
49			`# Use the normal PIC sequence to load __fn_local_NAME into $2`
50			`# and emit a dummy relocation against NAME. This macro is always`
51			`# used at the start of a function.`
52			`.macro la_shared,name`
53			`.reloc 0,R_MIPS_NONE,\name`
54			`.cpload $25`
55			`la $2,__fn_local_\name`
56			`.endm`
57
58			`# Use TYPE (either LSTUB, HSTUB or GSTUB) to define functions`
59			`# called a_NAME and b_NAME. The former uses absolute accesses`
60			`# and the latter uses PIC accesses.`
61			`.macro decl,name,type`
62			`\type a_\name, noshared`
63			`\type b_\name, shared`
64			`.endm`
65
66			`# Emit the MIPS16 PIC sequence for setting $28 from $25.`
67			`# Make the value of $25 available in $2 as well.`
68			`.macro cpload_mips16`
69			`li $2,%hi(_gp_disp)`
70			`addiu $3,$pc,%lo(_gp_disp)`
71			`sll $2,16`
72			`addu $2,$2,$3`
73			`move $28,$2`
74			`.endm`
75
76			`# Likewise, but for non-MIPS16 code.`
77			`.macro cpload_nomips16`
78			`.cpload $25`
79			`move $2,$28`
80			`.endm`
81
82			`# Start a PIC function in ISA mode MODE, which is either "mips16"`
83			`# or "nomips16".`
84			`.macro pic_prologue,mode`
85			`cpload_\mode`
86			`addiu $sp,$sp,-32`
87			`sw $2,16($sp)`
88			`sw $31,20($sp)`
89			`.endm`
90
91			`# Use a PIC function to call NAME.`
92			`.macro pic_call,name,mode`
93			`.ifdef local_\name`
94			`.ifc \mode,mips16`
95			`lw $2,%got(__fn_local_\name)($2)`
96			`addiu $2,%lo(__fn_local_\name)`
97			`.else`
98			`lw $2,%got(\name)($2)`
99			`addiu $2,%lo(\name)`
100			`.endif`
101			`.else`
102			`lw $2,%call16(\name)($2)`
103			`.endif`
104			`jalr $2`
105			`move $25,$2`
106			`lw $2,16($sp)`
107			`move $28,$2`
108			`.endm`
109
110			`# Finish a PIC function started by pic_prologue.`
111			`.macro pic_epilogue`
112			`lw $2,20($sp)`
113			`jr $2`
114			`addiu $sp,$sp,32`
115			`.endm`
116
117			`# Use PIC %call16 sequences to call a_NAME and b_NAME.`
118			`# MODE selects the ISA mode of the code: either "mips16"`
119			`# or "nomips16".`
120			`.macro callpic,name,mode`
121			`.text`
122			`.set \mode`
123			`.ent callpic_\name\()_\mode`
124			`callpic_\name\()_\mode:`
125			`pic_prologue \mode`
126			`pic_call a_\name,\mode`
127			`pic_call b_\name,\mode`
128			`pic_epilogue`
129			`.end callpic_\name\()_\mode`
130			`.endm`
131
132			`# Use absolute jals to call a_NAME and b_NAME. MODE selects the`
133			`# ISA mode of the code: either "mips16" or "nomips16".`
134			`.macro jals,name,mode`
135			`.text`
136			`.set \mode`
137			`.ent jals_\name\()_\mode`
138			`jals_\name\()_\mode:`
139			`.option pic0`
140			`jal a_\name`
141			`nop`
142
143			`jal b_\name`
144			`nop`
145			`.option pic2`
146			`.end jals_\name\()_\mode`
147			`.endm`

Browse

Tools

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [ld/] [testsuite/] [ld-mips-elf/] [mips16-pic-1.inc] - Blame information for rev 184