reduce2.s

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· S 代码 · 共 81 行

	.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