ELF @ @ 8 @ PE PE D D D p p D ? ? ? 4 < @ = @ < @ = @ < @ = @ < ?
D @ ? @ 4 0
@ > @ = @ B < @ 5p > @ = A B < A 5p > A = A B < A 5p > A = A B < A 5p > A = A B < A 5p > A = $A B < #A 5p > $A = ,A B < +A 5p > ,A = 4A B < 3A 5p > 4A = DA = LA B < KA 5p > LA = ? B < IA 5 9 @ C PA @ NA 4` C VA @ TA 40 6 8P C WA @ UA 4 P 0@ 0 P C TA p@ RA 4@ 7p 0 ` ` 0@ 0p 00 0P 0` 00 P C IA i@ GA 4p C EA c@ A 4@ 6 8P C FA X@ DA 4 P 00 0@ 0` @ 0P 0` 0@ ` C >A D@ @ BA 4@ 7 0@ 0 p ` 0` 0 0P C 1A 9@ @ 4@ 6 80 8 C &A ,@ A 4 0 0 00 0 p C A @ @ 4` C A @ @ 4P C A @ A 4@ 7 0 p
7 0P 0@ `
) C A ? A 4 0p 0 0` 0p 0 C A ? @ 4P C @ ? ? 4 0@ 0 0 0 p C @ ? @ 4 C @ ? @ 4` # % % 9 D @ @ @ 4P = > < @ 0 p ! Rp Sp C @ ? @ 4@ 0` 0P @ ! 0` C @ ? ? 4 6 v 8 8 0` 0p 0 `
4 < @ 0 p
4 < @ 0
4 6 x 8 0 0P 0
C @ ? @ 4 C @ ? W@ 4 0 0
0 0p 0
C @ ~? @ 4 D @ @ P@ 4P D @ @ @ 4@ 0P 0
< @ < @ < @ 0
0 0 0
0 ` C @ Q? @ 4P C }@ K? @ 4@ 7p 0 ` P 7p 0P 0p 0@ 9 9 0 C _@ -? ? 4 7@ 0 0 & j@ C @ ? @ 4 ) o oC }@ ? ? 40 00 0@ 0 C t@ ? ? 4@ "
C i@ > ? 4 "
C ^@ > ? 4 0 "
C >@ > <@ 4 0 p C F@ > > 4 0 0 0 0
C C@ > A@ 4 D
I@ 3= G@ 4
C O@ > M@ 4 6 8p 8 9 0 0 P
9 0 0 0
0 P C >@ > <@ 4@ 7 0` ` " - " C .@ > ? 4` C *@ > H? 4@ 7 0@ 0 p ` 0` 0 0@ 0P C @ > 3? 4` 7 0` 0p 0 0P 0P 6 O 8 & j C
? u> ? 4
)
o o
o & j C ? f> ? 4p ) o o o C ? Z> ? 4p 0 0 C ? M> > 4` < ? 0 0 & * j C ? ;> ? 4@ ) q C ? 2> ? 4@ ) h C ? )> ? 4@ ) _ C ? > ? 4@ ) o # R & j C ? > ? 4@ ) C ? > ? 40 ) m C ? = ? 40 ) # o
o o 4` < ? 0 0P 4p 0 0
D ? ? ? 4 n p
p p ! C ? = ? 40 ) m o o & h j0 ) e o % a S@ # ^ R@ 4` < ? 0 0P 4` < ? 0 0
9 Q D ? ? ? 4 n p D ? ? ? 4 np
p 0 ! o
o 4` < ? 0 0 4p 0 0
D ? ? m? 4 n p
p 0 ! o
4p 0 0
D
? m? M? 4
n
p
0 ! & B j C p? `= n? 4@ ) 9 o o & 4 j@ C ? R= ~? 4 ) + o o 4` < v? 0 0P 4p 0 0
D i? 5? a? 4 n p p D H? ,? :? 4 np
p 0 !^ & L j C L? = J? 4@ ) . C U? = S? 4 ) : o o o 4` < J? 0 0p 4` < D? 0 0
D ?? > 3? 4 n p p p
!' o
o 4p 0 0
D ? > ? 4 n p
p 0 ! 9 D
= = = 4 = ; < = 0
0 D ? > V> 4 np pp D ? > > 4 np p
p & m j C ? < ? 4 ) d o & M j C ? < ? 4 ) D o o # , oo9 D
> > > 4
n
p
9 p
p
p
p
C #> < %= 4 < > 0 0 D > r> > 4 np
p 9 D
L= H= F= 4 = ; <
F= 0 0 9 D
9= 5= 3= 4 = ; <
3= 0 0 9 D
&= "= = 4 = : <
= 0 0 0 C = -< < 4 7@ < > 0 00 0@ 0 P C r> < L< 4` C n> < l= 4@ C j> < X< 4 0 < f> 0@ 0P 0 & " j0 C [> ; %= 4@ ) o oC R> ; : 40 < N> 0 0 0 0P 0 0 0@ 0 0 0 C @> ; ,< 4@ 0 00 0 0C 6> ; H; 46 8p 0P p C '> ; ; 4 00 C > ; U< 4C > ; 5; 4 0
P0 @
0 C > ; r; 4 0
p0 `0 P0
@0
C = ; = 4 6
U 8
0 @
C = w; = 4
9
D e= K= += 4 n 9
p
D = B= < 4 n p p
p D = 8= < 4 n p ppn p n p p
p n p
p
p 4< = 0P @ C = ;; = 4P< = 0 @ C = -; ; 4 00` @ C = ; f; 4
# 0 % R @S@C = ; = 4 C =
; = 4` @ 0 0 0 @ !D
; ; ; 4 = 9 < ; 0@ ! 0
4 @ C
= : : 4 4 0 0 @ C v= : t= 4 4 0` 00 @ P 0` 0`0 @ 4P6 8 8 ` 0P0 00 @ 4 @ 4 4 0 0 @ 4 000P @ C G= : : 4 C
C= : ; 4 6
8
0 8
8
4 0 0 0 0 @ C &= p: : 40 0p0 0p 4
0 0 0 p0@ 4
0 0 p0P0 4
< = 0` 4 < = 0`00@0P0p0@ C < ;: : 4 70 0 0 00 0 C < ,: : 4 70 0 0 00 0 C < : < 4 C < : < 4 C < : 9 40 7@ 7@ 0 0 0 0 0@ 0 p C < 9 K: 4` C < 9 9 4P C < 9 q: 4@ 7 0 7 7 0P 0 0@ p 0 p 0 0
` C < 9 < 4@ 0 0 00 0 C v< 9 : 4@ 0 0 00 0 p C
< 9 < 4 0p 0 ` C < 9 < 4 0 ` C ~< 9 : 4` 6 8p 8 8 C {< 9 y< 4 0 0 0
` 0 P 9
C j< 9 : 4p 0 p " ] C ^< z9 9 4` 7 0 p " J 4p C O< i9 8 4P 7 0 0p " / C :< R9 |9 4p 6 0 7 8@ 0p 0P 0 0 " C
$< :9 49 4
7 7 0 0
0 0 ` 0 0 P 0
0
0
0
P C < 9 9 4@ 7p 0@ 0 ` P & N jp C ; 9 !: 4@ ) B o oo& 9 jp C ; 8 \: 4@ ) - o oo& $ jp C ; 8 ; 4@ ) C ; 8 : 4@ ) o % 9 0P 0P 9 0P 0P 0P 0P 0P C ; 8 8 4 9 D ; ; ; 4 0 2 D ; ; ; 4p D ; ; ; 4` D ; 6 ; 4P 0 p
" q 4P 0 `
" N o ooW 0p
oW 0p H Hp C ; }8 9 4 C ; w8 q8 4 C ; q8 ; 4p 0 ` 0 0 0 2 I 0 0 2 I 0 0 = ; <
; < ; 9QD ; Q6 ; 4` 0 0 ` 0 0 0p 0 = i; <
i; < o; 9QD }; 76 {; 4` 0 0 ` 0 0 0p 0 ? 6 < 6 O > 6 ? 6 < 6 O > 6 = 6 > 6 ? 6 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 = 6 > 6 = 6 > 6 ? 6 6 = 5 > 6 ? 6 6 ? 6 < 6 O > 6 = 6 P > 6 ? 6 ? 6 < 6 O > 6 = 6 P > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 = 6 > 6 =
6 > 6 ? 6 6 ? 6 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 = 6 > 6 = 6 > 6 ? 6 6 ? 6 < 6 O > 6 = 6 P > 6 ? 6 ~ < 6 O > 6 = 6 > 6 ? 6 6 = 6 > 6 ? 6 6 ? 6 5 ? 6 6 = |5 > 6 = n5 > 6 ? 6 6 ? 6 6 ? 6 Z < 6 O > 6 = 6 > 6 = b5 > 6 ? 6 6 = Q5 > 6 ? 6 6 ? 6 6 ? 6 C < 6 O > 6 = 6 > 6 = E5 > 6 ? 6 6 = 45 > 6 ? 6 6 ?
6 6 ? 6 , < 6 O > 6 = 6 > 6 = (5 > 6 ? 6 6 = 5 > 6 ? 6 6 ?
6 6 ? 6 6 ? 6 5 ? 6 6 ?
6 5 ? 6 6 ? 6 5 ? 6 6 ? 6 5 ? 6 5 ? 6 P5 ? 6 5 ? 6 < 5 O > 6 = 6 P > 6 ? 6 < 5 O > 6 ? 6 < 6 O > 6 ? 6 l? 6 < 6 O > 6 ? 6 ? 6 < 6 O > 6 ? 6 ? 6 < 6 O > 6 ? 6 ? 6 < 6 O > 6 ? 6 ? "6 < 6 O > "6 ? $6 G? '6 < "6 O > '6 ? )6 6? ,6 < '6 O > ,6 ? .6 ? 16 < ,6 O > 16 ? 36 ? 66 < 16 O > 66 ? 86 [? ;6 < 66 O > ;6 ? =6 k? @6 q? A6 < <6 O > A6 ? E6 < @6 O > E6 ? I6 < D6 O > I6 ? M6 < H6 O > M6 ? Q6 < L6 O > Q6 ? W6 < R6 O > W6 ? [6 < V6 O > [6 ? _6 < Z6 O > _6 ? k6 < f6 O > k6 ? o6 < j6 O > o6 ? u6 < p6 O > u6 ? {6 < v6 O > {6 ? }6 U4 ? 6 ? 6 < 6 O > 6 ? 6 5? 6 6? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 4 ? 6 T? 6 ^? 6 i? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 < 6 O > 6 ? 6 ? 6 3 ? 6 < 6 O > 6 ? 6 ? 6 ? 6 ? 6 < 6 O > 6 ? 7 ? 7 < 6 O > 7 ? 7 ? 7 ? 7 < 7 O > 7 ? 7 < 7 O > 7 ? 7 ? 7 ? $7 ? )7 ? 87 < 37 O > 87 ? <7 ? =7 < 87 O > =7 ? A7 ? F7 < A7 O > F7 ? J7 < E7 O > J7 ? V7 ? W7 ? X7 < S7 O > X7 ? \7 < W7 O > \7 ? `7 < [7 O > `7 ? f7 < a7 O > f7 ? z7 < u7 O > z7 ? 7 < }7 O > 7 ? 7 j3 ? 7 < 7 O > 7 ? 7 < 7 O > 7 ? 7 < 7 O > 7 ? 7 < 7 O > 7 ? 7 < 7 O > 7 ? 7 ? 7 ? 7 < 7 O > 7 9 ' define-module* ' guile ' language ' cps '
peel-loops ' filename ' language/cps/peel-loops.scm ' imports ' ice-9 ' match ' srfi ' srfi-1 ' select ' fold ' utils ' intmap ' intset ' exports ' set-current-module '
intset-map ' loop-successors '
find-exits '
find-entry ' list->intset ' compute-live-variables ' compute-out-vars ' rename-cont ' compute-var-names ' peel-loop ' peel-loops-in-function ' persistent-intmap ' intset-fold ' empty-intmap ' intmap-add! ' intset-subtract ' empty-intset ' intset-union '
intmap-ref '
intset-add ' trivial-intset ' persistent-intset ' error ' no matching pattern ' intset-add! ' intmap-replace ' solve-flow-equations ' intset-intersect ' $kargs ' intset-fold-right ' cons ' intmap-fold '
intset-ref ' $continue ' map ' $const ' $prim ' $closure ' $rec ' $values ' $call ' $callk ' $branch ' $primcall ' $prompt ' $kreceive ' $arity ' fresh-label '
intmap-map '
intmap-add ' fresh-var ' intmap-replace! ' compute-successors ' invert-graph ' % compute-strongly-connected-components ' $fun ' compute-max-label-and-var '
label-counter ' var-counter '
parameter? ' compute-reachable-functions ' wrong-type-arg ' parameterize ' Not a parameter: ~S ' scm-error x T <
h (
| P x l , L $ L X
` ( @ $ ) . 3 8 = P B G L Q V ( [ L ` e j o < s ` v y $ | T ~ 8 0! t! ! ! " D$ $ $ % $% % % % &
"
***"**"
(
*(
(*(
*
(
**
*
*"
*"
"
** " `7 A `7 `7 `7 ' `7 @A
E E
E
E E E E E E E E E
E E E E E
E E E E E E E E E E E E E
E
E E %
+ 6 6 R
5 * @A @A < D D p E 5 M H1 U 6 s k A z 8 + + I X- 8 - p. p. 8 @ ( $ ( 3 $ @ h [ h < s < l l ` # ` z
T
T
4 4 0 G 0 p p i | , ,
< < l l o
0
0 T
T x
x p p L _ r x" x" #
# & j 5
! $ ,4<D L T$h | -/
0 4 @\`x35
$< 9=
0 4 @\` CI
04< X 9=
( LPCI
04HL T lt 9O
0 4 PU
Z]Z_
gi
0444L` dlt kou=
(X\ d | $ $0 (, $(C
0 4<T\ Cz Cz C
g
z $ < H\`pt ~ z $~
$ ~5
$ kou=
@ TXlp C=
$ <`dx|
ggg
ggg
g
ggg
gg
g
g
z
gg
g
gg
gg
ggg
gg
_
g
gggg_
_
_
_
$8<LPT` t x ,$0<(,,,,,,,,((,,0000(,8 ( 00(04,0 0<(4 ,8( ( ( , , ( , 0 4 4 , 8
(
( , , 0 < ( 4 (
(
,
0
,
$ , C C C C C
04H LTpC5
gg
$(8 <PT\ 5
ko=O
_
Z]Zgi
( H\` x (( ( (, $0(,0048<<@44D 0 PT PT0P0488<@@HP\88PTX,P8PX<@HXT 0 P P X P $
$
,
0
8
\
T
H 8 8 D 8 < C
$
$
C
$ , C5
04HL T$lt|( Ck
Ck
uk
8 LPh| 9k
8TX `$x ($ C
g
g
gzz $@ L` d tx| k
_
z
z 4 8\ \ pt( (, ( E 3 5 $
\ | l( hP 3 $ X> | K T H p b
4k
8o 8t <
@ X D x $ 0 T L < < $< $` H X 4 4 ! `# $ ' % . . . . Guile 2.2.7 intset-map loop-successors find-exits find-entry list->intset compute-live-variables subtract add meet compute-out-vars rename-cont rename-var compute-var-names peel-loop peel-loops-in-function peel-loops /
language/cps/peel-loops.scm :w陌
~g-4!h!!Y7#w]xh,[vw.
> xw xY)Ow/R9 p1 [KK 7 !Z "ax~w jh-8 wh$j{N %yy"{z#
4u)
slEm> h$9 =$9 =$f =$9h[v- j x^"xY .wY ~8;$Y 1 wz N
ʖ"2o(h%w/*w,w+[ c x j xlxvwK
g
f s whp woJ %3RgI- $ $ \ l h h ' < X 2 ? l ` p V 4 _ 8 c
8 h T
4 y 0 @ p D , x < 0 l L < < 0 $ T $ x H p 4 4 x" # & intset-map loop-successors find-exits find-entry list->intset compute-live-variables subtract add meet compute-out-vars rename-cont rename-var compute-var-names peel-loop peel-loops-in-function peel-loops closure box arg tmp module name unspecified f set i out scc succs label exits preds vars s0 l public? w x cps entry body val in kill gen exit live-out cont fresh-labels fresh-vars s tail exp v var conts body-labels old new-label kfun id bound? peel? max-label max-var t-12e38f989ae4c5c9-ab1 t-12e38f989ae4c5c9-ab2 t-12e38f989ae4c5c9-ab8 t-12e38f989ae4c5c9-ab9 vals proc .guile.procprops .rodata .data .rtl-text .guile.frame-maps .dynamic .strtab .symtab .guile.arities.strtab .guile.arities .guile.docstrs.strtab .guile.docstrs .debug_info .debug_abbrev .debug_str .debug_loc .debug_line .shstrtab