1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#################################################################
# #
# 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 op_forcenum.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "mval_def.si"
.sbttl op_forcenum
# PAGE +
.text
.extern s2n
# edx - source mval
# eax - destination mval
# PUBLIC op_forcenum
ENTRY op_forcenum
pushl %eax
mv_force_defined %edx, l00
pushl %edx
mv_force_num %edx, l10
popl %edx
popl %eax
testw $mval_m_str,mval_w_mvtype(%edx)
je l20
testw $mval_m_num_approx,mval_w_mvtype(%edx)
je l40
l20: testw $mval_m_int_without_nm,mval_w_mvtype(%edx)
je l30
movw $mval_m_int,mval_w_mvtype(%eax)
movl mval_l_m1(%edx),%edx
movl %edx,mval_l_m1(%eax)
ret
l30: pushl %ebx
movw $mval_m_nm,mval_w_mvtype(%eax)
movb mval_b_exp(%edx),%bl
movb %bl,mval_b_exp(%eax)
# Copy the only numeric part of Mval from [edx] to [eax].
movl mval_l_m0(%edx),%ebx
movl %ebx,mval_l_m0(%eax)
movl mval_l_m1(%edx),%ebx
movl %ebx,mval_l_m1(%eax)
popl %ebx
ret
l40:
# Copy the Mval from [edx] to [eax].
pushl %edi
pushl %esi
movl %eax,%edi
movl %edx,%esi
movl $mval_byte_len,%ecx
REP
movsb
popl %esi
popl %edi
ret
# op_forcenum ENDP
# END
|
