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
|
#################################################################
# #
# Copyright 2001, 2006 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_equnul.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "mval_def.si"
.sbttl op_equnul
# PAGE +
.DATA
.extern undef_inhibit
.text
.extern underr
# PUBLIC op_equnul
ENTRY op_equnul
mv_if_notdefined %eax, l3
testw $mval_m_str,mval_w_mvtype(%eax)
je l2
cmpl $0,mval_l_strlen(%eax)
jne l2
l1: movl $1,%eax
cmpl $0,%eax
ret
l2: movl $0,%eax
cmpl $0,%eax
ret
l3: cmpb $0,undef_inhibit # not defined
jne l1 # if undef_inhibit, then all undefined
# values are equal to null string
pushl %eax # really undef
call underr
addl $4,%esp
ret
# op_equnul ENDP
# END
|
