feat: make OR operand bool normalized

Author: boriel

src/arch/z80/peephole/opts/020_o1_bool_norm_empty.opt

@@ -26,5 +26,5 @@ IF {{
   "call .core.__GEF", "call .core.__LEI16", "call .core.__LEI8", "call .core.__LTI8",
   "call .core.__ANDF", "call .core.__EQF", "call .core.__GTF", "call .core.__LTI16",
   "call .core.__LEF", "call .core.__LEI32", "call .core.__LTF", "call .core.__LTI32",
-  "call .core.__NEF", "call .core.__NOTF")
+  "call .core.__NEF", "call .core.__NOTF", "call .core.__ORF")
 }}

tests/functional/arch/zx48k/or16.asm

@@ -27,23 +27,38 @@ _b:
 	ld hl, (_a)
 	ld a, h
 	or l
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a)
 	ld a, 0FFh
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a)
 	ld a, h
 	or l
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a)
 	ld a, 0FFh
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld de, (_a)
 	ld hl, (_a)
 	ld a, h
 	or l
 	or d
 	or e
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, 0
 	ld b, h

tests/functional/arch/zx48k/or32.asm

@@ -31,6 +31,9 @@ _b:
 	ld de, 0
 	ld hl, 0
 	call .core.__OR32
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a + 2)
 	push hl
@@ -39,6 +42,9 @@ _b:
 	ld de, 0
 	ld hl, 1
 	call .core.__OR32
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a)
 	ld de, (_a + 2)
@@ -47,6 +53,9 @@ _b:
 	ld bc, 0
 	push bc
 	call .core.__OR32
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a)
 	ld de, (_a + 2)
@@ -55,6 +64,9 @@ _b:
 	ld bc, 1
 	push bc
 	call .core.__OR32
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a + 2)
 	push hl
@@ -63,6 +75,9 @@ _b:
 	ld hl, (_a)
 	ld de, (_a + 2)
 	call .core.__OR32
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, 0
 	ld b, h
@@ -79,7 +94,7 @@ _b:
 	ei
 	ret
 	;; --- end of user code ---
-#line 1 "/zxbasic/src/arch/zx48k/library-asm/or32.asm"
+#line 1 "/zxbasic/src/lib/arch/zx48k/runtime/bool/or32.asm"
 	    push namespace core
 __OR32:  ; Performs logical operation A AND B
 	    ; between DEHL and TOP of the stack.
@@ -95,8 +110,8 @@ __OR32:  ; Performs logical operation A AND B
 	    or e
 	    or h
 	    or l
-#line 26 "/zxbasic/src/arch/zx48k/library-asm/or32.asm"
+#line 26 "/zxbasic/src/lib/arch/zx48k/runtime/bool/or32.asm"
 	    ret
 	    pop namespace
-#line 57 "or32.bas"
+#line 72 "arch/zx48k/or32.bas"
 	END

tests/functional/arch/zx48k/or8.asm

@@ -25,18 +25,33 @@ _b:
 .core.ZXBASIC_USER_DATA_END:
 .core.__MAIN_PROGRAM__:
 	ld a, (_a)
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld a, (_a)
 	ld a, 1
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld a, (_a)
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld a, (_a)
 	ld a, 1
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, (_a - 1)
 	ld a, (_a)
 	or h
+	sub 1
+	sbc a, a
+	inc a
 	ld (_b), a
 	ld hl, 0
 	ld b, h