85 lines
1.9 KiB
ArmAsm
85 lines
1.9 KiB
ArmAsm
|
#################################################################
|
||
|
|
# #
|
||
|
|
# Copyright 2007, 2010 Fidelity Information Services, Inc #
|
||
|
|
# #
|
||
|
|
# This source code contains the intellectual property #
|
||
|
|
# of its copyright holder(s), and is made available #
|
||
|
|
# under a license. If you do not know the terms of #
|
||
|
|
# the license, please stop and do not read further. #
|
||
|
|
# #
|
||
|
|
#################################################################
|
||
|
|
|
||
|
|
# PAGE ,132
|
||
|
|
.title op_mprofextcall.s
|
||
|
|
|
||
|
|
# .386
|
||
|
|
# .MODEL FLAT, C
|
||
|
|
|
||
|
|
.include "linkage.si"
|
||
|
|
.INCLUDE "g_msf.si"
|
||
|
|
|
||
|
|
.sbttl op_mprofextcall
|
||
|
|
# PAGE +
|
||
|
|
.DATA
|
||
|
|
.extern ERR_GTMCHECK
|
||
|
|
.extern ERR_LABELUNKNOWN
|
||
|
|
.extern frame_pointer
|
||
|
|
|
||
|
|
.text
|
||
|
|
.extern auto_zlink
|
||
|
|
.extern new_stack_frame_sp
|
||
|
|
.extern rts_error
|
||
|
|
|
||
|
|
# PUBLIC op_mprofextcall
|
||
|
|
ENTRY op_mprofextcall
|
||
|
|
putframe
|
||
|
|
addq $8,REG_SP # burn the saved return pc
|
||
|
|
movq REG64_ARG0,REG64_ARG2
|
||
|
|
movq REG64_ARG1,REG64_ACCUM
|
||
|
|
cmpq $0,REG64_ARG0
|
||
|
|
je l2
|
||
|
|
cmpq $0,REG64_ARG1
|
||
|
|
je l4
|
||
|
|
|
||
|
|
l1: movq (REG64_ARG1),REG64_ACCUM
|
||
|
|
cmpq $0,REG64_ACCUM
|
||
|
|
je l4
|
||
|
|
movslq 0(REG64_ACCUM),REG64_ACCUM
|
||
|
|
movq mrt_ptext_adr(REG64_ARG0),REG64_ARG1
|
||
|
|
addq REG64_ARG1,REG64_ACCUM
|
||
|
|
movq REG64_ACCUM,REG64_ARG2
|
||
|
|
movq mrt_lnk_ptr(REG64_ARG0),REG64_ARG1
|
||
|
|
call new_stack_frame_sp
|
||
|
|
getframe
|
||
|
|
ret
|
||
|
|
|
||
|
|
l2: cmpq $0,REG64_ARG1
|
||
|
|
jne l4
|
||
|
|
subq $8,REG_SP
|
||
|
|
movq REG_SP,REG64_ARG1
|
||
|
|
movq frame_pointer(REG_IP),REG64_ACCUM
|
||
|
|
movq msf_mpc_off(REG64_ACCUM),REG64_ARG0
|
||
|
|
call auto_zlink
|
||
|
|
cmpq $0,REG64_RET0
|
||
|
|
je l3
|
||
|
|
movq REG64_RET0,REG64_ARG0
|
||
|
|
popq REG64_ARG1
|
||
|
|
cmpq $0,REG64_ACCUM
|
||
|
|
jne l1
|
||
|
|
l3: movl ERR_GTMCHECK(REG_IP),REG32_ARG1
|
||
|
|
movl $1,REG32_ARG0
|
||
|
|
movb $0,REG8_ACCUM # variable length argument
|
||
|
|
call rts_error
|
||
|
|
getframe
|
||
|
|
ret
|
||
|
|
|
||
|
|
l4: movl ERR_LABELUNKNOWN(REG_IP),REG32_ARG1
|
||
|
|
movl $1,REG32_ARG0
|
||
|
|
movb $0,REG8_ACCUM # variable length argument
|
||
|
|
call rts_error
|
||
|
|
getframe
|
||
|
|
ret
|
||
|
|
# op_mprofextcall ENDP
|
||
|
|
|
||
|
|
# END
|