kickc/src/test/ref/signed-char-comparison.log

CONTROL FLOW GRAPH SSA
@begin: scope:[]  from
  to:@1

(void()) main()
main: scope:[main]  from @1
  (signed byte) main::dy#0 ← (signed byte) -$80
  to:main::@1
main::@1: scope:[main]  from main main::@2
  (signed byte) main::dy#2 ← phi( main/(signed byte) main::dy#0 main::@2/(signed byte) main::dy#1 )
  (signed byte) debug::dy#0 ← (signed byte) main::dy#2
  call debug 
  to:main::@2
main::@2: scope:[main]  from main::@1
  (signed byte) main::dy#3 ← phi( main::@1/(signed byte) main::dy#2 )
  (signed byte) main::dy#1 ← (signed byte) main::dy#3 + rangenext(-$80,$7f)
  (bool~) main::$1 ← (signed byte) main::dy#1 != rangelast(-$80,$7f)
  if((bool~) main::$1) goto main::@1
  to:main::@return
main::@return: scope:[main]  from main::@2
  return 
  to:@return

(void()) debug((signed byte) debug::dy)
debug: scope:[debug]  from main::@1
  (signed byte) debug::dy#1 ← phi( main::@1/(signed byte) debug::dy#0 )
  (byte) debug::i#0 ← (byte)(signed byte) debug::dy#1
  (bool~) debug::$0 ← (signed byte) debug::dy#1 > (number) -$78
  (bool~) debug::$1 ← ! (bool~) debug::$0
  if((bool~) debug::$1) goto debug::@return
  to:debug::@1
debug::@1: scope:[debug]  from debug
  (byte) debug::i#1 ← phi( debug/(byte) debug::i#0 )
  *((const byte*) SCREEN + (byte) debug::i#1) ← (number) $a
  to:debug::@return
debug::@return: scope:[debug]  from debug debug::@1
  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*) SCREEN = (byte*)(number) $400
(void()) debug((signed byte) debug::dy)
(bool~) debug::$0
(bool~) debug::$1
(label) debug::@1
(label) debug::@return
(signed byte) debug::dy
(signed byte) debug::dy#0
(signed byte) debug::dy#1
(byte) debug::i
(byte) debug::i#0
(byte) debug::i#1
(void()) main()
(bool~) main::$1
(label) main::@1
(label) main::@2
(label) main::@return
(signed byte) main::dy
(signed byte) main::dy#0
(signed byte) main::dy#1
(signed byte) main::dy#2
(signed byte) main::dy#3

