6502/kickc
1
0
Fork 0
mirror of https://gitlab.com/camelot/kickc.git synced 2025-04-05 07:40:39 +00:00
Code Issues Projects Releases Wiki Activity

Pointer type rewritten to bind to variables instead of type allowing a declaration like char *a, b, **c;. Closes #265

Browse Source
This commit is contained in:
jespergravgaard 2020-03-27 21:08:18 +01:00
parent 9b41df3b6a
commit d6c60d9466
11 changed files with 1852 additions and 1352 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/main/java/dk/camelot64/kickc/parser/KickCParser.g4
View File

@ -48,10 +48,6 @@ decl
| typeDef ';'
;
typeDef
: TYPEDEF typeDecl NAME {cParser.addTypedef($NAME.text);}
;
declTypes
: directive* typeDecl directive*
;
@ -61,8 +57,16 @@ declVariables
;
declVariableList
: declVariableInit
| declVariableList COMMA declVariableInit
: declPointer* declVariableInit
| declVariableList COMMA declPointer* declVariableInit
;
declPointer
: ASTERISK directive*
;
typeDef
: TYPEDEF declTypes declPointer* NAME {cParser.addTypedef($NAME.text);}
;
declVariableInit
@ -76,14 +80,14 @@ declVariable
;
declFunction
: declTypes NAME PAR_BEGIN parameterListDecl? PAR_END CURLY_BEGIN stmtSeq? CURLY_END
: declTypes declPointer* NAME PAR_BEGIN parameterListDecl? PAR_END CURLY_BEGIN stmtSeq? CURLY_END
;
parameterListDecl
: parameterDecl (COMMA parameterDecl)* ;
parameterDecl
: declTypes NAME #parameterDeclType
: declTypes declPointer* NAME #parameterDeclType
| SIMPLETYPE #parameterDeclVoid
;
@ -149,7 +153,7 @@ switchCase:
forLoop
: forClassicInit ';' commaExpr ';' commaExpr? #forClassic
| declTypes? NAME COLON expr '..' expr #forRange
| (declTypes declPointer*)? NAME COLON expr '..' expr #forRange
;
forClassicInit
@ -161,7 +165,6 @@ typeDecl
: PAR_BEGIN typeDecl PAR_END #typePar
| SIMPLETYPE #typeSimple
| SIGNEDNESS SIMPLETYPE? #typeSignedSimple
| typeDecl ASTERISK #typePtr
| typeDecl BRACKET_BEGIN (expr)? BRACKET_END #typeArray
| typeDecl PAR_BEGIN PAR_END #typeProcedure
| structDef #typeStructDef
@ -171,6 +174,12 @@ typeDecl
| TYPEDEFNAME #typeNamedRef
;
typeSpecifier
: typeDecl #typeSpecifierSimple
| typeSpecifier ASTERISK #typeSpecifierPointer
| typeSpecifier BRACKET_BEGIN (expr)? BRACKET_END #typeSpecifierArray
;
structRef
: STRUCT NAME
;
@ -210,10 +219,10 @@ expr
| expr DOT NAME #exprDot
| expr '->' NAME #exprArrow
| expr PAR_BEGIN parameterList? PAR_END #exprCall
| SIZEOF PAR_BEGIN ( expr | typeDecl ) PAR_END #exprSizeOf
| TYPEID PAR_BEGIN ( expr | typeDecl ) PAR_END #exprTypeId
| SIZEOF PAR_BEGIN ( expr | typeSpecifier ) PAR_END #exprSizeOf
| TYPEID PAR_BEGIN ( expr | typeSpecifier ) PAR_END #exprTypeId
| expr BRACKET_BEGIN commaExpr BRACKET_END #exprArray
| PAR_BEGIN typeDecl PAR_END expr #exprCast
| PAR_BEGIN typeSpecifier PAR_END expr #exprCast
| ('--' | '++' ) expr #exprPreMod
| expr ('--' | '++' ) #exprPostMod
| ASTERISK expr #exprPtr

2469
src/main/java/dk/camelot64/kickc/parser/KickCParser.java
View File

File diff suppressed because it is too large Load Diff

84
src/main/java/dk/camelot64/kickc/parser/KickCParserBaseListener.java
View File

