summaryrefslogtreecommitdiff
path: root/test-suite/standalone/sassy/tests/prims/with-lose2.scm
blob: d5edc4f2437e65dba02becff2d9d9e5456bde1a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(text
 (label foo (ret))
 (seq (nop)
      (with-lose (reloc my-reloc foo 100)
		 (iter (alt (seq (nop) z!)
			    (seq (nop) a!)
			    (seq (nop) po!))))
      (nop)))
; foo:
; 00000000  C3                ret

; 00000001  90                nop
; 00000002  90                nop
; 00000003  74FD              jz 0x2
; 00000005  90                nop
; 00000006  77FA              ja 0x2
; 00000008  90                nop
; 00000009  7BF7              jpo 0x2
; 0000000B  E964000000        jmp 0x74 <- this is right, (reloc had an addend of 100)
; 00000010  90                nop