Subversion Repositories open8_urisc

        # 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