6502/millfork
1
0
Fork 0
mirror of https://github.com/KarolS/millfork.git synced 2024-06-14 05:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Fix array fields in certain contexts

Browse Source
This commit is contained in:
Karol Stasiak 2021-09-17 22:19:39 +02:00
parent b66435d06b
commit 7530b382a8
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/main/scala/millfork/compiler/AbstractExpressionCompiler.scala
View File

@ -407,12 +407,12 @@ object AbstractExpressionCompiler {
log.error(s"Type `$targetType` doesn't have field named `$actualFieldName`", expr.position) log.error(s"Type `$targetType` doesn't have field named `$actualFieldName`", expr.position)
ok = false ok = false
} else { } else {
if (tuples.head.arrayIndexTypeAndSize.isDefined) ??? // TODO val subv = tuples.head
pointerWrap match { pointerWrap match {
case 0 => case 0 =>
currentType = tuples.head.typ currentType = if (subv.arrayIndexTypeAndSize.isDefined) env.get[Type]("pointer." + subv.typ) else subv.typ
case 1 => case 1 =>
currentType = env.get[Type]("pointer." + tuples.head.typ) currentType = env.get[Type]("pointer." + subv.typ)
case 2 => case 2 =>
currentType = env.get[Type]("pointer") currentType = env.get[Type]("pointer")
case 10 | 11 => case 10 | 11 =>

5
src/main/scala/millfork/env/Environment.scala vendored
View File

@ -2372,11 +2372,10 @@ class Environment(val parent: Option[Environment], val prefix: String, val cpuFa
builder.toList builder.toList
case s: UnionType => case s: UnionType =>
val builder = new ListBuffer[Subvariable] val builder = new ListBuffer[Subvariable]
for(FieldDesc(typeName, fieldName, vol1, arraySize) <- s.fields) { for(ResolvedFieldDesc(typ, fieldName, vol1, indexTypeAndCount) <- s.mutableFieldsWithTypes) {
val typ = get[VariableType](typeName)
val suffix = "." + fieldName val suffix = "." + fieldName
builder += Subvariable(suffix, 0, vol1, typ) builder += Subvariable(suffix, 0, vol1, typ)
if (arraySize.isEmpty) { if (indexTypeAndCount.isEmpty) {
builder ++= getSubvariables(typ).map { builder ++= getSubvariables(typ).map {
case Subvariable(innerSuffix, innerOffset, vol2, innerType, innerSize) => Subvariable(suffix + innerSuffix, innerOffset, vol1 || vol2, innerType, innerSize) case Subvariable(innerSuffix, innerOffset, vol2, innerType, innerSize) => Subvariable(suffix + innerSuffix, innerOffset, vol1 || vol2, innerType, innerSize)
} }