OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [hppa/] [reloc/] [reduce2.s] - Rev 156

Compare with Previous | Blame | View Log

	.SPACE $PRIVATE$
	.SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
	.SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
	.SPACE $TEXT$
	.SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
	.SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
	.IMPORT $global$,DATA
	.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
	.SPACE $TEXT$
	.SUBSPA $LIT$
 
	.align 8
L$P0000
	.word 0x12345678
	.word 0x0
 
	.align 8
L$C0000
	.word 0x3ff00000
	.word 0x0
	.SPACE $TEXT$
	.SUBSPA $CODE$
 
	.align 4
	.EXPORT g,ENTRY,PRIV_LEV=3,RTNVAL=FR
g
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	stw %r19,-32(%r30)
	ldw T'L$C0000(%r19),%r20
	bv %r0(%r2)
	fldds 0(%r20),%fr4
	.EXIT
	.PROCEND
	.IMPORT abort,CODE
	.IMPORT exit,CODE
	.SPACE $TEXT$
	.SUBSPA $LIT$
 
	.align 8
L$C0001
	.word 0x3ff00000
	.word 0x0
	.SPACE $TEXT$
	.SUBSPA $CODE$
 
	.align 4
	.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
main
	.PROC
	.CALLINFO FRAME=128,CALLS,SAVE_RP,ENTRY_GR=3
	.ENTRY
	stw %r2,-20(%r30)
	ldo 128(%r30),%r30
	stw %r19,-32(%r30)
	stw %r4,-128(%r30)
 
	copy %r19,%r4
	.CALL 
	bl g,%r2
	copy %r4,%r19
	copy %r4,%r19
	ldw T'L$C0001(%r19),%r20
	fldds 0(%r20),%fr8
	fcmp,dbl,= %fr4,%fr8
	ftest
	add,tr %r0,%r0,%r0
	b,n L$0003
	.CALL 
	bl abort,%r2
	nop
L$0003
	.CALL ARGW0=GR
	bl exit,%r2
	ldi 0,%r26
	nop
	.EXIT
	.PROCEND
 

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.