File: op_sto.s

package info (click to toggle)
fis-gtm 6.2-000-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 30,784 kB
  • ctags: 42,554
  • sloc: ansic: 358,483; asm: 4,847; csh: 4,574; sh: 2,261; awk: 200; makefile: 86; sed: 13
file content (57 lines) | stat: -rw-r--r-- 1,203 bytes parent folder | download
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
#################################################################
#								#
#	Copyright 2007, 2009 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_sto.s

#	.386
#	.MODEL	FLAT, C

.include "g_msf.si"
.include "linkage.si"
	.INCLUDE	"mval_def.si"

	.sbttl	op_sto
#	PAGE	+
	.DATA
.extern	literal_null
.extern	undef_inhibit

	.text
.extern	underr

# PUBLIC	op_sto
ENTRY op_sto
	enter $0, $0  # Align the stack to 16 bytes
	mv_if_notdefined REG64_RET1, b
a:	movl	$mval_byte_len,REG32_ARG3
	movq	REG64_RET1,REG64_ARG1
	movq	REG64_RET0,REG64_ARG0
	REP
	movsb
	andw	$~mval_m_aliascont, mval_w_mvtype(REG64_RET0)	# Don't propagate alias container flag
	leave
	ret

b:	cmpb	$0,undef_inhibit(REG_IP)
	je	clab
	leaq	literal_null(REG_IP),REG_RET1
	jmp	a

clab:	movq	REG_RET1, REG64_ARG0
	movb    $0,REG8_ACCUM             # variable length argument
	call	underr
	leave
	ret

# op_sto	ENDP

# END