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

complex memory assignment also tries to avoid estack evaluation (but not done yet)

Browse Source
This commit is contained in:
Irmen de Jong 2021-11-06 00:03:19 +01:00
parent 1d2d217b94
commit 37a46aa2cf
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
codeGeneration/src/prog8/compiler/target/cpu6502/codegen/BuiltinFunctionsAsmGen.kt
View File

@ -876,6 +876,7 @@ internal class BuiltinFunctionsAsmGen(private val program: Program, private val
} }
DataType.FLOAT -> { DataType.FLOAT -> {
// via evaluation stack // via evaluation stack
// TODO use 2 temporary variables instead
asmgen.translateExpression(first) asmgen.translateExpression(first)
asmgen.translateExpression(second) asmgen.translateExpression(second)
val assignFirst = AsmAssignment( val assignFirst = AsmAssignment(

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

@ -181,8 +181,8 @@ internal class AugmentableAssignmentAsmGen(private val program: Program,
} }
} }
else -> { else -> {
// TODO OTHER EVALUATION HERE // TODO OTHER EVALUATION HERE, don't use the estack
asmgen.translateExpression(memory.addressExpression) asmgen.assignExpressionTo(memory.addressExpression, AsmAssignTarget(TargetStorageKind.STACK, program, asmgen, DataType.UWORD, memory.definingSubroutine))
asmgen.out(" jsr prog8_lib.read_byte_from_address_on_stack | sta P8ZP_SCRATCH_B1") // TODO don't use estack to transfer the address to read from asmgen.out(" jsr prog8_lib.read_byte_from_address_on_stack | sta P8ZP_SCRATCH_B1") // TODO don't use estack to transfer the address to read from
when { when {
valueLv != null -> inplaceModification_byte_litval_to_variable("P8ZP_SCRATCH_B1", DataType.UBYTE, operator, valueLv.toInt()) valueLv != null -> inplaceModification_byte_litval_to_variable("P8ZP_SCRATCH_B1", DataType.UBYTE, operator, valueLv.toInt())

6
examples/test.p8
View File

@ -4,10 +4,12 @@
main { main {
sub start() { sub start() {
uword xx=$2000 uword xx=$2000
ubyte yy=30 ubyte yy=$30
ubyte zz=9 ubyte zz=9
; sys.memset(xx+200, yy*2, zz+yy) ; sys.memset(xx+200, yy*2, zz+yy)
@($d020) = (xx+(yy*zz)) as ubyte @($c030) = 10
@($c000+yy) *= 2
txt.print_ub(@($c030))
} }
} }