1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-07-05 09:28:54 +00:00

Fix emitting constant decimal expressions

This commit is contained in:
Karol Stasiak 2018-07-03 01:45:20 +02:00
parent da023daadc
commit be04c9b195

View File

@ -153,7 +153,7 @@ abstract class AbstractAssembler[T <: AbstractCode](private val program: Program
var result = 0L
var multiplier = 1L
while (x > 0) {
result += multiplier * (a % 16L)
result += multiplier * (x % 16L)
x /= 16L
multiplier *= 10L
}
@ -166,7 +166,7 @@ abstract class AbstractAssembler[T <: AbstractCode](private val program: Program
var result = 0L
var multiplier = 1L
while (x > 0) {
result += multiplier * (a % 10L)
result += multiplier * (x % 10L)
x /= 10L
multiplier *= 16L
}