~rabbits/drifblim

dce756f860b6a05d749081a0c74cc6f5df226a39 — neauoire 4 months ago b2ddcbb
Removed redundant POP2s
1 files changed, 2 insertions(+), 2 deletions(-)

M src/drifblim.tal
M src/drifblim.tal => src/drifblim.tal +2 -2
@@ 153,7 153,7 @@ JMP2r
@do-neuzep ( t* -- ) POP2 #ff ;write-litbyte JMP2
@do-neuabs ( t* -- ) POP2 #ffff ;write-litshort JMP2
@do-neuraw ( t* -- ) POP2 #ffff ;write-short JMP2
@do-neutop ( t* -- ) INC2 ;set-scope JSR2 POP2 JMP2r
@do-neutop ( t* -- ) INC2 ,set-scope JSR POP2 JMP2r
@do-refzep ( t* -- ) INC2 ,get-ref JSR LDA2 NIP ;write-litbyte JMP2
@do-refrel ( t* -- ) INC2 ,get-ref JSR ,get-rel JSR ;write-litbyte JMP2
@do-refabs ( t* -- ) INC2 ,get-ref JSR LDA2 ;write-litshort JMP2


@@ 289,10 289,10 @@ JMP2r
	&l
		#00 ,write-byte JSR
		INC2 GTH2k ,&l JCN
		&skip
	POP2 POP2

JMP2r
	&skip POP2 POP2 JMP2r

@is-opcode ( string* -- flag )