Culled Empty Block (label) main::@4 Culled Empty Block (label) main::@5 Culled Empty Block (label) main::@6 CONTROL FLOW GRAPH SSA @begin: scope:[] from to:@1 main: scope:[main] from @1 (byte[$400]) main::SCREEN#0 ← ((byte[$400])) (number) $400 (byte) main::b#0 ← (byte) 0 (byte) main::i#0 ← (number) 2 to:main::@1 main::@1: scope:[main] from main main::@2 (byte) main::b#3 ← phi( main/(byte) main::b#0 main::@2/(byte) main::b#1 ) (byte) main::i#2 ← phi( main/(byte) main::i#0 main::@2/(byte) main::i#1 ) (bool~) main::$0 ← (byte) main::i#2 < (number) $a if((bool~) main::$0) goto main::@2 to:main::@3 main::@2: scope:[main] from main::@1 (byte) main::i#3 ← phi( main::@1/(byte) main::i#2 ) (byte) main::b#1 ← *((byte[$400]) main::SCREEN#0 + (byte) main::i#3) (byte) main::i#1 ← ++ (byte) main::i#3 to:main::@1 main::@3: scope:[main] from main::@1 (byte) main::b#2 ← phi( main::@1/(byte) main::b#3 ) *((byte[$400]) main::SCREEN#0 + (number) $3e7) ← (byte) main::b#2 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 (void()) main() (bool~) main::$0 (label) main::@1 (label) main::@2 (label) main::@3 (label) main::@return (byte[$400]) main::SCREEN (byte[$400]) main::SCREEN#0 (byte) main::b (byte) main::b#0 (byte) main::b#1 (byte) main::b#2 (byte) main::b#3 (byte) main::i (byte) main::i#0 (byte) main::i#1 (byte) main::i#2 (byte) main::i#3 Adding number conversion cast (unumber) 2 in (byte) main::i#0 ← (number) 2 Adding number conversion cast (unumber) $a in (bool~) main::$0 ← (byte) main::i#2 < (number) $a Adding number conversion cast (unumber) $3e7 in *((byte[$400]) main::SCREEN#0 + (number) $3e7) ← (byte) main::b#2 Successful SSA optimization PassNAddNumberTypeConversions Inlining cast (byte[$400]) main::SCREEN#0 ← (byte[$400])(number) $400 Inlining cast (byte) main::i#0 ← (unumber)(number) 2 Successful SSA optimization Pass2InlineCast Simplifying constant pointer cast (byte*) 1024 Simplifying constant integer cast 2 Simplifying constant integer cast $a Simplifying constant integer cast $3e7 Successful SSA optimization PassNCastSimplification Finalized unsigned number type (byte) 2 Finalized unsigned number type (byte) $a Finalized unsigned number type (word) $3e7 Successful SSA optimization PassNFinalizeNumberTypeConversions Alias (byte) main::i#2 = (byte) main::i#3 Alias (byte) main::b#2 = (byte) main::b#3 Successful SSA optimization Pass2AliasElimination Simple Condition (bool~) main::$0 [5] if((byte) main::i#2<(byte) $a) goto main::@2 Successful SSA optimization Pass2ConditionalJumpSimplification Constant (const byte[$400]) main::SCREEN#0 = (byte*) 1024 Constant (const byte) main::b#0 = 0 Constant (const byte) main::i#0 = 2 Successful SSA optimization Pass2ConstantIdentification De-inlining pointer[w] to *(pointer+w) [10] *((const byte[$400]) main::SCREEN#0 + (word) $3e7) ← (byte) main::b#2 Successful SSA optimization Pass2DeInlineWordDerefIdx Constant right-side identified [4] (byte*~) main::$1 ← (const byte[$400]) main::SCREEN#0 + (word) $3e7 Successful SSA optimization Pass2ConstantRValueConsolidation Constant (const byte*) main::$1 = main::SCREEN#0+$3e7 Successful SSA optimization Pass2ConstantIdentification Inlining constant with var siblings (const byte) main::b#0 Inlining constant with var siblings (const byte) main::i#0 Constant inlined main::$1 = (const byte[$400]) main::SCREEN#0+(word) $3e7 Constant inlined main::i#0 = (byte) 2 Constant inlined main::b#0 = (byte) 0 Successful SSA optimization Pass2ConstantInlining 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 [12] main::i#4 ← main::i#1 Coalesced [13] main::b#4 ← main::b#1 Coalesced down to 2 phi equivalence classes Culled Empty Block (label) @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::@2 [5] (byte) main::b#2 ← phi( main/(byte) 0 main::@2/(byte) main::b#1 ) [5] (byte) main::i#2 ← phi( main/(byte) 2 main::@2/(byte) main::i#1 ) [6] if((byte) main::i#2<(byte) $a) goto main::@2 to:main::@3 main::@3: scope:[main] from main::@1 [7] *((const byte[$400]) main::SCREEN#0+(word) $3e7) ← (byte) main::b#2 to:main::@return main::@return: scope:[main] from main::@3 [8] return to:@return main::@2: scope:[main] from main::@1 [9] (byte) main::b#1 ← *((const byte[$400]) main::SCREEN#0 + (byte) main::i#2) [10] (byte) main::i#1 ← ++ (byte) main::i#2 to:main::@1 VARIABLE REGISTER WEIGHTS (void()) main() (byte[$400]) main::SCREEN (byte) main::b (byte) main::b#1 11.0 (byte) main::b#2 6.5 (byte) main::i (byte) main::i#1 22.0 (byte) main::i#2 14.666666666666666 Initial phi equivalence classes [ main::i#2 main::i#1 ] [ main::b#2 main::b#1 ] Complete equivalence classes [ main::i#2 main::i#1 ] [ main::b#2 main::b#1 ] Allocated zp ZP_BYTE:2 [ main::i#2 main::i#1 ] Allocated zp ZP_BYTE:3 [ main::b#2 main::b#1 ] INITIAL ASM Target platform is c64basic / MOS6502X // File Comments // Test all types of pointers // Upstart .pc = $801 "Basic" :BasicUpstart(bbegin) .pc = $80d "Program" // Global Constants & labels // @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: { // A constant pointer .label SCREEN = $400 .label b = 3 .label i = 2 // [5] phi from main to main::@1 [phi:main->main::@1] b1_from_main: // [5] phi (byte) main::b#2 = (byte) 0 [phi:main->main::@1#0] -- vbuz1=vbuc1 lda #0 sta.z b // [5] phi (byte) main::i#2 = (byte) 2 [phi:main->main::@1#1] -- vbuz1=vbuc1 lda #2 sta.z i jmp b1 // main::@1 b1: // [6] if((byte) main::i#2<(byte) $a) goto main::@2 -- vbuz1_lt_vbuc1_then_la1 lda.z i cmp #$a bcc b2 jmp b3 // main::@3 b3: // [7] *((const byte[$400]) main::SCREEN#0+(word) $3e7) ← (byte) main::b#2 -- _deref_pbuc1=vbuz1 lda.z b sta SCREEN+$3e7 jmp breturn // main::@return breturn: // [8] return rts // main::@2 b2: // [9] (byte) main::b#1 ← *((const byte[$400]) main::SCREEN#0 + (byte) main::i#2) -- vbuz1=pbuc1_derefidx_vbuz2 ldy.z i lda SCREEN,y sta.z b // [10] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuz1=_inc_vbuz1 inc.z i // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1] b1_from_b2: // [5] phi (byte) main::b#2 = (byte) main::b#1 [phi:main::@2->main::@1#0] -- register_copy // [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@2->main::@1#1] -- register_copy jmp b1 } // File Data REGISTER UPLIFT POTENTIAL REGISTERS Potential registers zp ZP_BYTE:2 [ main::i#2 main::i#1 ] : zp ZP_BYTE:2 , reg byte a , reg byte x , reg byte y , Potential registers zp ZP_BYTE:3 [ main::b#2 main::b#1 ] : zp ZP_BYTE:3 , reg byte a , reg byte x , reg byte y , REGISTER UPLIFT SCOPES Uplift Scope [main] 36.67: zp ZP_BYTE:2 [ main::i#2 main::i#1 ] 17.5: zp ZP_BYTE:3 [ main::b#2 main::b#1 ] Uplift Scope [] Uplifting [main] best 265 combination reg byte x [ main::i#2 main::i#1 ] reg byte a [ main::b#2 main::b#1 ] Uplifting [] best 265 combination ASSEMBLER BEFORE OPTIMIZATION // File Comments // Test all types of pointers // Upstart .pc = $801 "Basic" :BasicUpstart(bbegin) .pc = $80d "Program" // Global Constants & labels // @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: { // A constant pointer .label SCREEN = $400 // [5] phi from main to main::@1 [phi:main->main::@1] b1_from_main: // [5] phi (byte) main::b#2 = (byte) 0 [phi:main->main::@1#0] -- vbuaa=vbuc1 lda #0 // [5] phi (byte) main::i#2 = (byte) 2 [phi:main->main::@1#1] -- vbuxx=vbuc1 ldx #2 jmp b1 // main::@1 b1: // [6] if((byte) main::i#2<(byte) $a) goto main::@2 -- vbuxx_lt_vbuc1_then_la1 cpx #$a bcc b2 jmp b3 // main::@3 b3: // [7] *((const byte[$400]) main::SCREEN#0+(word) $3e7) ← (byte) main::b#2 -- _deref_pbuc1=vbuaa sta SCREEN+$3e7 jmp breturn // main::@return breturn: // [8] return rts // main::@2 b2: // [9] (byte) main::b#1 ← *((const byte[$400]) main::SCREEN#0 + (byte) main::i#2) -- vbuaa=pbuc1_derefidx_vbuxx lda SCREEN,x // [10] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuxx=_inc_vbuxx inx // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1] b1_from_b2: // [5] phi (byte) main::b#2 = (byte) main::b#1 [phi:main::@2->main::@1#0] -- register_copy // [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@2->main::@1#1] -- register_copy jmp b1 } // File Data ASSEMBLER OPTIMIZATIONS Removing instruction jmp b1 Removing instruction jmp bend Removing instruction jmp b1 Removing instruction jmp b3 Removing instruction jmp breturn Succesful ASM optimization Pass5NextJumpElimination Removing instruction b1_from_bbegin: Removing instruction b1: Removing instruction main_from_b1: Removing instruction bend_from_b1: Succesful ASM optimization Pass5RedundantLabelElimination Removing instruction bend: Removing instruction b1_from_main: Removing instruction b3: Removing instruction breturn: Removing instruction b1_from_b2: Succesful ASM optimization Pass5UnusedLabelElimination Updating BasicUpstart to call main directly Removing instruction jsr main Succesful ASM optimization Pass5SkipBegin Removing instruction bbegin: Succesful ASM optimization Pass5UnusedLabelElimination FINAL SYMBOL TABLE (label) @1 (label) @begin (label) @end (void()) main() (label) main::@1 (label) main::@2 (label) main::@3 (label) main::@return (byte[$400]) main::SCREEN (const byte[$400]) main::SCREEN#0 SCREEN = (byte*) 1024 (byte) main::b (byte) main::b#1 reg byte a 11.0 (byte) main::b#2 reg byte a 6.5 (byte) main::i (byte) main::i#1 reg byte x 22.0 (byte) main::i#2 reg byte x 14.666666666666666 reg byte x [ main::i#2 main::i#1 ] reg byte a [ main::b#2 main::b#1 ] FINAL ASSEMBLER Score: 190 // File Comments // Test all types of pointers // Upstart .pc = $801 "Basic" :BasicUpstart(main) .pc = $80d "Program" // Global Constants & labels // @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: { // A constant pointer .label SCREEN = $400 // [5] phi from main to main::@1 [phi:main->main::@1] // [5] phi (byte) main::b#2 = (byte) 0 [phi:main->main::@1#0] -- vbuaa=vbuc1 lda #0 // [5] phi (byte) main::i#2 = (byte) 2 [phi:main->main::@1#1] -- vbuxx=vbuc1 ldx #2 // main::@1 b1: // while(i<10) // [6] if((byte) main::i#2<(byte) $a) goto main::@2 -- vbuxx_lt_vbuc1_then_la1 cpx #$a bcc b2 // main::@3 // SCREEN[999] = b // [7] *((const byte[$400]) main::SCREEN#0+(word) $3e7) ← (byte) main::b#2 -- _deref_pbuc1=vbuaa sta SCREEN+$3e7 // main::@return // } // [8] return rts // main::@2 b2: // b = SCREEN[i++] // [9] (byte) main::b#1 ← *((const byte[$400]) main::SCREEN#0 + (byte) main::i#2) -- vbuaa=pbuc1_derefidx_vbuxx lda SCREEN,x // b = SCREEN[i++]; // [10] (byte) main::i#1 ← ++ (byte) main::i#2 -- vbuxx=_inc_vbuxx inx // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1] // [5] phi (byte) main::b#2 = (byte) main::b#1 [phi:main::@2->main::@1#0] -- register_copy // [5] phi (byte) main::i#2 = (byte) main::i#1 [phi:main::@2->main::@1#1] -- register_copy jmp b1 } // File Data