Adding number conversion cast (snumber) -$78 in (bool~) debug::$0 ← (signed byte) debug::dy#1 > (number) -$78
Adding number conversion cast (unumber) $a in *((const byte*) SCREEN + (byte) debug::i#1) ← (number) $a
Successful SSA optimization PassNAddNumberTypeConversions
Inlining cast *((const byte*) SCREEN + (byte) debug::i#1) ← (unumber)(number) $a
Successful SSA optimization Pass2InlineCast
Simplifying constant pointer cast (byte*) 1024
Simplifying constant integer cast -$78
Simplifying constant integer cast $a
Successful SSA optimization PassNCastSimplification
Finalized signed number type (signed byte) -$78
Finalized unsigned number type (byte) $a
Successful SSA optimization PassNFinalizeNumberTypeConversions
Inversing boolean not [12] (bool~) debug::$1 ← (signed byte) debug::dy#1 <= (signed byte) -$78 from [11] (bool~) debug::$0 ← (signed byte) debug::dy#1 > (signed byte) -$78
Successful SSA optimization Pass2UnaryNotSimplification
Alias main::dy#2 = main::dy#3 
Alias debug::i#0 = debug::i#1 
Successful SSA optimization Pass2AliasElimination
Identical Phi Values (signed byte) debug::dy#1 (signed byte) debug::dy#0
Successful SSA optimization Pass2IdenticalPhiElimination
Simple Condition (bool~) main::$1 [6] if((signed byte) main::dy#1!=rangelast(-$80,$7f)) goto main::@1
Simple Condition (bool~) debug::$1 [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return
Successful SSA optimization Pass2ConditionalJumpSimplification
Constant (const signed byte) main::dy#0 = -$80
Successful SSA optimization Pass2ConstantIdentification
Resolved ranged next value [4] main::dy#1 ← ++ main::dy#2 to ++
Resolved ranged comparison value [6] if(main::dy#1!=rangelast(-$80,$7f)) goto main::@1 to (number) -$80
Adding number conversion cast (snumber) -$80 in if((signed byte) main::dy#1!=(number) -$80) goto main::@1
Successful SSA optimization PassNAddNumberTypeConversions
Simplifying constant integer cast -$80
Successful SSA optimization PassNCastSimplification
Finalized signed number type (signed byte) -$80
Successful SSA optimization PassNFinalizeNumberTypeConversions
Inlining Noop Cast [6] (byte) debug::i#0 ← (byte)(signed byte) debug::dy#0 keeping debug::dy#0
Successful SSA optimization Pass2NopCastInlining
Inlining constant with var siblings (const signed byte) main::dy#0
Constant inlined main::dy#0 = (signed byte) -$80
Successful SSA optimization Pass2ConstantInlining
Added new block during phi lifting main::@3(between main::@2 and main::@1)
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 
Calls in [main] to debug:8 

Created 1 initial phi equivalence classes
Coalesced [12] main::dy#4 ← main::dy#1
Coalesced down to 1 phi equivalence classes
Culled Empty Block (label) @2
Culled Empty Block (label) main::@3
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::@2
  [5] (signed byte) main::dy#2 ← phi( main/(signed byte) -$80 main::@2/(signed byte) main::dy#1 )
  [6] (signed byte) debug::dy#0 ← (signed byte) main::dy#2
  [7] call debug 
  to:main::@2
main::@2: scope:[main]  from main::@1
  [8] (signed byte) main::dy#1 ← ++ (signed byte) main::dy#2
  [9] if((signed byte) main::dy#1!=(signed byte) -$80) goto main::@1
  to:main::@return
main::@return: scope:[main]  from main::@2
  [10] return 
  to:@return

(void()) debug((signed byte) debug::dy)
debug: scope:[debug]  from main::@1
  [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return
  to:debug::@1
debug::@1: scope:[debug]  from debug
  [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a
  to:debug::@return
debug::@return: scope:[debug]  from debug debug::@1
  [13] return 
  to:@return


VARIABLE REGISTER WEIGHTS
(void()) debug((signed byte) debug::dy)
(signed byte) debug::dy
(signed byte) debug::dy#0 551.0
(byte) debug::i
(void()) main()
(signed byte) main::dy
(signed byte) main::dy#1 151.5
(signed byte) main::dy#2 101.0

Initial phi equivalence classes
[ main::dy#2 main::dy#1 ]
Added variable debug::dy#0 to live range equivalence class [ debug::dy#0 ]
Complete equivalence classes
[ main::dy#2 main::dy#1 ]
[ debug::dy#0 ]
Allocated zp[1]:2 [ main::dy#2 main::dy#1 ]
Allocated zp[1]:3 [ debug::dy#0 ]

INITIAL ASM
Target platform is c64basic / MOS6502X
  // File Comments
// Illustrates problem with > comparison of signed chars.
// Reported by Danny Spijksma
  // Upstart
.pc = $801 "Basic"
:BasicUpstart(main)
.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 dy = 2
    // [5] phi from main to main::@1 [phi:main->main::@1]
  __b1_from_main:
    // [5] phi (signed byte) main::dy#2 = (signed byte) -$80 [phi:main->main::@1#0] -- vbsz1=vbsc1 
    lda #-$80
    sta.z dy
    jmp __b1
    // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1]
  __b1_from___b2:
    // [5] phi (signed byte) main::dy#2 = (signed byte) main::dy#1 [phi:main::@2->main::@1#0] -- register_copy 
    jmp __b1
    // main::@1
  __b1:
    // [6] (signed byte) debug::dy#0 ← (signed byte) main::dy#2 -- vbsz1=vbsz2 
    lda.z dy
    sta.z debug.dy
    // [7] call debug 
    jsr debug
    jmp __b2
    // main::@2
  __b2:
    // [8] (signed byte) main::dy#1 ← ++ (signed byte) main::dy#2 -- vbsz1=_inc_vbsz1 
    inc.z dy
    // [9] if((signed byte) main::dy#1!=(signed byte) -$80) goto main::@1 -- vbsz1_neq_vbsc1_then_la1 
    lda #-$80
    cmp.z dy
    bne __b1_from___b2
    jmp __breturn
    // main::@return
  __breturn:
    // [10] return 
    rts
}
  // debug
// debug(signed byte zp(3) dy)
debug: {
    .label dy = 3
    // [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return -- vbsz1_le_vbsc1_then_la1 
    lda #-$78
    sec
    sbc.z dy
    bvc !+
    eor #$80
  !:
    bpl __breturn
    jmp __b1
    // debug::@1
  __b1:
    // [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a -- pbuc1_derefidx_vbuz1=vbuc2 
    lda #$a
    ldy.z dy
    sta SCREEN,y
    jmp __breturn
    // debug::@return
  __breturn:
    // [13] return 
    rts
}
  // File Data

REGISTER UPLIFT POTENTIAL REGISTERS
Statement [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return [ debug::dy#0 ] ( main:2::debug:7 [ main::dy#2 debug::dy#0 ] { { debug::dy#0 = main::dy#2 } }  ) always clobbers reg byte a 
Removing always clobbered register reg byte a as potential for zp[1]:2 [ main::dy#2 main::dy#1 ]
Removing always clobbered register reg byte a as potential for zp[1]:3 [ debug::dy#0 ]
Statement [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a [ ] ( main:2::debug:7 [ main::dy#2 ] { { debug::dy#0 = main::dy#2 } }  ) always clobbers reg byte a 
Statement [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return [ debug::dy#0 ] ( main:2::debug:7 [ main::dy#2 debug::dy#0 ] { { debug::dy#0 = main::dy#2 } }  ) always clobbers reg byte a 
Statement [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a [ ] ( main:2::debug:7 [ main::dy#2 ] { { debug::dy#0 = main::dy#2 } }  ) always clobbers reg byte a 
Potential registers zp[1]:2 [ main::dy#2 main::dy#1 ] : zp[1]:2 , reg byte x , reg byte y , 
Potential registers zp[1]:3 [ debug::dy#0 ] : zp[1]:3 , reg byte x , reg byte y , 

REGISTER UPLIFT SCOPES
Uplift Scope [debug] 551: zp[1]:3 [ debug::dy#0 ] 
Uplift Scope [main] 252.5: zp[1]:2 [ main::dy#2 main::dy#1 ] 
Uplift Scope [] 

Uplifting [debug] best 437 combination reg byte x [ debug::dy#0 ] 
Uplifting [main] best 317 combination reg byte x [ main::dy#2 main::dy#1 ] 
Uplifting [] best 317 combination 

ASSEMBLER BEFORE OPTIMIZATION
  // File Comments
// Illustrates problem with > comparison of signed chars.
// Reported by Danny Spijksma
  // Upstart
.pc = $801 "Basic"
:BasicUpstart(main)
.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: {
    // [5] phi from main to main::@1 [phi:main->main::@1]
  __b1_from_main:
    // [5] phi (signed byte) main::dy#2 = (signed byte) -$80 [phi:main->main::@1#0] -- vbsxx=vbsc1 
    ldx #-$80
    jmp __b1
    // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1]
  __b1_from___b2:
    // [5] phi (signed byte) main::dy#2 = (signed byte) main::dy#1 [phi:main::@2->main::@1#0] -- register_copy 
    jmp __b1
    // main::@1
  __b1:
    // [6] (signed byte) debug::dy#0 ← (signed byte) main::dy#2
    // [7] call debug 
    jsr debug
    jmp __b2
    // main::@2
  __b2:
    // [8] (signed byte) main::dy#1 ← ++ (signed byte) main::dy#2 -- vbsxx=_inc_vbsxx 
    inx
    // [9] if((signed byte) main::dy#1!=(signed byte) -$80) goto main::@1 -- vbsxx_neq_vbsc1_then_la1 
    cpx #-$80
    bne __b1_from___b2
    jmp __breturn
    // main::@return
  __breturn:
    // [10] return 
    rts
}
  // debug
// debug(signed byte register(X) dy)
debug: {
    // [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return -- vbsxx_le_vbsc1_then_la1 
    txa
    sec
    sbc #-$78
    beq __breturn
    bvc !+
    eor #$80
  !:
    bmi __breturn
    jmp __b1
    // debug::@1
  __b1:
    // [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a -- pbuc1_derefidx_vbuxx=vbuc2 
    lda #$a
    sta SCREEN,x
    jmp __breturn
    // debug::@return
  __breturn:
    // [13] 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 __breturn
Removing instruction jmp __b1
Removing instruction jmp __breturn
Succesful ASM optimization Pass5NextJumpElimination
Replacing label __b1_from___b2 with __b1
Removing instruction __b1_from___bbegin:
Removing instruction __b1:
Removing instruction main_from___b1:
Removing instruction __bend_from___b1:
Removing instruction __b1_from___b2:
Succesful ASM optimization Pass5RedundantLabelElimination
Removing instruction __bbegin:
Removing instruction __bend:
Removing instruction __b1_from_main:
Removing instruction __b2:
Removing instruction __breturn:
Removing instruction __b1:
Succesful ASM optimization Pass5UnusedLabelElimination
Removing instruction jsr main
Succesful ASM optimization Pass5SkipBegin
Removing instruction jmp __b1
Succesful ASM optimization Pass5NextJumpElimination

FINAL SYMBOL TABLE
(label) @1
(label) @begin
(label) @end
(const byte*) SCREEN = (byte*) 1024
(void()) debug((signed byte) debug::dy)
(label) debug::@1
(label) debug::@return
(signed byte) debug::dy
(signed byte) debug::dy#0 reg byte x 551.0
(byte) debug::i
(void()) main()
(label) main::@1
(label) main::@2
(label) main::@return
(signed byte) main::dy
(signed byte) main::dy#1 reg byte x 151.5
(signed byte) main::dy#2 reg byte x 101.0

reg byte x [ main::dy#2 main::dy#1 ]
reg byte x [ debug::dy#0 ]


FINAL ASSEMBLER
Score: 179

  // File Comments
// Illustrates problem with > comparison of signed chars.
// Reported by Danny Spijksma
  // 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: {
    // [5] phi from main to main::@1 [phi:main->main::@1]
    // [5] phi (signed byte) main::dy#2 = (signed byte) -$80 [phi:main->main::@1#0] -- vbsxx=vbsc1 
    ldx #-$80
    // [5] phi from main::@2 to main::@1 [phi:main::@2->main::@1]
    // [5] phi (signed byte) main::dy#2 = (signed byte) main::dy#1 [phi:main::@2->main::@1#0] -- register_copy 
    // main::@1
  __b1:
    // debug(dy)
    // [6] (signed byte) debug::dy#0 ← (signed byte) main::dy#2
    // [7] call debug 
    jsr debug
    // main::@2
    // for(signed char dy:-128..127)
    // [8] (signed byte) main::dy#1 ← ++ (signed byte) main::dy#2 -- vbsxx=_inc_vbsxx 
    inx
    // [9] if((signed byte) main::dy#1!=(signed byte) -$80) goto main::@1 -- vbsxx_neq_vbsc1_then_la1 
    cpx #-$80
    bne __b1
    // main::@return
    // }
    // [10] return 
    rts
}
  // debug
// debug(signed byte register(X) dy)
debug: {
    // if (dy > -120)
    // [11] if((signed byte) debug::dy#0<=(signed byte) -$78) goto debug::@return -- vbsxx_le_vbsc1_then_la1 
    txa
    sec
    sbc #-$78
    beq __breturn
    bvc !+
    eor #$80
  !:
    bmi __breturn
    // debug::@1
    // SCREEN[i] = 10
    // [12] *((const byte*) SCREEN + (byte)(signed byte) debug::dy#0) ← (byte) $a -- pbuc1_derefidx_vbuxx=vbuc2 
    lda #$a
    sta SCREEN,x
    // debug::@return
  __breturn:
    // }
    // [13] return 
    rts
}
  // File Data