err-ptb-2.s

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

! Check that PTB to a assembly-time-resolvable SHcompact operand gets an
! error.  Mostly like err-ptb-1.s, except we also specify --no-expand.

! { dg-do assemble }
! { dg-options "--abi=32 --no-expand" }

	.text
	.mode SHmedia
start:
	ptb shmediasymbol1,tr1		! { dg-error "PTB operand is a SHmedia symbol" }
shmediasymbol3:
	ptb shcompactsymbol1,tr1
	pta shcompactsymbol2,tr3	! { dg-error "PTA operand is a SHcompact symbol" }
shmediasymbol1:
	ptb shmediasymbol2,tr2		! { dg-error "PTB operand is a SHmedia symbol" }

	.mode SHcompact
shcompact:
	nop
	nop
shcompactsymbol2:
	nop
	nop
shcompactsymbol1:
	nop
	nop

	.mode SHmedia
shmedia:
	nop
shmediasymbol2:
	nop
	ptb shmediasymbol3,tr3		! { dg-error "PTB operand is a SHmedia symbol" }
	nop