Subversion Repositories openrisc

#; $ as -o test.o gas-cfi-test.s && gcc -nostdlib -o test test.o
 
	.text
 
#; func_locvars
#; - function with a space on the stack 
#;   allocated for local variables
 
	.type	func_locvars,@function
func_locvars:
	.cfi_startproc
 
	#; alocate space for local vars
	suba.w	#0x1234,%sp
	.cfi_adjust_cfa_offset	0x1234
 
	#; dummy body
	moveq.l	#1,%d0
 
	#; release space of local vars and return
	adda.w	#0x1234,%sp
	.cfi_adjust_cfa_offset	-0x1234
	rts
	.cfi_endproc
 
#; func_prologue
#; - functions that begins with standard
#;   prologue: "link %a6,#0"
 
	.type	func_prologue,@function
func_prologue:
	.cfi_startproc
 
	#; prologue, CFI is valid after 
	#; each instruction.
	link	%a6,#0
	.cfi_def_cfa_offset	8
	.cfi_offset		a6,-8
	.cfi_def_cfa_register	a6
 
	#; function body
	jbsr	func_locvars
	addq.l	#3, %d0
 
	#; epilogue with valid CFI
	#; (we're better than gcc :-)
	unlk	%a6
	.cfi_def_cfa_register	sp
	rts
	.cfi_endproc
 
#; main
#; - typical function
	.type	main,@function
main:
	.cfi_startproc
 
	#; only function body that doesn't
	#; touch the stack at all.
	jbsr	func_prologue
 
	#; return
	rts
	.cfi_endproc