fixed local/private ez80sf labels

Author: ZERICO2005

src/crt/fpaddsub.src

@@ -30,7 +30,8 @@ __fpsub: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(fl
 ; aubc = aubc + euhl
 __fpadd: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), bitcast(float, pair8_24_t, { in.BC, in.A }) + bitcast(float, pair8_24_t, { in.HL, in.E })) && out.DE == in.DE && out.HL == in.HL && out.IX == in.IX && out.IY == in.IY
 	push	de
-.enter:
+	.local	__fpadd.enter
+__fpadd.enter:
 	push	hl
 	push	bc
 	xor	a, e

src/crt/fpcmp.src

@@ -157,36 +157,40 @@ __fpcmpo: ; CHECK: out.flags.Z == (bitcast(float, pair8_24_t, { in.HL, in.E }) =
 ; s = euhl < aubc = !(euhl >= aubc)
 __fpcmp: ; CHECK: (isunordered(bitcast(float, pair8_24_t, { in.HL, in.E }), bitcast(float, pair8_24_t, { in.BC, in.A })) || (out.flags.Z == (bitcast(float, pair8_24_t, { in.HL, in.E }) == bitcast(float, pair8_24_t, { in.BC, in.A })) && out.flags.S == (bitcast(float, pair8_24_t, { in.HL, in.E }) < bitcast(float, pair8_24_t, { in.BC, in.A })))) && out.A == in.A && out.BC == in.BC && out.DE == in.DE && out.HL == in.HL && out.IX == in.IX && out.IY == in.IY
 	sub	a, e
-	jr	z, .maybeEqual
+	jr	z, __fpcmp.maybeEqual
 	cp	a, 080h
-	jr	z, .maybeBothZero
+	jr	z, __fpcmp.maybeBothZero
 	; Compare sign and upper 7 exponent bits, which are not equal
 	add	a, e
 	inc	e
 	dec	e	; S = sign(euhl), Z = 0 because E > A
 	ret	c
-.notBothZero:
+	.local	__fpcmp.notBothZero
+__fpcmp.notBothZero:
 	cp	a, 080h	; S = !sign(aubc)
 	ret	nz
 	cp	a, e ; S = !sign(aubc), Z = 0 because A == 080h and A > E and A - E != 080h
 	ret
 
-.maybeBothZero:
+	.local	__fpcmp.maybeBothZero
+__fpcmp.maybeBothZero:
 	add	a, e
 	add	a, a
 	rra
-	jr	nz, .notBothZero
+	jr	nz, __fpcmp.notBothZero
 	adc	hl, bc
-	jr	c, .notBothZeroFixup
+	jr	c, __fpcmp.notBothZeroFixup
 	ret	z	; Both inputs are zero, return Z=1, S=0
-.notBothZeroFixup:
+	.local	__fpcmp.notBothZeroFixup
+__fpcmp.notBothZeroFixup:
 	or	a, a
 	sbc	hl, bc
 	dec	a	; S = !sign(aubc), Z = 0 because (A & 07Fh) == 0
 	cpl	; Restore A, preserve S and Z
 	ret
 
-.maybeEqual:
+	.local	__fpcmp.maybeEqual
+__fpcmp.maybeEqual:
 	ld	a, e
 	sbc	hl, bc
 	add	hl, bc

src/crt/fpminmax.src

@@ -13,7 +13,8 @@ __fpmin: ; CHECK: sameignzerosign(bitcast(float, pair8_24_t, { out.BC, out.A }),
 	call	__fpcmpo
 	ret	p
 	jr	nc, __fpmax.unordered
-.return:
+	.local	__fpmin.return
+__fpmin.return:
 	push	hl
 	pop	bc
 	ld	a, e
@@ -25,7 +26,8 @@ __fpmax: ; CHECK: sameignzerosign(bitcast(float, pair8_24_t, { out.BC, out.A }),
 	call	__fpcmpo
 	ret	c
 	jp	p, __fpmin.return
-.unordered:
+	.local	__fpmax.unordered
+__fpmax.unordered:
 	; Compare the low 31 bits (ignoring sign) and return the smaller one, which is non-NaN if either one is
 	sbc	hl, bc
 	ccf
@@ -34,13 +36,15 @@ __fpmax: ; CHECK: sameignzerosign(bitcast(float, pair8_24_t, { out.BC, out.A }),
 	ccf
 	adc	a, e
 	; Carry into bit 31 is equivalent to carry XOR overflow
-	jr	nc, .nocarry
+	jr	nc, __fpmax.nocarry
 	ret	po
-;	jq	.return
+;	jq	__fpmax.return
 	db	$30	; jr nc, *
-.nocarry:
+	.local	__fpmax.nocarry
+__fpmax.nocarry:
 	ret	pe
-.return:
+	.local	__fpmax.return
+__fpmax.return:
 	jr	__fpmin.return
 
 	.extern	__fpcmpo

src/crt/fptrunc.src

@@ -90,9 +90,9 @@ __fptrunc: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), truncf(b
 	ld	h, a
 	rla
 	sub	a, 07Fh
-	jr	c, .return.zero
+	jr	c, __fptrunc.return.zero
 	sub	a, 24
-	jr	nc, .return
+	jr	nc, __fptrunc.return
 	ld	l, c
 	cpl
 	ld	c, a
@@ -104,12 +104,14 @@ __fptrunc: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), truncf(b
 	call	__iand
 	ex	(sp), hl
 	pop	bc
-.return:
+	.local	__fptrunc.return
+__fptrunc.return:
 	ld	a, h
 	pop	hl
 	ret
 
-.return.zero:
+	.local	__fptrunc.return.zero
+__fptrunc.return.zero:
 	ld	bc, 0
 	ld	a, h
 	and	a, 080h

src/crt/fputil.src

@@ -34,11 +34,11 @@ __fppop2:
 
 __fppack.normalize:
 	dec	b
-	call	nz, .entry
+	call	nz, __fppack.normalize.entry
 __fppack:
 	add	hl, de
-	jr	nc, .normalize
-.normalized:
+	jr	nc, __fppack.normalize
+__fppack.normalized:
 	rrc	l
 	rlc	l
 	adc	a, 07Fh
@@ -52,7 +52,8 @@ __fppack:
 	add	hl, de
 	ret
 
-.normalize.entry:
+	.local	__fppack.normalize.entry
+__fppack.normalize.entry:
 	add	a, a
 	adc	hl, hl
 	ret	m
@@ -82,11 +83,11 @@ __fppack:
 
 __fppack2.normalize:
 	dec	b
-	call	nz, .loop
+	call	nz, __fppack2.normalize.loop
 __fppack2:
 	add	hl, de
-	jr	nc, .normalize
-.normalized:
+	jr	nc, __fppack2.normalize
+__fppack2.normalized:
 	ld	a, b
 	add	ix, de
 	jr	nc, .rounded
@@ -116,11 +117,12 @@ __fppack2:
 	ex	de, hl
 	ret
 
-.normalize.loop:
+	.local	__fppack2.normalize.loop
+__fppack2.normalize.loop:
 	add	ix, ix
 	adc	hl, hl
 	ret	m
-	djnz	.normalize.loop
+	djnz	__fppack2.normalize.loop
 	add	hl, de
 	ret
 

src/crt/lltofp.src

@@ -28,7 +28,8 @@ __ulltofp: ; CHECK: same(bitcast(float, pair8_24_t, { out.HL, out.E }), (float)b
 	push	af
 	push	bc
 	xor	a, a
-.enter:
+	.local	__ulltofp.enter
+__ulltofp.enter:
 	inc	b
 	djnz	.upper
 	inc	c

src/crt/ltofp.src

@@ -26,7 +26,8 @@ __ultofp: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), (float)bi
 
 __ltofp: ; CHECK: same(bitcast(float, pair8_24_t, { out.BC, out.A }), (float)bitcast(int32_t, pair8_24_t, { in.BC, in.A })) && out.DE == in.DE && out.HL == in.HL && out.IX == in.IX && out.IY == in.IY
 	push	af
-.enter:
+	.local	__ltofp.enter
+__ltofp.enter:
 	rlca
 	inc	sp
 	push	bc