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

Quick fix

Browse Source
This commit is contained in:
Karol Stasiak 2019-04-15 19:43:44 +02:00
parent eb69957ada
commit 2d0aa9724b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/main/scala/millfork/compiler/AbstractStatementPreprocessor.scala
View File

@ -250,7 +250,7 @@ abstract class AbstractStatementPreprocessor(ctx: CompilationContext, statements
case TextLiteralExpression(characters) =>
val name = genName(characters)
if (ctx.env.maybeGet[Thing](name).isEmpty) {
ctx.env.root.registerArray(ArrayDeclarationStatement(name, None, None, None, Some(LiteralContents(characters)), None).pos(pos), ctx.options)
ctx.env.root.registerArray(ArrayDeclarationStatement(name, None, None, "byte", None, Some(LiteralContents(characters)), None).pos(pos), ctx.options)
}
VariableExpression(name).pos(pos)
case VariableExpression(v) if currentVarValues.contains(v) =>
@ -260,7 +260,7 @@ abstract class AbstractStatementPreprocessor(ctx: CompilationContext, statements
case FunctionCallExpression(t1, List(FunctionCallExpression(t2, List(arg))))
if optimize && pointlessDoubleCast(t1, t2, arg) =>
ctx.log.debug(s"Pointless double cast $t1($t2(...))", pos)
optimizeExpr(FunctionCallExpression(t1, List(arg)), currentVarValues)
optimizeExpr(FunctionCallExpression(t1, List(arg)).pos(pos), currentVarValues)
case FunctionCallExpression(t1, List(arg))
if optimize && pointlessCast(t1, arg) =>
ctx.log.debug(s"Pointless cast $t1(...)", pos)