/*
* Copyright (c) 2008-2024 Jonathan Schleifer <js@nil.im>
*
* All rights reserved.
*
* This program is free software: you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License version 3.0 only,
* as published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License
* version 3.0 for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* version 3.0 along with this program. If not, see
* <https://www.gnu.org/licenses/>.
*/
#include "config.h"
#include "platform.h"
.globl objc_msg_lookup
.globl objc_msg_lookup_stret
.globl objc_msg_lookup_super
.globl objc_msg_lookup_super_stret
.section .text
.macro GENERATE_LOOKUP name notFound
\name:
beqz $a0, 0f
andi $t0, $a0, 1
bnez $t0, .LtaggedPointer_\name
ld $t0, ($a0)
ld $t0, 64($t0)
.Lmain_\name:
#ifdef OF_BIG_ENDIAN
# ifdef OF_SELUID24
lbu $t1, 5($a1)
# endif
lbu $t2, 6($a1)
lbu $t3, 7($a1)
#else
# ifdef OF_SELUID24
lbu $t1, 2($a1)
# endif
lbu $t2, 1($a1)
lbu $t3, ($a1)
#endif
#ifdef OF_SELUID24
sll $t1, $t1, 3
#endif
sll $t2, $t2, 3
sll $t3, $t3, 3
#ifdef OF_SELUID24
daddu $t0, $t0, $t1
ld $t0, ($t0)
#endif
daddu $t0, $t0, $t2
ld $t0, ($t0)
daddu $t0, $t0, $t3
ld $t0, ($t0)
beqz $t0, 1f
move $v0, $t0
jr $ra
0:
lui $v0, %hi(%neg(%gp_rel(\name)))
daddiu $v0, $v0, %lo(%neg(%gp_rel(\name)))
daddu $v0, $v0, $t9
ld $v0, %got_disp(.LnilMethod)($v0)
jr $ra
1:
lui $t0, %hi(%neg(%gp_rel(\name)))
daddiu $t0, $t0, %lo(%neg(%gp_rel(\name)))
daddu $t0, $t0, $t9
ld $t9, %got_disp(\notFound)($t0)
jr $t9
.LtaggedPointer_\name:
lui $t0, %hi(%neg(%gp_rel(\name)))
daddiu $t0, $t0, %lo(%neg(%gp_rel(\name)))
daddu $t0, $t0, $t9
ld $t1, %got_disp(objc_taggedPointerSecret)($t0)
ld $t1, 0($t1)
xor $t1, $a0, $t1
and $t1, $t1, 0xE
dsll $t1, $t1, 2
ld $t0, %got_disp(objc_taggedPointerClasses)($t0)
daddu $t0, $t0, $t1
ld $t0, ($t0)
ld $t0, 64($t0)
b .Lmain_\name
.type \name, %function
.size \name, .-\name
.endm
.macro GENERATE_LOOKUP_SUPER name lookup
\name:
move $t0, $a0
ld $a0, ($a0)
beqz $a0, 0f
ld $t0, 8($t0)
ld $t0, 64($t0)
daddiu $t9, $t9, \lookup-\name
b .Lmain_\lookup
0:
lui $v0, %hi(%neg(%gp_rel(\name)))
daddiu $v0, $v0, %lo(%neg(%gp_rel(\name)))
daddu $v0, $v0, $t9
ld $v0, %got_disp(.LnilMethod)($v0)
jr $ra
.type \name, %function
.size \name, .-\name
.endm
GENERATE_LOOKUP objc_msg_lookup objc_methodNotFound
GENERATE_LOOKUP objc_msg_lookup_stret objc_methodNotFound_stret
GENERATE_LOOKUP_SUPER objc_msg_lookup_super objc_msg_lookup
GENERATE_LOOKUP_SUPER objc_msg_lookup_super_stret objc_msg_lookup_stret
.LnilMethod:
move $v0, $zero
jr $ra
#if defined(OF_LINUX) || defined(OF_HAIKU) || defined(OF_HURD)
.section .note.GNU-stack, "", %progbits
#endif