mirror of
https://github.com/KarolS/millfork.git
synced 2024-06-10 08:29:37 +00:00
Show the positions of unevaluated constants
This commit is contained in:
parent
34ef8b8de9
commit
38ad919ed9
|
@ -395,7 +395,7 @@ abstract class AbstractAssembler[T <: AbstractCode](private val program: Program
|
||||||
env.eval(item) match {
|
env.eval(item) match {
|
||||||
case Some(c) =>
|
case Some(c) =>
|
||||||
for(i <- 0 until elementType.alignedSize) {
|
for(i <- 0 until elementType.alignedSize) {
|
||||||
writeByte(bank, index, subbyte(c, i, elementType.size))(None)
|
writeByte(bank, index, subbyte(c, i, elementType.size))(item.position)
|
||||||
bank0.occupied(index) = true
|
bank0.occupied(index) = true
|
||||||
bank0.initialized(index) = true
|
bank0.initialized(index) = true
|
||||||
bank0.writeable(index) = true
|
bank0.writeable(index) = true
|
||||||
|
@ -565,7 +565,7 @@ abstract class AbstractAssembler[T <: AbstractCode](private val program: Program
|
||||||
env.eval(item) match {
|
env.eval(item) match {
|
||||||
case Some(c) =>
|
case Some(c) =>
|
||||||
for (i <- 0 until elementType.size) {
|
for (i <- 0 until elementType.size) {
|
||||||
writeByte(bank, index, subbyte(c, i, elementType.size))(None)
|
writeByte(bank, index, subbyte(c, i, elementType.size))(item.position)
|
||||||
index += 1
|
index += 1
|
||||||
}
|
}
|
||||||
case None =>
|
case None =>
|
||||||
|
@ -596,7 +596,7 @@ abstract class AbstractAssembler[T <: AbstractCode](private val program: Program
|
||||||
env.eval(value) match {
|
env.eval(value) match {
|
||||||
case Some(c) =>
|
case Some(c) =>
|
||||||
for (i <- 0 until typ.size) {
|
for (i <- 0 until typ.size) {
|
||||||
writeByte(bank, index, subbyte(c, i, typ.size))(None)
|
writeByte(bank, index, subbyte(c, i, typ.size))(value.position)
|
||||||
assembly.append(" " + bytePseudoopcode + " " + subbyte(c, i, typ.size).quickSimplify)
|
assembly.append(" " + bytePseudoopcode + " " + subbyte(c, i, typ.size).quickSimplify)
|
||||||
index += 1
|
index += 1
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user