1
0
mirror of https://gitlab.com/camelot/kickc.git synced 2024-07-03 20:29:34 +00:00
kickc/src/test/ref/fill-square.log

693 lines
23 KiB
Plaintext
Raw Normal View History

Identified constant variable (byte*) SCREEN
Culled Empty Block (label) main::@4
CONTROL FLOW GRAPH SSA
@begin: scope:[] from
(byte*) SCREEN ← ((byte*)) (number) $400
to:@1
(void()) main()
main: scope:[main] from @1
(byte) main::y#0 ← (byte) 5
to:main::@1
main::@1: scope:[main] from main main::@3
(byte) main::y#2 ← phi( main/(byte) main::y#0 main::@3/(byte) main::y#1 )
(word~) main::$0 ← ((word)) (byte) main::y#2
(number~) main::$1 ← (word~) main::$0 * (number) $28
(byte*~) main::$2 ← (byte*) SCREEN + (number~) main::$1
(byte*) main::line#0 ← (byte*~) main::$2
(byte) main::x#0 ← (byte) 5
to:main::@2
main::@2: scope:[main] from main::@1 main::@2
(byte*) main::line#1 ← phi( main::@1/(byte*) main::line#0 main::@2/(byte*) main::line#1 )
(byte) main::y#3 ← phi( main::@1/(byte) main::y#2 main::@2/(byte) main::y#3 )
(byte) main::x#2 ← phi( main::@1/(byte) main::x#0 main::@2/(byte) main::x#1 )
(byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#3
*((byte*) main::line#1 + (byte) main::x#2) ← (byte~) main::$3
(byte) main::x#1 ← (byte) main::x#2 + rangenext(5,$f)
(bool~) main::$4 ← (byte) main::x#1 != rangelast(5,$f)
if((bool~) main::$4) goto main::@2
to:main::@3
main::@3: scope:[main] from main::@2
(byte) main::y#4 ← phi( main::@2/(byte) main::y#3 )
(byte) main::y#1 ← (byte) main::y#4 + rangenext(5,$f)
(bool~) main::$5 ← (byte) main::y#1 != rangelast(5,$f)
if((bool~) main::$5) goto main::@1
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
(byte*) SCREEN
(void()) main()
(word~) main::$0
(number~) main::$1
(byte*~) main::$2
(byte~) main::$3
(bool~) main::$4
(bool~) main::$5
(label) main::@1
(label) main::@2
(label) main::@3
(label) main::@return
(byte*) main::line
(byte*) main::line#0
(byte*) main::line#1
(byte) main::x
(byte) main::x#0
(byte) main::x#1
(byte) main::x#2
(byte) main::y
(byte) main::y#0
(byte) main::y#1
(byte) main::y#2
(byte) main::y#3
(byte) main::y#4
Adding number conversion cast (unumber) $28 in (number~) main::$1 ← (word~) main::$0 * (number) $28
Adding number conversion cast (unumber) main::$1 in (number~) main::$1 ← (word~) main::$0 * (unumber)(number) $28
Successful SSA optimization PassNAddNumberTypeConversions
Inlining cast (byte*) SCREEN ← (byte*)(number) $400
Inlining cast (word~) main::$0 ← (word)(byte) main::y#2
Successful SSA optimization Pass2InlineCast
Simplifying constant pointer cast (byte*) 1024
Simplifying constant integer cast $28
Successful SSA optimization PassNCastSimplification
Finalized unsigned number type (byte) $28
Successful SSA optimization PassNFinalizeNumberTypeConversions
Inferred type updated to word in (unumber~) main::$1 ← (word~) main::$0 * (byte) $28
Alias (byte*) main::line#0 = (byte*~) main::$2
Alias (byte) main::y#3 = (byte) main::y#4
Successful SSA optimization Pass2AliasElimination
Identical Phi Values (byte) main::y#3 (byte) main::y#2
Identical Phi Values (byte*) main::line#1 (byte*) main::line#0
Successful SSA optimization Pass2IdenticalPhiElimination
Simple Condition (bool~) main::$4 [13] if((byte) main::x#1!=rangelast(5,$f)) goto main::@2
Simple Condition (bool~) main::$5 [17] if((byte) main::y#1!=rangelast(5,$f)) goto main::@1
Successful SSA optimization Pass2ConditionalJumpSimplification
Constant (const byte*) SCREEN = (byte*) 1024
Constant (const byte) main::y#0 = 5
Constant (const byte) main::x#0 = 5
Successful SSA optimization Pass2ConstantIdentification
Resolved ranged next value [11] main::x#1 ← ++ main::x#2 to ++
Resolved ranged comparison value [13] if(main::x#1!=rangelast(5,$f)) goto main::@2 to (number) $10
Resolved ranged next value [15] main::y#1 ← ++ main::y#2 to ++
Resolved ranged comparison value [17] if(main::y#1!=rangelast(5,$f)) goto main::@1 to (number) $10
Adding number conversion cast (unumber) $10 in if((byte) main::x#1!=(number) $10) goto main::@2
Adding number conversion cast (unumber) $10 in if((byte) main::y#1!=(number) $10) goto main::@1
Successful SSA optimization PassNAddNumberTypeConversions
Simplifying constant integer cast $10
Simplifying constant integer cast $10
Successful SSA optimization PassNCastSimplification
Finalized unsigned number type (byte) $10
Finalized unsigned number type (byte) $10
Successful SSA optimization PassNFinalizeNumberTypeConversions
Rewriting multiplication to use shift and addition[2] (word~) main::$1 ← (word~) main::$0 * (byte) $28
Inlining constant with var siblings (const byte) main::y#0
Inlining constant with var siblings (const byte) main::x#0
Constant inlined main::x#0 = (byte) 5
Constant inlined main::y#0 = (byte) 5
Successful SSA optimization Pass2ConstantInlining
Alias (word~) main::$1 = (word) main::$8
Successful SSA optimization Pass2AliasElimination
Added new block during phi lifting main::@5(between main::@3 and main::@1)
Added new block during phi lifting main::@6(between main::@2 and main::@2)
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
CALL GRAPH
Calls in [] to main:2
Created 2 initial phi equivalence classes
Coalesced [20] main::y#5 ← main::y#1
Coalesced [21] main::x#3 ← main::x#1
Coalesced down to 2 phi equivalence classes
Culled Empty Block (label) @2
Culled Empty Block (label) main::@5
Culled Empty Block (label) main::@6
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()
(void()) main()
main: scope:[main] from @1
[4] phi()
to:main::@1
main::@1: scope:[main] from main main::@3
[5] (byte) main::y#2 ← phi( main/(byte) 5 main::@3/(byte) main::y#1 )
[6] (word~) main::$0 ← (word)(byte) main::y#2
[7] (word) main::$6 ← (word~) main::$0 << (byte) 2
[8] (word) main::$7 ← (word) main::$6 + (word~) main::$0
[9] (word~) main::$1 ← (word) main::$7 << (byte) 3
[10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1
to:main::@2
main::@2: scope:[main] from main::@1 main::@2
[11] (byte) main::x#2 ← phi( main::@1/(byte) 5 main::@2/(byte) main::x#1 )
[12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2
[13] *((byte*) main::line#0 + (byte) main::x#2) ← (byte~) main::$3
[14] (byte) main::x#1 ← ++ (byte) main::x#2
[15] if((byte) main::x#1!=(byte) $10) goto main::@2
to:main::@3
main::@3: scope:[main] from main::@2
[16] (byte) main::y#1 ← ++ (byte) main::y#2
[17] if((byte) main::y#1!=(byte) $10) goto main::@1
to:main::@return
main::@return: scope:[main] from main::@3
[18] return
to:@return
VARIABLE REGISTER WEIGHTS
(void()) main()
(word~) main::$0 16.5
(word~) main::$1 22.0
(byte~) main::$3 202.0
(word) main::$6 22.0
(word) main::$7 22.0
(byte*) main::line
(byte*) main::line#0 18.666666666666664
(byte) main::x
(byte) main::x#1 151.5
(byte) main::x#2 134.66666666666666
(byte) main::y
(byte) main::y#1 16.5
(byte) main::y#2 11.181818181818182
Initial phi equivalence classes
[ main::y#2 main::y#1 ]
[ main::x#2 main::x#1 ]
Added variable main::$0 to zero page equivalence class [ main::$0 ]
Added variable main::$6 to zero page equivalence class [ main::$6 ]
Added variable main::$7 to zero page equivalence class [ main::$7 ]
Added variable main::$1 to zero page equivalence class [ main::$1 ]
Added variable main::line#0 to zero page equivalence class [ main::line#0 ]
Added variable main::$3 to zero page equivalence class [ main::$3 ]
Complete equivalence classes
[ main::y#2 main::y#1 ]
[ main::x#2 main::x#1 ]
[ main::$0 ]
[ main::$6 ]
[ main::$7 ]
[ main::$1 ]
[ main::line#0 ]
[ main::$3 ]
Allocated zp ZP_BYTE:2 [ main::y#2 main::y#1 ]
Allocated zp ZP_BYTE:3 [ main::x#2 main::x#1 ]
Allocated zp ZP_WORD:4 [ main::$0 ]
Allocated zp ZP_WORD:6 [ main::$6 ]
Allocated zp ZP_WORD:8 [ main::$7 ]
Allocated zp ZP_WORD:10 [ main::$1 ]
Allocated zp ZP_WORD:12 [ main::line#0 ]
Allocated zp ZP_BYTE:14 [ main::$3 ]
INITIAL ASM
Target platform is c64basic / MOS6502X
// File Comments
// Fill a square on the screen
// Upstart
.pc = $801 "Basic"
:BasicUpstart(bbegin)
.pc = $80d "Program"
// Global Constants & labels
.label SCREEN = $400
// @begin
bbegin:
// [1] phi from @begin to @1 [phi:@begin->@1]
b1_from_bbegin:
jmp b1
// @1
b1:
// [2] call main
// [4] phi from @1 to main [phi:@1->main]
main_from_b1:
jsr main
// [3] phi from @1 to @end [phi:@1->@end]
bend_from_b1:
jmp bend
// @end
bend:
// main
main: {
.label _0 = 4
.label _1 = $a
.label _3 = $e
.label line = $c
.label x = 3
.label y = 2
.label _6 = 6
.label _7 = 8
// [5] phi from main to main::@1 [phi:main->main::@1]
b1_from_main:
// [5] phi (byte) main::y#2 = (byte) 5 [phi:main->main::@1#0] -- vbuz1=vbuc1
lda #5
sta.z y
jmp b1
// [5] phi from main::@3 to main::@1 [phi:main::@3->main::@1]
b1_from_b3:
// [5] phi (byte) main::y#2 = (byte) main::y#1 [phi:main::@3->main::@1#0] -- register_copy
jmp b1
// main::@1
b1:
// [6] (word~) main::$0 ← (word)(byte) main::y#2 -- vwuz1=_word_vbuz2
lda.z y
sta.z _0
lda #0
sta.z _0+1
// [7] (word) main::$6 ← (word~) main::$0 << (byte) 2 -- vwuz1=vwuz2_rol_2
lda.z _0
asl
sta.z _6
lda.z _0+1
rol
sta.z _6+1
asl.z _6
rol.z _6+1
// [8] (word) main::$7 ← (word) main::$6 + (word~) main::$0 -- vwuz1=vwuz2_plus_vwuz3
lda.z _6
clc
adc.z _0
sta.z _7
lda.z _6+1
adc.z _0+1
sta.z _7+1
// [9] (word~) main::$1 ← (word) main::$7 << (byte) 3 -- vwuz1=vwuz2_rol_3
lda.z _7
asl
sta.z _1
lda.z _7+1
rol
sta.z _1+1
asl.z _1
rol.z _1+1
asl.z _1
rol.z _1+1
// [10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1 -- pbuz1=pbuc1_plus_vwuz2
lda.z _1
clc
adc #<SCREEN
sta.z line
lda.z _1+1
adc #>SCREEN
sta.z line+1
// [11] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
b2_from_b1:
// [11] phi (byte) main::x#2 = (byte) 5 [phi:main::@1->main::@2#0] -- vbuz1=vbuc1
lda #5
sta.z x
jmp b2
// [11] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
b2_from_b2:
// [11] phi (byte) main::x#2 = (byte) main::x#1 [phi:main::@2->main::@2#0] -- register_copy
jmp b2
// main::@2
b2:
// [12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2 -- vbuz1=vbuz2_plus_vbuz3
lda.z x
clc
adc.z y
sta.z _3
// [13] *((byte*) main::line#0 + (byte) main::x#2) ← (byte~) main::$3 -- pbuz1_derefidx_vbuz2=vbuz3
lda.z _3
ldy.z x
sta (line),y
// [14] (byte) main::x#1 ← ++ (byte) main::x#2 -- vbuz1=_inc_vbuz1
inc.z x
// [15] if((byte) main::x#1!=(byte) $10) goto main::@2 -- vbuz1_neq_vbuc1_then_la1
lda #$10
cmp.z x
bne b2_from_b2
jmp b3
// main::@3
b3:
// [16] (byte) main::y#1 ← ++ (byte) main::y#2 -- vbuz1=_inc_vbuz1
inc.z y
// [17] if((byte) main::y#1!=(byte) $10) goto main::@1 -- vbuz1_neq_vbuc1_then_la1
lda #$10
cmp.z y
bne b1_from_b3
jmp breturn
// main::@return
breturn:
// [18] return
rts
}
// File Data
REGISTER UPLIFT POTENTIAL REGISTERS
Statement [6] (word~) main::$0 ← (word)(byte) main::y#2 [ main::y#2 main::$0 ] ( main:2 [ main::y#2 main::$0 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:2 [ main::y#2 main::y#1 ]
Statement [7] (word) main::$6 ← (word~) main::$0 << (byte) 2 [ main::y#2 main::$0 main::$6 ] ( main:2 [ main::y#2 main::$0 main::$6 ] ) always clobbers reg byte a
Statement [8] (word) main::$7 ← (word) main::$6 + (word~) main::$0 [ main::y#2 main::$7 ] ( main:2 [ main::y#2 main::$7 ] ) always clobbers reg byte a
Statement [9] (word~) main::$1 ← (word) main::$7 << (byte) 3 [ main::y#2 main::$1 ] ( main:2 [ main::y#2 main::$1 ] ) always clobbers reg byte a
Statement [10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1 [ main::y#2 main::line#0 ] ( main:2 [ main::y#2 main::line#0 ] ) always clobbers reg byte a
Statement [12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2 [ main::y#2 main::line#0 main::x#2 main::$3 ] ( main:2 [ main::y#2 main::line#0 main::x#2 main::$3 ] ) always clobbers reg byte a
Removing always clobbered register reg byte a as potential for zp ZP_BYTE:3 [ main::x#2 main::x#1 ]
Statement [6] (word~) main::$0 ← (word)(byte) main::y#2 [ main::y#2 main::$0 ] ( main:2 [ main::y#2 main::$0 ] ) always clobbers reg byte a
Statement [7] (word) main::$6 ← (word~) main::$0 << (byte) 2 [ main::y#2 main::$0 main::$6 ] ( main:2 [ main::y#2 main::$0 main::$6 ] ) always clobbers reg byte a
Statement [8] (word) main::$7 ← (word) main::$6 + (word~) main::$0 [ main::y#2 main::$7 ] ( main:2 [ main::y#2 main::$7 ] ) always clobbers reg byte a
Statement [9] (word~) main::$1 ← (word) main::$7 << (byte) 3 [ main::y#2 main::$1 ] ( main:2 [ main::y#2 main::$1 ] ) always clobbers reg byte a
Statement [10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1 [ main::y#2 main::line#0 ] ( main:2 [ main::y#2 main::line#0 ] ) always clobbers reg byte a
Statement [12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2 [ main::y#2 main::line#0 main::x#2 main::$3 ] ( main:2 [ main::y#2 main::line#0 main::x#2 main::$3 ] ) always clobbers reg byte a
Potential registers zp ZP_BYTE:2 [ main::y#2 main::y#1 ] : zp ZP_BYTE:2 , reg byte x , reg byte y ,
Potential registers zp ZP_BYTE:3 [ main::x#2 main::x#1 ] : zp ZP_BYTE:3 , reg byte x , reg byte y ,
Potential registers zp ZP_WORD:4 [ main::$0 ] : zp ZP_WORD:4 ,
Potential registers zp ZP_WORD:6 [ main::$6 ] : zp ZP_WORD:6 ,
Potential registers zp ZP_WORD:8 [ main::$7 ] : zp ZP_WORD:8 ,
Potential registers zp ZP_WORD:10 [ main::$1 ] : zp ZP_WORD:10 ,
Potential registers zp ZP_WORD:12 [ main::line#0 ] : zp ZP_WORD:12 ,
Potential registers zp ZP_BYTE:14 [ main::$3 ] : zp ZP_BYTE:14 , reg byte a , reg byte x , reg byte y ,
REGISTER UPLIFT SCOPES
Uplift Scope [main] 286.17: zp ZP_BYTE:3 [ main::x#2 main::x#1 ] 202: zp ZP_BYTE:14 [ main::$3 ] 27.68: zp ZP_BYTE:2 [ main::y#2 main::y#1 ] 22: zp ZP_WORD:6 [ main::$6 ] 22: zp ZP_WORD:8 [ main::$7 ] 22: zp ZP_WORD:10 [ main::$1 ] 18.67: zp ZP_WORD:12 [ main::line#0 ] 16.5: zp ZP_WORD:4 [ main::$0 ]
Uplift Scope []
Uplifting [main] best 4443 combination reg byte y [ main::x#2 main::x#1 ] reg byte a [ main::$3 ] zp ZP_BYTE:2 [ main::y#2 main::y#1 ] zp ZP_WORD:6 [ main::$6 ] zp ZP_WORD:8 [ main::$7 ] zp ZP_WORD:10 [ main::$1 ] zp ZP_WORD:12 [ main::line#0 ] zp ZP_WORD:4 [ main::$0 ]
Uplifting [] best 4443 combination
Attempting to uplift remaining variables inzp ZP_BYTE:2 [ main::y#2 main::y#1 ]
Uplifting [main] best 4443 combination zp ZP_BYTE:2 [ main::y#2 main::y#1 ]
Coalescing zero page register [ zp ZP_WORD:4 [ main::$0 ] ] with [ zp ZP_WORD:8 [ main::$7 ] ] - score: 1
Coalescing zero page register [ zp ZP_WORD:10 [ main::$1 ] ] with [ zp ZP_WORD:12 [ main::line#0 ] ] - score: 1
Coalescing zero page register [ zp ZP_WORD:4 [ main::$0 main::$7 ] ] with [ zp ZP_WORD:10 [ main::$1 main::line#0 ] ] - score: 1
Allocated (was zp ZP_WORD:4) zp ZP_WORD:3 [ main::$0 main::$7 main::$1 main::line#0 ]
Allocated (was zp ZP_WORD:6) zp ZP_WORD:5 [ main::$6 ]
ASSEMBLER BEFORE OPTIMIZATION
// File Comments
// Fill a square on the screen
// Upstart
.pc = $801 "Basic"
:BasicUpstart(bbegin)
.pc = $80d "Program"
// Global Constants & labels
.label SCREEN = $400
// @begin
bbegin:
// [1] phi from @begin to @1 [phi:@begin->@1]
b1_from_bbegin:
jmp b1
// @1
b1:
// [2] call main
// [4] phi from @1 to main [phi:@1->main]
main_from_b1:
jsr main
// [3] phi from @1 to @end [phi:@1->@end]
bend_from_b1:
jmp bend
// @end
bend:
// main
main: {
.label _0 = 3
.label _1 = 3
.label line = 3
.label y = 2
.label _6 = 5
.label _7 = 3
// [5] phi from main to main::@1 [phi:main->main::@1]
b1_from_main:
// [5] phi (byte) main::y#2 = (byte) 5 [phi:main->main::@1#0] -- vbuz1=vbuc1
lda #5
sta.z y
jmp b1
// [5] phi from main::@3 to main::@1 [phi:main::@3->main::@1]
b1_from_b3:
// [5] phi (byte) main::y#2 = (byte) main::y#1 [phi:main::@3->main::@1#0] -- register_copy
jmp b1
// main::@1
b1:
// [6] (word~) main::$0 ← (word)(byte) main::y#2 -- vwuz1=_word_vbuz2
lda.z y
sta.z _0
lda #0
sta.z _0+1
// [7] (word) main::$6 ← (word~) main::$0 << (byte) 2 -- vwuz1=vwuz2_rol_2
lda.z _0
asl
sta.z _6
lda.z _0+1
rol
sta.z _6+1
asl.z _6
rol.z _6+1
// [8] (word) main::$7 ← (word) main::$6 + (word~) main::$0 -- vwuz1=vwuz2_plus_vwuz1
lda.z _7
clc
adc.z _6
sta.z _7
lda.z _7+1
adc.z _6+1
sta.z _7+1
// [9] (word~) main::$1 ← (word) main::$7 << (byte) 3 -- vwuz1=vwuz1_rol_3
asl.z _1
rol.z _1+1
asl.z _1
rol.z _1+1
asl.z _1
rol.z _1+1
// [10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1 -- pbuz1=pbuc1_plus_vwuz1
clc
lda.z line
adc #<SCREEN
sta.z line
lda.z line+1
adc #>SCREEN
sta.z line+1
// [11] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
b2_from_b1:
// [11] phi (byte) main::x#2 = (byte) 5 [phi:main::@1->main::@2#0] -- vbuyy=vbuc1
ldy #5
jmp b2
// [11] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
b2_from_b2:
// [11] phi (byte) main::x#2 = (byte) main::x#1 [phi:main::@2->main::@2#0] -- register_copy
jmp b2
// main::@2
b2:
// [12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2 -- vbuaa=vbuyy_plus_vbuz1
tya
clc
adc.z y
// [13] *((byte*) main::line#0 + (byte) main::x#2) ← (byte~) main::$3 -- pbuz1_derefidx_vbuyy=vbuaa
sta (line),y
// [14] (byte) main::x#1 ← ++ (byte) main::x#2 -- vbuyy=_inc_vbuyy
iny
// [15] if((byte) main::x#1!=(byte) $10) goto main::@2 -- vbuyy_neq_vbuc1_then_la1
cpy #$10
bne b2_from_b2
jmp b3
// main::@3
b3:
// [16] (byte) main::y#1 ← ++ (byte) main::y#2 -- vbuz1=_inc_vbuz1
inc.z y
// [17] if((byte) main::y#1!=(byte) $10) goto main::@1 -- vbuz1_neq_vbuc1_then_la1
lda #$10
cmp.z y
bne b1_from_b3
jmp breturn
// main::@return
breturn:
// [18] return
rts
}
// File Data
ASSEMBLER OPTIMIZATIONS
Removing instruction jmp b1
Removing instruction jmp bend
Removing instruction jmp b1
Removing instruction jmp b2
Removing instruction jmp b3
Removing instruction jmp breturn
Succesful ASM optimization Pass5NextJumpElimination
Replacing label b2_from_b2 with b2
Replacing label b1_from_b3 with b1
Removing instruction b1_from_bbegin:
Removing instruction b1:
Removing instruction main_from_b1:
Removing instruction bend_from_b1:
Removing instruction b1_from_b3:
Removing instruction b2_from_b2:
Succesful ASM optimization Pass5RedundantLabelElimination
Removing instruction bend:
Removing instruction b1_from_main:
Removing instruction b2_from_b1:
Removing instruction b3:
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*) SCREEN SCREEN = (byte*) 1024
(void()) main()
(word~) main::$0 $0 zp ZP_WORD:3 16.5
(word~) main::$1 $1 zp ZP_WORD:3 22.0
(byte~) main::$3 reg byte a 202.0
(word) main::$6 $6 zp ZP_WORD:5 22.0
(word) main::$7 $7 zp ZP_WORD:3 22.0
(label) main::@1
(label) main::@2
(label) main::@3
(label) main::@return
(byte*) main::line
(byte*) main::line#0 line zp ZP_WORD:3 18.666666666666664
(byte) main::x
(byte) main::x#1 reg byte y 151.5
(byte) main::x#2 reg byte y 134.66666666666666
(byte) main::y
(byte) main::y#1 y zp ZP_BYTE:2 16.5
(byte) main::y#2 y zp ZP_BYTE:2 11.181818181818182
zp ZP_BYTE:2 [ main::y#2 main::y#1 ]
reg byte y [ main::x#2 main::x#1 ]
zp ZP_WORD:3 [ main::$0 main::$7 main::$1 main::line#0 ]
zp ZP_WORD:5 [ main::$6 ]
reg byte a [ main::$3 ]
FINAL ASSEMBLER
Score: 3381
// File Comments
// Fill a square on the screen
// Upstart
.pc = $801 "Basic"
:BasicUpstart(main)
.pc = $80d "Program"
// Global Constants & labels
.label SCREEN = $400
// @begin
// [1] phi from @begin to @1 [phi:@begin->@1]
// @1
// [2] call main
// [4] phi from @1 to main [phi:@1->main]
// [3] phi from @1 to @end [phi:@1->@end]
// @end
// main
main: {
.label _0 = 3
.label _1 = 3
.label line = 3
.label y = 2
.label _6 = 5
.label _7 = 3
// [5] phi from main to main::@1 [phi:main->main::@1]
// [5] phi (byte) main::y#2 = (byte) 5 [phi:main->main::@1#0] -- vbuz1=vbuc1
lda #5
sta.z y
// [5] phi from main::@3 to main::@1 [phi:main::@3->main::@1]
// [5] phi (byte) main::y#2 = (byte) main::y#1 [phi:main::@3->main::@1#0] -- register_copy
// main::@1
b1:
// (word)y
// [6] (word~) main::$0 ← (word)(byte) main::y#2 -- vwuz1=_word_vbuz2
lda.z y
sta.z _0
lda #0
sta.z _0+1
// (word)y*40
// [7] (word) main::$6 ← (word~) main::$0 << (byte) 2 -- vwuz1=vwuz2_rol_2
lda.z _0
asl
sta.z _6
lda.z _0+1
rol
sta.z _6+1
asl.z _6
rol.z _6+1
// [8] (word) main::$7 ← (word) main::$6 + (word~) main::$0 -- vwuz1=vwuz2_plus_vwuz1
lda.z _7
clc
adc.z _6
sta.z _7
lda.z _7+1
adc.z _6+1
sta.z _7+1
// [9] (word~) main::$1 ← (word) main::$7 << (byte) 3 -- vwuz1=vwuz1_rol_3
asl.z _1
rol.z _1+1
asl.z _1
rol.z _1+1
asl.z _1
rol.z _1+1
// line = SCREEN+(word)y*40
// [10] (byte*) main::line#0 ← (const byte*) SCREEN + (word~) main::$1 -- pbuz1=pbuc1_plus_vwuz1
clc
lda.z line
adc #<SCREEN
sta.z line
lda.z line+1
adc #>SCREEN
sta.z line+1
// [11] phi from main::@1 to main::@2 [phi:main::@1->main::@2]
// [11] phi (byte) main::x#2 = (byte) 5 [phi:main::@1->main::@2#0] -- vbuyy=vbuc1
ldy #5
// [11] phi from main::@2 to main::@2 [phi:main::@2->main::@2]
// [11] phi (byte) main::x#2 = (byte) main::x#1 [phi:main::@2->main::@2#0] -- register_copy
// main::@2
b2:
// x+y
// [12] (byte~) main::$3 ← (byte) main::x#2 + (byte) main::y#2 -- vbuaa=vbuyy_plus_vbuz1
tya
clc
adc.z y
// line[x] = x+y
// [13] *((byte*) main::line#0 + (byte) main::x#2) ← (byte~) main::$3 -- pbuz1_derefidx_vbuyy=vbuaa
sta (line),y
// for( byte x: 5..15)
// [14] (byte) main::x#1 ← ++ (byte) main::x#2 -- vbuyy=_inc_vbuyy
iny
// [15] if((byte) main::x#1!=(byte) $10) goto main::@2 -- vbuyy_neq_vbuc1_then_la1
cpy #$10
bne b2
// main::@3
// for( byte y: 5..15)
// [16] (byte) main::y#1 ← ++ (byte) main::y#2 -- vbuz1=_inc_vbuz1
inc.z y
// [17] if((byte) main::y#1!=(byte) $10) goto main::@1 -- vbuz1_neq_vbuc1_then_la1
lda #$10
cmp.z y
bne b1
// main::@return
// }
// [18] return
rts
}
// File Data