xref: /AOO41X/main/bridges/source/cpp_uno/cc50_solaris_sparc/call.s (revision d2748020ce41a64ef548fe1dae7ba98cbf99a183)
1!\**************************************************************
2! *
3! * Licensed to the Apache Software Foundation (ASF) under one
4! * or more contributor license agreements.  See the NOTICE file
5! * distributed with this work for additional information
6! * regarding copyright ownership.  The ASF licenses this file
7! * to you under the Apache License, Version 2.0 (the
8! * "License"); you may not use this file except in compliance
9! * with the License.  You may obtain a copy of the License at
10! *
11! *   http://www.apache.org/licenses/LICENSE-2.0
12! *
13! * Unless required by applicable law or agreed to in writing,
14! * software distributed under the License is distributed on an
15! * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16! * KIND, either express or implied.  See the License for the
17! * specific language governing permissions and limitations
18! * under the License.
19! *
20! *************************************************************/
21
22.global privateSnippetExecutor
23.type privateSnippetExecutor,2
24privateSnippetExecutor:
25        ! save %sp, -96, %sp  already done in code snippet
26        st %i0, [%fp+68]
27        st %i1, [%fp+72]
28        st %i2, [%fp+76]
29        st %i3, [%fp+80]
30        st %i4, [%fp+84]
31        st %i5, [%fp+88]
32        ! %o0: functionIndex, stored by code snippet
33        ! %o1: vtableOffset, stored by code snippet
34        call cpp_vtable_call
35        add %fp, 68, %o2
36.privateSnippetExecutorExceptionPosition:
37        subcc %o0, 11, %g0
38        be .double
39        subcc %o0, 10, %g0
40        be .float
41        ld [%fp+72], %i0
42        ld [%fp+76], %i1
43        ret
44        restore
45.double:
46        ldd [%fp+72], %f0
47        ret
48        restore
49.float:
50        ld [%fp+72], %f0
51        ret
52        restore
53.size privateSnippetExecutor,(.-privateSnippetExecutor)
54.align 8
55
56
57.global callVirtualMethod
58.type callVirtualMethod,2
59callVirtualMethod:
60        ! allocate FIRST stack to have own local registers
61        sethi        %hi(-96), %g1
62        or       %g1, %lo(-96), %g1
63        subcc        %g1, %o5, %g1
64        subcc        %g1, %o5, %g1
65        subcc        %g1, %o5, %g1
66        subcc        %g1, %o5, %g1
67        save        %sp, %g1, %sp
68        ! copy stack longs if necessary
69        subcc       %i5, 6, %l5
70        ble     .copyRegisters
71        nop
72
73        ! prepare source location
74        add     %i4, 24, %l4
75
76        ! prepare real stack
77        add     %sp, 92, %l3
78
79.copyLong:
80        ld      [%l4+0], %l0
81        st      %l0, [%l3]
82        add     %l4, 4, %l4
83        add     %l3, 4, %l3
84        deccc       %l5
85        bne     .copyLong
86        nop
87.copyRegisters:
88        mov     %i5, %l5
89        mov     %i4, %l4
90
91        ld      [%l4], %o0
92        add     %l4, 4, %l4
93        deccc       %l5
94        ble     .doCall
95
96        ld      [%l4], %o1
97        add     %l4, 4, %l4
98        deccc       %l5
99        ble     .doCall
100
101        ld      [%l4], %o2
102        add     %l4, 4, %l4
103        deccc       %l5
104        ble     .doCall
105
106        ld          [%l4], %o3
107        add     %l4, 4, %l4
108        deccc       %l5
109        ble     .doCall
110
111        ld          [%l4], %o4
112        add     %l4, 4, %l4
113        deccc       %l5
114        ble     .doCall
115
116        ld          [%l4], %o5
117        add     %l4, 4, %l4
118
119        ! prepare complex return pointer
120        st          %i2, [%sp+64]
121.doCall:
122        ! get virtual table entry
123        mov     %i1, %l1
124        add     %l1, 2, %l1
125        sll     %l1, 2, %l1
126        ld          [%i0], %l3
127        add     %l3, %l1, %l1
128        ld          [%l1], %l0
129        jmpl        %l0,%o7
130        nop
131.callVirtualMethodExceptionPosition:
132        ! handle returns
133
134        !byte types
135        subcc %i3, 2, %l3       ! typelib_TypeClass_BOOLEAN
136        be .handleByte
137        subcc %i3, 3, %l3       ! typelib_TypeClass_BYTE
138        be .handleByte
139
140        ! half word types
141        subcc %i3, 4, %l3       ! typelib_TypeClass_SHORT
142        be .handleShort
143        subcc %i3, 5, %l3       ! typelib_TypeClass_UNSIGNED_SHORT
144        be .handleShort
145        subcc %i3, 1, %l3       ! typelib_TypeClass_CHAR (sal_Unicode==sal_uInt16)
146        be .handleShort
147
148        ! word types
149        subcc %i3, 6, %l3       ! typelib_TypeClass_LONG
150        be .handleWord
151        subcc %i3, 7, %l3       ! typelib_TypeClass_UNSIGNED_LONG
152        be .handleWord
153        subcc %i3, 15, %l3  ! typelib_TypeClass_ENUM
154        be .handleWord
155
156        ! double word types
157        subcc %i3, 8, %l3       ! typelib_TypeClass_HYPER
158        be .handleDoubleWord
159        subcc %i3, 9, %l3       ! typelib_TypeClass_UNSIGNED_HYPER
160        be .handleDoubleWord
161
162        ! float
163        subcc %i3, 10, %l3  ! typelib_TypeClass_FLOAT
164        be .handleFloat
165
166        ! double
167        subcc %i3, 11, %l3  ! typelib_TypeClass_DOUBLE
168        be .handleDouble
169
170        ! default: return void
171        nop                 ! empty prefetch
172        ba .doRestore
173        nop
174.handleByte:
175        stb %o0, [%i2]
176        ba .doRestore
177        nop
178.handleShort:
179        sth %o0, [%i2]
180        ba .doRestore
181        nop
182.handleWord:
183        st %o0, [%i2]
184        ba .doRestore
185        nop
186.handleDoubleWord:
187        st %o0, [%i2]
188        st %o1, [%i2+4]
189        ba .doRestore
190        nop
191.handleFloat:
192        st %f0, [%i2]
193        ba .doRestore
194        nop
195.handleDouble:
196        std %f0, [%fp-8]
197        ldd [%fp-8], %o0
198        st %o0, [%i2]
199        st %o1, [%i2+4]
200        ba .doRestore
201        nop
202.doRestore:
203        ret
204        restore ! stack frame for own locals
205.size callVirtualMethod,(.-callVirtualMethod)
206.align 8
207
208.rethrow_handler:
209        call    __1cG__CrunMex_rethrow_q6F_v_
210        nop
211
212.section    ".exception_ranges",#alloc
213.word       %r_disp32(.privateSnippetExecutorExceptionPosition)
214.word       0
215.word       .rethrow_handler-.privateSnippetExecutorExceptionPosition
216.word       0,0
217.word       %r_disp32(.callVirtualMethodExceptionPosition)
218.word       0
219.word       .rethrow_handler-.callVirtualMethodExceptionPosition
220.word       0,0
221