@ -85,18 +85,6 @@ public class KickCParserBaseListener implements KickCParserListener {
* <p>The default implementation does nothing.</p>
*/
@Override public void exitDecl(KickCParser.DeclContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypeDef(KickCParser.TypeDefContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeDef(KickCParser.TypeDefContext ctx) { }
/**
* {@inheritDoc}
*
@ -133,6 +121,30 @@ public class KickCParserBaseListener implements KickCParserListener {
* <p>The default implementation does nothing.</p>
*/
@Override public void exitDeclVariableList(KickCParser.DeclVariableListContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterDeclPointer(KickCParser.DeclPointerContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitDeclPointer(KickCParser.DeclPointerContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypeDef(KickCParser.TypeDefContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeDef(KickCParser.TypeDefContext ctx) { }
/**
* {@inheritDoc}
*
@ -805,18 +817,6 @@ public class KickCParserBaseListener implements KickCParserListener {
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeProcedure(KickCParser.TypeProcedureContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypePtr(KickCParser.TypePtrContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypePtr(KickCParser.TypePtrContext ctx) { }
/**
* {@inheritDoc}
*
@ -913,6 +913,42 @@ public class KickCParserBaseListener implements KickCParserListener {
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeEnumDef(KickCParser.TypeEnumDefContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void enterTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx) { }
/**
* {@inheritDoc}
*
* <p>The default implementation does nothing.</p>
*/
@Override public void exitTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx) { }
/**
* {@inheritDoc}
*

49
src/main/java/dk/camelot64/kickc/parser/KickCParserBaseVisitor.java
View File

@ -55,13 +55,6 @@ public class KickCParserBaseVisitor<T> extends AbstractParseTreeVisitor<T> imple
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitDecl(KickCParser.DeclContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeDef(KickCParser.TypeDefContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
@ -83,6 +76,20 @@ public class KickCParserBaseVisitor<T> extends AbstractParseTreeVisitor<T> imple
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitDeclVariableList(KickCParser.DeclVariableListContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitDeclPointer(KickCParser.DeclPointerContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeDef(KickCParser.TypeDefContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
@ -475,13 +482,6 @@ public class KickCParserBaseVisitor<T> extends AbstractParseTreeVisitor<T> imple
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeProcedure(KickCParser.TypeProcedureContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypePtr(KickCParser.TypePtrContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
@ -538,6 +538,27 @@ public class KickCParserBaseVisitor<T> extends AbstractParseTreeVisitor<T> imple
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeEnumDef(KickCParser.TypeEnumDefContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*
* <p>The default implementation returns the result of calling
* {@link #visitChildren} on {@code ctx}.</p>
*/
@Override public T visitTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx) { return visitChildren(ctx); }
/**
* {@inheritDoc}
*

78
src/main/java/dk/camelot64/kickc/parser/KickCParserListener.java
View File

@ -69,16 +69,6 @@ public interface KickCParserListener extends ParseTreeListener {
* @param ctx the parse tree
*/
void exitDecl(KickCParser.DeclContext ctx);
/**
* Enter a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
*/
void enterTypeDef(KickCParser.TypeDefContext ctx);
/**
* Exit a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
*/
void exitTypeDef(KickCParser.TypeDefContext ctx);
/**
* Enter a parse tree produced by {@link KickCParser#declTypes}.
* @param ctx the parse tree
@ -109,6 +99,26 @@ public interface KickCParserListener extends ParseTreeListener {
* @param ctx the parse tree
*/
void exitDeclVariableList(KickCParser.DeclVariableListContext ctx);
/**
* Enter a parse tree produced by {@link KickCParser#declPointer}.
* @param ctx the parse tree
*/
void enterDeclPointer(KickCParser.DeclPointerContext ctx);
/**
* Exit a parse tree produced by {@link KickCParser#declPointer}.
* @param ctx the parse tree
*/
void exitDeclPointer(KickCParser.DeclPointerContext ctx);
/**
* Enter a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
*/
void enterTypeDef(KickCParser.TypeDefContext ctx);
/**
* Exit a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
*/
void exitTypeDef(KickCParser.TypeDefContext ctx);
/**
* Enter a parse tree produced by the {@code declVariableInitExpr}
* labeled alternative in {@link KickCParser#declVariableInit}.
@ -771,18 +781,6 @@ public interface KickCParserListener extends ParseTreeListener {
* @param ctx the parse tree
*/
void exitTypeProcedure(KickCParser.TypeProcedureContext ctx);
/**
* Enter a parse tree produced by the {@code typePtr}
* labeled alternative in {@link KickCParser#typeDecl}.
* @param ctx the parse tree
*/
void enterTypePtr(KickCParser.TypePtrContext ctx);
/**
* Exit a parse tree produced by the {@code typePtr}
* labeled alternative in {@link KickCParser#typeDecl}.
* @param ctx the parse tree
*/
void exitTypePtr(KickCParser.TypePtrContext ctx);
/**
* Enter a parse tree produced by the {@code typeArray}
* labeled alternative in {@link KickCParser#typeDecl}.
@ -879,6 +877,42 @@ public interface KickCParserListener extends ParseTreeListener {
* @param ctx the parse tree
*/
void exitTypeEnumDef(KickCParser.TypeEnumDefContext ctx);
/**
* Enter a parse tree produced by the {@code typeSpecifierSimple}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void enterTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx);
/**
* Exit a parse tree produced by the {@code typeSpecifierSimple}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void exitTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx);
/**
* Enter a parse tree produced by the {@code typeSpecifierPointer}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void enterTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx);
/**
* Exit a parse tree produced by the {@code typeSpecifierPointer}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void exitTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx);
/**
* Enter a parse tree produced by the {@code typeSpecifierArray}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void enterTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx);
/**
* Exit a parse tree produced by the {@code typeSpecifierArray}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
*/
void exitTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx);
/**
* Enter a parse tree produced by {@link KickCParser#structRef}.
* @param ctx the parse tree

46
src/main/java/dk/camelot64/kickc/parser/KickCParserVisitor.java
View File

@ -48,12 +48,6 @@ public interface KickCParserVisitor<T> extends ParseTreeVisitor<T> {
* @return the visitor result
*/
T visitDecl(KickCParser.DeclContext ctx);
/**
* Visit a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypeDef(KickCParser.TypeDefContext ctx);
/**
* Visit a parse tree produced by {@link KickCParser#declTypes}.
* @param ctx the parse tree
@ -72,6 +66,18 @@ public interface KickCParserVisitor<T> extends ParseTreeVisitor<T> {
* @return the visitor result
*/
T visitDeclVariableList(KickCParser.DeclVariableListContext ctx);
/**
* Visit a parse tree produced by {@link KickCParser#declPointer}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitDeclPointer(KickCParser.DeclPointerContext ctx);
/**
* Visit a parse tree produced by {@link KickCParser#typeDef}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypeDef(KickCParser.TypeDefContext ctx);
/**
* Visit a parse tree produced by the {@code declVariableInitExpr}
* labeled alternative in {@link KickCParser#declVariableInit}.
@ -459,13 +465,6 @@ public interface KickCParserVisitor<T> extends ParseTreeVisitor<T> {
* @return the visitor result
*/
T visitTypeProcedure(KickCParser.TypeProcedureContext ctx);
/**
* Visit a parse tree produced by the {@code typePtr}
* labeled alternative in {@link KickCParser#typeDecl}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypePtr(KickCParser.TypePtrContext ctx);
/**
* Visit a parse tree produced by the {@code typeArray}
* labeled alternative in {@link KickCParser#typeDecl}.
@ -522,6 +521,27 @@ public interface KickCParserVisitor<T> extends ParseTreeVisitor<T> {
* @return the visitor result
*/
T visitTypeEnumDef(KickCParser.TypeEnumDefContext ctx);
/**
* Visit a parse tree produced by the {@code typeSpecifierSimple}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx);
/**
* Visit a parse tree produced by the {@code typeSpecifierPointer}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx);
/**
* Visit a parse tree produced by the {@code typeSpecifierArray}
* labeled alternative in {@link KickCParser#typeSpecifier}.
* @param ctx the parse tree
* @return the visitor result
*/
T visitTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx);
/**
* Visit a parse tree produced by {@link KickCParser#structRef}.
* @param ctx the parse tree

105
src/main/java/dk/camelot64/kickc/passes/Pass0GenerateStatementSequence.java
View File

@ -3,6 +3,7 @@ package dk.camelot64.kickc.passes;
import dk.camelot64.kickc.NumberParser;
import dk.camelot64.kickc.SourceLoader;
import dk.camelot64.kickc.asm.AsmClobber;
import dk.camelot64.kickc.model.InternalError;
import dk.camelot64.kickc.model.*;
import dk.camelot64.kickc.model.operators.*;
import dk.camelot64.kickc.model.statements.*;
@ -206,13 +207,17 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
@Override
public Object visitDeclFunction(KickCParser.DeclFunctionContext ctx) {
this.visitDeclTypes(ctx.declTypes());
this.visit(ctx.declTypes());
for(KickCParser.DeclPointerContext declPointerContext : ctx.declPointer()) {
this.visit(declPointerContext);
}
SymbolType type = varDecl.getEffectiveType();
List<Directive> directives = varDecl.getEffectiveDirectives();
String name = ctx.NAME().getText();
Procedure procedure = getCurrentScope().addProcedure(name, type, currentCodeSegment, currentDataSegment, currentCallingConvention);
addDirectives(procedure, directives, StatementSource.procedureBegin(ctx));
procedure.setComments(ensureUnusedComments(getCommentsSymbol(ctx)));
varDecl.exitType();
scopeStack.push(procedure);
Label procExit = procedure.addLabel(SymbolRef.PROCEXIT_BLOCK_NAME);
Variable returnVar = null;
@ -245,8 +250,6 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
sequence.addStatement(new StatementReturn(returnVarRef, StatementSource.procedureEnd(ctx), Comment.NO_COMMENTS));
scopeStack.pop();
sequence.addStatement(new StatementProcedureEnd(procedure.getRef(), StatementSource.procedureEnd(ctx), Comment.NO_COMMENTS));
varDecl.exitVar();
varDecl.exitType();
return null;
}
@ -274,11 +277,13 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
@Override
public Object visitParameterDeclType(KickCParser.ParameterDeclTypeContext ctx) {
this.visitDeclTypes(ctx.declTypes());
this.visit(ctx.declTypes());
for(KickCParser.DeclPointerContext declPointerContext : ctx.declPointer()) {
this.visit(declPointerContext);
}
String varName = ctx.NAME().getText();
VariableBuilder varBuilder = new VariableBuilder(varName, getCurrentScope(), true, varDecl.getEffectiveType(), null, varDecl.getEffectiveDirectives(), currentDataSegment, variableBuilderConfig);
Variable param = varBuilder.build();
varDecl.exitVar();
varDecl.exitType();
return param;
}
@ -547,13 +552,11 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
/** Holds the declared directives for a single variable. (variable level) */
private List<Directive> varDirectives = null;
public VariableDeclaration() {
}
/**
* Exits the type layer (clears everyting except struct information)
*/
public void exitType() {
void exitType() {
exitVar();
this.type = null;
this.directives = null;
this.arraySpec = null;
@ -563,21 +566,21 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
/**
* Exits the variable layer (clears variable information)
*/
public void exitVar() {
void exitVar() {
this.varType = null;
this.varArraySpec = null;
this.varDirectives = null;
}
public SymbolType getEffectiveType() {
SymbolType getEffectiveType() {
return varType != null ? varType : type;
}
public ArraySpec getEffectiveArraySpec() {
ArraySpec getEffectiveArraySpec() {
return varArraySpec != null ? varArraySpec : arraySpec;
}
public List<Directive> getEffectiveDirectives() {
List<Directive> getEffectiveDirectives() {
final ArrayList<Directive> dirs = new ArrayList<>();
if(directives != null)
dirs.addAll(directives);
@ -590,7 +593,7 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
return comments;
}
public boolean isStructMember() {
boolean isStructMember() {
return structMember;
}
@ -598,11 +601,11 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
this.type = type;
}
public void setArraySpec(ArraySpec arraySpec) {
void setArraySpec(ArraySpec arraySpec) {
this.arraySpec = arraySpec;
}
public void setDirectives(List<Directive> directives) {
void setDirectives(List<Directive> directives) {
this.directives = directives;
}
@ -610,21 +613,31 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
this.comments = comments;
}
public void setStructMember(boolean structMember) {
void setStructMember(boolean structMember) {
this.structMember = structMember;
}
public void setVarArraySpec(ArraySpec varArraySpec) {
void setVarArraySpec(ArraySpec varArraySpec) {
this.varArraySpec = varArraySpec;
}
public void setVarType(SymbolType varType) {
void setVarType(SymbolType varType) {
this.varType = varType;
}
}
private VariableDeclaration varDecl = new VariableDeclaration();
@Override
public Object visitDeclPointer(KickCParser.DeclPointerContext ctx) {
if(!ctx.directive().isEmpty()) {
throw new InternalError("Not implemented!");
}
varDecl.setVarType(new SymbolTypePointer(varDecl.getEffectiveType()));
return null;
}
/**
* Visit the type/directive part of a declaration. Setup the local decl-variables
*
@ -654,7 +667,11 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
if(ctx.declVariableList() != null) {
this.visit(ctx.declVariableList());
}
for(KickCParser.DeclPointerContext declPointerContext : ctx.declPointer()) {
this.visit(declPointerContext);
}
this.visit(ctx.declVariableInit());
varDecl.exitVar();
return null;
}
@ -710,12 +727,10 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
varDecl.setVarArraySpec(new ArraySpec());
varDecl.setVarType(new SymbolTypePointer(elementType));
}
// Find the variable name
return (String) this.visit(ctx.declVariable());
}
/**
* Ensure that the initializer value is a constant. Fail if it is not
*
@ -1256,7 +1271,10 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
StatementSource statementSource = StatementSource.forRanged(ctx);
// Create / find declared loop variable
if(ctx.declTypes() != null) {
this.visitDeclTypes(ctx.declTypes());
this.visit(ctx.declTypes());
for(KickCParser.DeclPointerContext declPointerContext : ctx.declPointer()) {
this.visit(declPointerContext);
}
}
SymbolType varType = varDecl.getEffectiveType();
String varName = ctx.NAME().getText();
@ -1307,7 +1325,6 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
addDirectives(doJmpStmt, stmtForCtx.directive());
addLoopBreakLabel(loopStack.pop(), ctx);
scopeStack.pop();
varDecl.exitVar();
return null;
}
@ -1652,12 +1669,6 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
return (SymbolType) visit(ctx.typeDecl());
}
@Override
public SymbolType visitTypePtr(KickCParser.TypePtrContext ctx) {
SymbolType elementType = (SymbolType) visit(ctx.typeDecl());
return new SymbolTypePointer(elementType);
}
@Override
public SymbolType visitTypeArray(KickCParser.TypeArrayContext ctx) {
if(program.isWarnArrayType()) {
@ -1686,10 +1697,14 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
public Object visitTypeDef(KickCParser.TypeDefContext ctx) {
Scope typedefScope = program.getScope().getTypeDefScope();
scopeStack.push(typedefScope);
SymbolType type = (SymbolType) this.visit(ctx.typeDecl());
this.visit(ctx.declTypes());
for(KickCParser.DeclPointerContext declPointerContext : ctx.declPointer()) {
this.visit(declPointerContext);
}
String typedefName = ctx.NAME().getText();
typedefScope.add(Variable.createPhiMaster(typedefName, type, typedefScope, defaultMemoryArea, currentDataSegment));
typedefScope.add(Variable.createPhiMaster(typedefName, varDecl.getEffectiveType(), typedefScope, defaultMemoryArea, currentDataSegment));
scopeStack.pop();
varDecl.exitType();
return null;
}
@ -1841,10 +1856,28 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
return structMemberRef;
}
@Override
public SymbolType visitTypeSpecifierSimple(KickCParser.TypeSpecifierSimpleContext ctx) {
return (SymbolType) this.visit(ctx.typeDecl());
}
@Override
public SymbolType visitTypeSpecifierPointer(KickCParser.TypeSpecifierPointerContext ctx) {
return new SymbolTypePointer((SymbolType) this.visit(ctx.typeSpecifier()));
}
@Override
public SymbolType visitTypeSpecifierArray(KickCParser.TypeSpecifierArrayContext ctx) {
SymbolType elementType = (SymbolType) visit(ctx.typeSpecifier());
if(ctx.expr() != null)
throw new InternalError("Not implemented!");
return new SymbolTypePointer(elementType);
}
@Override
public RValue visitExprCast(KickCParser.ExprCastContext ctx) {
RValue child = (RValue) this.visit(ctx.expr());
SymbolType castType = (SymbolType) this.visit(ctx.typeDecl());
SymbolType castType = (SymbolType) this.visit(ctx.typeSpecifier());
Operator operator = Operators.getCastUnary(castType);
if(child instanceof ConstantValue) {
consumeExpr(child);
@ -1861,9 +1894,9 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
@Override
public Object visitExprSizeOf(KickCParser.ExprSizeOfContext ctx) {
if(ctx.typeDecl() != null) {
if(ctx.typeSpecifier() != null) {
// sizeof(type) - add directly
SymbolType type = (SymbolType) this.visit(ctx.typeDecl());
SymbolType type = (SymbolType) this.visit(ctx.typeSpecifier());
return SizeOfConstants.getSizeOfConstantVar(program.getScope(), type);
} else {
// sizeof(expression) - add a unary expression to be resolved later
@ -1879,9 +1912,9 @@ public class Pass0GenerateStatementSequence extends KickCParserBaseVisitor<Objec
@Override
public Object visitExprTypeId(KickCParser.ExprTypeIdContext ctx) {
if(ctx.typeDecl() != null) {
if(ctx.typeSpecifier() != null) {
// typeid(type) - add directly
SymbolType type = (SymbolType) this.visit(ctx.typeDecl());
SymbolType type = (SymbolType) this.visit(ctx.typeSpecifier());
return OperatorTypeId.getTypeIdConstantVar(program.getScope(), type);
} else {
// typeid(expression) - add a unary expression to be resolved later

138
src/test/kc/complex/clearscreen/clearscreen.kc
View File

@ -13,14 +13,14 @@ const byte* SCREEN = 0x0400;
// Sprite data for the animating sprites
const byte* SPRITE_DATA = 0x2000;
// Values added to VX
const word VXSIN[40] = kickasm {{
const unsigned int VXSIN[40] = kickasm {{
.for(var i=0; i<40; i++) {
.word -sin(toRadians([i*360]/40))*4
}
}};
// Values added to VY
const word VYSIN[25] = kickasm {{
const unsigned int VYSIN[25] = kickasm {{
.for(var i=0; i<25; i++) {
.word -sin(toRadians([i*360]/25))*4
}
@ -77,9 +77,9 @@ void main() {
// Initialize the screen containing distance to the center
init_angle_screen(SCREEN_DIST);
// Copy screen to screen copy
for( byte* src=SCREEN, dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++) *dst = *src;
for( char *src=SCREEN, *dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++) *dst = *src;
// Init processing array
for( byte i: 0..NUM_PROCESSING-1 ) PROCESSING[i] = { 0, 0, 0, 0, 0, 0, 0, STATUS_FREE, 0};
for( char i: 0..NUM_PROCESSING-1 ) PROCESSING[i] = { 0, 0, 0, 0, 0, 0, 0, STATUS_FREE, 0};
// Init sprites
initSprites();
// Set-up raster interrupts
@ -102,12 +102,12 @@ void main() {
// If no non-space char is found the distance will be 0xffff
struct ProcessingChar getCharToProcess() {
struct ProcessingChar closest = { 0, 0, NOT_FOUND };
byte* screen_line = SCREEN_COPY;
byte* dist_line = SCREEN_DIST;
for( byte y: 0..24) {
for( byte x: 0..39) {
char* screen_line = SCREEN_COPY;
char* dist_line = SCREEN_DIST;
for( char y: 0..24) {
for( char x: 0..39) {
if(screen_line[x]!=' ') {
byte dist = dist_line[x];
char dist = dist_line[x];
if(dist<closest.dist) {
// Update closest char
closest = { x, y, dist };
@ -119,7 +119,7 @@ struct ProcessingChar getCharToProcess() {
}
if(closest.dist != NOT_FOUND) {
// clear the found char on the screen copy
*(SCREEN_COPY+(word)closest.y*40+closest.x) = ' ';
*(SCREEN_COPY+(unsigned int)closest.y*40+closest.x) = ' ';
}
return closest;
}
@ -127,9 +127,9 @@ struct ProcessingChar getCharToProcess() {
// Start processing a char - by inserting it into the PROCESSING array
void startProcessing(struct ProcessingChar center) {
// Busy-wait while finding an empty slot in the PROCESSING array
byte freeIdx = 0xff;
char freeIdx = 0xff;
do {
for( byte i: 0..NUM_PROCESSING-1 ) {
for( char i: 0..NUM_PROCESSING-1 ) {
if(PROCESSING[i].status==STATUS_FREE) {
freeIdx = i;
break;
@ -137,43 +137,43 @@ void startProcessing(struct ProcessingChar center) {
}
} while (freeIdx==0xff);
// Found a free sprite
byte spriteIdx = freeIdx;
char spriteIdx = freeIdx;
// Copy char into sprite
word offset = (word)center.y*40+center.x;
byte* colPtr = COLS+offset;
byte spriteCol = *colPtr;
byte* screenPtr = SCREEN+offset;
byte* spriteData = SPRITE_DATA+(word)spriteIdx*64;
byte ch = (*screenPtr);
byte* chargenData = CHARGEN+(word)ch*8;
unsigned int offset = (unsigned int)center.y*40+center.x;
char* colPtr = COLS+offset;
char spriteCol = *colPtr;
char* screenPtr = SCREEN+offset;
char* spriteData = SPRITE_DATA+(unsigned int)spriteIdx*64;
char ch = (*screenPtr);
char* chargenData = CHARGEN+(unsigned int)ch*8;
asm { sei }
*PROCPORT = PROCPORT_RAM_CHARROM;
for( byte i: 0..7) {
for( char i: 0..7) {
*spriteData = *chargenData;
spriteData += 3;
chargenData++;
}
*PROCPORT = PROCPORT_RAM_IO;
asm { cli }
word spriteX = (BORDER_XPOS_LEFT + (word)center.x*8) << 4;
word spriteY = (BORDER_YPOS_TOP + (word)center.y*8) << 4;
byte spritePtr = (byte)(SPRITE_DATA/64)+spriteIdx;
unsigned int spriteX = (BORDER_XPOS_LEFT + (unsigned int)center.x*8) << 4;
unsigned int spriteY = (BORDER_YPOS_TOP + (unsigned int)center.y*8) << 4;
char spritePtr = (char)(SPRITE_DATA/64)+spriteIdx;
// Put the sprite into the PROCESSING array
PROCESSING[spriteIdx] = { spriteX, spriteY, (word)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr };
PROCESSING[spriteIdx] = { spriteX, spriteY, (unsigned int)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr };
}
const word XPOS_LEFTMOST = (word)(BORDER_XPOS_LEFT-8)<<4;
const word XPOS_RIGHTMOST = (word)(BORDER_XPOS_RIGHT)<<4;
const word YPOS_TOPMOST = (word)(BORDER_YPOS_TOP-8)<<4;
const word YPOS_BOTTOMMOST = (word)(BORDER_YPOS_BOTTOM)<<4;
const unsigned int XPOS_LEFTMOST = (unsigned int)(BORDER_XPOS_LEFT-8)<<4;
const unsigned int XPOS_RIGHTMOST = (unsigned int)(BORDER_XPOS_RIGHT)<<4;
const unsigned int YPOS_TOPMOST = (unsigned int)(BORDER_YPOS_TOP-8)<<4;
const unsigned int YPOS_BOTTOMMOST = (unsigned int)(BORDER_YPOS_BOTTOM)<<4;
// Process any chars in the PROCESSING array
void processChars() {
byte numActive = 0;
for( byte i: 0..NUM_PROCESSING-1 ) {
char numActive = 0;
for( char i: 0..NUM_PROCESSING-1 ) {
struct ProcessingSprite* processing = PROCESSING+i;
byte bitmask = 1<<processing->id;
char bitmask = 1<<processing->id;
if(processing->status!=STATUS_FREE) {
if(processing->status==STATUS_NEW) {
// Clear the char on the screen
@ -187,15 +187,15 @@ void processChars() {
// Set status
processing->status = STATUS_PROCESSING;
}
word xpos = processing->x >> 4;
unsigned int xpos = processing->x >> 4;
// Set sprite position
if(>xpos) {
*SPRITES_XMSB |= bitmask;
} else {
*SPRITES_XMSB &= 0xff ^ bitmask;
}
SPRITES_XPOS[i*2] = (byte)xpos;
byte ypos = (byte)(processing->y>>4);
SPRITES_XPOS[i*2] = (char)xpos;
char ypos = (char)(processing->y>>4);
SPRITES_YPOS[i*2] = ypos;
// Move sprite
@ -205,10 +205,10 @@ void processChars() {
// Disable the sprite
*SPRITES_ENABLE &= 0xff ^ bitmask;
} else {
byte xchar = (byte)(xpos/8) - BORDER_XPOS_LEFT/8;
char xchar = (char)(xpos/8) - BORDER_XPOS_LEFT/8;
processing->vx += VXSIN[xchar];
processing->x += processing->vx;
byte ychar = (byte)(ypos/8) - BORDER_YPOS_TOP/8;
char ychar = (char)(ypos/8) - BORDER_YPOS_TOP/8;
processing->vy += VYSIN[ychar];
processing->y += processing->vy;
}
@ -220,23 +220,23 @@ void processChars() {
}
}
// Populates 1000 bytes (a screen) with values representing the distance to the center.
// Populates 1000 chars (a screen) with values representing the distance to the center.
// The actual value stored is distance*2 to increase precision
void init_dist_screen(byte* screen) {
void init_dist_screen(char* screen) {
NUM_SQUARES = 0x30;
init_squares();
byte* screen_topline = screen;
byte *screen_bottomline = screen+40*24;
for(byte y: 0..12) {
byte y2 = y*2;
byte yd = (y2>=24)?(y2-24):(24-y2);
word yds = sqr(yd);
for( byte x=0,xb=39; x<=19; x++, xb--) {
byte x2 = x*2;
byte xd = (x2>=39)?(x2-39):(39-x2);
word xds = sqr(xd);
word ds = xds+yds;
byte d = sqrt(ds);
char* screen_topline = screen;
char *screen_bottomline = screen+40*24;
for(char y: 0..12) {
char y2 = y*2;
char yd = (y2>=24)?(y2-24):(24-y2);
unsigned int yds = sqr(yd);
for( char x=0,xb=39; x<=19; x++, xb--) {
char x2 = x*2;
char xd = (x2>=39)?(x2-39):(39-x2);
unsigned int xds = sqr(xd);
unsigned int ds = xds+yds;
char d = sqrt(ds);
screen_topline[x] = d;
screen_bottomline[x] = d;
screen_topline[xb] = d;
@ -247,17 +247,17 @@ void init_dist_screen(byte* screen) {
}
}
// Populates 1000 bytes (a screen) with values representing the angle to the center.
// Populates 1000 chars (a screen) with values representing the angle to the center.
// Utilizes symmetry around the center
void init_angle_screen(byte* screen) {
byte* screen_topline = screen+40*12;
byte *screen_bottomline = screen+40*12;
for(byte y: 0..12) {
for( byte x=0,xb=39; x<=19; x++, xb--) {
signed word xw = (signed word)(word){ 39-x*2, 0 };
signed word yw = (signed word)(word){ y*2, 0 };
word angle_w = atan2_16(xw, yw);
byte ang_w = >(angle_w+0x0080);
void init_angle_screen(char* screen) {
char* screen_topline = screen+40*12;
char *screen_bottomline = screen+40*12;
for(char y: 0..12) {
for( char x=0,xb=39; x<=19; x++, xb--) {
signed int xw = (signed int)(unsigned int){ 39-x*2, 0 };
signed int yw = (signed int)(unsigned int){ y*2, 0 };
unsigned int angle_w = atan2_16(xw, yw);
char ang_w = >(angle_w+0x0080);
screen_bottomline[xb] = ang_w;
screen_topline[xb] = -ang_w;
screen_topline[x] = 0x80+ang_w;
@ -271,9 +271,9 @@ void init_angle_screen(byte* screen) {
// Initialize sprites
void initSprites() {
// Clear sprite data
for( byte* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++) *sp = 0;
for( char* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++) *sp = 0;
// Initialize sprite registers
for( byte i: 0..7) {
for( char i: 0..7) {
SPRITES_COLS[i] = LIGHT_BLUE;
}
*SPRITES_MC = 0;
@ -282,7 +282,7 @@ void initSprites() {
}
// Setup Raster IRQ
void setupRasterIrq(word raster, void()* irqRoutine) {
void setupRasterIrq(unsigned int raster, void()* irqRoutine) {
asm { sei }
// Disable kernal & basic
*PROCPORT_DDR = PROCPORT_DDR_MEMORY_MASK;
@ -302,15 +302,15 @@ void setupRasterIrq(word raster, void()* irqRoutine) {
asm { cli }
}
const byte RASTER_IRQ_TOP = 0x30;
const char RASTER_IRQ_TOP = 0x30;
// Raster Interrupt at the top of the screen
interrupt(hardware_all) void irqTop() {
if(DEBUG) {
for( byte i: 0..4) {}
for( char i: 0..4) {}
*BORDERCOL = WHITE;
*BGCOL = WHITE;
for( byte i: 0..7) {}
for( char i: 0..7) {}
*BORDERCOL = LIGHT_BLUE;
*BGCOL = BLUE;
}
@ -322,12 +322,12 @@ interrupt(hardware_all) void irqTop() {
*IRQ_STATUS = IRQ_RASTER;
}
const byte RASTER_IRQ_MIDDLE = 0xff;
const char RASTER_IRQ_MIDDLE = 0xff;
// Raster Interrupt at the bottom of the screen
interrupt(hardware_all) void irqBottom() {
if(DEBUG) {
for( byte i: 0..4) {}
for( char i: 0..4) {}
*BORDERCOL = WHITE;
*BGCOL = WHITE;
}

4
src/test/kc/var-register-zp-3.kc
View File

@ -7,7 +7,7 @@ void main() {
print2(screen+80, "world");
}
void print2(char* __address(250) at, char* __address(252) msg) {
void print2(__address(250) char* at, __address(252) char* msg) {
byte j=0;
for(byte i=0; msg[i]; i++) {
print_char(at, j, msg[i]);
@ -15,6 +15,6 @@ void print2(char* __address(250) at, char* __address(252) msg) {
}
}
void print_char(char* __address(250) at, char register(X) idx, char register(A) ch) {
void print_char(__address(250) char* at, register(X) char idx, register(A) char ch) {
at[idx] = ch;
}

96
src/test/ref/complex/clearscreen/clearscreen.asm
View File

@ -119,7 +119,7 @@ main: {
sta.z src+1
// Copy screen to screen copy
__b1:
// for( byte* src=SCREEN, dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// for( char *src=SCREEN, *dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
lda.z src+1
cmp #>SCREEN+$3e8
bne __b2
@ -148,7 +148,7 @@ main: {
iny
cpy #SIZEOF_STRUCT_PROCESSINGSPRITE
bne !-
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
inc.z i
lda #NUM_PROCESSING-1+1
cmp.z i
@ -188,7 +188,7 @@ main: {
ldy #0
lda (src),y
sta (dst),y
// for( byte* src=SCREEN, dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// for( char *src=SCREEN, *dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
inc.z src
bne !+
inc.z src+1
@ -259,12 +259,12 @@ startProcessing: {
bne !__b8+
jmp __b8
!__b8:
// (word)center.y
// (unsigned int)center.y
lda.z center_y
sta.z __0
lda #0
sta.z __0+1
// (word)center.y*40
// (unsigned int)center.y*40
lda.z __0
asl
sta.z __34
@ -286,7 +286,7 @@ startProcessing: {
rol.z __1+1
asl.z __1
rol.z __1+1
// offset = (word)center.y*40+center.x
// offset = (unsigned int)center.y*40+center.x
lda.z center_x
clc
adc.z offset
@ -314,12 +314,12 @@ startProcessing: {
lda.z screenPtr+1
adc #>SCREEN
sta.z screenPtr+1
// (word)spriteIdx
// (unsigned int)spriteIdx
lda.z freeIdx
sta.z __5
tya
sta.z __5+1
// (word)spriteIdx*64
// (unsigned int)spriteIdx*64
asl.z __6
rol.z __6+1
asl.z __6
@ -332,7 +332,7 @@ startProcessing: {
rol.z __6+1
asl.z __6
rol.z __6+1
// spriteData = SPRITE_DATA+(word)spriteIdx*64
// spriteData = SPRITE_DATA+(unsigned int)spriteIdx*64
clc
lda.z spriteData
adc #<SPRITE_DATA
@ -342,18 +342,18 @@ startProcessing: {
sta.z spriteData+1
// ch = (*screenPtr)
lda (screenPtr),y
// (word)ch
// (unsigned int)ch
sta.z __8
tya
sta.z __8+1
// (word)ch*8
// (unsigned int)ch*8
asl.z __9
rol.z __9+1
asl.z __9
rol.z __9+1
asl.z __9
rol.z __9+1
// chargenData = CHARGEN+(word)ch*8
// chargenData = CHARGEN+(unsigned int)ch*8
clc
lda.z chargenData
adc #<CHARGEN
@ -385,7 +385,7 @@ startProcessing: {
bne !+
inc.z chargenData+1
!:
// for( byte i: 0..7)
// for( char i: 0..7)
inx
cpx #8
bne __b6
@ -394,19 +394,19 @@ startProcessing: {
sta PROCPORT
// asm
cli
// (word)center.x
// (unsigned int)center.x
lda.z center_x
sta.z __11
lda #0
sta.z __11+1
// (word)center.x*8
// (unsigned int)center.x*8
asl.z __12
rol.z __12+1
asl.z __12
rol.z __12+1
asl.z __12
rol.z __12+1
// BORDER_XPOS_LEFT + (word)center.x*8
// BORDER_XPOS_LEFT + (unsigned int)center.x*8
lda #BORDER_XPOS_LEFT
clc
adc.z __13
@ -414,7 +414,7 @@ startProcessing: {
bcc !+
inc.z __13+1
!:
// spriteX = (BORDER_XPOS_LEFT + (word)center.x*8) << 4
// spriteX = (BORDER_XPOS_LEFT + (unsigned int)center.x*8) << 4
asl.z spriteX
rol.z spriteX+1
asl.z spriteX
@ -423,19 +423,19 @@ startProcessing: {
rol.z spriteX+1
asl.z spriteX
rol.z spriteX+1
// (word)center.y
// (unsigned int)center.y
lda.z center_y
sta.z __15
lda #0
sta.z __15+1
// (word)center.y*8
// (unsigned int)center.y*8
asl.z __16
rol.z __16+1
asl.z __16
rol.z __16+1
asl.z __16
rol.z __16+1
// BORDER_YPOS_TOP + (word)center.y*8
// BORDER_YPOS_TOP + (unsigned int)center.y*8
lda #BORDER_YPOS_TOP
clc
adc.z __17
@ -443,7 +443,7 @@ startProcessing: {
bcc !+
inc.z __17+1
!:
// spriteY = (BORDER_YPOS_TOP + (word)center.y*8) << 4
// spriteY = (BORDER_YPOS_TOP + (unsigned int)center.y*8) << 4
asl.z spriteY
rol.z spriteY+1
asl.z spriteY
@ -452,7 +452,7 @@ startProcessing: {
rol.z spriteY+1
asl.z spriteY
rol.z spriteY+1
// spritePtr = (byte)(SPRITE_DATA/64)+spriteIdx
// spritePtr = (char)(SPRITE_DATA/64)+spriteIdx
lax.z freeIdx
axs #-[SPRITE_DATA/$40]
stx.z spritePtr
@ -461,11 +461,11 @@ startProcessing: {
asl
asl
asl
// (word)(spriteIdx*8)
// (unsigned int)(spriteIdx*8)
sta.z __21
lda #0
sta.z __21+1
// PROCESSING[spriteIdx] = { spriteX, spriteY, (word)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr }
// PROCESSING[spriteIdx] = { spriteX, spriteY, (unsigned int)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr }
lda.z freeIdx
asl
clc
@ -509,7 +509,7 @@ startProcessing: {
ldx.z freeIdx
jmp __b1
__b3:
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
inc.z i
lda #NUM_PROCESSING-1+1
cmp.z i
@ -570,7 +570,7 @@ getCharToProcess: {
lda.z y
sta.z return_y
__b3:
// for( byte x: 0..39)
// for( char x: 0..39)
iny
cpy #$28
bne __b10
@ -590,7 +590,7 @@ getCharToProcess: {
bcc !+
inc.z dist_line+1
!:
// for( byte y: 0..24)
// for( char y: 0..24)
inc.z y
lda #$19
cmp.z y
@ -598,12 +598,12 @@ getCharToProcess: {
// if(closest.dist != NOT_FOUND)
cpx #NOT_FOUND
beq __breturn
// (word)closest.y
// (unsigned int)closest.y
lda.z return_y
sta.z __8
lda #0
sta.z __8+1
// (word)closest.y*40
// (unsigned int)closest.y*40
lda.z __8
asl
sta.z __12
@ -625,7 +625,7 @@ getCharToProcess: {
rol.z __9+1
asl.z __9
rol.z __9+1
// SCREEN_COPY+(word)closest.y*40
// SCREEN_COPY+(unsigned int)closest.y*40
lda.z __10
clc
adc.z SCREEN_COPY
@ -633,7 +633,7 @@ getCharToProcess: {
lda.z __10+1
adc.z SCREEN_COPY+1
sta.z __10+1
// *(SCREEN_COPY+(word)closest.y*40+closest.x) = ' '
// *(SCREEN_COPY+(unsigned int)closest.y*40+closest.x) = ' '
// clear the found char on the screen copy
lda #' '
ldy.z return_x
@ -701,7 +701,7 @@ initSprites: {
sta.z sp+1
// Clear sprite data
__b1:
// for( byte* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// for( char* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
lda.z sp+1
cmp #>SPRITE_DATA+NUM_PROCESSING*$40
bcc __b2
@ -716,7 +716,7 @@ initSprites: {
// SPRITES_COLS[i] = LIGHT_BLUE
lda #LIGHT_BLUE
sta SPRITES_COLS,x
// for( byte i: 0..7)
// for( char i: 0..7)
inx
cpx #8
bne __b3
@ -734,14 +734,14 @@ initSprites: {
lda #0
tay
sta (sp),y
// for( byte* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// for( char* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
inc.z sp
bne !+
inc.z sp+1
!:
jmp __b1
}
// Populates 1000 bytes (a screen) with values representing the angle to the center.
// Populates 1000 chars (a screen) with values representing the angle to the center.
// Utilizes symmetry around the center
// init_angle_screen(byte* zp($11) screen)
init_angle_screen: {
@ -780,7 +780,7 @@ init_angle_screen: {
lda #0
sta.z x
__b2:
// for( byte x=0,xb=39; x<=19; x++, xb--)
// for( char x=0,xb=39; x<=19; x++, xb--)
lda.z x
cmp #$13+1
bcc __b3
@ -800,7 +800,7 @@ init_angle_screen: {
bcc !+
inc.z screen_bottomline+1
!:
// for(byte y: 0..12)
// for(char y: 0..12)
inc.z y
lda #$d
cmp.z y
@ -815,14 +815,14 @@ init_angle_screen: {
eor #$ff
clc
adc #$27+1
// (word){ 39-x*2, 0 }
// (unsigned int){ 39-x*2, 0 }
ldy #0
sta.z xw+1
sty.z xw
// y*2
lda.z y
asl
// (word){ y*2, 0 }
// (unsigned int){ y*2, 0 }
sta.z yw+1
sty.z yw
// atan2_16(xw, yw)
@ -861,7 +861,7 @@ init_angle_screen: {
sbc.z ang_w
// screen_bottomline[x] = 0x80-ang_w
sta (screen_bottomline),y
// for( byte x=0,xb=39; x<=19; x++, xb--)
// for( char x=0,xb=39; x<=19; x++, xb--)
inc.z x
dec.z xb
jmp __b2
@ -1260,9 +1260,9 @@ processChars: {
lda.z i
asl
tax
// (byte)xpos
// (char)xpos
lda.z xpos
// SPRITES_XPOS[i*2] = (byte)xpos
// SPRITES_XPOS[i*2] = (char)xpos
sta SPRITES_XPOS,x
// processing->y>>4
ldy #OFFSET_STRUCT_PROCESSINGSPRITE_Y
@ -1279,7 +1279,7 @@ processChars: {
ror.z __13
lsr.z __13+1
ror.z __13
// ypos = (byte)(processing->y>>4)
// ypos = (char)(processing->y>>4)
lda.z __13
sta.z ypos
// SPRITES_YPOS[i*2] = ypos
@ -1349,9 +1349,9 @@ processChars: {
ror.z __23
lsr.z __23+1
ror.z __23
// (byte)(xpos/8)
// (char)(xpos/8)
lda.z __23
// xchar = (byte)(xpos/8) - BORDER_XPOS_LEFT/8
// xchar = (char)(xpos/8) - BORDER_XPOS_LEFT/8
sec
sbc #BORDER_XPOS_LEFT/8
// processing->vx += VXSIN[xchar]
@ -1380,12 +1380,12 @@ processChars: {
ldy #1
adc (processing),y
sta (processing),y
// (byte)(ypos/8)
// (char)(ypos/8)
lda.z ypos
lsr
lsr
lsr
// ychar = (byte)(ypos/8) - BORDER_YPOS_TOP/8
// ychar = (char)(ypos/8) - BORDER_YPOS_TOP/8
sec
sbc #BORDER_YPOS_TOP/8
// processing->vy += VYSIN[ychar]
@ -1416,7 +1416,7 @@ processChars: {
// numActive++;
inc.z numActive
__b2:
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
inc.z i
lda #NUM_PROCESSING-1+1
cmp.z i

100
src/test/ref/complex/clearscreen/clearscreen.log
View File

@ -5730,7 +5730,7 @@ initSprites: {
jmp __b1
}
// init_angle_screen
// Populates 1000 bytes (a screen) with values representing the angle to the center.
// Populates 1000 chars (a screen) with values representing the angle to the center.
// Utilizes symmetry around the center
// init_angle_screen(byte* zp($38) screen)
init_angle_screen: {
@ -8600,7 +8600,7 @@ initSprites: {
jmp __b1
}
// init_angle_screen
// Populates 1000 bytes (a screen) with values representing the angle to the center.
// Populates 1000 chars (a screen) with values representing the angle to the center.
// Utilizes symmetry around the center
// init_angle_screen(byte* zp($11) screen)
init_angle_screen: {
@ -10540,7 +10540,7 @@ main: {
// Copy screen to screen copy
// main::@1
__b1:
// for( byte* src=SCREEN, dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// for( char *src=SCREEN, *dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// [13] if((byte*) main::src#2!=(const byte*) SCREEN+(word) $3e8) goto main::@2 -- pbuz1_neq_pbuc1_then_la1
lda.z src+1
cmp #>SCREEN+$3e8
@ -10581,7 +10581,7 @@ main: {
iny
cpy #SIZEOF_STRUCT_PROCESSINGSPRITE
bne !-
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
// [21] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuz1=_inc_vbuz1
inc.z i
// [22] if((byte) main::i#1!=(const byte) NUM_PROCESSING-(byte) 1+(byte) 1) goto main::@3 -- vbuz1_neq_vbuc1_then_la1
@ -10652,7 +10652,7 @@ main: {
ldy #0
lda (src),y
sta (dst),y
// for( byte* src=SCREEN, dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// for( char *src=SCREEN, *dst=SCREEN_COPY; src!=SCREEN+1000; src++, dst++)
// [42] (byte*) main::src#1 ← ++ (byte*) main::src#2 -- pbuz1=_inc_pbuz1
inc.z src
bne !+
@ -10748,13 +10748,13 @@ startProcessing: {
jmp __b8
!__b8:
// startProcessing::@5
// (word)center.y
// (unsigned int)center.y
// [55] (word~) startProcessing::$0 ← (word)(byte) startProcessing::center_y#0 -- vwuz1=_word_vbuz2
lda.z center_y
sta.z __0
lda #0
sta.z __0+1
// (word)center.y*40
// (unsigned int)center.y*40
// [56] (word~) startProcessing::$34 ← (word~) startProcessing::$0 << (byte) 2 -- vwuz1=vwuz2_rol_2
lda.z __0
asl
@ -10779,7 +10779,7 @@ startProcessing: {
rol.z __1+1
asl.z __1
rol.z __1+1
// offset = (word)center.y*40+center.x
// offset = (unsigned int)center.y*40+center.x
// [59] (word) startProcessing::offset#0 ← (word~) startProcessing::$1 + (byte) startProcessing::center_x#0 -- vwuz1=vwuz1_plus_vbuz2
lda.z center_x
clc
@ -10811,13 +10811,13 @@ startProcessing: {
lda.z screenPtr+1
adc #>SCREEN
sta.z screenPtr+1
// (word)spriteIdx
// (unsigned int)spriteIdx
// [63] (word~) startProcessing::$5 ← (word)(byte) startProcessing::freeIdx#2 -- vwuz1=_word_vbuz2
lda.z freeIdx
sta.z __5
tya
sta.z __5+1
// (word)spriteIdx*64
// (unsigned int)spriteIdx*64
// [64] (word~) startProcessing::$6 ← (word~) startProcessing::$5 << (byte) 6 -- vwuz1=vwuz1_rol_6
asl.z __6
rol.z __6+1
@ -10831,7 +10831,7 @@ startProcessing: {
rol.z __6+1
asl.z __6
rol.z __6+1
// spriteData = SPRITE_DATA+(word)spriteIdx*64
// spriteData = SPRITE_DATA+(unsigned int)spriteIdx*64
// [65] (byte*) startProcessing::spriteData#0 ← (const byte*) SPRITE_DATA + (word~) startProcessing::$6 -- pbuz1=pbuc1_plus_vwuz1
clc
lda.z spriteData
@ -10843,12 +10843,12 @@ startProcessing: {
// ch = (*screenPtr)
// [66] (byte) startProcessing::ch#0 ← *((byte*) startProcessing::screenPtr#0) -- vbuaa=_deref_pbuz1
lda (screenPtr),y
// (word)ch
// (unsigned int)ch
// [67] (word~) startProcessing::$8 ← (word)(byte) startProcessing::ch#0 -- vwuz1=_word_vbuaa
sta.z __8
tya
sta.z __8+1
// (word)ch*8
// (unsigned int)ch*8
// [68] (word~) startProcessing::$9 ← (word~) startProcessing::$8 << (byte) 3 -- vwuz1=vwuz1_rol_3
asl.z __9
rol.z __9+1
@ -10856,7 +10856,7 @@ startProcessing: {
rol.z __9+1
asl.z __9
rol.z __9+1
// chargenData = CHARGEN+(word)ch*8
// chargenData = CHARGEN+(unsigned int)ch*8
// [69] (byte*) startProcessing::chargenData#0 ← (const byte*) CHARGEN + (word~) startProcessing::$9 -- pbuz1=pbuc1_plus_vwuz1
clc
lda.z chargenData
@ -10903,7 +10903,7 @@ startProcessing: {
bne !+
inc.z chargenData+1
!:
// for( byte i: 0..7)
// for( char i: 0..7)
// [76] (byte) startProcessing::i1#1 ← ++ (byte) startProcessing::i1#2 -- vbuxx=_inc_vbuxx
inx
// [77] if((byte) startProcessing::i1#1!=(byte) 8) goto startProcessing::@6 -- vbuxx_neq_vbuc1_then_la1
@ -10917,13 +10917,13 @@ startProcessing: {
// asm
// asm { cli }
cli
// (word)center.x
// (unsigned int)center.x
// [80] (word~) startProcessing::$11 ← (word)(byte) startProcessing::center_x#0 -- vwuz1=_word_vbuz2
lda.z center_x
sta.z __11
lda #0
sta.z __11+1
// (word)center.x*8
// (unsigned int)center.x*8
// [81] (word~) startProcessing::$12 ← (word~) startProcessing::$11 << (byte) 3 -- vwuz1=vwuz1_rol_3
asl.z __12
rol.z __12+1
@ -10931,7 +10931,7 @@ startProcessing: {
rol.z __12+1
asl.z __12
rol.z __12+1
// BORDER_XPOS_LEFT + (word)center.x*8
// BORDER_XPOS_LEFT + (unsigned int)center.x*8
// [82] (word~) startProcessing::$13 ← (const byte) BORDER_XPOS_LEFT + (word~) startProcessing::$12 -- vwuz1=vbuc1_plus_vwuz1
lda #BORDER_XPOS_LEFT
clc
@ -10940,7 +10940,7 @@ startProcessing: {
bcc !+
inc.z __13+1
!:
// spriteX = (BORDER_XPOS_LEFT + (word)center.x*8) << 4
// spriteX = (BORDER_XPOS_LEFT + (unsigned int)center.x*8) << 4
// [83] (word) startProcessing::spriteX#0 ← (word~) startProcessing::$13 << (byte) 4 -- vwuz1=vwuz1_rol_4
asl.z spriteX
rol.z spriteX+1
@ -10950,13 +10950,13 @@ startProcessing: {
rol.z spriteX+1
asl.z spriteX
rol.z spriteX+1
// (word)center.y
// (unsigned int)center.y
// [84] (word~) startProcessing::$15 ← (word)(byte) startProcessing::center_y#0 -- vwuz1=_word_vbuz2
lda.z center_y
sta.z __15
lda #0
sta.z __15+1
// (word)center.y*8
// (unsigned int)center.y*8
// [85] (word~) startProcessing::$16 ← (word~) startProcessing::$15 << (byte) 3 -- vwuz1=vwuz1_rol_3
asl.z __16
rol.z __16+1
@ -10964,7 +10964,7 @@ startProcessing: {
rol.z __16+1
asl.z __16
rol.z __16+1
// BORDER_YPOS_TOP + (word)center.y*8
// BORDER_YPOS_TOP + (unsigned int)center.y*8
// [86] (word~) startProcessing::$17 ← (const byte) BORDER_YPOS_TOP + (word~) startProcessing::$16 -- vwuz1=vbuc1_plus_vwuz1
lda #BORDER_YPOS_TOP
clc
@ -10973,7 +10973,7 @@ startProcessing: {
bcc !+
inc.z __17+1
!:
// spriteY = (BORDER_YPOS_TOP + (word)center.y*8) << 4
// spriteY = (BORDER_YPOS_TOP + (unsigned int)center.y*8) << 4
// [87] (word) startProcessing::spriteY#0 ← (word~) startProcessing::$17 << (byte) 4 -- vwuz1=vwuz1_rol_4
asl.z spriteY
rol.z spriteY+1
@ -10983,7 +10983,7 @@ startProcessing: {
rol.z spriteY+1
asl.z spriteY
rol.z spriteY+1
// spritePtr = (byte)(SPRITE_DATA/64)+spriteIdx
// spritePtr = (char)(SPRITE_DATA/64)+spriteIdx
// [88] (byte) startProcessing::spritePtr#0 ← (byte)(const byte*) SPRITE_DATA/(byte) $40 + (byte) startProcessing::freeIdx#2 -- vbuz1=vbuc1_plus_vbuz2
lax.z freeIdx
axs #-[SPRITE_DATA/$40]
@ -10994,12 +10994,12 @@ startProcessing: {
asl
asl
asl
// (word)(spriteIdx*8)
// (unsigned int)(spriteIdx*8)
// [90] (word~) startProcessing::$21 ← (word)(byte~) startProcessing::$20 -- vwuz1=_word_vbuaa
sta.z __21
lda #0
sta.z __21+1
// PROCESSING[spriteIdx] = { spriteX, spriteY, (word)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr }
// PROCESSING[spriteIdx] = { spriteX, spriteY, (unsigned int)(spriteIdx*8), 60, spriteIdx, spritePtr, spriteCol, STATUS_NEW, screenPtr }
// [91] (byte~) startProcessing::$37 ← (byte) startProcessing::freeIdx#2 << (byte) 1 -- vbuaa=vbuz1_rol_1
lda.z freeIdx
asl
@ -11064,7 +11064,7 @@ startProcessing: {
jmp __b1
// startProcessing::@3
__b3:
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
// [107] (byte) startProcessing::i#1 ← ++ (byte) startProcessing::i#2 -- vbuz1=_inc_vbuz1
inc.z i
// [108] if((byte) startProcessing::i#1!=(const byte) NUM_PROCESSING-(byte) 1+(byte) 1) goto startProcessing::@2 -- vbuz1_neq_vbuc1_then_la1
@ -11158,7 +11158,7 @@ getCharToProcess: {
// [119] phi (byte) getCharToProcess::return_dist#1 = (byte) getCharToProcess::return_dist#5 [phi:getCharToProcess::@11/getCharToProcess::@12/getCharToProcess::@5->getCharToProcess::@3#2] -- register_copy
// getCharToProcess::@3
__b3:
// for( byte x: 0..39)
// for( char x: 0..39)
// [120] (byte) getCharToProcess::x#1 ← ++ (byte) getCharToProcess::x#2 -- vbuyy=_inc_vbuyy
iny
// [121] if((byte) getCharToProcess::x#1!=(byte) $28) goto getCharToProcess::@10 -- vbuyy_neq_vbuc1_then_la1
@ -11183,7 +11183,7 @@ getCharToProcess: {
bcc !+
inc.z dist_line+1
!:
// for( byte y: 0..24)
// for( char y: 0..24)
// [124] (byte) getCharToProcess::y#1 ← ++ (byte) getCharToProcess::y#7 -- vbuz1=_inc_vbuz1
inc.z y
// [125] if((byte) getCharToProcess::y#1!=(byte) $19) goto getCharToProcess::@9 -- vbuz1_neq_vbuc1_then_la1
@ -11196,13 +11196,13 @@ getCharToProcess: {
cpx #NOT_FOUND
beq __breturn
// getCharToProcess::@8
// (word)closest.y
// (unsigned int)closest.y
// [127] (word~) getCharToProcess::$8 ← (word)(byte) getCharToProcess::return_y#1 -- vwuz1=_word_vbuz2
lda.z return_y
sta.z __8
lda #0
sta.z __8+1
// (word)closest.y*40
// (unsigned int)closest.y*40
// [128] (word~) getCharToProcess::$12 ← (word~) getCharToProcess::$8 << (byte) 2 -- vwuz1=vwuz2_rol_2
lda.z __8
asl
@ -11227,7 +11227,7 @@ getCharToProcess: {
rol.z __9+1
asl.z __9
rol.z __9+1
// SCREEN_COPY+(word)closest.y*40
// SCREEN_COPY+(unsigned int)closest.y*40
// [131] (byte*~) getCharToProcess::$10 ← (byte*)(void*) SCREEN_COPY#0 + (word~) getCharToProcess::$9 -- pbuz1=pbuz2_plus_vwuz1
lda.z __10
clc
@ -11236,7 +11236,7 @@ getCharToProcess: {
lda.z __10+1
adc.z SCREEN_COPY+1
sta.z __10+1
// *(SCREEN_COPY+(word)closest.y*40+closest.x) = ' '
// *(SCREEN_COPY+(unsigned int)closest.y*40+closest.x) = ' '
// [132] *((byte*~) getCharToProcess::$10 + (byte) getCharToProcess::return_x#1) ← (byte) ' ' -- pbuz1_derefidx_vbuz2=vbuc1
// clear the found char on the screen copy
lda #' '
@ -11345,7 +11345,7 @@ initSprites: {
// Clear sprite data
// initSprites::@1
__b1:
// for( byte* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// for( char* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// [150] if((byte*) initSprites::sp#2<(const byte*) SPRITE_DATA+(const byte) NUM_PROCESSING*(byte) $40) goto initSprites::@2 -- pbuz1_lt_pbuc1_then_la1
lda.z sp+1
cmp #>SPRITE_DATA+NUM_PROCESSING*$40
@ -11367,7 +11367,7 @@ initSprites: {
// [152] *((const byte*) SPRITES_COLS + (byte) initSprites::i#2) ← (const byte) LIGHT_BLUE -- pbuc1_derefidx_vbuxx=vbuc2
lda #LIGHT_BLUE
sta SPRITES_COLS,x
// for( byte i: 0..7)
// for( char i: 0..7)
// [153] (byte) initSprites::i#1 ← ++ (byte) initSprites::i#2 -- vbuxx=_inc_vbuxx
inx
// [154] if((byte) initSprites::i#1!=(byte) 8) goto initSprites::@3 -- vbuxx_neq_vbuc1_then_la1
@ -11395,7 +11395,7 @@ initSprites: {
lda #0
tay
sta (sp),y
// for( byte* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// for( char* sp = SPRITE_DATA; sp<SPRITE_DATA+NUM_PROCESSING*64; sp++)
// [160] (byte*) initSprites::sp#1 ← ++ (byte*) initSprites::sp#2 -- pbuz1=_inc_pbuz1
inc.z sp
bne !+
@ -11406,7 +11406,7 @@ initSprites: {
jmp __b1
}
// init_angle_screen
// Populates 1000 bytes (a screen) with values representing the angle to the center.
// Populates 1000 chars (a screen) with values representing the angle to the center.
// Utilizes symmetry around the center
// init_angle_screen(byte* zp($11) screen)
init_angle_screen: {
@ -11460,7 +11460,7 @@ init_angle_screen: {
sta.z x
// init_angle_screen::@2
__b2:
// for( byte x=0,xb=39; x<=19; x++, xb--)
// for( char x=0,xb=39; x<=19; x++, xb--)
// [165] if((byte) init_angle_screen::x#2<(byte) $13+(byte) 1) goto init_angle_screen::@3 -- vbuz1_lt_vbuc1_then_la1
lda.z x
cmp #$13+1
@ -11484,7 +11484,7 @@ init_angle_screen: {
bcc !+
inc.z screen_bottomline+1
!:
// for(byte y: 0..12)
// for(char y: 0..12)
// [168] (byte) init_angle_screen::y#1 ← ++ (byte) init_angle_screen::y#5 -- vbuz1=_inc_vbuz1
inc.z y
// [169] if((byte) init_angle_screen::y#1!=(byte) $d) goto init_angle_screen::@1 -- vbuz1_neq_vbuc1_then_la1
@ -11506,7 +11506,7 @@ init_angle_screen: {
eor #$ff
clc
adc #$27+1
// (word){ 39-x*2, 0 }
// (unsigned int){ 39-x*2, 0 }
// [173] (word) init_angle_screen::xw#0 ← (byte~) init_angle_screen::$4 w= (byte) 0 -- vwuz1=vbuaa_word_vbuc1
ldy #0
sta.z xw+1
@ -11515,7 +11515,7 @@ init_angle_screen: {
// [174] (byte~) init_angle_screen::$7 ← (byte) init_angle_screen::y#5 << (byte) 1 -- vbuaa=vbuz1_rol_1
lda.z y
asl
// (word){ y*2, 0 }
// (unsigned int){ y*2, 0 }
// [175] (word) init_angle_screen::yw#0 ← (byte~) init_angle_screen::$7 w= (byte) 0 -- vwuz1=vbuaa_word_vbuc1
sta.z yw+1
sty.z yw
@ -11570,7 +11570,7 @@ init_angle_screen: {
// screen_bottomline[x] = 0x80-ang_w
// [189] *((byte*) init_angle_screen::screen_bottomline#6 + (byte) init_angle_screen::x#2) ← (byte~) init_angle_screen::$15 -- pbuz1_derefidx_vbuz2=vbuaa
sta (screen_bottomline),y
// for( byte x=0,xb=39; x<=19; x++, xb--)
// for( char x=0,xb=39; x<=19; x++, xb--)
// [190] (byte) init_angle_screen::x#1 ← ++ (byte) init_angle_screen::x#2 -- vbuz1=_inc_vbuz1
inc.z x
// [191] (byte) init_angle_screen::xb#1 ← -- (byte) init_angle_screen::xb#2 -- vbuz1=_dec_vbuz1
@ -12112,10 +12112,10 @@ processChars: {
lda.z i
asl
tax
// (byte)xpos
// (char)xpos
// [268] (byte~) processChars::$12 ← (byte)(word) processChars::xpos#0 -- vbuaa=_byte_vwuz1
lda.z xpos
// SPRITES_XPOS[i*2] = (byte)xpos
// SPRITES_XPOS[i*2] = (char)xpos
// [269] *((const byte*) SPRITES_XPOS + (byte~) processChars::$15) ← (byte~) processChars::$12 -- pbuc1_derefidx_vbuxx=vbuaa
sta SPRITES_XPOS,x
// processing->y>>4
@ -12134,7 +12134,7 @@ processChars: {
ror.z __13
lsr.z __13+1
ror.z __13
// ypos = (byte)(processing->y>>4)
// ypos = (char)(processing->y>>4)
// [271] (byte) processChars::ypos#0 ← (byte)(word~) processChars::$13 -- vbuz1=_byte_vwuz2
lda.z __13
sta.z ypos
@ -12215,10 +12215,10 @@ processChars: {
ror.z __23
lsr.z __23+1
ror.z __23
// (byte)(xpos/8)
// (char)(xpos/8)
// [278] (byte~) processChars::$24 ← (byte)(word~) processChars::$23 -- vbuaa=_byte_vwuz1
lda.z __23
// xchar = (byte)(xpos/8) - BORDER_XPOS_LEFT/8
// xchar = (char)(xpos/8) - BORDER_XPOS_LEFT/8
// [279] (byte) processChars::xchar#0 ← (byte~) processChars::$24 - (const byte) BORDER_XPOS_LEFT/(byte) 8 -- vbuaa=vbuaa_minus_vbuc1
sec
sbc #BORDER_XPOS_LEFT/8
@ -12251,13 +12251,13 @@ processChars: {
ldy #1
adc (processing),y
sta (processing),y
// (byte)(ypos/8)
// (char)(ypos/8)
// [283] (byte~) processChars::$27 ← (byte) processChars::ypos#0 >> (byte) 3 -- vbuaa=vbuz1_ror_3
lda.z ypos
lsr
lsr
lsr
// ychar = (byte)(ypos/8) - BORDER_YPOS_TOP/8
// ychar = (char)(ypos/8) - BORDER_YPOS_TOP/8
// [284] (byte) processChars::ychar#0 ← (byte~) processChars::$27 - (const byte) BORDER_YPOS_TOP/(byte) 8 -- vbuaa=vbuaa_minus_vbuc1
sec
sbc #BORDER_YPOS_TOP/8
@ -12297,7 +12297,7 @@ processChars: {
// [289] phi (byte) processChars::numActive#3 = (byte) processChars::numActive#10 [phi:processChars::@1/processChars::@7->processChars::@2#0] -- register_copy
// processChars::@2
__b2:
// for( byte i: 0..NUM_PROCESSING-1 )
// for( char i: 0..NUM_PROCESSING-1 )
// [290] (byte) processChars::i#1 ← ++ (byte) processChars::i#10 -- vbuz1=_inc_vbuz1
inc.z i
// [291] if((byte) processChars::i#1!=(const byte) NUM_PROCESSING-(byte) 1+(byte) 1) goto processChars::@1 -- vbuz1_neq_vbuc1_then_la1