fis-gtm/sr_x86_64/mval2bool.s

44 lines
978 B
ArmAsm

#################################################################
# #
# Copyright 2007, 2008 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 mval2bool.s
# .386
# .MODEL FLAT, C
.include "g_msf.si"
.include "linkage.si"
.INCLUDE "mval_def.si"
.sbttl mval2bool
# PAGE +
# --------------------------------
# mval2bool.s
# Convert mval to bool
# --------------------------------
# edx - src. mval
.text
.extern s2n
# PUBLIC mval2bool
ENTRY mval2bool
mv_force_defined REG_RET1, isdefined
pushq REG_RET1
mv_force_num REG_RET1, skip_conv
popq REG_RET1
cmpl $0,mval_l_m1(REG_RET1) #set condition of flag refgister
ret
# mval2bool ENDP
# END