Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2026-01-22 14:17:34 +00:00
Code Issues Projects Releases Wiki Activity

vm: allow inline "assembly"

Browse Source
This commit is contained in:
Irmen de Jong
2022-04-30 00:10:07 +02:00
parent 7844ace934
commit 0ee790969d
6 changed files with 40 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
codeGenVirtual/src/prog8/codegen/virtual/AssemblyProgram.kt
View File

@@ -1,5 +1,6 @@
package prog8.codegen.virtual
import prog8.code.core.AssemblyError
import prog8.code.core.CompilationOptions
import prog8.code.core.IAssemblyProgram
import prog8.vm.Instruction
@@ -46,6 +47,13 @@ internal class AssemblyProgram(override val name: String,
write(line.ins.toString() + "\n")
}
is VmCodeLabel -> write("_" + line.name.joinToString(".") + ":\n")
is VmCodeInlineAsm -> {
val asm = line.assembly.replace("""\{[a-zA-Z\d_\.]+\}""".toRegex()) { matchResult ->
val name = matchResult.value.substring(1, matchResult.value.length-1).split('.')
allocations.get(name).toString() }
write(asm+"\n")
}
else -> throw AssemblyError("invalid vm code line")
}
}
@@ -118,4 +126,8 @@ internal class VmCodeChunk(initial: VmCodeLine? = null) {
operator fun plusAssign(chunk: VmCodeChunk) {
lines.addAll(chunk.lines)
}
}
}
internal class VmCodeInlineAsm(asm: String): VmCodeLine() {
val assembly: String = asm.trimIndent()
}

2
codeGenVirtual/src/prog8/codegen/virtual/CodeGen.kt
View File

@@ -91,6 +91,7 @@ class CodeGen(internal val program: PtProgram,
is PtLabel -> VmCodeChunk(VmCodeLabel(node.scopedName))
is PtBreakpoint -> VmCodeChunk(VmCodeInstruction(Opcode.BREAKPOINT))
is PtConditionalBranch -> translate(node)
is PtInlineAssembly -> VmCodeChunk(VmCodeInlineAsm(node.assembly))
is PtAddressOf,
is PtContainmentCheck,
is PtMemoryByte,
@@ -108,7 +109,6 @@ class CodeGen(internal val program: PtProgram,
is PtArray,
is PtString -> throw AssemblyError("should not occur as separate statement node ${node.position}")
is PtAsmSub -> throw AssemblyError("asmsub not supported on virtual machine target ${node.position}")
is PtInlineAssembly -> throw AssemblyError("inline assembly not supported on virtual machine target ${node.position}")
is PtIncludeBinary -> throw AssemblyError("inline binary data not supported on virtual machine target ${node.position}")
else -> TODO("missing codegen for $node")
}