Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2025-07-22 07:24:07 +00:00
Code Issues Projects Releases Wiki Activity

use inc/ina instead of adc

Browse Source
This commit is contained in:
Irmen de Jong
2021-11-29 00:07:15 +01:00
parent cafab98d10
commit 45b8762188
4 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
codeGeneration/src/prog8/compiler/target/cpu6502/codegen/assignment/AugmentableAssignmentAsmGen.kt
View File

@@ -1998,7 +1998,13 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
} }
TargetStorageKind.REGISTER -> { TargetStorageKind.REGISTER -> {
when(target.register!!) { when(target.register!!) {
RegisterOrPair.A -> asmgen.out(" eor #255 | clc | adc #1") RegisterOrPair.A -> {
if(asmgen.isTargetCpu(CpuType.CPU65c02))
asmgen.out(" eor #255 | ina")
else
asmgen.out(" eor #255 | clc | adc #1")
}
RegisterOrPair.X -> asmgen.out(" txa | eor #255 | tax | inx") RegisterOrPair.X -> asmgen.out(" txa | eor #255 | tax | inx")
RegisterOrPair.Y -> asmgen.out(" tya | eor #255 | tay | iny") RegisterOrPair.Y -> asmgen.out(" tya | eor #255 | tay | iny")
else -> throw AssemblyError("invalid reg dt for byte negate") else -> throw AssemblyError("invalid reg dt for byte negate")

1
codeOptimizers/src/prog8/optimizer/ConstantIdentifierReplacer.kt
View File

@@ -110,7 +110,6 @@ internal class ConstantIdentifierReplacer(private val program: Program, private
override fun before(decl: VarDecl, parent: Node): Iterable<IAstModification> { override fun before(decl: VarDecl, parent: Node): Iterable<IAstModification> {
// the initializer value can't refer to the variable itself (recursive definition) // the initializer value can't refer to the variable itself (recursive definition)
// TODO: use call graph for this?
if(decl.value?.referencesIdentifier(listOf(decl.name)) == true || decl.arraysize?.indexExpr?.referencesIdentifier(listOf(decl.name)) == true) { if(decl.value?.referencesIdentifier(listOf(decl.name)) == true || decl.arraysize?.indexExpr?.referencesIdentifier(listOf(decl.name)) == true) {
errors.err("recursive var declaration", decl.position) errors.err("recursive var declaration", decl.position)
return noModifications return noModifications

7
compiler/res/prog8lib/cx16/gfx2.p8
View File

@@ -808,11 +808,8 @@ _done
sta cx16.VERA_ADDR_L sta cx16.VERA_ADDR_L
bcc + bcc +
inc cx16.VERA_ADDR_M inc cx16.VERA_ADDR_M
+ lda x + inc x
clc bne +
adc #1
sta x
bcc +
inc x+1 inc x+1
+ dey + dey
bne - bne -

5
compiler/res/prog8lib/cx16/textio.p8
View File

@@ -565,9 +565,8 @@ asmsub print_w (word value @ AY) clobbers(A,Y) {
tay tay
pla pla
eor #255 eor #255
clc ina
adc #1 bne +
bcc +
iny iny
+ bra print_uw + bra print_uw
}} }}