46 lines
972 B
ArmAsm
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
|