OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [tic54x/] [asg.s] - Rev 816

Compare with Previous | Blame | View Log

* asg/eval test substitution symbols
* .eval	value, symbol
* .asg "string", symbol
* .asg string, symbol
	.global L1,L2,L3,newlabel,end
	.sslist				; list line substitutions
	.text
	.asg	*ar0+, INC		; replace a complete operand
	.asg	ar0, FP			; replace a sub-operand
	.asg	"add #1,a", doit	; macro-style
	.asg	newlabel, LABEL		; replace a label
	.asg	.word 0, PSEUDO		; replace with a directive
 
L1:	add	#100,a 		
L2:	ld	*FP+,a 			
L3:	ld	INC,a 			
	.asg	0,L2			
LABEL:	add	#L2,a			
	doit				
	.asg	0, x
	.loop	5
	.eval	x+1,x			
	.word	x			
	.endloop
	PSEUDO				
 
* Tests from 5.3.2	
	.asg	AR0,FP
	.asg	*AR1+,Ind
	.asg	*AR1+0b,Rc_Prop
	.asg	"string",strng		; NOTE:	"""string""" not supported
	.asg	"a,b,c",parms
	.asg	1,counter
	.loop	100
	.word	counter
	.eval	counter + 1, counter
	.endloop
end:	.word	0x100	
	.end
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.