funcrelocbug.s

binary ultilities binary ultilities binary ultilities

	.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 $CODE$

	.align 4
	.EXPORT g,CODE
	.EXPORT g,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR,ARGW2=GR,RTNVAL=GR
g
	.PROC
	.CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
	.ENTRY
	stw %r2,-20(0,%r30)
	copy %r3,%r1
	copy %r30,%r3
	stwm %r1,128(0,%r30)
	stw %r26,-36(0,%r3)
	stw %r25,-40(0,%r3)
	stw %r24,-44(0,%r3)
	ldw -36(0,%r3),%r26
	ldw -40(0,%r3),%r25
	ldw -44(0,%r3),%r19
	copy %r19,%r22
	.CALL	ARGW0=GR
	bl $$dyncall,%r31
	copy %r31,%r2
	copy %r28,%r19
	comiclr,<> 0,%r19,0
	bl,n L$0002,0
	ldw -36(0,%r3),%r28
	bl,n L$0001,0
	bl,n L$0003,0
L$0002
	ldw -40(0,%r3),%r28
	bl,n L$0001,0
L$0003
L$0001
	ldw -20(0,%r3),%r2
	ldo 64(%r3),%r30
	ldwm -64(0,%r30),%r3
	bv,n 0(%r2)
	.EXIT
	.PROCEND
	.align 4
f2___4
	.PROC
	.CALLINFO FRAME=64,NO_CALLS,SAVE_SP,ENTRY_GR=3
	.ENTRY
	copy %r3,%r1
	copy %r30,%r3
	stwm %r1,64(0,%r30)
	stw %r29,8(0,%r3)
	stw %r26,-36(0,%r3)
	stw %r25,-40(0,%r3)
	ldw -36(0,%r3),%r19
	ldw -40(0,%r3),%r20
	comclr,>= %r20,%r19,%r19
	ldi 1,%r19
	copy %r19,%r28
	bl,n L$0005,0
L$0005
	ldo 64(%r3),%r30
	ldwm -64(0,%r30),%r3
	bv,n 0(%r2)
	.EXIT
	.PROCEND
	.IMPORT abort,CODE
	.SPACE $PRIVATE$
	.SUBSPA $DATA$

	.align 4
L$TRAMP0000
	ldw	36(0,%r22),%r21
	bb,>=,n	%r21,30,.+16
	depi	0,31,2,%r21
	ldw	4(0,%r21),%r19
	ldw	0(0,%r21),%r21
	ldsid	(0,%r21),%r1
	mtsp	%r1,%sr0
	be	0(%sr0,%r21)
	ldw	40(0,%r22),%r29
	.word	0
	.word	0
	.SPACE $TEXT$
	.SUBSPA $CODE$

	.align 4
	.EXPORT f,CODE
	.EXPORT f,ENTRY,PRIV_LEV=3,RTNVAL=GR
f
	.PROC
	.CALLINFO FRAME=192,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
	.ENTRY
	stw %r2,-20(0,%r30)
	copy %r3,%r1
	copy %r30,%r3
	stwm %r1,192(0,%r30)
	ldo 16(%r3),%r19
	addil L'L$TRAMP0000-$global$,%r27
	ldo R'L$TRAMP0000-$global$(%r1),%r22
	ldo 40(0),%r20
	ldws,ma 4(0,%r22),%r21
	addib,>= -4,%r20,.-4
	stws,ma %r21,4(0,%r19)
	ldil L'f2___4,%r20
	ldo R'f2___4(%r20),%r19
	stw %r19,52(0,%r3)
	ldo 8(%r3),%r19
	stw %r19,56(0,%r3)
	ldo 16(%r3),%r19
	ldo 48(%r3),%r20
	fdc 0(0,%r19)
	fdc 0(0,%r20)
	sync
	ldo 32(%r19),%r22
	mfsp %sr0,%r21
	ldsid (0,%r19),%r20
	mtsp %r20,%sr0
	fic 0(%sr0,%r19)
	fic 0(%sr0,%r22)
	sync
	mtsp %r21,%sr0
	nop
	nop
	nop
	nop
	nop
	nop
	ldo 16(%r3),%r19
	ldi 1,%r26
	ldi 2,%r25
	copy %r19,%r24
	.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
	bl g,%r2
	nop
	copy %r28,%r19
	comiclr,<> 2,%r19,0
	bl,n L$0006,0
	.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
	bl abort,%r2
	nop
L$0006
L$0004
	ldw -20(0,%r3),%r2
	ldo 64(%r3),%r30
	ldwm -64(0,%r30),%r3
	bv,n 0(%r2)
	.EXIT
	.PROCEND
	.IMPORT __main,CODE
	.IMPORT exit,CODE
	.align 4
	.EXPORT main,CODE
	.EXPORT main,ENTRY,PRIV_LEV=3,RTNVAL=GR
main
	.PROC
	.CALLINFO FRAME=128,CALLS,SAVE_RP,SAVE_SP,ENTRY_GR=3
	.ENTRY
	stw %r2,-20(0,%r30)
	copy %r3,%r1
	copy %r30,%r3
	stwm %r1,128(0,%r30)
	.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
	bl __main,%r2
	nop
	.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
	bl f,%r2
	nop
	copy 0,%r26
	.CALL ARGW0=NO,ARGW1=NO,ARGW2=NO,ARGW3=NO
	bl exit,%r2
	nop
L$0007
	ldw -20(0,%r3),%r2
	ldo 64(%r3),%r30
	ldwm -64(0,%r30),%r3
	bv,n 0(%r2)
	.EXIT
	.PROCEND