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

Subversion Repositories openrisc

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

Go to most recent revision | Compare with Previous | Blame | View Log

* .struct
* .union
* .tag		
REAL_REC .struct			; stag = REAL_REC
NUM	.int				; NUM = 0
DEN	.int				; DEN = 1
REAL_LEN .endstruct			; REAL_LEN = 2
 
	add	REAL + REAL_REC.DEN, a	; 000000 0001
	.bss	REAL, REAL_LEN		; 000000 0000 (len = 2)
 
CPLX_REC .struct
REALI	.tag REAL_REC
IMAGI	.tag REAL_REC
CPLX_LEN .endstruct				
	; apply the CPLX_REC structure format to .bss var COMPLEX
 
	.bss	COMPLEX, CPLX_LEN	; 000002 0000 (len = 4)
COMPLEX .tag CPLX_REC
	add	COMPLEX.REALI, a	; 000001 0002
	stl	a, COMPLEX.REALI	; 000002 8002
	add	COMPLEX.IMAGI, b	; 000003 0104
 
	; anonymous struct; symbols become global
	.struct
X	.int
Y	.int
Z	.int
	.endstruct 		
 
BIT_REC	.struct
STREAM	.string	64			;
BIT7	.field	7			; bit7 = 64
BIT9	.field	9			; bit9 = 64
BIT10	.field	10			; bit10 = 65
X_INT	.int				; x_int = 66
BIT_LEN .endstruct			; bit_len = 67
 
	.bss	BITS, BIT_LEN		; 000006 0000 (len = 67)
BITS	.tag	BIT_REC	
	add	BITS.BIT7,a		; 000004 0046
	and	#007Fh, a		; 000005 f030
					; 000006 007f
	.end
 

Go to most recent revision | 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.