fis-gtm/sr_i386/mval2mint.s

46 lines
972 B
ArmAsm

#################################################################
# #
# Copyright 2001, 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 mval2mint.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "mval_def.si"
.sbttl mval2mint
# PAGE +
# --------------------------------
# mval2mint.s
# Convert mval to int
# --------------------------------
# edx - source mval
# eax - destination mval
.text
.extern mval2i
.extern s2n
.extern underr
# PUBLIC mval2mint
ENTRY mval2mint
mv_force_defined %edx, l1
pushl %edx # preserve src + push it as arg
mv_force_num %edx, skip_conv
call mval2i
addl $4,%esp
ret
# mval2mint ENDP
# END