fis-gtm/sr_x86_64/op_mprofextcall.s

85 lines
1.9 KiB
ArmAsm
Raw Normal View History

#################################################################
# #
# 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