Skip to content

Instantly share code, notes, and snippets.

@ajvondrak

ajvondrak/GVN

Created September 14, 2012 00:20
Show Gist options
  • Save ajvondrak/3718896 to your computer and use it in GitHub Desktop.
Save ajvondrak/3718896 to your computer and use it in GitHub Desktop.
Download ZIP
SIMD tests
Raw
GVN
This file has been truncated, but you can view the full file.
! Using GVN
t "print-mr" set
t "print-checks" set
"math.vectors.simd" test
Unit Test: {
[ V{ float } ]
[ [ { float-4 } declare norm-sq ] final-classes ]
}
Unit Test: {
[ V{ float } ]
[ [ { float-4 } declare norm ] final-classes ]
}
Unit Test: {
[ V{ float-4 } ]
[ [ { float-4 } declare normalize ] final-classes ]
}
Unit Test: {
[ V{ float-4 } ]
[ [ { float-4 float-4 } declare v+ ] final-classes ]
}
Unit Test: {
[ V{ float } ]
[ [ { float-4 } declare second ] final-classes ]
}
Unit Test: {
[ V{ int-4 } ]
[ [ { int-4 int-4 } declare v+ ] final-classes ]
}
Unit Test: {
[ t ]
[
[ { int-4 } declare second ] final-classes first
integer class<=
]
}
Unit Test: {
[ V{ longlong-2 } ]
[ [ { longlong-2 longlong-2 } declare v+ ] final-classes ]
}
Unit Test: {
[ V{ integer } ]
[ [ { longlong-2 } declare second ] final-classes ]
}
Unit Test: {
[ double-2{ 4.0 1024.0 } ]
[
float-4{ 0.0 1.0 0.0 2.0 } [
{ float-4 } declare dup v+
underlying>> double-2 boa dup v+
] compile-call
]
}
== Checking -new constructors
Unit Test: {
[ { } ]
[
simd-classes
[ [ [ ] ] dip [ new ] curry ] [ = ] check-optimizer
]
}
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm char-16{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ char-16 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm uchar-16{ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ uchar-16 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm short-8{ 0 0 0 0 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ short-8 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm ushort-8{ 0 0 0 0 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ ushort-8 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm int-4{ 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ int-4 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm uint-4{ 0 0 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ uint-4 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm longlong-2{ 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ longlong-2 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm ulonglong-2{ 0 0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ ulonglong-2 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm float-4{ 0.0 0.0 0.0 0.0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ float-4 new ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##replace-imm double-2{ 0.0 0.0 } D 0
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##return
=== stack frame: f
[ ]
[ { } declare \ double-2 new ]
Unit Test: {
[ { } ]
[
simd-classes
[ [ new ] curry compile-call [ zero? ] all? not ]
filter
]
}
== Checking -with constructors
Unit Test: {
[ { } ]
[
with-ctors
[ [ 1000 random [ ] curry ] dip [ execute ] curry ]
[ = ] check-optimizer
]
}
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -1
##sar-imm EAX EAX 4
##integer>scalar XMM0 EAX char-scalar-rep
##scalar>vector XMM0 XMM0 char-16-rep
##zero-vector XMM1 char-16-rep
##shuffle-vector XMM0 XMM0 XMM1 char-16-rep
##store-memory-imm XMM0 EBX 7 char-16-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 791 ]
[ { bignum } declare \ char-16-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -1
##sar-imm EAX EAX 4
##integer>scalar XMM0 EAX uchar-scalar-rep
##scalar>vector XMM0 XMM0 uchar-16-rep
##zero-vector XMM1 uchar-16-rep
##shuffle-vector XMM0 XMM0 XMM1 uchar-16-rep
##store-memory-imm XMM0 EBX 7 uchar-16-rep f
##replace EBP D 0
##set-slot-imm EBX EBP 2 7
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 571 ]
[ { bignum } declare \ uchar-16-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -1
##sar-imm EAX EAX 4
##integer>scalar XMM0 EAX short-scalar-rep
##scalar>vector XMM0 XMM0 short-8-rep
##load-vector XMM1 B{ 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 } short-8-rep
##shuffle-vector XMM0 XMM0 XMM1 short-8-rep
##store-memory-imm XMM0 EBX 7 short-8-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 388 ]
[ { bignum } declare \ short-8-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -1
##sar-imm EAX EAX 4
##integer>scalar XMM0 EAX ushort-scalar-rep
##scalar>vector XMM0 XMM0 ushort-8-rep
##load-vector XMM1 B{ 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 } ushort-8-rep
##shuffle-vector XMM0 XMM0 XMM1 ushort-8-rep
##store-memory-imm XMM0 EBX 7 ushort-8-rep f
##replace EBP D 0
##set-slot-imm EBX EBP 2 7
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 872 ]
[ { bignum } declare \ ushort-8-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 3
##load-tagged EBX 64
##load-integer EDX 0
##replace EBP R 0
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBX R 3
##replace EBP R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm EDX EDX 6
##replace EDX R 0
##replace EBP R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EBX R -3
##peek EBP R -2
##peek EDX R -4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm ECX EBX 4
##compare-integer-branch EDX ECX cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 16 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -3
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 871 ]
[ { bignum } declare \ int-4-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##allot EAX 32 byte-array EBP
##replace EAX R 0
##peek EBP D 3
##load-tagged EBX 64
##load-tagged EDX 256
##set-slot-imm EDX EAX 1 9
##load-integer EDX 0
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBX R 3
##replace EAX R 4
##replace EBP R 5
##replace EBP D 0
##shl-imm EDX EDX 6
##replace EDX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBP R -1
##peek EBX R -3
##peek EAX R -2
##peek EDX R -4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm ECX EBX 4
##compare-integer-branch EDX ECX cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 16 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -3
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 9 ]
[ { bignum } declare \ uint-4-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##peek EBP D 3
##load-tagged EBX 32
##load-integer EDX 0
##replace EAX R 0
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBX R 3
##replace EAX R 4
##replace EBP R 5
##replace EBP D 0
##shl-imm EDX EDX 7
##replace EDX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBP R -1
##peek EBX R -3
##peek EAX R -2
##peek EDX R -4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm ECX EBX 4
##compare-integer-branch EDX ECX cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 16 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -3
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 734 ]
[ { bignum } declare \ longlong-2-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##peek EBP D 3
##load-tagged EBX 32
##load-integer EDX 0
##replace EAX R 0
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBX R 3
##replace EAX R 4
##replace EBP R 5
##replace EBP D 0
##shl-imm EDX EDX 7
##replace EDX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBP R -1
##peek EBX R -3
##peek EAX R -2
##peek EDX R -4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm ECX EBX 4
##compare-integer-branch EDX ECX cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 16 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -3
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 530 ]
[ { bignum } declare \ ulonglong-2-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##call bignum>float
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##replace EBP D 0
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##store-memory-imm XMM0 EBX 7 float-4-rep f
##set-slot-imm EBX EBP 2 7
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 889 ]
[ { bignum } declare \ float-4-with execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##call bignum>float
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##store-memory-imm XMM0 EBX 7 double-2-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 235 ]
[ { bignum } declare \ double-2-with execute ]
Unit Test: { [ 4294967295 ] [ 4294967295 uint-4-with first ] }
Unit Test: {
[ 4294967295 ]
[ 4294967295 [ uint-4-with ] compile-call first ]
}
Unit Test: {
[ 4294967295 ]
[ [ 4294967295 uint-4-with ] compile-call first ]
}
== Checking -boa constructors
Unit Test: {
[ { } ]
[
boa-ctors [
[
stack-effect in>> length
[ 1000 random ] [ ] replicate-as
] keep [ execute ] curry
] [ = ] check-optimizer
]
}
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 15
##inc-d -14
##peek EBP D 0
##peek EAX D -10
##replace EAX R 10
##peek EAX D -3
##replace EAX R 3
##peek EAX D -4
##replace EAX R 4
##peek EAX D 1
##replace EAX D 0
##peek EAX D -5
##replace EAX R 5
##peek EAX D -6
##replace EAX R 6
##replace EBP R 0
##peek EBP D -1
##replace EBP R 1
##peek EBP D -2
##replace EBP R 2
##peek EBP D -11
##replace EBP R 11
##peek EBP D -12
##replace EBP R 12
##peek EBP D -13
##replace EBP R 13
##peek EBP D -14
##replace EBP R 14
##peek EBP D -7
##replace EBP R 7
##peek EBP D -8
##replace EBP R 8
##peek EBP D -9
##replace EBP R 9
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 162
=== Basic block #8
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 9
=== Basic block #9
##call bignum>fixnum
##branch
Successors: 10
=== Basic block #10
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##call fixnum>bignum
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call bignum=
##branch
Successors: 14
=== Basic block #14
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 15, 159
=== Basic block #15
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 16
=== Basic block #16
##call bignum>fixnum
##branch
Successors: 17
=== Basic block #17
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call fixnum>bignum
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call bignum=
##branch
Successors: 21
=== Basic block #21
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 22, 156
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>fixnum
##branch
Successors: 24
=== Basic block #24
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum=
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 29, 153
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 30
=== Basic block #30
##call bignum>fixnum
##branch
Successors: 31
=== Basic block #31
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call fixnum>bignum
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 34
=== Basic block #34
##call bignum=
##branch
Successors: 35
=== Basic block #35
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 36, 150
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 37
=== Basic block #37
##call bignum>fixnum
##branch
Successors: 38
=== Basic block #38
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 39
=== Basic block #39
##call fixnum>bignum
##branch
Successors: 40
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call bignum=
##branch
Successors: 42
=== Basic block #42
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 43, 147
=== Basic block #43
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 44
=== Basic block #44
##call bignum>fixnum
##branch
Successors: 45
=== Basic block #45
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call fixnum>bignum
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call bignum=
##branch
Successors: 49
=== Basic block #49
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 50, 144
=== Basic block #50
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 51
=== Basic block #51
##call bignum>fixnum
##branch
Successors: 52
=== Basic block #52
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum=
##branch
Successors: 56
=== Basic block #56
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 57, 141
=== Basic block #57
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 1
##replace EBP D 0
##branch
Successors: 58
=== Basic block #58
##call bignum>fixnum
##branch
Successors: 59
=== Basic block #59
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call fixnum>bignum
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call bignum=
##branch
Successors: 63
=== Basic block #63
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 64, 138
=== Basic block #64
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 65
=== Basic block #65
##call bignum>fixnum
##branch
Successors: 66
=== Basic block #66
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 67
=== Basic block #67
##call fixnum>bignum
##branch
Successors: 68
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum=
##branch
Successors: 70
=== Basic block #70
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 71, 135
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 72
=== Basic block #72
##call bignum>fixnum
##branch
Successors: 73
=== Basic block #73
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 74
=== Basic block #74
##call fixnum>bignum
##branch
Successors: 75
=== Basic block #75
##branch
Successors: 76
=== Basic block #76
##call bignum=
##branch
Successors: 77
=== Basic block #77
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 78, 132
=== Basic block #78
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 79
=== Basic block #79
##call bignum>fixnum
##branch
Successors: 80
=== Basic block #80
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum>bignum
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum=
##branch
Successors: 84
=== Basic block #84
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 85, 129
=== Basic block #85
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 86
=== Basic block #86
##call bignum>fixnum
##branch
Successors: 87
=== Basic block #87
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 88
=== Basic block #88
##call fixnum>bignum
##branch
Successors: 89
=== Basic block #89
##branch
Successors: 90
=== Basic block #90
##call bignum=
##branch
Successors: 91
=== Basic block #91
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 92, 126
=== Basic block #92
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 93
=== Basic block #93
##call bignum>fixnum
##branch
Successors: 94
=== Basic block #94
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 95
=== Basic block #95
##call fixnum>bignum
##branch
Successors: 96
=== Basic block #96
##branch
Successors: 97
=== Basic block #97
##call bignum=
##branch
Successors: 98
=== Basic block #98
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 99, 123
=== Basic block #99
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 100
=== Basic block #100
##call bignum>fixnum
##branch
Successors: 101
=== Basic block #101
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 102
=== Basic block #102
##call fixnum>bignum
##branch
Successors: 103
=== Basic block #103
##branch
Successors: 104
=== Basic block #104
##call bignum=
##branch
Successors: 105
=== Basic block #105
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 106, 120
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 107
=== Basic block #107
##call bignum>fixnum
##branch
Successors: 108
=== Basic block #108
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 109
=== Basic block #109
##call fixnum>bignum
##branch
Successors: 110
=== Basic block #110
##branch
Successors: 111
=== Basic block #111
##call bignum=
##branch
Successors: 112
=== Basic block #112
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 113, 117
=== Basic block #113
##check-nursery-branch 48 cc<= EAX EBP
Successors: 115, 114
=== Basic block #114
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 115
=== Basic block #115
##inc-d -16
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##allot EBP 12 tuple EBX
##load-reference EBX {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EBX EBP 1 7
##set-slot-imm EAX EBP 2 7
##peek EBX D -16
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 22 int-rep char
##peek EBX D -14
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 21 int-rep char
##peek EBX D -13
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 20 int-rep char
##peek EBX D 0
##peek EDX D -12
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 19 int-rep char
##peek EDX D -11
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 18 int-rep char
##peek EDX D -10
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 17 int-rep char
##peek EDX D -9
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 16 int-rep char
##peek EDX D -8
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 15 int-rep char
##peek EDX D -7
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 14 int-rep char
##peek EDX D -6
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 13 int-rep char
##peek EDX D -5
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 12 int-rep char
##peek EDX D -4
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 11 int-rep char
##peek EDX D -3
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 10 int-rep char
##peek EDX D -2
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 9 int-rep char
##peek EDX D -1
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 8 int-rep char
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 7 int-rep char
##replace EBP D 0
##branch
Successors: 116
=== Basic block #116
##safepoint
##epilogue
##return
=== Basic block #117
##inc-d -1
##branch
Successors: 118
=== Basic block #118
##call out-of-fixnum-range
##branch
Successors: 119
=== Basic block #119
##no-tco
=== Basic block #120
##inc-d -1
##branch
Successors: 121
=== Basic block #121
##call out-of-fixnum-range
##branch
Successors: 122
=== Basic block #122
##no-tco
=== Basic block #123
##inc-d -1
##branch
Successors: 124
=== Basic block #124
##call out-of-fixnum-range
##branch
Successors: 125
=== Basic block #125
##no-tco
=== Basic block #126
##inc-d -1
##branch
Successors: 127
=== Basic block #127
##call out-of-fixnum-range
##branch
Successors: 128
=== Basic block #128
##no-tco
=== Basic block #129
##inc-d -1
##branch
Successors: 130
=== Basic block #130
##call out-of-fixnum-range
##branch
Successors: 131
=== Basic block #131
##no-tco
=== Basic block #132
##inc-d -1
##branch
Successors: 133
=== Basic block #133
##call out-of-fixnum-range
##branch
Successors: 134
=== Basic block #134
##no-tco
=== Basic block #135
##inc-d -1
##branch
Successors: 136
=== Basic block #136
##call out-of-fixnum-range
##branch
Successors: 137
=== Basic block #137
##no-tco
=== Basic block #138
##inc-d -1
##branch
Successors: 139
=== Basic block #139
##call out-of-fixnum-range
##branch
Successors: 140
=== Basic block #140
##no-tco
=== Basic block #141
##inc-d -1
##branch
Successors: 142
=== Basic block #142
##call out-of-fixnum-range
##branch
Successors: 143
=== Basic block #143
##no-tco
=== Basic block #144
##inc-d -1
##branch
Successors: 145
=== Basic block #145
##call out-of-fixnum-range
##branch
Successors: 146
=== Basic block #146
##no-tco
=== Basic block #147
##inc-d -1
##branch
Successors: 148
=== Basic block #148
##call out-of-fixnum-range
##branch
Successors: 149
=== Basic block #149
##no-tco
=== Basic block #150
##inc-d -1
##branch
Successors: 151
=== Basic block #151
##call out-of-fixnum-range
##branch
Successors: 152
=== Basic block #152
##no-tco
=== Basic block #153
##inc-d -1
##branch
Successors: 154
=== Basic block #154
##call out-of-fixnum-range
##branch
Successors: 155
=== Basic block #155
##no-tco
=== Basic block #156
##inc-d -1
##branch
Successors: 157
=== Basic block #157
##call out-of-fixnum-range
##branch
Successors: 158
=== Basic block #158
##no-tco
=== Basic block #159
##inc-d -1
##branch
Successors: 160
=== Basic block #160
##call out-of-fixnum-range
##branch
Successors: 161
=== Basic block #161
##no-tco
=== Basic block #162
##inc-d -1
##branch
Successors: 163
=== Basic block #163
##call out-of-fixnum-range
##branch
Successors: 164
=== Basic block #164
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
244 788 966 550 768 134 317 416 240 957 764 595 178 405 867
290
]
[
{
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
}
declare
\ char-16-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 15
##inc-d -14
##peek EBP D 0
##peek EAX D -10
##replace EAX R 10
##peek EAX D -3
##replace EAX R 3
##peek EAX D -4
##replace EAX R 4
##peek EAX D 1
##replace EAX D 0
##peek EAX D -5
##replace EAX R 5
##peek EAX D -6
##replace EAX R 6
##replace EBP R 0
##peek EBP D -1
##replace EBP R 1
##peek EBP D -2
##replace EBP R 2
##peek EBP D -11
##replace EBP R 11
##peek EBP D -12
##replace EBP R 12
##peek EBP D -13
##replace EBP R 13
##peek EBP D -14
##replace EBP R 14
##peek EBP D -7
##replace EBP R 7
##peek EBP D -8
##replace EBP R 8
##peek EBP D -9
##replace EBP R 9
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 162
=== Basic block #8
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 9
=== Basic block #9
##call bignum>fixnum
##branch
Successors: 10
=== Basic block #10
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##call fixnum>bignum
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call bignum=
##branch
Successors: 14
=== Basic block #14
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 15, 159
=== Basic block #15
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 16
=== Basic block #16
##call bignum>fixnum
##branch
Successors: 17
=== Basic block #17
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call fixnum>bignum
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call bignum=
##branch
Successors: 21
=== Basic block #21
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 22, 156
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>fixnum
##branch
Successors: 24
=== Basic block #24
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum=
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 29, 153
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 30
=== Basic block #30
##call bignum>fixnum
##branch
Successors: 31
=== Basic block #31
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call fixnum>bignum
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 34
=== Basic block #34
##call bignum=
##branch
Successors: 35
=== Basic block #35
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 36, 150
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 37
=== Basic block #37
##call bignum>fixnum
##branch
Successors: 38
=== Basic block #38
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 39
=== Basic block #39
##call fixnum>bignum
##branch
Successors: 40
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call bignum=
##branch
Successors: 42
=== Basic block #42
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 43, 147
=== Basic block #43
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 44
=== Basic block #44
##call bignum>fixnum
##branch
Successors: 45
=== Basic block #45
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call fixnum>bignum
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call bignum=
##branch
Successors: 49
=== Basic block #49
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 50, 144
=== Basic block #50
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 51
=== Basic block #51
##call bignum>fixnum
##branch
Successors: 52
=== Basic block #52
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum=
##branch
Successors: 56
=== Basic block #56
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 57, 141
=== Basic block #57
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 1
##replace EBP D 0
##branch
Successors: 58
=== Basic block #58
##call bignum>fixnum
##branch
Successors: 59
=== Basic block #59
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call fixnum>bignum
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call bignum=
##branch
Successors: 63
=== Basic block #63
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 64, 138
=== Basic block #64
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 65
=== Basic block #65
##call bignum>fixnum
##branch
Successors: 66
=== Basic block #66
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 67
=== Basic block #67
##call fixnum>bignum
##branch
Successors: 68
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum=
##branch
Successors: 70
=== Basic block #70
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 71, 135
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 72
=== Basic block #72
##call bignum>fixnum
##branch
Successors: 73
=== Basic block #73
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 74
=== Basic block #74
##call fixnum>bignum
##branch
Successors: 75
=== Basic block #75
##branch
Successors: 76
=== Basic block #76
##call bignum=
##branch
Successors: 77
=== Basic block #77
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 78, 132
=== Basic block #78
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 79
=== Basic block #79
##call bignum>fixnum
##branch
Successors: 80
=== Basic block #80
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum>bignum
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum=
##branch
Successors: 84
=== Basic block #84
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 85, 129
=== Basic block #85
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 86
=== Basic block #86
##call bignum>fixnum
##branch
Successors: 87
=== Basic block #87
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 88
=== Basic block #88
##call fixnum>bignum
##branch
Successors: 89
=== Basic block #89
##branch
Successors: 90
=== Basic block #90
##call bignum=
##branch
Successors: 91
=== Basic block #91
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 92, 126
=== Basic block #92
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 93
=== Basic block #93
##call bignum>fixnum
##branch
Successors: 94
=== Basic block #94
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 95
=== Basic block #95
##call fixnum>bignum
##branch
Successors: 96
=== Basic block #96
##branch
Successors: 97
=== Basic block #97
##call bignum=
##branch
Successors: 98
=== Basic block #98
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 99, 123
=== Basic block #99
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 100
=== Basic block #100
##call bignum>fixnum
##branch
Successors: 101
=== Basic block #101
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 102
=== Basic block #102
##call fixnum>bignum
##branch
Successors: 103
=== Basic block #103
##branch
Successors: 104
=== Basic block #104
##call bignum=
##branch
Successors: 105
=== Basic block #105
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 106, 120
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 107
=== Basic block #107
##call bignum>fixnum
##branch
Successors: 108
=== Basic block #108
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 109
=== Basic block #109
##call fixnum>bignum
##branch
Successors: 110
=== Basic block #110
##branch
Successors: 111
=== Basic block #111
##call bignum=
##branch
Successors: 112
=== Basic block #112
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 113, 117
=== Basic block #113
##check-nursery-branch 48 cc<= EAX EBP
Successors: 115, 114
=== Basic block #114
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 115
=== Basic block #115
##inc-d -16
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##allot EBP 12 tuple EBX
##load-reference EBX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EBX EBP 1 7
##set-slot-imm EAX EBP 2 7
##peek EBX D -16
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 22 int-rep uchar
##peek EBX D 0
##replace EBP D 0
##peek EBP D -14
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 21 int-rep uchar
##peek EBP D -13
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 20 int-rep uchar
##peek EBP D -12
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 19 int-rep uchar
##peek EBP D -11
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 18 int-rep uchar
##peek EBP D -10
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 17 int-rep uchar
##peek EBP D -9
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 16 int-rep uchar
##peek EBP D -8
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 15 int-rep uchar
##peek EBP D -7
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 14 int-rep uchar
##peek EBP D -6
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 13 int-rep uchar
##peek EBP D -5
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 12 int-rep uchar
##peek EBP D -4
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 11 int-rep uchar
##peek EBP D -3
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 10 int-rep uchar
##peek EBP D -2
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 9 int-rep uchar
##peek EBP D -1
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 8 int-rep uchar
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 7 int-rep uchar
##branch
Successors: 116
=== Basic block #116
##safepoint
##epilogue
##return
=== Basic block #117
##inc-d -1
##branch
Successors: 118
=== Basic block #118
##call out-of-fixnum-range
##branch
Successors: 119
=== Basic block #119
##no-tco
=== Basic block #120
##inc-d -1
##branch
Successors: 121
=== Basic block #121
##call out-of-fixnum-range
##branch
Successors: 122
=== Basic block #122
##no-tco
=== Basic block #123
##inc-d -1
##branch
Successors: 124
=== Basic block #124
##call out-of-fixnum-range
##branch
Successors: 125
=== Basic block #125
##no-tco
=== Basic block #126
##inc-d -1
##branch
Successors: 127
=== Basic block #127
##call out-of-fixnum-range
##branch
Successors: 128
=== Basic block #128
##no-tco
=== Basic block #129
##inc-d -1
##branch
Successors: 130
=== Basic block #130
##call out-of-fixnum-range
##branch
Successors: 131
=== Basic block #131
##no-tco
=== Basic block #132
##inc-d -1
##branch
Successors: 133
=== Basic block #133
##call out-of-fixnum-range
##branch
Successors: 134
=== Basic block #134
##no-tco
=== Basic block #135
##inc-d -1
##branch
Successors: 136
=== Basic block #136
##call out-of-fixnum-range
##branch
Successors: 137
=== Basic block #137
##no-tco
=== Basic block #138
##inc-d -1
##branch
Successors: 139
=== Basic block #139
##call out-of-fixnum-range
##branch
Successors: 140
=== Basic block #140
##no-tco
=== Basic block #141
##inc-d -1
##branch
Successors: 142
=== Basic block #142
##call out-of-fixnum-range
##branch
Successors: 143
=== Basic block #143
##no-tco
=== Basic block #144
##inc-d -1
##branch
Successors: 145
=== Basic block #145
##call out-of-fixnum-range
##branch
Successors: 146
=== Basic block #146
##no-tco
=== Basic block #147
##inc-d -1
##branch
Successors: 148
=== Basic block #148
##call out-of-fixnum-range
##branch
Successors: 149
=== Basic block #149
##no-tco
=== Basic block #150
##inc-d -1
##branch
Successors: 151
=== Basic block #151
##call out-of-fixnum-range
##branch
Successors: 152
=== Basic block #152
##no-tco
=== Basic block #153
##inc-d -1
##branch
Successors: 154
=== Basic block #154
##call out-of-fixnum-range
##branch
Successors: 155
=== Basic block #155
##no-tco
=== Basic block #156
##inc-d -1
##branch
Successors: 157
=== Basic block #157
##call out-of-fixnum-range
##branch
Successors: 158
=== Basic block #158
##no-tco
=== Basic block #159
##inc-d -1
##branch
Successors: 160
=== Basic block #160
##call out-of-fixnum-range
##branch
Successors: 161
=== Basic block #161
##no-tco
=== Basic block #162
##inc-d -1
##branch
Successors: 163
=== Basic block #163
##call out-of-fixnum-range
##branch
Successors: 164
=== Basic block #164
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
627 201 836 308 960 565 530 909 683 948 15 218 377 767 123
513
]
[
{
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
bignum
}
declare
\ uchar-16-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 7
##inc-d -6
##peek EBP D 0
##peek EAX D -2
##replace EAX R 2
##peek EAX D -3
##replace EAX R 3
##peek EAX D -4
##replace EAX R 4
##peek EAX D -5
##replace EAX R 5
##peek EAX D -6
##replace EAX R 6
##replace EBP R 0
##peek EBP D -1
##replace EBP R 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 82
=== Basic block #8
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 9
=== Basic block #9
##call bignum>fixnum
##branch
Successors: 10
=== Basic block #10
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##call fixnum>bignum
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call bignum=
##branch
Successors: 14
=== Basic block #14
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 15, 79
=== Basic block #15
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 16
=== Basic block #16
##call bignum>fixnum
##branch
Successors: 17
=== Basic block #17
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call fixnum>bignum
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call bignum=
##branch
Successors: 21
=== Basic block #21
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 22, 76
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 23
=== Basic block #23
##call bignum>fixnum
##branch
Successors: 24
=== Basic block #24
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum=
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 29, 73
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call bignum>fixnum
##branch
Successors: 31
=== Basic block #31
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call fixnum>bignum
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 34
=== Basic block #34
##call bignum=
##branch
Successors: 35
=== Basic block #35
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 36, 70
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 37
=== Basic block #37
##call bignum>fixnum
##branch
Successors: 38
=== Basic block #38
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 39
=== Basic block #39
##call fixnum>bignum
##branch
Successors: 40
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call bignum=
##branch
Successors: 42
=== Basic block #42
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 43, 67
=== Basic block #43
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 44
=== Basic block #44
##call bignum>fixnum
##branch
Successors: 45
=== Basic block #45
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call fixnum>bignum
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call bignum=
##branch
Successors: 49
=== Basic block #49
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 50, 64
=== Basic block #50
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 51
=== Basic block #51
##call bignum>fixnum
##branch
Successors: 52
=== Basic block #52
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum=
##branch
Successors: 56
=== Basic block #56
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 57, 61
=== Basic block #57
##check-nursery-branch 48 cc<= EBP EAX
Successors: 59, 58
=== Basic block #58
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 59
=== Basic block #59
##inc-d -8
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##allot EBP 12 tuple EBX
##load-reference EBX {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EBX EBP 1 7
##set-slot-imm EAX EBP 2 7
##peek EBX D -8
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 21 int-rep short
##peek EBX D 0
##peek EDX D -6
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 19 int-rep short
##peek EDX D -5
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 17 int-rep short
##peek EDX D -4
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 15 int-rep short
##peek EDX D -3
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 13 int-rep short
##peek EDX D -2
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 11 int-rep short
##peek EDX D -1
##sar-imm EDX EDX 4
##store-memory-imm EDX EAX 9 int-rep short
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 7 int-rep short
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##safepoint
##epilogue
##return
=== Basic block #61
##inc-d -1
##branch
Successors: 62
=== Basic block #62
##call out-of-fixnum-range
##branch
Successors: 63
=== Basic block #63
##no-tco
=== Basic block #64
##inc-d -1
##branch
Successors: 65
=== Basic block #65
##call out-of-fixnum-range
##branch
Successors: 66
=== Basic block #66
##no-tco
=== Basic block #67
##inc-d -1
##branch
Successors: 68
=== Basic block #68
##call out-of-fixnum-range
##branch
Successors: 69
=== Basic block #69
##no-tco
=== Basic block #70
##inc-d -1
##branch
Successors: 71
=== Basic block #71
##call out-of-fixnum-range
##branch
Successors: 72
=== Basic block #72
##no-tco
=== Basic block #73
##inc-d -1
##branch
Successors: 74
=== Basic block #74
##call out-of-fixnum-range
##branch
Successors: 75
=== Basic block #75
##no-tco
=== Basic block #76
##inc-d -1
##branch
Successors: 77
=== Basic block #77
##call out-of-fixnum-range
##branch
Successors: 78
=== Basic block #78
##no-tco
=== Basic block #79
##inc-d -1
##branch
Successors: 80
=== Basic block #80
##call out-of-fixnum-range
##branch
Successors: 81
=== Basic block #81
##no-tco
=== Basic block #82
##inc-d -1
##branch
Successors: 83
=== Basic block #83
##call out-of-fixnum-range
##branch
Successors: 84
=== Basic block #84
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 582 169 33 290 666 105 192 499 ]
[
{ bignum bignum bignum bignum bignum bignum bignum bignum }
declare
\ short-8-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 7
##inc-d -6
##peek EBP D 0
##peek EAX D -2
##replace EAX R 2
##peek EAX D -3
##replace EAX R 3
##peek EAX D -4
##replace EAX R 4
##peek EAX D -5
##replace EAX R 5
##peek EAX D -6
##replace EAX R 6
##replace EBP R 0
##peek EBP D -1
##replace EBP R 1
##peek EBP D 1
##replace EBP D 0
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 82
=== Basic block #8
##inc-r -1
##inc-d 1
##peek EBP D 1
##replace EBP D 2
##peek EBP R -1
##replace EBP D 0
##replace EBP D 1
##branch
Successors: 9
=== Basic block #9
##call bignum>fixnum
##branch
Successors: 10
=== Basic block #10
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##call fixnum>bignum
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call bignum=
##branch
Successors: 14
=== Basic block #14
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 15, 79
=== Basic block #15
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EAX D 1
##replace EBP D 2
##branch
Successors: 16
=== Basic block #16
##call bignum>fixnum
##branch
Successors: 17
=== Basic block #17
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call fixnum>bignum
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call bignum=
##branch
Successors: 21
=== Basic block #21
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 22, 76
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 23
=== Basic block #23
##call bignum>fixnum
##branch
Successors: 24
=== Basic block #24
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum=
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 29, 73
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call bignum>fixnum
##branch
Successors: 31
=== Basic block #31
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call fixnum>bignum
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 34
=== Basic block #34
##call bignum=
##branch
Successors: 35
=== Basic block #35
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 36, 70
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EBP D 2
##replace EAX D 0
##branch
Successors: 37
=== Basic block #37
##call bignum>fixnum
##branch
Successors: 38
=== Basic block #38
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 39
=== Basic block #39
##call fixnum>bignum
##branch
Successors: 40
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call bignum=
##branch
Successors: 42
=== Basic block #42
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 43, 67
=== Basic block #43
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 0
##replace EBP D 2
##replace EAX D 1
##branch
Successors: 44
=== Basic block #44
##call bignum>fixnum
##branch
Successors: 45
=== Basic block #45
##inc-d 2
##peek EBP D 3
##replace EBP D 1
##peek EBP D 2
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call fixnum>bignum
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call bignum=
##branch
Successors: 49
=== Basic block #49
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 50, 64
=== Basic block #50
##inc-r -1
##inc-d 1
##peek EBP D 1
##peek EAX R -1
##replace EAX D 1
##replace EAX D 0
##replace EBP D 2
##branch
Successors: 51
=== Basic block #51
##call bignum>fixnum
##branch
Successors: 52
=== Basic block #52
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum=
##branch
Successors: 56
=== Basic block #56
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 57, 61
=== Basic block #57
##check-nursery-branch 48 cc<= EBP EAX
Successors: 59, 58
=== Basic block #58
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 59
=== Basic block #59
##inc-d -8
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##allot EBP 12 tuple EBX
##load-reference EBX {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EBX EBP 1 7
##set-slot-imm EAX EBP 2 7
##peek EBX D -8
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 21 int-rep ushort
##peek EBX D -6
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 19 int-rep ushort
##peek EBX D -5
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 17 int-rep ushort
##peek EBX D -4
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 15 int-rep ushort
##peek EBX D -3
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 13 int-rep ushort
##peek EBX D 0
##replace EBP D 0
##peek EBP D -2
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 11 int-rep ushort
##peek EBP D -1
##sar-imm EBP EBP 4
##store-memory-imm EBP EAX 9 int-rep ushort
##sar-imm EBX EBX 4
##store-memory-imm EBX EAX 7 int-rep ushort
##branch
Successors: 60
=== Basic block #60
##safepoint
##epilogue
##return
=== Basic block #61
##inc-d -1
##branch
Successors: 62
=== Basic block #62
##call out-of-fixnum-range
##branch
Successors: 63
=== Basic block #63
##no-tco
=== Basic block #64
##inc-d -1
##branch
Successors: 65
=== Basic block #65
##call out-of-fixnum-range
##branch
Successors: 66
=== Basic block #66
##no-tco
=== Basic block #67
##inc-d -1
##branch
Successors: 68
=== Basic block #68
##call out-of-fixnum-range
##branch
Successors: 69
=== Basic block #69
##no-tco
=== Basic block #70
##inc-d -1
##branch
Successors: 71
=== Basic block #71
##call out-of-fixnum-range
##branch
Successors: 72
=== Basic block #72
##no-tco
=== Basic block #73
##inc-d -1
##branch
Successors: 74
=== Basic block #74
##call out-of-fixnum-range
##branch
Successors: 75
=== Basic block #75
##no-tco
=== Basic block #76
##inc-d -1
##branch
Successors: 77
=== Basic block #77
##call out-of-fixnum-range
##branch
Successors: 78
=== Basic block #78
##no-tco
=== Basic block #79
##inc-d -1
##branch
Successors: 80
=== Basic block #80
##call out-of-fixnum-range
##branch
Successors: 81
=== Basic block #81
##no-tco
=== Basic block #82
##inc-d -1
##branch
Successors: 83
=== Basic block #83
##call out-of-fixnum-range
##branch
Successors: 84
=== Basic block #84
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 881 154 739 323 522 881 547 192 ]
[
{ bignum bignum bignum bignum bignum bignum bignum bignum }
declare
\ ushort-8-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 7
##inc-d -3
##allot EAX 32 byte-array EBP
##replace EAX R 6
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##replace EAX R 2
##peek EBP D -1
##replace EBP R 3
##peek EBP D -2
##replace EBP R 4
##peek EBP D -3
##replace EBP R 5
##replace-imm 0 R 0
##replace EAX R 1
##branch
Successors: 4
=== Basic block #4
##call M\ bignum >integer
##branch
Successors: 5
=== Basic block #5
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##call set-alien-signed-cell
##branch
Successors: 7
=== Basic block #7
##inc-r 1
##inc-d 1
##peek EBP R 2
##replace EBP D 0
##peek EBP R 1
##replace EBP R 2
##replace-imm 4 R 0
##branch
Successors: 8
=== Basic block #8
##call M\ bignum >integer
##branch
Successors: 9
=== Basic block #9
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 10
=== Basic block #10
##call set-alien-signed-cell
##branch
Successors: 11
=== Basic block #11
##inc-r 1
##inc-d 1
##peek EBP R 2
##replace-imm 8 R 0
##replace EBP D 0
##peek EBP R 1
##replace EBP R 2
##branch
Successors: 12
=== Basic block #12
##call M\ bignum >integer
##branch
Successors: 13
=== Basic block #13
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 14
=== Basic block #14
##call set-alien-signed-cell
##branch
Successors: 15
=== Basic block #15
##inc-d 1
##peek EBP R 1
##peek EAX R 0
##replace EAX R 1
##replace EBP D 0
##replace-imm 12 R 0
##branch
Successors: 16
=== Basic block #16
##call M\ bignum >integer
##branch
Successors: 17
=== Basic block #17
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 18
=== Basic block #18
##call set-alien-signed-cell
##branch
Successors: 19
=== Basic block #19
##check-nursery-branch 16 cc<= EAX EBP
Successors: 21, 20
=== Basic block #20
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 21
=== Basic block #21
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 22
=== Basic block #22
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 548 948 935 35 ]
[ { bignum bignum bignum bignum } declare \ int-4-boa execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 7
##inc-d -3
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##replace EAX R 2
##peek EBP D -1
##replace EBP R 3
##peek EBP D -2
##replace EBP R 4
##peek EBP D -3
##replace EBP R 5
##replace EAX R 6
##replace-imm 0 R 0
##replace EAX R 1
##branch
Successors: 4
=== Basic block #4
##call M\ bignum >integer
##branch
Successors: 5
=== Basic block #5
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##call set-alien-unsigned-cell
##branch
Successors: 7
=== Basic block #7
##inc-r 1
##inc-d 1
##peek EBP R 2
##replace EBP D 0
##peek EBP R 1
##replace EBP R 2
##replace-imm 4 R 0
##branch
Successors: 8
=== Basic block #8
##call M\ bignum >integer
##branch
Successors: 9
=== Basic block #9
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 10
=== Basic block #10
##call set-alien-unsigned-cell
##branch
Successors: 11
=== Basic block #11
##inc-r 1
##inc-d 1
##peek EBP R 2
##replace-imm 8 R 0
##replace EBP D 0
##peek EBP R 1
##replace EBP R 2
##branch
Successors: 12
=== Basic block #12
##call M\ bignum >integer
##branch
Successors: 13
=== Basic block #13
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 14
=== Basic block #14
##call set-alien-unsigned-cell
##branch
Successors: 15
=== Basic block #15
##inc-d 1
##peek EBP R 1
##peek EAX R 0
##replace EAX R 1
##replace EBP D 0
##replace-imm 12 R 0
##branch
Successors: 16
=== Basic block #16
##call M\ bignum >integer
##branch
Successors: 17
=== Basic block #17
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 18
=== Basic block #18
##call set-alien-unsigned-cell
##branch
Successors: 19
=== Basic block #19
##check-nursery-branch 16 cc<= EAX EBP
Successors: 21, 20
=== Basic block #20
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 21
=== Basic block #21
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 22
=== Basic block #22
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 460 10 297 262 ]
[
{ bignum bignum bignum bignum }
declare
\ uint-4-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 5
##inc-d -1
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##replace-imm 0 R 0
##replace EAX R 1
##replace EAX R 2
##peek EBP D -1
##replace EBP R 3
##replace EAX R 4
##branch
Successors: 4
=== Basic block #4
##call M\ bignum >integer
##branch
Successors: 5
=== Basic block #5
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##call set-alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-d 1
##peek EBP R 1
##peek EAX R 0
##replace EAX R 1
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 8
=== Basic block #8
##call M\ bignum >integer
##branch
Successors: 9
=== Basic block #9
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 10
=== Basic block #10
##call set-alien-signed-8
##branch
Successors: 11
=== Basic block #11
##check-nursery-branch 16 cc<= EAX EBP
Successors: 13, 12
=== Basic block #12
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 14
=== Basic block #14
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 827 38 ]
[ { bignum bignum } declare \ longlong-2-boa execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 5
##inc-d -1
##allot EAX 32 byte-array EBP
##replace EAX R 4
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##replace-imm 0 R 0
##replace EAX R 1
##replace EAX R 2
##peek EBP D -1
##replace EBP R 3
##branch
Successors: 4
=== Basic block #4
##call M\ bignum >integer
##branch
Successors: 5
=== Basic block #5
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##call set-alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-d 1
##peek EBP R 1
##peek EAX R 0
##replace EAX R 1
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 8
=== Basic block #8
##call M\ bignum >integer
##branch
Successors: 9
=== Basic block #9
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 10
=== Basic block #10
##call set-alien-unsigned-8
##branch
Successors: 11
=== Basic block #11
##check-nursery-branch 16 cc<= EAX EBP
Successors: 13, 12
=== Basic block #12
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 14
=== Basic block #14
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 24 482 ]
[ { bignum bignum } declare \ ulonglong-2-boa execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d -3
##peek EBP D -2
##replace EBP R 1
##peek EBP D -3
##replace EBP R 2
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call bignum>float
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call bignum>float
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##call bignum>float
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##call bignum>float
##branch
Successors: 9
=== Basic block #9
##check-nursery-branch 48 cc<= EAX EBP
Successors: 11, 10
=== Basic block #10
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 11
=== Basic block #11
##inc-d -3
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##peek EBP D -1
##load-memory-imm XMM1 EBP 5 double-rep f
##peek EBP D -2
##load-memory-imm XMM2 EBP 5 double-rep f
##peek EBP D -3
##load-memory-imm XMM3 EBP 5 double-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##double>single-float XMM0 XMM0
##double>single-float XMM1 XMM1
##double>single-float XMM2 XMM2
##double>single-float XMM3 XMM3
##gather-vector-4 XMM0 XMM0 XMM1 XMM2 XMM3 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 12
=== Basic block #12
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 839 152 778 402 ]
[
{ bignum bignum bignum bignum }
declare
\ float-4-boa
execute
]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call bignum>float
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##call bignum>float
##branch
Successors: 5
=== Basic block #5
##check-nursery-branch 48 cc<= EBP EAX
Successors: 7, 6
=== Basic block #6
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##peek EBP D -1
##load-memory-imm XMM1 EBP 5 double-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##gather-vector-2 XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EAX 7 double-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 5 966 ]
[ { bignum bignum } declare \ double-2-boa execute ]
Unit Test: {
[ 4294967295 ]
[ 4294967295 2 3 4 [ uint-4-boa ] compile-call first ]
}
== Checking vector operations
Unit Test: { [ { } ] [ \ char-16 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 char-16-rep f
##load-memory-imm XMM1 EAX 7 char-16-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 char-16-rep cc=
##store-memory-imm XMM0 EBP 7 char-16-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
char-16{
29
-110
-115
-125
3
-5
8
-39
59
47
-31
92
-121
117
-91
-71
} char-16{
-89
115
119
-123
-112
107
-114
-35
-39
45
53
111
-20
13
-88
-105
}
]
[ { char-16 char-16 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 char-16-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##abs-vector XMM0 XMM0 char-16-rep
##store-memory-imm XMM0 EAX 7 char-16-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
char-16{
-115
-112
-14
113
-105
-76
-12
103
-44
-100
32
22
-5
98
-51
64
}
]
[ { char-16 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##load-memory-imm EBX EBP 7 int-rep char
##load-memory-imm ECX EAX 7 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 7 int-rep char
##load-memory-imm EBX EBP 8 int-rep char
##load-memory-imm ECX EAX 8 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 8 int-rep char
##load-memory-imm EBX EBP 9 int-rep char
##load-memory-imm ECX EAX 9 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 9 int-rep char
##load-memory-imm EBX EBP 10 int-rep char
##load-memory-imm ECX EAX 10 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 10 int-rep char
##load-memory-imm EBX EBP 11 int-rep char
##load-memory-imm ECX EAX 11 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 11 int-rep char
##load-memory-imm EBX EBP 12 int-rep char
##load-memory-imm ECX EAX 12 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 12 int-rep char
##load-memory-imm EBX EBP 13 int-rep char
##load-memory-imm ECX EAX 13 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 13 int-rep char
##load-memory-imm EBX EBP 14 int-rep char
##load-memory-imm ECX EAX 14 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 14 int-rep char
##load-memory-imm EBX EBP 15 int-rep char
##load-memory-imm ECX EAX 15 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 15 int-rep char
##load-memory-imm EBX EBP 16 int-rep char
##load-memory-imm ECX EAX 16 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 16 int-rep char
##load-memory-imm EBX EBP 17 int-rep char
##load-memory-imm ECX EAX 17 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 17 int-rep char
##load-memory-imm EBX EBP 18 int-rep char
##load-memory-imm ECX EAX 18 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 18 int-rep char
##load-memory-imm EBX EBP 19 int-rep char
##load-memory-imm ECX EAX 19 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 19 int-rep char
##load-memory-imm EBX EBP 20 int-rep char
##load-memory-imm ECX EAX 20 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 20 int-rep char
##load-memory-imm EBX EBP 21 int-rep char
##load-memory-imm ECX EAX 21 int-rep char
##mul EBX EBX ECX
##store-memory-imm EBX EDX 21 int-rep char
##load-memory-imm EBP EBP 22 int-rep char
##load-memory-imm EAX EAX 22 int-rep char
##mul EBP EBP EAX
##store-memory-imm EBP EDX 22 int-rep char
##allot EBP 12 tuple EAX
##load-reference EAX {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EAX EBP 1 7
##set-slot-imm EDX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
char-16{
-16
2
-64
-54
24
-71
2
-103
113
-120
-60
85
92
-54
-42
-32
} char-16{
59
-127
74
35
63
36
21
-91
-26
8
27
-35
-106
-73
96
-61
}
]
[ { char-16 char-16 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 char-16-rep f
##load-memory-imm XMM1 EBP 7 char-16-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 char-16-rep cc>
##store-memory-imm XMM0 EBP 7 char-16-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
char-16{
108
-3
67
-90
-32
99
-73
36
5
27
-80
-38
124
60
-45
-51
} char-16{
-78
-119
-107
-110
-58
-107
3
77
-76
16
-27
-111
-83
117
-59
41
}
]
[ { char-16 char-16 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 2
##peek EAX D 1
##replace EAX D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -2
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 char-16-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
char-16
1
2
tuple
-65101626
simd-128
8440422
char-16
115023349
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -2
##sar-imm EAX EAX 4
##integer>scalar XMM1 EAX char-scalar-rep
##scalar>vector XMM1 XMM1 char-16-rep
##zero-vector XMM2 char-16-rep
##shuffle-vector XMM1 XMM1 XMM2 char-16-rep
##add-vector XMM0 XMM0 XMM1 char-16-rep
##store-memory-imm XMM0 EBX 7 char-16-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
char-16{
-13
-111
32
118
99
-55
-68
-98
-46
-31
62
105
64
-65
-116
0
} 251
]
[ { char-16 bignum } declare \ v+n execute ]
--> test failed!
Unit Test: { [ { } ] [ \ uchar-16 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uchar-16-rep f
##load-memory-imm XMM1 EAX 7 uchar-16-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 uchar-16-rep cc=
##store-memory-imm XMM0 EBP 7 uchar-16-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
uchar-16{
107
138
20
105
41
123
239
58
219
52
224
38
92
142
128
116
} uchar-16{
44
162
57
75
182
205
8
254
69
60
127
191
185
113
92
191
}
]
[ { uchar-16 uchar-16 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##allot EBX 12 tuple EAX
##load-reference EAX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EAX EBX 1 7
##set-slot-imm EBP EBX 2 7
##replace EBX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
uchar-16{
237
246
97
26
132
84
0
33
239
185
238
138
101
88
50
109
}
]
[ { uchar-16 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##load-memory-imm EBX EBP 7 int-rep uchar
##load-memory-imm ECX EAX 7 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 7 int-rep uchar
##load-memory-imm EBX EBP 8 int-rep uchar
##load-memory-imm ECX EAX 8 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 8 int-rep uchar
##load-memory-imm EBX EBP 9 int-rep uchar
##load-memory-imm ECX EAX 9 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 9 int-rep uchar
##load-memory-imm EBX EBP 10 int-rep uchar
##load-memory-imm ECX EAX 10 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 10 int-rep uchar
##load-memory-imm EBX EBP 11 int-rep uchar
##load-memory-imm ECX EAX 11 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 11 int-rep uchar
##load-memory-imm EBX EBP 12 int-rep uchar
##load-memory-imm ECX EAX 12 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 12 int-rep uchar
##load-memory-imm EBX EBP 13 int-rep uchar
##load-memory-imm ECX EAX 13 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 13 int-rep uchar
##load-memory-imm EBX EBP 14 int-rep uchar
##load-memory-imm ECX EAX 14 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 14 int-rep uchar
##load-memory-imm EBX EBP 15 int-rep uchar
##load-memory-imm ECX EAX 15 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 15 int-rep uchar
##load-memory-imm EBX EBP 16 int-rep uchar
##load-memory-imm ECX EAX 16 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 16 int-rep uchar
##load-memory-imm EBX EBP 17 int-rep uchar
##load-memory-imm ECX EAX 17 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 17 int-rep uchar
##load-memory-imm EBX EBP 18 int-rep uchar
##load-memory-imm ECX EAX 18 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 18 int-rep uchar
##load-memory-imm EBX EBP 19 int-rep uchar
##load-memory-imm ECX EAX 19 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 19 int-rep uchar
##load-memory-imm EBX EBP 20 int-rep uchar
##load-memory-imm ECX EAX 20 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 20 int-rep uchar
##load-memory-imm EBX EBP 21 int-rep uchar
##load-memory-imm ECX EAX 21 int-rep uchar
##mul EBX EBX ECX
##store-memory-imm EBX EDX 21 int-rep uchar
##load-memory-imm EBP EBP 22 int-rep uchar
##load-memory-imm EAX EAX 22 int-rep uchar
##mul EBP EBP EAX
##store-memory-imm EBP EDX 22 int-rep uchar
##allot EBP 12 tuple EAX
##load-reference EAX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EAX EBP 1 7
##set-slot-imm EDX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
uchar-16{
247
185
25
92
234
137
87
163
165
25
120
196
83
23
99
171
} uchar-16{
43
216
40
128
117
24
37
179
188
88
115
226
179
171
226
82
}
]
[ { uchar-16 uchar-16 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uchar-16-rep f
##load-memory-imm XMM1 EAX 7 uchar-16-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##max-vector XMM2 XMM0 XMM1 uchar-16-rep
##compare-vector XMM2 XMM2 XMM0 uchar-16-rep cc=
##fill-vector XMM0 uchar-16-rep
##xor-vector XMM2 XMM2 XMM0 uchar-16-rep
##store-memory-imm XMM2 EBX 7 uchar-16-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
uchar-16{
110
26
26
148
190
185
221
74
142
121
1
247
169
171
186
255
} uchar-16{
73
2
115
8
19
86
99
252
93
214
131
143
213
78
39
192
}
]
[ { uchar-16 uchar-16 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 2
##peek EAX D 1
##replace EAX D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -2
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uchar-16-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
uchar-16
1
2
tuple
-65101626
simd-128
8440422
uchar-16
19641029
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -2
##sar-imm EAX EAX 4
##integer>scalar XMM1 EAX uchar-scalar-rep
##scalar>vector XMM1 XMM1 uchar-16-rep
##zero-vector XMM2 uchar-16-rep
##shuffle-vector XMM1 XMM1 XMM2 uchar-16-rep
##add-vector XMM0 XMM0 XMM1 uchar-16-rep
##store-memory-imm XMM0 EBX 7 uchar-16-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
uchar-16{
13
112
196
127
92
204
123
9
131
86
49
139
205
59
77
59
} 622
]
[ { uchar-16 bignum } declare \ v+n execute ]
--> test failed!
Unit Test: { [ { } ] [ \ short-8 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 short-8-rep f
##load-memory-imm XMM1 EAX 7 short-8-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 short-8-rep cc=
##store-memory-imm XMM0 EBP 7 short-8-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
short-8{ 933 90 294 917 287 866 201 631 }
short-8{ 587 602 942 135 981 687 482 158 }
]
[ { short-8 short-8 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 short-8-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##abs-vector XMM0 XMM0 short-8-rep
##store-memory-imm XMM0 EAX 7 short-8-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ short-8{ 816 623 929 761 443 218 531 235 } ]
[ { short-8 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 short-8-rep f
##load-memory-imm XMM1 EAX 7 short-8-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 short-8-rep
##store-memory-imm XMM0 EBP 7 short-8-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
short-8{ 859 251 782 416 335 716 69 263 }
short-8{ 387 738 960 357 869 417 867 121 }
]
[ { short-8 short-8 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 short-8-rep f
##load-memory-imm XMM1 EBP 7 short-8-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 short-8-rep cc>
##store-memory-imm XMM0 EBP 7 short-8-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
short-8{ 339 135 284 446 21 733 787 76 }
short-8{ 90 205 773 639 956 489 168 659 }
]
[ { short-8 short-8 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 2
##peek EAX D 1
##replace EAX D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -2
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 short-8-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
short-8
1
2
tuple
-65101626
simd-128
8440422
short-8
120381837
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -2
##sar-imm EAX EAX 4
##integer>scalar XMM1 EAX short-scalar-rep
##scalar>vector XMM1 XMM1 short-8-rep
##load-vector XMM2 B{ 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 } short-8-rep
##shuffle-vector XMM1 XMM1 XMM2 short-8-rep
##add-vector XMM0 XMM0 XMM1 short-8-rep
##store-memory-imm XMM0 EBX 7 short-8-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ short-8{ 212 447 169 131 382 937 250 728 } 855 ]
[ { short-8 bignum } declare \ v+n execute ]
--> test failed!
Unit Test: { [ { } ] [ \ ushort-8 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ushort-8-rep f
##load-memory-imm XMM1 EAX 7 ushort-8-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 ushort-8-rep cc=
##store-memory-imm XMM0 EBP 7 ushort-8-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
ushort-8{ 610 128 58 35 373 414 447 88 }
ushort-8{ 348 934 731 109 999 552 750 497 }
]
[ { ushort-8 ushort-8 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##allot EBX 12 tuple EAX
##load-reference EAX {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EAX EBX 1 7
##set-slot-imm EBP EBX 2 7
##replace EBX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ushort-8{ 441 600 756 892 466 303 567 7 } ]
[ { ushort-8 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ushort-8-rep f
##load-memory-imm XMM1 EAX 7 ushort-8-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 ushort-8-rep
##store-memory-imm XMM0 EBP 7 ushort-8-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
ushort-8{ 269 872 749 397 620 893 5 456 }
ushort-8{ 782 632 400 10 820 458 352 802 }
]
[ { ushort-8 ushort-8 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ushort-8-rep f
##load-memory-imm XMM1 EAX 7 ushort-8-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##max-vector XMM2 XMM0 XMM1 ushort-8-rep
##compare-vector XMM2 XMM2 XMM0 ushort-8-rep cc=
##fill-vector XMM0 ushort-8-rep
##xor-vector XMM2 XMM2 XMM0 ushort-8-rep
##store-memory-imm XMM2 EBX 7 ushort-8-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
ushort-8{ 882 965 770 275 193 871 82 621 }
ushort-8{ 160 577 791 40 549 451 907 175 }
]
[ { ushort-8 ushort-8 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 2
##peek EAX D 1
##replace EAX D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 2
##replace EBP D 0
##peek EBP D 3
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call fixnum>bignum
##branch
Successors: 5
=== Basic block #5
##branch
Successors: 6
=== Basic block #6
##call bignum=
##branch
Successors: 7
=== Basic block #7
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 8, 12
=== Basic block #8
##check-nursery-branch 48 cc<= EAX EBP
Successors: 10, 9
=== Basic block #9
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 10
=== Basic block #10
##inc-d -2
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 ushort-8-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ushort-8
1
2
tuple
-65101626
simd-128
8440422
ushort-8
-101426789
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D -2
##sar-imm EAX EAX 4
##integer>scalar XMM1 EAX ushort-scalar-rep
##scalar>vector XMM1 XMM1 ushort-8-rep
##load-vector XMM2 B{ 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 } ushort-8-rep
##shuffle-vector XMM1 XMM1 XMM2 ushort-8-rep
##add-vector XMM0 XMM0 XMM1 ushort-8-rep
##store-memory-imm XMM0 EBX 7 ushort-8-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 11
=== Basic block #11
##safepoint
##epilogue
##return
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##call out-of-fixnum-range
##branch
Successors: 14
=== Basic block #14
##no-tco
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ushort-8{ 17 678 577 803 774 236 262 915 } 700 ]
[ { ushort-8 bignum } declare \ v+n execute ]
--> test failed!
Unit Test: { [ { } ] [ \ int-4 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 int-4-rep cc=
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 76 615 426 894 } int-4{ 791 939 395 855 } ]
[ { int-4 int-4 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##abs-vector XMM0 XMM0 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 979 277 765 701 } ]
[ { int-4 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 909 866 540 533 } int-4{ 946 117 936 620 } ]
[ { int-4 int-4 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 int-4-rep f
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 int-4-rep cc>
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 507 343 314 598 } int-4{ 6 126 461 758 } ]
[ { int-4 int-4 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EAX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBX R -1
##peek EDX R -3
##peek EAX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##replace EBP D 0
##add-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EBP 2 7
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 945 582 395 720 } 249 ]
[ { int-4 bignum } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 int-4-rep cc>
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 167 604 241 403 } int-4{ 457 232 342 531 } ]
[ { int-4 int-4 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##add-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 503 int-4{ 389 581 116 685 } ]
[ { bignum int-4 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EAX D 1
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-signed-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##peek EBP R -2
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-signed-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ int-4{ 897 855 97 88 } ]
[ { int-4 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 734 264 143 770 } int-4{ 746 895 541 273 } ]
[ { int-4 int-4 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##replace EAX R 1
##slot-imm EBP EBP 2 7
##replace EBP R 2
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 1
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-signed-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -2
##replace EBP D 1
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call alien-signed-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ int-4{ 972 777 195 218 } int-4{ 610 761 663 600 } ]
[ { int-4 int-4 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 624 237 717 841 } int-4{ 549 264 416 547 } ]
[ { int-4 int-4 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##min-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 246 460 717 615 } int-4{ 574 597 155 846 } ]
[ { int-4 int-4 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm int-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ int-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-signed-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-sub EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum-overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum-
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum-
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum-
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-signed-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-sub EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum-overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum-
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum-
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum-
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-signed-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-signed-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##fixnum-sub EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum-overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum-
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum-
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum-
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-signed-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-signed-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-signed-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##fixnum-sub EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum-overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum-
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum-
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum-
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-signed-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EBP EAX
Successors: 171, 170
=== Basic block #170
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 820 676 420 442 } int-4{ 356 218 244 510 } ]
[ { int-4 int-4 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm int-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ int-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##replace EBP R 7
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-signed-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-add EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum+overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum+
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum+
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum+
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-signed-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-add EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum+overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum+
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum+
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-signed-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-signed-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##fixnum-add EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum+overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum+
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum+
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum+
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-signed-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-signed-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-signed-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##fixnum-add EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum+overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum+
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum+
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum+
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-signed-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EAX EBP
Successors: 171, 170
=== Basic block #170
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 726 48 394 444 } int-4{ 245 782 939 51 } ]
[ { int-4 int-4 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm int-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ int-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##replace EBP R 2
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##branch
Successors: 6
=== Basic block #6
##call alien-signed-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum*overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum*
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum*
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum*
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-signed-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum*overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum*
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum*
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-signed-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-signed-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum*overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum*
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum*
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum*
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-signed-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-signed-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-signed-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum*overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum*
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum*
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum*
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-signed-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EAX EBP
Successors: 171, 170
=== Basic block #170
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 797 601 394 141 } int-4{ 519 319 470 626 } ]
[ { int-4 int-4 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##max-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 748 421 229 683 } int-4{ 279 997 170 844 } ]
[ { int-4 int-4 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##compare-vector XMM0 XMM0 XMM1 int-4-rep cc>
##fill-vector XMM1 int-4-rep
##xor-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 798 473 971 552 } int-4{ 88 669 928 816 } ]
[ { int-4 int-4 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##mul-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 431 int-4{ 400 195 931 33 } ]
[ { bignum int-4 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 834 361 420 878 } 188 ]
[ { int-4 bignum } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shr-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 837 254 5 69 } 782 ]
[ { int-4 bignum } declare \ vrshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 1
##inc-d 2
##peek EBP D 2
##peek EAX D 3
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBP D 2
##replace EAX D 1
##replace EAX D 3
##branch
Successors: 2
=== Basic block #2
##call alien-signed-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##replace-imm 0 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call alien-signed-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##fixnum-sub EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum-overflow
##branch
Successors: 10
=== Basic block #10
##peek EBP D 0
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum-
##branch
Successors: 16
=== Basic block #16
##peek EBP D 0
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum-
##branch
Successors: 22
=== Basic block #22
##peek EBP D 0
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EBP D 0
##branch
Successors: 26
=== Basic block #26
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 27, 40
=== Basic block #27
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 28, 39
=== Basic block #28
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-mul EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #31
##replace-imm -1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum*overflow
##branch
Successors: 33
=== Basic block #33
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #34
##replace-imm -1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum*
##branch
Successors: 38
=== Basic block #38
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #39
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #40
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum<
##branch
Successors: 44
=== Basic block #44
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 45, 56
=== Basic block #45
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #48
##replace-imm -1 D 0
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #51
##replace-imm -1 D 0
##branch
Successors: 52
=== Basic block #52
##call fixnum>bignum
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call bignum*
##branch
Successors: 55
=== Basic block #55
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #56
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #57
##inc-d 2
##load-tagged EDX 16
##load-tagged ECX 64
##replace EBP D 4
##branch
Successors: 59
=== Basic block #58
##inc-r -4
##inc-d 4
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 59
=== Basic block #59
##compare-integer-branch EDX ECX cc<
Successors: 60, 138
=== Basic block #60
##inc-r 6
##inc-d -2
##replace EAX R 1
##replace EDX R 2
##replace ECX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 1
##shl-imm EBP EDX 2
##replace EBP D 0
##replace EDX R 0
##branch
Successors: 61
=== Basic block #61
##call alien-signed-cell
##branch
Successors: 62
=== Basic block #62
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 63
=== Basic block #63
##call alien-signed-cell
##branch
Successors: 64
=== Basic block #64
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 65, 70
=== Basic block #65
##fixnum-sub EBP EBP EAX cc/o
Successors: 66, 67
=== Basic block #66
##inc-d -1
##replace EBP D 0
##branch
Successors: 85
=== Basic block #67
##branch
Successors: 68
=== Basic block #68
##call fixnum-overflow
##branch
Successors: 69
=== Basic block #69
##peek EBP D 0
##branch
Successors: 85
=== Basic block #70
##test-imm-branch EAX 15 cc=
Successors: 71, 76
=== Basic block #71
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##branch
Successors: 74
=== Basic block #74
##call bignum-
##branch
Successors: 75
=== Basic block #75
##peek EBP D 0
##branch
Successors: 85
=== Basic block #76
##test-imm-branch EBP 15 cc=
Successors: 77, 82
=== Basic block #77
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 78
=== Basic block #78
##call fixnum>bignum
##branch
Successors: 79
=== Basic block #79
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##call bignum-
##branch
Successors: 81
=== Basic block #81
##peek EBP D 0
##branch
Successors: 85
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum-
##branch
Successors: 84
=== Basic block #84
##peek EBP D 0
##branch
Successors: 85
=== Basic block #85
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 86, 99
=== Basic block #86
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 87, 98
=== Basic block #87
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 88, 93
=== Basic block #88
##fixnum-mul EBP EBP EAX cc/o
Successors: 89, 90
=== Basic block #89
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #90
##replace-imm -1 D 0
##branch
Successors: 91
=== Basic block #91
##call fixnum*overflow
##branch
Successors: 92
=== Basic block #92
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #93
##replace-imm -1 D 0
##branch
Successors: 94
=== Basic block #94
##call fixnum>bignum
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 96
=== Basic block #96
##call bignum*
##branch
Successors: 97
=== Basic block #97
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #98
##peek ECX D 1
##branch
Successors: 116
=== Basic block #99
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 100
=== Basic block #100
##call fixnum>bignum
##branch
Successors: 101
=== Basic block #101
##branch
Successors: 102
=== Basic block #102
##call bignum<
##branch
Successors: 103
=== Basic block #103
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 104, 115
=== Basic block #104
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 105, 110
=== Basic block #105
##fixnum-mul EBP EBP EAX cc/o
Successors: 106, 107
=== Basic block #106
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #107
##replace-imm -1 D 0
##branch
Successors: 108
=== Basic block #108
##call fixnum*overflow
##branch
Successors: 109
=== Basic block #109
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #110
##replace-imm -1 D 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #115
##peek ECX D 1
##branch
Successors: 116
=== Basic block #116
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 117, 122
=== Basic block #117
##fixnum-add ECX ECX EBP cc/o
Successors: 118, 119
=== Basic block #118
##spill ECX tagged-rep T{ spill-slot }
##inc-d -1
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##reload EBP tagged-rep T{ spill-slot }
##replace EBP D 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 58
=== Basic block #119
##branch
Successors: 120
=== Basic block #120
##call fixnum+overflow
##branch
Successors: 121
=== Basic block #121
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #122
##spill ECX int-rep T{ spill-slot }
##branch
Successors: 123
=== Basic block #123
##test-imm-branch EBP 15 cc=
Successors: 124, 129
=== Basic block #124
##branch
Successors: 125
=== Basic block #125
##call fixnum>bignum
##branch
Successors: 126
=== Basic block #126
##branch
Successors: 127
=== Basic block #127
##call bignum+
##branch
Successors: 128
=== Basic block #128
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #129
##reload EAX int-rep T{ spill-slot }
##test-imm-branch EAX 15 cc=
Successors: 130, 135
=== Basic block #130
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 131
=== Basic block #131
##call fixnum>bignum
##branch
Successors: 132
=== Basic block #132
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 133
=== Basic block #133
##call bignum+
##branch
Successors: 134
=== Basic block #134
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call bignum+
##branch
Successors: 137
=== Basic block #137
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #138
##inc-d -4
##branch
Successors: 139
=== Basic block #139
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ int-4{ 489 902 209 425 } int-4{ 707 431 407 333 } ]
[ { int-4 int-4 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm int-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ int-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##branch
Successors: 4
=== Basic block #4
##call heap-size
##branch
Successors: 5
=== Basic block #5
##inc-d 1
##replace-imm -8 D 0
##branch
Successors: 6
=== Basic block #6
##call *
##branch
Successors: 7
=== Basic block #7
##check-nursery-branch 32 cc<= EAX EBP
Successors: 9, 8
=== Basic block #8
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 9
=== Basic block #9
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##replace EBP R 2
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##branch
Successors: 10
=== Basic block #10
##call alien-signed-cell
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 12
=== Basic block #12
##call alien-signed-cell
##branch
Successors: 13
=== Basic block #13
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 14, 23
=== Basic block #14
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 15, 18
=== Basic block #15
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 16
=== Basic block #16
##call shift
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 44
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call fixnum*overflow
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call shift
##branch
Successors: 22
=== Basic block #22
##branch
Successors: 44
=== Basic block #23
##test-imm-branch EAX 15 cc=
Successors: 24, 31
=== Basic block #24
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum*
##branch
Successors: 28
=== Basic block #28
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call shift
##branch
Successors: 30
=== Basic block #30
##branch
Successors: 44
=== Basic block #31
##test-imm-branch EBP 15 cc=
Successors: 32, 39
=== Basic block #32
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 33
=== Basic block #33
##call fixnum>bignum
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #37
##call shift
##branch
Successors: 38
=== Basic block #38
##branch
Successors: 44
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call bignum*
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call shift
##branch
Successors: 43
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 45
=== Basic block #45
##call >integer
##branch
Successors: 46
=== Basic block #46
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 47
=== Basic block #47
##call set-alien-signed-cell
##branch
Successors: 48
=== Basic block #48
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 49
=== Basic block #49
##call alien-signed-cell
##branch
Successors: 50
=== Basic block #50
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 51
=== Basic block #51
##call alien-signed-cell
##branch
Successors: 52
=== Basic block #52
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 53, 62
=== Basic block #53
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 54, 57
=== Basic block #54
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 55
=== Basic block #55
##call shift
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 83
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum*overflow
##branch
Successors: 59
=== Basic block #59
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call shift
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 83
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 70
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##call shift
##branch
Successors: 69
=== Basic block #69
##branch
Successors: 83
=== Basic block #70
##test-imm-branch EBP 15 cc=
Successors: 71, 78
=== Basic block #71
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 74
=== Basic block #74
##call bignum*
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 76
=== Basic block #76
##call shift
##branch
Successors: 77
=== Basic block #77
##branch
Successors: 83
=== Basic block #78
##branch
Successors: 79
=== Basic block #79
##call bignum*
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call shift
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-signed-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-signed-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 101
=== Basic block #92
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 93, 96
=== Basic block #93
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 94
=== Basic block #94
##call shift
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 122
=== Basic block #96
##branch
Successors: 97
=== Basic block #97
##call fixnum*overflow
##branch
Successors: 98
=== Basic block #98
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 99
=== Basic block #99
##call shift
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 122
=== Basic block #101
##test-imm-branch EAX 15 cc=
Successors: 102, 109
=== Basic block #102
##branch
Successors: 103
=== Basic block #103
##call fixnum>bignum
##branch
Successors: 104
=== Basic block #104
##branch
Successors: 105
=== Basic block #105
##call bignum*
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call shift
##branch
Successors: 108
=== Basic block #108
##branch
Successors: 122
=== Basic block #109
##test-imm-branch EBP 15 cc=
Successors: 110, 117
=== Basic block #110
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 115
=== Basic block #115
##call shift
##branch
Successors: 116
=== Basic block #116
##branch
Successors: 122
=== Basic block #117
##branch
Successors: 118
=== Basic block #118
##call bignum*
##branch
Successors: 119
=== Basic block #119
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 120
=== Basic block #120
##call shift
##branch
Successors: 121
=== Basic block #121
##branch
Successors: 122
=== Basic block #122
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 123
=== Basic block #123
##call >integer
##branch
Successors: 124
=== Basic block #124
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 125
=== Basic block #125
##call set-alien-signed-cell
##branch
Successors: 126
=== Basic block #126
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 127
=== Basic block #127
##call alien-signed-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 129
=== Basic block #129
##call alien-signed-cell
##branch
Successors: 130
=== Basic block #130
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 131, 140
=== Basic block #131
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 132, 135
=== Basic block #132
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 133
=== Basic block #133
##call shift
##branch
Successors: 134
=== Basic block #134
##branch
Successors: 161
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum*overflow
##branch
Successors: 137
=== Basic block #137
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 138
=== Basic block #138
##call shift
##branch
Successors: 139
=== Basic block #139
##branch
Successors: 161
=== Basic block #140
##test-imm-branch EAX 15 cc=
Successors: 141, 148
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call fixnum>bignum
##branch
Successors: 143
=== Basic block #143
##branch
Successors: 144
=== Basic block #144
##call bignum*
##branch
Successors: 145
=== Basic block #145
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 146
=== Basic block #146
##call shift
##branch
Successors: 147
=== Basic block #147
##branch
Successors: 161
=== Basic block #148
##test-imm-branch EBP 15 cc=
Successors: 149, 156
=== Basic block #149
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 150
=== Basic block #150
##call fixnum>bignum
##branch
Successors: 151
=== Basic block #151
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 152
=== Basic block #152
##call bignum*
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 154
=== Basic block #154
##call shift
##branch
Successors: 155
=== Basic block #155
##branch
Successors: 161
=== Basic block #156
##branch
Successors: 157
=== Basic block #157
##call bignum*
##branch
Successors: 158
=== Basic block #158
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 159
=== Basic block #159
##call shift
##branch
Successors: 160
=== Basic block #160
##branch
Successors: 161
=== Basic block #161
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 162
=== Basic block #162
##call >integer
##branch
Successors: 163
=== Basic block #163
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 164
=== Basic block #164
##call set-alien-signed-cell
##branch
Successors: 165
=== Basic block #165
##check-nursery-branch 16 cc<= EBP EAX
Successors: 167, 166
=== Basic block #166
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 167
=== Basic block #167
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 411 984 952 289 } int-4{ 802 234 156 69 } ]
[ { int-4 int-4 } declare \ v*high execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[ int-4{ 923 417 691 622 } ]
[ { int-4 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##andn-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 232 842 743 154 } int-4{ 26 238 614 106 } ]
[ { int-4 int-4 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##zero-vector XMM1 int-4-rep
##sub-vector XMM1 XMM1 XMM0 int-4-rep
##store-memory-imm XMM1 EBX 7 int-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 142 223 398 517 } ]
[ { int-4 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EAX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EAX R 1
##replace EBX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EAX R -2
##peek EBX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##sub-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 424 int-4{ 572 335 49 263 } ]
[ { bignum int-4 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 436 406 478 764 } int-4{ 509 119 903 22 } ]
[ { int-4 int-4 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##replace EAX R 0
##peek EBX D 3
##load-tagged EDX 64
##load-tagged ECX 256
##set-slot-imm ECX EAX 1 9
##load-integer ECX 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBX R -1
##peek EDX R -3
##peek EAX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 int-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##sub-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 100 735 76 234 } 128 ]
[ { int-4 bignum } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 int-4-rep f
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM2 B{ 255 255 255 255 0 0 0 0 255 255 255 255 0 0 0 0 } int-4-rep
##xor-vector XMM0 XMM0 XMM2 int-4-rep
##sub-vector XMM0 XMM0 XMM2 int-4-rep
##add-vector XMM1 XMM1 XMM0 int-4-rep
##store-memory-imm XMM1 EBX 7 int-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 707 166 841 795 } int-4{ 47 255 410 348 } ]
[ { int-4 int-4 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##fill-vector XMM1 int-4-rep
##xor-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 200 965 65 576 } ]
[ { int-4 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ int-4{ 4 306 602 453 } ]
[ { int-4 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EAX D 1
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-signed-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##peek EBP R -2
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-signed-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##call >float
##branch
Successors: 77
=== Basic block #77
##check-nursery-branch 16 cc<= EAX EBP
Successors: 79, 78
=== Basic block #78
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 79
=== Basic block #79
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EBP 16 float EAX
##sqrt XMM0 XMM0
##store-memory-imm XMM0 EBP 5 double-rep f
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 14 227 872 232 } ]
[ { int-4 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##and-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 138 288 171 243 } int-4{ 782 0 118 162 } ]
[ { int-4 int-4 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shl-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 700 537 216 912 } 9 ]
[ { int-4 bignum } declare \ vlshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 16 200 486 552 } int-4{ 840 426 399 601 } ]
[ { int-4 int-4 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##zero-vector XMM0 int-4-rep
##store-memory-imm XMM0 EAX 7 int-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 517 111 335 680 } int-4{ 790 836 154 354 } ]
[ { int-4 int-4 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 2
##peek EBP D 2
##replace-imm 0 D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call alien-signed-cell
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##load-integer EAX 1
##load-tagged EBX 64
##peek EDX D 2
##replace EDX D 3
##branch
Successors: 5
=== Basic block #4
##inc-r -3
##inc-d 3
##sar-imm EAX EAX 4
##add-imm EAX EAX 1
##safepoint
##branch
Successors: 5
=== Basic block #5
##sar-imm EDX EBX 4
##compare-integer-branch EAX EDX cc<
Successors: 6, 29
=== Basic block #6
##inc-r 3
##inc-d -1
##shl-imm EDX EAX 4
##replace EDX R 0
##replace EBX R 1
##replace EBP R 2
##shl-imm EAX EAX 6
##replace EAX D 0
##replace EBP D 1
##branch
Successors: 7
=== Basic block #7
##call alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##peek EDX D 1
##peek EBP D 0
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 9, 14
=== Basic block #9
##fixnum-add EDX EDX EBP cc/o
Successors: 10, 11
=== Basic block #10
##inc-d -1
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##replace EDX D 0
##branch
Successors: 4
=== Basic block #11
##branch
Successors: 12
=== Basic block #12
##call fixnum+overflow
##branch
Successors: 13
=== Basic block #13
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #14
##test-imm-branch EBP 15 cc=
Successors: 15, 20
=== Basic block #15
##branch
Successors: 16
=== Basic block #16
##call fixnum>bignum
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call bignum+
##branch
Successors: 19
=== Basic block #19
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EDX 15 cc=
Successors: 21, 26
=== Basic block #21
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 24
=== Basic block #24
##call bignum+
##branch
Successors: 25
=== Basic block #25
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum+
##branch
Successors: 28
=== Basic block #28
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #29
##inc-d -3
##branch
Successors: 30
=== Basic block #30
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ int-4{ 250 101 275 838 } ]
[ { int-4 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ int-4{ 289 41 882 878 } ]
[ { int-4 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 2
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##replace EAX R 0
##replace EBP R 1
##replace-imm longlong-2-rep D 0
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 64 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 6
##inc-d 2
##peek EBP R 6
##peek EAX R 7
##allot EBX 16 tuple EDX
##load-reference EDX { int-array 2 1 tuple -65101626 int-array 94323888 }
##set-slot-imm EDX EBX 1 7
##set-slot-imm EAX EBX 2 7
##load-tagged EAX 64
##set-slot-imm EAX EBX 3 7
##spill EBX tagged-rep T{ spill-slot }
##allot ECX 16 tuple EBX
##set-slot-imm EDX ECX 1 7
##set-slot-imm EBP ECX 2 7
##set-slot-imm EAX ECX 3 7
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##reload EAX tagged-rep T{ spill-slot }
##replace EAX D 0
##peek EBX D 2
##replace EBP R 3
##replace-imm 2 D 1
##replace-imm 0 D 2
##replace EBX R 4
##replace ECX R 5
##replace EAX R 6
##replace EBP R 7
##replace ECX R 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call subseq
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 3
##replace-imm 0 D 2
##replace-imm 2 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##call subseq
##branch
Successors: 9
=== Basic block #9
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##replace EBP R 2
##replace EAX D 0
##replace-imm 0 D 1
##replace EAX R 1
##replace EBP R 0
##branch
Successors: 10
=== Basic block #10
##call nth
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##replace-imm 0 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call nth
##branch
Successors: 13
=== Basic block #13
##branch
Successors: 14
=== Basic block #14
##call *
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 16
=== Basic block #16
##call nth
##branch
Successors: 17
=== Basic block #17
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 18
=== Basic block #18
##call nth
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call *
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call +
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 2
##peek EBP R -1
##compare-imm-branch EBP float cc=
Successors: 24, 26
=== Basic block #24
##inc-d -1
##branch
Successors: 25
=== Basic block #25
##inc-d -1
##branch
Successors: 35
=== Basic block #26
##inc-d -1
##compare-imm-branch EBP double cc=
Successors: 27, 28
=== Basic block #27
##inc-d -1
##branch
Successors: 35
=== Basic block #28
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call c-type-interval
##branch
Successors: 30
=== Basic block #30
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 31
=== Basic block #31
##call max
##branch
Successors: 32
=== Basic block #32
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 33
=== Basic block #33
##call min
##branch
Successors: 34
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 36
=== Basic block #36
##call >integer
##branch
Successors: 37
=== Basic block #37
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 38
=== Basic block #38
##call set-alien-signed-8
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 3
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 4 D 1
##replace EBP D 0
##replace-imm 2 D 2
##branch
Successors: 40
=== Basic block #40
##call subseq
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 3
##replace-imm 2 D 2
##replace-imm 4 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call subseq
##branch
Successors: 43
=== Basic block #43
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##replace EAX R 1
##replace EAX D 0
##replace EBP R 2
##replace-imm 0 D 1
##replace EBP R 0
##branch
Successors: 44
=== Basic block #44
##call nth
##branch
Successors: 45
=== Basic block #45
##inc-r -1
##inc-d 2
##replace-imm 0 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call nth
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call *
##branch
Successors: 49
=== Basic block #49
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call nth
##branch
Successors: 51
=== Basic block #51
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 52
=== Basic block #52
##call nth
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call *
##branch
Successors: 55
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call +
##branch
Successors: 57
=== Basic block #57
##inc-r -1
##inc-d 2
##peek EBP R -1
##compare-imm-branch EBP float cc=
Successors: 58, 60
=== Basic block #58
##inc-d -1
##branch
Successors: 59
=== Basic block #59
##inc-d -1
##branch
Successors: 69
=== Basic block #60
##inc-d -1
##compare-imm-branch EBP double cc=
Successors: 61, 62
=== Basic block #61
##inc-d -1
##branch
Successors: 69
=== Basic block #62
##replace EBP D 0
##branch
Successors: 63
=== Basic block #63
##call c-type-interval
##branch
Successors: 64
=== Basic block #64
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 65
=== Basic block #65
##call max
##branch
Successors: 66
=== Basic block #66
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 67
=== Basic block #67
##call min
##branch
Successors: 68
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 70
=== Basic block #70
##call >integer
##branch
Successors: 71
=== Basic block #71
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call set-alien-signed-8
##branch
Successors: 73
=== Basic block #73
##check-nursery-branch 16 cc<= EAX EBP
Successors: 75, 74
=== Basic block #74
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 115 341 121 744 } int-4{ 468 396 836 101 } ]
[ { int-4 int-4 } declare \ v*hs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##or-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 549 351 453 634 } int-4{ 436 525 201 787 } ]
[ { int-4 int-4 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 int-4-rep f
##load-memory-imm XMM1 EBP 7 int-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##compare-vector XMM0 XMM0 XMM1 int-4-rep cc>
##fill-vector XMM1 int-4-rep
##xor-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBX 7 int-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 798 385 98 431 } int-4{ 953 491 842 417 } ]
[ { int-4 int-4 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot ECX 12 tuple EBX
##load-reference EBX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBX ECX 1 7
##set-slot-imm EDX ECX 2 7
##load-tagged EBX 64
##load-tagged EDX 0
##replace ECX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EBP EBP 2
##replace EBP R 0
##slot-imm EBX EBX 2 7
##replace EBX R 1
##replace EAX D 0
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EBX R -4
##peek EBP R -1
##peek ECX R -3
##peek EAX R -2
##peek EDX R -5
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch EDX EBX cc<
Successors: 10, 42
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EBX R 5
##replace EDX R 0
##replace EAX R 1
##shl-imm EBX EDX 2
##replace EBX D 0
##replace EBP D 1
##replace ECX R 6
##replace EAX R 7
##replace EBP R 8
##replace EDX R 2
##replace ECX R 3
##replace EDX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-signed-cell
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-signed-cell
##branch
Successors: 14
=== Basic block #14
##peek EAX D 1
##peek EBP D 0
##or EBX EAX EBP
##test-imm-branch EBX 15 cc=
Successors: 15, 20
=== Basic block #15
##fixnum-sub EAX EAX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##replace EAX D 0
##branch
Successors: 35
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum-overflow
##branch
Successors: 19
=== Basic block #19
##peek EAX D 0
##branch
Successors: 35
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EAX D 0
##branch
Successors: 35
=== Basic block #26
##test-imm-branch EAX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum-
##branch
Successors: 31
=== Basic block #31
##peek EAX D 0
##branch
Successors: 35
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum-
##branch
Successors: 34
=== Basic block #34
##peek EAX D 0
##branch
Successors: 35
=== Basic block #35
##inc-d 1
##load-integer EDX 0
##test-imm-branch EAX 15 cc=
Successors: 36, 37
=== Basic block #36
##inc-d -1
##peek EBX R 1
##peek EBP R 0
##sar-imm EAX EAX 4
##max EAX EAX EDX
##shl-imm EAX EAX 4
##branch
Successors: 4
=== Basic block #37
##inc-r 2
##replace-imm 0 D 0
##replace-imm 0 R 1
##replace EAX R 0
##branch
Successors: 38
=== Basic block #38
##call bignum>
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 1
##peek EBP R 0
##peek EAX R -2
##peek EBX R 1
##peek EDX R -1
##peek ECX D 1
##compare-imm-branch ECX f cc/=
Successors: 40, 41
=== Basic block #40
##inc-d -1
##branch
Successors: 4
=== Basic block #41
##inc-d -1
##copy EAX EDX tagged-rep
##branch
Successors: 4
=== Basic block #42
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 120 490 637 616 } int-4{ 229 347 787 929 } ]
[ { int-4 int-4 } declare \ [v-] execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-cell
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-cell
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##fixnum-add EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum+overflow
##branch
Successors: 12
=== Basic block #12
##peek EBP D 0
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum+
##branch
Successors: 18
=== Basic block #18
##peek EBP D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum+
##branch
Successors: 24
=== Basic block #24
##peek EBP D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum+
##branch
Successors: 27
=== Basic block #27
##peek EBP D 0
##branch
Successors: 28
=== Basic block #28
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-add EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##replace EBP D 0
##branch
Successors: 39
=== Basic block #31
##replace-imm 1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum+overflow
##branch
Successors: 33
=== Basic block #33
##peek EBP D 0
##branch
Successors: 39
=== Basic block #34
##replace-imm 1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum+
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##branch
Successors: 39
=== Basic block #39
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 40, 45
=== Basic block #40
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 0 R 0
##branch
Successors: 41
=== Basic block #41
##call >integer
##branch
Successors: 42
=== Basic block #42
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##call set-alien-signed-cell
##branch
Successors: 44
=== Basic block #44
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 52
=== Basic block #45
##replace-imm -1 D 0
##branch
Successors: 46
=== Basic block #46
##call bignum-shift
##branch
Successors: 47
=== Basic block #47
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 48
=== Basic block #48
##call >integer
##branch
Successors: 49
=== Basic block #49
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call set-alien-signed-cell
##branch
Successors: 51
=== Basic block #51
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 52
=== Basic block #52
##inc-r 2
##inc-d 2
##replace EAX R 1
##replace-imm 4 D 0
##replace EBP D 1
##replace EBX R 0
##branch
Successors: 53
=== Basic block #53
##call alien-signed-cell
##branch
Successors: 54
=== Basic block #54
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 55
=== Basic block #55
##call alien-signed-cell
##branch
Successors: 56
=== Basic block #56
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 57, 62
=== Basic block #57
##fixnum-add EBP EBP EAX cc/o
Successors: 58, 59
=== Basic block #58
##inc-d -1
##replace EBP D 0
##branch
Successors: 77
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call fixnum+overflow
##branch
Successors: 61
=== Basic block #61
##peek EBP D 0
##branch
Successors: 77
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 68
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EBP D 0
##branch
Successors: 77
=== Basic block #68
##test-imm-branch EBP 15 cc=
Successors: 69, 74
=== Basic block #69
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 70
=== Basic block #70
##call fixnum>bignum
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call bignum+
##branch
Successors: 73
=== Basic block #73
##peek EBP D 0
##branch
Successors: 77
=== Basic block #74
##branch
Successors: 75
=== Basic block #75
##call bignum+
##branch
Successors: 76
=== Basic block #76
##peek EBP D 0
##branch
Successors: 77
=== Basic block #77
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 78, 83
=== Basic block #78
##fixnum-add EBP EBP EAX cc/o
Successors: 79, 80
=== Basic block #79
##inc-d -1
##replace EBP D 0
##branch
Successors: 88
=== Basic block #80
##replace-imm 1 D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum+overflow
##branch
Successors: 82
=== Basic block #82
##peek EBP D 0
##branch
Successors: 88
=== Basic block #83
##replace-imm 1 D 0
##branch
Successors: 84
=== Basic block #84
##call fixnum>bignum
##branch
Successors: 85
=== Basic block #85
##branch
Successors: 86
=== Basic block #86
##call bignum+
##branch
Successors: 87
=== Basic block #87
##peek EBP D 0
##branch
Successors: 88
=== Basic block #88
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 89, 94
=== Basic block #89
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 4 R 0
##branch
Successors: 90
=== Basic block #90
##call >integer
##branch
Successors: 91
=== Basic block #91
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 92
=== Basic block #92
##call set-alien-signed-cell
##branch
Successors: 93
=== Basic block #93
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 101
=== Basic block #94
##replace-imm -1 D 0
##branch
Successors: 95
=== Basic block #95
##call bignum-shift
##branch
Successors: 96
=== Basic block #96
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 97
=== Basic block #97
##call >integer
##branch
Successors: 98
=== Basic block #98
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 99
=== Basic block #99
##call set-alien-signed-cell
##branch
Successors: 100
=== Basic block #100
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 101
=== Basic block #101
##inc-r 2
##inc-d 2
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##replace EBX R 0
##branch
Successors: 102
=== Basic block #102
##call alien-signed-cell
##branch
Successors: 103
=== Basic block #103
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 104
=== Basic block #104
##call alien-signed-cell
##branch
Successors: 105
=== Basic block #105
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 106, 111
=== Basic block #106
##fixnum-add EBP EBP EAX cc/o
Successors: 107, 108
=== Basic block #107
##inc-d -1
##replace EBP D 0
##branch
Successors: 126
=== Basic block #108
##branch
Successors: 109
=== Basic block #109
##call fixnum+overflow
##branch
Successors: 110
=== Basic block #110
##peek EBP D 0
##branch
Successors: 126
=== Basic block #111
##test-imm-branch EAX 15 cc=
Successors: 112, 117
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call fixnum>bignum
##branch
Successors: 114
=== Basic block #114
##branch
Successors: 115
=== Basic block #115
##call bignum+
##branch
Successors: 116
=== Basic block #116
##peek EBP D 0
##branch
Successors: 126
=== Basic block #117
##test-imm-branch EBP 15 cc=
Successors: 118, 123
=== Basic block #118
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 119
=== Basic block #119
##call fixnum>bignum
##branch
Successors: 120
=== Basic block #120
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 121
=== Basic block #121
##call bignum+
##branch
Successors: 122
=== Basic block #122
##peek EBP D 0
##branch
Successors: 126
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##call bignum+
##branch
Successors: 125
=== Basic block #125
##peek EBP D 0
##branch
Successors: 126
=== Basic block #126
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 127, 132
=== Basic block #127
##fixnum-add EBP EBP EAX cc/o
Successors: 128, 129
=== Basic block #128
##inc-d -1
##replace EBP D 0
##branch
Successors: 137
=== Basic block #129
##replace-imm 1 D 0
##branch
Successors: 130
=== Basic block #130
##call fixnum+overflow
##branch
Successors: 131
=== Basic block #131
##peek EBP D 0
##branch
Successors: 137
=== Basic block #132
##replace-imm 1 D 0
##branch
Successors: 133
=== Basic block #133
##call fixnum>bignum
##branch
Successors: 134
=== Basic block #134
##branch
Successors: 135
=== Basic block #135
##call bignum+
##branch
Successors: 136
=== Basic block #136
##peek EBP D 0
##branch
Successors: 137
=== Basic block #137
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 138, 143
=== Basic block #138
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 139
=== Basic block #139
##call >integer
##branch
Successors: 140
=== Basic block #140
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 141
=== Basic block #141
##call set-alien-signed-cell
##branch
Successors: 142
=== Basic block #142
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 150
=== Basic block #143
##replace-imm -1 D 0
##branch
Successors: 144
=== Basic block #144
##call bignum-shift
##branch
Successors: 145
=== Basic block #145
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 146
=== Basic block #146
##call >integer
##branch
Successors: 147
=== Basic block #147
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call set-alien-signed-cell
##branch
Successors: 149
=== Basic block #149
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 150
=== Basic block #150
##inc-r -1
##inc-d 2
##replace EAX R 1
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 151
=== Basic block #151
##call alien-signed-cell
##branch
Successors: 152
=== Basic block #152
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 153
=== Basic block #153
##call alien-signed-cell
##branch
Successors: 154
=== Basic block #154
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 155, 160
=== Basic block #155
##fixnum-add EBP EBP EAX cc/o
Successors: 156, 157
=== Basic block #156
##inc-d -1
##replace EBP D 0
##branch
Successors: 175
=== Basic block #157
##branch
Successors: 158
=== Basic block #158
##call fixnum+overflow
##branch
Successors: 159
=== Basic block #159
##peek EBP D 0
##branch
Successors: 175
=== Basic block #160
##test-imm-branch EAX 15 cc=
Successors: 161, 166
=== Basic block #161
##branch
Successors: 162
=== Basic block #162
##call fixnum>bignum
##branch
Successors: 163
=== Basic block #163
##branch
Successors: 164
=== Basic block #164
##call bignum+
##branch
Successors: 165
=== Basic block #165
##peek EBP D 0
##branch
Successors: 175
=== Basic block #166
##test-imm-branch EBP 15 cc=
Successors: 167, 172
=== Basic block #167
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 168
=== Basic block #168
##call fixnum>bignum
##branch
Successors: 169
=== Basic block #169
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 170
=== Basic block #170
##call bignum+
##branch
Successors: 171
=== Basic block #171
##peek EBP D 0
##branch
Successors: 175
=== Basic block #172
##branch
Successors: 173
=== Basic block #173
##call bignum+
##branch
Successors: 174
=== Basic block #174
##peek EBP D 0
##branch
Successors: 175
=== Basic block #175
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 176, 181
=== Basic block #176
##fixnum-add EBP EBP EAX cc/o
Successors: 177, 178
=== Basic block #177
##inc-d -1
##replace EBP D 0
##branch
Successors: 186
=== Basic block #178
##replace-imm 1 D 0
##branch
Successors: 179
=== Basic block #179
##call fixnum+overflow
##branch
Successors: 180
=== Basic block #180
##peek EBP D 0
##branch
Successors: 186
=== Basic block #181
##replace-imm 1 D 0
##branch
Successors: 182
=== Basic block #182
##call fixnum>bignum
##branch
Successors: 183
=== Basic block #183
##branch
Successors: 184
=== Basic block #184
##call bignum+
##branch
Successors: 185
=== Basic block #185
##peek EBP D 0
##branch
Successors: 186
=== Basic block #186
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 187, 193
=== Basic block #187
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 12 R 0
##branch
Successors: 188
=== Basic block #188
##call >integer
##branch
Successors: 189
=== Basic block #189
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 190
=== Basic block #190
##call set-alien-signed-cell
##branch
Successors: 191
=== Basic block #191
##peek EBP R 0
##branch
Successors: 192
=== Basic block #192
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 200
=== Basic block #193
##replace-imm -1 D 0
##branch
Successors: 194
=== Basic block #194
##call bignum-shift
##branch
Successors: 195
=== Basic block #195
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 196
=== Basic block #196
##call >integer
##branch
Successors: 197
=== Basic block #197
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 198
=== Basic block #198
##call set-alien-signed-cell
##branch
Successors: 199
=== Basic block #199
##peek EBP R 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 200
=== Basic block #200
##check-nursery-branch 16 cc<= EAX EBX
Successors: 202, 201
=== Basic block #201
##save-context EBX EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { T{ spill-slot } } }
{ derived-roots V{ } }
}
##branch
Successors: 202
=== Basic block #202
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EAX EBP 1 7
##reload EAX tagged-rep T{ spill-slot }
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 203
=== Basic block #203
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 207 221 553 262 } int-4{ 176 200 413 353 } ]
[ { int-4 int-4 } declare \ vavg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 int-4-rep f
##load-memory-imm XMM1 EAX 7 int-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { int-4 1 2 tuple -65101626 simd-128 8440422 int-4 53430683 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##xor-vector XMM0 XMM0 XMM1 int-4-rep
##store-memory-imm XMM0 EBP 7 int-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ int-4{ 197 711 846 340 } int-4{ 939 884 934 969 } ]
[ { int-4 int-4 } declare \ vbitxor execute ]
Unit Test: { [ { } ] [ \ uint-4 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 uint-4-rep cc=
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 306 899 678 363 } uint-4{ 589 806 923 233 } ]
[ { uint-4 uint-4 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##allot EBX 12 tuple EAX
##replace EBX D 0
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBX 1 7
##set-slot-imm EBP EBX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 927 371 20 998 } ]
[ { uint-4 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 885 44 361 63 } uint-4{ 87 291 785 15 } ]
[ { uint-4 uint-4 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##max-vector XMM2 XMM0 XMM1 uint-4-rep
##compare-vector XMM2 XMM2 XMM0 uint-4-rep cc=
##fill-vector XMM0 uint-4-rep
##xor-vector XMM2 XMM2 XMM0 uint-4-rep
##store-memory-imm XMM2 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 960 675 825 755 } uint-4{ 205 529 831 276 } ]
[ { uint-4 uint-4 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 777 916 142 741 } 340 ]
[ { uint-4 bignum } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##min-vector XMM2 XMM0 XMM1 uint-4-rep
##compare-vector XMM2 XMM2 XMM0 uint-4-rep cc=
##fill-vector XMM0 uint-4-rep
##xor-vector XMM2 XMM2 XMM0 uint-4-rep
##store-memory-imm XMM2 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 536 402 80 791 } uint-4{ 205 331 650 372 } ]
[ { uint-4 uint-4 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EAX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EAX R 1
##replace EBX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EAX R -2
##peek EBX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##add-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBX 7 uint-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 334 uint-4{ 544 645 214 306 } ]
[ { bignum uint-4 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EAX D 1
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##peek EBP R -2
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ uint-4{ 504 401 774 948 } ]
[ { uint-4 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 178 791 949 786 } uint-4{ 99 854 115 595 } ]
[ { uint-4 uint-4 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##replace EAX R 1
##slot-imm EBP EBP 2 7
##replace EBP R 2
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 1
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -2
##replace EBP D 1
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ uint-4{ 147 441 563 136 } uint-4{ 936 197 307 79 } ]
[ { uint-4 uint-4 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 488 739 179 281 } uint-4{ 354 170 568 635 } ]
[ { uint-4 uint-4 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##min-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 421 780 403 331 } uint-4{ 420 565 971 845 } ]
[ { uint-4 uint-4 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm uint-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ uint-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##replace EBP R 7
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-sub EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum-overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum-
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum-
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum-
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-sub EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum-overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum-
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum-
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum-
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-unsigned-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-unsigned-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##fixnum-sub EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum-overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum-
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum-
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum-
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-unsigned-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-unsigned-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-unsigned-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##fixnum-sub EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum-overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum-
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum-
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum-
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-unsigned-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EAX EBP
Successors: 171, 170
=== Basic block #170
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 790 245 574 993 } uint-4{ 184 434 527 507 } ]
[ { uint-4 uint-4 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm uint-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ uint-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-add EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum+overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum+
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum+
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum+
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-add EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum+overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum+
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum+
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-unsigned-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-unsigned-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##fixnum-add EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum+overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum+
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum+
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum+
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-unsigned-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-unsigned-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-unsigned-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##fixnum-add EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum+overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum+
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum+
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum+
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-unsigned-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EBP EAX
Successors: 171, 170
=== Basic block #170
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 233 681 986 99 } uint-4{ 594 339 833 320 } ]
[ { uint-4 uint-4 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm uint-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ uint-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EAX 32 byte-array EBP
##replace EAX R 7
##peek EBP D 0
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##replace EAX R 3
##peek EBX D -1
##replace EBX R 4
##replace EBP R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EAX R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-cell
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-cell
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum*overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum*
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum*
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum*
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-cell
##branch
Successors: 46
=== Basic block #46
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-cell
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-cell
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum*overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum*
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum*
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-unsigned-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-unsigned-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 97
=== Basic block #92
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 93, 94
=== Basic block #93
##inc-d -1
##replace EBP D 0
##branch
Successors: 112
=== Basic block #94
##branch
Successors: 95
=== Basic block #95
##call fixnum*overflow
##branch
Successors: 96
=== Basic block #96
##peek EDX R 0
##branch
Successors: 112
=== Basic block #97
##test-imm-branch EAX 15 cc=
Successors: 98, 103
=== Basic block #98
##branch
Successors: 99
=== Basic block #99
##call fixnum>bignum
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 101
=== Basic block #101
##call bignum*
##branch
Successors: 102
=== Basic block #102
##peek EDX R 0
##branch
Successors: 112
=== Basic block #103
##test-imm-branch EBP 15 cc=
Successors: 104, 109
=== Basic block #104
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 105
=== Basic block #105
##call fixnum>bignum
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call bignum*
##branch
Successors: 108
=== Basic block #108
##peek EDX R 0
##branch
Successors: 112
=== Basic block #109
##branch
Successors: 110
=== Basic block #110
##call bignum*
##branch
Successors: 111
=== Basic block #111
##peek EDX R 0
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 113, 115
=== Basic block #113
##inc-d -1
##branch
Successors: 114
=== Basic block #114
##inc-d -1
##branch
Successors: 124
=== Basic block #115
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 116, 117
=== Basic block #116
##inc-d -1
##branch
Successors: 124
=== Basic block #117
##replace EDX D 0
##branch
Successors: 118
=== Basic block #118
##call c-type-interval
##branch
Successors: 119
=== Basic block #119
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 120
=== Basic block #120
##call max
##branch
Successors: 121
=== Basic block #121
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 122
=== Basic block #122
##call min
##branch
Successors: 123
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 125
=== Basic block #125
##call >integer
##branch
Successors: 126
=== Basic block #126
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 127
=== Basic block #127
##call set-alien-unsigned-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 129
=== Basic block #129
##call alien-unsigned-cell
##branch
Successors: 130
=== Basic block #130
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 131
=== Basic block #131
##call alien-unsigned-cell
##branch
Successors: 132
=== Basic block #132
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 133, 138
=== Basic block #133
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 134, 135
=== Basic block #134
##inc-d -1
##replace EBP D 0
##branch
Successors: 153
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum*overflow
##branch
Successors: 137
=== Basic block #137
##peek EDX R 0
##branch
Successors: 153
=== Basic block #138
##test-imm-branch EAX 15 cc=
Successors: 139, 144
=== Basic block #139
##branch
Successors: 140
=== Basic block #140
##call fixnum>bignum
##branch
Successors: 141
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call bignum*
##branch
Successors: 143
=== Basic block #143
##peek EDX R 0
##branch
Successors: 153
=== Basic block #144
##test-imm-branch EBP 15 cc=
Successors: 145, 150
=== Basic block #145
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 146
=== Basic block #146
##call fixnum>bignum
##branch
Successors: 147
=== Basic block #147
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call bignum*
##branch
Successors: 149
=== Basic block #149
##peek EDX R 0
##branch
Successors: 153
=== Basic block #150
##branch
Successors: 151
=== Basic block #151
##call bignum*
##branch
Successors: 152
=== Basic block #152
##peek EDX R 0
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 154, 156
=== Basic block #154
##inc-d -1
##branch
Successors: 155
=== Basic block #155
##inc-d -1
##branch
Successors: 165
=== Basic block #156
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 157, 158
=== Basic block #157
##inc-d -1
##branch
Successors: 165
=== Basic block #158
##replace EDX D 0
##branch
Successors: 159
=== Basic block #159
##call c-type-interval
##branch
Successors: 160
=== Basic block #160
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 161
=== Basic block #161
##call max
##branch
Successors: 162
=== Basic block #162
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 163
=== Basic block #163
##call min
##branch
Successors: 164
=== Basic block #164
##branch
Successors: 165
=== Basic block #165
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 166
=== Basic block #166
##call >integer
##branch
Successors: 167
=== Basic block #167
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##call set-alien-unsigned-cell
##branch
Successors: 169
=== Basic block #169
##check-nursery-branch 16 cc<= EAX EBP
Successors: 171, 170
=== Basic block #170
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 171
=== Basic block #171
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##replace EBP D 0
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##branch
Successors: 172
=== Basic block #172
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 728 380 798 722 } uint-4{ 780 859 421 555 } ]
[ { uint-4 uint-4 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##max-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 732 416 400 755 } uint-4{ 343 569 761 832 } ]
[ { uint-4 uint-4 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##min-vector XMM2 XMM0 XMM1 uint-4-rep
##compare-vector XMM2 XMM2 XMM0 uint-4-rep cc=
##store-memory-imm XMM2 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 127 427 899 852 } uint-4{ 763 720 58 543 } ]
[ { uint-4 uint-4 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##replace EAX R 0
##peek EBX D 3
##load-tagged EDX 64
##load-tagged ECX 256
##set-slot-imm ECX EAX 1 9
##load-integer ECX 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EAX R 1
##replace EBX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EAX R -2
##peek EBX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##mul-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 155 uint-4{ 661 923 798 375 } ]
[ { bignum uint-4 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EAX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBX R -1
##peek EDX R -3
##peek EAX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##mul-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 300 410 57 538 } 951 ]
[ { uint-4 bignum } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##replace EBP D 0
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shr-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EAX 7 uint-4-rep f
##set-slot-imm EAX EBP 2 7
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 586 515 949 876 } 288 ]
[ { uint-4 bignum } declare \ vrshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 1
##inc-d 2
##peek EBP D 2
##peek EAX D 3
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBP D 2
##replace EAX D 1
##replace EAX D 3
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##replace-imm 0 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##fixnum-sub EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum-overflow
##branch
Successors: 10
=== Basic block #10
##peek EBP D 0
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum-
##branch
Successors: 16
=== Basic block #16
##peek EBP D 0
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum-
##branch
Successors: 22
=== Basic block #22
##peek EBP D 0
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EBP D 0
##branch
Successors: 26
=== Basic block #26
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 27, 40
=== Basic block #27
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 28, 39
=== Basic block #28
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-mul EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #31
##replace-imm -1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum*overflow
##branch
Successors: 33
=== Basic block #33
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #34
##replace-imm -1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum*
##branch
Successors: 38
=== Basic block #38
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #39
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #40
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum<
##branch
Successors: 44
=== Basic block #44
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 45, 56
=== Basic block #45
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #48
##replace-imm -1 D 0
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #51
##replace-imm -1 D 0
##branch
Successors: 52
=== Basic block #52
##call fixnum>bignum
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call bignum*
##branch
Successors: 55
=== Basic block #55
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #56
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #57
##inc-d 2
##load-tagged EDX 16
##load-tagged ECX 64
##replace EBP D 4
##branch
Successors: 59
=== Basic block #58
##inc-r -4
##inc-d 4
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 59
=== Basic block #59
##compare-integer-branch EDX ECX cc<
Successors: 60, 138
=== Basic block #60
##inc-r 6
##inc-d -2
##replace EAX R 1
##replace EDX R 2
##replace ECX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 1
##shl-imm EBP EDX 2
##replace EBP D 0
##replace EDX R 0
##branch
Successors: 61
=== Basic block #61
##call alien-unsigned-cell
##branch
Successors: 62
=== Basic block #62
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 63
=== Basic block #63
##call alien-unsigned-cell
##branch
Successors: 64
=== Basic block #64
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 65, 70
=== Basic block #65
##fixnum-sub EBP EBP EAX cc/o
Successors: 66, 67
=== Basic block #66
##inc-d -1
##replace EBP D 0
##branch
Successors: 85
=== Basic block #67
##branch
Successors: 68
=== Basic block #68
##call fixnum-overflow
##branch
Successors: 69
=== Basic block #69
##peek EBP D 0
##branch
Successors: 85
=== Basic block #70
##test-imm-branch EAX 15 cc=
Successors: 71, 76
=== Basic block #71
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##branch
Successors: 74
=== Basic block #74
##call bignum-
##branch
Successors: 75
=== Basic block #75
##peek EBP D 0
##branch
Successors: 85
=== Basic block #76
##test-imm-branch EBP 15 cc=
Successors: 77, 82
=== Basic block #77
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 78
=== Basic block #78
##call fixnum>bignum
##branch
Successors: 79
=== Basic block #79
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##call bignum-
##branch
Successors: 81
=== Basic block #81
##peek EBP D 0
##branch
Successors: 85
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum-
##branch
Successors: 84
=== Basic block #84
##peek EBP D 0
##branch
Successors: 85
=== Basic block #85
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 86, 99
=== Basic block #86
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 87, 98
=== Basic block #87
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 88, 93
=== Basic block #88
##fixnum-mul EBP EBP EAX cc/o
Successors: 89, 90
=== Basic block #89
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #90
##replace-imm -1 D 0
##branch
Successors: 91
=== Basic block #91
##call fixnum*overflow
##branch
Successors: 92
=== Basic block #92
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #93
##replace-imm -1 D 0
##branch
Successors: 94
=== Basic block #94
##call fixnum>bignum
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 96
=== Basic block #96
##call bignum*
##branch
Successors: 97
=== Basic block #97
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #98
##peek ECX D 1
##branch
Successors: 116
=== Basic block #99
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 100
=== Basic block #100
##call fixnum>bignum
##branch
Successors: 101
=== Basic block #101
##branch
Successors: 102
=== Basic block #102
##call bignum<
##branch
Successors: 103
=== Basic block #103
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 104, 115
=== Basic block #104
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 105, 110
=== Basic block #105
##fixnum-mul EBP EBP EAX cc/o
Successors: 106, 107
=== Basic block #106
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #107
##replace-imm -1 D 0
##branch
Successors: 108
=== Basic block #108
##call fixnum*overflow
##branch
Successors: 109
=== Basic block #109
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #110
##replace-imm -1 D 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##peek EBP D 0
##peek ECX D 1
##branch
Successors: 116
=== Basic block #115
##peek ECX D 1
##branch
Successors: 116
=== Basic block #116
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 117, 122
=== Basic block #117
##fixnum-add ECX ECX EBP cc/o
Successors: 118, 119
=== Basic block #118
##spill ECX tagged-rep T{ spill-slot }
##inc-d -1
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##reload EBP tagged-rep T{ spill-slot }
##replace EBP D 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 58
=== Basic block #119
##branch
Successors: 120
=== Basic block #120
##call fixnum+overflow
##branch
Successors: 121
=== Basic block #121
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #122
##spill ECX int-rep T{ spill-slot }
##branch
Successors: 123
=== Basic block #123
##test-imm-branch EBP 15 cc=
Successors: 124, 129
=== Basic block #124
##branch
Successors: 125
=== Basic block #125
##call fixnum>bignum
##branch
Successors: 126
=== Basic block #126
##branch
Successors: 127
=== Basic block #127
##call bignum+
##branch
Successors: 128
=== Basic block #128
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #129
##reload EAX int-rep T{ spill-slot }
##test-imm-branch EAX 15 cc=
Successors: 130, 135
=== Basic block #130
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 131
=== Basic block #131
##call fixnum>bignum
##branch
Successors: 132
=== Basic block #132
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 133
=== Basic block #133
##call bignum+
##branch
Successors: 134
=== Basic block #134
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call bignum+
##branch
Successors: 137
=== Basic block #137
##peek EAX R 2
##peek EBX R 3
##peek EDX R 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #138
##inc-d -4
##branch
Successors: 139
=== Basic block #139
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ uint-4{ 768 855 965 927 } uint-4{ 621 875 989 205 } ]
[ { uint-4 uint-4 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm uint-4-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ uint-4-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##branch
Successors: 4
=== Basic block #4
##call heap-size
##branch
Successors: 5
=== Basic block #5
##inc-d 1
##replace-imm -8 D 0
##branch
Successors: 6
=== Basic block #6
##call *
##branch
Successors: 7
=== Basic block #7
##check-nursery-branch 32 cc<= EAX EBP
Successors: 9, 8
=== Basic block #8
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 9
=== Basic block #9
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##replace EBP R 7
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 10
=== Basic block #10
##call alien-unsigned-cell
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 12
=== Basic block #12
##call alien-unsigned-cell
##branch
Successors: 13
=== Basic block #13
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 14, 23
=== Basic block #14
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 15, 18
=== Basic block #15
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 16
=== Basic block #16
##call shift
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 44
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call fixnum*overflow
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call shift
##branch
Successors: 22
=== Basic block #22
##branch
Successors: 44
=== Basic block #23
##test-imm-branch EAX 15 cc=
Successors: 24, 31
=== Basic block #24
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum*
##branch
Successors: 28
=== Basic block #28
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call shift
##branch
Successors: 30
=== Basic block #30
##branch
Successors: 44
=== Basic block #31
##test-imm-branch EBP 15 cc=
Successors: 32, 39
=== Basic block #32
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 33
=== Basic block #33
##call fixnum>bignum
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #37
##call shift
##branch
Successors: 38
=== Basic block #38
##branch
Successors: 44
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call bignum*
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call shift
##branch
Successors: 43
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 45
=== Basic block #45
##call >integer
##branch
Successors: 46
=== Basic block #46
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 47
=== Basic block #47
##call set-alien-unsigned-cell
##branch
Successors: 48
=== Basic block #48
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 4 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-cell
##branch
Successors: 50
=== Basic block #50
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 51
=== Basic block #51
##call alien-unsigned-cell
##branch
Successors: 52
=== Basic block #52
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 53, 62
=== Basic block #53
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 54, 57
=== Basic block #54
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 55
=== Basic block #55
##call shift
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 83
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum*overflow
##branch
Successors: 59
=== Basic block #59
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call shift
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 83
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 70
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##call shift
##branch
Successors: 69
=== Basic block #69
##branch
Successors: 83
=== Basic block #70
##test-imm-branch EBP 15 cc=
Successors: 71, 78
=== Basic block #71
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 74
=== Basic block #74
##call bignum*
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 76
=== Basic block #76
##call shift
##branch
Successors: 77
=== Basic block #77
##branch
Successors: 83
=== Basic block #78
##branch
Successors: 79
=== Basic block #79
##call bignum*
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call shift
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-cell
##branch
Successors: 87
=== Basic block #87
##inc-r 3
##inc-d 2
##peek EBP R 5
##replace EBP R 0
##replace-imm 8 D 0
##peek EBP R 4
##replace EBP R 1
##peek EBP R 6
##replace EBP D 1
##peek EBP R 3
##replace EBP R 2
##branch
Successors: 88
=== Basic block #88
##call alien-unsigned-cell
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 90
=== Basic block #90
##call alien-unsigned-cell
##branch
Successors: 91
=== Basic block #91
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 92, 101
=== Basic block #92
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 93, 96
=== Basic block #93
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 94
=== Basic block #94
##call shift
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 122
=== Basic block #96
##branch
Successors: 97
=== Basic block #97
##call fixnum*overflow
##branch
Successors: 98
=== Basic block #98
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 99
=== Basic block #99
##call shift
##branch
Successors: 100
=== Basic block #100
##branch
Successors: 122
=== Basic block #101
##test-imm-branch EAX 15 cc=
Successors: 102, 109
=== Basic block #102
##branch
Successors: 103
=== Basic block #103
##call fixnum>bignum
##branch
Successors: 104
=== Basic block #104
##branch
Successors: 105
=== Basic block #105
##call bignum*
##branch
Successors: 106
=== Basic block #106
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 107
=== Basic block #107
##call shift
##branch
Successors: 108
=== Basic block #108
##branch
Successors: 122
=== Basic block #109
##test-imm-branch EBP 15 cc=
Successors: 110, 117
=== Basic block #110
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 115
=== Basic block #115
##call shift
##branch
Successors: 116
=== Basic block #116
##branch
Successors: 122
=== Basic block #117
##branch
Successors: 118
=== Basic block #118
##call bignum*
##branch
Successors: 119
=== Basic block #119
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 120
=== Basic block #120
##call shift
##branch
Successors: 121
=== Basic block #121
##branch
Successors: 122
=== Basic block #122
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 123
=== Basic block #123
##call >integer
##branch
Successors: 124
=== Basic block #124
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 125
=== Basic block #125
##call set-alien-unsigned-cell
##branch
Successors: 126
=== Basic block #126
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 127
=== Basic block #127
##call alien-unsigned-cell
##branch
Successors: 128
=== Basic block #128
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 129
=== Basic block #129
##call alien-unsigned-cell
##branch
Successors: 130
=== Basic block #130
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 131, 140
=== Basic block #131
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 132, 135
=== Basic block #132
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 133
=== Basic block #133
##call shift
##branch
Successors: 134
=== Basic block #134
##branch
Successors: 161
=== Basic block #135
##branch
Successors: 136
=== Basic block #136
##call fixnum*overflow
##branch
Successors: 137
=== Basic block #137
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 138
=== Basic block #138
##call shift
##branch
Successors: 139
=== Basic block #139
##branch
Successors: 161
=== Basic block #140
##test-imm-branch EAX 15 cc=
Successors: 141, 148
=== Basic block #141
##branch
Successors: 142
=== Basic block #142
##call fixnum>bignum
##branch
Successors: 143
=== Basic block #143
##branch
Successors: 144
=== Basic block #144
##call bignum*
##branch
Successors: 145
=== Basic block #145
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 146
=== Basic block #146
##call shift
##branch
Successors: 147
=== Basic block #147
##branch
Successors: 161
=== Basic block #148
##test-imm-branch EBP 15 cc=
Successors: 149, 156
=== Basic block #149
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 150
=== Basic block #150
##call fixnum>bignum
##branch
Successors: 151
=== Basic block #151
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 152
=== Basic block #152
##call bignum*
##branch
Successors: 153
=== Basic block #153
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 154
=== Basic block #154
##call shift
##branch
Successors: 155
=== Basic block #155
##branch
Successors: 161
=== Basic block #156
##branch
Successors: 157
=== Basic block #157
##call bignum*
##branch
Successors: 158
=== Basic block #158
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 159
=== Basic block #159
##call shift
##branch
Successors: 160
=== Basic block #160
##branch
Successors: 161
=== Basic block #161
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 162
=== Basic block #162
##call >integer
##branch
Successors: 163
=== Basic block #163
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 164
=== Basic block #164
##call set-alien-unsigned-cell
##branch
Successors: 165
=== Basic block #165
##check-nursery-branch 16 cc<= EBP EAX
Successors: 167, 166
=== Basic block #166
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 167
=== Basic block #167
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 168
=== Basic block #168
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 818 926 367 188 } uint-4{ 223 606 907 690 } ]
[ { uint-4 uint-4 } declare \ v*high execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[ uint-4{ 123 51 990 180 } ]
[ { uint-4 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##andn-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 379 486 952 677 } uint-4{ 841 312 636 259 } ]
[ { uint-4 uint-4 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##zero-vector XMM1 uint-4-rep
##sub-vector XMM1 XMM1 XMM0 uint-4-rep
##store-memory-imm XMM1 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 360 606 72 827 } ]
[ { uint-4 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 6
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##sub-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EAX 7 uint-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 56 uint-4{ 590 787 139 562 } ]
[ { bignum uint-4 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 560 861 222 827 } uint-4{ 512 139 503 738 } ]
[ { uint-4 uint-4 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 64
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 6
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##sub-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 936 90 933 417 } 455 ]
[ { uint-4 bignum } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 uint-4-rep f
##load-memory-imm XMM1 EBP 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM2 B{ 255 255 255 255 0 0 0 0 255 255 255 255 0 0 0 0 } uint-4-rep
##xor-vector XMM0 XMM0 XMM2 uint-4-rep
##sub-vector XMM0 XMM0 XMM2 uint-4-rep
##add-vector XMM1 XMM1 XMM0 uint-4-rep
##store-memory-imm XMM1 EBX 7 uint-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 280 358 977 863 } uint-4{ 694 502 563 70 } ]
[ { uint-4 uint-4 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##fill-vector XMM1 uint-4-rep
##xor-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBX 7 uint-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 488 587 842 59 } ]
[ { uint-4 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ uint-4{ 828 637 412 276 } ]
[ { uint-4 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-cell
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-cell
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 48
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -4
##inc-d 4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 6
##inc-d -2
##add-imm ECX EDX 1
##shl-imm ECX ECX 4
##replace ECX R 1
##shl-imm ECX EDX 4
##replace ECX R 2
##replace EBP R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EDX EDX 2
##add-imm EDX EDX 4
##shl-imm EDX EDX 4
##replace EDX D 0
##replace EAX D 1
##replace EBX R 0
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-cell
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -1
##shl-imm EBP EBP 2
##replace EBP D 0
##peek EBP R -2
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-cell
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek ECX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek ECX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX ECX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add ECX ECX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##replace ECX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #66
##test-imm-branch ECX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 2
##peek EAX R 3
##peek EDX R 0
##peek EBP R 1
##branch
Successors: 27
=== Basic block #75
##inc-d -4
##branch
Successors: 76
=== Basic block #76
##call >float
##branch
Successors: 77
=== Basic block #77
##check-nursery-branch 16 cc<= EAX EBP
Successors: 79, 78
=== Basic block #78
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 79
=== Basic block #79
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EBP 16 float EAX
##sqrt XMM0 XMM0
##store-memory-imm XMM0 EBP 5 double-rep f
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 361 96 745 80 } ]
[ { uint-4 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##and-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 14 731 211 923 } uint-4{ 383 497 385 324 } ]
[ { uint-4 uint-4 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shl-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EAX 7 uint-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 619 133 732 409 } 548 ]
[ { uint-4 bignum } declare \ vlshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 611 28 166 876 } uint-4{ 357 433 644 883 } ]
[ { uint-4 uint-4 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##zero-vector XMM0 uint-4-rep
##store-memory-imm XMM0 EAX 7 uint-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 647 597 685 530 } uint-4{ 392 228 435 626 } ]
[ { uint-4 uint-4 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 2
##peek EBP D 2
##replace-imm 0 D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-cell
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##load-integer EAX 1
##load-tagged EBX 64
##peek EDX D 2
##replace EDX D 3
##branch
Successors: 5
=== Basic block #4
##inc-r -3
##inc-d 3
##sar-imm EAX EAX 4
##add-imm EAX EAX 1
##safepoint
##branch
Successors: 5
=== Basic block #5
##sar-imm EDX EBX 4
##compare-integer-branch EAX EDX cc<
Successors: 6, 29
=== Basic block #6
##inc-r 3
##inc-d -1
##shl-imm EDX EAX 4
##replace EDX R 0
##replace EBX R 1
##replace EBP R 2
##shl-imm EAX EAX 6
##replace EAX D 0
##replace EBP D 1
##branch
Successors: 7
=== Basic block #7
##call alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##peek EDX D 1
##peek EBP D 0
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 9, 14
=== Basic block #9
##fixnum-add EDX EDX EBP cc/o
Successors: 10, 11
=== Basic block #10
##inc-d -1
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##replace EDX D 0
##branch
Successors: 4
=== Basic block #11
##branch
Successors: 12
=== Basic block #12
##call fixnum+overflow
##branch
Successors: 13
=== Basic block #13
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #14
##test-imm-branch EBP 15 cc=
Successors: 15, 20
=== Basic block #15
##branch
Successors: 16
=== Basic block #16
##call fixnum>bignum
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call bignum+
##branch
Successors: 19
=== Basic block #19
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EDX 15 cc=
Successors: 21, 26
=== Basic block #21
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 24
=== Basic block #24
##call bignum+
##branch
Successors: 25
=== Basic block #25
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum+
##branch
Successors: 28
=== Basic block #28
##peek EBX R 1
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 4
=== Basic block #29
##inc-d -3
##branch
Successors: 30
=== Basic block #30
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ uint-4{ 722 157 899 558 } ]
[ { uint-4 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ uint-4{ 664 944 154 139 } ]
[ { uint-4 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 2
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##replace EAX R 0
##replace EBP R 1
##replace-imm longlong-2-rep D 0
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 64 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 6
##inc-d 2
##peek EBP R 7
##load-reference EAX { uint-array 2 1 tuple -65101626 uint-array 48457261 }
##allot EBX 16 tuple EDX
##set-slot-imm EAX EBX 1 7
##set-slot-imm EBP EBX 2 7
##peek EBP R 6
##load-tagged EDX 64
##set-slot-imm EDX EBX 3 7
##spill EBX tagged-rep T{ spill-slot }
##allot ECX 16 tuple EBX
##set-slot-imm EAX ECX 1 7
##set-slot-imm EBP ECX 2 7
##set-slot-imm EDX ECX 3 7
##allot EBP 32 byte-array EAX
##replace EBP R 7
##replace ECX R 0
##peek EAX D 2
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EBP R 3
##replace-imm 2 D 1
##reload EBX tagged-rep T{ spill-slot }
##replace EBX D 0
##replace-imm 0 D 2
##replace EAX R 4
##replace ECX R 5
##replace EBX R 6
##replace EAX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call subseq
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 3
##replace-imm 0 D 2
##replace-imm 2 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##call subseq
##branch
Successors: 9
=== Basic block #9
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##replace EBP R 2
##replace EAX D 0
##replace-imm 0 D 1
##replace EAX R 1
##replace EBP R 0
##branch
Successors: 10
=== Basic block #10
##call nth
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##replace-imm 0 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call nth
##branch
Successors: 13
=== Basic block #13
##branch
Successors: 14
=== Basic block #14
##call *
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 16
=== Basic block #16
##call nth
##branch
Successors: 17
=== Basic block #17
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 18
=== Basic block #18
##call nth
##branch
Successors: 19
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call *
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call +
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 2
##peek EBP R -1
##compare-imm-branch EBP float cc=
Successors: 24, 26
=== Basic block #24
##inc-d -1
##branch
Successors: 25
=== Basic block #25
##inc-d -1
##branch
Successors: 35
=== Basic block #26
##inc-d -1
##compare-imm-branch EBP double cc=
Successors: 27, 28
=== Basic block #27
##inc-d -1
##branch
Successors: 35
=== Basic block #28
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call c-type-interval
##branch
Successors: 30
=== Basic block #30
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 31
=== Basic block #31
##call max
##branch
Successors: 32
=== Basic block #32
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 33
=== Basic block #33
##call min
##branch
Successors: 34
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 36
=== Basic block #36
##call >integer
##branch
Successors: 37
=== Basic block #37
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 38
=== Basic block #38
##call set-alien-signed-8
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 3
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 4 D 1
##replace EBP D 0
##replace-imm 2 D 2
##branch
Successors: 40
=== Basic block #40
##call subseq
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 3
##replace-imm 2 D 2
##replace-imm 4 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call subseq
##branch
Successors: 43
=== Basic block #43
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##replace EAX R 1
##replace EAX D 0
##replace EBP R 2
##replace-imm 0 D 1
##replace EBP R 0
##branch
Successors: 44
=== Basic block #44
##call nth
##branch
Successors: 45
=== Basic block #45
##inc-r -1
##inc-d 2
##replace-imm 0 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 46
=== Basic block #46
##call nth
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 48
=== Basic block #48
##call *
##branch
Successors: 49
=== Basic block #49
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call nth
##branch
Successors: 51
=== Basic block #51
##inc-r -1
##inc-d 2
##replace-imm 1 D 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 52
=== Basic block #52
##call nth
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call *
##branch
Successors: 55
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call +
##branch
Successors: 57
=== Basic block #57
##inc-r -1
##inc-d 2
##peek EBP R -1
##compare-imm-branch EBP float cc=
Successors: 58, 60
=== Basic block #58
##inc-d -1
##branch
Successors: 59
=== Basic block #59
##inc-d -1
##branch
Successors: 69
=== Basic block #60
##inc-d -1
##compare-imm-branch EBP double cc=
Successors: 61, 62
=== Basic block #61
##inc-d -1
##branch
Successors: 69
=== Basic block #62
##replace EBP D 0
##branch
Successors: 63
=== Basic block #63
##call c-type-interval
##branch
Successors: 64
=== Basic block #64
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 65
=== Basic block #65
##call max
##branch
Successors: 66
=== Basic block #66
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 67
=== Basic block #67
##call min
##branch
Successors: 68
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 70
=== Basic block #70
##call >integer
##branch
Successors: 71
=== Basic block #71
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call set-alien-signed-8
##branch
Successors: 73
=== Basic block #73
##check-nursery-branch 16 cc<= EAX EBP
Successors: 75, 74
=== Basic block #74
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 959 133 65 89 } uint-4{ 79 469 447 678 } ]
[ { uint-4 uint-4 } declare \ v*hs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##or-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 291 244 947 191 } uint-4{ 952 382 317 711 } ]
[ { uint-4 uint-4 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##max-vector XMM2 XMM0 XMM1 uint-4-rep
##compare-vector XMM2 XMM2 XMM0 uint-4-rep cc=
##store-memory-imm XMM2 EBX 7 uint-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 159 456 520 751 } uint-4{ 30 824 153 980 } ]
[ { uint-4 uint-4 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot ECX 12 tuple EBX
##load-reference EBX { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBX ECX 1 7
##load-tagged EBX 64
##set-slot-imm EDX ECX 2 7
##load-tagged EDX 0
##replace ECX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EBP EBP 2
##replace EBP R 0
##slot-imm EBX EBX 2 7
##replace EBX R 1
##replace EAX D 0
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-cell
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EBX R -4
##peek EBP R -1
##peek ECX R -3
##peek EAX R -2
##peek EDX R -5
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch EDX EBX cc<
Successors: 10, 42
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EBX R 5
##replace EDX R 0
##replace EAX R 1
##shl-imm EBX EDX 2
##replace EBX D 0
##replace EBP D 1
##replace ECX R 6
##replace EAX R 7
##replace EBP R 8
##replace EDX R 2
##replace ECX R 3
##replace EDX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-unsigned-cell
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 2
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-unsigned-cell
##branch
Successors: 14
=== Basic block #14
##peek EAX D 1
##peek EBP D 0
##or EBX EAX EBP
##test-imm-branch EBX 15 cc=
Successors: 15, 20
=== Basic block #15
##fixnum-sub EAX EAX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##replace EAX D 0
##branch
Successors: 35
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum-overflow
##branch
Successors: 19
=== Basic block #19
##peek EAX D 0
##branch
Successors: 35
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EAX D 0
##branch
Successors: 35
=== Basic block #26
##test-imm-branch EAX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum-
##branch
Successors: 31
=== Basic block #31
##peek EAX D 0
##branch
Successors: 35
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum-
##branch
Successors: 34
=== Basic block #34
##peek EAX D 0
##branch
Successors: 35
=== Basic block #35
##inc-d 1
##load-integer EDX 0
##test-imm-branch EAX 15 cc=
Successors: 36, 37
=== Basic block #36
##inc-d -1
##peek EBX R 1
##peek EBP R 0
##sar-imm EAX EAX 4
##max EAX EAX EDX
##shl-imm EAX EAX 4
##branch
Successors: 4
=== Basic block #37
##inc-r 2
##replace-imm 0 D 0
##replace-imm 0 R 1
##replace EAX R 0
##branch
Successors: 38
=== Basic block #38
##call bignum>
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 1
##peek EBP R 0
##peek EAX R -2
##peek EBX R 1
##peek EDX R -1
##peek ECX D 1
##compare-imm-branch ECX f cc/=
Successors: 40, 41
=== Basic block #40
##inc-d -1
##branch
Successors: 4
=== Basic block #41
##inc-d -1
##copy EAX EDX tagged-rep
##branch
Successors: 4
=== Basic block #42
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 546 403 763 347 } uint-4{ 483 758 640 396 } ]
[ { uint-4 uint-4 } declare \ [v-] execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EDX
##replace EBX R 5
##load-tagged EDX 256
##set-slot-imm EDX EBX 1 9
##replace EBX R 1
##replace EBX R 2
##replace EBP R 3
##replace EAX R 4
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-cell
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-cell
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##fixnum-add EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum+overflow
##branch
Successors: 12
=== Basic block #12
##peek EBP D 0
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum+
##branch
Successors: 18
=== Basic block #18
##peek EBP D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum+
##branch
Successors: 24
=== Basic block #24
##peek EBP D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum+
##branch
Successors: 27
=== Basic block #27
##peek EBP D 0
##branch
Successors: 28
=== Basic block #28
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-add EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##replace EBP D 0
##branch
Successors: 39
=== Basic block #31
##replace-imm 1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum+overflow
##branch
Successors: 33
=== Basic block #33
##peek EBP D 0
##branch
Successors: 39
=== Basic block #34
##replace-imm 1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum+
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##branch
Successors: 39
=== Basic block #39
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 40, 45
=== Basic block #40
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 0 R 0
##branch
Successors: 41
=== Basic block #41
##call >integer
##branch
Successors: 42
=== Basic block #42
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##call set-alien-unsigned-cell
##branch
Successors: 44
=== Basic block #44
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 52
=== Basic block #45
##replace-imm -1 D 0
##branch
Successors: 46
=== Basic block #46
##call bignum-shift
##branch
Successors: 47
=== Basic block #47
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 48
=== Basic block #48
##call >integer
##branch
Successors: 49
=== Basic block #49
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call set-alien-unsigned-cell
##branch
Successors: 51
=== Basic block #51
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 52
=== Basic block #52
##inc-r 2
##inc-d 2
##replace EAX R 1
##replace-imm 4 D 0
##replace EBP D 1
##replace EBX R 0
##branch
Successors: 53
=== Basic block #53
##call alien-unsigned-cell
##branch
Successors: 54
=== Basic block #54
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 4 D 0
##branch
Successors: 55
=== Basic block #55
##call alien-unsigned-cell
##branch
Successors: 56
=== Basic block #56
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 57, 62
=== Basic block #57
##fixnum-add EBP EBP EAX cc/o
Successors: 58, 59
=== Basic block #58
##inc-d -1
##replace EBP D 0
##branch
Successors: 77
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call fixnum+overflow
##branch
Successors: 61
=== Basic block #61
##peek EBP D 0
##branch
Successors: 77
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 68
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EBP D 0
##branch
Successors: 77
=== Basic block #68
##test-imm-branch EBP 15 cc=
Successors: 69, 74
=== Basic block #69
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 70
=== Basic block #70
##call fixnum>bignum
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call bignum+
##branch
Successors: 73
=== Basic block #73
##peek EBP D 0
##branch
Successors: 77
=== Basic block #74
##branch
Successors: 75
=== Basic block #75
##call bignum+
##branch
Successors: 76
=== Basic block #76
##peek EBP D 0
##branch
Successors: 77
=== Basic block #77
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 78, 83
=== Basic block #78
##fixnum-add EBP EBP EAX cc/o
Successors: 79, 80
=== Basic block #79
##inc-d -1
##replace EBP D 0
##branch
Successors: 88
=== Basic block #80
##replace-imm 1 D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum+overflow
##branch
Successors: 82
=== Basic block #82
##peek EBP D 0
##branch
Successors: 88
=== Basic block #83
##replace-imm 1 D 0
##branch
Successors: 84
=== Basic block #84
##call fixnum>bignum
##branch
Successors: 85
=== Basic block #85
##branch
Successors: 86
=== Basic block #86
##call bignum+
##branch
Successors: 87
=== Basic block #87
##peek EBP D 0
##branch
Successors: 88
=== Basic block #88
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 89, 94
=== Basic block #89
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 4 R 0
##branch
Successors: 90
=== Basic block #90
##call >integer
##branch
Successors: 91
=== Basic block #91
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 92
=== Basic block #92
##call set-alien-unsigned-cell
##branch
Successors: 93
=== Basic block #93
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 101
=== Basic block #94
##replace-imm -1 D 0
##branch
Successors: 95
=== Basic block #95
##call bignum-shift
##branch
Successors: 96
=== Basic block #96
##inc-r 1
##replace-imm 4 R 0
##branch
Successors: 97
=== Basic block #97
##call >integer
##branch
Successors: 98
=== Basic block #98
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 99
=== Basic block #99
##call set-alien-unsigned-cell
##branch
Successors: 100
=== Basic block #100
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 101
=== Basic block #101
##inc-r 2
##inc-d 2
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##replace EBX R 0
##branch
Successors: 102
=== Basic block #102
##call alien-unsigned-cell
##branch
Successors: 103
=== Basic block #103
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 104
=== Basic block #104
##call alien-unsigned-cell
##branch
Successors: 105
=== Basic block #105
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 106, 111
=== Basic block #106
##fixnum-add EBP EBP EAX cc/o
Successors: 107, 108
=== Basic block #107
##inc-d -1
##replace EBP D 0
##branch
Successors: 126
=== Basic block #108
##branch
Successors: 109
=== Basic block #109
##call fixnum+overflow
##branch
Successors: 110
=== Basic block #110
##peek EBP D 0
##branch
Successors: 126
=== Basic block #111
##test-imm-branch EAX 15 cc=
Successors: 112, 117
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call fixnum>bignum
##branch
Successors: 114
=== Basic block #114
##branch
Successors: 115
=== Basic block #115
##call bignum+
##branch
Successors: 116
=== Basic block #116
##peek EBP D 0
##branch
Successors: 126
=== Basic block #117
##test-imm-branch EBP 15 cc=
Successors: 118, 123
=== Basic block #118
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 119
=== Basic block #119
##call fixnum>bignum
##branch
Successors: 120
=== Basic block #120
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 121
=== Basic block #121
##call bignum+
##branch
Successors: 122
=== Basic block #122
##peek EBP D 0
##branch
Successors: 126
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##call bignum+
##branch
Successors: 125
=== Basic block #125
##peek EBP D 0
##branch
Successors: 126
=== Basic block #126
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 127, 132
=== Basic block #127
##fixnum-add EBP EBP EAX cc/o
Successors: 128, 129
=== Basic block #128
##inc-d -1
##replace EBP D 0
##branch
Successors: 137
=== Basic block #129
##replace-imm 1 D 0
##branch
Successors: 130
=== Basic block #130
##call fixnum+overflow
##branch
Successors: 131
=== Basic block #131
##peek EBP D 0
##branch
Successors: 137
=== Basic block #132
##replace-imm 1 D 0
##branch
Successors: 133
=== Basic block #133
##call fixnum>bignum
##branch
Successors: 134
=== Basic block #134
##branch
Successors: 135
=== Basic block #135
##call bignum+
##branch
Successors: 136
=== Basic block #136
##peek EBP D 0
##branch
Successors: 137
=== Basic block #137
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 138, 143
=== Basic block #138
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 139
=== Basic block #139
##call >integer
##branch
Successors: 140
=== Basic block #140
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 141
=== Basic block #141
##call set-alien-unsigned-cell
##branch
Successors: 142
=== Basic block #142
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 150
=== Basic block #143
##replace-imm -1 D 0
##branch
Successors: 144
=== Basic block #144
##call bignum-shift
##branch
Successors: 145
=== Basic block #145
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 146
=== Basic block #146
##call >integer
##branch
Successors: 147
=== Basic block #147
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 148
=== Basic block #148
##call set-alien-unsigned-cell
##branch
Successors: 149
=== Basic block #149
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 150
=== Basic block #150
##inc-r -1
##inc-d 2
##replace EAX R 1
##replace-imm 12 D 0
##replace EBP D 1
##branch
Successors: 151
=== Basic block #151
##call alien-unsigned-cell
##branch
Successors: 152
=== Basic block #152
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 12 D 0
##branch
Successors: 153
=== Basic block #153
##call alien-unsigned-cell
##branch
Successors: 154
=== Basic block #154
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 155, 160
=== Basic block #155
##fixnum-add EBP EBP EAX cc/o
Successors: 156, 157
=== Basic block #156
##inc-d -1
##replace EBP D 0
##branch
Successors: 175
=== Basic block #157
##branch
Successors: 158
=== Basic block #158
##call fixnum+overflow
##branch
Successors: 159
=== Basic block #159
##peek EBP D 0
##branch
Successors: 175
=== Basic block #160
##test-imm-branch EAX 15 cc=
Successors: 161, 166
=== Basic block #161
##branch
Successors: 162
=== Basic block #162
##call fixnum>bignum
##branch
Successors: 163
=== Basic block #163
##branch
Successors: 164
=== Basic block #164
##call bignum+
##branch
Successors: 165
=== Basic block #165
##peek EBP D 0
##branch
Successors: 175
=== Basic block #166
##test-imm-branch EBP 15 cc=
Successors: 167, 172
=== Basic block #167
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 168
=== Basic block #168
##call fixnum>bignum
##branch
Successors: 169
=== Basic block #169
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 170
=== Basic block #170
##call bignum+
##branch
Successors: 171
=== Basic block #171
##peek EBP D 0
##branch
Successors: 175
=== Basic block #172
##branch
Successors: 173
=== Basic block #173
##call bignum+
##branch
Successors: 174
=== Basic block #174
##peek EBP D 0
##branch
Successors: 175
=== Basic block #175
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 176, 181
=== Basic block #176
##fixnum-add EBP EBP EAX cc/o
Successors: 177, 178
=== Basic block #177
##inc-d -1
##replace EBP D 0
##branch
Successors: 186
=== Basic block #178
##replace-imm 1 D 0
##branch
Successors: 179
=== Basic block #179
##call fixnum+overflow
##branch
Successors: 180
=== Basic block #180
##peek EBP D 0
##branch
Successors: 186
=== Basic block #181
##replace-imm 1 D 0
##branch
Successors: 182
=== Basic block #182
##call fixnum>bignum
##branch
Successors: 183
=== Basic block #183
##branch
Successors: 184
=== Basic block #184
##call bignum+
##branch
Successors: 185
=== Basic block #185
##peek EBP D 0
##branch
Successors: 186
=== Basic block #186
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 187, 193
=== Basic block #187
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 12 R 0
##branch
Successors: 188
=== Basic block #188
##call >integer
##branch
Successors: 189
=== Basic block #189
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 190
=== Basic block #190
##call set-alien-unsigned-cell
##branch
Successors: 191
=== Basic block #191
##peek EBP R 0
##branch
Successors: 192
=== Basic block #192
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 200
=== Basic block #193
##replace-imm -1 D 0
##branch
Successors: 194
=== Basic block #194
##call bignum-shift
##branch
Successors: 195
=== Basic block #195
##inc-r 1
##replace-imm 12 R 0
##branch
Successors: 196
=== Basic block #196
##call >integer
##branch
Successors: 197
=== Basic block #197
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 198
=== Basic block #198
##call set-alien-unsigned-cell
##branch
Successors: 199
=== Basic block #199
##peek EBP R 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 200
=== Basic block #200
##check-nursery-branch 16 cc<= EBX EAX
Successors: 202, 201
=== Basic block #201
##save-context EBX EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { T{ spill-slot } } }
{ derived-roots V{ } }
}
##branch
Successors: 202
=== Basic block #202
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##reload EBP tagged-rep T{ spill-slot }
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 203
=== Basic block #203
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 917 597 324 798 } uint-4{ 21 889 683 331 } ]
[ { uint-4 uint-4 } declare \ vavg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 uint-4-rep f
##load-memory-imm XMM1 EAX 7 uint-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP { uint-4 1 2 tuple -65101626 simd-128 8440422 uint-4 28371579 }
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##xor-vector XMM0 XMM0 XMM1 uint-4-rep
##store-memory-imm XMM0 EBP 7 uint-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ uint-4{ 914 812 662 742 } uint-4{ 682 849 56 317 } ]
[ { uint-4 uint-4 } declare \ vbitxor execute ]
Unit Test: { [ { } ] [ \ longlong-2 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##compare-vector XMM0 XMM0 XMM1 longlong-2-rep cc=
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 673 7 } longlong-2{ 839 300 } ]
[ { longlong-2 longlong-2 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 4
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##replace EAX R 3
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##replace EAX R 0
##replace EAX R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##inc-d 2
##peek EBP D 2
##test-imm-branch EBP 15 cc=
Successors: 6, 19
=== Basic block #6
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 7, 18
=== Basic block #7
##inc-d 1
##load-integer EBP -1
##peek EAX D 1
##test-imm-branch EAX 15 cc=
Successors: 8, 13
=== Basic block #8
##fixnum-mul EAX EAX EBP cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EAX D 0
##branch
Successors: 36
=== Basic block #10
##replace-imm -1 D 0
##branch
Successors: 11
=== Basic block #11
##call fixnum*overflow
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 36
=== Basic block #13
##replace-imm -1 D 0
##branch
Successors: 14
=== Basic block #14
##call fixnum>bignum
##branch
Successors: 15
=== Basic block #15
##branch
Successors: 16
=== Basic block #16
##call bignum*
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 36
=== Basic block #18
##branch
Successors: 36
=== Basic block #19
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 20
=== Basic block #20
##call fixnum>bignum
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call bignum<
##branch
Successors: 23
=== Basic block #23
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 24, 35
=== Basic block #24
##inc-d 1
##load-integer EBP -1
##peek EAX D 1
##test-imm-branch EAX 15 cc=
Successors: 25, 30
=== Basic block #25
##fixnum-mul EAX EAX EBP cc/o
Successors: 26, 27
=== Basic block #26
##inc-d -1
##replace EAX D 0
##branch
Successors: 36
=== Basic block #27
##replace-imm -1 D 0
##branch
Successors: 28
=== Basic block #28
##call fixnum*overflow
##branch
Successors: 29
=== Basic block #29
##branch
Successors: 36
=== Basic block #30
##replace-imm -1 D 0
##branch
Successors: 31
=== Basic block #31
##call fixnum>bignum
##branch
Successors: 32
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum*
##branch
Successors: 34
=== Basic block #34
##branch
Successors: 36
=== Basic block #35
##branch
Successors: 36
=== Basic block #36
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 37
=== Basic block #37
##call >integer
##branch
Successors: 38
=== Basic block #38
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 39
=== Basic block #39
##call set-alien-signed-8
##branch
Successors: 40
=== Basic block #40
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R -1
##replace EAX R 0
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 41
=== Basic block #41
##call alien-signed-8
##branch
Successors: 42
=== Basic block #42
##inc-d 2
##peek EBP D 2
##test-imm-branch EBP 15 cc=
Successors: 43, 56
=== Basic block #43
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 44, 55
=== Basic block #44
##inc-d 1
##load-integer EBP -1
##peek EAX D 1
##test-imm-branch EAX 15 cc=
Successors: 45, 50
=== Basic block #45
##fixnum-mul EAX EAX EBP cc/o
Successors: 46, 47
=== Basic block #46
##inc-d -1
##replace EAX D 0
##branch
Successors: 73
=== Basic block #47
##replace-imm -1 D 0
##branch
Successors: 48
=== Basic block #48
##call fixnum*overflow
##branch
Successors: 49
=== Basic block #49
##branch
Successors: 73
=== Basic block #50
##replace-imm -1 D 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##branch
Successors: 53
=== Basic block #53
##call bignum*
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 73
=== Basic block #55
##branch
Successors: 73
=== Basic block #56
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 57
=== Basic block #57
##call fixnum>bignum
##branch
Successors: 58
=== Basic block #58
##branch
Successors: 59
=== Basic block #59
##call bignum<
##branch
Successors: 60
=== Basic block #60
##inc-d -1
##peek EBP D -1
##compare-imm-branch EBP f cc/=
Successors: 61, 72
=== Basic block #61
##inc-d 1
##load-integer EBP -1
##peek EAX D 1
##test-imm-branch EAX 15 cc=
Successors: 62, 67
=== Basic block #62
##fixnum-mul EAX EAX EBP cc/o
Successors: 63, 64
=== Basic block #63
##inc-d -1
##replace EAX D 0
##branch
Successors: 73
=== Basic block #64
##replace-imm -1 D 0
##branch
Successors: 65
=== Basic block #65
##call fixnum*overflow
##branch
Successors: 66
=== Basic block #66
##branch
Successors: 73
=== Basic block #67
##replace-imm -1 D 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##branch
Successors: 70
=== Basic block #70
##call bignum*
##branch
Successors: 71
=== Basic block #71
##branch
Successors: 73
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 74
=== Basic block #74
##call >integer
##branch
Successors: 75
=== Basic block #75
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 76
=== Basic block #76
##call set-alien-signed-8
##branch
Successors: 77
=== Basic block #77
##check-nursery-branch 16 cc<= EBP EAX
Successors: 79, 78
=== Basic block #78
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 79
=== Basic block #79
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 48 288 } ]
[ { longlong-2 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EDX
##load-tagged EDX 256
##set-slot-imm EDX EBX 1 9
##replace EBX R 1
##replace EBX R 2
##replace EBP R 3
##replace EAX R 4
##replace EBX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum*overflow
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum*
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum*
##branch
Successors: 24
=== Basic block #24
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 29
=== Basic block #29
##call >integer
##branch
Successors: 30
=== Basic block #30
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 31
=== Basic block #31
##call set-alien-signed-8
##branch
Successors: 32
=== Basic block #32
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 33
=== Basic block #33
##call alien-signed-8
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 35
=== Basic block #35
##call alien-signed-8
##branch
Successors: 36
=== Basic block #36
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 37, 42
=== Basic block #37
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 38, 39
=== Basic block #38
##inc-d -1
##replace EBP D 0
##branch
Successors: 57
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call fixnum*overflow
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 57
=== Basic block #42
##test-imm-branch EAX 15 cc=
Successors: 43, 48
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##call fixnum>bignum
##branch
Successors: 45
=== Basic block #45
##branch
Successors: 46
=== Basic block #46
##call bignum*
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 57
=== Basic block #48
##test-imm-branch EBP 15 cc=
Successors: 49, 54
=== Basic block #49
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 50
=== Basic block #50
##call fixnum>bignum
##branch
Successors: 51
=== Basic block #51
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 57
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 57
=== Basic block #57
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 58
=== Basic block #58
##call >integer
##branch
Successors: 59
=== Basic block #59
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call set-alien-signed-8
##branch
Successors: 61
=== Basic block #61
##check-nursery-branch 16 cc<= EAX EBP
Successors: 63, 62
=== Basic block #62
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 63
=== Basic block #63
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 664 466 } longlong-2{ 696 146 } ]
[ { longlong-2 longlong-2 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 3
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBP R 9
##replace EBX R 2
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc<
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum<
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum<
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum<
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-signed-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-signed-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-signed-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc<
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum<
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum<
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum<
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-signed-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 545 156 } longlong-2{ 573 832 } ]
[ { longlong-2 longlong-2 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 227 85 } 370 ]
[ { longlong-2 bignum } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 9
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBX R 2
##replace EBP R 3
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc>
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum>
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum>
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-signed-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-signed-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-signed-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc>
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum>
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum>
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum>
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-signed-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 580 996 } longlong-2{ 877 71 } ]
[ { longlong-2 longlong-2 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EAX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EAX R 1
##replace EBX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EAX R -2
##peek EBX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##add-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBX 7 longlong-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 75 longlong-2{ 714 643 } ]
[ { bignum longlong-2 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call alien-signed-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##replace-imm 8 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-signed-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ longlong-2{ 766 217 } ]
[ { longlong-2 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 184 98 } longlong-2{ 443 134 } ]
[ { longlong-2 longlong-2 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##replace EAX R 1
##slot-imm EBP EBP 2 7
##replace EBP R 2
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace EAX D 1
##replace-imm 8 D 0
##branch
Successors: 30
=== Basic block #30
##call alien-signed-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 32
=== Basic block #32
##call alien-signed-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ longlong-2{ 521 847 } longlong-2{ 29 461 } ]
[ { longlong-2 longlong-2 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 722 669 } longlong-2{ 332 44 } ]
[ { longlong-2 longlong-2 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##replace EDX R 1
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##branch
Successors: 8
=== Basic block #8
##call min
##branch
Successors: 9
=== Basic block #9
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 10
=== Basic block #10
##call >integer
##branch
Successors: 11
=== Basic block #11
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call set-alien-signed-8
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 14
=== Basic block #14
##call alien-signed-8
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 16
=== Basic block #16
##call alien-signed-8
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call min
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 20
=== Basic block #20
##call >integer
##branch
Successors: 21
=== Basic block #21
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call set-alien-signed-8
##branch
Successors: 23
=== Basic block #23
##check-nursery-branch 16 cc<= EAX EBP
Successors: 25, 24
=== Basic block #24
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 25
=== Basic block #25
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 26
=== Basic block #26
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 502 574 } longlong-2{ 370 977 } ]
[ { longlong-2 longlong-2 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-sub EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum-overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum-
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum-
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum-
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-signed-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-sub EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum-overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum-
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum-
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum-
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EAX EBP
Successors: 89, 88
=== Basic block #88
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 903 469 } longlong-2{ 996 639 } ]
[ { longlong-2 longlong-2 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-add EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum+overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum+
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum+
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum+
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-signed-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-add EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum+overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum+
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum+
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EBP EAX
Successors: 89, 88
=== Basic block #88
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 804 322 } longlong-2{ 54 40 } ]
[ { longlong-2 longlong-2 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum*overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum*
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum*
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum*
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-signed-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-signed-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-signed-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum*overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum*
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum*
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EAX EBP
Successors: 89, 88
=== Basic block #88
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 354 448 } longlong-2{ 155 146 } ]
[ { longlong-2 longlong-2 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##branch
Successors: 8
=== Basic block #8
##call max
##branch
Successors: 9
=== Basic block #9
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 10
=== Basic block #10
##call >integer
##branch
Successors: 11
=== Basic block #11
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call set-alien-signed-8
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 14
=== Basic block #14
##call alien-signed-8
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 16
=== Basic block #16
##call alien-signed-8
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call max
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 20
=== Basic block #20
##call >integer
##branch
Successors: 21
=== Basic block #21
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call set-alien-signed-8
##branch
Successors: 23
=== Basic block #23
##check-nursery-branch 16 cc<= EAX EBP
Successors: 25, 24
=== Basic block #24
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 25
=== Basic block #25
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 26
=== Basic block #26
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 8 4 } longlong-2{ 239 969 } ]
[ { longlong-2 longlong-2 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 9
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBX R 2
##replace EBP R 3
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc<=
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum<=
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum<=
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum<=
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-signed-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-signed-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-signed-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc<=
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum<=
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum<=
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum<=
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-signed-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 938 382 } longlong-2{ 120 166 } ]
[ { longlong-2 longlong-2 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 32 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r 4
##inc-d -2
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX R 5
##replace EBP R 1
##replace EBP R 2
##replace EAX R 3
##replace EBP R 5
##replace-imm 0 D 0
##peek EBP R 4
##replace EBP D 1
##replace EAX R 0
##branch
Successors: 13
=== Basic block #13
##call alien-signed-8
##branch
Successors: 14
=== Basic block #14
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 15
=== Basic block #15
##call alien-signed-8
##branch
Successors: 16
=== Basic block #16
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 17, 22
=== Basic block #17
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 18, 19
=== Basic block #18
##inc-d -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call fixnum*overflow
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 37
=== Basic block #22
##test-imm-branch EAX 15 cc=
Successors: 23, 28
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call fixnum>bignum
##branch
Successors: 25
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 37
=== Basic block #28
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 30
=== Basic block #30
##call fixnum>bignum
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call bignum*
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 37
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 38
=== Basic block #38
##call >integer
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call set-alien-signed-8
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 42
=== Basic block #42
##call alien-signed-8
##branch
Successors: 43
=== Basic block #43
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 44
=== Basic block #44
##call alien-signed-8
##branch
Successors: 45
=== Basic block #45
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 46, 51
=== Basic block #46
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #48
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##branch
Successors: 66
=== Basic block #51
##test-imm-branch EAX 15 cc=
Successors: 52, 57
=== Basic block #52
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 66
=== Basic block #57
##test-imm-branch EBP 15 cc=
Successors: 58, 63
=== Basic block #58
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 59
=== Basic block #59
##call fixnum>bignum
##branch
Successors: 60
=== Basic block #60
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 61
=== Basic block #61
##call bignum*
##branch
Successors: 62
=== Basic block #62
##branch
Successors: 66
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum*
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 67
=== Basic block #67
##call >integer
##branch
Successors: 68
=== Basic block #68
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 69
=== Basic block #69
##call set-alien-signed-8
##branch
Successors: 70
=== Basic block #70
##check-nursery-branch 16 cc<= EAX EBP
Successors: 72, 71
=== Basic block #71
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 72
=== Basic block #72
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 73
=== Basic block #73
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 782 longlong-2{ 532 895 } ]
[ { bignum longlong-2 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 32 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r 5
##inc-d -3
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX R 5
##replace EBP R 1
##replace EBP R 2
##replace EAX R 3
##peek EBX D 1
##replace EBX R 4
##replace EBP R 5
##replace-imm 0 D 0
##replace EAX R 0
##branch
Successors: 13
=== Basic block #13
##call alien-signed-8
##branch
Successors: 14
=== Basic block #14
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 15
=== Basic block #15
##call alien-signed-8
##branch
Successors: 16
=== Basic block #16
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 17, 22
=== Basic block #17
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 18, 19
=== Basic block #18
##inc-d -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call fixnum*overflow
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 37
=== Basic block #22
##test-imm-branch EAX 15 cc=
Successors: 23, 28
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call fixnum>bignum
##branch
Successors: 25
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 37
=== Basic block #28
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 30
=== Basic block #30
##call fixnum>bignum
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call bignum*
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 37
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 38
=== Basic block #38
##call >integer
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call set-alien-signed-8
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 42
=== Basic block #42
##call alien-signed-8
##branch
Successors: 43
=== Basic block #43
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 44
=== Basic block #44
##call alien-signed-8
##branch
Successors: 45
=== Basic block #45
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 46, 51
=== Basic block #46
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #48
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##branch
Successors: 66
=== Basic block #51
##test-imm-branch EAX 15 cc=
Successors: 52, 57
=== Basic block #52
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 66
=== Basic block #57
##test-imm-branch EBP 15 cc=
Successors: 58, 63
=== Basic block #58
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 59
=== Basic block #59
##call fixnum>bignum
##branch
Successors: 60
=== Basic block #60
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 61
=== Basic block #61
##call bignum*
##branch
Successors: 62
=== Basic block #62
##branch
Successors: 66
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum*
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 67
=== Basic block #67
##call >integer
##branch
Successors: 68
=== Basic block #68
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 69
=== Basic block #69
##call set-alien-signed-8
##branch
Successors: 70
=== Basic block #70
##check-nursery-branch 16 cc<= EAX EBP
Successors: 72, 71
=== Basic block #71
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 72
=== Basic block #72
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 73
=== Basic block #73
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 250 913 } 344 ]
[ { longlong-2 bignum } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 6
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##peek EBP D 0
##replace EAX R 1
##replace EAX R 2
##replace EBP R 3
##peek EBX D 1
##replace EBX R 4
##replace EAX R 5
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##load-integer EAX -1
##fixnum-mul EBX EBP EAX cc/o
Successors: 8, 15
=== Basic block #8
##inc-d -1
##replace EBX D 0
##branch
Successors: 9
=== Basic block #9
##call shift
##branch
Successors: 10
=== Basic block #10
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 11
=== Basic block #11
##call >integer
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call set-alien-signed-8
##branch
Successors: 14
=== Basic block #14
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 24
=== Basic block #15
##replace EBP D 1
##replace-imm -1 D 0
##branch
Successors: 16
=== Basic block #16
##call fixnum*overflow
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call shift
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 20
=== Basic block #20
##call >integer
##branch
Successors: 21
=== Basic block #21
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call set-alien-signed-8
##branch
Successors: 23
=== Basic block #23
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 2
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 25
=== Basic block #25
##call alien-signed-8
##branch
Successors: 26
=== Basic block #26
##inc-r -1
##inc-d 2
##peek EBP R -1
##load-integer EAX -1
##fixnum-mul EBX EBP EAX cc/o
Successors: 27, 35
=== Basic block #27
##inc-d -1
##replace EBX D 0
##branch
Successors: 28
=== Basic block #28
##call shift
##branch
Successors: 29
=== Basic block #29
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 30
=== Basic block #30
##call >integer
##branch
Successors: 31
=== Basic block #31
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call set-alien-signed-8
##branch
Successors: 33
=== Basic block #33
##peek EBP R 0
##branch
Successors: 34
=== Basic block #34
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 44
=== Basic block #35
##replace EBP D 1
##replace-imm -1 D 0
##branch
Successors: 36
=== Basic block #36
##call fixnum*overflow
##branch
Successors: 37
=== Basic block #37
##branch
Successors: 38
=== Basic block #38
##call shift
##branch
Successors: 39
=== Basic block #39
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 40
=== Basic block #40
##call >integer
##branch
Successors: 41
=== Basic block #41
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call set-alien-signed-8
##branch
Successors: 43
=== Basic block #43
##peek EBP R 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 44
=== Basic block #44
##check-nursery-branch 16 cc<= EAX EBX
Successors: 46, 45
=== Basic block #45
##save-context EBX EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { T{ spill-slot } } }
{ derived-roots V{ } }
}
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##reload EAX tagged-rep T{ spill-slot }
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 47
=== Basic block #47
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 378 46 } 41 ]
[ { longlong-2 bignum } declare \ vrshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 1
##inc-d 2
##peek EBP D 2
##peek EAX D 3
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBP D 2
##replace EAX D 1
##replace EAX D 3
##branch
Successors: 2
=== Basic block #2
##call alien-signed-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##replace-imm 0 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##fixnum-sub EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum-overflow
##branch
Successors: 10
=== Basic block #10
##peek EBP D 0
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum-
##branch
Successors: 16
=== Basic block #16
##peek EBP D 0
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum-
##branch
Successors: 22
=== Basic block #22
##peek EBP D 0
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EBP D 0
##branch
Successors: 26
=== Basic block #26
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 27, 40
=== Basic block #27
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 28, 39
=== Basic block #28
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-mul EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #31
##replace-imm -1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum*overflow
##branch
Successors: 33
=== Basic block #33
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #34
##replace-imm -1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum*
##branch
Successors: 38
=== Basic block #38
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #39
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #40
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum<
##branch
Successors: 44
=== Basic block #44
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 45, 56
=== Basic block #45
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #48
##replace-imm -1 D 0
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #51
##replace-imm -1 D 0
##branch
Successors: 52
=== Basic block #52
##call fixnum>bignum
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call bignum*
##branch
Successors: 55
=== Basic block #55
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #56
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #57
##inc-d 2
##load-integer EDX 1
##load-tagged ECX 32
##replace EBP D 4
##branch
Successors: 59
=== Basic block #58
##inc-r -3
##inc-d 4
##load-integer EDX 2
##safepoint
##branch
Successors: 59
=== Basic block #59
##inc-d -1
##sar-imm EBP ECX 4
##compare-integer-branch EDX EBP cc<
Successors: 60, 137
=== Basic block #60
##inc-r 4
##inc-d -1
##replace EAX R 0
##replace ECX R 1
##replace EAX R 2
##replace EBX R 3
##replace EBX D 1
##replace-imm 8 D 0
##branch
Successors: 61
=== Basic block #61
##call alien-signed-8
##branch
Successors: 62
=== Basic block #62
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 63
=== Basic block #63
##call alien-signed-8
##branch
Successors: 64
=== Basic block #64
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 65, 70
=== Basic block #65
##fixnum-sub EBP EBP EAX cc/o
Successors: 66, 67
=== Basic block #66
##inc-d -1
##replace EBP D 0
##branch
Successors: 85
=== Basic block #67
##branch
Successors: 68
=== Basic block #68
##call fixnum-overflow
##branch
Successors: 69
=== Basic block #69
##peek EBP D 0
##branch
Successors: 85
=== Basic block #70
##test-imm-branch EAX 15 cc=
Successors: 71, 76
=== Basic block #71
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##branch
Successors: 74
=== Basic block #74
##call bignum-
##branch
Successors: 75
=== Basic block #75
##peek EBP D 0
##branch
Successors: 85
=== Basic block #76
##test-imm-branch EBP 15 cc=
Successors: 77, 82
=== Basic block #77
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 78
=== Basic block #78
##call fixnum>bignum
##branch
Successors: 79
=== Basic block #79
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##call bignum-
##branch
Successors: 81
=== Basic block #81
##peek EBP D 0
##branch
Successors: 85
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum-
##branch
Successors: 84
=== Basic block #84
##peek EBP D 0
##branch
Successors: 85
=== Basic block #85
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 86, 99
=== Basic block #86
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 87, 98
=== Basic block #87
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 88, 93
=== Basic block #88
##fixnum-mul EBP EBP EAX cc/o
Successors: 89, 90
=== Basic block #89
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #90
##replace-imm -1 D 0
##branch
Successors: 91
=== Basic block #91
##call fixnum*overflow
##branch
Successors: 92
=== Basic block #92
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #93
##replace-imm -1 D 0
##branch
Successors: 94
=== Basic block #94
##call fixnum>bignum
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 96
=== Basic block #96
##call bignum*
##branch
Successors: 97
=== Basic block #97
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #98
##peek EDX D 1
##branch
Successors: 116
=== Basic block #99
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 100
=== Basic block #100
##call fixnum>bignum
##branch
Successors: 101
=== Basic block #101
##branch
Successors: 102
=== Basic block #102
##call bignum<
##branch
Successors: 103
=== Basic block #103
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 104, 115
=== Basic block #104
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 105, 110
=== Basic block #105
##fixnum-mul EBP EBP EAX cc/o
Successors: 106, 107
=== Basic block #106
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #107
##replace-imm -1 D 0
##branch
Successors: 108
=== Basic block #108
##call fixnum*overflow
##branch
Successors: 109
=== Basic block #109
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #110
##replace-imm -1 D 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #115
##peek EDX D 1
##branch
Successors: 116
=== Basic block #116
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 117, 122
=== Basic block #117
##fixnum-add EDX EDX EBP cc/o
Successors: 118, 119
=== Basic block #118
##inc-d -1
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##replace EDX D 0
##branch
Successors: 58
=== Basic block #119
##branch
Successors: 120
=== Basic block #120
##call fixnum+overflow
##branch
Successors: 121
=== Basic block #121
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #122
##test-imm-branch EBP 15 cc=
Successors: 123, 128
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##call fixnum>bignum
##branch
Successors: 125
=== Basic block #125
##branch
Successors: 126
=== Basic block #126
##call bignum+
##branch
Successors: 127
=== Basic block #127
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #128
##test-imm-branch EDX 15 cc=
Successors: 129, 134
=== Basic block #129
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 130
=== Basic block #130
##call fixnum>bignum
##branch
Successors: 131
=== Basic block #131
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 132
=== Basic block #132
##call bignum+
##branch
Successors: 133
=== Basic block #133
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #134
##branch
Successors: 135
=== Basic block #135
##call bignum+
##branch
Successors: 136
=== Basic block #136
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #137
##inc-d -3
##branch
Successors: 138
=== Basic block #138
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ longlong-2{ 864 262 } longlong-2{ 479 311 } ]
[ { longlong-2 longlong-2 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ longlong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##branch
Successors: 4
=== Basic block #4
##call heap-size
##branch
Successors: 5
=== Basic block #5
##inc-d 1
##replace-imm -8 D 0
##branch
Successors: 6
=== Basic block #6
##call *
##branch
Successors: 7
=== Basic block #7
##check-nursery-branch 32 cc<= EBP EAX
Successors: 9, 8
=== Basic block #8
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 9
=== Basic block #9
##inc-r 8
##inc-d -1
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##peek EBP D 0
##replace EAX R 3
##peek EBX D -1
##replace EBX R 4
##replace EBP R 5
##peek EDX D 1
##replace EDX R 6
##replace EAX R 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EAX R 2
##branch
Successors: 10
=== Basic block #10
##call alien-signed-8
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 12
=== Basic block #12
##call alien-signed-8
##branch
Successors: 13
=== Basic block #13
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 14, 23
=== Basic block #14
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 15, 18
=== Basic block #15
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 16
=== Basic block #16
##call shift
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 44
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call fixnum*overflow
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call shift
##branch
Successors: 22
=== Basic block #22
##branch
Successors: 44
=== Basic block #23
##test-imm-branch EAX 15 cc=
Successors: 24, 31
=== Basic block #24
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum*
##branch
Successors: 28
=== Basic block #28
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call shift
##branch
Successors: 30
=== Basic block #30
##branch
Successors: 44
=== Basic block #31
##test-imm-branch EBP 15 cc=
Successors: 32, 39
=== Basic block #32
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 33
=== Basic block #33
##call fixnum>bignum
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #37
##call shift
##branch
Successors: 38
=== Basic block #38
##branch
Successors: 44
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call bignum*
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call shift
##branch
Successors: 43
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 45
=== Basic block #45
##call >integer
##branch
Successors: 46
=== Basic block #46
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 47
=== Basic block #47
##call set-alien-signed-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 49
=== Basic block #49
##call alien-signed-8
##branch
Successors: 50
=== Basic block #50
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 51
=== Basic block #51
##call alien-signed-8
##branch
Successors: 52
=== Basic block #52
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 53, 62
=== Basic block #53
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 54, 57
=== Basic block #54
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 55
=== Basic block #55
##call shift
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 83
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum*overflow
##branch
Successors: 59
=== Basic block #59
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call shift
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 83
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 70
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##call shift
##branch
Successors: 69
=== Basic block #69
##branch
Successors: 83
=== Basic block #70
##test-imm-branch EBP 15 cc=
Successors: 71, 78
=== Basic block #71
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 74
=== Basic block #74
##call bignum*
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 76
=== Basic block #76
##call shift
##branch
Successors: 77
=== Basic block #77
##branch
Successors: 83
=== Basic block #78
##branch
Successors: 79
=== Basic block #79
##call bignum*
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call shift
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-signed-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EAX EBP
Successors: 89, 88
=== Basic block #88
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 755 507 } longlong-2{ 926 334 } ]
[ { longlong-2 longlong-2 } declare \ v*high execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[ longlong-2{ 231 854 } ]
[ { longlong-2 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##andn-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 172 356 } longlong-2{ 223 413 } ]
[ { longlong-2 longlong-2 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##zero-vector XMM1 longlong-2-rep
##sub-vector XMM1 XMM1 XMM0 longlong-2-rep
##store-memory-imm XMM1 EBX 7 longlong-2-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 105 909 } ]
[ { longlong-2 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 longlong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##sub-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EAX 7 longlong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 797 longlong-2{ 190 742 } ]
[ { bignum longlong-2 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 373 649 } longlong-2{ 472 699 } ]
[ { longlong-2 longlong-2 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EAX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBX R -1
##peek EDX R -3
##peek EAX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 longlong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##sub-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBX 7 longlong-2-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 775 612 } 638 ]
[ { longlong-2 bignum } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 longlong-2-rep f
##load-memory-imm XMM1 EBP 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM2 B{ 255 255 255 255 255 255 255 255 0 0 0 0 0 0 0 0 } longlong-2-rep
##xor-vector XMM0 XMM0 XMM2 longlong-2-rep
##sub-vector XMM0 XMM0 XMM2 longlong-2-rep
##add-vector XMM1 XMM1 XMM0 longlong-2-rep
##store-memory-imm XMM1 EBX 7 longlong-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 519 440 } longlong-2{ 258 724 } ]
[ { longlong-2 longlong-2 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##fill-vector XMM1 longlong-2-rep
##xor-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBX 7 longlong-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 884 83 } ]
[ { longlong-2 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ longlong-2{ 1 89 } ]
[ { longlong-2 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-signed-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call alien-signed-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##replace-imm 8 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-signed-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##call >float
##branch
Successors: 77
=== Basic block #77
##check-nursery-branch 16 cc<= EAX EBP
Successors: 79, 78
=== Basic block #78
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 79
=== Basic block #79
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EAX 16 float EBP
##sqrt XMM0 XMM0
##store-memory-imm XMM0 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 80
=== Basic block #80
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 639 225 } ]
[ { longlong-2 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##and-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 845 758 } longlong-2{ 990 425 } ]
[ { longlong-2 longlong-2 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shl-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EAX 7 longlong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 982 936 } 44 ]
[ { longlong-2 bignum } declare \ vlshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 924 846 } longlong-2{ 76 347 } ]
[ { longlong-2 longlong-2 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##replace EBP D 0
##zero-vector XMM0 longlong-2-rep
##store-memory-imm XMM0 EAX 7 longlong-2-rep f
##set-slot-imm EAX EBP 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 118 444 } longlong-2{ 409 138 } ]
[ { longlong-2 longlong-2 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 2
##peek EBP D 2
##replace-imm 0 D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call alien-signed-8
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##load-integer EAX 1
##load-tagged EBX 32
##peek EDX D 2
##replace EDX D 3
##branch
Successors: 5
=== Basic block #4
##inc-r -2
##inc-d 3
##load-integer EAX 2
##safepoint
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##sar-imm EDX EBX 4
##compare-integer-branch EAX EDX cc<
Successors: 6, 29
=== Basic block #6
##inc-r 2
##replace EBX R 0
##replace EBP R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 7
=== Basic block #7
##call alien-signed-8
##branch
Successors: 8
=== Basic block #8
##peek EAX D 1
##peek EBP D 0
##or EBX EAX EBP
##test-imm-branch EBX 15 cc=
Successors: 9, 14
=== Basic block #9
##fixnum-add EAX EAX EBP cc/o
Successors: 10, 11
=== Basic block #10
##inc-d -1
##peek EBX R 0
##peek EBP R 1
##replace EAX D 0
##branch
Successors: 4
=== Basic block #11
##branch
Successors: 12
=== Basic block #12
##call fixnum+overflow
##branch
Successors: 13
=== Basic block #13
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #14
##test-imm-branch EBP 15 cc=
Successors: 15, 20
=== Basic block #15
##branch
Successors: 16
=== Basic block #16
##call fixnum>bignum
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call bignum+
##branch
Successors: 19
=== Basic block #19
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EAX 15 cc=
Successors: 21, 26
=== Basic block #21
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 24
=== Basic block #24
##call bignum+
##branch
Successors: 25
=== Basic block #25
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum+
##branch
Successors: 28
=== Basic block #28
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #29
##inc-d -2
##branch
Successors: 30
=== Basic block #30
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ longlong-2{ 118 363 } ]
[ { longlong-2 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ longlong-2{ 897 572 } ]
[ { longlong-2 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EBX 32 byte-array EDX
##load-tagged EDX 256
##set-slot-imm EDX EBX 1 9
##allot ECX 12 tuple EDX
##load-reference EDX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EDX ECX 1 7
##set-slot-imm EBX ECX 2 7
##load-tagged EBX 32
##load-tagged EDX 0
##replace ECX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EAX EAX 3
##replace EAX R 0
##slot-imm EBP EBP 2 7
##replace EBP R 1
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EBX R -4
##peek EBP R -1
##peek ECX R -3
##peek EAX R -2
##peek EDX R -5
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch EDX EBX cc<
Successors: 10, 35
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EBX R 5
##replace EDX R 0
##replace EAX R 1
##shl-imm EBX EDX 3
##replace EBX D 0
##replace EBP D 1
##replace ECX R 6
##replace EAX R 7
##replace EBP R 8
##replace EDX R 2
##replace ECX R 3
##replace EDX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-signed-8
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 3
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-signed-8
##branch
Successors: 14
=== Basic block #14
##peek EBX D 1
##peek EBP D 0
##or EAX EBX EBP
##test-imm-branch EAX 15 cc=
Successors: 15, 20
=== Basic block #15
##sar-imm EBP EBP 4
##fixnum-mul EBX EBX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##peek EBP R 1
##peek EAX R 0
##replace EBX D 0
##branch
Successors: 4
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum*overflow
##branch
Successors: 19
=== Basic block #19
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #26
##test-imm-branch EBX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum*
##branch
Successors: 31
=== Basic block #31
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum*
##branch
Successors: 34
=== Basic block #34
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #35
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 36
=== Basic block #36
##safepoint
##epilogue
##jump (h+)
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 184 9 } longlong-2{ 534 939 } ]
[ { longlong-2 longlong-2 } declare \ v*hs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##or-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 920 383 } longlong-2{ 407 927 } ]
[ { longlong-2 longlong-2 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm longlong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 9
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBX R 2
##replace EBP R 3
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-signed-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc>=
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum>=
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>=
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum>=
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-signed-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-signed-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-signed-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc>=
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum>=
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum>=
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum>=
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-signed-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 882 593 } longlong-2{ 829 491 } ]
[ { longlong-2 longlong-2 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot ECX 12 tuple EBX
##load-reference EBX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBX ECX 1 7
##load-tagged EBX 32
##set-slot-imm EDX ECX 2 7
##load-tagged EDX 0
##replace ECX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EBP EBP 3
##replace EBP R 0
##slot-imm EBX EBX 2 7
##replace EBX R 1
##replace EAX D 0
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-signed-8
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EBX R -4
##peek EBP R -1
##peek ECX R -3
##peek EAX R -2
##peek EDX R -5
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch EDX EBX cc<
Successors: 10, 42
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EBX R 5
##replace EDX R 0
##replace EAX R 1
##shl-imm EBX EDX 3
##replace EBX D 0
##replace EBP D 1
##replace ECX R 6
##replace EAX R 7
##replace EBP R 8
##replace EDX R 2
##replace ECX R 3
##replace EDX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-signed-8
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 3
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-signed-8
##branch
Successors: 14
=== Basic block #14
##peek EAX D 1
##peek EBP D 0
##or EBX EAX EBP
##test-imm-branch EBX 15 cc=
Successors: 15, 20
=== Basic block #15
##fixnum-sub EAX EAX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##replace EAX D 0
##branch
Successors: 35
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum-overflow
##branch
Successors: 19
=== Basic block #19
##peek EAX D 0
##branch
Successors: 35
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EAX D 0
##branch
Successors: 35
=== Basic block #26
##test-imm-branch EAX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum-
##branch
Successors: 31
=== Basic block #31
##peek EAX D 0
##branch
Successors: 35
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum-
##branch
Successors: 34
=== Basic block #34
##peek EAX D 0
##branch
Successors: 35
=== Basic block #35
##inc-d 1
##load-integer EDX 0
##test-imm-branch EAX 15 cc=
Successors: 36, 37
=== Basic block #36
##inc-d -1
##peek EBX R 1
##peek EBP R 0
##sar-imm EAX EAX 4
##max EAX EAX EDX
##shl-imm EAX EAX 4
##branch
Successors: 4
=== Basic block #37
##inc-r 2
##replace-imm 0 D 0
##replace-imm 0 R 1
##replace EAX R 0
##branch
Successors: 38
=== Basic block #38
##call bignum>
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 1
##peek EBP R 0
##peek EAX R -2
##peek EBX R 1
##peek EDX R -1
##peek ECX D 1
##compare-imm-branch ECX f cc/=
Successors: 40, 41
=== Basic block #40
##inc-d -1
##branch
Successors: 4
=== Basic block #41
##inc-d -1
##copy EAX EDX tagged-rep
##branch
Successors: 4
=== Basic block #42
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 923 360 } longlong-2{ 816 54 } ]
[ { longlong-2 longlong-2 } declare \ [v-] execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##replace EDX R 5
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-signed-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-signed-8
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##fixnum-add EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum+overflow
##branch
Successors: 12
=== Basic block #12
##peek EBP D 0
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum+
##branch
Successors: 18
=== Basic block #18
##peek EBP D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum+
##branch
Successors: 24
=== Basic block #24
##peek EBP D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum+
##branch
Successors: 27
=== Basic block #27
##peek EBP D 0
##branch
Successors: 28
=== Basic block #28
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-add EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##replace EBP D 0
##branch
Successors: 39
=== Basic block #31
##replace-imm 1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum+overflow
##branch
Successors: 33
=== Basic block #33
##peek EBP D 0
##branch
Successors: 39
=== Basic block #34
##replace-imm 1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum+
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##branch
Successors: 39
=== Basic block #39
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 40, 45
=== Basic block #40
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 0 R 0
##branch
Successors: 41
=== Basic block #41
##call >integer
##branch
Successors: 42
=== Basic block #42
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##call set-alien-signed-8
##branch
Successors: 44
=== Basic block #44
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 52
=== Basic block #45
##replace-imm -1 D 0
##branch
Successors: 46
=== Basic block #46
##call bignum-shift
##branch
Successors: 47
=== Basic block #47
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 48
=== Basic block #48
##call >integer
##branch
Successors: 49
=== Basic block #49
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call set-alien-signed-8
##branch
Successors: 51
=== Basic block #51
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 2
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call alien-signed-8
##branch
Successors: 54
=== Basic block #54
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 55
=== Basic block #55
##call alien-signed-8
##branch
Successors: 56
=== Basic block #56
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 57, 62
=== Basic block #57
##fixnum-add EBP EBP EAX cc/o
Successors: 58, 59
=== Basic block #58
##inc-d -1
##replace EBP D 0
##branch
Successors: 77
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call fixnum+overflow
##branch
Successors: 61
=== Basic block #61
##peek EBP D 0
##branch
Successors: 77
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 68
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EBP D 0
##branch
Successors: 77
=== Basic block #68
##test-imm-branch EBP 15 cc=
Successors: 69, 74
=== Basic block #69
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 70
=== Basic block #70
##call fixnum>bignum
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call bignum+
##branch
Successors: 73
=== Basic block #73
##peek EBP D 0
##branch
Successors: 77
=== Basic block #74
##branch
Successors: 75
=== Basic block #75
##call bignum+
##branch
Successors: 76
=== Basic block #76
##peek EBP D 0
##branch
Successors: 77
=== Basic block #77
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 78, 83
=== Basic block #78
##fixnum-add EBP EBP EAX cc/o
Successors: 79, 80
=== Basic block #79
##inc-d -1
##replace EBP D 0
##branch
Successors: 88
=== Basic block #80
##replace-imm 1 D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum+overflow
##branch
Successors: 82
=== Basic block #82
##peek EBP D 0
##branch
Successors: 88
=== Basic block #83
##replace-imm 1 D 0
##branch
Successors: 84
=== Basic block #84
##call fixnum>bignum
##branch
Successors: 85
=== Basic block #85
##branch
Successors: 86
=== Basic block #86
##call bignum+
##branch
Successors: 87
=== Basic block #87
##peek EBP D 0
##branch
Successors: 88
=== Basic block #88
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 89, 95
=== Basic block #89
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 90
=== Basic block #90
##call >integer
##branch
Successors: 91
=== Basic block #91
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 92
=== Basic block #92
##call set-alien-signed-8
##branch
Successors: 93
=== Basic block #93
##peek EBP R 0
##branch
Successors: 94
=== Basic block #94
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 102
=== Basic block #95
##replace-imm -1 D 0
##branch
Successors: 96
=== Basic block #96
##call bignum-shift
##branch
Successors: 97
=== Basic block #97
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 98
=== Basic block #98
##call >integer
##branch
Successors: 99
=== Basic block #99
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 100
=== Basic block #100
##call set-alien-signed-8
##branch
Successors: 101
=== Basic block #101
##peek EBP R 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 102
=== Basic block #102
##check-nursery-branch 16 cc<= EBX EAX
Successors: 104, 103
=== Basic block #103
##save-context EBX EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { T{ spill-slot } } }
{ derived-roots V{ } }
}
##branch
Successors: 104
=== Basic block #104
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##replace EBP D 0
##load-reference EAX {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EAX EBP 1 7
##reload EAX tagged-rep T{ spill-slot }
##set-slot-imm EAX EBP 2 7
##branch
Successors: 105
=== Basic block #105
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 586 157 } longlong-2{ 619 186 } ]
[ { longlong-2 longlong-2 } declare \ vavg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 longlong-2-rep f
##load-memory-imm XMM1 EAX 7 longlong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
longlong-2
1
2
tuple
-65101626
simd-128
8440422
longlong-2
-36163088
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##xor-vector XMM0 XMM0 XMM1 longlong-2-rep
##store-memory-imm XMM0 EBP 7 longlong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ longlong-2{ 803 759 } longlong-2{ 206 897 } ]
[ { longlong-2 longlong-2 } declare \ vbitxor execute ]
Unit Test: { [ { } ] [ \ ulonglong-2 \ fixnum [ = ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 ulonglong-2-rep cc=
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 885 648 } ulonglong-2{ 328 450 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##allot EBX 12 tuple EAX
##replace EBX D 0
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBX 1 7
##set-slot-imm EBP EBX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 302 747 } ]
[ { ulonglong-2 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum*overflow
##branch
Successors: 12
=== Basic block #12
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum*
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum*
##branch
Successors: 24
=== Basic block #24
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 29
=== Basic block #29
##call >integer
##branch
Successors: 30
=== Basic block #30
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 31
=== Basic block #31
##call set-alien-unsigned-8
##branch
Successors: 32
=== Basic block #32
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 33
=== Basic block #33
##call alien-unsigned-8
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 35
=== Basic block #35
##call alien-unsigned-8
##branch
Successors: 36
=== Basic block #36
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 37, 42
=== Basic block #37
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 38, 39
=== Basic block #38
##inc-d -1
##replace EBP D 0
##branch
Successors: 57
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call fixnum*overflow
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 57
=== Basic block #42
##test-imm-branch EAX 15 cc=
Successors: 43, 48
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##call fixnum>bignum
##branch
Successors: 45
=== Basic block #45
##branch
Successors: 46
=== Basic block #46
##call bignum*
##branch
Successors: 47
=== Basic block #47
##branch
Successors: 57
=== Basic block #48
##test-imm-branch EBP 15 cc=
Successors: 49, 54
=== Basic block #49
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 50
=== Basic block #50
##call fixnum>bignum
##branch
Successors: 51
=== Basic block #51
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 57
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 57
=== Basic block #57
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 58
=== Basic block #58
##call >integer
##branch
Successors: 59
=== Basic block #59
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call set-alien-unsigned-8
##branch
Successors: 61
=== Basic block #61
##check-nursery-branch 16 cc<= EAX EBP
Successors: 63, 62
=== Basic block #62
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 63
=== Basic block #63
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 64
=== Basic block #64
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 285 98 } ulonglong-2{ 540 720 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 3
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBP R 9
##replace EBX R 2
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc<
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum<
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum<
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum<
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-unsigned-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-unsigned-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-unsigned-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc<
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum<
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum<
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum<
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-unsigned-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##peek EAX R -1
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 220 287 } ulonglong-2{ 464 452 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EAX 32 byte-array EBX
##replace EAX R 0
##peek EBX D 3
##load-tagged EDX 32
##load-tagged ECX 256
##set-slot-imm ECX EAX 1 9
##load-integer ECX 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EAX R 4
##replace EBX R 5
##replace EBX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EAX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EBX R -1
##peek EDX R -3
##peek EAX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##add-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBX 7 ulonglong-2-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 651 89 } 687 ]
[ { ulonglong-2 bignum } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EAX 32 byte-array EBP
##replace EAX R 9
##peek EBP D 0
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -2
##replace EBX R 5
##replace EBP R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EBP R 7
##peek EBP D 1
##replace EBP R 8
##replace EBX R 2
##replace EAX R 3
##replace EAX R 4
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc>
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum>
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum>
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-unsigned-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-unsigned-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-unsigned-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc>
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum>
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum>
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum>
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-unsigned-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 32 523 } ulonglong-2{ 191 554 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##replace EBP D 0
##add-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##set-slot-imm EAX EBP 2 7
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 977 ulonglong-2{ 152 919 } ]
[ { bignum ulonglong-2 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##replace-imm 8 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ ulonglong-2{ 651 631 } ]
[ { ulonglong-2 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 736 974 } ulonglong-2{ 592 800 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##replace EAX R 1
##slot-imm EBP EBP 2 7
##replace EBP R 2
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace EAX D 1
##replace-imm 8 D 0
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ ulonglong-2{ 143 346 } ulonglong-2{ 541 762 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 395 969 } ulonglong-2{ 876 285 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##branch
Successors: 8
=== Basic block #8
##call min
##branch
Successors: 9
=== Basic block #9
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 10
=== Basic block #10
##call >integer
##branch
Successors: 11
=== Basic block #11
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call set-alien-unsigned-8
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 14
=== Basic block #14
##call alien-unsigned-8
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 16
=== Basic block #16
##call alien-unsigned-8
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call min
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 20
=== Basic block #20
##call >integer
##branch
Successors: 21
=== Basic block #21
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call set-alien-unsigned-8
##branch
Successors: 23
=== Basic block #23
##check-nursery-branch 16 cc<= EBP EAX
Successors: 25, 24
=== Basic block #24
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 25
=== Basic block #25
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 26
=== Basic block #26
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 797 794 } ulonglong-2{ 756 453 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ ulonglong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-sub EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum-overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum-
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum-
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum-
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-sub EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum-overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum-
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum-
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum-
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EBP EAX
Successors: 89, 88
=== Basic block #88
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 536 456 } ulonglong-2{ 584 764 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ ulonglong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##fixnum-add EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum+overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum+
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum+
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum+
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##fixnum-add EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum+overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum+
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum+
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EAX EBP
Successors: 89, 88
=== Basic block #88
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 286 156 } ulonglong-2{ 904 743 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ ulonglong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 8
##inc-d -1
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX D 0
##replace EBP R 3
##peek EBX D -1
##replace EBX R 4
##replace EAX R 5
##peek EDX D 1
##replace EDX R 6
##replace EBP R 7
##replace EAX R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 15
=== Basic block #10
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 11, 12
=== Basic block #11
##inc-d -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum*overflow
##branch
Successors: 14
=== Basic block #14
##peek EDX R 0
##branch
Successors: 30
=== Basic block #15
##test-imm-branch EAX 15 cc=
Successors: 16, 21
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call fixnum>bignum
##branch
Successors: 18
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call bignum*
##branch
Successors: 20
=== Basic block #20
##peek EDX R 0
##branch
Successors: 30
=== Basic block #21
##test-imm-branch EBP 15 cc=
Successors: 22, 27
=== Basic block #22
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 23
=== Basic block #23
##call fixnum>bignum
##branch
Successors: 24
=== Basic block #24
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 25
=== Basic block #25
##call bignum*
##branch
Successors: 26
=== Basic block #26
##peek EDX R 0
##branch
Successors: 30
=== Basic block #27
##branch
Successors: 28
=== Basic block #28
##call bignum*
##branch
Successors: 29
=== Basic block #29
##peek EDX R 0
##branch
Successors: 30
=== Basic block #30
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 31, 33
=== Basic block #31
##inc-d -1
##branch
Successors: 32
=== Basic block #32
##inc-d -1
##branch
Successors: 42
=== Basic block #33
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 34, 35
=== Basic block #34
##inc-d -1
##branch
Successors: 42
=== Basic block #35
##replace EDX D 0
##branch
Successors: 36
=== Basic block #36
##call c-type-interval
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 38
=== Basic block #38
##call max
##branch
Successors: 39
=== Basic block #39
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call min
##branch
Successors: 41
=== Basic block #41
##branch
Successors: 42
=== Basic block #42
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 43
=== Basic block #43
##call >integer
##branch
Successors: 44
=== Basic block #44
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 45
=== Basic block #45
##call set-alien-unsigned-8
##branch
Successors: 46
=== Basic block #46
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 47
=== Basic block #47
##call alien-unsigned-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-8
##branch
Successors: 50
=== Basic block #50
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 51, 56
=== Basic block #51
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 52, 53
=== Basic block #52
##inc-d -1
##replace EBP D 0
##branch
Successors: 71
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call fixnum*overflow
##branch
Successors: 55
=== Basic block #55
##peek EDX R 0
##branch
Successors: 71
=== Basic block #56
##test-imm-branch EAX 15 cc=
Successors: 57, 62
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum>bignum
##branch
Successors: 59
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call bignum*
##branch
Successors: 61
=== Basic block #61
##peek EDX R 0
##branch
Successors: 71
=== Basic block #62
##test-imm-branch EBP 15 cc=
Successors: 63, 68
=== Basic block #63
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##peek EDX R 0
##branch
Successors: 71
=== Basic block #68
##branch
Successors: 69
=== Basic block #69
##call bignum*
##branch
Successors: 70
=== Basic block #70
##peek EDX R 0
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 2
##compare-imm-branch EDX float cc=
Successors: 72, 74
=== Basic block #72
##inc-d -1
##branch
Successors: 73
=== Basic block #73
##inc-d -1
##branch
Successors: 83
=== Basic block #74
##inc-d -1
##compare-imm-branch EDX double cc=
Successors: 75, 76
=== Basic block #75
##inc-d -1
##branch
Successors: 83
=== Basic block #76
##replace EDX D 0
##branch
Successors: 77
=== Basic block #77
##call c-type-interval
##branch
Successors: 78
=== Basic block #78
##inc-r 1
##inc-d -1
##peek EBP D -1
##replace EBP R 0
##branch
Successors: 79
=== Basic block #79
##call max
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call min
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EAX EBP
Successors: 89, 88
=== Basic block #88
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 775 909 } ulonglong-2{ 919 272 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##replace EDX R 1
##replace EDX R 2
##replace EBP R 3
##replace EAX R 4
##replace EDX R 5
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##branch
Successors: 8
=== Basic block #8
##call max
##branch
Successors: 9
=== Basic block #9
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 10
=== Basic block #10
##call >integer
##branch
Successors: 11
=== Basic block #11
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 12
=== Basic block #12
##call set-alien-unsigned-8
##branch
Successors: 13
=== Basic block #13
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 14
=== Basic block #14
##call alien-unsigned-8
##branch
Successors: 15
=== Basic block #15
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 16
=== Basic block #16
##call alien-unsigned-8
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call max
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 20
=== Basic block #20
##call >integer
##branch
Successors: 21
=== Basic block #21
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call set-alien-unsigned-8
##branch
Successors: 23
=== Basic block #23
##check-nursery-branch 16 cc<= EBP EAX
Successors: 25, 24
=== Basic block #24
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 25
=== Basic block #25
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 26
=== Basic block #26
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 230 437 } ulonglong-2{ 823 689 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 9
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBX R 2
##replace EBP R 3
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc<=
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum<=
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum<=
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum<=
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-unsigned-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-unsigned-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-unsigned-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc<=
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum<=
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum<=
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum<=
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-unsigned-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 704 583 } ulonglong-2{ 473 286 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 32 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r 4
##inc-d -2
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX R 5
##replace EBP R 1
##replace EBP R 2
##replace EAX R 3
##replace EBP R 5
##replace-imm 0 D 0
##peek EBP R 4
##replace EBP D 1
##replace EAX R 0
##branch
Successors: 13
=== Basic block #13
##call alien-unsigned-8
##branch
Successors: 14
=== Basic block #14
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 15
=== Basic block #15
##call alien-unsigned-8
##branch
Successors: 16
=== Basic block #16
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 17, 22
=== Basic block #17
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 18, 19
=== Basic block #18
##inc-d -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call fixnum*overflow
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 37
=== Basic block #22
##test-imm-branch EAX 15 cc=
Successors: 23, 28
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call fixnum>bignum
##branch
Successors: 25
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 37
=== Basic block #28
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 30
=== Basic block #30
##call fixnum>bignum
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call bignum*
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 37
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 38
=== Basic block #38
##call >integer
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call set-alien-unsigned-8
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 42
=== Basic block #42
##call alien-unsigned-8
##branch
Successors: 43
=== Basic block #43
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 44
=== Basic block #44
##call alien-unsigned-8
##branch
Successors: 45
=== Basic block #45
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 46, 51
=== Basic block #46
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #48
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##branch
Successors: 66
=== Basic block #51
##test-imm-branch EAX 15 cc=
Successors: 52, 57
=== Basic block #52
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 66
=== Basic block #57
##test-imm-branch EBP 15 cc=
Successors: 58, 63
=== Basic block #58
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 59
=== Basic block #59
##call fixnum>bignum
##branch
Successors: 60
=== Basic block #60
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 61
=== Basic block #61
##call bignum*
##branch
Successors: 62
=== Basic block #62
##branch
Successors: 66
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum*
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 67
=== Basic block #67
##call >integer
##branch
Successors: 68
=== Basic block #68
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 69
=== Basic block #69
##call set-alien-unsigned-8
##branch
Successors: 70
=== Basic block #70
##check-nursery-branch 16 cc<= EAX EBP
Successors: 72, 71
=== Basic block #71
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 72
=== Basic block #72
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 73
=== Basic block #73
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 74 ulonglong-2{ 443 88 } ]
[ { bignum ulonglong-2 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##replace EBX R 0
##peek EAX D 3
##load-tagged EDX 32
##load-tagged ECX 256
##set-slot-imm ECX EBX 1 9
##load-integer ECX 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 32 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r 5
##inc-d -3
##allot EBP 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBP 1 9
##peek EAX R 5
##replace EBP R 1
##replace EBP R 2
##replace EAX R 3
##peek EBX D 1
##replace EBX R 4
##replace EBP R 5
##replace-imm 0 D 0
##replace EAX R 0
##branch
Successors: 13
=== Basic block #13
##call alien-unsigned-8
##branch
Successors: 14
=== Basic block #14
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 15
=== Basic block #15
##call alien-unsigned-8
##branch
Successors: 16
=== Basic block #16
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 17, 22
=== Basic block #17
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 18, 19
=== Basic block #18
##inc-d -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #19
##branch
Successors: 20
=== Basic block #20
##call fixnum*overflow
##branch
Successors: 21
=== Basic block #21
##branch
Successors: 37
=== Basic block #22
##test-imm-branch EAX 15 cc=
Successors: 23, 28
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call fixnum>bignum
##branch
Successors: 25
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum*
##branch
Successors: 27
=== Basic block #27
##branch
Successors: 37
=== Basic block #28
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 30
=== Basic block #30
##call fixnum>bignum
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 32
=== Basic block #32
##call bignum*
##branch
Successors: 33
=== Basic block #33
##branch
Successors: 37
=== Basic block #34
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 38
=== Basic block #38
##call >integer
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 40
=== Basic block #40
##call set-alien-unsigned-8
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 2
##peek EBP R 1
##peek EAX R -1
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 42
=== Basic block #42
##call alien-unsigned-8
##branch
Successors: 43
=== Basic block #43
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 44
=== Basic block #44
##call alien-unsigned-8
##branch
Successors: 45
=== Basic block #45
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 46, 51
=== Basic block #46
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##replace EBP D 0
##branch
Successors: 66
=== Basic block #48
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##branch
Successors: 66
=== Basic block #51
##test-imm-branch EAX 15 cc=
Successors: 52, 57
=== Basic block #52
##branch
Successors: 53
=== Basic block #53
##call fixnum>bignum
##branch
Successors: 54
=== Basic block #54
##branch
Successors: 55
=== Basic block #55
##call bignum*
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 66
=== Basic block #57
##test-imm-branch EBP 15 cc=
Successors: 58, 63
=== Basic block #58
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 59
=== Basic block #59
##call fixnum>bignum
##branch
Successors: 60
=== Basic block #60
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 61
=== Basic block #61
##call bignum*
##branch
Successors: 62
=== Basic block #62
##branch
Successors: 66
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum*
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 67
=== Basic block #67
##call >integer
##branch
Successors: 68
=== Basic block #68
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 69
=== Basic block #69
##call set-alien-unsigned-8
##branch
Successors: 70
=== Basic block #70
##check-nursery-branch 16 cc<= EAX EBP
Successors: 72, 71
=== Basic block #71
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 72
=== Basic block #72
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##replace EAX D 0
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##branch
Successors: 73
=== Basic block #73
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 453 257 } 339 ]
[ { ulonglong-2 bignum } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shr-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 285 505 } 534 ]
[ { ulonglong-2 bignum } declare \ vrshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 1
##inc-d 2
##peek EBP D 2
##peek EAX D 3
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBP D 2
##replace EAX D 1
##replace EAX D 3
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##replace-imm 0 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##fixnum-sub EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum-overflow
##branch
Successors: 10
=== Basic block #10
##peek EBP D 0
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum-
##branch
Successors: 16
=== Basic block #16
##peek EBP D 0
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum-
##branch
Successors: 22
=== Basic block #22
##peek EBP D 0
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EBP D 0
##branch
Successors: 26
=== Basic block #26
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 27, 40
=== Basic block #27
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 28, 39
=== Basic block #28
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-mul EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #31
##replace-imm -1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum*overflow
##branch
Successors: 33
=== Basic block #33
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #34
##replace-imm -1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum*
##branch
Successors: 38
=== Basic block #38
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #39
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #40
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum<
##branch
Successors: 44
=== Basic block #44
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 45, 56
=== Basic block #45
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##fixnum-mul EBP EBP EAX cc/o
Successors: 47, 48
=== Basic block #47
##inc-d -1
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #48
##replace-imm -1 D 0
##branch
Successors: 49
=== Basic block #49
##call fixnum*overflow
##branch
Successors: 50
=== Basic block #50
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #51
##replace-imm -1 D 0
##branch
Successors: 52
=== Basic block #52
##call fixnum>bignum
##branch
Successors: 53
=== Basic block #53
##branch
Successors: 54
=== Basic block #54
##call bignum*
##branch
Successors: 55
=== Basic block #55
##peek EAX D 1
##peek EBP D 0
##peek EBX D 2
##branch
Successors: 57
=== Basic block #56
##peek EAX D 1
##peek EBX D 2
##branch
Successors: 57
=== Basic block #57
##inc-d 2
##load-integer EDX 1
##load-tagged ECX 32
##replace EBP D 4
##branch
Successors: 59
=== Basic block #58
##inc-r -3
##inc-d 4
##load-integer EDX 2
##safepoint
##branch
Successors: 59
=== Basic block #59
##inc-d -1
##sar-imm EBP ECX 4
##compare-integer-branch EDX EBP cc<
Successors: 60, 137
=== Basic block #60
##inc-r 4
##inc-d -1
##replace EAX R 0
##replace ECX R 1
##replace EAX R 2
##replace EBX R 3
##replace EBX D 1
##replace-imm 8 D 0
##branch
Successors: 61
=== Basic block #61
##call alien-unsigned-8
##branch
Successors: 62
=== Basic block #62
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 63
=== Basic block #63
##call alien-unsigned-8
##branch
Successors: 64
=== Basic block #64
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 65, 70
=== Basic block #65
##fixnum-sub EBP EBP EAX cc/o
Successors: 66, 67
=== Basic block #66
##inc-d -1
##replace EBP D 0
##branch
Successors: 85
=== Basic block #67
##branch
Successors: 68
=== Basic block #68
##call fixnum-overflow
##branch
Successors: 69
=== Basic block #69
##peek EBP D 0
##branch
Successors: 85
=== Basic block #70
##test-imm-branch EAX 15 cc=
Successors: 71, 76
=== Basic block #71
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##branch
Successors: 74
=== Basic block #74
##call bignum-
##branch
Successors: 75
=== Basic block #75
##peek EBP D 0
##branch
Successors: 85
=== Basic block #76
##test-imm-branch EBP 15 cc=
Successors: 77, 82
=== Basic block #77
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 78
=== Basic block #78
##call fixnum>bignum
##branch
Successors: 79
=== Basic block #79
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 80
=== Basic block #80
##call bignum-
##branch
Successors: 81
=== Basic block #81
##peek EBP D 0
##branch
Successors: 85
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##call bignum-
##branch
Successors: 84
=== Basic block #84
##peek EBP D 0
##branch
Successors: 85
=== Basic block #85
##inc-d 2
##test-imm-branch EBP 15 cc=
Successors: 86, 99
=== Basic block #86
##inc-d -2
##compare-integer-imm-branch EBP 0 cc<
Successors: 87, 98
=== Basic block #87
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 88, 93
=== Basic block #88
##fixnum-mul EBP EBP EAX cc/o
Successors: 89, 90
=== Basic block #89
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #90
##replace-imm -1 D 0
##branch
Successors: 91
=== Basic block #91
##call fixnum*overflow
##branch
Successors: 92
=== Basic block #92
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #93
##replace-imm -1 D 0
##branch
Successors: 94
=== Basic block #94
##call fixnum>bignum
##branch
Successors: 95
=== Basic block #95
##branch
Successors: 96
=== Basic block #96
##call bignum*
##branch
Successors: 97
=== Basic block #97
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #98
##peek EDX D 1
##branch
Successors: 116
=== Basic block #99
##replace-imm 0 D 0
##replace EBP D 1
##branch
Successors: 100
=== Basic block #100
##call fixnum>bignum
##branch
Successors: 101
=== Basic block #101
##branch
Successors: 102
=== Basic block #102
##call bignum<
##branch
Successors: 103
=== Basic block #103
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##compare-imm-branch EAX f cc/=
Successors: 104, 115
=== Basic block #104
##inc-d 1
##load-integer EAX -1
##test-imm-branch EBP 15 cc=
Successors: 105, 110
=== Basic block #105
##fixnum-mul EBP EBP EAX cc/o
Successors: 106, 107
=== Basic block #106
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 116
=== Basic block #107
##replace-imm -1 D 0
##branch
Successors: 108
=== Basic block #108
##call fixnum*overflow
##branch
Successors: 109
=== Basic block #109
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #110
##replace-imm -1 D 0
##branch
Successors: 111
=== Basic block #111
##call fixnum>bignum
##branch
Successors: 112
=== Basic block #112
##branch
Successors: 113
=== Basic block #113
##call bignum*
##branch
Successors: 114
=== Basic block #114
##peek EBP D 0
##peek EDX D 1
##branch
Successors: 116
=== Basic block #115
##peek EDX D 1
##branch
Successors: 116
=== Basic block #116
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 117, 122
=== Basic block #117
##fixnum-add EDX EDX EBP cc/o
Successors: 118, 119
=== Basic block #118
##inc-d -1
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##replace EDX D 0
##branch
Successors: 58
=== Basic block #119
##branch
Successors: 120
=== Basic block #120
##call fixnum+overflow
##branch
Successors: 121
=== Basic block #121
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #122
##test-imm-branch EBP 15 cc=
Successors: 123, 128
=== Basic block #123
##branch
Successors: 124
=== Basic block #124
##call fixnum>bignum
##branch
Successors: 125
=== Basic block #125
##branch
Successors: 126
=== Basic block #126
##call bignum+
##branch
Successors: 127
=== Basic block #127
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #128
##test-imm-branch EDX 15 cc=
Successors: 129, 134
=== Basic block #129
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 130
=== Basic block #130
##call fixnum>bignum
##branch
Successors: 131
=== Basic block #131
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 132
=== Basic block #132
##call bignum+
##branch
Successors: 133
=== Basic block #133
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #134
##branch
Successors: 135
=== Basic block #135
##call bignum+
##branch
Successors: 136
=== Basic block #136
##peek EAX R 1
##peek EBX R 2
##peek ECX R 0
##branch
Successors: 58
=== Basic block #137
##inc-d -3
##branch
Successors: 138
=== Basic block #138
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ ulonglong-2{ 64 878 } ulonglong-2{ 672 1 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call M\ ulonglong-2-rep rep-component-type
##branch
Successors: 3
=== Basic block #3
##branch
Successors: 4
=== Basic block #4
##call heap-size
##branch
Successors: 5
=== Basic block #5
##inc-d 1
##replace-imm -8 D 0
##branch
Successors: 6
=== Basic block #6
##call *
##branch
Successors: 7
=== Basic block #7
##check-nursery-branch 32 cc<= EBP EAX
Successors: 9, 8
=== Basic block #8
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 9
=== Basic block #9
##inc-r 8
##inc-d -1
##allot EAX 32 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EAX 1 9
##peek EBP D 0
##replace EAX R 3
##peek EBX D -1
##replace EBX R 4
##replace EBP R 5
##peek EDX D 1
##replace EDX R 6
##replace EAX R 7
##replace EBP R 0
##replace-imm 0 D 0
##replace EBX R 1
##replace EAX R 2
##branch
Successors: 10
=== Basic block #10
##call alien-unsigned-8
##branch
Successors: 11
=== Basic block #11
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 12
=== Basic block #12
##call alien-unsigned-8
##branch
Successors: 13
=== Basic block #13
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 14, 23
=== Basic block #14
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 15, 18
=== Basic block #15
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 16
=== Basic block #16
##call shift
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 44
=== Basic block #18
##branch
Successors: 19
=== Basic block #19
##call fixnum*overflow
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call shift
##branch
Successors: 22
=== Basic block #22
##branch
Successors: 44
=== Basic block #23
##test-imm-branch EAX 15 cc=
Successors: 24, 31
=== Basic block #24
##branch
Successors: 25
=== Basic block #25
##call fixnum>bignum
##branch
Successors: 26
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum*
##branch
Successors: 28
=== Basic block #28
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##call shift
##branch
Successors: 30
=== Basic block #30
##branch
Successors: 44
=== Basic block #31
##test-imm-branch EBP 15 cc=
Successors: 32, 39
=== Basic block #32
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 33
=== Basic block #33
##call fixnum>bignum
##branch
Successors: 34
=== Basic block #34
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 35
=== Basic block #35
##call bignum*
##branch
Successors: 36
=== Basic block #36
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 37
=== Basic block #37
##call shift
##branch
Successors: 38
=== Basic block #38
##branch
Successors: 44
=== Basic block #39
##branch
Successors: 40
=== Basic block #40
##call bignum*
##branch
Successors: 41
=== Basic block #41
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 42
=== Basic block #42
##call shift
##branch
Successors: 43
=== Basic block #43
##branch
Successors: 44
=== Basic block #44
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 45
=== Basic block #45
##call >integer
##branch
Successors: 46
=== Basic block #46
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 47
=== Basic block #47
##call set-alien-unsigned-8
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 2
##peek EBP R 2
##peek EAX R 0
##peek EBX R 1
##replace EBX R 0
##replace EAX R 1
##peek EAX R -1
##replace EAX R 2
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 49
=== Basic block #49
##call alien-unsigned-8
##branch
Successors: 50
=== Basic block #50
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 51
=== Basic block #51
##call alien-unsigned-8
##branch
Successors: 52
=== Basic block #52
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##test-imm-branch EBX 15 cc=
Successors: 53, 62
=== Basic block #53
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 54, 57
=== Basic block #54
##inc-r -1
##replace EBP D 1
##replace EDX D 0
##branch
Successors: 55
=== Basic block #55
##call shift
##branch
Successors: 56
=== Basic block #56
##branch
Successors: 83
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum*overflow
##branch
Successors: 59
=== Basic block #59
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 60
=== Basic block #60
##call shift
##branch
Successors: 61
=== Basic block #61
##branch
Successors: 83
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 70
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum*
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 68
=== Basic block #68
##call shift
##branch
Successors: 69
=== Basic block #69
##branch
Successors: 83
=== Basic block #70
##test-imm-branch EBP 15 cc=
Successors: 71, 78
=== Basic block #71
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 72
=== Basic block #72
##call fixnum>bignum
##branch
Successors: 73
=== Basic block #73
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 74
=== Basic block #74
##call bignum*
##branch
Successors: 75
=== Basic block #75
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 76
=== Basic block #76
##call shift
##branch
Successors: 77
=== Basic block #77
##branch
Successors: 83
=== Basic block #78
##branch
Successors: 79
=== Basic block #79
##call bignum*
##branch
Successors: 80
=== Basic block #80
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 81
=== Basic block #81
##call shift
##branch
Successors: 82
=== Basic block #82
##branch
Successors: 83
=== Basic block #83
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 84
=== Basic block #84
##call >integer
##branch
Successors: 85
=== Basic block #85
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 86
=== Basic block #86
##call set-alien-unsigned-8
##branch
Successors: 87
=== Basic block #87
##check-nursery-branch 16 cc<= EBP EAX
Successors: 89, 88
=== Basic block #88
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 89
=== Basic block #89
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 90
=== Basic block #90
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 817 905 } ulonglong-2{ 389 280 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v*high execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[ ulonglong-2{ 88 688 } ]
[ { ulonglong-2 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##andn-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 522 145 } ulonglong-2{ 128 459 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##replace EBP D 0
##zero-vector XMM1 ulonglong-2-rep
##sub-vector XMM1 XMM1 XMM0 ulonglong-2-rep
##store-memory-imm XMM1 EBX 7 ulonglong-2-rep f
##set-slot-imm EBX EBP 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 79 659 } ]
[ { ulonglong-2 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 2
##inc-d 2
##peek EBP D 2
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP R 1
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##shl-imm EBP ECX 7
##replace EBP R 0
##replace EBX R 1
##replace EAX D 0
##shl-imm ECX ECX 4
##replace ECX R 2
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EDX R -3
##peek EBX R -2
##peek EAX R -1
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EBP EAX
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d -3
##peek EBP R -2
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##sub-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 539 ulonglong-2{ 914 644 } ]
[ { bignum ulonglong-2 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 561 20 } ulonglong-2{ 379 530 } ]
[ { ulonglong-2 ulonglong-2 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##peek EAX D 3
##load-tagged EDX 32
##load-integer ECX 0
##replace EBX R 0
##replace EBP D 4
##branch
Successors: 9
=== Basic block #4
##inc-r 6
##inc-d -3
##shl-imm EBP ECX 4
##replace EBP R 2
##replace EDX R 3
##replace EBX R 4
##replace EAX R 5
##replace EAX D 0
##shl-imm ECX ECX 7
##replace ECX R 0
##replace EBX R 1
##branch
Successors: 5
=== Basic block #5
##call M\ bignum >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -4
##inc-d 4
##peek EAX R -1
##peek EDX R -3
##peek EBX R -2
##peek ECX R -4
##sar-imm ECX ECX 4
##add-imm ECX ECX 1
##safepoint
##branch
Successors: 9
=== Basic block #9
##sar-imm EBP EDX 4
##compare-integer-branch ECX EBP cc<
Successors: 4, 10
=== Basic block #10
##check-nursery-branch 48 cc<= EAX EBP
Successors: 12, 11
=== Basic block #11
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 12
=== Basic block #12
##inc-r -1
##inc-d -4
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##peek EBP R -1
##load-memory-imm XMM1 EBP 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 13
=== Basic block #13
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 941 664 } 616 ]
[ { ulonglong-2 bignum } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##load-memory-imm XMM1 EBP 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM2 B{ 255 255 255 255 255 255 255 255 0 0 0 0 0 0 0 0 } ulonglong-2-rep
##xor-vector XMM0 XMM0 XMM2 ulonglong-2-rep
##sub-vector XMM0 XMM0 XMM2 ulonglong-2-rep
##add-vector XMM1 XMM1 XMM0 ulonglong-2-rep
##store-memory-imm XMM1 EBX 7 ulonglong-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 255 866 } ulonglong-2{ 112 710 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##fill-vector XMM1 ulonglong-2-rep
##xor-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBX 7 ulonglong-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 926 340 } ]
[ { ulonglong-2 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ ulonglong-2{ 745 429 } ]
[ { ulonglong-2 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-r 3
##inc-d 1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP R 1
##replace EBP R 2
##replace EBP D 1
##replace-imm 0 D 0
##replace EBP R 0
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-8
##branch
Successors: 3
=== Basic block #3
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 6, 11
=== Basic block #6
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 7, 8
=== Basic block #7
##inc-d -1
##peek EAX R 0
##peek EBX R 1
##replace EBP D 0
##branch
Successors: 26
=== Basic block #8
##branch
Successors: 9
=== Basic block #9
##call fixnum*overflow
##branch
Successors: 10
=== Basic block #10
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #11
##test-imm-branch EAX 15 cc=
Successors: 12, 17
=== Basic block #12
##branch
Successors: 13
=== Basic block #13
##call fixnum>bignum
##branch
Successors: 14
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call bignum*
##branch
Successors: 16
=== Basic block #16
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #17
##test-imm-branch EBP 15 cc=
Successors: 18, 23
=== Basic block #18
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 19
=== Basic block #19
##call fixnum>bignum
##branch
Successors: 20
=== Basic block #20
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 21
=== Basic block #21
##call bignum*
##branch
Successors: 22
=== Basic block #22
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EAX R 0
##peek EBX R 1
##branch
Successors: 26
=== Basic block #26
##inc-r -2
##inc-d 4
##load-tagged EBP 16
##load-integer EDX 0
##branch
Successors: 28
=== Basic block #27
##inc-r -3
##inc-d 4
##load-integer EDX 1
##safepoint
##branch
Successors: 28
=== Basic block #28
##inc-d -1
##sar-imm ECX EBP 4
##compare-integer-branch EDX ECX cc<
Successors: 29, 75
=== Basic block #29
##inc-r 4
##inc-d -1
##replace EBX R 0
##replace EBP R 1
##replace EBX R 2
##replace EAX R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 30
=== Basic block #30
##call alien-unsigned-8
##branch
Successors: 31
=== Basic block #31
##inc-r -1
##inc-d 2
##replace-imm 8 D 0
##peek EBP R -1
##replace EBP D 1
##branch
Successors: 32
=== Basic block #32
##call alien-unsigned-8
##branch
Successors: 33
=== Basic block #33
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 34, 39
=== Basic block #34
##sar-imm EAX EAX 4
##fixnum-mul EBP EBP EAX cc/o
Successors: 35, 36
=== Basic block #35
##inc-d -1
##peek EDX D 1
##replace EBP D 0
##branch
Successors: 54
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call fixnum*overflow
##branch
Successors: 38
=== Basic block #38
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #39
##test-imm-branch EAX 15 cc=
Successors: 40, 45
=== Basic block #40
##branch
Successors: 41
=== Basic block #41
##call fixnum>bignum
##branch
Successors: 42
=== Basic block #42
##branch
Successors: 43
=== Basic block #43
##call bignum*
##branch
Successors: 44
=== Basic block #44
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #45
##test-imm-branch EBP 15 cc=
Successors: 46, 51
=== Basic block #46
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 47
=== Basic block #47
##call fixnum>bignum
##branch
Successors: 48
=== Basic block #48
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 49
=== Basic block #49
##call bignum*
##branch
Successors: 50
=== Basic block #50
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #51
##branch
Successors: 52
=== Basic block #52
##call bignum*
##branch
Successors: 53
=== Basic block #53
##peek EDX D 1
##peek EBP D 0
##branch
Successors: 54
=== Basic block #54
##or EAX EDX EBP
##test-imm-branch EAX 15 cc=
Successors: 55, 60
=== Basic block #55
##fixnum-add EDX EDX EBP cc/o
Successors: 56, 57
=== Basic block #56
##inc-d -1
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##replace EDX D 0
##branch
Successors: 27
=== Basic block #57
##branch
Successors: 58
=== Basic block #58
##call fixnum+overflow
##branch
Successors: 59
=== Basic block #59
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #60
##test-imm-branch EBP 15 cc=
Successors: 61, 66
=== Basic block #61
##branch
Successors: 62
=== Basic block #62
##call fixnum>bignum
##branch
Successors: 63
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call bignum+
##branch
Successors: 65
=== Basic block #65
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #66
##test-imm-branch EDX 15 cc=
Successors: 67, 72
=== Basic block #67
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 68
=== Basic block #68
##call fixnum>bignum
##branch
Successors: 69
=== Basic block #69
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 70
=== Basic block #70
##call bignum+
##branch
Successors: 71
=== Basic block #71
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #72
##branch
Successors: 73
=== Basic block #73
##call bignum+
##branch
Successors: 74
=== Basic block #74
##peek EBX R 1
##peek EAX R 2
##peek EBP R 0
##branch
Successors: 27
=== Basic block #75
##inc-d -3
##branch
Successors: 76
=== Basic block #76
##call >float
##branch
Successors: 77
=== Basic block #77
##check-nursery-branch 16 cc<= EAX EBP
Successors: 79, 78
=== Basic block #78
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 79
=== Basic block #79
##peek EBP D 0
##load-memory-imm XMM0 EBP 5 double-rep f
##allot EAX 16 float EBP
##sqrt XMM0 XMM0
##store-memory-imm XMM0 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 80
=== Basic block #80
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 213 357 } ]
[ { ulonglong-2 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##and-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 172 392 } ulonglong-2{ 704 318 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##peek EBP D 1
##slot-imm EBP EBP 2 7
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call bignum>fixnum
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 48 cc<= EAX EBP
Successors: 5, 4
=== Basic block #4
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##peek EBP D 0
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##peek EBX D -1
##sar-imm EBX EBX 4
##integer>scalar XMM1 EBX int-scalar-rep
##shl-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 6
=== Basic block #6
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 465 516 } 135 ]
[ { ulonglong-2 bignum } declare \ vlshift execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 345 594 } ulonglong-2{ 150 53 } ]
[ { ulonglong-2 ulonglong-2 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##zero-vector XMM0 ulonglong-2-rep
##store-memory-imm XMM0 EAX 7 ulonglong-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 522 779 } ulonglong-2{ 830 704 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 2
##peek EBP D 2
##replace-imm 0 D 0
##slot-imm EBP EBP 2 7
##replace EBP D 2
##replace EBP D 1
##branch
Successors: 2
=== Basic block #2
##call alien-unsigned-8
##branch
Successors: 3
=== Basic block #3
##inc-d 2
##peek EBP D 3
##load-integer EAX 1
##load-tagged EBX 32
##peek EDX D 2
##replace EDX D 3
##branch
Successors: 5
=== Basic block #4
##inc-r -2
##inc-d 3
##load-integer EAX 2
##safepoint
##branch
Successors: 5
=== Basic block #5
##inc-d -1
##sar-imm EDX EBX 4
##compare-integer-branch EAX EDX cc<
Successors: 6, 29
=== Basic block #6
##inc-r 2
##replace EBX R 0
##replace EBP R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 7
=== Basic block #7
##call alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##peek EAX D 1
##peek EBP D 0
##or EBX EAX EBP
##test-imm-branch EBX 15 cc=
Successors: 9, 14
=== Basic block #9
##fixnum-add EAX EAX EBP cc/o
Successors: 10, 11
=== Basic block #10
##inc-d -1
##peek EBX R 0
##peek EBP R 1
##replace EAX D 0
##branch
Successors: 4
=== Basic block #11
##branch
Successors: 12
=== Basic block #12
##call fixnum+overflow
##branch
Successors: 13
=== Basic block #13
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #14
##test-imm-branch EBP 15 cc=
Successors: 15, 20
=== Basic block #15
##branch
Successors: 16
=== Basic block #16
##call fixnum>bignum
##branch
Successors: 17
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call bignum+
##branch
Successors: 19
=== Basic block #19
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EAX 15 cc=
Successors: 21, 26
=== Basic block #21
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 24
=== Basic block #24
##call bignum+
##branch
Successors: 25
=== Basic block #25
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #26
##branch
Successors: 27
=== Basic block #27
##call bignum+
##branch
Successors: 28
=== Basic block #28
##peek EBX R 0
##peek EBP R 1
##branch
Successors: 4
=== Basic block #29
##inc-d -2
##branch
Successors: 30
=== Basic block #30
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 16 }
}
[ ulonglong-2{ 626 673 } ]
[ { ulonglong-2 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ ulonglong-2{ 270 877 } ]
[ { ulonglong-2 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot EBX 12 tuple ECX
##load-reference ECX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm ECX EBX 1 7
##set-slot-imm EDX EBX 2 7
##load-tagged EDX 32
##load-tagged ECX 0
##replace EBX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EAX EAX 3
##replace EAX R 0
##slot-imm EBP EBP 2 7
##replace EBP R 1
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EDX R -4
##peek EBP R -1
##peek EBX R -3
##peek EAX R -2
##peek ECX R -5
##add-imm ECX ECX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch ECX EDX cc<
Successors: 10, 35
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EDX R 5
##replace ECX R 0
##replace EAX R 1
##shl-imm EDX ECX 3
##replace EDX D 0
##replace EBP D 1
##replace EBX R 6
##replace EAX R 7
##replace EBP R 8
##replace ECX R 2
##replace EBX R 3
##replace ECX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-unsigned-8
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 3
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-unsigned-8
##branch
Successors: 14
=== Basic block #14
##peek EBX D 1
##peek EBP D 0
##or EAX EBX EBP
##test-imm-branch EAX 15 cc=
Successors: 15, 20
=== Basic block #15
##sar-imm EBP EBP 4
##fixnum-mul EBX EBX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##peek EBP R 1
##peek EAX R 0
##replace EBX D 0
##branch
Successors: 4
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum*overflow
##branch
Successors: 19
=== Basic block #19
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum*
##branch
Successors: 25
=== Basic block #25
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #26
##test-imm-branch EBX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum*
##branch
Successors: 31
=== Basic block #31
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum*
##branch
Successors: 34
=== Basic block #34
##peek EBP R 1
##peek EAX R 0
##branch
Successors: 4
=== Basic block #35
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 36
=== Basic block #36
##safepoint
##epilogue
##jump (h+)
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 155 65 } ulonglong-2{ 782 88 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v*hs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##or-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 458 978 } ulonglong-2{ 337 208 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##replace EBP D 1
##replace-imm ulonglong-2-rep D 0
##replace EAX D 2
##branch
Successors: 2
=== Basic block #2
##call rep-tf-values
##branch
Successors: 3
=== Basic block #3
##check-nursery-branch 32 cc<= EBP EAX
Successors: 5, 4
=== Basic block #4
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 5
=== Basic block #5
##inc-r 10
##inc-d -2
##allot EBP 32 byte-array EAX
##replace EBP R 9
##peek EAX D 0
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##peek EBX D -2
##replace EBX R 5
##replace EAX R 0
##replace EBX R 1
##replace-imm 0 D 0
##peek EBX D -1
##replace EBX R 6
##replace EAX R 7
##peek EAX D 1
##replace EAX R 8
##replace EBX R 2
##replace EBP R 3
##replace EBP R 4
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 8
=== Basic block #8
##call alien-unsigned-8
##branch
Successors: 9
=== Basic block #9
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 1
##peek ECX R 0
##test-imm-branch EBX 15 cc=
Successors: 10, 13
=== Basic block #10
##inc-r -2
##compare-integer-branch EBP EAX cc>=
Successors: 11, 12
=== Basic block #11
##inc-d -1
##branch
Successors: 31
=== Basic block #12
##inc-d -1
##copy EDX ECX tagged-rep
##branch
Successors: 31
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum>=
##branch
Successors: 18
=== Basic block #18
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum>=
##branch
Successors: 24
=== Basic block #24
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum>=
##branch
Successors: 27
=== Basic block #27
##peek EDX R 1
##peek EBP R 0
##peek EAX D 0
##branch
Successors: 28
=== Basic block #28
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 29, 30
=== Basic block #29
##inc-d -1
##branch
Successors: 31
=== Basic block #30
##inc-d -1
##copy EDX EBP tagged-rep
##branch
Successors: 31
=== Basic block #31
##inc-r 1
##replace-imm 0 R 0
##replace EDX D 0
##branch
Successors: 32
=== Basic block #32
##call >integer
##branch
Successors: 33
=== Basic block #33
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 34
=== Basic block #34
##call set-alien-unsigned-8
##branch
Successors: 35
=== Basic block #35
##inc-r -1
##inc-d 2
##peek EBP R 0
##peek EAX R 3
##peek EBX R 1
##peek EDX R 2
##replace EDX R 0
##replace EBP R 1
##replace EBX R 2
##peek EBP R -1
##replace EBP R 3
##replace-imm 8 D 0
##replace EAX D 1
##branch
Successors: 36
=== Basic block #36
##call alien-unsigned-8
##branch
Successors: 37
=== Basic block #37
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 38
=== Basic block #38
##call alien-unsigned-8
##branch
Successors: 39
=== Basic block #39
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##peek EDX R 0
##peek ECX R 1
##test-imm-branch EBX 15 cc=
Successors: 40, 43
=== Basic block #40
##inc-r -2
##compare-integer-branch EBP EAX cc>=
Successors: 41, 42
=== Basic block #41
##inc-d -1
##branch
Successors: 61
=== Basic block #42
##inc-d -1
##copy ECX EDX tagged-rep
##branch
Successors: 61
=== Basic block #43
##test-imm-branch EAX 15 cc=
Successors: 44, 49
=== Basic block #44
##branch
Successors: 45
=== Basic block #45
##call fixnum>bignum
##branch
Successors: 46
=== Basic block #46
##branch
Successors: 47
=== Basic block #47
##call bignum>=
##branch
Successors: 48
=== Basic block #48
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #49
##test-imm-branch EBP 15 cc=
Successors: 50, 55
=== Basic block #50
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 51
=== Basic block #51
##call fixnum>bignum
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 53
=== Basic block #53
##call bignum>=
##branch
Successors: 54
=== Basic block #54
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #55
##branch
Successors: 56
=== Basic block #56
##call bignum>=
##branch
Successors: 57
=== Basic block #57
##peek EBP R 0
##peek EAX D 0
##peek ECX R 1
##branch
Successors: 58
=== Basic block #58
##inc-r -2
##inc-d 1
##compare-imm-branch EAX f cc/=
Successors: 59, 60
=== Basic block #59
##inc-d -1
##branch
Successors: 61
=== Basic block #60
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 61
=== Basic block #61
##inc-r 1
##replace ECX D 0
##replace-imm 8 R 0
##branch
Successors: 62
=== Basic block #62
##call >integer
##branch
Successors: 63
=== Basic block #63
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 64
=== Basic block #64
##call set-alien-unsigned-8
##branch
Successors: 65
=== Basic block #65
##check-nursery-branch 16 cc<= EBP EAX
Successors: 67, 66
=== Basic block #66
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 67
=== Basic block #67
##inc-r -1
##inc-d 1
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##peek EBP R -1
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 68
=== Basic block #68
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 876 176 } ulonglong-2{ 763 786 } ]
[ { ulonglong-2 ulonglong-2 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot ECX 12 tuple EBX
##load-reference EBX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBX ECX 1 7
##load-tagged EBX 32
##set-slot-imm EDX ECX 2 7
##load-tagged EDX 0
##replace ECX R 0
##branch
Successors: 9
=== Basic block #4
##shl-imm EBP EBP 3
##replace EBP R 0
##slot-imm EAX EAX 2 7
##replace EAX R 1
##replace EBX D 0
##branch
Successors: 5
=== Basic block #5
##call >integer
##branch
Successors: 6
=== Basic block #6
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 7
=== Basic block #7
##call set-alien-unsigned-8
##branch
Successors: 8
=== Basic block #8
##inc-r -5
##inc-d 5
##peek EBX R -4
##peek EBP R -1
##peek ECX R -3
##peek EAX R -2
##peek EDX R -5
##add-imm EDX EDX 16
##safepoint
##branch
Successors: 9
=== Basic block #9
##compare-integer-branch EDX EBX cc<
Successors: 10, 42
=== Basic block #10
##inc-r 9
##inc-d -3
##replace EBX R 5
##replace EDX R 0
##replace EAX R 1
##shl-imm EBX EDX 3
##replace EBX D 0
##replace EBP D 1
##replace ECX R 6
##replace EAX R 7
##replace EBP R 8
##replace EDX R 2
##replace ECX R 3
##replace EDX R 4
##branch
Successors: 11
=== Basic block #11
##call alien-unsigned-8
##branch
Successors: 12
=== Basic block #12
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##shl-imm EBP EBP 3
##replace EBP D 0
##branch
Successors: 13
=== Basic block #13
##call alien-unsigned-8
##branch
Successors: 14
=== Basic block #14
##peek EBX D 1
##peek EBP D 0
##or EAX EBX EBP
##test-imm-branch EAX 15 cc=
Successors: 15, 20
=== Basic block #15
##fixnum-sub EBX EBX EBP cc/o
Successors: 16, 17
=== Basic block #16
##inc-d -1
##replace EBX D 0
##branch
Successors: 35
=== Basic block #17
##branch
Successors: 18
=== Basic block #18
##call fixnum-overflow
##branch
Successors: 19
=== Basic block #19
##peek EBX D 0
##branch
Successors: 35
=== Basic block #20
##test-imm-branch EBP 15 cc=
Successors: 21, 26
=== Basic block #21
##branch
Successors: 22
=== Basic block #22
##call fixnum>bignum
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bignum-
##branch
Successors: 25
=== Basic block #25
##peek EBX D 0
##branch
Successors: 35
=== Basic block #26
##test-imm-branch EBX 15 cc=
Successors: 27, 32
=== Basic block #27
##inc-r 1
##inc-d -1
##replace EBP R 0
##branch
Successors: 28
=== Basic block #28
##call fixnum>bignum
##branch
Successors: 29
=== Basic block #29
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 30
=== Basic block #30
##call bignum-
##branch
Successors: 31
=== Basic block #31
##peek EBX D 0
##branch
Successors: 35
=== Basic block #32
##branch
Successors: 33
=== Basic block #33
##call bignum-
##branch
Successors: 34
=== Basic block #34
##peek EBX D 0
##branch
Successors: 35
=== Basic block #35
##inc-d 1
##load-integer EDX 0
##test-imm-branch EBX 15 cc=
Successors: 36, 37
=== Basic block #36
##inc-d -1
##peek EAX R 1
##peek EBP R 0
##sar-imm EBX EBX 4
##max EBX EBX EDX
##shl-imm EBX EBX 4
##branch
Successors: 4
=== Basic block #37
##inc-r 2
##replace-imm 0 D 0
##replace-imm 0 R 1
##replace EBX R 0
##branch
Successors: 38
=== Basic block #38
##call bignum>
##branch
Successors: 39
=== Basic block #39
##inc-r -2
##inc-d 1
##peek EBP R 0
##peek EBX R -2
##peek EAX R 1
##peek EDX R -1
##peek ECX D 1
##compare-imm-branch ECX f cc/=
Successors: 40, 41
=== Basic block #40
##inc-d -1
##branch
Successors: 4
=== Basic block #41
##inc-d -1
##copy EBX EDX tagged-rep
##branch
Successors: 4
=== Basic block #42
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 613 39 } ulonglong-2{ 875 554 } ]
[ { ulonglong-2 ulonglong-2 } declare \ [v-] execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 32 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 6
##peek EBP D 0
##peek EAX D 1
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##allot EBX 32 byte-array EDX
##replace EBX R 5
##load-tagged EDX 256
##set-slot-imm EDX EBX 1 9
##replace EBX R 1
##replace EBX R 2
##replace EBP R 3
##replace EAX R 4
##replace-imm 0 D 0
##replace EAX D 1
##replace EBP R 0
##branch
Successors: 4
=== Basic block #4
##call alien-unsigned-8
##branch
Successors: 5
=== Basic block #5
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 0 D 0
##branch
Successors: 6
=== Basic block #6
##call alien-unsigned-8
##branch
Successors: 7
=== Basic block #7
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 8, 13
=== Basic block #8
##fixnum-add EBP EBP EAX cc/o
Successors: 9, 10
=== Basic block #9
##inc-d -1
##replace EBP D 0
##branch
Successors: 28
=== Basic block #10
##branch
Successors: 11
=== Basic block #11
##call fixnum+overflow
##branch
Successors: 12
=== Basic block #12
##peek EBP D 0
##branch
Successors: 28
=== Basic block #13
##test-imm-branch EAX 15 cc=
Successors: 14, 19
=== Basic block #14
##branch
Successors: 15
=== Basic block #15
##call fixnum>bignum
##branch
Successors: 16
=== Basic block #16
##branch
Successors: 17
=== Basic block #17
##call bignum+
##branch
Successors: 18
=== Basic block #18
##peek EBP D 0
##branch
Successors: 28
=== Basic block #19
##test-imm-branch EBP 15 cc=
Successors: 20, 25
=== Basic block #20
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 21
=== Basic block #21
##call fixnum>bignum
##branch
Successors: 22
=== Basic block #22
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 23
=== Basic block #23
##call bignum+
##branch
Successors: 24
=== Basic block #24
##peek EBP D 0
##branch
Successors: 28
=== Basic block #25
##branch
Successors: 26
=== Basic block #26
##call bignum+
##branch
Successors: 27
=== Basic block #27
##peek EBP D 0
##branch
Successors: 28
=== Basic block #28
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 29, 34
=== Basic block #29
##fixnum-add EBP EBP EAX cc/o
Successors: 30, 31
=== Basic block #30
##inc-d -1
##replace EBP D 0
##branch
Successors: 39
=== Basic block #31
##replace-imm 1 D 0
##branch
Successors: 32
=== Basic block #32
##call fixnum+overflow
##branch
Successors: 33
=== Basic block #33
##peek EBP D 0
##branch
Successors: 39
=== Basic block #34
##replace-imm 1 D 0
##branch
Successors: 35
=== Basic block #35
##call fixnum>bignum
##branch
Successors: 36
=== Basic block #36
##branch
Successors: 37
=== Basic block #37
##call bignum+
##branch
Successors: 38
=== Basic block #38
##peek EBP D 0
##branch
Successors: 39
=== Basic block #39
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 40, 45
=== Basic block #40
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 0 R 0
##branch
Successors: 41
=== Basic block #41
##call >integer
##branch
Successors: 42
=== Basic block #42
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 43
=== Basic block #43
##call set-alien-unsigned-8
##branch
Successors: 44
=== Basic block #44
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 52
=== Basic block #45
##replace-imm -1 D 0
##branch
Successors: 46
=== Basic block #46
##call bignum-shift
##branch
Successors: 47
=== Basic block #47
##inc-r 1
##replace-imm 0 R 0
##branch
Successors: 48
=== Basic block #48
##call >integer
##branch
Successors: 49
=== Basic block #49
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 50
=== Basic block #50
##call set-alien-unsigned-8
##branch
Successors: 51
=== Basic block #51
##peek EBP R 2
##peek EAX R 0
##branch
Successors: 52
=== Basic block #52
##inc-r -1
##inc-d 2
##replace EAX R 1
##replace-imm 8 D 0
##replace EBP D 1
##branch
Successors: 53
=== Basic block #53
##call alien-unsigned-8
##branch
Successors: 54
=== Basic block #54
##inc-r -1
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##replace-imm 8 D 0
##branch
Successors: 55
=== Basic block #55
##call alien-unsigned-8
##branch
Successors: 56
=== Basic block #56
##peek EBP D 1
##peek EAX D 0
##or EBX EBP EAX
##test-imm-branch EBX 15 cc=
Successors: 57, 62
=== Basic block #57
##fixnum-add EBP EBP EAX cc/o
Successors: 58, 59
=== Basic block #58
##inc-d -1
##replace EBP D 0
##branch
Successors: 77
=== Basic block #59
##branch
Successors: 60
=== Basic block #60
##call fixnum+overflow
##branch
Successors: 61
=== Basic block #61
##peek EBP D 0
##branch
Successors: 77
=== Basic block #62
##test-imm-branch EAX 15 cc=
Successors: 63, 68
=== Basic block #63
##branch
Successors: 64
=== Basic block #64
##call fixnum>bignum
##branch
Successors: 65
=== Basic block #65
##branch
Successors: 66
=== Basic block #66
##call bignum+
##branch
Successors: 67
=== Basic block #67
##peek EBP D 0
##branch
Successors: 77
=== Basic block #68
##test-imm-branch EBP 15 cc=
Successors: 69, 74
=== Basic block #69
##inc-r 1
##inc-d -1
##replace EAX R 0
##branch
Successors: 70
=== Basic block #70
##call fixnum>bignum
##branch
Successors: 71
=== Basic block #71
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 72
=== Basic block #72
##call bignum+
##branch
Successors: 73
=== Basic block #73
##peek EBP D 0
##branch
Successors: 77
=== Basic block #74
##branch
Successors: 75
=== Basic block #75
##call bignum+
##branch
Successors: 76
=== Basic block #76
##peek EBP D 0
##branch
Successors: 77
=== Basic block #77
##inc-d 1
##load-tagged EAX 16
##test-imm-branch EBP 15 cc=
Successors: 78, 83
=== Basic block #78
##fixnum-add EBP EBP EAX cc/o
Successors: 79, 80
=== Basic block #79
##inc-d -1
##replace EBP D 0
##branch
Successors: 88
=== Basic block #80
##replace-imm 1 D 0
##branch
Successors: 81
=== Basic block #81
##call fixnum+overflow
##branch
Successors: 82
=== Basic block #82
##peek EBP D 0
##branch
Successors: 88
=== Basic block #83
##replace-imm 1 D 0
##branch
Successors: 84
=== Basic block #84
##call fixnum>bignum
##branch
Successors: 85
=== Basic block #85
##branch
Successors: 86
=== Basic block #86
##call bignum+
##branch
Successors: 87
=== Basic block #87
##peek EBP D 0
##branch
Successors: 88
=== Basic block #88
##inc-d 1
##test-imm-branch EBP 15 cc=
Successors: 89, 95
=== Basic block #89
##inc-r 1
##inc-d -1
##sar-imm EBP EBP 5
##shl-imm EBP EBP 4
##replace EBP D 0
##replace-imm 8 R 0
##branch
Successors: 90
=== Basic block #90
##call >integer
##branch
Successors: 91
=== Basic block #91
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 92
=== Basic block #92
##call set-alien-unsigned-8
##branch
Successors: 93
=== Basic block #93
##peek EBP R 0
##branch
Successors: 94
=== Basic block #94
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 102
=== Basic block #95
##replace-imm -1 D 0
##branch
Successors: 96
=== Basic block #96
##call bignum-shift
##branch
Successors: 97
=== Basic block #97
##inc-r 1
##replace-imm 8 R 0
##branch
Successors: 98
=== Basic block #98
##call >integer
##branch
Successors: 99
=== Basic block #99
##inc-r -2
##inc-d 2
##peek EBP R -1
##replace EBP D 1
##peek EBP R -2
##replace EBP D 0
##branch
Successors: 100
=== Basic block #100
##call set-alien-unsigned-8
##branch
Successors: 101
=== Basic block #101
##peek EBP R 0
##spill EBP tagged-rep T{ spill-slot }
##branch
Successors: 102
=== Basic block #102
##check-nursery-branch 16 cc<= EAX EBX
Successors: 104, 103
=== Basic block #103
##save-context EBX EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { T{ spill-slot } } }
{ derived-roots V{ } }
}
##branch
Successors: 104
=== Basic block #104
##inc-r -1
##inc-d 1
##allot EBP 12 tuple EAX
##load-reference EAX {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EAX EBP 1 7
##reload EAX tagged-rep T{ spill-slot }
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 105
=== Basic block #105
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 382 877 } ulonglong-2{ 878 632 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vavg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##load-memory-imm XMM1 EAX 7 ulonglong-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
ulonglong-2
1
2
tuple
-65101626
simd-128
8440422
ulonglong-2
-46393882
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##xor-vector XMM0 XMM0 XMM1 ulonglong-2-rep
##store-memory-imm XMM0 EBP 7 ulonglong-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ ulonglong-2{ 17 604 } ulonglong-2{ 515 495 } ]
[ { ulonglong-2 ulonglong-2 } declare \ vbitxor execute ]
Unit Test: { [ { } ] [ \ float-4 \ float [ approx= ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc=
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 54.0 515.0 674.0 981.0 }
float-4{ 431.0 NAN: 8000000000000 205.0 760.0 }
]
[ { float-4 float-4 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM1 B{ 0 0 0 128 0 0 0 128 0 0 0 128 0 0 0 128 } float-4-rep
##andn-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EBX 7 float-4-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 956.0 30.0 553.0 553.0 } ]
[ { float-4 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ NAN: 8000000000000 NAN: 8000000000000 61.0 205.0 }
float-4{
NAN: 8000000000000
NAN: 8000000000000
555.0
425.0
}
]
[ { float-4 float-4 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc<
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 564.0 871.0 574.0 160.0 }
float-4{ 866.0 11.0 534.0 116.0 }
]
[ { float-4 float-4 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##add-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ NAN: 8000000000000 990.0 152.0 60.0 } 725.0 ]
[ { float-4 float } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##div-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 520.0 849.0 750.0 358.0 } 858.0 ]
[ { float-4 float } declare \ v/n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 float-4-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc<
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 301.0 781.0 877.0 948.0 }
float-4{ 271.0 403.0 265.0 483.0 }
]
[ { float-4 float-4 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##add-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 180.0 float-4{ 706.0 927.0 290.0 663.0 } ]
[ { float float-4 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EAX 16 float EBP
##dot-vector XMM1 XMM0 XMM0 float-4-rep
##single>double-float XMM1 XMM1
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 513.0 647.0 927.0 639.0 } ]
[ { float-4 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##div-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 11.0 672.0 240.0 562.0 }
float-4{ NAN: 8000000000000 753.0 411.0 652.0 }
]
[ { float-4 float-4 } declare \ v/ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##sub-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 304.0 499.0 136.0 887.0 }
float-4{ 881.0 245.0 478.0 126.0 }
]
[ { float-4 float-4 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 16 float EAX
##dot-vector XMM0 XMM0 XMM1 float-4-rep
##single>double-float XMM0 XMM0
##store-memory-imm XMM0 EBP 5 double-rep f
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 158.0 240.0 328.0 361.0 }
float-4{ 473.0 518.0 0.0 838.0 }
]
[ { float-4 float-4 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 377.0 352.0 159.0 863.0 } float-4{
NAN: 8000000000000
NAN: 8000000000000
646.0
287.0
}
]
[ { float-4 float-4 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##min-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 649.0 423.0 876.0 699.0 }
float-4{ 463.0 498.0 284.0 NAN: 8000000000000 }
]
[ { float-4 float-4 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 761.0 54.0 594.0 918.0 }
float-4{ 41.0 654.0 64.0 761.0 }
]
[ { float-4 float-4 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 441.0 152.0 154.0 NAN: 8000000000000 }
float-4{ 716.0 455.0 446.0 839.0 }
]
[ { float-4 float-4 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##sqrt-vector XMM0 XMM0 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 364.0 244.0 561.0 116.0 } ]
[ { float-4 } declare \ vsqrt execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{
NAN: 8000000000000
NAN: 8000000000000
581.0
521.0
} float-4{ 730.0 159.0 677.0 159.0 }
]
[ { float-4 float-4 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##max-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 67.0 100.0 413.0 850.0 }
float-4{ 349.0 510.0 NAN: 8000000000000 617.0 }
]
[ { float-4 float-4 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc<=
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 833.0 75.0 875.0 31.0 }
float-4{ 581.0 988.0 900.0 404.0 }
]
[ { float-4 float-4 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##mul-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 494.0 float-4{ 529.0 114.0 459.0 69.0 } ]
[ { float float-4 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##mul-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 779.0 651.0 397.0 189.0 } 342.0 ]
[ { float-4 float } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EAX 7 float-rep f
##load-memory-imm XMM1 EBP 7 float-rep f
##single>double-float XMM0 XMM0
##single>double-float XMM1 XMM1
##sub-float XMM0 XMM0 XMM1
##allot EBX 16 float EDX
##store-memory-imm XMM0 EBX 5 double-rep f
##replace EBP D 1
##replace EBX D 0
##replace EAX D 2
##branch
Successors: 4
=== Basic block #4
##call double>bits
##branch
Successors: 5
=== Basic block #5
##inc-r 1
##replace-imm -9223372036854775809 R 0
##branch
Successors: 6
=== Basic block #6
##call >bignum
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##call bignum-bitand
##branch
Successors: 9
=== Basic block #9
##branch
Successors: 10
=== Basic block #10
##call bits>double
##branch
Successors: 11
=== Basic block #11
##inc-d 2
##peek EBP D 3
##peek EAX D 2
##peek EBX D 4
##load-integer EDX 1
##load-tagged ECX 64
##branch
Successors: 12
=== Basic block #12
##spill EAX tagged-rep T{ spill-slot }
##spill EBP tagged-rep T{ spill-slot { n 8 } }
##spill EBX tagged-rep T{ spill-slot { n 12 } }
##branch
Successors: 14
=== Basic block #13
##inc-r -4
##inc-d 3
##peek EBP D 4
##load-memory-imm XMM0 EBP 5 double-rep f
##peek EBP D 3
##load-memory-imm XMM1 EBP 5 double-rep f
##allot EAX 16 float EBP
##add-float XMM0 XMM0 XMM1
##store-memory-imm XMM0 EAX 5 double-rep f
##spill EAX tagged-rep T{ spill-slot }
##peek EBP R -2
##spill EBP tagged-rep T{ spill-slot { n 8 } }
##peek EBX R -1
##spill EBX tagged-rep T{ spill-slot { n 12 } }
##peek ECX R -3
##peek EDX R -4
##sar-imm EDX EDX 4
##add-imm EDX EDX 1
##safepoint
##branch
Successors: 14
=== Basic block #14
##sar-imm EAX ECX 4
##spill ECX tagged-rep T{ spill-slot { n 4 } }
##compare-integer-branch EDX EAX cc<
Successors: 15, 27
=== Basic block #15
##spill EDX int-rep T{ spill-slot { n 16 } }
##check-nursery-branch 16 cc<= ECX EAX
Successors: 17, 16
=== Basic block #16
##save-context EAX ECX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 } }
{ scrub-r B{ } }
{ gc-roots
{
T{ spill-slot { n 8 } }
T{ spill-slot { n 12 } }
T{ spill-slot { n 4 } }
T{ spill-slot }
}
}
{ derived-roots V{ } }
}
##branch
Successors: 17
=== Basic block #17
##inc-r 4
##inc-d -3
##reload EBP int-rep T{ spill-slot { n 12 } }
##reload EAX int-rep T{ spill-slot { n 16 } }
##load-memory XMM0 EBP EAX 2 7 float-rep f
##reload EBX int-rep T{ spill-slot { n 8 } }
##load-memory XMM1 EBX EAX 2 7 float-rep f
##single>double-float XMM0 XMM0
##single>double-float XMM1 XMM1
##sub-float XMM0 XMM0 XMM1
##allot EDX 16 float ECX
##store-memory-imm XMM0 EDX 5 double-rep f
##shl-imm EAX EAX 4
##replace EAX R 0
##reload EAX tagged-rep T{ spill-slot { n 4 } }
##replace EAX R 1
##replace EBX R 2
##replace EBP R 3
##replace EDX D 0
##reload EBP tagged-rep T{ spill-slot }
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call double>bits
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm -9223372036854775809 R 0
##branch
Successors: 20
=== Basic block #20
##call >bignum
##branch
Successors: 21
=== Basic block #21
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call bignum-bitand
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bits>double
##branch
Successors: 25
=== Basic block #25
##check-nursery-branch 16 cc<= EAX EBP
Successors: 13, 26
=== Basic block #26
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 13
=== Basic block #27
##reload EBP tagged-rep T{ spill-slot }
##branch
Successors: 28
=== Basic block #28
##inc-d -4
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 20 }
{ spill-area-align 4 }
{ total-size 48 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 227.0 309.0 476.0 453.0 }
float-4{ 142.0 441.0 NAN: 8000000000000 743.0 }
]
[ { float-4 float-4 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[
float-4{
NAN: 8000000000000
478.0
509.0
NAN: 8000000000000
}
]
[ { float-4 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##andn-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 188.0 413.0 682.0 625.0 }
float-4{ 439.0 437.0 205.0 681.0 }
]
[ { float-4 float-4 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##load-vector XMM1 B{ 0 0 0 128 0 0 0 128 0 0 0 128 0 0 0 128 } float-4-rep
##sub-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EBX 7 float-4-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 249.0 470.0 876.0 620.0 } ]
[ { float-4 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##sub-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 999.0 float-4{ 409.0 245.0 722.0 81.0 } ]
[ { float float-4 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 390.0 583.0 53.0 259.0 }
float-4{ 583.0 600.0 870.0 NAN: 8000000000000 }
]
[ { float-4 float-4 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##sub-vector XMM1 XMM1 XMM0 float-4-rep
##store-memory-imm XMM1 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 153.0 113.0 84.0 266.0 } 361.0 ]
[ { float-4 float } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-sub-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 338.0 687.0 334.0 94.0 }
float-4{ 792.0 845.0 1.0 NAN: 8000000000000 }
]
[ { float-4 float-4 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##replace EAX D 0
##fill-vector XMM1 float-4-rep
##xor-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBX 7 float-4-rep f
##set-slot-imm EBX EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 605.0 134.0 NAN: 8000000000000 44.0 } ]
[ { float-4 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ float-4{ NAN: 8000000000000 977.0 367.0 645.0 } ]
[ { float-4 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EAX 16 float EBP
##dot-vector XMM1 XMM0 XMM0 float-4-rep
##single>double-float XMM1 XMM1
##sqrt XMM1 XMM1
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 946.0 675.0 208.0 277.0 } ]
[ { float-4 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##and-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 241.0 965.0 859.0 203.0 }
float-4{ 736.0 387.0 505.0 634.0 }
]
[ { float-4 float-4 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 16 float EAX
##sub-vector XMM0 XMM0 XMM1 float-4-rep
##dot-vector XMM1 XMM0 XMM0 float-4-rep
##single>double-float XMM1 XMM1
##sqrt XMM1 XMM1
##store-memory-imm XMM1 EBP 5 double-rep f
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 325.0 70.0 645.0 NAN: 8000000000000 } float-4{
NAN: 8000000000000
NAN: 8000000000000
140.0
211.0
}
]
[ { float-4 float-4 } declare \ distance execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 346.0 868.0 NAN: 8000000000000 648.0 }
float-4{ 425.0 573.0 25.0 217.0 }
]
[ { float-4 float-4 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc/<>=
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{
617.0
NAN: 8000000000000
258.0
NAN: 8000000000000
} float-4{ 373.0 134.0 234.0 936.0 }
]
[ { float-4 float-4 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EAX 16 float EBP
##horizontal-add-vector XMM1 XMM0 XMM0 float-4-rep
##horizontal-add-vector XMM0 XMM1 XMM1 float-4-rep
##vector>scalar XMM0 XMM0 float-4-rep
##single>double-float XMM0 XMM0
##store-memory-imm XMM0 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 438.0 660.0 183.0 111.0 } ]
[ { float-4 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ float-4{ 425.0 439.0 234.0 NAN: 8000000000000 } ]
[ { float-4 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##or-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ NAN: 8000000000000 774.0 222.0 762.0 }
float-4{ 722.0 543.0 553.0 180.0 }
]
[ { float-4 float-4 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 float-4-rep f
##load-memory-imm XMM1 EBP 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##compare-vector XMM0 XMM0 XMM1 float-4-rep cc<=
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{
561.0
NAN: 8000000000000
532.0
NAN: 8000000000000
} float-4{ 291.0 629.0 743.0 199.0 }
]
[ { float-4 float-4 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##spill EBP tagged-rep T{ spill-slot }
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EBX 32 byte-array EDX
##load-tagged EDX 256
##set-slot-imm EDX EBX 1 9
##allot ECX 12 tuple EDX
##replace ECX R 0
##load-tagged EDX 64
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP ECX 1 7
##set-slot-imm EBX ECX 2 7
##load-integer EBP 0
##spill EBP int-rep T{ spill-slot { n 8 } }
##branch
Successors: 4
=== Basic block #4
##reload EBX int-rep T{ spill-slot { n 8 } }
##spill EAX tagged-rep T{ spill-slot { n 20 } }
##spill ECX tagged-rep T{ spill-slot { n 12 } }
##branch
Successors: 8
=== Basic block #5
##replace EDX R 3
##replace EBP D 0
##spill EBP tagged-rep T{ spill-slot { n 4 } }
##replace ECX R 4
##replace EAX R 5
##reload EBP tagged-rep T{ spill-slot }
##replace EBP R 6
##replace EBX R 0
##slot-imm ECX ECX 2 7
##replace ECX R 1
##reload EBX int-rep T{ spill-slot { n 8 } }
##shl-imm EBX EBX 4
##replace EBX R 2
##branch
Successors: 6
=== Basic block #6
##call >float
##branch
Successors: 7
=== Basic block #7
##inc-r -7
##inc-d 4
##peek EBP D 4
##load-memory-imm XMM0 EBP 5 double-rep f
##peek EBP R -6
##double>single-float XMM0 XMM0
##peek EAX R -7
##sar-imm EAX EAX 4
##store-memory XMM0 EBP EAX 0 7 float-rep f
##peek EDX R -4
##peek ECX R -3
##spill ECX tagged-rep T{ spill-slot { n 12 } }
##peek EAX R -2
##spill EAX tagged-rep T{ spill-slot { n 20 } }
##peek EBP R -1
##spill EBP tagged-rep T{ spill-slot }
##peek EBX R -5
##sar-imm EBX EBX 4
##add-imm EBX EBX 1
##safepoint
##branch
Successors: 8
=== Basic block #8
##sar-imm ECX EDX 4
##spill EDX tagged-rep T{ spill-slot { n 16 } }
##compare-integer-branch EBX ECX cc<
Successors: 9, 16
=== Basic block #9
##spill EBX int-rep T{ spill-slot { n 8 } }
##check-nursery-branch 16 cc<= ECX EDX
Successors: 11, 10
=== Basic block #10
##save-context EDX ECX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 0 0 } }
{ scrub-r B{ 1 } }
{ gc-roots
{
T{ spill-slot { n 20 } }
T{ spill-slot }
T{ spill-slot { n 16 } }
T{ spill-slot { n 12 } }
}
}
{ derived-roots V{ } }
}
##branch
Successors: 11
=== Basic block #11
##inc-r 7
##inc-d -3
##reload EBP int-rep T{ spill-slot }
##reload EAX int-rep T{ spill-slot { n 8 } }
##load-memory XMM0 EBP EAX 2 7 float-rep f
##spill EBP int-rep T{ spill-slot }
##reload EDX int-rep T{ spill-slot { n 20 } }
##load-memory XMM1 EDX EAX 2 7 float-rep f
##spill EAX int-rep T{ spill-slot { n 8 } }
##single>double-float XMM0 XMM0
##single>double-float XMM1 XMM1
##sub-float XMM0 XMM0 XMM1
##allot ECX 16 float EAX
##store-memory-imm XMM0 ECX 5 double-rep f
##reload EAX int-rep T{ spill-slot { n 8 } }
##shl-imm EBX EAX 6
##load-tagged EBP 0
##load-double XMM0 0.0
##load-memory-imm XMM1 ECX 5 double-rep f
##compare-float-ordered-branch XMM1 XMM0 cc>
Successors: 12, 14
=== Basic block #12
##inc-d -1
##branch
Successors: 13
=== Basic block #13
##copy EBP ECX tagged-rep
##spill EAX int-rep T{ spill-slot { n 8 } }
##reload ECX tagged-rep T{ spill-slot { n 12 } }
##copy EAX EDX tagged-rep
##reload EDX tagged-rep T{ spill-slot { n 16 } }
##branch
Successors: 5
=== Basic block #14
##inc-d -1
##copy ECX EBP tagged-rep
##branch
Successors: 15
=== Basic block #15
##copy EBP ECX tagged-rep
##spill EAX int-rep T{ spill-slot { n 8 } }
##reload ECX tagged-rep T{ spill-slot { n 12 } }
##copy EAX EDX tagged-rep
##reload EDX tagged-rep T{ spill-slot { n 16 } }
##branch
Successors: 5
=== Basic block #16
##inc-r -1
##inc-d -4
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 17
=== Basic block #17
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 24 }
{ spill-area-align 4 }
{ total-size 48 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 896.0 356.0 508.0 733.0 }
float-4{ NAN: 8000000000000 762.0 455.0 106.0 }
]
[ { float-4 float-4 } declare \ [v-] execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##dot-vector XMM1 XMM0 XMM0 float-4-rep
##single>double-float XMM1 XMM1
##sqrt XMM1 XMM1
##double>single-float XMM1 XMM1
##scalar>vector XMM1 XMM1 float-4-rep
##shuffle-vector-imm XMM1 XMM1 { 0 0 0 0 } float-4-rep
##div-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ float-4{ 472.0 735.0 NAN: 8000000000000 122.0 } ]
[ { float-4 } declare \ normalize execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##add-vector XMM0 XMM0 XMM1 float-4-rep
##load-vector XMM1 B{ 0 0 0 63 0 0 0 63 0 0 0 63 0 0 0 63 } float-4-rep
##mul-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBX 7 float-4-rep f
##replace EBP D 0
##set-slot-imm EBX EBP 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 444.0 443.0 761.0 225.0 }
float-4{ 209.0 997.0 758.0 921.0 }
]
[ { float-4 float-4 } declare \ vavg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 float-4-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##xor-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EBP 7 float-4-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
float-4{ 75.0 29.0 268.0 NAN: 8000000000000 }
float-4{ 45.0 96.0 815.0 398.0 }
]
[ { float-4 float-4 } declare \ vbitxor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 float-4-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
float-4
1
2
tuple
-65101626
simd-128
8440422
float-4
-6140398
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##double>single-float XMM0 XMM0
##scalar>vector XMM0 XMM0 float-4-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 0 0 } float-4-rep
##div-vector XMM0 XMM0 XMM1 float-4-rep
##store-memory-imm XMM0 EAX 7 float-4-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 265.0 float-4{ 622.0 829.0 970.0 705.0 } ]
[ { float float-4 } declare \ n/v execute ]
--> test failed!
Unit Test: { [ { } ] [ \ double-2 \ float [ exact= ] check-vector-ops ] }
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc=
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 312.0 671.0 } double-2{ 894.0 751.0 } ]
[ { double-2 double-2 } declare \ v= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##load-vector XMM1 B{ 0 0 0 0 0 0 0 128 0 0 0 0 0 0 0 128 } double-2-rep
##andn-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 26.0 13.0 } ]
[ { double-2 } declare \ vabs execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 857.0 86.0 } double-2{ 157.0 295.0 } ]
[ { double-2 double-2 } declare \ v* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc<
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ NAN: 8000000000000 391.0 } double-2{ 754.0 36.0 } ]
[ { double-2 double-2 } declare \ v< execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##add-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 524.0 804.0 } 305.0 ]
[ { double-2 float } declare \ v+n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##div-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ NAN: 8000000000000 925.0 } 720.0 ]
[ { double-2 float } declare \ v/n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 double-2-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc<
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 366.0 628.0 } double-2{ NAN: 8000000000000 43.0 } ]
[ { double-2 double-2 } declare \ v> execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##add-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 956.0 double-2{ 307.0 198.0 } ]
[ { float double-2 } declare \ n+v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EAX 16 float EBP
##dot-vector XMM1 XMM0 XMM0 double-2-rep
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 167.0 NAN: 8000000000000 } ]
[ { double-2 } declare \ norm-sq execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##div-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 527.0 758.0 } double-2{ 748.0 121.0 } ]
[ { double-2 double-2 } declare \ v/ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 43.0 662.0 } double-2{ 316.0 897.0 } ]
[ { double-2 double-2 } declare \ v- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EBP 16 float EAX
##dot-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 5 double-rep f
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 385.0 261.0 } double-2{ 782.0 501.0 } ]
[ { double-2 double-2 } declare \ v. execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 57.0 225.0 } double-2{ 828.0 NAN: 8000000000000 } ]
[ { double-2 double-2 } declare \ v+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##min-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 619.0 644.0 } double-2{ 302.0 768.0 } ]
[ { double-2 double-2 } declare \ vmin execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##sub-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
double-2{ NAN: 8000000000000 520.0 }
double-2{ 720.0 691.0 }
]
[ { double-2 double-2 } declare \ vs- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 382.0 347.0 } double-2{ 770.0 43.0 } ]
[ { double-2 double-2 } declare \ vs+ execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EAX EBP 1 7
##allot EAX 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EAX 1 9
##sqrt-vector XMM0 XMM0 double-2-rep
##store-memory-imm XMM0 EAX 7 double-2-rep f
##set-slot-imm EAX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 952.0 457.0 } ]
[ { double-2 } declare \ vsqrt execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##mul-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 973.0 909.0 } double-2{ 97.0 337.0 } ]
[ { double-2 double-2 } declare \ vs* execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##max-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 378.0 225.0 } double-2{ 788.0 531.0 } ]
[ { double-2 double-2 } declare \ vmax execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##replace EAX D 0
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc<=
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 987.0 994.0 } double-2{ 187.0 720.0 } ]
[ { double-2 double-2 } declare \ v<= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##mul-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 322.0 double-2{ 898.0 998.0 } ]
[ { float double-2 } declare \ n*v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##mul-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 155.0 523.0 } 382.0 ]
[ { double-2 float } declare \ v*n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d 1
##peek EBP D 1
##peek EAX D 2
##slot-imm EAX EAX 2 7
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EAX 7 double-rep f
##load-memory-imm XMM1 EBP 7 double-rep f
##allot EBX 16 float EDX
##sub-float XMM0 XMM0 XMM1
##store-memory-imm XMM0 EBX 5 double-rep f
##replace EBP D 1
##replace EBX D 0
##replace EAX D 2
##branch
Successors: 4
=== Basic block #4
##call double>bits
##branch
Successors: 5
=== Basic block #5
##inc-r 1
##replace-imm -9223372036854775809 R 0
##branch
Successors: 6
=== Basic block #6
##call >bignum
##branch
Successors: 7
=== Basic block #7
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 8
=== Basic block #8
##call bignum-bitand
##branch
Successors: 9
=== Basic block #9
##branch
Successors: 10
=== Basic block #10
##call bits>double
##branch
Successors: 11
=== Basic block #11
##inc-d 2
##peek EBP D 3
##peek EAX D 2
##peek EBX D 4
##load-integer EDX 1
##load-tagged ECX 32
##branch
Successors: 12
=== Basic block #12
##spill EAX tagged-rep T{ spill-slot }
##spill EBX tagged-rep T{ spill-slot { n 8 } }
##spill EBP tagged-rep T{ spill-slot { n 4 } }
##branch
Successors: 14
=== Basic block #13
##inc-r -3
##inc-d 3
##peek EBP D 4
##load-memory-imm XMM0 EBP 5 double-rep f
##peek EBP D 3
##load-memory-imm XMM1 EBP 5 double-rep f
##allot EAX 16 float EBP
##add-float XMM0 XMM0 XMM1
##store-memory-imm XMM0 EAX 5 double-rep f
##spill EAX tagged-rep T{ spill-slot }
##peek EBP R -2
##spill EBP tagged-rep T{ spill-slot { n 4 } }
##peek EBX R -1
##spill EBX tagged-rep T{ spill-slot { n 8 } }
##peek ECX R -3
##load-integer EDX 2
##safepoint
##branch
Successors: 14
=== Basic block #14
##inc-d -1
##sar-imm EAX ECX 4
##spill ECX tagged-rep T{ spill-slot { n 12 } }
##compare-integer-branch EDX EAX cc<
Successors: 15, 27
=== Basic block #15
##check-nursery-branch 16 cc<= EAX EDX
Successors: 17, 16
=== Basic block #16
##save-context EDX EAX
##call-gc T{ gc-map
{ scrub-d B{ 0 0 } }
{ scrub-r B{ } }
{ gc-roots
{
T{ spill-slot }
T{ spill-slot { n 4 } }
T{ spill-slot { n 8 } }
T{ spill-slot { n 12 } }
}
}
{ derived-roots V{ } }
}
##branch
Successors: 17
=== Basic block #17
##inc-r 3
##inc-d -2
##reload EBP int-rep T{ spill-slot { n 8 } }
##load-memory-imm XMM0 EBP 15 double-rep f
##reload EAX int-rep T{ spill-slot { n 4 } }
##load-memory-imm XMM1 EAX 15 double-rep f
##allot EBX 16 float EDX
##sub-float XMM0 XMM0 XMM1
##store-memory-imm XMM0 EBX 5 double-rep f
##reload EDX tagged-rep T{ spill-slot { n 12 } }
##replace EDX R 0
##replace EAX R 1
##replace EBP R 2
##replace EBX D 0
##reload EBP tagged-rep T{ spill-slot }
##replace EBP D 1
##branch
Successors: 18
=== Basic block #18
##call double>bits
##branch
Successors: 19
=== Basic block #19
##inc-r 1
##replace-imm -9223372036854775809 R 0
##branch
Successors: 20
=== Basic block #20
##call >bignum
##branch
Successors: 21
=== Basic block #21
##inc-r -1
##inc-d 1
##peek EBP R -1
##replace EBP D 0
##branch
Successors: 22
=== Basic block #22
##call bignum-bitand
##branch
Successors: 23
=== Basic block #23
##branch
Successors: 24
=== Basic block #24
##call bits>double
##branch
Successors: 25
=== Basic block #25
##check-nursery-branch 16 cc<= EAX EBP
Successors: 13, 26
=== Basic block #26
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 13
=== Basic block #27
##reload EBP tagged-rep T{ spill-slot }
##branch
Successors: 28
=== Basic block #28
##inc-d -3
##replace EBP D 0
##branch
Successors: 29
=== Basic block #29
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-size 16 }
{ spill-area-align 4 }
{ total-size 48 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 129.0 552.0 } double-2{ 876.0 963.0 } ]
[ { double-2 double-2 } declare \ vsad execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vtruncate
=== stack frame: f
[ double-2{ 409.0 20.0 } ]
[ { double-2 } declare \ vtruncate execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##andn-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 144.0 946.0 } double-2{ 852.0 206.0 } ]
[ { double-2 double-2 } declare \ vbitandn execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EBP 12 tuple EAX
##load-reference EAX {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EAX EBP 1 7
##allot EBX 24 byte-array EAX
##load-tagged EAX 256
##set-slot-imm EAX EBX 1 9
##load-vector XMM1 B{ 0 0 0 0 0 0 0 128 0 0 0 0 0 0 0 128 } double-2-rep
##sub-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EBP 2 7
##replace EBP D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 341.0 872.0 } ]
[ { double-2 } declare \ vneg execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 5 double-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##sub-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ 983.0 double-2{ 642.0 798.0 } ]
[ { float double-2 } declare \ n-v execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-tail XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 405.0 658.0 } double-2{ 786.0 385.0 } ]
[ { double-2 double-2 } declare \ (vmerge-tail) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##load-memory-imm XMM0 EAX 5 double-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##scalar>vector XMM0 XMM0 double-2-rep
##shuffle-vector-imm XMM0 XMM0 { 0 0 } double-2-rep
##sub-vector XMM1 XMM1 XMM0 double-2-rep
##store-memory-imm XMM1 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 16.0 648.0 } 430.0 ]
[ { double-2 float } declare \ v-n execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##add-sub-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 258.0 620.0 } double-2{ 486.0 724.0 } ]
[ { double-2 double-2 } declare \ v+- execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBX 24 byte-array EBP
##load-tagged EBP 256
##set-slot-imm EBP EBX 1 9
##fill-vector XMM1 double-2-rep
##xor-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBX 7 double-2-rep f
##set-slot-imm EBX EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 365.0 677.0 } ]
[ { double-2 } declare \ vbitnot execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vceiling
=== stack frame: f
[ double-2{ 79.0 NAN: 8000000000000 } ]
[ { double-2 } declare \ vceiling execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EAX 16 float EBP
##dot-vector XMM1 XMM0 XMM0 double-2-rep
##sqrt XMM1 XMM1
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 778.0 401.0 } ]
[ { double-2 } declare \ norm execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##and-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 873.0 757.0 } double-2{ 260.0 638.0 } ]
[ { double-2 double-2 } declare \ vbitand execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EAX EBP
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 16 float EBP
##sub-vector XMM0 XMM0 XMM1 double-2-rep
##dot-vector XMM1 XMM0 XMM0 double-2-rep
##sqrt XMM1 XMM1
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[
double-2{ NAN: 8000000000000 327.0 }
double-2{ NAN: 8000000000000 560.0 }
]
[ { double-2 double-2 } declare \ distance execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##merge-vector-head XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 985.0 59.0 } double-2{ 548.0 642.0 } ]
[ { double-2 double-2 } declare \ (vmerge-head) execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc/<>=
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 262.0 NAN: 8000000000000 } double-2{ 27.0 76.0 } ]
[ { double-2 double-2 } declare \ vunordered? execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 16 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##peek EBP D 0
##slot-imm EBP EBP 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##allot EAX 16 float EBP
##horizontal-add-vector XMM1 XMM0 XMM0 double-2-rep
##vector>scalar XMM1 XMM1 double-2-rep
##store-memory-imm XMM1 EAX 5 double-rep f
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 796.0 468.0 } ]
[ { double-2 } declare \ sum execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##branch
Successors: 2
=== Basic block #2
##safepoint
##epilogue
##jump vfloor
=== stack frame: f
[ double-2{ 588.0 83.0 } ]
[ { double-2 } declare \ vfloor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EBP 7 double-2-rep f
##load-memory-imm XMM1 EAX 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##or-vector XMM0 XMM0 XMM1 double-2-rep
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 113.0 877.0 } double-2{ 753.0 165.0 } ]
[ { double-2 double-2 } declare \ vbitor execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EBP EAX
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-d -1
##peek EBP D 0
##slot-imm EBP EBP 2 7
##peek EAX D -1
##slot-imm EAX EAX 2 7
##load-memory-imm XMM0 EAX 7 double-2-rep f
##load-memory-imm XMM1 EBP 7 double-2-rep f
##allot EAX 12 tuple EBP
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP EAX 1 7
##allot EBP 24 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EBP 1 9
##compare-vector XMM0 XMM0 XMM1 double-2-rep cc<=
##store-memory-imm XMM0 EBP 7 double-2-rep f
##set-slot-imm EBP EAX 2 7
##replace EAX D 0
##branch
Successors: 4
=== Basic block #4
##safepoint
##epilogue
##return
=== stack frame: T{ stack-frame
{ params 16 }
{ allot-area-align 4 }
{ spill-area-align 4 }
{ total-size 32 }
{ allot-area-base 16 }
{ spill-area-base 16 }
}
[ double-2{ 20.0 NAN: 8000000000000 } double-2{ 237.0 533.0 } ]
[ { double-2 double-2 } declare \ v>= execute ]
=== word: ( gensym ), label: ( gensym )
=== Basic block #0
##safepoint
##prologue
##branch
Successors: 1
=== Basic block #1
##check-nursery-branch 48 cc<= EBP EAX
Successors: 3, 2
=== Basic block #2
##save-context EAX EBP
##call-gc T{ gc-map
{ scrub-d B{ } }
{ scrub-r B{ } }
{ gc-roots { } }
{ derived-roots V{ } }
}
##branch
Successors: 3
=== Basic block #3
##inc-r 1
##inc-d 3
##peek EBP D 4
##slot-imm EBP EBP 2 7
##spill EBP tagged-rep T{ spill-slot }
##peek EAX D 3
##slot-imm EAX EAX 2 7
##allot EDX 32 byte-array EBX
##load-tagged EBX 256
##set-slot-imm EBX EDX 1 9
##allot ECX 12 tuple EBX
##replace ECX R 0
##load-tagged EBX 32
##load-reference EBP {
double-2
1
2
tuple
-65101626
simd-128
8440422
double-2
-54788408
}
##set-slot-imm EBP ECX 1 7
##set-slot-imm EDX ECX 2 7
##load-integer EBP 0
##spill EBP int-rep T{ spill-slot { n 8 } }
##branch
Successors: 4
=== Basic block #4
##reload EBP int-rep T{ spill-slot { n 8 } }
##spill EAX tagged-rep T{ spill-slot { n 20 } }
##spill ECX tagged-rep T{ spill-slot { n 12 } }
##branch
Successors: 8
=== Basic block #5
##replace EBX R 3
##replace EDX D 0
##replace ECX R 4
##replace EAX R 5
##reload EDX tagged-rep T{ spill-slot }
##replace EDX R 6
##replace EBP R 0
##spill EBP tagged-rep T{ spill-slot { n 4 } }
##slot-imm ECX ECX 2 7
##replace ECX R 1
##reload EBP int-rep T{ spill-slot { n 8 } }
##shl-imm EBP EBP 4
##replace EBP R 2
##branch
Successors: 6
=== Basic block #6
##call >float
##branch
Successors: 7
=== Basic block #7
##inc-r -7
##inc-d 4
##peek EBP R -6
##peek EAX D 4
##load-memory-imm XMM0 EAX 5 double-rep f
##peek EAX R -7
##sar-imm EAX EAX 4
##store-memory XMM0 EBP EAX 0 7 double-rep f
##peek EBX R -4
##peek ECX R -3
##spill ECX tagged-rep T{ spill-slot { n 12 } }
##peek EAX R -2
##spill EAX tagged-rep T{ spill-slot { n 20 } }
##peek EDX R -1
##spill EDX tagged-rep T{ spill-slot }
Raw
LVN
View raw

(Sorry about that, but we can’t show files that are this big right now.)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment