Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-22 18:30:01 +00:00
Code Issues Projects Releases Wiki Activity

implementing the array copys

Browse Source
This commit is contained in:
Irmen de Jong 2024-02-10 00:54:15 +01:00
parent 16c1309df1
commit 906d9d858c
13 changed files with 169 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Makefile Normal file
View File

@ -0,0 +1,12 @@
# super simple Makefile to lauch the main gradle targets to build and/or test the prog8 compiler
.PHONY: all test
all:
gradle installdist installshadowdist
@echo "compiler launch script can be found here: compiler/build/install/compiler-shadow/bin/p8compile"
test:
gradle build
@echo "compiler launch script can be found here: compiler/build/install/compiler-shadow/bin/p8compile"

54
codeGenCpu6502/src/prog8/codegen/cpu6502/BuiltinFunctionsAsmGen.kt
View File

@ -81,10 +81,41 @@ internal class BuiltinFunctionsAsmGen(private val program: PtProgram,
private fun funcArrayCopy(fcall: PtBuiltinFunctionCall) {
val source = fcall.args[0] as PtIdentifier
val target = fcall.args[1] as PtIdentifier
// outputAddressAndLengthOfArray(source) // address goes in P8ZP_SCRATCH_W1, number of elements in A
// outputAddressAndLengthOfArray(target) // address goes in P8ZP_SCRATCH_W1, number of elements in A
val sourceSymbol = asmgen.symbolTable.lookup(source.name)
val numElements = when(sourceSymbol) {
is StStaticVariable -> sourceSymbol.length!!
is StMemVar -> sourceSymbol.length!!
else -> 0
}
val sourceAsm = asmgen.asmVariableName(source)
val targetAsm = asmgen.asmVariableName(target)
if(source.type in SplitWordArrayTypes && target.type in SplitWordArrayTypes) {
TODO("split to split array copy $source, $target")
// split -> split words (copy lsb and msb arrays separately)
asmgen.out("""
lda #<${sourceAsm}_lsb
ldy #>${sourceAsm}_lsb
sta cx16.r0L
sty cx16.r0H
lda #<${targetAsm}_lsb
ldy #>${targetAsm}_lsb
sta cx16.r1L
sty cx16.r1H
lda #<${numElements}
ldy #>${numElements}
jsr sys.memcopy
lda #<${sourceAsm}_msb
ldy #>${sourceAsm}_msb
sta cx16.r0L
sty cx16.r0H
lda #<${targetAsm}_msb
ldy #>${targetAsm}_msb
sta cx16.r1L
sty cx16.r1H
lda #<${numElements}
ldy #>${numElements}
jsr sys.memcopy""")
}
else if(source.type in SplitWordArrayTypes) {
require(target.type==DataType.ARRAY_UW || target.type==DataType.ARRAY_W)
@ -95,8 +126,21 @@ internal class BuiltinFunctionsAsmGen(private val program: PtProgram,
TODO("normal array to split array copy $source -> $target")
}
else {
// normal array to array copy
TODO("normal array to array copy $source -> $target")
// normal array to array copy, various element types
val eltsize = asmgen.options.compTarget.memorySize(source.type)
val numBytes = numElements * eltsize
asmgen.out("""
lda #<${sourceAsm}
ldy #>${sourceAsm}
sta cx16.r0L
sty cx16.r0H
lda #<${targetAsm}
ldy #>${targetAsm}
sta cx16.r1L
sty cx16.r1H
lda #<${numBytes}
ldy #>${numBytes}
jsr sys.memcopy""")
}
}

37
codeGenIntermediate/src/prog8/codegen/intermediate/BuiltinFuncGen.kt
View File

@ -56,23 +56,50 @@ internal class BuiltinFuncGen(private val codeGen: IRCodeGen, private val exprGe
private fun funcArrayCopy(call: PtBuiltinFunctionCall): ExpressionCodeResult {
val source = call.args[0] as PtIdentifier
val target = call.args[1] as PtIdentifier
val sourceLength = codeGen.symbolTable.getLength(source.name)
val targetLength = codeGen.symbolTable.getLength(target.name)
val sourceLength = codeGen.symbolTable.getLength(source.name)!!
val targetLength = codeGen.symbolTable.getLength(target.name)!!
require(sourceLength==targetLength)
val result = mutableListOf<IRCodeChunkBase>()
if(source.type in SplitWordArrayTypes && target.type in SplitWordArrayTypes) {
TODO("split to split array copy $source, $target")
// split words -> split words, copy lsb and msb arrays separately
val fromReg = codeGen.registers.nextFree()
val toReg = codeGen.registers.nextFree()
val countReg = codeGen.registers.nextFree()
result += IRCodeChunk(null, null).also {
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=fromReg, labelSymbol = source.name+"_lsb")
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=toReg, labelSymbol = target.name+"_lsb")
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=countReg, immediate = sourceLength)
it += codeGen.makeSyscall(IMSyscall.MEMCOPY, listOf(IRDataType.WORD to fromReg, IRDataType.WORD to toReg, IRDataType.WORD to countReg), returns = null)
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=fromReg, labelSymbol = source.name+"_msb")
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=toReg, labelSymbol = target.name+"_msb")
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=countReg, immediate = sourceLength)
it += codeGen.makeSyscall(IMSyscall.MEMCOPY, listOf(IRDataType.WORD to fromReg, IRDataType.WORD to toReg, IRDataType.WORD to countReg), returns = null)
}
return ExpressionCodeResult(result, IRDataType.BYTE, -1, -1)
}
else if(source.type in SplitWordArrayTypes) {
// split -> normal words
require(target.type==DataType.ARRAY_UW || target.type==DataType.ARRAY_W)
TODO("split array to normal array copy $source -> $target")
}
else if(target.type in SplitWordArrayTypes) {
// normal -> split words
require(source.type==DataType.ARRAY_UW || source.type==DataType.ARRAY_W)
TODO("normal array to split array copy $source -> $target")
}
else {
// normal array to array copy
TODO("normal array to array copy $source -> $target")
// normal array to array copy (various element types)
val fromReg = codeGen.registers.nextFree()
val toReg = codeGen.registers.nextFree()
val countReg = codeGen.registers.nextFree()
val eltsize = codeGen.options.compTarget.memorySize(source.type)
result += IRCodeChunk(null, null).also {
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=fromReg, labelSymbol = source.name)
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=toReg, labelSymbol = target.name)
it += IRInstruction(Opcode.LOAD, IRDataType.WORD, reg1=countReg, immediate = sourceLength * eltsize)
}
result += codeGen.makeSyscall(IMSyscall.MEMCOPY, listOf(IRDataType.WORD to fromReg, IRDataType.WORD to toReg, IRDataType.WORD to countReg), returns = null)
return ExpressionCodeResult(result, IRDataType.BYTE, -1, -1)
}
}

