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

begin of for asm

Browse Source
This commit is contained in:
Irmen de Jong 2019-07-31 00:54:04 +02:00
parent 6f7322150f
commit 50aa286d3a
2 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/src/prog8/compiler/target/c64/codegen2/AsmGen2.kt
View File

@ -952,21 +952,36 @@ internal class AsmGen2(val program: Program,
}
private fun translate(stmt: ForLoop) {
val iterableDt = stmt.iterable.inferType(program)
when(stmt.iterable) {
is RangeExpr -> {
println("forloop over range $stmt")
when(iterableDt) {
in ByteDatatypes -> {
println("forloop over byte range $stmt") // TODO
}
in WordDatatypes -> {
println("forloop over word range $stmt") // TODO
}
else -> throw AssemblyError("range expression can only be byte or word")
}
}
is IdentifierReference -> {
val iterableDt = stmt.iterable.inferType(program)
val decl = (stmt.iterable as IdentifierReference).targetVarDecl(program.namespace)!!
when(iterableDt) {
DataType.STR, DataType.STR_S, DataType.ARRAY_UB, DataType.ARRAY_B -> {
println("forloop over byte array/string $stmt")
DataType.STR, DataType.STR_S -> {
println("forloop over string $stmt") // TODO (ends at 0 byte)
}
DataType.ARRAY_UB, DataType.ARRAY_B -> {
val size = decl.arraysize!!.size()
println("forloop over byte array of len $size $stmt") // TODO (ends at length of array)
}
DataType.ARRAY_W, DataType.ARRAY_UW -> {
println("forloop over word array $stmt")
val size = decl.arraysize!!.size()
println("forloop over word array len $size $stmt") // TODO
}
DataType.ARRAY_F -> {
println("forloop over float array $stmt")
val size = decl.arraysize!!.size()
println("forloop over float array len $size $stmt") // TODO
}
else -> throw AssemblyError("can't iterate over $iterableDt")
}

10
examples/test.p8
View File

@ -14,11 +14,11 @@ main {
}
c64.CHROUT('\n')
; for A in [1,3,5,99] {
; c64scr.print_ub(A)
; c64.CHROUT(',')
; }
; c64.CHROUT('\n')
for A in [1,3,5,99] {
c64scr.print_ub(A)
c64.CHROUT(',')
}
c64.CHROUT('\n')
;
; for A in 10 to 20 {
; c64scr.print_ub(A)