libffi/src/m88k/obsd.S

   1 /*
   2  * Copyright (c) 2013 Miodrag Vallat.  <miod@openbsd.org>
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining
   5  * a copy of this software and associated documentation files (the
   6  * ``Software''), to deal in the Software without restriction, including
   7  * without limitation the rights to use, copy, modify, merge, publish,
   8  * distribute, sublicense, and/or sell copies of the Software, and to
   9  * permit persons to whom the Software is furnished to do so, subject to
  10  * the following conditions:
  11  *
  12  * The above copyright notice and this permission notice shall be included
  13  * in all copies or substantial portions of the Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND,
  16  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  18  * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  19  * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  20  * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  21  * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  22  */
  23
  24 /*
  25  * m88k Foreign Function Interface
  26  */
  27
  28 #define LIBFFI_ASM
  29 #include <fficonfig.h>
  30 #include <ffi.h>
  31
  32         .text
  33
  34 /*
  35  * ffi_cacheflush_OBSD(unsigned int addr,       %r2
  36  *                     unsigned int size);      %r3
  37  */
  38         .align  4
  39         .globl  ffi_cacheflush_OBSD
  40         .type   ffi_cacheflush_OBSD,@function
  41 ffi_cacheflush_OBSD:
  42         tb0     0,   %r0, 451
  43         or      %r0, %r0, %r0
  44         jmp     %r1
  45         .size   ffi_cacheflush_OBSD, . - ffi_cacheflush_OBSD
  46
  47 /*
  48  * ffi_call_OBSD(unsigned bytes,                %r2
  49  *               extended_cif *ecif,            %r3
  50  *               unsigned flags,                %r4
  51  *               void *rvalue,                  %r5
  52  *               void (*fn)());                 %r6
  53  */
  54         .align  4
  55         .globl  ffi_call_OBSD
  56         .type   ffi_call_OBSD,@function
  57 ffi_call_OBSD:
  58         subu    %r31, %r31, 32
  59         st      %r30, %r31, 4
  60         st      %r1,  %r31, 0
  61         addu    %r30, %r31, 32
  62
  63         | Save the few arguments we'll need after ffi_prep_args()
  64         st.d    %r4, %r31, 8
  65         st      %r6, %r31, 16
  66
  67         | Allocate room for the image of r2-r9, and the stack space for
  68         | the args (rounded to a 16-byte boundary)
  69         addu    %r2,  %r2,  (8 * 4) + 15
  70         clr     %r2,  %r2,  4<0>
  71         subu    %r31, %r31, %r2
  72
  73         | Fill register and stack image
  74         or      %r2, %r31, %r0
  75 #ifdef PIC
  76         bsr     ffi_prep_args#plt
  77 #else
  78         bsr     ffi_prep_args
  79 #endif
  80
  81         | Save pointer to return struct address, if any
  82         or      %r12, %r2, %r0
  83
  84         | Get function pointer
  85         subu    %r4,  %r30, 32
  86         ld      %r1,  %r4,  16
  87
  88         | Fetch the register arguments
  89         ld.d    %r2, %r31, (0 * 4)
  90         ld.d    %r4, %r31, (2 * 4)
  91         ld.d    %r6, %r31, (4 * 4)
  92         ld.d    %r8, %r31, (6 * 4)
  93         addu    %r31, %r31, (8 * 4)
  94
  95         | Invoke the function
  96         jsr     %r1
  97
  98         | Restore stack now that we don't need the args anymore
  99         subu    %r31, %r30, 32
 100
 101         | Figure out what to return as the function's return value
 102         ld      %r5, %r31, 12           | rvalue
 103         ld      %r4, %r31, 8            | flags
 104
 105         bcnd    eq0, %r5, 9f
 106
 107         bb0     0, %r4, 1f              | CIF_FLAGS_INT
 108         st      %r2, %r5, 0
 109         br      9f
 110
 111 1:
 112         bb0     1, %r4, 1f              | CIF_FLAGS_DINT
 113         st.d    %r2, %r5, 0
 114         br      9f
 115
 116 1:
 117 9:
 118         ld      %r1,  %r31, 0
 119         ld      %r30, %r31, 4
 120         jmp.n   %r1
 121          addu   %r31, %r31, 32
 122         .size   ffi_call_OBSD, . - ffi_call_OBSD
 123
 124 /*
 125  * ffi_closure_OBSD(ffi_closure *closure);      %r13
 126  */
 127         .align  4
 128         .globl  ffi_closure_OBSD
 129         .type   ffi_closure_OBSD, @function
 130 ffi_closure_OBSD:
 131         subu    %r31, %r31, 16
 132         st      %r30, %r31, 4
 133         st      %r1,  %r31, 0
 134         addu    %r30, %r31, 16
 135
 136         | Make room on the stack for saved register arguments and return
 137         | value
 138         subu    %r31, %r31, (8 * 4) + (2 * 4)
 139         st.d    %r2,  %r31, (0 * 4)
 140         st.d    %r4,  %r31, (2 * 4)
 141         st.d    %r6,  %r31, (4 * 4)
 142         st.d    %r8,  %r31, (6 * 4)
 143
 144         | Invoke the closure function
 145         or      %r5,  %r30, 0                   | calling stack
 146         addu    %r4,  %r31, 0                   | saved registers
 147         addu    %r3,  %r31, (8 * 4)             | return value
 148         or      %r2,  %r13, %r0                 | closure
 149 #ifdef PIC
 150         bsr     ffi_closure_OBSD_inner#plt
 151 #else
 152         bsr     ffi_closure_OBSD_inner
 153 #endif
 154
 155         | Figure out what to return as the function's return value
 156         bb0     0, %r2, 1f              | CIF_FLAGS_INT
 157         ld      %r2, %r31, (8 * 4)
 158         br      9f
 159
 160 1:
 161         bb0     1, %r2, 1f              | CIF_FLAGS_DINT
 162         ld.d    %r2, %r31, (8 * 4)
 163         br      9f
 164
 165 1:
 166 9:
 167         subu    %r31, %r30, 16
 168         ld      %r1,  %r31, 0
 169         ld      %r30, %r31, 4
 170         jmp.n   %r1
 171          addu   %r31, %r31, 16
 172         .size   ffi_closure_OBSD,.-ffi_closure_OBSD
 173
 174 /*
 175  * ffi_closure_struct_OBSD(ffi_closure *closure);       %r13
 176  */
 177         .align  4
 178         .globl  ffi_closure_struct_OBSD
 179         .type   ffi_closure_struct_OBSD, @function
 180 ffi_closure_struct_OBSD:
 181         subu    %r31, %r31, 16
 182         st      %r30, %r31, 4
 183         st      %r1,  %r31, 0
 184         addu    %r30, %r31, 16
 185
 186         | Make room on the stack for saved register arguments
 187         subu    %r31, %r31, (8 * 4)
 188         st.d    %r2,  %r31, (0 * 4)
 189         st.d    %r4,  %r31, (2 * 4)
 190         st.d    %r6,  %r31, (4 * 4)
 191         st.d    %r8,  %r31, (6 * 4)
 192
 193         | Invoke the closure function
 194         or      %r5,  %r30, 0                   | calling stack
 195         addu    %r4,  %r31, 0                   | saved registers
 196         or      %r3,  %r12, 0                   | return value
 197         or      %r2,  %r13, %r0                 | closure
 198 #ifdef PIC
 199         bsr     ffi_closure_OBSD_inner#plt
 200 #else
 201         bsr     ffi_closure_OBSD_inner
 202 #endif
 203
 204         subu    %r31, %r30, 16
 205         ld      %r1,  %r31, 0
 206         ld      %r30, %r31, 4
 207         jmp.n   %r1
 208          addu   %r31, %r31, 16
 209         .size   ffi_closure_struct_OBSD,.-ffi_closure_struct_OBSD