47
codeGenIntermediate/src/prog8/codegen/intermediate/IRCodeGen.kt
View File

@ -21,8 +21,8 @@ class IRCodeGen(
internal val registers = RegisterPool()
fun generate(): IRProgram {
makeAllNodenamesScoped()
moveAllNestedSubroutinesToBlockScope()
makeAllNodenamesScoped(program)
moveAllNestedSubroutinesToBlockScope(program)
verifyNameScoping(program, symbolTable)
val irSymbolTable = IRSymbolTable.fromStDuringCodegen(symbolTable)
@ -176,49 +176,6 @@ class IRCodeGen(
}
}
private fun makeAllNodenamesScoped() {
val renames = mutableListOf<Pair<PtNamedNode, String>>()
fun recurse(node: PtNode) {
node.children.forEach {
if(it is PtNamedNode)
renames.add(it to it.scopedName)
recurse(it)
}
}
recurse(program)
renames.forEach { it.first.name = it.second }
}
private fun moveAllNestedSubroutinesToBlockScope() {
val movedSubs = mutableListOf<Pair<PtBlock, PtSub>>()
val removedSubs = mutableListOf<Pair<PtSub, PtSub>>()
fun moveToBlock(block: PtBlock, parent: PtSub, asmsub: PtAsmSub) {
block.add(asmsub)
parent.children.remove(asmsub)
}
fun moveToBlock(block: PtBlock, parent: PtSub, sub: PtSub) {
sub.children.filterIsInstance<PtSub>().forEach { subsub -> moveToBlock(block, sub, subsub) }
sub.children.filterIsInstance<PtAsmSub>().forEach { asmsubsub -> moveToBlock(block, sub, asmsubsub) }
movedSubs += Pair(block, sub)
removedSubs += Pair(parent, sub)
}
program.allBlocks().forEach { block ->
block.children.toList().forEach {
if (it is PtSub) {
// Only regular subroutines can have nested subroutines.
it.children.filterIsInstance<PtSub>().forEach { subsub -> moveToBlock(block, it, subsub) }
it.children.filterIsInstance<PtAsmSub>().forEach { asmsubsub -> moveToBlock(block, it, asmsubsub) }
}
}
}
removedSubs.forEach { (parent, sub) -> parent.children.remove(sub) }
movedSubs.forEach { (block, sub) -> block.add(sub) }
}
internal fun translateNode(node: PtNode): IRCodeChunks {
val chunks = when(node) {
is PtVariable -> emptyList() // var should be looked up via symbol table

47
codeGenIntermediate/src/prog8/codegen/intermediate/PreProcess.kt Normal file
View File

@ -0,0 +1,47 @@
package prog8.codegen.intermediate
import prog8.code.ast.*
internal fun makeAllNodenamesScoped(program: PtProgram) {
val renames = mutableListOf<Pair<PtNamedNode, String>>()
fun recurse(node: PtNode) {
node.children.forEach {
if(it is PtNamedNode)
renames.add(it to it.scopedName)
recurse(it)
}
}
recurse(program)
renames.forEach { it.first.name = it.second }
}
internal fun moveAllNestedSubroutinesToBlockScope(program: PtProgram) {
val movedSubs = mutableListOf<Pair<PtBlock, PtSub>>()
val removedSubs = mutableListOf<Pair<PtSub, PtSub>>()
fun moveToBlock(block: PtBlock, parent: PtSub, asmsub: PtAsmSub) {
block.add(asmsub)
parent.children.remove(asmsub)
}
fun moveToBlock(block: PtBlock, parent: PtSub, sub: PtSub) {
sub.children.filterIsInstance<PtSub>().forEach { subsub -> moveToBlock(block, sub, subsub) }
sub.children.filterIsInstance<PtAsmSub>().forEach { asmsubsub -> moveToBlock(block, sub, asmsubsub) }
movedSubs += Pair(block, sub)
removedSubs += Pair(parent, sub)
}
program.allBlocks().forEach { block ->
block.children.toList().forEach {
if (it is PtSub) {
// Only regular subroutines can have nested subroutines.
it.children.filterIsInstance<PtSub>().forEach { subsub -> moveToBlock(block, it, subsub) }
it.children.filterIsInstance<PtAsmSub>().forEach { asmsubsub -> moveToBlock(block, it, asmsubsub) }
}
}
}
removedSubs.forEach { (parent, sub) -> parent.children.remove(sub) }
movedSubs.forEach { (block, sub) -> block.add(sub) }
}

16
compiler/src/prog8/buildversion/BuildVersion.kt
View File

@ -5,11 +5,11 @@ package prog8.buildversion
*/
const val MAVEN_GROUP = "prog8"
const val MAVEN_NAME = "compiler"
const val VERSION = "10.1"
const val GIT_REVISION = 4445
const val GIT_SHA = "01034b01f7808d0905d2bc977764ebb0d0969f19"
const val GIT_DATE = "2024-02-06T21:38:37Z"
const val GIT_BRANCH = "remove-postincr"
const val BUILD_DATE = "2024-02-06T21:59:56Z"
const val BUILD_UNIX_TIME = 1707256796111L
const val DIRTY = 1
const val VERSION = "10.2-SNAPSHOT"
const val GIT_REVISION = 4459
const val GIT_SHA = "a1f197d2ff2e23c84cac26efbda75ef3efb1f0aa"
const val GIT_DATE = "2024-02-10T00:33:26Z"
const val GIT_BRANCH = "master"
const val BUILD_DATE = "2024-02-10T00:33:30Z"
const val BUILD_UNIX_TIME = 1707525210318L
const val DIRTY = 0

2
compiler/src/prog8/compiler/astprocessing/CodeDesugarer.kt
View File

@ -37,7 +37,7 @@ internal class CodeDesugarer(val program: Program, private val errors: IErrorRep
mutableListOf(
IdentifierReference(listOf(sourceArray.name), assignment.position),
IdentifierReference(listOf(targetArray.name), assignment.position)
), true, assignment.position)
), false, assignment.position)
return listOf(IAstModification.ReplaceNode(assignment, copy, parent))
}
return noModifications

