1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-10-21 02:24:34 +00:00

Implemented arbitrary (unsigned) integer multiplication. Also allows structs to have any size - and still use arrys indexing. Closes #193

This commit is contained in:
jespergravgaard 2019-06-11 01:34:24 +02:00
parent 69278c458a
commit 9d8d8f02e2
12 changed files with 2881 additions and 7 deletions

View File

@ -1,13 +1,20 @@
package dk.camelot64.kickc.passes;
import dk.camelot64.kickc.model.Comment;
import dk.camelot64.kickc.model.ConstantNotLiteral;
import dk.camelot64.kickc.model.ControlFlowBlock;
import dk.camelot64.kickc.model.Program;
import dk.camelot64.kickc.model.operators.Operators;
import dk.camelot64.kickc.model.statements.Statement;
import dk.camelot64.kickc.model.statements.StatementAssignment;
import dk.camelot64.kickc.model.symbols.Scope;
import dk.camelot64.kickc.model.symbols.VariableIntermediate;
import dk.camelot64.kickc.model.types.SymbolType;
import dk.camelot64.kickc.model.values.*;
import dk.camelot64.kickc.model.types.SymbolTypeInference;
import dk.camelot64.kickc.model.values.ConstantInteger;
import dk.camelot64.kickc.model.values.ConstantLiteral;
import dk.camelot64.kickc.model.values.ConstantValue;
import dk.camelot64.kickc.model.values.RValue;
import java.util.ListIterator;
@ -22,20 +29,20 @@ public class Pass2MultiplyToShiftRewriting extends Pass2SsaOptimization {
public boolean step() {
boolean optimized = false;
for(ControlFlowBlock block : getGraph().getAllBlocks()) {
ListIterator<Statement> statementsIt = block.getStatements().listIterator();
while(statementsIt.hasNext()) {
Statement statement = statementsIt.next();
ListIterator<Statement> stmtIt = block.getStatements().listIterator();
while(stmtIt.hasNext()) {
Statement statement = stmtIt.next();
if(statement instanceof StatementAssignment) {
StatementAssignment assignment = (StatementAssignment) statement;
if(Operators.MULTIPLY.equals(assignment.getOperator()) || Operators.DIVIDE.equals(assignment.getOperator())) {
if(assignment.getrValue1() instanceof ConstantValue) continue;
ConstantLiteral constantLiteral = getConstantLiteral2(assignment);
if(constantLiteral instanceof ConstantInteger) {
Long constantInt = ((ConstantInteger)constantLiteral).getInteger();
Long constantInt = ((ConstantInteger) constantLiteral).getInteger();
double power2 = Math.log(constantInt) / Math.log(2);
if(power2==0.0) {
if(power2 == 0.0) {
// Found multiplication/division with 1 (ONE)
getLog().append("Rewriting multiplication to remove identity multiply/divide "+statement.toString(getProgram(), false));
getLog().append("Rewriting multiplication to remove identity multiply/divide " + statement.toString(getProgram(), false));
assignment.setOperator(null);
assignment.setrValue2(assignment.getrValue1());
assignment.setrValue1(null);
@ -53,6 +60,49 @@ public class Pass2MultiplyToShiftRewriting extends Pass2SsaOptimization {
assignment.setrValue2(new ConstantInteger((long)power2, SymbolType.BYTE));
optimized = true;
}
} else if(Operators.MULTIPLY.equals(assignment.getOperator())) {
// Multiplication by constant
getLog().append("Rewriting multiplication to use shift and addition"+statement.toString(getProgram(), false));
stmtIt.previous();
Scope scope = getScope().getScope(block.getScope());
SymbolType resultType = SymbolTypeInference.inferType(getScope(), assignment.getrValue1());
long pow2 = (long) power2;
long remains = constantInt - (1L<<pow2);
RValue building = assignment.getrValue1();
long shiftCount = 0;
while(pow2>=0) {
long powVal = 1L <<pow2;
if(remains>=powVal) {
// First add shifts
VariableIntermediate varShift = scope.addVariableIntermediate();
varShift.setType(resultType);
stmtIt.add(new StatementAssignment(varShift.getRef(), building, Operators.SHIFT_LEFT, new ConstantInteger(shiftCount, SymbolType.BYTE), assignment.getSource(), Comment.NO_COMMENTS));
shiftCount = 0;
// Then add rvalue1
VariableIntermediate varAdd = scope.addVariableIntermediate();
varAdd.setType(resultType);
stmtIt.add(new StatementAssignment(varAdd.getRef(), varShift.getRef(), Operators.PLUS, assignment.getrValue1(), assignment.getSource(), Comment.NO_COMMENTS));
building = varAdd.getRef();
remains -= powVal;
}
// Add a shift
if(pow2>0) {
shiftCount++;
}
pow2--;
}
// add remaining shifts
if(shiftCount>0) {
VariableIntermediate varShift = scope.addVariableIntermediate();
varShift.setType(resultType);
stmtIt.add(new StatementAssignment(varShift.getRef(), building, Operators.SHIFT_LEFT, new ConstantInteger(shiftCount, SymbolType.BYTE), assignment.getSource(), Comment.NO_COMMENTS));
building = varShift.getRef();
}
stmtIt.next();
// Replace old multiplication
assignment.setOperator(null);
assignment.setrValue1(null);
assignment.setrValue2(building);
}
}
}
@ -64,6 +114,7 @@ public class Pass2MultiplyToShiftRewriting extends Pass2SsaOptimization {
/**
* Get the constant literal value for RValue2 - or null if not possible
*
* @param assignment The Assignment
* @return The constant literal value for RValue2 (or null)
*/

View File

@ -35,6 +35,11 @@ public class TestPrograms {
public TestPrograms() {
}
@Test
public void testStructPtr11() throws IOException, URISyntaxException {
compileAndCompare("struct-ptr-11");
}
@Test
public void testStructPtr10() throws IOException, URISyntaxException {
compileAndCompare("struct-ptr-10");
@ -639,6 +644,11 @@ public class TestPrograms {
compileAndCompare("multiply-2s");
}
@Test
public void testMultiplyNs() throws IOException, URISyntaxException {
compileAndCompare("multiply-ns");
}
@Test
public void testPointerCast2() throws IOException, URISyntaxException {
compileAndCompare("pointer-cast-2");

View File

@ -0,0 +1,25 @@
// Check that multiplication by constants is converted to shift/add
void main() {
const byte* SCREEN = 0x0400;
for(byte i: 0..17) {
(SCREEN+0*40)[i] = i*1;
(SCREEN+1*40)[i] = i*2;
(SCREEN+2*40)[i] = i*3;
(SCREEN+3*40)[i] = i*4;
(SCREEN+4*40)[i] = i*5;
(SCREEN+5*40)[i] = i*6;
(SCREEN+6*40)[i] = i*7;
(SCREEN+7*40)[i] = i*8;
(SCREEN+8*40)[i] = i*9;
(SCREEN+9*40)[i] = i*10;
(SCREEN+10*40)[i] = i*11;
(SCREEN+11*40)[i] = i*12;
(SCREEN+12*40)[i] = i*13;
(SCREEN+13*40)[i] = i*14;
(SCREEN+14*40)[i] = i*15;
}
}

View File

@ -0,0 +1,20 @@
// Minimal struct - array of 3-byte structs (required *3)
struct Point {
signed byte x;
signed byte y;
signed byte z;
};
struct Point[4] points;
void main() {
for( byte i: 0..3) {
points[i] = { (signed byte)i, -(signed byte)i, (signed byte)i };
}
const struct Point* SCREEN = 0x0400;
for( byte i: 0..3) {
SCREEN[i] = points[i];
}
}

View File

@ -0,0 +1,107 @@
// Check that multiplication by constants is converted to shift/add
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
main: {
.label SCREEN = $400
.label _61 = 2
.label _63 = 3
ldx #0
b1:
txa
sta SCREEN,x
txa
asl
sta _61
sta SCREEN+1*$28,x
txa
clc
adc _61
sta SCREEN+2*$28,x
txa
asl
asl
sta _63
sta SCREEN+3*$28,x
txa
clc
adc _63
sta SCREEN+4*$28,x
txa
clc
adc _61
asl
sta SCREEN+5*$28,x
txa
clc
adc _61
asl
stx $ff
clc
adc $ff
sta SCREEN+6*$28,x
txa
asl
asl
asl
sta SCREEN+7*$28,x
stx $ff
clc
adc $ff
sta SCREEN+8*$28,x
txa
clc
adc _63
asl
sta SCREEN+9*$28,x
txa
clc
adc _63
asl
stx $ff
clc
adc $ff
sta SCREEN+$a*$28,x
txa
clc
adc _61
asl
asl
sta SCREEN+$b*$28,x
txa
clc
adc _61
asl
asl
stx $ff
clc
adc $ff
sta SCREEN+$c*$28,x
txa
clc
adc _61
asl
stx $ff
clc
adc $ff
asl
sta SCREEN+$d*$28,x
txa
clc
adc _61
asl
stx $ff
clc
adc $ff
asl
stx $ff
clc
adc $ff
sta SCREEN+$e*$28,x
inx
cpx #$12
beq !b1+
jmp b1
!b1:
rts
}

View File

@ -0,0 +1,65 @@
@begin: scope:[] from
[0] phi()
to:@1
@1: scope:[] from @begin
[1] phi()
[2] call main
to:@end
@end: scope:[] from @1
[3] phi()
main: scope:[main] from @1
[4] phi()
to:main::@1
main::@1: scope:[main] from main main::@1
[5] (byte) main::i#2 ← phi( main/(byte) 0 main::@1/(byte) main::i#1 )
[6] *((const byte*) main::SCREEN#0 + (byte) main::i#2) ← (byte) main::i#2
[7] (byte) main::$61 ← (byte) main::i#2 << (byte) 1
[8] *((const byte*) main::SCREEN#0+(byte)(number) 1*(number) $28 + (byte) main::i#2) ← (byte) main::$61
[9] (byte~) main::$8 ← (byte) main::$61 + (byte) main::i#2
[10] *((const byte*) main::SCREEN#0+(byte)(number) 2*(number) $28 + (byte) main::i#2) ← (byte~) main::$8
[11] (byte) main::$63 ← (byte) main::i#2 << (byte) 2
[12] *((const byte*) main::SCREEN#0+(byte)(number) 3*(number) $28 + (byte) main::i#2) ← (byte) main::$63
[13] (byte~) main::$14 ← (byte) main::$63 + (byte) main::i#2
[14] *((const byte*) main::SCREEN#0+(byte)(number) 4*(number) $28 + (byte) main::i#2) ← (byte~) main::$14
[15] (byte) main::$66 ← (byte) main::$61 + (byte) main::i#2
[16] (byte~) main::$17 ← (byte) main::$66 << (byte) 1
[17] *((const byte*) main::SCREEN#0+(byte)(number) 5*(number) $28 + (byte) main::i#2) ← (byte~) main::$17
[18] (byte) main::$69 ← (byte) main::$61 + (byte) main::i#2
[19] (byte) main::$70 ← (byte) main::$69 << (byte) 1
[20] (byte~) main::$20 ← (byte) main::$70 + (byte) main::i#2
[21] *((const byte*) main::SCREEN#0+(byte)(number) 6*(number) $28 + (byte) main::i#2) ← (byte~) main::$20
[22] (byte) main::$72 ← (byte) main::i#2 << (byte) 3
[23] *((const byte*) main::SCREEN#0+(word)(number) 7*(number) $28 + (byte) main::i#2) ← (byte) main::$72
[24] (byte~) main::$26 ← (byte) main::$72 + (byte) main::i#2
[25] *((const byte*) main::SCREEN#0+(word)(number) 8*(number) $28 + (byte) main::i#2) ← (byte~) main::$26
[26] (byte) main::$75 ← (byte) main::$63 + (byte) main::i#2
[27] (byte~) main::$29 ← (byte) main::$75 << (byte) 1
[28] *((const byte*) main::SCREEN#0+(word)(number) 9*(number) $28 + (byte) main::i#2) ← (byte~) main::$29
[29] (byte) main::$78 ← (byte) main::$63 + (byte) main::i#2
[30] (byte) main::$79 ← (byte) main::$78 << (byte) 1
[31] (byte~) main::$32 ← (byte) main::$79 + (byte) main::i#2
[32] *((const byte*) main::SCREEN#0+(word)(number) $a*(number) $28 + (byte) main::i#2) ← (byte~) main::$32
[33] (byte) main::$82 ← (byte) main::$61 + (byte) main::i#2
[34] (byte~) main::$35 ← (byte) main::$82 << (byte) 2
[35] *((const byte*) main::SCREEN#0+(word)(number) $b*(number) $28 + (byte) main::i#2) ← (byte~) main::$35
[36] (byte) main::$85 ← (byte) main::$61 + (byte) main::i#2
[37] (byte) main::$86 ← (byte) main::$85 << (byte) 2
[38] (byte~) main::$38 ← (byte) main::$86 + (byte) main::i#2
[39] *((const byte*) main::SCREEN#0+(word)(number) $c*(number) $28 + (byte) main::i#2) ← (byte~) main::$38
[40] (byte) main::$89 ← (byte) main::$61 + (byte) main::i#2
[41] (byte) main::$90 ← (byte) main::$89 << (byte) 1
[42] (byte) main::$91 ← (byte) main::$90 + (byte) main::i#2
[43] (byte~) main::$41 ← (byte) main::$91 << (byte) 1
[44] *((const byte*) main::SCREEN#0+(word)(number) $d*(number) $28 + (byte) main::i#2) ← (byte~) main::$41
[45] (byte) main::$94 ← (byte) main::$61 + (byte) main::i#2
[46] (byte) main::$95 ← (byte) main::$94 << (byte) 1
[47] (byte) main::$96 ← (byte) main::$95 + (byte) main::i#2
[48] (byte) main::$97 ← (byte) main::$96 << (byte) 1
[49] (byte~) main::$44 ← (byte) main::$97 + (byte) main::i#2
[50] *((const byte*) main::SCREEN#0+(word)(number) $e*(number) $28 + (byte) main::i#2) ← (byte~) main::$44
[51] (byte) main::i#1 ← ++ (byte) main::i#2
[52] if((byte) main::i#1!=(byte) $12) goto main::@1
to:main::@return
main::@return: scope:[main] from main::@1
[53] return
to:@return

1641
src/test/ref/multiply-ns.log Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,73 @@
(label) @1
(label) @begin
(label) @end
(void()) main()
(byte~) main::$14 reg byte a 22.0
(byte~) main::$17 reg byte a 22.0
(byte~) main::$20 reg byte a 22.0
(byte~) main::$26 reg byte a 22.0
(byte~) main::$29 reg byte a 22.0
(byte~) main::$32 reg byte a 22.0
(byte~) main::$35 reg byte a 22.0
(byte~) main::$38 reg byte a 22.0
(byte~) main::$41 reg byte a 22.0
(byte~) main::$44 reg byte a 22.0
(byte) main::$61 $61 zp ZP_BYTE:2 2.605263157894737
(byte) main::$63 $63 zp ZP_BYTE:3 3.055555555555556
(byte) main::$66 reg byte a 22.0
(byte) main::$69 reg byte a 22.0
(byte) main::$70 reg byte a 22.0
(byte) main::$72 reg byte a 16.5
(byte) main::$75 reg byte a 22.0
(byte) main::$78 reg byte a 22.0
(byte) main::$79 reg byte a 22.0
(byte~) main::$8 reg byte a 22.0
(byte) main::$82 reg byte a 22.0
(byte) main::$85 reg byte a 22.0
(byte) main::$86 reg byte a 22.0
(byte) main::$89 reg byte a 22.0
(byte) main::$90 reg byte a 22.0
(byte) main::$91 reg byte a 22.0
(byte) main::$94 reg byte a 22.0
(byte) main::$95 reg byte a 22.0
(byte) main::$96 reg byte a 22.0
(byte) main::$97 reg byte a 22.0
(label) main::@1
(label) main::@return
(byte*) main::SCREEN
(const byte*) main::SCREEN#0 SCREEN = (byte*) 1024
(byte) main::i
(byte) main::i#1 reg byte x 16.5
(byte) main::i#2 reg byte x 9.086956521739129
reg byte x [ main::i#2 main::i#1 ]
zp ZP_BYTE:2 [ main::$61 ]
reg byte a [ main::$8 ]
zp ZP_BYTE:3 [ main::$63 ]
reg byte a [ main::$14 ]
reg byte a [ main::$66 ]
reg byte a [ main::$17 ]
reg byte a [ main::$69 ]
reg byte a [ main::$70 ]
reg byte a [ main::$20 ]
reg byte a [ main::$72 ]
reg byte a [ main::$26 ]
reg byte a [ main::$75 ]
reg byte a [ main::$29 ]
reg byte a [ main::$78 ]
reg byte a [ main::$79 ]
reg byte a [ main::$32 ]
reg byte a [ main::$82 ]
reg byte a [ main::$35 ]
reg byte a [ main::$85 ]
reg byte a [ main::$86 ]
reg byte a [ main::$38 ]
reg byte a [ main::$89 ]
reg byte a [ main::$90 ]
reg byte a [ main::$91 ]
reg byte a [ main::$41 ]
reg byte a [ main::$94 ]
reg byte a [ main::$95 ]
reg byte a [ main::$96 ]
reg byte a [ main::$97 ]
reg byte a [ main::$44 ]

View File

@ -0,0 +1,51 @@
// Minimal struct - array of 3-byte structs (required *3)
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
.const OFFSET_STRUCT_POINT_Y = 1
.const OFFSET_STRUCT_POINT_Z = 2
main: {
.label SCREEN = $400
.label _2 = 2
ldx #0
b1:
txa
eor #$ff
clc
adc #1
sta _2
txa
asl
stx $ff
clc
adc $ff
tay
txa
sta points,y
lda _2
sta points+OFFSET_STRUCT_POINT_Y,y
txa
sta points+OFFSET_STRUCT_POINT_Z,y
inx
cpx #4
bne b1
ldx #0
b2:
txa
asl
stx $ff
clc
adc $ff
tay
lda points,y
sta SCREEN,y
lda points+OFFSET_STRUCT_POINT_Y,y
sta SCREEN+OFFSET_STRUCT_POINT_Y,y
lda points+OFFSET_STRUCT_POINT_Z,y
sta SCREEN+OFFSET_STRUCT_POINT_Z,y
inx
cpx #4
bne b2
rts
}
points: .fill 3*4, 0

View File

@ -0,0 +1,36 @@
@begin: scope:[] from
[0] phi()
to:@1
@1: scope:[] from @begin
[1] phi()
[2] call main
to:@end
@end: scope:[] from @1
[3] phi()
main: scope:[main] from @1
[4] phi()
to:main::@1
main::@1: scope:[main] from main main::@1
[5] (byte) main::i#2 ← phi( main/(byte) 0 main::@1/(byte) main::i#1 )
[6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2
[7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1
[8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2
[9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2
[10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2
[11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2
[12] (byte) main::i#1 ← ++ (byte) main::i#2
[13] if((byte) main::i#1!=(byte) 4) goto main::@1
to:main::@2
main::@2: scope:[main] from main::@1 main::@2
[14] (byte) main::i1#2 ← phi( main::@1/(byte) 0 main::@2/(byte) main::i1#1 )
[15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1
[16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2
[17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7)
[18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7)
[19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7)
[20] (byte) main::i1#1 ← ++ (byte) main::i1#2
[21] if((byte) main::i1#1!=(byte) 4) goto main::@2
to:main::@return
main::@return: scope:[main] from main::@2
[22] return
to:@return

View File

@ -0,0 +1,760 @@
Fixing pointer array-indexing *((struct Point[4]) points + (byte) main::i)
Fixing pointer array-indexing *((struct Point[4]) points + (byte) main::i1)
Fixing pointer array-indexing *((struct Point*) main::SCREEN + (byte) main::i1)
Adding struct value list initializer *((signed byte*) main::$8 + (byte~) main::$6) ← (signed byte~) main::$0
Adding struct value list initializer *((signed byte*) main::$9 + (byte~) main::$6) ← (signed byte~) main::$2
Adding struct value list initializer *((signed byte*) main::$10 + (byte~) main::$6) ← (signed byte~) main::$3
Adding struct value member variable copy *((signed byte*) main::$11 + (byte~) main::$7) ← *((signed byte*) main::$12 + (byte~) main::$7)
Adding struct value member variable copy *((signed byte*) main::$13 + (byte~) main::$7) ← *((signed byte*) main::$14 + (byte~) main::$7)
Adding struct value member variable copy *((signed byte*) main::$15 + (byte~) main::$7) ← *((signed byte*) main::$16 + (byte~) main::$7)
Adding pointer type conversion cast (struct Point*) main::SCREEN in (struct Point*) main::SCREEN ← (number) $400
Culled Empty Block (label) main::@4
CONTROL FLOW GRAPH SSA
@begin: scope:[] from
(struct Point[4]) points#0 ← { fill( 4, 0) }
to:@1
main: scope:[main] from @1
(byte) main::i#0 ← (byte) 0
to:main::@1
main::@1: scope:[main] from main main::@1
(byte) main::i#2 ← phi( main/(byte) main::i#0 main::@1/(byte) main::i#1 )
(signed byte~) main::$0 ← ((signed byte)) (byte) main::i#2
(signed byte~) main::$1 ← ((signed byte)) (byte) main::i#2
(signed byte~) main::$2 ← - (signed byte~) main::$1
(signed byte~) main::$3 ← ((signed byte)) (byte) main::i#2
(byte~) main::$6 ← (byte) main::i#2 * (const byte) SIZEOF_STRUCT_POINT
(signed byte*) main::$8 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
*((signed byte*) main::$8 + (byte~) main::$6) ← (signed byte~) main::$0
(signed byte*) main::$9 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
*((signed byte*) main::$9 + (byte~) main::$6) ← (signed byte~) main::$2
(signed byte*) main::$10 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
*((signed byte*) main::$10 + (byte~) main::$6) ← (signed byte~) main::$3
(byte) main::i#1 ← (byte) main::i#2 + rangenext(0,3)
(bool~) main::$4 ← (byte) main::i#1 != rangelast(0,3)
if((bool~) main::$4) goto main::@1
to:main::@2
main::@2: scope:[main] from main::@1
(struct Point*) main::SCREEN#0 ← ((struct Point*)) (number) $400
(byte) main::i1#0 ← (byte) 0
to:main::@3
main::@3: scope:[main] from main::@2 main::@3
(byte) main::i1#2 ← phi( main::@2/(byte) main::i1#0 main::@3/(byte) main::i1#1 )
(byte~) main::$7 ← (byte) main::i1#2 * (const byte) SIZEOF_STRUCT_POINT
(signed byte*) main::$11 ← (signed byte*)(struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_X
(signed byte*) main::$12 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
*((signed byte*) main::$11 + (byte~) main::$7) ← *((signed byte*) main::$12 + (byte~) main::$7)
(signed byte*) main::$13 ← (signed byte*)(struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Y
(signed byte*) main::$14 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
*((signed byte*) main::$13 + (byte~) main::$7) ← *((signed byte*) main::$14 + (byte~) main::$7)
(signed byte*) main::$15 ← (signed byte*)(struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Z
(signed byte*) main::$16 ← (signed byte*)(struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
*((signed byte*) main::$15 + (byte~) main::$7) ← *((signed byte*) main::$16 + (byte~) main::$7)
(byte) main::i1#1 ← (byte) main::i1#2 + rangenext(0,3)
(bool~) main::$5 ← (byte) main::i1#1 != rangelast(0,3)
if((bool~) main::$5) goto main::@3
to:main::@return
main::@return: scope:[main] from main::@3
return
to:@return
@1: scope:[] from @begin
call main
to:@2
@2: scope:[] from @1
to:@end
@end: scope:[] from @2
SYMBOL TABLE SSA
(label) @1
(label) @2
(label) @begin
(label) @end
(const byte) OFFSET_STRUCT_POINT_X = (byte) 0
(const byte) OFFSET_STRUCT_POINT_Y = (byte) 1
(const byte) OFFSET_STRUCT_POINT_Z = (byte) 2
(signed byte) Point::x
(signed byte) Point::y
(signed byte) Point::z
(const byte) SIZEOF_STRUCT_POINT = (byte) 3
(void()) main()
(signed byte~) main::$0
(signed byte~) main::$1
(signed byte*) main::$10
(signed byte*) main::$11
(signed byte*) main::$12
(signed byte*) main::$13
(signed byte*) main::$14
(signed byte*) main::$15
(signed byte*) main::$16
(signed byte~) main::$2
(signed byte~) main::$3
(bool~) main::$4
(bool~) main::$5
(byte~) main::$6
(byte~) main::$7
(signed byte*) main::$8
(signed byte*) main::$9
(label) main::@1
(label) main::@2
(label) main::@3
(label) main::@return
(struct Point*) main::SCREEN
(struct Point*) main::SCREEN#0
(byte) main::i
(byte) main::i#0
(byte) main::i#1
(byte) main::i#2
(byte) main::i1
(byte) main::i1#0
(byte) main::i1#1
(byte) main::i1#2
(struct Point[4]) points
(struct Point[4]) points#0
Inlining cast (signed byte~) main::$0 ← (signed byte)(byte) main::i#2
Inlining cast (signed byte~) main::$1 ← (signed byte)(byte) main::i#2
Inlining cast (signed byte~) main::$3 ← (signed byte)(byte) main::i#2
Inlining cast (struct Point*) main::SCREEN#0 ← (struct Point*)(number) $400
Successful SSA optimization Pass2InlineCast
Simplifying constant pointer cast (struct Point*) 1024
Successful SSA optimization PassNCastSimplification
Simple Condition (bool~) main::$4 [16] if((byte) main::i#1!=rangelast(0,3)) goto main::@1
Simple Condition (bool~) main::$5 [32] if((byte) main::i1#1!=rangelast(0,3)) goto main::@3
Successful SSA optimization Pass2ConditionalJumpSimplification
Constant right-side identified [0] (struct Point[4]) points#0 ← { fill( 4, 0) }
Successful SSA optimization Pass2ConstantRValueConsolidation
Constant (const struct Point[4]) points#0 = { fill( 4, 0) }
Constant (const byte) main::i#0 = 0
Constant (const struct Point*) main::SCREEN#0 = (struct Point*) 1024
Constant (const byte) main::i1#0 = 0
Successful SSA optimization Pass2ConstantIdentification
Constant value identified (signed byte*)points#0 in [8] (signed byte*) main::$8 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
Constant value identified (signed byte*)points#0 in [10] (signed byte*) main::$9 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant value identified (signed byte*)points#0 in [12] (signed byte*) main::$10 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
Constant value identified (signed byte*)main::SCREEN#0 in [21] (signed byte*) main::$11 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_X
Constant value identified (signed byte*)points#0 in [22] (signed byte*) main::$12 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
Constant value identified (signed byte*)main::SCREEN#0 in [24] (signed byte*) main::$13 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant value identified (signed byte*)points#0 in [25] (signed byte*) main::$14 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant value identified (signed byte*)main::SCREEN#0 in [27] (signed byte*) main::$15 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Z
Constant value identified (signed byte*)points#0 in [28] (signed byte*) main::$16 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
Successful SSA optimization Pass2ConstantValues
Resolved ranged next value [14] main::i#1 ← ++ main::i#2 to ++
Resolved ranged comparison value [16] if(main::i#1!=rangelast(0,3)) goto main::@1 to (number) 4
Resolved ranged next value [30] main::i1#1 ← ++ main::i1#2 to ++
Resolved ranged comparison value [32] if(main::i1#1!=rangelast(0,3)) goto main::@3 to (number) 4
Simplifying expression containing zero (signed byte*)points#0 in [8] (signed byte*) main::$8 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
Simplifying expression containing zero (signed byte*)main::SCREEN#0 in [21] (signed byte*) main::$11 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_X
Simplifying expression containing zero (signed byte*)points#0 in [22] (signed byte*) main::$12 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_X
Successful SSA optimization PassNSimplifyExpressionWithZero
Eliminating unused constant (const byte) OFFSET_STRUCT_POINT_X
Successful SSA optimization PassNEliminateUnusedVars
Adding number conversion cast (unumber) 4 in if((byte) main::i#1!=(number) 4) goto main::@1
Adding number conversion cast (unumber) 4 in if((byte) main::i1#1!=(number) 4) goto main::@3
Successful SSA optimization PassNAddNumberTypeConversions
Simplifying constant integer cast 4
Simplifying constant integer cast 4
Successful SSA optimization PassNCastSimplification
Finalized unsigned number type (byte) 4
Finalized unsigned number type (byte) 4
Successful SSA optimization PassNFinalizeNumberTypeConversions
Constant right-side identified [8] (signed byte*) main::$9 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant right-side identified [10] (signed byte*) main::$10 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
Constant right-side identified [19] (signed byte*) main::$13 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant right-side identified [20] (signed byte*) main::$14 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Y
Constant right-side identified [22] (signed byte*) main::$15 ← (signed byte*)(const struct Point*) main::SCREEN#0 + (const byte) OFFSET_STRUCT_POINT_Z
Constant right-side identified [23] (signed byte*) main::$16 ← (signed byte*)(const struct Point[4]) points#0 + (const byte) OFFSET_STRUCT_POINT_Z
Successful SSA optimization Pass2ConstantRValueConsolidation
Constant (const signed byte*) main::$8 = (signed byte*)points#0
Constant (const signed byte*) main::$9 = (signed byte*)points#0+OFFSET_STRUCT_POINT_Y
Constant (const signed byte*) main::$10 = (signed byte*)points#0+OFFSET_STRUCT_POINT_Z
Constant (const signed byte*) main::$11 = (signed byte*)main::SCREEN#0
Constant (const signed byte*) main::$12 = (signed byte*)points#0
Constant (const signed byte*) main::$13 = (signed byte*)main::SCREEN#0+OFFSET_STRUCT_POINT_Y
Constant (const signed byte*) main::$14 = (signed byte*)points#0+OFFSET_STRUCT_POINT_Y
Constant (const signed byte*) main::$15 = (signed byte*)main::SCREEN#0+OFFSET_STRUCT_POINT_Z
Constant (const signed byte*) main::$16 = (signed byte*)points#0+OFFSET_STRUCT_POINT_Z
Successful SSA optimization Pass2ConstantIdentification
Inlining Noop Cast [1] (signed byte~) main::$0 ← (signed byte)(byte) main::i#2 keeping main::i#2
Inlining Noop Cast [2] (signed byte~) main::$1 ← (signed byte)(byte) main::i#2 keeping main::i#2
Inlining Noop Cast [4] (signed byte~) main::$3 ← (signed byte)(byte) main::i#2 keeping main::i#2
Successful SSA optimization Pass2NopCastInlining
Rewriting multiplication to use shift and addition[5] (byte~) main::$6 ← (byte) main::i#2 * (const byte) SIZEOF_STRUCT_POINT
Rewriting multiplication to use shift and addition[12] (byte~) main::$7 ← (byte) main::i1#2 * (const byte) SIZEOF_STRUCT_POINT
Inlining constant with var siblings (const byte) main::i#0
Inlining constant with var siblings (const byte) main::i1#0
Constant inlined main::$16 = (signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z
Constant inlined main::$12 = (signed byte*)(const struct Point[4]) points#0
Constant inlined main::i#0 = (byte) 0
Constant inlined main::i1#0 = (byte) 0
Constant inlined main::$13 = (signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y
Constant inlined main::$14 = (signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y
Constant inlined main::$15 = (signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z
Constant inlined main::$9 = (signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y
Constant inlined main::$10 = (signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z
Constant inlined main::$8 = (signed byte*)(const struct Point[4]) points#0
Constant inlined main::$11 = (signed byte*)(const struct Point*) main::SCREEN#0
Successful SSA optimization Pass2ConstantInlining
Alias (byte~) main::$6 = (byte) main::$18
Alias (byte~) main::$7 = (byte) main::$20
Successful SSA optimization Pass2AliasElimination
Eliminating unused constant (const byte) SIZEOF_STRUCT_POINT
Successful SSA optimization PassNEliminateUnusedVars
Added new block during phi lifting main::@5(between main::@1 and main::@1)
Added new block during phi lifting main::@6(between main::@3 and main::@3)
Adding NOP phi() at start of @begin
Adding NOP phi() at start of @1
Adding NOP phi() at start of @2
Adding NOP phi() at start of @end
Adding NOP phi() at start of main
Adding NOP phi() at start of main::@2
CALL GRAPH
Calls in [] to main:2
Created 2 initial phi equivalence classes
Coalesced [25] main::i1#3 ← main::i1#1
Coalesced [26] main::i#3 ← main::i#1
Coalesced down to 2 phi equivalence classes
Culled Empty Block (label) @2
Culled Empty Block (label) main::@2
Culled Empty Block (label) main::@6
Culled Empty Block (label) main::@5
Renumbering block main::@3 to main::@2
Adding NOP phi() at start of @begin
Adding NOP phi() at start of @1
Adding NOP phi() at start of @end
Adding NOP phi() at start of main
FINAL CONTROL FLOW GRAPH
@begin: scope:[] from
[0] phi()
to:@1
@1: scope:[] from @begin
[1] phi()
[2] call main
to:@end
@end: scope:[] from @1
[3] phi()
main: scope:[main] from @1
[4] phi()
to:main::@1
main::@1: scope:[main] from main main::@1
[5] (byte) main::i#2 ← phi( main/(byte) 0 main::@1/(byte) main::i#1 )
[6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2
[7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1
[8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2
[9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2
[10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2
[11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2
[12] (byte) main::i#1 ← ++ (byte) main::i#2
[13] if((byte) main::i#1!=(byte) 4) goto main::@1
to:main::@2
main::@2: scope:[main] from main::@1 main::@2
[14] (byte) main::i1#2 ← phi( main::@1/(byte) 0 main::@2/(byte) main::i1#1 )
[15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1
[16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2
[17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7)
[18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7)
[19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7)
[20] (byte) main::i1#1 ← ++ (byte) main::i1#2
[21] if((byte) main::i1#1!=(byte) 4) goto main::@2
to:main::@return
main::@return: scope:[main] from main::@2
[22] return
to:@return
VARIABLE REGISTER WEIGHTS
(signed byte) Point::x
(signed byte) Point::y
(signed byte) Point::z
(void()) main()
(byte) main::$17 22.0
(byte) main::$19 22.0
(signed byte~) main::$2 5.5
(byte~) main::$6 14.666666666666666
(byte~) main::$7 25.666666666666668
(struct Point*) main::SCREEN
(byte) main::i
(byte) main::i#1 16.5
(byte) main::i#2 6.285714285714286
(byte) main::i1
(byte) main::i1#1 16.5
(byte) main::i1#2 7.333333333333333
(struct Point[4]) points
Initial phi equivalence classes
[ main::i#2 main::i#1 ]
[ main::i1#2 main::i1#1 ]
Added variable main::$2 to zero page equivalence class [ main::$2 ]
Added variable main::$17 to zero page equivalence class [ main::$17 ]
Added variable main::$6 to zero page equivalence class [ main::$6 ]
Added variable main::$19 to zero page equivalence class [ main::$19 ]
Added variable main::$7 to zero page equivalence class [ main::$7 ]
Complete equivalence classes
[ main::i#2 main::i#1 ]
[ main::i1#2 main::i1#1 ]
[ main::$2 ]
[ main::$17 ]
[ main::$6 ]
[ main::$19 ]
[ main::$7 ]
Allocated zp ZP_BYTE:2 [ main::i#2 main::i#1 ]
Allocated zp ZP_BYTE:3 [ main::i1#2 main::i1#1 ]
Allocated zp ZP_BYTE:4 [ main::$2 ]
Allocated zp ZP_BYTE:5 [ main::$17 ]
Allocated zp ZP_BYTE:6 [ main::$6 ]
Allocated zp ZP_BYTE:7 [ main::$19 ]
Allocated zp ZP_BYTE:8 [ main::$7 ]
INITIAL ASM
//SEG0 File Comments
// Minimal struct - array of 3-byte structs (required *3)
//SEG1 Basic Upstart
.pc = $801 "Basic"
:BasicUpstart(bbegin)
.pc = $80d "Program"
//SEG2 Global Constants & labels
.const OFFSET_STRUCT_POINT_Y = 1
.const OFFSET_STRUCT_POINT_Z = 2
//SEG3 @begin
bbegin:
//SEG4 [1] phi from @begin to @1 [phi:@begin->@1]
b1_from_bbegin:
jmp b1
//SEG5 @1
b1:
//SEG6 [2] call main
//SEG7 [4] phi from @1 to main [phi:@1->main]
main_from_b1:
jsr main
//SEG8 [3] phi from @1 to @end [phi:@1->@end]
bend_from_b1:
jmp bend
//SEG9 @end
bend:
//SEG10 main
main: {
.label SCREEN = $400
.label _2 = 4
.label _6 = 6
.label _7 = 8
.label i = 2
.label i1 = 3
.label _17 = 5
.label _19 = 7
//SEG11 [5] phi from main to main::@1 [phi:main->main::@1]
b1_from_main:
//SEG12 [5] phi (byte) main::i#2 = (byte) 0 [phi:main->main::@1#0] -- vbuz1=vbuc1
lda #0
sta i
jmp b1
//SEG13 [5] phi from main::@1 to main::@1 [phi:main::@1->main::@1]
b1_from_b1:
//SEG14 [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@1->main::@1#0] -- register_copy
jmp b1
//SEG15 main::@1
b1:
//SEG16 [6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2 -- vbsz1=_neg_vbsz2
lda i
eor #$ff
clc
adc #1
sta _2
//SEG17 [7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1 -- vbuz1=vbuz2_rol_1
lda i
asl
sta _17
//SEG18 [8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2 -- vbuz1=vbuz2_plus_vbuz3
lda _17
clc
adc i
sta _6
//SEG19 [9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuz1=vbsz2
lda i
ldy _6
sta points,y
//SEG20 [10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2 -- pbsc1_derefidx_vbuz1=vbsz2
lda _2
ldy _6
sta points+OFFSET_STRUCT_POINT_Y,y
//SEG21 [11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuz1=vbsz2
lda i
ldy _6
sta points+OFFSET_STRUCT_POINT_Z,y
//SEG22 [12] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuz1=_inc_vbuz1
inc i
//SEG23 [13] if((byte) main::i#1!=(byte) 4) goto main::@1 -- vbuz1_neq_vbuc1_then_la1
lda #4
cmp i
bne b1_from_b1
//SEG24 [14] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
b2_from_b1:
//SEG25 [14] phi (byte) main::i1#2 = (byte) 0 [phi:main::@1->main::@2#0] -- vbuz1=vbuc1
lda #0
sta i1
jmp b2
//SEG26 [14] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
b2_from_b2:
//SEG27 [14] phi (byte) main::i1#2 = (byte) main::i1#1 [phi:main::@2->main::@2#0] -- register_copy
jmp b2
//SEG28 main::@2
b2:
//SEG29 [15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1 -- vbuz1=vbuz2_rol_1
lda i1
asl
sta _19
//SEG30 [16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2 -- vbuz1=vbuz2_plus_vbuz3
lda _19
clc
adc i1
sta _7
//SEG31 [17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7) -- pbsc1_derefidx_vbuz1=pbsc2_derefidx_vbuz1
ldy _7
lda points,y
sta SCREEN,y
//SEG32 [18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) -- pbsc1_derefidx_vbuz1=pbsc2_derefidx_vbuz1
ldy _7
lda points+OFFSET_STRUCT_POINT_Y,y
sta SCREEN+OFFSET_STRUCT_POINT_Y,y
//SEG33 [19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) -- pbsc1_derefidx_vbuz1=pbsc2_derefidx_vbuz1
ldy _7
lda points+OFFSET_STRUCT_POINT_Z,y
sta SCREEN+OFFSET_STRUCT_POINT_Z,y
//SEG34 [20] (byte) main::i1#1 ← ++ (byte) main::i1#2 -- vbuz1=_inc_vbuz1
inc i1
//SEG35 [21] if((byte) main::i1#1!=(byte) 4) goto main::@2 -- vbuz1_neq_vbuc1_then_la1
lda #4
cmp i1
bne b2_from_b2
jmp breturn
//SEG36 main::@return
breturn:
//SEG37 [22] return
rts
}
points: .fill 3*4, 0
REGISTER UPLIFT POTENTIAL REGISTERS
Statement [6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2 [ main::i#2 main::$2 ] ( main:2 [ main::i#2 main::$2 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:2 [ main::i#2 main::i#1 ]
Statement [7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1 [ main::i#2 main::$2 main::$17 ] ( main:2 [ main::i#2 main::$2 main::$17 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:4 [ main::$2 ]
Statement [8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2 [ main::i#2 main::$2 main::$6 ] ( main:2 [ main::i#2 main::$2 main::$6 ] ) always clobbers reg byte a
Statement [9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2 [ main::i#2 main::$2 main::$6 ] ( main:2 [ main::i#2 main::$2 main::$6 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:6 [ main::$6 ]
Statement [10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2 [ main::i#2 main::$6 ] ( main:2 [ main::i#2 main::$6 ] ) always clobbers reg byte a
Statement [11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2 [ main::i#2 ] ( main:2 [ main::i#2 ] ) always clobbers reg byte a
Statement [15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1 [ main::i1#2 main::$19 ] ( main:2 [ main::i1#2 main::$19 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:3 [ main::i1#2 main::i1#1 ]
Statement [16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2 [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Statement [17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7) [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:8 [ main::$7 ]
Statement [18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Statement [19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) [ main::i1#2 ] ( main:2 [ main::i1#2 ] ) always clobbers reg byte a
Statement [6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2 [ main::i#2 main::$2 ] ( main:2 [ main::i#2 main::$2 ] ) always clobbers reg byte a
Statement [7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1 [ main::i#2 main::$2 main::$17 ] ( main:2 [ main::i#2 main::$2 main::$17 ] ) always clobbers reg byte a
Statement [8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2 [ main::i#2 main::$2 main::$6 ] ( main:2 [ main::i#2 main::$2 main::$6 ] ) always clobbers reg byte a
Statement [9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2 [ main::i#2 main::$2 main::$6 ] ( main:2 [ main::i#2 main::$2 main::$6 ] ) always clobbers reg byte a
Statement [10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2 [ main::i#2 main::$6 ] ( main:2 [ main::i#2 main::$6 ] ) always clobbers reg byte a
Statement [11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2 [ main::i#2 ] ( main:2 [ main::i#2 ] ) always clobbers reg byte a
Statement [15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1 [ main::i1#2 main::$19 ] ( main:2 [ main::i1#2 main::$19 ] ) always clobbers reg byte a
Statement [16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2 [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Statement [17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7) [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Statement [18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) [ main::i1#2 main::$7 ] ( main:2 [ main::i1#2 main::$7 ] ) always clobbers reg byte a
Statement [19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) [ main::i1#2 ] ( main:2 [ main::i1#2 ] ) always clobbers reg byte a
Potential registers zp ZP_BYTE:2 [ main::i#2 main::i#1 ] : zp ZP_BYTE:2 , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:3 [ main::i1#2 main::i1#1 ] : zp ZP_BYTE:3 , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:4 [ main::$2 ] : zp ZP_BYTE:4 , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:5 [ main::$17 ] : zp ZP_BYTE:5 , reg byte a , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:6 [ main::$6 ] : zp ZP_BYTE:6 , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:7 [ main::$19 ] : zp ZP_BYTE:7 , reg byte a , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:8 [ main::$7 ] : zp ZP_BYTE:8 , reg byte x , reg byte y ,
REGISTER UPLIFT SCOPES
Uplift Scope [main] 25.67: zp ZP_BYTE:8 [ main::$7 ] 23.83: zp ZP_BYTE:3 [ main::i1#2 main::i1#1 ] 22.79: zp ZP_BYTE:2 [ main::i#2 main::i#1 ] 22: zp ZP_BYTE:5 [ main::$17 ] 22: zp ZP_BYTE:7 [ main::$19 ] 14.67: zp ZP_BYTE:6 [ main::$6 ] 5.5: zp ZP_BYTE:4 [ main::$2 ]
Uplift Scope [Point]
Uplift Scope []
Uplifting [main] best 1353 combination reg byte y [ main::$7 ] reg byte x [ main::i1#2 main::i1#1 ] reg byte x [ main::i#2 main::i#1 ] reg byte a [ main::$17 ] zp ZP_BYTE:7 [ main::$19 ] zp ZP_BYTE:6 [ main::$6 ] zp ZP_BYTE:4 [ main::$2 ]
Limited combination testing to 100 combinations of 3888 possible.
Uplifting [Point] best 1353 combination
Uplifting [] best 1353 combination
Attempting to uplift remaining variables inzp ZP_BYTE:7 [ main::$19 ]
Uplifting [main] best 1333 combination reg byte a [ main::$19 ]
Attempting to uplift remaining variables inzp ZP_BYTE:6 [ main::$6 ]
Uplifting [main] best 1233 combination reg byte y [ main::$6 ]
Attempting to uplift remaining variables inzp ZP_BYTE:4 [ main::$2 ]
Uplifting [main] best 1233 combination zp ZP_BYTE:4 [ main::$2 ]
Allocated (was zp ZP_BYTE:4) zp ZP_BYTE:2 [ main::$2 ]
ASSEMBLER BEFORE OPTIMIZATION
//SEG0 File Comments
// Minimal struct - array of 3-byte structs (required *3)
//SEG1 Basic Upstart
.pc = $801 "Basic"
:BasicUpstart(bbegin)
.pc = $80d "Program"
//SEG2 Global Constants & labels
.const OFFSET_STRUCT_POINT_Y = 1
.const OFFSET_STRUCT_POINT_Z = 2
//SEG3 @begin
bbegin:
//SEG4 [1] phi from @begin to @1 [phi:@begin->@1]
b1_from_bbegin:
jmp b1
//SEG5 @1
b1:
//SEG6 [2] call main
//SEG7 [4] phi from @1 to main [phi:@1->main]
main_from_b1:
jsr main
//SEG8 [3] phi from @1 to @end [phi:@1->@end]
bend_from_b1:
jmp bend
//SEG9 @end
bend:
//SEG10 main
main: {
.label SCREEN = $400
.label _2 = 2
//SEG11 [5] phi from main to main::@1 [phi:main->main::@1]
b1_from_main:
//SEG12 [5] phi (byte) main::i#2 = (byte) 0 [phi:main->main::@1#0] -- vbuxx=vbuc1
ldx #0
jmp b1
//SEG13 [5] phi from main::@1 to main::@1 [phi:main::@1->main::@1]
b1_from_b1:
//SEG14 [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@1->main::@1#0] -- register_copy
jmp b1
//SEG15 main::@1
b1:
//SEG16 [6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2 -- vbsz1=_neg_vbsxx
txa
eor #$ff
clc
adc #1
sta _2
//SEG17 [7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1 -- vbuaa=vbuxx_rol_1
txa
asl
//SEG18 [8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2 -- vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//SEG19 [9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuyy=vbsxx
txa
sta points,y
//SEG20 [10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2 -- pbsc1_derefidx_vbuyy=vbsz1
lda _2
sta points+OFFSET_STRUCT_POINT_Y,y
//SEG21 [11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuyy=vbsxx
txa
sta points+OFFSET_STRUCT_POINT_Z,y
//SEG22 [12] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuxx=_inc_vbuxx
inx
//SEG23 [13] if((byte) main::i#1!=(byte) 4) goto main::@1 -- vbuxx_neq_vbuc1_then_la1
cpx #4
bne b1_from_b1
//SEG24 [14] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
b2_from_b1:
//SEG25 [14] phi (byte) main::i1#2 = (byte) 0 [phi:main::@1->main::@2#0] -- vbuxx=vbuc1
ldx #0
jmp b2
//SEG26 [14] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
b2_from_b2:
//SEG27 [14] phi (byte) main::i1#2 = (byte) main::i1#1 [phi:main::@2->main::@2#0] -- register_copy
jmp b2
//SEG28 main::@2
b2:
//SEG29 [15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1 -- vbuaa=vbuxx_rol_1
txa
asl
//SEG30 [16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2 -- vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//SEG31 [17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points,y
sta SCREEN,y
//SEG32 [18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points+OFFSET_STRUCT_POINT_Y,y
sta SCREEN+OFFSET_STRUCT_POINT_Y,y
//SEG33 [19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points+OFFSET_STRUCT_POINT_Z,y
sta SCREEN+OFFSET_STRUCT_POINT_Z,y
//SEG34 [20] (byte) main::i1#1 ← ++ (byte) main::i1#2 -- vbuxx=_inc_vbuxx
inx
//SEG35 [21] if((byte) main::i1#1!=(byte) 4) goto main::@2 -- vbuxx_neq_vbuc1_then_la1
cpx #4
bne b2_from_b2
jmp breturn
//SEG36 main::@return
breturn:
//SEG37 [22] return
rts
}
points: .fill 3*4, 0
ASSEMBLER OPTIMIZATIONS
Removing instruction jmp b1
Removing instruction jmp bend
Removing instruction jmp b1
Removing instruction jmp b2
Removing instruction jmp breturn
Succesful ASM optimization Pass5NextJumpElimination
Replacing label b1_from_b1 with b1
Replacing label b2_from_b2 with b2
Removing instruction b1_from_bbegin:
Removing instruction b1:
Removing instruction main_from_b1:
Removing instruction bend_from_b1:
Removing instruction b1_from_b1:
Removing instruction b2_from_b2:
Succesful ASM optimization Pass5RedundantLabelElimination
Removing instruction bend:
Removing instruction b1_from_main:
Removing instruction b2_from_b1:
Removing instruction breturn:
Succesful ASM optimization Pass5UnusedLabelElimination
Updating BasicUpstart to call main directly
Removing instruction jsr main
Succesful ASM optimization Pass5SkipBegin
Removing instruction jmp b1
Removing instruction jmp b2
Succesful ASM optimization Pass5NextJumpElimination
Removing instruction bbegin:
Succesful ASM optimization Pass5UnusedLabelElimination
FINAL SYMBOL TABLE
(label) @1
(label) @begin
(label) @end
(const byte) OFFSET_STRUCT_POINT_Y OFFSET_STRUCT_POINT_Y = (byte) 1
(const byte) OFFSET_STRUCT_POINT_Z OFFSET_STRUCT_POINT_Z = (byte) 2
(signed byte) Point::x
(signed byte) Point::y
(signed byte) Point::z
(void()) main()
(byte) main::$17 reg byte a 22.0
(byte) main::$19 reg byte a 22.0
(signed byte~) main::$2 $2 zp ZP_BYTE:2 5.5
(byte~) main::$6 reg byte y 14.666666666666666
(byte~) main::$7 reg byte y 25.666666666666668
(label) main::@1
(label) main::@2
(label) main::@return
(struct Point*) main::SCREEN
(const struct Point*) main::SCREEN#0 SCREEN = (struct Point*) 1024
(byte) main::i
(byte) main::i#1 reg byte x 16.5
(byte) main::i#2 reg byte x 6.285714285714286
(byte) main::i1
(byte) main::i1#1 reg byte x 16.5
(byte) main::i1#2 reg byte x 7.333333333333333
(struct Point[4]) points
(const struct Point[4]) points#0 points = { fill( 4, 0) }
reg byte x [ main::i#2 main::i#1 ]
reg byte x [ main::i1#2 main::i1#1 ]
zp ZP_BYTE:2 [ main::$2 ]
reg byte a [ main::$17 ]
reg byte y [ main::$6 ]
reg byte a [ main::$19 ]
reg byte y [ main::$7 ]
FINAL ASSEMBLER
Score: 1071
//SEG0 File Comments
// Minimal struct - array of 3-byte structs (required *3)
//SEG1 Basic Upstart
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
//SEG2 Global Constants & labels
.const OFFSET_STRUCT_POINT_Y = 1
.const OFFSET_STRUCT_POINT_Z = 2
//SEG3 @begin
//SEG4 [1] phi from @begin to @1 [phi:@begin->@1]
//SEG5 @1
//SEG6 [2] call main
//SEG7 [4] phi from @1 to main [phi:@1->main]
//SEG8 [3] phi from @1 to @end [phi:@1->@end]
//SEG9 @end
//SEG10 main
main: {
.label SCREEN = $400
.label _2 = 2
//SEG11 [5] phi from main to main::@1 [phi:main->main::@1]
//SEG12 [5] phi (byte) main::i#2 = (byte) 0 [phi:main->main::@1#0] -- vbuxx=vbuc1
ldx #0
//SEG13 [5] phi from main::@1 to main::@1 [phi:main::@1->main::@1]
//SEG14 [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@1->main::@1#0] -- register_copy
//SEG15 main::@1
b1:
//SEG16 [6] (signed byte~) main::$2 ← - (signed byte)(byte) main::i#2 -- vbsz1=_neg_vbsxx
txa
eor #$ff
clc
adc #1
sta _2
//SEG17 [7] (byte) main::$17 ← (byte) main::i#2 << (byte) 1 -- vbuaa=vbuxx_rol_1
txa
asl
//SEG18 [8] (byte~) main::$6 ← (byte) main::$17 + (byte) main::i#2 -- vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//SEG19 [9] *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuyy=vbsxx
txa
sta points,y
//SEG20 [10] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$6) ← (signed byte~) main::$2 -- pbsc1_derefidx_vbuyy=vbsz1
lda _2
sta points+OFFSET_STRUCT_POINT_Y,y
//SEG21 [11] *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$6) ← (signed byte)(byte) main::i#2 -- pbsc1_derefidx_vbuyy=vbsxx
txa
sta points+OFFSET_STRUCT_POINT_Z,y
//SEG22 [12] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuxx=_inc_vbuxx
inx
//SEG23 [13] if((byte) main::i#1!=(byte) 4) goto main::@1 -- vbuxx_neq_vbuc1_then_la1
cpx #4
bne b1
//SEG24 [14] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
//SEG25 [14] phi (byte) main::i1#2 = (byte) 0 [phi:main::@1->main::@2#0] -- vbuxx=vbuc1
ldx #0
//SEG26 [14] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
//SEG27 [14] phi (byte) main::i1#2 = (byte) main::i1#1 [phi:main::@2->main::@2#0] -- register_copy
//SEG28 main::@2
b2:
//SEG29 [15] (byte) main::$19 ← (byte) main::i1#2 << (byte) 1 -- vbuaa=vbuxx_rol_1
txa
asl
//SEG30 [16] (byte~) main::$7 ← (byte) main::$19 + (byte) main::i1#2 -- vbuyy=vbuaa_plus_vbuxx
stx $ff
clc
adc $ff
tay
//SEG31 [17] *((signed byte*)(const struct Point*) main::SCREEN#0 + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0 + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points,y
sta SCREEN,y
//SEG32 [18] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Y + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points+OFFSET_STRUCT_POINT_Y,y
sta SCREEN+OFFSET_STRUCT_POINT_Y,y
//SEG33 [19] *((signed byte*)(const struct Point*) main::SCREEN#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) ← *((signed byte*)(const struct Point[4]) points#0+(const byte) OFFSET_STRUCT_POINT_Z + (byte~) main::$7) -- pbsc1_derefidx_vbuyy=pbsc2_derefidx_vbuyy
lda points+OFFSET_STRUCT_POINT_Z,y
sta SCREEN+OFFSET_STRUCT_POINT_Z,y
//SEG34 [20] (byte) main::i1#1 ← ++ (byte) main::i1#2 -- vbuxx=_inc_vbuxx
inx
//SEG35 [21] if((byte) main::i1#1!=(byte) 4) goto main::@2 -- vbuxx_neq_vbuc1_then_la1
cpx #4
bne b2
//SEG36 main::@return
//SEG37 [22] return
rts
}
points: .fill 3*4, 0

View File

@ -0,0 +1,35 @@
(label) @1
(label) @begin
(label) @end
(const byte) OFFSET_STRUCT_POINT_Y OFFSET_STRUCT_POINT_Y = (byte) 1
(const byte) OFFSET_STRUCT_POINT_Z OFFSET_STRUCT_POINT_Z = (byte) 2
(signed byte) Point::x
(signed byte) Point::y
(signed byte) Point::z
(void()) main()
(byte) main::$17 reg byte a 22.0
(byte) main::$19 reg byte a 22.0
(signed byte~) main::$2 $2 zp ZP_BYTE:2 5.5
(byte~) main::$6 reg byte y 14.666666666666666
(byte~) main::$7 reg byte y 25.666666666666668
(label) main::@1
(label) main::@2
(label) main::@return
(struct Point*) main::SCREEN
(const struct Point*) main::SCREEN#0 SCREEN = (struct Point*) 1024
(byte) main::i
(byte) main::i#1 reg byte x 16.5
(byte) main::i#2 reg byte x 6.285714285714286
(byte) main::i1
(byte) main::i1#1 reg byte x 16.5
(byte) main::i1#2 reg byte x 7.333333333333333
(struct Point[4]) points
(const struct Point[4]) points#0 points = { fill( 4, 0) }
reg byte x [ main::i#2 main::i#1 ]
reg byte x [ main::i1#2 main::i1#1 ]
zp ZP_BYTE:2 [ main::$2 ]
reg byte a [ main::$17 ]
reg byte y [ main::$6 ]
reg byte a [ main::$19 ]
reg byte y [ main::$7 ]