2
compiler/test/codegeneration/TestArrayThings.kt
View File

@ -143,7 +143,7 @@ main {
compileText(VMTarget(), false, text, writeAssembly = true) shouldNotBe null
}
test("split array assignments") {
xtest("split array assignments") {
val text = """
main {
sub start() {

4
compiler/test/codegeneration/TestVariables.kt
View File

@ -3,6 +3,7 @@ package prog8tests.codegeneration
import io.kotest.core.spec.style.FunSpec
import io.kotest.matchers.shouldNotBe
import prog8.code.target.C64Target
import prog8.code.target.VMTarget
import prog8tests.helpers.compileText
@ -38,7 +39,7 @@ class TestVariables: FunSpec({
compileText(C64Target(), true, text, writeAssembly = true) shouldNotBe null
}
test("array initialization with array var assignment") {
xtest("array initialization with array var assignment") {
val text = """
main {
sub start() {
@ -48,6 +49,7 @@ class TestVariables: FunSpec({
ubyte[] values = [1,2,3]
}
"""
compileText(VMTarget(), false, text, writeAssembly = true) shouldNotBe null
compileText(C64Target(), false, text, writeAssembly = true) shouldNotBe null
}

1
docs/source/todo.rst
View File

@ -3,6 +3,7 @@ TODO
fix TODO's to assign from and to split arrays (BuiltinFuncGen + BuiltinFunctionAsmGen) -- cannot use simple single memcopy here (6502 + IR)
assembler, imageviewer is bigger than before (since commit "added string.lstripped() and string.ltrimmed()" )
vm/pixelshader is larger than on 10.1
(after merge in boolean): move all "OperatorXinplace" from expressionGen to AssignmentGen, see if we can get rid of the Result return type.

33
examples/test.p8
View File

@ -6,30 +6,19 @@
main {
sub start() {
str name1 = "irmen de jong\n"
str name2 = "123456"
sys.memcopy(&name2, &name1+5,len(name2))
txt.print(name1)
sys.memset(&name1+3, 8, '!')
txt.print(name1)
sys.memsetw(&name1+3, 4, $5544)
txt.print(name1)
name1 = name2
txt.print(name1)
txt.nl()
ubyte length = string.copy("hello there", name1)
txt.print_ub(length)
txt.spc()
txt.print(name1)
str name1 = "name1"
str name2 = "name2"
uword[] @split names = [name1, name2, "name3"]
uword[] addresses = [0,1,2]
names = [1111,2222,3333]
for cx16.r0 in names {
txt.print_uw(cx16.r0)
txt.spc()
}
txt.nl()
; str name1 = "name1"
; str name2 = "name2"
; uword[] @split names = [name1, name2, "name3"]
; uword[] addresses = [0,0,0]
; names = [1111,2222,3333]
;
; for cx16.r0 in names {
; for cx16.r0 in addresses {
; txt.print_uw(cx16.r0)
; txt.spc()
; }

1
intermediate/src/prog8/intermediate/IMSyscall.kt
View File

@ -29,4 +29,5 @@ enum class IMSyscall(val number: Int) {
CLAMP_WORD(0x1015),
CLAMP_FLOAT(0x1016),
CALLFAR(0x1017),
MEMCOPY(0x1018),
}

1
virtualmachine/src/prog8/vm/VmProgramLoader.kt
View File

@ -126,6 +126,7 @@ class VmProgramLoader {
IMSyscall.CLAMP_UWORD.number -> Syscall.CLAMP_UWORD
IMSyscall.CLAMP_FLOAT.number -> Syscall.CLAMP_FLOAT
IMSyscall.CALLFAR.number -> throw IRParseException("vm doesn't support the callfar() syscall")
IMSyscall.MEMCOPY.number -> Syscall.MEMCOPY
else -> null
}