From: wolf <wolf@wolfsden.cz>
To: 55344@debbugs.gnu.org
Subject: bug#55344: getuid and getgid are indeed replaced with compile-time constants
Date: Fri, 13 Oct 2023 12:38:32 +0200 [thread overview]
Message-ID: <ZSkeKEerf0omEff7@ws> (raw)
In-Reply-To: <19f83bff-144b-f25a-db27-d8f48580897c@nixnet.email>
[-- Attachment #1: Type: text/plain, Size: 215904 bytes --]
I encountered this few days back as well, somewhat unpleasant bug. My
reproduction:
scheme@(guile-user)> ,use (ice-9 ftw)
scheme@(guile-user)> (mkdir "/tmp/xxxx")
scheme@(guile-user)> (chmod "/tmp/xxxx" #o0700)
scheme@(guile-user)> (ftw "/tmp/xxxx" (lambda (_ __ f) (pk f) #t))
;;; (directory-not-readable)
$1 = #t
scheme@(guile-user)> (system "ls -al /tmp/xxxx")
total 0
drwx------ 1 wolf wolf 0 Oct 11 22:54 .
drwxrwxrwt 1 root root 888 Oct 11 22:54 ..
$2 = 0
While this is my first excursion into the ,xx world, I believe the hypothesis
that it compiles in the uid and gid used during the guile build is correct:
55 (make-immediate 2 3990) ;; 997 at ice-9/ftw.scm:319:46
56 (make-long-immediate 1 120002) ;; 30000 at ice-9/ftw.scm:320:46
On my system, 997 is guixbuilder03 user, and 30000 is guixbuild group. The
analysis of *why* it compiles like this is sadly way over my head.
Full disassembly of ftw.go:
Disassembly of <unnamed function> at #xe8:
0 (instrument-entry 16812) at ice-9/ftw.scm:556:0
2 (assert-nargs-ee/locals 1 15) ;; 16 slots (0 args)
3 (make-non-immediate 15 16347) ;; (ice-9 ftw) at ice-9/ftw.scm:192:0
5 (static-ref 14 16359) ;; #:filename at ice-9/boot-9.scm:3924:24
7 (make-non-immediate 13 16359) ;; "ice-9/ftw.scm" at ice-9/ftw.scm:192:0
9 (static-ref 12 16375) ;; #:imports at ice-9/boot-9.scm:3847:43
11 (make-non-immediate 11 16459) ;; (((ice-9 match)) ((ice-9 vlist)) ((srfi srfi-1))) at ice-9/ftw.scm:192:0
13 (static-ref 10 16471) ;; #:exports at ice-9/boot-9.scm:3848:43
15 (make-non-immediate 9 16527) ;; (ftw nftw file-system-fold file-system-tree scandir) at ice-9/ftw.scm:192:0
17 (static-ref 8 16539) ;; #:autoloads at ice-9/boot-9.scm:3852:43
19 (make-non-immediate 7 16575) ;; ((ice-9 i18n) (string-locale<?)) at ice-9/ftw.scm:192:0
21 (static-ref 6 16587) ;; #:declarative? at ice-9/boot-9.scm:3853:35
23 (make-immediate 5 1028) ;; #t at ice-9/ftw.scm:192:0
24 (static-ref 4 16586) ;; #f at ice-9/boot-9.scm:3923:23
26 (immediate-tag=? 4 7 0) ;; heap-object?
28 (je 7) ;; -> L1
29 (call-scm<-scmn-scmn 4 16593 16597 113);; lookup-bound-private
33 (static-set! 4 16577) ;; #f
L1:
35 (scm-ref/immediate 4 4 1)
36 (mov 0 4)
37 (mov 4 8)
38 (mov 8 12)
39 (mov 12 0)
40 (mov 3 7)
41 (mov 7 11)
42 (mov 11 15)
43 (mov 2 6)
44 (mov 6 10)
45 (mov 10 14)
46 (mov 1 5)
47 (mov 5 9)
48 (mov 9 13)
49 (handle-interrupts)
50 (call 3 12)
52 (receive 0 3 16)
54 (static-ref 14 16580) ;; #f at ice-9/boot-9.scm:3925:16
56 (immediate-tag=? 14 7 0) ;; heap-object?
58 (je 7) ;; -> L2
59 (call-scm<-scmn-scmn 14 16563 16577 113);; lookup-bound-private
63 (static-set! 14 16571) ;; #f
L2:
65 (scm-ref/immediate 11 14 1)
66 (mov 10 15)
67 (handle-interrupts)
68 (call 4 2)
70 (reset-frame 16) ;; 16 slots
71 (static-ref 14 16581) ;; getuid-or-false
73 (call-scm<-scm-scm 13 15 14 41) ;; define!
75 (static-ref 12 16587) ;; macro
77 (static-ref 11 16587) ;; #f
79 (immediate-tag=? 11 7 0) ;; heap-object?
81 (je 7) ;; -> L3
82 (call-scm<-scmn-scmn 11 16540 16584 113);; lookup-bound-private
86 (static-set! 11 16578) ;; #f
L3:
88 (scm-ref/immediate 11 11 1)
89 (make-non-immediate 4 16585) ;; #<procedure 7fae26403570 at ice-9/ftw.scm:202:0 (y)>
91 (mov 7 11)
92 (mov 6 14)
93 (mov 5 12)
94 (handle-interrupts)
95 (call 8 4)
97 (receive 1 8 16)
99 (scm-set!/immediate 13 1 14)
100 (static-ref 14 16586) ;; getgid-or-false
102 (call-scm<-scm-scm 13 15 14 41) ;; define!
104 (make-non-immediate 4 16584) ;; #<procedure 7fae264035a8 at ice-9/ftw.scm:207:0 (y)>
106 (mov 7 11)
107 (mov 6 14)
108 (mov 5 12)
109 (handle-interrupts)
110 (call 8 4)
112 (receive 1 8 16)
114 (scm-set!/immediate 13 1 14)
115 (static-ref 14 16585) ;; directory-files at ice-9/ftw.scm:212:0
117 (call-scm<-scm-scm 14 15 14 41) ;; define!
119 (call-scm<-thread 13 62) ;; current-module at ice-9/ftw.scm:556:0
121 (static-set! 13 16581) ;; #f
123 (make-non-immediate 13 16581) ;; #<procedure directory-files (dir)>
125 (scm-set!/immediate 14 1 13) at ice-9/ftw.scm:212:0
126 (static-ref 14 16590) ;; pathify at ice-9/ftw.scm:226:0
128 (call-scm<-scm-scm 14 15 14 41) ;; define!
130 (make-non-immediate 13 16588) ;; #<procedure pathify nodes>
132 (scm-set!/immediate 14 1 13)
133 (static-ref 14 16597) ;; visited?-proc at ice-9/ftw.scm:250:0
135 (call-scm<-scm-scm 14 15 14 41) ;; define!
137 (make-non-immediate 13 16595) ;; #<procedure visited?-proc (size)>
139 (scm-set!/immediate 14 1 13)
140 (static-ref 14 16604) ;; stat-dir-readable?-proc at ice-9/ftw.scm:268:0
142 (call-scm<-scm-scm 14 15 14 41) ;; define!
144 (make-non-immediate 13 16602) ;; #<procedure stat-dir-readable?-proc (uid gid)>
146 (scm-set!/immediate 14 1 13)
147 (static-ref 14 16611) ;; stat&flag-proc at ice-9/ftw.scm:280:0
149 (call-scm<-scm-scm 14 15 14 41) ;; define!
151 (make-non-immediate 13 16609) ;; #<procedure stat&flag-proc (dir-readable? . control-flags)>
153 (scm-set!/immediate 14 1 13)
154 (static-ref 14 16618) ;; clean at ice-9/ftw.scm:309:0
156 (call-scm<-scm-scm 14 15 14 41) ;; define!
158 (make-non-immediate 13 16616) ;; #<procedure clean (name)>
160 (scm-set!/immediate 14 1 13)
161 (static-ref 14 16183) ;; ftw at ice-9/ftw.scm:315:0
163 (call-scm<-scm-scm 14 15 14 41) ;; define!
165 (make-non-immediate 13 16613) ;; #<procedure ftw (filename proc . options)>
167 (scm-set!/immediate 14 1 13)
168 (static-ref 14 16326) ;; nftw at ice-9/ftw.scm:338:0
170 (call-scm<-scm-scm 14 15 14 41) ;; define!
172 (make-non-immediate 13 16610) ;; #<procedure nftw (filename proc . control-flags)>
174 (scm-set!/immediate 14 1 13)
175 (static-ref 14 16619) ;; errno-if-exception
177 (call-scm<-scm-scm 13 15 14 41) ;; define!
179 (make-non-immediate 6 16617) ;; #<procedure 7fae26403758 at ice-9/ftw.scm:406:0 (x)>
181 (mov 9 11)
182 (mov 8 14)
183 (mov 7 12)
184 (handle-interrupts)
185 (call 6 4)
187 (receive 1 6 16)
189 (scm-set!/immediate 13 1 14)
190 (static-ref 14 16314) ;; file-system-fold at ice-9/ftw.scm:413:0
192 (call-scm<-scm-scm 14 15 14 41) ;; define!
194 (make-non-immediate 13 16606) ;; #<procedure file-system-fold (enter? leaf down up skip error init file-name #…>
196 (scm-set!/immediate 14 1 13)
197 (static-ref 14 16317) ;; file-system-tree at ice-9/ftw.scm:517:0
199 (call-scm<-scm-scm 14 15 14 41) ;; define!
201 (make-non-immediate 13 16603) ;; #<procedure file-system-tree (file-name #:optional enter? stat)>
203 (scm-set!/immediate 14 1 13)
204 (static-ref 14 16320) ;; scandir at ice-9/ftw.scm:556:0
206 (call-scm<-scm-scm 15 15 14 41) ;; define!
208 (make-non-immediate 14 16600) ;; #<procedure scandir (name #:optional select? entry<?)>
210 (scm-set!/immediate 15 1 14)
211 (make-immediate 15 2052) ;; #<unspecified>
212 (reset-frame 1) ;; 1 slot
213 (handle-interrupts)
214 (return-values)
Disassembly of <unnamed function> at #x444:
0 (instrument-entry 16655) at ice-9/ftw.scm:202:0
2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg)
3 (make-non-immediate 7 16620) ;; (_ . any)
5 (static-ref 5 16622) ;; #f
7 (immediate-tag=? 5 7 0) ;; heap-object?
9 (je 7) ;; -> L1
10 (call-scm<-scmn-scmn 5 16397 16619 113);; lookup-bound-private
14 (static-set! 5 16613) ;; #f
L1:
16 (scm-ref/immediate 2 5 1)
17 (mov 1 6)
18 (mov 0 7)
19 (handle-interrupts)
20 (call 5 3)
22 (receive 0 5 8)
24 (immediate-tag=? 7 3839 4) ;; false?
26 (je 18) ;; -> L2
27 (allocate-words/immediate 5 3)
28 (load-u64 4 0 65605)
31 (word-set!/immediate 5 0 4)
32 (load-label 4 34) ;; anonymous procedure at #x7fae263f354c
34 (word-set!/immediate 5 1 4)
35 (scm-set!/immediate 5 2 6)
36 (builtin-ref 6 0) ;; apply
37 (mov 4 6)
38 (mov 6 5)
39 (mov 5 7)
40 (mov 7 4)
41 (reset-frame 3) ;; 3 slots
42 (handle-interrupts)
43 (tail-call)
L2:
44 (make-immediate 7 4) ;; #f
45 (make-non-immediate 5 16592) ;; "source expression failed to match any pattern"
47 (static-ref 4 16598) ;; #f
49 (immediate-tag=? 4 7 0) ;; heap-object?
51 (je 7) ;; -> L3
52 (call-scm<-scmn-scmn 4 16355 16595 113);; lookup-bound-private
56 (static-set! 4 16589) ;; #f
L3:
58 (scm-ref/immediate 4 4 1)
59 (mov 3 4)
60 (mov 4 6)
61 (mov 6 7)
62 (mov 7 3)
63 (reset-frame 4) ;; 4 slots
64 (handle-interrupts)
65 (tail-call)
Disassembly of <unnamed function> at #x54c:
0 (instrument-entry 16603) at ice-9/ftw.scm:202:0
2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg)
3 (static-ref 2 16592) ;; #f at ice-9/boot-9.scm:755:26
5 (mov 1 5) at ice-9/ftw.scm:202:0
6 (handle-interrupts)
7 (call-label 4 2 24) ;; syntax->datum@@guile at #x7fae263f35c8
10 (receive 6 4 7)
12 (builtin-ref 2 0) ;; apply
13 (make-non-immediate 1 16584) ;; #<procedure 7fae264038a0 at ice-9/ftw.scm:202:0 ()>
15 (handle-interrupts)
16 (call 4 3)
18 (receive 1 4 7)
20 (static-ref 4 16581) ;; #f at ice-9/boot-9.scm:756:19
22 (scm-ref/immediate 6 6 2)
23 (mov 3 4) at ice-9/ftw.scm:202:0
24 (mov 4 5)
25 (mov 5 6)
26 (mov 6 3)
27 (reset-frame 3) ;; 3 slots
28 (handle-interrupts)
29 (tail-call-label 65) ;; datum->syntax@@guile at #x7fae263f36c4
Disassembly of syntax->datum@@guile at #x5c8:
0 (instrument-entry 16586) at ice-9/ftw.scm:202:0
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 16305 16573 113);; lookup-bound-private
9 (static-set! 1 16555) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x600:
0 (instrument-entry 16592) at ice-9/ftw.scm:202:0
2 (assert-nargs-ee/locals 1 4) ;; 5 slots (0 args)
3 (static-ref 0 16583) ;; getuid at ice-9/ftw.scm:203:16
5 (static-ref 1 16583) ;; #f at ice-9/ftw.scm:203:7
7 (handle-interrupts) at ice-9/ftw.scm:203:6
8 (call-label 3 2 27) ;; defined?@guile at #x7fae263f368c
11 (receive 0 3 5)
13 (immediate-tag=? 4 3839 4) ;; false? at ice-9/ftw.scm:203:2
15 (je 16) ;; -> L2
16 (static-ref 4 16574) ;; #f at ice-9/ftw.scm:204:7
18 (immediate-tag=? 4 7 0) ;; heap-object?
20 (je 7) ;; -> L1
21 (call-scm<-scmn-scmn 4 16275 16557 112);; lookup-bound-public
25 (static-set! 4 16565) ;; #f
L1:
27 (scm-ref/immediate 4 4 1)
28 (reset-frame 1) ;; 1 slot
29 (handle-interrupts)
30 (tail-call)
L2:
31 (make-immediate 4 4) ;; #f at ice-9/ftw.scm:205:6
32 (reset-frame 1) ;; 1 slot
33 (handle-interrupts)
34 (return-values)
Disassembly of defined?@guile at #x68c:
0 (instrument-entry 16571) at ice-9/ftw.scm:205:6
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 16256 16558 112);; lookup-bound-public
9 (static-set! 1 16544) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of datum->syntax@@guile at #x6c4:
0 (instrument-entry 16571) at ice-9/ftw.scm:205:6
2 (immediate-tag=? 2 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 2 16242 16558 113);; lookup-bound-private
9 (static-set! 2 16498) ;; #f
L1:
11 (scm-ref/immediate 2 2 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x6fc:
0 (instrument-entry 16563) at ice-9/ftw.scm:207:0
2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg)
3 (make-non-immediate 7 16446) ;; (_ . any)
5 (static-ref 5 16448) ;; #f
7 (immediate-tag=? 5 7 0) ;; heap-object?
9 (je 7) ;; -> L1
10 (call-scm<-scmn-scmn 5 16223 16445 113);; lookup-bound-private
14 (static-set! 5 16439) ;; #f
L1:
16 (scm-ref/immediate 2 5 1)
17 (mov 1 6)
18 (mov 0 7)
19 (handle-interrupts)
20 (call 5 3)
22 (receive 0 5 8)
24 (immediate-tag=? 7 3839 4) ;; false?
26 (je 18) ;; -> L2
27 (allocate-words/immediate 5 3)
28 (load-u64 4 0 65605)
31 (word-set!/immediate 5 0 4)
32 (load-label 4 34) ;; anonymous procedure at #x7fae263f3804
34 (word-set!/immediate 5 1 4)
35 (scm-set!/immediate 5 2 6)
36 (builtin-ref 6 0) ;; apply
37 (mov 4 6)
38 (mov 6 5)
39 (mov 5 7)
40 (mov 7 4)
41 (reset-frame 3) ;; 3 slots
42 (handle-interrupts)
43 (tail-call)
L2:
44 (make-immediate 7 4) ;; #f
45 (make-non-immediate 5 16418) ;; "source expression failed to match any pattern"
47 (static-ref 4 16424) ;; #f
49 (immediate-tag=? 4 7 0) ;; heap-object?
51 (je 7) ;; -> L3
52 (call-scm<-scmn-scmn 4 16181 16421 113);; lookup-bound-private
56 (static-set! 4 16415) ;; #f
L3:
58 (scm-ref/immediate 4 4 1)
59 (mov 3 4)
60 (mov 4 6)
61 (mov 6 7)
62 (mov 7 3)
63 (reset-frame 4) ;; 4 slots
64 (handle-interrupts)
65 (tail-call)
Disassembly of <unnamed function> at #x804:
0 (instrument-entry 16507) at ice-9/ftw.scm:207:0
2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg)
3 (static-ref 2 16418) ;; #f at ice-9/boot-9.scm:755:26
5 (mov 1 5) at ice-9/ftw.scm:207:0
6 (handle-interrupts)
7 (call-label 4 2 -150) ;; syntax->datum@@guile at #x7fae263f35c8
10 (receive 6 4 7)
12 (builtin-ref 2 0) ;; apply
13 (make-non-immediate 1 16490) ;; #<procedure 7fae264039e0 at ice-9/ftw.scm:207:0 ()>
15 (handle-interrupts)
16 (call 4 3)
18 (receive 1 4 7)
20 (static-ref 4 16407) ;; #f at ice-9/boot-9.scm:756:19
22 (scm-ref/immediate 6 6 2)
23 (mov 3 4) at ice-9/ftw.scm:207:0
24 (mov 4 5)
25 (mov 5 6)
26 (mov 6 3)
27 (reset-frame 3) ;; 3 slots
28 (handle-interrupts)
29 (tail-call-label -109) ;; datum->syntax@@guile at #x7fae263f36c4
Disassembly of <unnamed function> at #x880:
0 (instrument-entry 16494) at ice-9/ftw.scm:207:0
2 (assert-nargs-ee/locals 1 4) ;; 5 slots (0 args)
3 (static-ref 0 16487) ;; getgid at ice-9/ftw.scm:208:16
5 (static-ref 1 16423) ;; #f at ice-9/ftw.scm:208:7
7 (handle-interrupts) at ice-9/ftw.scm:208:6
8 (call-label 3 2 -133) ;; defined?@guile at #x7fae263f368c
11 (receive 0 3 5)
13 (immediate-tag=? 4 3839 4) ;; false? at ice-9/ftw.scm:208:2
15 (je 16) ;; -> L2
16 (static-ref 4 16476) ;; #f at ice-9/ftw.scm:209:7
18 (immediate-tag=? 4 7 0) ;; heap-object?
20 (je 7) ;; -> L1
21 (call-scm<-scmn-scmn 4 16115 16461 112);; lookup-bound-public
25 (static-set! 4 16467) ;; #f
L1:
27 (scm-ref/immediate 4 4 1)
28 (reset-frame 1) ;; 1 slot
29 (handle-interrupts)
30 (tail-call)
L2:
31 (make-immediate 4 4) ;; #f at ice-9/ftw.scm:210:6
32 (reset-frame 1) ;; 1 slot
33 (handle-interrupts)
34 (return-values)
Disassembly of directory-files at #x90c:
0 (instrument-entry 16465) at ice-9/ftw.scm:212:0
2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg)
3 (mov 1 0)
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (tail-call-label 2) ;; directory-files at #x7fae263f392c
Disassembly of directory-files at #x92c:
0 (instrument-entry 16487) at ice-9/ftw.scm:212:0
2 (alloc-frame 12) ;; 12 slots
3 (static-ref 8 16460) ;; #f at ice-9/ftw.scm:213:21
5 (mov 7 11) at ice-9/ftw.scm:213:20
6 (handle-interrupts)
7 (call-label 3 2 128) ;; opendir@guile at #x7fae263f3b48
10 (receive 0 3 12)
12 (static-ref 7 16453) ;; #f at ice-9/ftw.scm:214:21
14 (mov 6 11) at ice-9/ftw.scm:214:20
15 (handle-interrupts)
16 (call-label 4 2 133) ;; readdir@guile at #x7fae263f3b80
19 (receive 1 4 12)
21 (make-immediate 9 772) ;; () at ice-9/ftw.scm:215:20
22 (eq-immediate? 10 2564) ;; #<eof> at ice-9/ftw.scm:216:10
23 (je 99) ;; -> L7
24 (static-ref 5 16441) ;; #f at ice-9/ftw.scm:220:17
26 (mov 4 11) at ice-9/ftw.scm:220:16
27 (handle-interrupts)
28 (call-label 6 2 121) ;; readdir@guile at #x7fae263f3b80
31 (receive 3 6 12)
33 (make-non-immediate 7 16434) ;; "." at ice-9/ftw.scm:221:34
35 (static-ref 3 16440) ;; #f at ice-9/ftw.scm:221:25
37 (mov 2 7) at ice-9/ftw.scm:221:24
38 (mov 1 10)
39 (handle-interrupts)
40 (call-label 8 3 123) ;; string=?@guile at #x7fae263f3bb8
43 (receive 5 8 12)
45 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:221:16
47 (jne 19) ;; -> L1
48 (make-non-immediate 2 16429) ;; ".." at ice-9/ftw.scm:222:34
50 (static-ref 3 16425) ;; #f at ice-9/ftw.scm:222:25
52 (mov 1 10) at ice-9/ftw.scm:222:24
53 (handle-interrupts)
54 (call-label 8 3 109) ;; string=?@guile at #x7fae263f3bb8
57 (receive 5 8 12)
59 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:221:16
61 (jne 5) ;; -> L1
62 (allocate-words/immediate 6 2) at ice-9/ftw.scm:224:20
63 (scm-set!/immediate 6 0 10)
64 (scm-set!/immediate 6 1 9)
65 (j 2) ;; -> L2
L1:
66 (mov 6 9)
L2:
67 (make-non-immediate 10 16410) ;; ".." at ice-9/ftw.scm:222:34
69 (eq-immediate? 8 2564) ;; #<eof> at ice-9/ftw.scm:216:10
70 (je 49) ;; -> L6
L3:
71 (instrument-loop 16416)
73 (handle-interrupts)
74 (static-ref 2 16391) ;; #f at ice-9/ftw.scm:220:17
76 (mov 1 11) at ice-9/ftw.scm:220:16
77 (handle-interrupts)
78 (call-label 9 2 71) ;; readdir@guile at #x7fae263f3b80
81 (receive 2 9 12)
83 (static-ref 2 16392) ;; #f at ice-9/ftw.scm:221:25
85 (mov 1 7) at ice-9/ftw.scm:221:24
86 (mov 0 8)
87 (handle-interrupts)
88 (call-label 9 3 75) ;; string=?@guile at #x7fae263f3bb8
91 (receive 6 9 12)
93 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:221:16
95 (jne 18) ;; -> L4
96 (static-ref 2 16379) ;; #f at ice-9/ftw.scm:222:25
98 (mov 1 10) at ice-9/ftw.scm:222:24
99 (mov 0 8)
100 (handle-interrupts)
101 (call-label 9 3 62) ;; string=?@guile at #x7fae263f3bb8
104 (receive 6 9 12)
106 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:221:16
108 (jne 5) ;; -> L4
109 (allocate-words/immediate 5 2) at ice-9/ftw.scm:224:20
110 (scm-set!/immediate 5 0 8)
111 (scm-set!/immediate 5 1 6)
112 (j 2) ;; -> L5
L4:
113 (mov 5 6)
L5:
114 (eq-immediate? 9 2564) ;; #<eof> at ice-9/ftw.scm:216:10
115 (je 8) ;; -> L8
116 (mov 8 9) at ice-9/ftw.scm:220:10
117 (mov 6 5)
118 (j -47) ;; -> L3
L6:
119 (mov 9 8) at ice-9/ftw.scm:216:10
120 (mov 5 6)
121 (j 2) ;; -> L8
L7:
122 (mov 5 9)
L8:
123 (static-ref 1 16362) ;; #f at ice-9/ftw.scm:218:13
125 (mov 0 11) at ice-9/ftw.scm:218:12
126 (handle-interrupts)
127 (call-label 10 2 50) ;; closedir@guile at #x7fae263f3bf0
130 (reset-frame 12) ;; 12 slots
131 (mov 11 5)
132 (reset-frame 1) ;; 1 slot
133 (handle-interrupts)
134 (return-values)
Disassembly of opendir@guile at #xb48:
0 (instrument-entry 16366) at ice-9/ftw.scm:218:12
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15953 16353 112);; lookup-bound-public
9 (static-set! 1 16319) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of readdir@guile at #xb80:
0 (instrument-entry 16366) at ice-9/ftw.scm:218:12
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15939 16353 112);; lookup-bound-public
9 (static-set! 1 16307) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of string=?@guile at #xbb8:
0 (instrument-entry 16366) at ice-9/ftw.scm:218:12
2 (immediate-tag=? 2 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 2 15925 16353 112);; lookup-bound-public
9 (static-set! 2 16303) ;; #f
L1:
11 (scm-ref/immediate 2 2 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of closedir@guile at #xbf0:
0 (instrument-entry 16366) at ice-9/ftw.scm:218:12
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15911 16353 112);; lookup-bound-public
9 (static-set! 1 16299) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of pathify at #xc28:
0 (instrument-entry 16362) at ice-9/ftw.scm:226:0
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 4) ;; 4 slots
5 (builtin-ref 3 0) ;; apply
6 (make-non-immediate 1 16352) ;; #<procedure pathify nodes>
8 (mov 0 1)
9 (mov 1 2)
10 (mov 2 0)
11 (reset-frame 3) ;; 3 slots
12 (handle-interrupts)
13 (tail-call)
Disassembly of pathify at #xc60:
0 (instrument-entry 16432) at ice-9/ftw.scm:226:0
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 12) ;; 12 slots
5 (make-non-immediate 11 16349) ;; "" at ice-9/ftw.scm:228:21
7 (immediate-tag=? 10 3583 260) ;; null? at ice-9/ftw.scm:229:8
9 (je 51) ;; -> L4
10 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:232:14
12 (jne 46) ;; -> L3
13 (heap-tag=? 10 1 0) ;; pair?
15 (jne 43) ;; -> L3
16 (scm-ref/immediate 9 10 1)
17 (make-non-immediate 8 16345) ;; "/" at ice-9/ftw.scm:232:48
19 (scm-ref/immediate 1 10 0) at ice-9/ftw.scm:232:52
20 (static-ref 4 16350) ;; #f at ice-9/ftw.scm:232:27
22 (mov 3 11) at ice-9/ftw.scm:232:26
23 (mov 2 8)
24 (handle-interrupts)
25 (call-label 7 4 76) ;; string-append@guile at #x7fae263f3df4
28 (receive 1 7 12)
L1:
30 (instrument-loop 16402)
32 (handle-interrupts)
33 (immediate-tag=? 9 3583 260) ;; null? at ice-9/ftw.scm:229:8
35 (je 26) ;; -> L5
36 (immediate-tag=? 9 7 0) ;; heap-object? at ice-9/ftw.scm:232:14
38 (jne 18) ;; -> L2
39 (heap-tag=? 9 1 0) ;; pair?
41 (jne 15) ;; -> L2
42 (scm-ref/immediate 7 9 1)
43 (scm-ref/immediate 0 9 0) at ice-9/ftw.scm:232:52
44 (static-ref 3 16326) ;; #f at ice-9/ftw.scm:232:27
46 (mov 2 10) at ice-9/ftw.scm:232:26
47 (mov 1 8)
48 (handle-interrupts)
49 (call-label 8 4 52) ;; string-append@guile at #x7fae263f3df4
52 (receive 1 8 12)
54 (mov 9 7) at ice-9/ftw.scm:232:8
55 (j -25) ;; -> L1
L2:
56 (throw/value+data 9 16342) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:232:14
L3:
58 (throw/value+data 10 16340) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…")
L4:
60 (mov 10 11)
L5:
61 (static-ref 6 16209) ;; #f at ice-9/ftw.scm:230:18
63 (mov 5 11) at ice-9/ftw.scm:230:17
64 (mov 4 10)
65 (handle-interrupts)
66 (call-label 5 3 -108) ;; string=?@guile at #x7fae263f3bb8
69 (receive 2 5 12)
71 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:230:12
73 (jne 2) ;; -> L6
74 (make-immediate 11 4) ;; #f at ice-9/ftw.scm:230:38
L6:
75 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:230:8
77 (jne 21) ;; -> L8
78 (make-immediate 11 6) ;; 1 at ice-9/ftw.scm:231:30
79 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:231:32
81 (jne 15) ;; -> L7
82 (heap-tag=? 10 127 21) ;; string?
84 (jne 12) ;; -> L7
85 (word-ref/immediate 9 10 3)
86 (tag-fixnum 8 9)
87 (static-ref 9 16319) ;; #f at ice-9/ftw.scm:231:13
89 (mov 7 9) at ice-9/ftw.scm:231:12
90 (mov 9 11)
91 (mov 11 7)
92 (reset-frame 4) ;; 4 slots
93 (handle-interrupts)
94 (tail-call-label 21) ;; substring@guile at #x7fae263f3e2c
L7:
96 (throw/value+data 10 16328) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:231:32
L8:
98 (reset-frame 1) ;; 1 slot
99 (handle-interrupts)
100 (return-values)
Disassembly of string-append@guile at #xdf4:
0 (instrument-entry 16345) at ice-9/ftw.scm:231:32
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 15782 16332 112);; lookup-bound-public
9 (static-set! 3 16260) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of substring@guile at #xe2c:
0 (instrument-entry 16345) at ice-9/ftw.scm:231:32
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 15768 16332 112);; lookup-bound-public
9 (static-set! 3 16282) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of visited?-proc at #xe64:
0 (instrument-entry 16337) at ice-9/ftw.scm:250:0
2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg)
3 (mov 1 0)
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (tail-call-label 2) ;; visited?-proc at #x7fae263f3e84
Disassembly of visited?-proc at #xe84:
0 (instrument-entry 16337) at ice-9/ftw.scm:250:0
2 (alloc-frame 6) ;; 6 slots
3 (make-immediate 0 30) ;; 7 at ice-9/ftw.scm:251:35
4 (static-ref 1 16331) ;; #f at ice-9/ftw.scm:251:19
6 (handle-interrupts) at ice-9/ftw.scm:251:18
7 (call-label 4 2 19) ;; make-hash-table@guile at #x7fae263f3eec
10 (receive 1 4 6)
12 (allocate-words/immediate 3 4) at ice-9/ftw.scm:252:4
13 (load-u64 2 0 131141)
16 (word-set!/immediate 3 0 2)
17 (load-label 2 23) ;; anonymous procedure at #x7fae263f3f24
19 (word-set!/immediate 3 1 2)
20 (scm-set!/immediate 3 2 5)
21 (scm-set!/immediate 3 3 4)
22 (mov 5 3)
23 (reset-frame 1) ;; 1 slot
24 (handle-interrupts)
25 (return-values)
Disassembly of make-hash-table@guile at #xeec:
0 (instrument-entry 16325) at ice-9/ftw.scm:252:4
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15720 16312 112);; lookup-bound-public
9 (static-set! 1 16300) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #xf24:
0 (instrument-entry 16327) at ice-9/ftw.scm:252:4
2 (assert-nargs-ee/locals 3 9) ;; 12 slots (2 args)
3 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:253:6
5 (je 113) ;; -> L5
6 (static-ref 5 16311) ;; #f at ice-9/ftw.scm:254:49
8 (mov 4 10) at ice-9/ftw.scm:254:48
9 (handle-interrupts)
10 (call-label 6 2 112) ;; stat:dev@guile at #x7fae263f410c
13 (receive 8 6 12)
15 (static-ref 5 16304) ;; #f at ice-9/ftw.scm:254:29
17 (scm-ref/immediate 4 11 3)
18 (handle-interrupts) at ice-9/ftw.scm:254:28
19 (call-label 6 3 117) ;; hashv-ref@guile at #x7fae263f4144
22 (receive 3 6 12)
24 (allocate-words/immediate 7 2)
25 (load-u64 6 0 7)
28 (word-set!/immediate 7 0 6)
29 (scm-set!/immediate 7 1 8)
30 (static-ref 3 16291) ;; #f at ice-9/ftw.scm:255:29
32 (mov 2 10) at ice-9/ftw.scm:255:28
33 (handle-interrupts)
34 (call-label 8 2 116) ;; stat:ino@guile at #x7fae263f417c
37 (receive 3 8 12)
39 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:256:35
40 (=? 6 8) at ice-9/ftw.scm:256:32
41 (jne 11) ;; -> L1
42 (static-ref 3 16281) ;; #f at ice-9/ftw.scm:257:33
44 (mov 2 9) at ice-9/ftw.scm:257:32
45 (handle-interrupts)
46 (call-label 8 2 118) ;; string-hash@guile at #x7fae263f41b4
49 (receive 2 8 12)
51 (j 2) ;; -> L2
L1:
52 (mov 9 8)
L2:
53 (scm-ref/immediate 8 7 1)
54 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:259:13
56 (jne 32) ;; -> L3
57 (static-ref 3 16238) ;; #f at ice-9/ftw.scm:261:35
59 (scm-ref/immediate 2 11 2)
60 (handle-interrupts) at ice-9/ftw.scm:261:34
61 (call-label 8 2 -75) ;; make-hash-table@guile at #x7fae263f3eec
64 (receive 3 8 12)
66 (scm-set!/immediate 7 1 8) at ice-9/ftw.scm:261:19
67 (static-ref 3 16250) ;; #f at ice-9/ftw.scm:262:41
69 (mov 2 10) at ice-9/ftw.scm:262:40
70 (handle-interrupts)
71 (call-label 8 2 51) ;; stat:dev@guile at #x7fae263f410c
74 (receive 1 8 12)
76 (scm-ref/immediate 8 7 1)
77 (static-ref 6 16248) ;; #f at ice-9/ftw.scm:262:20
79 (scm-ref/immediate 2 11 3)
80 (mov 3 6) at ice-9/ftw.scm:262:19
81 (mov 1 10)
82 (mov 0 8)
83 (handle-interrupts)
84 (call-label 8 4 94) ;; hashv-set!@guile at #x7fae263f41ec
87 (reset-frame 12) ;; 12 slots
L3:
88 (scm-ref/immediate 2 7 1)
89 (static-ref 3 16230) ;; #f at ice-9/ftw.scm:263:18
91 (mov 1 9) at ice-9/ftw.scm:263:17
92 (handle-interrupts)
93 (call-label 8 3 43) ;; hashv-ref@guile at #x7fae263f4144
96 (receive 0 8 12)
98 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:263:13
100 (jne 15) ;; -> L4
101 (scm-ref/immediate 7 7 1)
102 (make-immediate 5 1028) ;; #t at ice-9/ftw.scm:265:44
103 (static-ref 8 16222) ;; #f at ice-9/ftw.scm:265:20
105 (mov 6 9) at ice-9/ftw.scm:265:19
106 (handle-interrupts)
107 (call-label 3 4 71) ;; hashv-set!@guile at #x7fae263f41ec
110 (reset-frame 12) ;; 12 slots
111 (make-immediate 11 4) ;; #f at ice-9/ftw.scm:266:19
112 (reset-frame 1) ;; 1 slot
113 (handle-interrupts)
114 (return-values)
L4:
115 (reset-frame 1) ;; 1 slot
116 (handle-interrupts)
117 (return-values)
L5:
118 (make-immediate 11 4) ;; #f at ice-9/boot-9.scm:408:31
119 (reset-frame 1) ;; 1 slot
120 (handle-interrupts)
121 (return-values)
Disassembly of stat:dev@guile at #x110c:
0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15584 16206 112);; lookup-bound-public
9 (static-set! 1 16186) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of hashv-ref@guile at #x1144:
0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31
2 (immediate-tag=? 2 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 2 15570 16206 112);; lookup-bound-public
9 (static-set! 2 16174) ;; #f
L1:
11 (scm-ref/immediate 2 2 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of stat:ino@guile at #x117c:
0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15556 16206 112);; lookup-bound-public
9 (static-set! 1 16162) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of string-hash@guile at #x11b4:
0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15542 16206 112);; lookup-bound-public
9 (static-set! 1 16150) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of hashv-set!@guile at #x11ec:
0 (instrument-entry 16219) at ice-9/boot-9.scm:408:31
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 15528 16206 112);; lookup-bound-public
9 (static-set! 3 16138) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of stat-dir-readable?-proc at #x1224:
0 (instrument-entry 16211) at ice-9/ftw.scm:268:0
2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args)
3 (mov 2 1)
4 (mov 1 0)
5 (reset-frame 2) ;; 2 slots
6 (handle-interrupts)
7 (tail-call-label 2) ;; stat-dir-readable?-proc at #x7fae263f4248
Disassembly of stat-dir-readable?-proc at #x1248:
0 (instrument-entry 16208) at ice-9/ftw.scm:268:0
2 (alloc-frame 4) ;; 4 slots
3 (allocate-words/immediate 1 4) at ice-9/ftw.scm:269:2
4 (load-u64 0 0 131141)
7 (word-set!/immediate 1 0 0)
8 (load-label 0 9) ;; anonymous procedure at #x7fae263f428c
10 (word-set!/immediate 1 1 0)
11 (scm-set!/immediate 1 2 3)
12 (scm-set!/immediate 1 3 2)
13 (mov 3 1)
14 (reset-frame 1) ;; 1 slot
15 (handle-interrupts)
16 (return-values)
Disassembly of <unnamed function> at #x128c:
0 (instrument-entry 16237) at ice-9/ftw.scm:269:2
2 (assert-nargs-ee/locals 2 7) ;; 9 slots (1 arg)
3 (static-ref 6 16194) ;; #f at ice-9/ftw.scm:270:19
5 (immediate-tag=? 6 7 0) ;; heap-object?
7 (je 7) ;; -> L1
8 (call-scm<-scmn-scmn 6 15485 16191 112);; lookup-bound-public
12 (static-set! 6 16185) ;; #f
L1:
14 (scm-ref/immediate 3 6 1)
15 (mov 2 7)
16 (handle-interrupts)
17 (call 5 2)
19 (receive 2 5 9)
21 (scm-ref/immediate 5 8 2)
22 (eq-immediate? 5 2) ;; 0 at ice-9/ftw.scm:273:10
23 (je 145) ;; -> L17
24 (static-ref 5 16183) ;; #f at ice-9/ftw.scm:274:28
26 (immediate-tag=? 5 7 0) ;; heap-object?
28 (je 7) ;; -> L2
29 (call-scm<-scmn-scmn 5 15464 16180 112);; lookup-bound-public
33 (static-set! 5 16174) ;; #f
L2:
35 (scm-ref/immediate 2 5 1)
36 (mov 1 7)
37 (handle-interrupts)
38 (call 6 2)
40 (receive 3 6 9)
42 (scm-ref/immediate 4 8 2)
43 (eq? 4 5) at ice-9/ftw.scm:274:15
44 (je 29) ;; -> L4
45 (immediate-tag=? 4 7 0) ;; heap-object?
47 (jne 35) ;; -> L6
48 (immediate-tag=? 5 7 0) ;; heap-object?
50 (jne 32) ;; -> L6
51 (static-ref 3 16166) ;; #f
53 (immediate-tag=? 3 7 0) ;; heap-object?
55 (je 7) ;; -> L3
56 (call-scm<-scmn-scmn 3 15437 16163 113);; lookup-bound-private
60 (static-set! 3 16157) ;; #f
L3:
62 (scm-ref/immediate 2 3 1)
63 (mov 1 4)
64 (mov 0 5)
65 (handle-interrupts)
66 (call 6 3)
68 (receive 3 6 9)
70 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:274:10
72 (je 10) ;; -> L6
L4:
73 (make-immediate 5 1026) ;; 256 at ice-9/ftw.scm:275:31
74 (call-scm<-scm-scm 5 5 6 9) ;; logand at ice-9/ftw.scm:272:29
76 (eq-immediate? 5 2) ;; 0
77 (jne 3) ;; -> L5
78 (make-immediate 5 4) ;; #f
79 (j 4) ;; -> L7
L5:
80 (make-immediate 5 1028) ;; #t
81 (j 2) ;; -> L7
L6:
82 (make-immediate 5 4) ;; #f at ice-9/boot-9.scm:408:31
L7:
83 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:273:6
85 (jne 79) ;; -> L16
86 (static-ref 5 16141) ;; #f at ice-9/ftw.scm:276:28
88 (immediate-tag=? 5 7 0) ;; heap-object?
90 (je 7) ;; -> L8
91 (call-scm<-scmn-scmn 5 15402 16138 112);; lookup-bound-public
95 (static-set! 5 16132) ;; #f
L8:
97 (scm-ref/immediate 2 5 1)
98 (mov 1 7)
99 (handle-interrupts)
100 (call 6 2)
102 (receive 1 6 9)
104 (scm-ref/immediate 8 8 3)
105 (eq? 8 7) at ice-9/ftw.scm:276:15
106 (je 29) ;; -> L10
107 (immediate-tag=? 8 7 0) ;; heap-object?
109 (jne 35) ;; -> L12
110 (immediate-tag=? 7 7 0) ;; heap-object?
112 (jne 32) ;; -> L12
113 (static-ref 5 16104) ;; #f
115 (immediate-tag=? 5 7 0) ;; heap-object?
117 (je 7) ;; -> L9
118 (call-scm<-scmn-scmn 5 15375 16101 113);; lookup-bound-private
122 (static-set! 5 16095) ;; #f
L9:
124 (scm-ref/immediate 2 5 1)
125 (mov 1 8)
126 (mov 0 7)
127 (handle-interrupts)
128 (call 6 3)
130 (receive 0 6 9)
132 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:276:10
134 (je 10) ;; -> L12
L10:
135 (make-immediate 8 130) ;; 32 at ice-9/ftw.scm:277:31
136 (call-scm<-scm-scm 8 8 6 9) ;; logand at ice-9/ftw.scm:272:29
138 (eq-immediate? 8 2) ;; 0
139 (jne 3) ;; -> L11
140 (make-immediate 8 4) ;; #f
141 (j 4) ;; -> L13
L11:
142 (make-immediate 8 1028) ;; #t
143 (j 2) ;; -> L13
L12:
144 (make-immediate 8 4) ;; #f at ice-9/boot-9.scm:408:31
L13:
145 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:273:6
147 (jne 14) ;; -> L15
148 (make-immediate 8 18) ;; 4 at ice-9/ftw.scm:278:26
149 (call-scm<-scm-scm 8 8 6 9) ;; logand at ice-9/ftw.scm:272:29
151 (eq-immediate? 8 2) ;; 0
152 (jne 5) ;; -> L14
153 (make-immediate 8 4) ;; #f
154 (reset-frame 1) ;; 1 slot
155 (handle-interrupts)
156 (return-values)
L14:
157 (make-immediate 8 1028) ;; #t
158 (reset-frame 1) ;; 1 slot
159 (handle-interrupts)
160 (return-values)
L15:
161 (reset-frame 1) ;; 1 slot
162 (handle-interrupts)
163 (return-values)
L16:
164 (mov 8 5)
165 (reset-frame 1) ;; 1 slot
166 (handle-interrupts)
167 (return-values)
L17:
168 (make-immediate 8 1028) ;; #t at ice-9/ftw.scm:273:10
169 (reset-frame 1) ;; 1 slot
170 (handle-interrupts)
171 (return-values)
Disassembly of stat&flag-proc at #x153c:
0 (instrument-entry 16151) at ice-9/ftw.scm:280:0
2 (assert-nargs-ge 2)
3 (bind-rest 2) ;; 3 slots
4 (alloc-frame 11) ;; 11 slots
5 (static-ref 10 16074) ;; depth at ice-9/ftw.scm:281:35
7 (static-ref 7 16074) ;; #f at ice-9/ftw.scm:281:29
9 (immediate-tag=? 7 7 0) ;; heap-object?
11 (je 7) ;; -> L1
12 (call-scm<-scmn-scmn 7 15309 16071 113);; lookup-bound-private
16 (static-set! 7 16065) ;; #f
L1:
18 (scm-ref/immediate 7 7 1)
19 (mov 3 7)
20 (mov 2 10)
21 (mov 1 8)
22 (handle-interrupts)
23 (call 7 3)
25 (receive 0 7 11)
27 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:281:25
29 (je 4) ;; -> L2
30 (static-ref 10 16069) ;; directory-processed at ice-9/ftw.scm:282:29
32 (j 3) ;; -> L3
L2:
33 (static-ref 10 16076) ;; directory at ice-9/ftw.scm:283:29
L3:
35 (static-ref 2 16084) ;; nftw-style at ice-9/ftw.scm:284:39
37 (mov 3 7) at ice-9/ftw.scm:284:33
38 (mov 1 8)
39 (handle-interrupts)
40 (call 7 3)
42 (receive 4 7 11)
44 (immediate-tag=? 6 3839 4) ;; false? at ice-9/ftw.scm:284:29
46 (je 4) ;; -> L4
47 (static-ref 6 16082) ;; stale-symlink at ice-9/ftw.scm:285:33
49 (j 3) ;; -> L5
L4:
50 (static-ref 6 16089) ;; symlink at ice-9/ftw.scm:286:33
L5:
52 (static-ref 1 16097) ;; physical at ice-9/ftw.scm:287:26
54 (mov 2 7) at ice-9/ftw.scm:287:20
55 (mov 0 8)
56 (handle-interrupts)
57 (call 8 3)
59 (receive 2 8 11)
61 (allocate-words/immediate 7 6) at ice-9/ftw.scm:295:4
62 (load-u64 5 0 262213)
65 (word-set!/immediate 7 0 5)
66 (load-label 5 11) ;; anonymous procedure at #x7fae263f4670
68 (word-set!/immediate 7 1 5)
69 (scm-set!/immediate 7 2 9)
70 (scm-set!/immediate 7 3 10)
71 (scm-set!/immediate 7 4 6)
72 (scm-set!/immediate 7 5 8)
73 (mov 10 7)
74 (reset-frame 1) ;; 1 slot
75 (handle-interrupts)
76 (return-values)
Disassembly of <unnamed function> at #x1670:
0 (instrument-entry 16122) at ice-9/ftw.scm:295:4
2 (assert-nargs-ee/locals 2 10) ;; 12 slots (1 arg)
3 (make-immediate 9 1028) ;; #t at ice-9/boot-9.scm:2137:12
4 (allocate-words/immediate 8 3) at ice-9/ftw.scm:296:15
5 (load-u64 7 0 65605)
8 (word-set!/immediate 8 0 7)
9 (load-label 6 144) ;; anonymous procedure at #x7fae263f48d4
11 (word-set!/immediate 8 1 6)
12 (scm-set!/immediate 8 2 10)
13 (static-ref 3 16067) ;; #f at ice-9/boot-9.scm:2137:6
15 (make-non-immediate 0 16067) ;; #<procedure 7fae264041b8 at ice-9/ftw.scm:296:15 args>
17 (mov 2 9) at ice-9/ftw.scm:296:15
18 (mov 1 8)
19 (handle-interrupts)
20 (call-label 8 4 169) ;; catch@@guile at #x7fae263f4964
23 (receive 3 8 12)
25 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:297:8
27 (je 120) ;; -> L10
28 (static-ref 3 16058) ;; #f at ice-9/ftw.scm:299:30
30 (mov 2 8) at ice-9/ftw.scm:299:29
31 (handle-interrupts)
32 (call-label 8 2 171) ;; stat:type@guile at #x7fae263f499c
35 (receive 5 8 12)
37 (static-ref 5 16025) ;; symlink at ice-9/ftw.scm:299:15
39 (eq? 6 5)
40 (jne 73) ;; -> L6
41 (allocate-words/immediate 6 3) at ice-9/ftw.scm:300:31
42 (word-set!/immediate 6 0 7)
43 (load-label 7 174) ;; anonymous procedure at #x7fae263f49d4
45 (word-set!/immediate 6 1 7)
46 (scm-set!/immediate 6 2 10)
47 (static-ref 4 16033) ;; #f at ice-9/boot-9.scm:2137:6
49 (make-non-immediate 1 16039) ;; #<procedure 7fae264041d0 at ice-9/ftw.scm:300:31 args>
51 (mov 3 9) at ice-9/ftw.scm:300:31
52 (mov 2 6)
53 (handle-interrupts)
54 (call-label 7 4 135) ;; catch@@guile at #x7fae263f4964
57 (receive 1 7 12)
59 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:301:17
61 (je 47) ;; -> L5
62 (scm-ref/immediate 9 11 5)
63 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:303:24
65 (jne 37) ;; -> L4
66 (static-ref 6 16020) ;; #f at ice-9/ftw.scm:289:35
68 (mov 5 10) at ice-9/ftw.scm:289:34
69 (handle-interrupts)
70 (call-label 5 2 133) ;; stat:type@guile at #x7fae263f499c
73 (receive 2 5 12)
75 (static-ref 8 15957) ;; directory at ice-9/ftw.scm:290:28
77 (eq? 9 8)
78 (jne 16) ;; -> L2
79 (scm-ref/immediate 6 11 2)
80 (mov 5 10) at ice-9/ftw.scm:291:32
81 (handle-interrupts)
82 (call 5 2)
84 (receive 2 5 12)
86 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:291:28
88 (je 3) ;; -> L1
89 (scm-ref/immediate 11 11 3)
90 (j 6) ;; -> L3
L1:
91 (static-ref 11 16009) ;; directory-not-readable at ice-9/ftw.scm:293:32
93 (j 3) ;; -> L3
L2:
94 (static-ref 11 16016) ;; regular at ice-9/ftw.scm:294:28
L3:
96 (mov 9 10) at ice-9/ftw.scm:306:24
97 (mov 10 11)
98 (mov 11 9)
99 (reset-frame 2) ;; 2 slots
100 (handle-interrupts)
101 (return-values)
L4:
102 (static-ref 10 15960) ;; symlink at ice-9/ftw.scm:304:34
104 (mov 11 8) at ice-9/ftw.scm:304:24
105 (reset-frame 2) ;; 2 slots
106 (handle-interrupts)
107 (return-values)
L5:
108 (scm-ref/immediate 10 11 4)
109 (mov 11 8) at ice-9/ftw.scm:302:24
110 (reset-frame 2) ;; 2 slots
111 (handle-interrupts)
112 (return-values)
L6:
113 (static-ref 4 15973) ;; #f at ice-9/ftw.scm:289:35
115 (mov 3 8) at ice-9/ftw.scm:289:34
116 (handle-interrupts)
117 (call-label 7 2 86) ;; stat:type@guile at #x7fae263f499c
120 (receive 1 7 12)
122 (static-ref 9 15910) ;; directory at ice-9/ftw.scm:290:28
124 (eq? 10 9)
125 (jne 16) ;; -> L8
126 (scm-ref/immediate 4 11 2)
127 (mov 3 8) at ice-9/ftw.scm:291:32
128 (handle-interrupts)
129 (call 7 2)
131 (receive 1 7 12)
133 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:291:28
135 (je 3) ;; -> L7
136 (scm-ref/immediate 10 11 3)
137 (j 6) ;; -> L9
L7:
138 (static-ref 10 15962) ;; directory-not-readable at ice-9/ftw.scm:293:32
140 (j 3) ;; -> L9
L8:
141 (static-ref 10 15969) ;; regular at ice-9/ftw.scm:294:28
L9:
143 (mov 11 8) at ice-9/ftw.scm:307:20
144 (reset-frame 2) ;; 2 slots
145 (handle-interrupts)
146 (return-values)
L10:
147 (static-ref 10 15973) ;; invalid-stat at ice-9/ftw.scm:298:25
149 (mov 11 8) at ice-9/ftw.scm:298:15
150 (reset-frame 2) ;; 2 slots
151 (handle-interrupts)
152 (return-values)
Disassembly of <unnamed function> at #x18d4:
0 (instrument-entry 15977) at ice-9/ftw.scm:296:15
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 15972) ;; #f at ice-9/ftw.scm:296:36
5 (scm-ref/immediate 2 2 2)
6 (mov 0 1) at ice-9/ftw.scm:296:35
7 (mov 1 2)
8 (mov 2 0)
9 (reset-frame 2) ;; 2 slots
10 (handle-interrupts)
11 (tail-call-label 2) ;; lstat@guile at #x7fae263f4908
Disassembly of lstat@guile at #x1908:
0 (instrument-entry 15978) at ice-9/ftw.scm:296:35
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15073 15965 112);; lookup-bound-public
9 (static-set! 1 15953) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x1940:
0 (instrument-entry 15970) at ice-9/ftw.scm:296:15
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20
6 (reset-frame 1) ;; 1 slot
7 (handle-interrupts)
8 (return-values)
Disassembly of catch@@guile at #x1964:
0 (instrument-entry 15975) at ice-9/boot-9.scm:2139:20
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 15050 15962 113);; lookup-bound-private
9 (static-set! 3 15882) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of stat:type@guile at #x199c:
0 (instrument-entry 15975) at ice-9/boot-9.scm:2139:20
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 15036 15962 112);; lookup-bound-public
9 (static-set! 1 15874) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x19d4:
0 (instrument-entry 15977) at ice-9/ftw.scm:300:31
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 15964) ;; #f at ice-9/ftw.scm:300:52
5 (immediate-tag=? 1 7 0) ;; heap-object?
7 (je 7) ;; -> L1
8 (call-scm<-scmn-scmn 1 15019 15961 112);; lookup-bound-public
12 (static-set! 1 15955) ;; #f
L1:
14 (scm-ref/immediate 1 1 1)
15 (scm-ref/immediate 2 2 2)
16 (mov 0 1)
17 (mov 1 2)
18 (mov 2 0)
19 (reset-frame 2) ;; 2 slots
20 (handle-interrupts)
21 (tail-call)
Disassembly of <unnamed function> at #x1a2c:
0 (instrument-entry 15961) at ice-9/ftw.scm:300:31
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20
6 (reset-frame 1) ;; 1 slot
7 (handle-interrupts)
8 (return-values)
Disassembly of clean at #x1a50:
0 (instrument-entry 15996) at ice-9/ftw.scm:309:0
2 (assert-nargs-ee/locals 2 9) ;; 11 slots (1 arg)
3 (immediate-tag=? 9 7 0) ;; heap-object? at ice-9/ftw.scm:310:16
5 (jne 59) ;; -> L6
6 (heap-tag=? 9 127 21) ;; string?
8 (jne 56) ;; -> L6
9 (word-ref/immediate 10 9 3)
10 (mov 8 10)
11 (usub/immediate 8 8 1) at ice-9/ftw.scm:310:13
12 (tag-fixnum 7 8)
13 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:311:13
14 (imm-s64<? 8 0)
15 (jnl 45) ;; -> L5
16 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37
17 (u64<? 8 10) at ice-9/ftw.scm:311:41
18 (jnl 40) ;; -> L4
19 (word-ref/immediate 10 9 2)
20 (uadd 10 10 8)
21 (scm-ref/immediate 8 9 1)
22 (tail-pointer-ref/immediate 4 8 2)
23 (word-ref/immediate 3 8 0)
24 (load-u64 2 0 1024)
27 (ulogand 3 3 2)
28 (s64-imm=? 3 0)
29 (je 4) ;; -> L1
30 (ulsh/immediate 10 10 2)
31 (u32-ref 10 4 10)
32 (j 2) ;; -> L2
L1:
33 (u8-ref 10 4 10)
L2:
34 (tag-char 0 10)
35 (static-ref 2 15923) ;; #f at ice-9/ftw.scm:311:30
37 (mov 1 5) at ice-9/ftw.scm:311:29
38 (handle-interrupts)
39 (call-label 8 3 27) ;; char=?@guile at #x7fae263f4b58
42 (receive 0 8 11)
44 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:311:8
46 (je 8) ;; -> L3
47 (static-ref 10 15467) ;; #f at ice-9/ftw.scm:312:7
49 (mov 8 6) at ice-9/ftw.scm:312:6
50 (reset-frame 4) ;; 4 slots
51 (handle-interrupts)
52 (tail-call-label -829) ;; substring@guile at #x7fae263f3e2c
L3:
54 (mov 10 9)
55 (reset-frame 1) ;; 1 slot
56 (handle-interrupts)
57 (return-values)
L4:
58 (throw/value+data 7 15930) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41
L5:
60 (mov 10 9)
61 (reset-frame 1) ;; 1 slot
62 (handle-interrupts)
63 (return-values)
L6:
64 (throw/value+data 9 15468) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16
Disassembly of char=?@guile at #x1b58:
0 (instrument-entry 15944) at ice-9/ftw.scm:310:16
2 (immediate-tag=? 2 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 2 14925 15931 112);; lookup-bound-public
9 (static-set! 2 15883) ;; #f
L1:
11 (scm-ref/immediate 2 2 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of ftw at #x1b90:
0 (instrument-entry 15978) at ice-9/ftw.scm:315:0
2 (assert-nargs-ge 3)
3 (bind-rest 3) ;; 4 slots
4 (alloc-frame 9) ;; 9 slots
5 (static-ref 8 15939) ;; hash-size at ice-9/ftw.scm:316:47
7 (static-ref 4 15669) ;; #f at ice-9/ftw.scm:316:41
9 (immediate-tag=? 4 7 0) ;; heap-object?
11 (je 7) ;; -> L1
12 (call-scm<-scmn-scmn 4 14904 15666 113);; lookup-bound-private
16 (static-set! 4 15660) ;; #f
L1:
18 (scm-ref/immediate 2 4 1)
19 (mov 1 8)
20 (mov 0 5)
21 (handle-interrupts)
22 (call 6 3)
24 (receive 0 6 9)
26 (immediate-tag=? 8 3839 4) ;; false? at ice-9/ftw.scm:316:34
28 (je 20) ;; -> L4
29 (immediate-tag=? 8 7 0) ;; heap-object?
31 (jne 15) ;; -> L3
32 (heap-tag=? 8 1 0) ;; pair?
34 (jne 12) ;; -> L3
35 (scm-ref/immediate 8 8 1)
36 (immediate-tag=? 8 7 0) ;; heap-object?
38 (jne 6) ;; -> L2
39 (heap-tag=? 8 1 0) ;; pair?
41 (jne 3) ;; -> L2
42 (scm-ref/immediate 2 8 0)
43 (j 6) ;; -> L5
L2:
44 (throw/value+data 8 15910) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…")
L3:
46 (throw/value+data 8 15380) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…")
L4:
48 (make-immediate 2 846) ;; 211 at ice-9/ftw.scm:317:46
L5:
49 (handle-interrupts) at ice-9/ftw.scm:316:19
50 (call-label 6 1 -885) ;; visited?-proc at #x7fae263f3e84
53 (reset-frame 9) ;; 9 slots
54 (mov 8 2)
55 (make-immediate 2 3990) ;; 997 at ice-9/ftw.scm:319:46
56 (make-long-immediate 1 120002) ;; 30000 at ice-9/ftw.scm:320:46
58 (handle-interrupts) at ice-9/ftw.scm:319:21
59 (call-label 6 2 -653) ;; stat-dir-readable?-proc at #x7fae263f4248
62 (reset-frame 9) ;; 9 slots
63 (mov 1 2)
64 (make-immediate 2 4) ;; #f
65 (handle-interrupts) at ice-9/ftw.scm:318:20
66 (call-label 6 2 -471) ;; stat&flag-proc at #x7fae263f453c
69 (reset-frame 9) ;; 9 slots
70 (mov 5 2)
71 (allocate-words/immediate 4 4) at ice-9/ftw.scm:321:4
72 (load-u64 3 0 781)
75 (word-set!/immediate 4 0 3)
76 (scm-set!/immediate 4 1 6)
77 (scm-set!/immediate 4 2 8)
78 (scm-set!/immediate 4 3 5)
79 (static-ref 8 15891) ;; ftw-early-exit at ice-9/ftw.scm:334:13
81 (allocate-words/immediate 6 4) at ice-9/ftw.scm:335:13
82 (load-u64 5 0 131141)
85 (word-set!/immediate 6 0 5)
86 (load-label 5 16) ;; anonymous procedure at #x7fae263f4d28
88 (word-set!/immediate 6 1 5)
89 (scm-set!/immediate 6 2 7)
90 (scm-set!/immediate 6 3 4)
91 (static-ref 7 15881) ;; #f at ice-9/ftw.scm:334:7
93 (make-non-immediate 5 15881) ;; #<procedure 7fae26404528 at ice-9/ftw.scm:336:13 (key val)>
95 (mov 4 7) at ice-9/ftw.scm:334:6
96 (mov 7 8)
97 (mov 8 4)
98 (reset-frame 4) ;; 4 slots
99 (handle-interrupts)
100 (tail-call-label 189) ;; catch@guile at #x7fae263f5014
Disassembly of <unnamed function> at #x1d28:
0 (instrument-entry 15882) at ice-9/ftw.scm:335:13
2 (assert-nargs-ee/locals 1 11) ;; 12 slots (0 args)
3 (scm-ref/immediate 10 11 2)
4 (immediate-tag=? 10 7 0) ;; heap-object? at ice-9/ftw.scm:310:16
6 (jne 65) ;; -> L6
7 (heap-tag=? 10 127 21) ;; string?
9 (jne 62) ;; -> L6
10 (word-ref/immediate 9 10 3)
11 (mov 8 9)
12 (usub/immediate 8 8 1) at ice-9/ftw.scm:310:13
13 (tag-fixnum 7 8)
14 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:311:13
15 (imm-s64<? 8 0)
16 (jnl 50) ;; -> L5
17 (make-immediate 5 12044) ;; #\/ at ice-9/ftw.scm:311:37
18 (u64<? 8 9) at ice-9/ftw.scm:311:41
19 (jnl 45) ;; -> L4
20 (word-ref/immediate 9 10 2)
21 (uadd 9 9 8)
22 (scm-ref/immediate 10 10 1)
23 (tail-pointer-ref/immediate 8 10 2)
24 (word-ref/immediate 4 10 0)
25 (load-u64 3 0 1024)
28 (ulogand 4 4 3)
29 (s64-imm=? 4 0)
30 (je 4) ;; -> L1
31 (ulsh/immediate 9 9 2)
32 (u32-ref 10 8 9)
33 (j 2) ;; -> L2
L1:
34 (u8-ref 10 8 9)
L2:
35 (tag-char 0 10)
36 (static-ref 2 15740) ;; #f at ice-9/ftw.scm:311:30
38 (mov 1 5) at ice-9/ftw.scm:311:29
39 (handle-interrupts)
40 (call-label 9 3 -156) ;; char=?@guile at #x7fae263f4b58
43 (receive 1 9 12)
45 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:311:8
47 (je 15) ;; -> L3
48 (static-ref 10 15284) ;; #f at ice-9/ftw.scm:312:7
50 (scm-ref/immediate 9 11 2)
51 (mov 4 7) at ice-9/ftw.scm:312:6
52 (mov 7 10)
53 (mov 5 6)
54 (mov 6 9)
55 (handle-interrupts)
56 (call-label 4 4 -1015) ;; substring@guile at #x7fae263f3e2c
59 (receive 1 4 12)
61 (j 5) ;; -> L5
L3:
62 (scm-ref/immediate 10 11 2)
63 (j 3) ;; -> L5
L4:
64 (throw/value+data 7 15742) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41
L5:
66 (scm-ref/immediate 11 11 3)
67 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:335:24
68 (handle-interrupts)
69 (tail-call-label 4) ;; go at #x7fae263f4e4c
L6:
71 (throw/value+data 10 15279) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16
Disassembly of go at #x1e4c:
0 (instrument-entry 15827) at ice-9/ftw.scm:321:17
2 (alloc-frame 14) ;; 14 slots
3 (scm-ref/immediate 8 13 3)
4 (mov 7 12) at ice-9/ftw.scm:322:48
5 (handle-interrupts)
6 (call 5 2)
8 (receive-values 5 #f 2)
10 (reset-frame 14) ;; 14 slots
11 (mov 11 8)
12 (scm-ref/immediate 3 13 2)
13 (mov 2 11) at ice-9/ftw.scm:324:27
14 (mov 1 12)
15 (handle-interrupts)
16 (call 10 3)
18 (receive 3 10 14)
20 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:324:23
22 (jne 64) ;; -> L4
23 (scm-ref/immediate 3 13 1)
24 (mov 2 12) at ice-9/ftw.scm:325:38
25 (mov 1 11)
26 (mov 0 7)
27 (handle-interrupts)
28 (call 10 4)
30 (receive 2 10 14)
32 (eq-immediate? 11 1028) ;; #t at ice-9/ftw.scm:326:33
33 (jne 46) ;; -> L3
34 (static-ref 11 15495) ;; directory at ice-9/ftw.scm:328:34
36 (eq? 7 11)
37 (jne 38) ;; -> L2
38 (static-ref 11 15777) ;; #f at ice-9/ftw.scm:329:35
40 (immediate-tag=? 11 7 0) ;; heap-object?
42 (je 9) ;; -> L1
43 (static-ref 11 14778) ;; #f
45 (static-ref 10 15780) ;; for-each
47 (call-scm<-scm-scm 11 11 10 111);; lookup-bound
49 (static-set! 11 15766) ;; #f
L1:
51 (scm-ref/immediate 11 11 1)
52 (allocate-words/immediate 10 4) at ice-9/ftw.scm:330:35
53 (load-u64 9 0 131141)
56 (word-set!/immediate 10 0 9)
57 (load-label 9 33) ;; anonymous procedure at #x7fae263f4fb4
59 (word-set!/immediate 10 1 9)
60 (scm-set!/immediate 10 2 13)
61 (scm-set!/immediate 10 3 12)
62 (mov 6 12) at ice-9/ftw.scm:332:35
63 (handle-interrupts)
64 (call-label 7 1 -1416) ;; directory-files at #x7fae263f392c
67 (reset-frame 14) ;; 14 slots
68 (mov 8 6)
69 (mov 9 10) at ice-9/ftw.scm:329:34
70 (mov 10 11)
71 (handle-interrupts)
72 (call 3 3)
74 (reset-frame 14) ;; 14 slots
L2:
75 (make-immediate 13 1028) ;; #t at ice-9/ftw.scm:333:29
76 (reset-frame 1) ;; 1 slot
77 (handle-interrupts)
78 (return-values)
L3:
79 (static-ref 13 15716) ;; ftw-early-exit at ice-9/ftw.scm:327:40
81 (make-immediate 12 772) ;; () at ice-9/ftw.scm:327:33
82 (allocate-words/immediate 10 2)
83 (scm-set!/immediate 10 0 11)
84 (scm-set!/immediate 10 1 12)
85 (throw 13 10)
L4:
86 (mov 13 10)
87 (reset-frame 1) ;; 1 slot
88 (handle-interrupts)
89 (return-values)
Disassembly of <unnamed function> at #x1fb4:
0 (instrument-entry 15743) at ice-9/ftw.scm:330:35
2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg)
3 (make-immediate 2 4) ;; #f
4 (scm-ref/immediate 1 6 3)
5 (mov 0 5) at ice-9/ftw.scm:331:41
6 (handle-interrupts)
7 (call-label 4 3 -1244) ;; pathify at #x7fae263f3c60
10 (receive 1 4 7)
12 (scm-ref/immediate 6 6 2)
13 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:331:37
14 (handle-interrupts)
15 (tail-call-label -105) ;; go at #x7fae263f4e4c
Disassembly of <unnamed function> at #x1ff8:
0 (instrument-entry 15732) at ice-9/ftw.scm:336:13
2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args)
3 (mov 2 0)
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (return-values)
Disassembly of catch@guile at #x2014:
0 (instrument-entry 15731) at ice-9/ftw.scm:336:13
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 14622 15534 112);; lookup-bound-public
9 (static-set! 3 15674) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of nftw at #x204c:
0 (instrument-entry 15807) at ice-9/ftw.scm:338:0
2 (assert-nargs-ge 3)
3 (bind-rest 3) ;; 4 slots
4 (alloc-frame 18) ;; 18 slots
5 (static-ref 17 15718) ;; #f at ice-9/ftw.scm:339:14
7 (immediate-tag=? 17 7 0) ;; heap-object?
9 (je 7) ;; -> L1
10 (call-scm<-scmn-scmn 17 14603 15715 112);; lookup-bound-public
14 (static-set! 17 15709) ;; #f
L1:
16 (scm-ref/immediate 10 17 1)
17 (handle-interrupts)
18 (call 7 1)
20 (receive 0 7 18)
22 (make-immediate 13 1028) ;; #t at ice-9/boot-9.scm:2137:12
23 (allocate-words/immediate 12 3) at ice-9/ftw.scm:340:24
24 (load-u64 11 0 65605)
27 (word-set!/immediate 12 0 11)
28 (load-label 10 254) ;; anonymous procedure at #x7fae263f54b4
30 (word-set!/immediate 12 1 10)
31 (scm-set!/immediate 12 2 16)
32 (static-ref 7 15417) ;; #f at ice-9/boot-9.scm:2137:6
34 (make-non-immediate 4 15699) ;; #<procedure 7fae26404620 at ice-9/ftw.scm:340:24 args>
36 (mov 6 13) at ice-9/ftw.scm:340:24
37 (mov 5 12)
38 (handle-interrupts)
39 (call-label 10 4 -481) ;; catch@@guile at #x7fae263f4964
42 (receive 4 10 18)
44 (immediate-tag=? 13 3839 4) ;; false? at ice-9/ftw.scm:341:17
46 (je 11) ;; -> L2
47 (static-ref 7 15172) ;; #f at ice-9/ftw.scm:341:24
49 (mov 6 13) at ice-9/ftw.scm:341:23
50 (handle-interrupts)
51 (call-label 10 2 -1027) ;; stat:dev@guile at #x7fae263f410c
54 (receive 4 10 18)
56 (j 2) ;; -> L3
L2:
57 (make-immediate 13 65534) ;; -1 at ice-9/ftw.scm:341:36
L3:
58 (static-ref 12 15687) ;; mount at ice-9/ftw.scm:342:30
60 (static-ref 10 15313) ;; #f at ice-9/ftw.scm:342:24
62 (immediate-tag=? 10 7 0) ;; heap-object?
64 (je 7) ;; -> L4
65 (call-scm<-scmn-scmn 10 14548 15310 113);; lookup-bound-private
69 (static-set! 10 15304) ;; #f
L4:
71 (scm-ref/immediate 10 10 1)
72 (mov 6 10)
73 (mov 5 12)
74 (mov 4 14)
75 (handle-interrupts)
76 (call 11 3)
78 (receive 5 11 18)
80 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:342:20
82 (je 8) ;; -> L5
83 (allocate-words/immediate 12 3) at ice-9/ftw.scm:343:24
84 (word-set!/immediate 12 0 11)
85 (load-label 9 219) ;; anonymous procedure at #x7fae263f550c
87 (word-set!/immediate 12 1 9)
88 (scm-set!/immediate 12 2 13)
89 (j 3) ;; -> L6
L5:
90 (make-non-immediate 12 15657) ;; #<procedure 7fae26404658 at ice-9/ftw.scm:344:24 (s)> at ice-9/ftw.scm:344:24
L6:
92 (static-ref 13 15667) ;; chdir at ice-9/ftw.scm:346:29
94 (mov 6 10) at ice-9/ftw.scm:346:23
95 (mov 5 13)
96 (mov 4 14)
97 (handle-interrupts)
98 (call 11 3)
100 (receive 8 11 18)
102 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:346:19
104 (je 32) ;; -> L9
105 (static-ref 9 15656) ;; #f at ice-9/ftw.scm:347:28
107 (immediate-tag=? 9 7 0) ;; heap-object?
109 (je 7) ;; -> L7
110 (call-scm<-scmn-scmn 9 14503 15653 112);; lookup-bound-public
114 (static-set! 9 15647) ;; #f
L7:
116 (scm-ref/immediate 6 9 1)
117 (mov 5 16)
118 (handle-interrupts)
119 (call 11 2)
121 (receive 8 11 18)
123 (immediate-tag=? 9 3839 4) ;; false? at ice-9/ftw.scm:347:23
125 (jne 8) ;; -> L8
126 (allocate-words/immediate 9 3) at ice-9/ftw.scm:351:27
127 (word-set!/immediate 9 0 11)
128 (load-label 8 206) ;; anonymous procedure at #x7fae263f5584
130 (word-set!/immediate 9 1 8)
131 (scm-set!/immediate 9 2 17)
132 (j 6) ;; -> L10
L8:
133 (make-non-immediate 9 15638) ;; #<procedure 7fae264046b8 at ice-9/ftw.scm:348:27 (fullname base)> at ice-9/ftw.scm:348:27
135 (j 3) ;; -> L10
L9:
136 (make-non-immediate 9 15639) ;; #<procedure 7fae264046c8 at ice-9/ftw.scm:354:23 (fullname base)> at ice-9/ftw.scm:354:23
L10:
138 (mov 5 10) at ice-9/ftw.scm:355:28
139 (mov 4 13)
140 (mov 3 14)
141 (handle-interrupts)
142 (call 12 3)
144 (receive 4 12 18)
146 (immediate-tag=? 13 3839 4) ;; false? at ice-9/ftw.scm:355:24
148 (je 8) ;; -> L11
149 (allocate-words/immediate 13 3) at ice-9/ftw.scm:356:28
150 (word-set!/immediate 13 0 11)
151 (load-label 11 267) ;; anonymous procedure at #x7fae263f56d4
153 (word-set!/immediate 13 1 11)
154 (scm-set!/immediate 13 2 17)
155 (j 3) ;; -> L12
L11:
156 (make-non-immediate 13 15623) ;; #<procedure 7fae264046d8 at ice-9/ftw.scm:357:28 ()> at ice-9/ftw.scm:357:28
L12:
158 (static-ref 4 15213) ;; depth at ice-9/ftw.scm:358:29
160 (mov 5 10) at ice-9/ftw.scm:358:23
161 (mov 3 14)
162 (handle-interrupts)
163 (call 12 3)
165 (receive 6 12 18)
167 (static-ref 4 15474) ;; hash-size at ice-9/ftw.scm:360:33
169 (mov 5 10) at ice-9/ftw.scm:360:27
170 (mov 3 14)
171 (handle-interrupts)
172 (call 12 3)
174 (receive 7 12 18)
176 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:360:20
178 (je 20) ;; -> L15
179 (immediate-tag=? 10 7 0) ;; heap-object?
181 (jne 15) ;; -> L14
182 (heap-tag=? 10 1 0) ;; pair?
184 (jne 12) ;; -> L14
185 (scm-ref/immediate 10 10 1)
186 (immediate-tag=? 10 7 0) ;; heap-object?
188 (jne 6) ;; -> L13
189 (heap-tag=? 10 1 0) ;; pair?
191 (jne 3) ;; -> L13
192 (scm-ref/immediate 5 10 0)
193 (j 6) ;; -> L16
L13:
194 (throw/value+data 10 15457) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…")
L14:
196 (throw/value+data 10 14927) ;; #(wrong-type-arg "cdr" "Wrong type argument in position 1 (expecting pair):…")
L15:
198 (make-immediate 5 846) ;; 211 at ice-9/ftw.scm:361:32
L16:
199 (handle-interrupts) at ice-9/ftw.scm:359:19
200 (call-label 12 1 -1338) ;; visited?-proc at #x7fae263f3e84
203 (reset-frame 18) ;; 18 slots
204 (mov 10 5)
205 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:362:20
207 (je 4) ;; -> L17
208 (make-non-immediate 8 15575) ;; #<procedure 7fae264046e8 at ice-9/ftw.scm:363:24 (flag)> at ice-9/ftw.scm:363:24
210 (j 3) ;; -> L18
L17:
211 (make-non-immediate 8 15576) ;; #<procedure 7fae264046f8 at ice-9/ftw.scm:364:24 (flag)> at ice-9/ftw.scm:364:24
L18:
213 (make-immediate 4 3990) ;; 997 at ice-9/ftw.scm:366:52
214 (make-long-immediate 3 120002) ;; 30000 at ice-9/ftw.scm:367:52
216 (handle-interrupts) at ice-9/ftw.scm:366:27
217 (call-label 13 2 -1114) ;; stat-dir-readable?-proc at #x7fae263f4248
220 (reset-frame 18) ;; 18 slots
221 (mov 2 4)
222 (static-ref 1 15189) ;; nftw-style at ice-9/ftw.scm:368:33
224 (builtin-ref 4 0) ;; apply at ice-9/ftw.scm:365:20
225 (make-non-immediate 3 14526) ;; #<procedure stat&flag-proc (dir-readable? . control-flags)>
227 (mov 0 14)
228 (handle-interrupts)
229 (call 13 5)
231 (receive 3 13 18)
233 (allocate-words/immediate 7 9) at ice-9/ftw.scm:369:4
234 (load-u64 6 0 2061)
237 (word-set!/immediate 7 0 6)
238 (scm-set!/immediate 7 1 15)
239 (scm-set!/immediate 7 2 12)
240 (scm-set!/immediate 7 3 9)
241 (scm-set!/immediate 7 4 13)
242 (scm-set!/immediate 7 5 8)
243 (scm-set!/immediate 7 6 11)
244 (scm-set!/immediate 7 7 10)
245 (scm-set!/immediate 7 8 14)
246 (static-ref 15 15553) ;; nftw-early-exit at ice-9/ftw.scm:395:24
248 (allocate-words/immediate 14 4) at ice-9/ftw.scm:396:24
249 (load-u64 13 0 131141)
252 (word-set!/immediate 14 0 13)
253 (load-label 13 214) ;; anonymous procedure at #x7fae263f5798
255 (word-set!/immediate 14 1 13)
256 (scm-set!/immediate 14 2 16)
257 (scm-set!/immediate 14 3 7)
258 (static-ref 13 15411) ;; #f at ice-9/ftw.scm:395:18
260 (make-non-immediate 10 15541) ;; #<procedure 7fae26404730 at ice-9/ftw.scm:397:24 (key val)>
262 (mov 12 15) at ice-9/ftw.scm:395:17
263 (mov 11 14)
264 (handle-interrupts)
265 (call-label 4 4 -279) ;; catch@guile at #x7fae263f5014
268 (receive 1 4 18)
270 (static-ref 12 15535) ;; #f at ice-9/ftw.scm:398:9
272 (mov 11 17) at ice-9/ftw.scm:398:8
273 (handle-interrupts)
274 (call-label 5 2 90) ;; chdir@guile at #x7fae263f55fc
277 (reset-frame 18) ;; 18 slots
278 (mov 17 16)
279 (reset-frame 1) ;; 1 slot
280 (handle-interrupts)
281 (return-values)
Disassembly of <unnamed function> at #x24b4:
0 (instrument-entry 15531) at ice-9/ftw.scm:340:24
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 15212) ;; #f at ice-9/ftw.scm:340:45
5 (scm-ref/immediate 2 2 2)
6 (mov 0 1) at ice-9/ftw.scm:340:44
7 (mov 1 2)
8 (mov 2 0)
9 (reset-frame 2) ;; 2 slots
10 (handle-interrupts)
11 (tail-call-label -758) ;; lstat@guile at #x7fae263f4908
Disassembly of <unnamed function> at #x24e8:
0 (instrument-entry 15524) at ice-9/ftw.scm:340:24
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (make-immediate 1 4) ;; #f at ice-9/boot-9.scm:2139:20
6 (reset-frame 1) ;; 1 slot
7 (handle-interrupts)
8 (return-values)
Disassembly of <unnamed function> at #x250c:
0 (instrument-entry 15521) at ice-9/ftw.scm:343:24
2 (assert-nargs-ee/locals 2 4) ;; 6 slots (1 arg)
3 (static-ref 1 14912) ;; #f at ice-9/ftw.scm:343:40
5 (mov 0 4) at ice-9/ftw.scm:343:39
6 (handle-interrupts)
7 (call-label 4 2 -1287) ;; stat:dev@guile at #x7fae263f410c
10 (receive 1 4 6)
12 (scm-ref/immediate 5 5 2)
13 (=? 4 5) at ice-9/ftw.scm:343:36
14 (jne 5) ;; -> L1
15 (make-immediate 5 1028) ;; #t
16 (reset-frame 1) ;; 1 slot
17 (handle-interrupts)
18 (return-values)
L1:
19 (make-immediate 5 4) ;; #f
20 (reset-frame 1) ;; 1 slot
21 (handle-interrupts)
22 (return-values)
Disassembly of <unnamed function> at #x2568:
0 (instrument-entry 15504) at ice-9/ftw.scm:344:24
2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg)
3 (make-immediate 1 1028) ;; #t at ice-9/ftw.scm:344:36
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (return-values)
Disassembly of <unnamed function> at #x2584:
0 (instrument-entry 15503) at ice-9/ftw.scm:351:27
2 (assert-nargs-ee/locals 3 5) ;; 8 slots (2 args)
3 (make-immediate 1 2) ;; 0 at ice-9/ftw.scm:345:55
4 (static-ref 3 14793) ;; #f at ice-9/ftw.scm:345:40
6 (mov 2 6) at ice-9/ftw.scm:345:39
7 (mov 0 5)
8 (handle-interrupts)
9 (call-label 4 4 -1503) ;; substring@guile at #x7fae263f3e2c
12 (receive 1 4 8)
14 (make-immediate 5 4) ;; #f
15 (scm-ref/immediate 3 7 2)
16 (mov 4 5) at ice-9/ftw.scm:353:30
17 (mov 2 6)
18 (handle-interrupts)
19 (call-label 3 3 -1628) ;; pathify at #x7fae263f3c60
22 (receive 1 3 8)
24 (static-ref 7 15447) ;; #f at ice-9/ftw.scm:352:30
26 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:352:29
27 (handle-interrupts)
28 (tail-call-label 2) ;; chdir@guile at #x7fae263f55fc
Disassembly of chdir@guile at #x25fc:
0 (instrument-entry 15479) at ice-9/ftw.scm:352:29
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 14244 15382 112);; lookup-bound-public
9 (static-set! 1 15432) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x2634:
0 (instrument-entry 15471) at ice-9/ftw.scm:348:27
2 (assert-nargs-ee/locals 3 4) ;; 7 slots (2 args)
3 (make-immediate 6 2) ;; 0 at ice-9/ftw.scm:349:36
4 (=? 6 4) at ice-9/ftw.scm:349:33
5 (jne 3) ;; -> L1
6 (make-immediate 3 1028) ;; #t
7 (j 2) ;; -> L2
L1:
8 (make-immediate 3 4) ;; #f
L2:
9 (immediate-tag=? 3 3839 4) ;; false? at ice-9/ftw.scm:349:29
11 (jne 18) ;; -> L3
12 (static-ref 3 14741) ;; #f at ice-9/ftw.scm:345:40
14 (mov 2 5) at ice-9/ftw.scm:345:39
15 (mov 1 6)
16 (mov 0 4)
17 (handle-interrupts)
18 (call-label 3 4 -1556) ;; substring@guile at #x7fae263f3e2c
21 (receive 1 3 7)
23 (static-ref 6 15404) ;; #f at ice-9/ftw.scm:350:34
25 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:350:33
26 (handle-interrupts)
27 (tail-call-label -41) ;; chdir@guile at #x7fae263f55fc
L3:
29 (mov 6 3)
30 (reset-frame 1) ;; 1 slot
31 (handle-interrupts)
32 (return-values)
Disassembly of <unnamed function> at #x26b8:
0 (instrument-entry 15444) at ice-9/ftw.scm:354:23
2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args)
3 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:354:47
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (return-values)
Disassembly of <unnamed function> at #x26d4:
0 (instrument-entry 15443) at ice-9/ftw.scm:356:28
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 15384) ;; #f at ice-9/ftw.scm:356:40
5 (scm-ref/immediate 2 2 2)
6 (mov 0 1) at ice-9/ftw.scm:356:39
7 (mov 1 2)
8 (mov 2 0)
9 (reset-frame 2) ;; 2 slots
10 (handle-interrupts)
11 (tail-call-label -65) ;; chdir@guile at #x7fae263f55fc
Disassembly of <unnamed function> at #x2708:
0 (instrument-entry 15436) at ice-9/ftw.scm:357:28
2 (assert-nargs-ee/locals 1 0) ;; 1 slot (0 args)
3 (make-immediate 0 1028) ;; #t at ice-9/ftw.scm:357:39
4 (handle-interrupts)
5 (return-values)
Disassembly of <unnamed function> at #x2720:
0 (instrument-entry 15436) at ice-9/ftw.scm:363:24
2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg)
3 (static-ref 1 14951) ;; directory-processed at ice-9/ftw.scm:363:39
5 (eq? 0 1)
6 (jne 5) ;; -> L1
7 (make-immediate 1 1028) ;; #t
8 (reset-frame 1) ;; 1 slot
9 (handle-interrupts)
10 (return-values)
L1:
11 (make-immediate 1 4) ;; #f
12 (reset-frame 1) ;; 1 slot
13 (handle-interrupts)
14 (return-values)
Disassembly of <unnamed function> at #x275c:
0 (instrument-entry 15427) at ice-9/ftw.scm:364:24
2 (assert-nargs-ee/locals 2 0) ;; 2 slots (1 arg)
3 (static-ref 1 14946) ;; directory at ice-9/ftw.scm:364:39
5 (eq? 0 1)
6 (jne 5) ;; -> L1
7 (make-immediate 1 1028) ;; #t
8 (reset-frame 1) ;; 1 slot
9 (handle-interrupts)
10 (return-values)
L1:
11 (make-immediate 1 4) ;; #f
12 (reset-frame 1) ;; 1 slot
13 (handle-interrupts)
14 (return-values)
Disassembly of <unnamed function> at #x2798:
0 (instrument-entry 15418) at ice-9/ftw.scm:396:24
2 (assert-nargs-ee/locals 1 12) ;; 13 slots (0 args)
3 (scm-ref/immediate 11 12 2)
4 (immediate-tag=? 11 7 0) ;; heap-object? at ice-9/ftw.scm:310:16
6 (jne 65) ;; -> L6
7 (heap-tag=? 11 127 21) ;; string?
9 (jne 62) ;; -> L6
10 (word-ref/immediate 10 11 3)
11 (mov 9 10)
12 (usub/immediate 9 9 1) at ice-9/ftw.scm:310:13
13 (tag-fixnum 8 9)
14 (make-immediate 7 2) ;; 0 at ice-9/ftw.scm:311:13
15 (imm-s64<? 9 0)
16 (jnl 48) ;; -> L5
17 (make-immediate 6 12044) ;; #\/ at ice-9/ftw.scm:311:37
18 (u64<? 9 10) at ice-9/ftw.scm:311:41
19 (jnl 43) ;; -> L4
20 (word-ref/immediate 10 11 2)
21 (uadd 10 10 9)
22 (scm-ref/immediate 11 11 1)
23 (tail-pointer-ref/immediate 9 11 2)
24 (word-ref/immediate 5 11 0)
25 (load-u64 4 0 1024)
28 (ulogand 5 5 4)
29 (s64-imm=? 5 0)
30 (je 4) ;; -> L1
31 (ulsh/immediate 10 10 2)
32 (u32-ref 11 9 10)
33 (j 2) ;; -> L2
L1:
34 (u8-ref 11 9 10)
L2:
35 (tag-char 1 11)
36 (static-ref 3 15072) ;; #f at ice-9/ftw.scm:311:30
38 (mov 2 6) at ice-9/ftw.scm:311:29
39 (handle-interrupts)
40 (call-label 9 3 -824) ;; char=?@guile at #x7fae263f4b58
43 (receive 1 9 13)
45 (immediate-tag=? 11 3839 4) ;; false? at ice-9/ftw.scm:311:8
47 (je 13) ;; -> L3
48 (static-ref 3 14616) ;; #f at ice-9/ftw.scm:312:7
50 (scm-ref/immediate 2 12 2)
51 (mov 1 7) at ice-9/ftw.scm:312:6
52 (mov 0 8)
53 (handle-interrupts)
54 (call-label 9 4 -1681) ;; substring@guile at #x7fae263f3e2c
57 (receive 1 9 13)
59 (j 5) ;; -> L5
L3:
60 (scm-ref/immediate 11 12 2)
61 (j 3) ;; -> L5
L4:
62 (throw/value+data 8 15076) ;; #(out-of-range string-ref "Argument 2 out of range: ~S") at ice-9/ftw.scm:311:41
L5:
64 (scm-ref/immediate 12 12 3)
65 (mov 10 7) at ice-9/ftw.scm:396:35
66 (mov 9 7)
67 (reset-frame 4) ;; 4 slots
68 (handle-interrupts)
69 (tail-call-label 4) ;; go at #x7fae263f58bc
L6:
71 (throw/value+data 11 14611) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:310:16
Disassembly of go at #x28bc:
0 (instrument-entry 15351) at ice-9/ftw.scm:369:17
2 (alloc-frame 18) ;; 18 slots
3 (scm-ref/immediate 10 17 8)
4 (mov 9 16) at ice-9/ftw.scm:370:48
5 (handle-interrupts)
6 (call 7 2)
8 (receive-values 7 #f 2)
10 (reset-frame 18) ;; 18 slots
11 (mov 13 10)
12 (scm-ref/immediate 5 17 7)
13 (mov 4 13) at ice-9/ftw.scm:389:29
14 (mov 3 16)
15 (handle-interrupts)
16 (call 12 3)
18 (receive 5 12 18)
20 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:389:25
22 (jne 175) ;; -> L6
23 (scm-ref/immediate 5 17 2)
24 (mov 4 13) at ice-9/ftw.scm:390:34
25 (handle-interrupts)
26 (call 12 2)
28 (receive 5 12 18)
30 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:390:29
32 (je 165) ;; -> L6
33 (scm-ref/immediate 12 17 6)
34 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:391:29
36 (je 82) ;; -> L3
37 (scm-ref/immediate 5 17 5)
38 (mov 4 9) at ice-9/ftw.scm:381:45
39 (handle-interrupts)
40 (call 12 2)
42 (receive 5 12 18)
44 (immediate-tag=? 12 3839 4) ;; false? at ice-9/ftw.scm:381:40
46 (je 39) ;; -> L2
47 (static-ref 12 15100) ;; #f at ice-9/ftw.scm:382:46
49 (immediate-tag=? 12 7 0) ;; heap-object?
51 (je 9) ;; -> L1
52 (static-ref 12 14101) ;; #f
54 (static-ref 11 15103) ;; for-each
56 (call-scm<-scm-scm 12 12 11 111);; lookup-bound
58 (static-set! 12 15089) ;; #f
L1:
60 (scm-ref/immediate 12 12 1)
61 (allocate-words/immediate 11 5) at ice-9/ftw.scm:383:46
62 (load-u64 10 0 196677)
65 (word-set!/immediate 11 0 10)
66 (load-label 10 135) ;; anonymous procedure at #x7fae263f5be0
68 (word-set!/immediate 11 1 10)
69 (scm-set!/immediate 11 2 17)
70 (scm-set!/immediate 11 3 16)
71 (scm-set!/immediate 11 4 14)
72 (mov 5 16) at ice-9/ftw.scm:388:46
73 (handle-interrupts)
74 (call-label 12 1 -2094) ;; directory-files at #x7fae263f392c
77 (reset-frame 18) ;; 18 slots
78 (mov 3 5)
79 (mov 5 12) at ice-9/ftw.scm:382:45
80 (mov 4 11)
81 (handle-interrupts)
82 (call 12 3)
84 (reset-frame 18) ;; 18 slots
L2:
85 (scm-ref/immediate 5 17 3)
86 (mov 4 16) at ice-9/ftw.scm:373:40
87 (mov 3 15)
88 (handle-interrupts)
89 (call 12 3)
91 (reset-frame 18) ;; 18 slots
92 (scm-ref/immediate 12 17 1)
93 (mov 11 13) at ice-9/ftw.scm:375:51
94 (mov 13 12)
95 (mov 12 16)
96 (mov 10 9)
97 (mov 9 15)
98 (mov 8 14)
99 (handle-interrupts)
100 (call 4 6)
102 (receive 1 4 18)
104 (scm-ref/immediate 12 17 4)
105 (handle-interrupts) at ice-9/ftw.scm:377:42
106 (call 5 1)
108 (reset-frame 18) ;; 18 slots
109 (eq-immediate? 16 1028) ;; #t at ice-9/ftw.scm:378:46
110 (je 87) ;; -> L6
111 (static-ref 17 15148) ;; nftw-early-exit at ice-9/ftw.scm:379:53
113 (make-immediate 15 772) ;; () at ice-9/ftw.scm:379:46
114 (allocate-words/immediate 14 2)
115 (scm-set!/immediate 14 0 16)
116 (scm-set!/immediate 14 1 15)
117 (throw 17 14)
L3:
118 (scm-ref/immediate 5 17 3)
119 (mov 4 16) at ice-9/ftw.scm:373:40
120 (mov 3 15)
121 (handle-interrupts)
122 (call 12 3)
124 (reset-frame 18) ;; 18 slots
125 (scm-ref/immediate 5 17 1)
126 (mov 4 16) at ice-9/ftw.scm:375:51
127 (mov 3 13)
128 (mov 2 9)
129 (mov 1 15)
130 (mov 0 14)
131 (handle-interrupts)
132 (call 12 6)
134 (receive 2 12 18)
136 (scm-ref/immediate 5 17 4)
137 (handle-interrupts) at ice-9/ftw.scm:377:42
138 (call 12 1)
140 (reset-frame 18) ;; 18 slots
141 (eq-immediate? 15 1028) ;; #t at ice-9/ftw.scm:378:46
142 (jne 48) ;; -> L5
143 (scm-ref/immediate 10 17 5)
144 (handle-interrupts) at ice-9/ftw.scm:381:45
145 (call 7 2)
147 (receive 2 7 18)
149 (immediate-tag=? 15 3839 4) ;; false? at ice-9/ftw.scm:381:40
151 (je 46) ;; -> L6
152 (static-ref 15 14995) ;; #f at ice-9/ftw.scm:382:46
154 (immediate-tag=? 15 7 0) ;; heap-object?
156 (je 9) ;; -> L4
157 (static-ref 15 13996) ;; #f
159 (static-ref 13 14998) ;; for-each
161 (call-scm<-scm-scm 15 15 13 111);; lookup-bound
163 (static-set! 15 14984) ;; #f
L4:
165 (scm-ref/immediate 15 15 1)
166 (allocate-words/immediate 13 5) at ice-9/ftw.scm:383:46
167 (load-u64 12 0 196677)
170 (word-set!/immediate 13 0 12)
171 (load-label 12 62) ;; anonymous procedure at #x7fae263f5c60
173 (word-set!/immediate 13 1 12)
174 (scm-set!/immediate 13 2 17)
175 (scm-set!/immediate 13 3 16)
176 (scm-set!/immediate 13 4 14)
177 (mov 9 16) at ice-9/ftw.scm:388:46
178 (handle-interrupts)
179 (call-label 8 1 -2199) ;; directory-files at #x7fae263f392c
182 (reset-frame 18) ;; 18 slots
183 (mov 12 9)
184 (mov 14 15) at ice-9/ftw.scm:382:45
185 (handle-interrupts)
186 (call 3 3)
188 (reset-frame 18) ;; 18 slots
189 (j 8) ;; -> L6
L5:
190 (static-ref 17 15069) ;; nftw-early-exit at ice-9/ftw.scm:379:53
192 (make-immediate 16 772) ;; () at ice-9/ftw.scm:379:46
193 (allocate-words/immediate 14 2)
194 (scm-set!/immediate 14 0 15)
195 (scm-set!/immediate 14 1 16)
196 (throw 17 14)
L6:
197 (make-immediate 17 1028) ;; #t at ice-9/ftw.scm:394:19
198 (reset-frame 1) ;; 1 slot
199 (handle-interrupts)
200 (return-values)
Disassembly of <unnamed function> at #x2be0:
0 (instrument-entry 15156) at ice-9/ftw.scm:383:46
2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg)
3 (make-immediate 2 4) ;; #f
4 (scm-ref/immediate 1 6 3)
5 (mov 0 5) at ice-9/ftw.scm:384:52
6 (handle-interrupts)
7 (call-label 4 3 -2023) ;; pathify at #x7fae263f3c60
10 (receive 1 4 7)
12 (scm-ref/immediate 4 6 3)
13 (immediate-tag=? 4 7 0) ;; heap-object? at ice-9/ftw.scm:385:56
15 (jne 15) ;; -> L1
16 (heap-tag=? 4 127 21) ;; string?
18 (jne 12) ;; -> L1
19 (word-ref/immediate 4 4 3)
20 (uadd/immediate 4 4 1) at ice-9/ftw.scm:385:52
21 (tag-fixnum 4 4)
22 (scm-ref/immediate 3 6 4)
23 (call-scm<-scm-uimm 3 3 1 1) ;; add/immediate at ice-9/ftw.scm:387:52
25 (scm-ref/immediate 6 6 2)
26 (reset-frame 4) ;; 4 slots at ice-9/ftw.scm:384:48
27 (handle-interrupts)
28 (tail-call-label -229) ;; go at #x7fae263f58bc
L1:
30 (throw/value+data 4 14378) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:385:56
Disassembly of <unnamed function> at #x2c60:
0 (instrument-entry 15130) at ice-9/ftw.scm:383:46
2 (assert-nargs-ee/locals 2 5) ;; 7 slots (1 arg)
3 (make-immediate 2 4) ;; #f
4 (scm-ref/immediate 1 6 3)
5 (mov 0 5) at ice-9/ftw.scm:384:52
6 (handle-interrupts)
7 (call-label 4 3 -2055) ;; pathify at #x7fae263f3c60
10 (receive 1 4 7)
12 (scm-ref/immediate 4 6 3)
13 (immediate-tag=? 4 7 0) ;; heap-object? at ice-9/ftw.scm:385:56
15 (jne 15) ;; -> L1
16 (heap-tag=? 4 127 21) ;; string?
18 (jne 12) ;; -> L1
19 (word-ref/immediate 4 4 3)
20 (uadd/immediate 4 4 1) at ice-9/ftw.scm:385:52
21 (tag-fixnum 4 4)
22 (scm-ref/immediate 3 6 4)
23 (call-scm<-scm-uimm 3 3 1 1) ;; add/immediate at ice-9/ftw.scm:387:52
25 (scm-ref/immediate 6 6 2)
26 (reset-frame 4) ;; 4 slots at ice-9/ftw.scm:384:48
27 (handle-interrupts)
28 (tail-call-label -261) ;; go at #x7fae263f58bc
L1:
30 (throw/value+data 4 14346) ;; #(wrong-type-arg "string-length" "Wrong type argument in position 1 (expect…") at ice-9/ftw.scm:385:56
Disassembly of <unnamed function> at #x2ce0:
0 (instrument-entry 15104) at ice-9/ftw.scm:397:24
2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args)
3 (mov 2 0)
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (return-values)
Disassembly of <unnamed function> at #x2cfc:
0 (instrument-entry 15115) at ice-9/ftw.scm:406:0
2 (assert-nargs-ee/locals 2 6) ;; 8 slots (1 arg)
3 (make-non-immediate 7 15104) ;; (any any)
5 (static-ref 5 14016) ;; #f
7 (immediate-tag=? 5 7 0) ;; heap-object?
9 (je 7) ;; -> L1
10 (call-scm<-scmn-scmn 5 13791 14013 113);; lookup-bound-private
14 (static-set! 5 14007) ;; #f
L1:
16 (scm-ref/immediate 2 5 1)
17 (mov 1 6)
18 (mov 0 7)
19 (handle-interrupts)
20 (call 5 3)
22 (receive 0 5 8)
24 (immediate-tag=? 7 3839 4) ;; false?
26 (jne 23) ;; -> L3
27 (make-immediate 7 4) ;; #f
28 (make-non-immediate 5 14003) ;; "source expression failed to match any pattern"
30 (static-ref 4 14009) ;; #f
32 (immediate-tag=? 4 7 0) ;; heap-object?
34 (je 7) ;; -> L2
35 (call-scm<-scmn-scmn 4 13766 14006 113);; lookup-bound-private
39 (static-set! 4 14000) ;; #f
L2:
41 (scm-ref/immediate 4 4 1)
42 (mov 3 4)
43 (mov 4 6)
44 (mov 6 7)
45 (mov 7 3)
46 (reset-frame 4) ;; 4 slots
47 (handle-interrupts)
48 (tail-call)
L3:
49 (builtin-ref 6 0) ;; apply
50 (make-non-immediate 5 15061) ;; #<procedure 7fae26404918 at ice-9/ftw.scm:406:0 (dummy expr)>
52 (mov 4 6)
53 (mov 6 5)
54 (mov 5 7)
55 (mov 7 4)
56 (reset-frame 3) ;; 3 slots
57 (handle-interrupts)
58 (tail-call)
Disassembly of <unnamed function> at #x2de8:
0 (instrument-entry 15472) at ice-9/ftw.scm:406:0
2 (assert-nargs-ee/locals 3 3) ;; 6 slots (2 args)
3 (make-non-immediate 5 15295) ;; #<syntax:ftw.scm:407:3 catch>
5 (make-non-immediate 4 15355) ;; (#<syntax quote> #<syntax:ftw.scm:407:10 system-error>)
7 (make-non-immediate 2 15375) ;; #<syntax:ftw.scm:408:5 lambda>
9 (make-immediate 1 772) ;; ()
10 (allocate-words/immediate 0 2)
11 (scm-set!/immediate 0 0 3)
12 (scm-set!/immediate 0 1 1)
13 (allocate-words/immediate 3 2)
14 (scm-set!/immediate 3 0 1)
15 (scm-set!/immediate 3 1 0)
16 (allocate-words/immediate 1 2)
17 (scm-set!/immediate 1 0 2)
18 (scm-set!/immediate 1 1 3)
19 (make-non-immediate 3 15449) ;; ((#<syntax:ftw.scm:408:5 lambda> #<syntax:ftw.scm:410:12 args> (#<synta…> …)))
21 (allocate-words/immediate 2 2)
22 (scm-set!/immediate 2 0 1)
23 (scm-set!/immediate 2 1 3)
24 (allocate-words/immediate 3 2)
25 (scm-set!/immediate 3 0 4)
26 (scm-set!/immediate 3 1 2)
27 (allocate-words/immediate 4 2)
28 (scm-set!/immediate 4 0 5)
29 (scm-set!/immediate 4 1 3)
30 (mov 5 4)
31 (reset-frame 1) ;; 1 slot
32 (handle-interrupts)
33 (return-values)
Disassembly of file-system-fold at #x2e70:
0 (instrument-entry 15460) at ice-9/ftw.scm:413:0
2 (assert-nargs-ge 9)
3 (assert-nargs-le 10)
4 (bind-optionals 10) ;; 9 argss
5 (alloc-frame 16) ;; 16 slots
6 (immediate-tag=? 6 4095 2308) ;; undefined? at ice-9/ftw.scm:414:44
8 (jne 13) ;; -> L2
9 (static-ref 15 15435) ;; #f
11 (immediate-tag=? 15 7 0) ;; heap-object?
13 (je 7) ;; -> L1
14 (call-scm<-scmn-scmn 15 13694 14586 112);; lookup-bound-public
18 (static-set! 15 15426) ;; #f
L1:
20 (scm-ref/immediate 6 15 1)
L2:
21 (allocate-words/immediate 15 8) at ice-9/ftw.scm:445:2
22 (load-u64 5 0 1805)
25 (word-set!/immediate 15 0 5)
26 (scm-set!/immediate 15 1 14)
27 (scm-set!/immediate 15 2 13)
28 (scm-set!/immediate 15 3 12)
29 (scm-set!/immediate 15 4 11)
30 (scm-set!/immediate 15 5 10)
31 (scm-set!/immediate 15 6 9)
32 (scm-set!/immediate 15 7 6)
33 (make-non-immediate 14 14141) ;; "" at ice-9/ftw.scm:446:23
35 (static-ref 13 15267) ;; system-error at ice-9/ftw.scm:447:23
37 (allocate-words/immediate 12 4)
38 (load-u64 11 0 131141)
41 (word-set!/immediate 12 0 11)
42 (load-label 11 37) ;; anonymous procedure at #x7fae263f5fac
44 (word-set!/immediate 12 1 11)
45 (scm-set!/immediate 12 2 7)
46 (scm-set!/immediate 12 3 6)
47 (static-ref 3 14717) ;; #f at ice-9/ftw.scm:407:3
49 (make-non-immediate 0 15397) ;; #<procedure 7fae26404fc8 at ice-9/ftw.scm:447:23 args>
51 (mov 2 13) at ice-9/ftw.scm:447:23
52 (mov 1 12)
53 (handle-interrupts)
54 (call-label 12 4 -973) ;; catch@guile at #x7fae263f5014
57 (receive 2 12 16)
59 (static-ref 12 15391) ;; #f at ice-9/ftw.scm:449:23
61 (immediate-tag=? 12 7 0) ;; heap-object?
63 (je 7) ;; -> L3
64 (call-scm<-scmn-scmn 12 13444 15388 112);; lookup-bound-public
68 (static-set! 12 15382) ;; #f
L3:
70 (scm-ref/immediate 10 12 1)
71 (mov 12 13) at ice-9/ftw.scm:445:2
72 (mov 13 14)
73 (mov 14 7)
74 (mov 11 8)
75 (reset-frame 6) ;; 6 slots
76 (handle-interrupts)
77 (tail-call-label 37) ;; loop at #x7fae263f6038
Disassembly of <unnamed function> at #x2fac:
0 (instrument-entry 15387) at ice-9/ftw.scm:447:23
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (scm-ref/immediate 1 2 3)
4 (scm-ref/immediate 2 2 2)
5 (mov 0 1) at ice-9/ftw.scm:447:43
6 (mov 1 2)
7 (mov 2 0)
8 (reset-frame 2) ;; 2 slots
9 (handle-interrupts)
10 (tail-call)
Disassembly of <unnamed function> at #x2fd8:
0 (instrument-entry 15384) at ice-9/ftw.scm:447:23
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (static-ref 1 15377) ;; #f at ice-9/ftw.scm:411:7
7 (handle-interrupts) at ice-9/ftw.scm:447:23
8 (tail-call-label 2) ;; system-error-errno@guile at #x7fae263f6000
Disassembly of system-error-errno@guile at #x3000:
0 (instrument-entry 15380) at ice-9/ftw.scm:447:23
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 13603 15281 112);; lookup-bound-public
9 (static-set! 1 15363) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of loop at #x3038:
0 (instrument-entry 15422) at ice-9/ftw.scm:445:2
2 (alloc-frame 25) ;; 25 slots
3 (make-non-immediate 13 14057) ;; "" at ice-9/ftw.scm:452:25
5 (static-ref 15 13971) ;; #f at ice-9/ftw.scm:452:11
7 (mov 14 22) at ice-9/ftw.scm:452:10
8 (handle-interrupts)
9 (call-label 9 3 -2345) ;; string=?@guile at #x7fae263f3bb8
12 (receive 6 9 25)
14 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:452:6
16 (jne 13) ;; -> L1
17 (make-non-immediate 13 14051) ;; "/" at ice-9/ftw.scm:454:30
19 (static-ref 15 14057) ;; #f at ice-9/ftw.scm:454:11
21 (mov 14 22) at ice-9/ftw.scm:454:10
22 (mov 12 23)
23 (handle-interrupts)
24 (call-label 9 4 -2217) ;; string-append@guile at #x7fae263f3df4
27 (receive 1 9 25)
L1:
29 (static-ref 22 15343) ;; #f at ice-9/ftw.scm:457:6
31 (immediate-tag=? 22 7 0) ;; heap-object?
33 (je 7) ;; -> L2
34 (call-scm<-scmn-scmn 22 13560 15340 113);; lookup-bound-private
38 (static-set! 22 15334) ;; #f
L2:
40 (scm-ref/immediate 22 22 1)
41 (mov 15 22)
42 (mov 14 21)
43 (handle-interrupts)
44 (call 9 2)
46 (receive 6 9 25)
48 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:456:4
50 (jne 537) ;; -> L23
51 (static-ref 15 14149) ;; #f at ice-9/ftw.scm:439:24
53 (mov 14 21) at ice-9/ftw.scm:439:23
54 (handle-interrupts)
55 (call-label 9 2 -2050) ;; stat:dev@guile at #x7fae263f410c
58 (receive 6 9 25)
60 (make-immediate 17 2) ;; 0 at ice-9/ftw.scm:440:30
61 (static-ref 13 14143) ;; #f at ice-9/ftw.scm:440:33
63 (mov 12 21) at ice-9/ftw.scm:440:32
64 (handle-interrupts)
65 (call-label 11 2 -2032) ;; stat:ino@guile at #x7fae263f417c
68 (receive 8 11 25)
70 (=? 17 16) at ice-9/ftw.scm:440:27
71 (jne 11) ;; -> L3
72 (static-ref 13 14134) ;; #f at ice-9/ftw.scm:441:28
74 (mov 12 23) at ice-9/ftw.scm:441:27
75 (handle-interrupts)
76 (call-label 11 2 -2029) ;; string-hash@guile at #x7fae263f41b4
79 (receive 8 11 25)
81 (j 10) ;; -> L4
L3:
82 (static-ref 13 14122) ;; #f at ice-9/ftw.scm:442:28
84 (mov 12 21) at ice-9/ftw.scm:442:27
85 (handle-interrupts)
86 (call-label 11 2 -2053) ;; stat:ino@guile at #x7fae263f417c
89 (receive 8 11 25)
L4:
91 (allocate-words/immediate 15 2) at ice-9/ftw.scm:439:17
92 (scm-set!/immediate 15 0 18)
93 (scm-set!/immediate 15 1 16)
94 (static-ref 18 15288) ;; #f at ice-9/ftw.scm:439:5
96 (immediate-tag=? 18 7 0) ;; heap-object?
98 (je 7) ;; -> L5
99 (call-scm<-scmn-scmn 18 13295 15285 112);; lookup-bound-public
103 (static-set! 18 15279) ;; #f
L5:
105 (scm-ref/immediate 13 18 1)
106 (mov 12 15)
107 (mov 11 19)
108 (handle-interrupts)
109 (call 11 3)
111 (receive 6 11 25)
113 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:456:4
115 (jne 467) ;; -> L22
116 (static-ref 13 14320) ;; #f at ice-9/ftw.scm:462:23
118 (mov 12 21) at ice-9/ftw.scm:462:22
119 (handle-interrupts)
120 (call-label 11 2 -1567) ;; stat:type@guile at #x7fae263f499c
123 (receive 6 11 25)
125 (static-ref 16 14257) ;; directory at ice-9/ftw.scm:462:6
127 (eq? 18 16)
128 (jne 448) ;; -> L21
129 (scm-ref/immediate 13 24 1)
130 (mov 12 23) at ice-9/ftw.scm:463:10
131 (mov 11 21)
132 (mov 10 20)
133 (handle-interrupts)
134 (call 11 4)
136 (receive 6 11 25)
138 (immediate-tag=? 18 3839 4) ;; false? at ice-9/ftw.scm:463:6
140 (je 371) ;; -> L18
141 (static-ref 18 15047) ;; system-error at ice-9/ftw.scm:464:25
143 (allocate-words/immediate 16 3)
144 (load-u64 15 0 65605)
147 (word-set!/immediate 16 0 15)
148 (load-label 15 444) ;; anonymous procedure at #x7fae263f6978
150 (word-set!/immediate 16 1 15)
151 (scm-set!/immediate 16 2 23)
152 (static-ref 13 14498) ;; #f at ice-9/ftw.scm:407:3
154 (make-non-immediate 10 15238) ;; #<procedure 7fae264050b8 at ice-9/ftw.scm:464:25 args>
156 (mov 12 18) at ice-9/ftw.scm:464:25
157 (mov 11 16)
158 (handle-interrupts)
159 (call-label 11 4 -1192) ;; catch@guile at #x7fae263f5014
162 (receive 8 11 25)
164 (static-ref 12 14036) ;; #f at ice-9/ftw.scm:432:23
166 (mov 11 21) at ice-9/ftw.scm:432:22
167 (handle-interrupts)
168 (call-label 12 2 -2163) ;; stat:dev@guile at #x7fae263f410c
171 (receive 9 12 25)
173 (static-ref 11 14031) ;; #f at ice-9/ftw.scm:433:32
175 (mov 10 21) at ice-9/ftw.scm:433:31
176 (handle-interrupts)
177 (call-label 13 2 -2144) ;; stat:ino@guile at #x7fae263f417c
180 (receive 10 13 25)
182 (=? 17 14) at ice-9/ftw.scm:433:26
183 (jne 11) ;; -> L6
184 (static-ref 11 14022) ;; #f at ice-9/ftw.scm:434:27
186 (mov 10 23) at ice-9/ftw.scm:434:26
187 (handle-interrupts)
188 (call-label 13 2 -2141) ;; string-hash@guile at #x7fae263f41b4
191 (receive 7 13 25)
193 (j 10) ;; -> L7
L6:
194 (static-ref 11 14010) ;; #f at ice-9/ftw.scm:435:27
196 (mov 10 21) at ice-9/ftw.scm:435:26
197 (handle-interrupts)
198 (call-label 13 2 -2165) ;; stat:ino@guile at #x7fae263f417c
201 (receive 7 13 25)
L7:
203 (allocate-words/immediate 14 2) at ice-9/ftw.scm:432:16
204 (scm-set!/immediate 14 0 15)
205 (scm-set!/immediate 14 1 17)
206 (make-immediate 10 1028) ;; #t at ice-9/ftw.scm:436:16
207 (static-ref 12 15189) ;; #f at ice-9/ftw.scm:432:5
209 (mov 11 14) at ice-9/ftw.scm:432:4
210 (mov 9 19)
211 (handle-interrupts)
212 (call-label 12 4 403) ;; vhash-cons@ice-9/vlist at #x7fae263f69d4
215 (receive 5 12 25)
217 (static-ref 17 15181) ;; #f at ice-9/ftw.scm:467:15
219 (immediate-tag=? 17 7 0) ;; heap-object?
221 (je 7) ;; -> L8
222 (call-scm<-scmn-scmn 17 13372 15178 112);; lookup-bound-public
226 (static-set! 17 15172) ;; #f
L8:
228 (scm-ref/immediate 12 17 1)
229 (mov 11 16)
230 (handle-interrupts)
231 (call 12 2)
233 (receive 7 12 25)
235 (immediate-tag=? 17 3839 4) ;; false? at ice-9/ftw.scm:466:12
237 (je 260) ;; -> L17
238 (static-ref 12 13728) ;; #f at ice-9/ftw.scm:468:35
240 (mov 11 16) at ice-9/ftw.scm:468:34
241 (handle-interrupts)
242 (call-label 12 2 -2592) ;; readdir@guile at #x7fae263f3b80
245 (receive 7 12 25)
247 (scm-ref/immediate 12 24 3)
248 (mov 11 23) at ice-9/ftw.scm:469:34
249 (mov 10 21)
250 (mov 9 20)
251 (handle-interrupts)
252 (call 12 4)
254 (receive 4 12 25)
256 (make-immediate 15 772) ;; () at ice-9/ftw.scm:470:34
257 (make-non-immediate 14 13711) ;; "." at ice-9/ftw.scm:488:43
259 (make-non-immediate 13 13719) ;; ".." at ice-9/ftw.scm:489:43
261 (make-non-immediate 12 13807) ;; "/" at ice-9/ftw.scm:494:62
263 (load-u64 11 0 131141) at ice-9/ftw.scm:495:37
266 (load-label 10 363) ;; anonymous procedure at #x7fae263f6a0c
268 (make-non-immediate 9 15140) ;; #<procedure 7fae264050f8 at ice-9/ftw.scm:495:37 args>
270 (make-immediate 8 4) ;; #f at ice-9/ftw.scm:498:48
271 (eq-immediate? 17 2564) ;; #<eof> at ice-9/ftw.scm:471:23
272 (je 162) ;; -> L13
L9:
273 (instrument-loop 15149)
275 (handle-interrupts)
276 (static-ref 4 13700) ;; #f at ice-9/ftw.scm:488:28
278 (mov 3 17) at ice-9/ftw.scm:488:27
279 (mov 2 14)
280 (handle-interrupts)
281 (call-label 20 3 -2617) ;; string=?@guile at #x7fae263f3bb8
284 (receive 17 20 25)
286 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:471:16
288 (jne 132) ;; -> L12
289 (static-ref 4 13687) ;; #f at ice-9/ftw.scm:489:28
291 (mov 3 17) at ice-9/ftw.scm:489:27
292 (mov 2 13)
293 (handle-interrupts)
294 (call-label 20 3 -2630) ;; string=?@guile at #x7fae263f3bb8
297 (receive 17 20 25)
299 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:471:16
301 (jne 119) ;; -> L12
302 (static-ref 4 13774) ;; #f at ice-9/ftw.scm:494:38
304 (mov 3 23) at ice-9/ftw.scm:494:37
305 (mov 2 12)
306 (mov 1 17)
307 (handle-interrupts)
308 (call-label 20 4 -2501) ;; string-append@guile at #x7fae263f3df4
311 (receive 17 20 25)
313 (allocate-words/immediate 6 4) at ice-9/ftw.scm:495:37
314 (word-set!/immediate 6 0 11)
315 (word-set!/immediate 6 1 10)
316 (scm-ref/immediate 5 24 7)
317 (scm-set!/immediate 6 2 5)
318 (scm-set!/immediate 6 3 7)
319 (static-ref 3 14331) ;; #f at ice-9/ftw.scm:407:3
321 (mov 2 18) at ice-9/ftw.scm:495:37
322 (mov 1 6)
323 (mov 0 9)
324 (handle-interrupts)
325 (call-label 21 4 -1358) ;; catch@guile at #x7fae263f5014
328 (receive 18 21 25)
330 (mov 2 22) at ice-9/ftw.scm:496:29
331 (mov 1 6)
332 (handle-interrupts)
333 (call 22 2)
335 (receive 19 22 25)
337 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:496:25
339 (jne 57) ;; -> L11
340 (static-ref 2 14096) ;; #f at ice-9/ftw.scm:500:39
342 (mov 1 6) at ice-9/ftw.scm:500:38
343 (handle-interrupts)
344 (call-label 22 2 -1791) ;; stat:type@guile at #x7fae263f499c
347 (receive 19 22 25)
349 (static-ref 4 14033) ;; directory at ice-9/ftw.scm:500:33
351 (eq? 5 4)
352 (jne 21) ;; -> L10
353 (static-ref 2 13613) ;; #f at ice-9/ftw.scm:501:40
355 (mov 1 16) at ice-9/ftw.scm:501:39
356 (handle-interrupts)
357 (call-label 22 2 -2707) ;; readdir@guile at #x7fae263f3b80
360 (receive 17 22 25)
362 (allocate-words/immediate 5 2) at ice-9/ftw.scm:503:39
363 (scm-set!/immediate 5 0 17)
364 (scm-set!/immediate 5 1 6)
365 (allocate-words/immediate 17 2)
366 (scm-set!/immediate 17 0 5)
367 (scm-set!/immediate 17 1 15)
368 (eq-immediate? 7 2564) ;; #<eof> at ice-9/ftw.scm:471:23
369 (je 67) ;; -> L14
370 (mov 15 17) at ice-9/ftw.scm:501:33
371 (mov 17 7)
372 (j -99) ;; -> L9
L10:
373 (static-ref 2 13593) ;; #f at ice-9/ftw.scm:504:40
375 (mov 1 16) at ice-9/ftw.scm:504:39
376 (handle-interrupts)
377 (call-label 22 2 -2727) ;; readdir@guile at #x7fae263f3b80
380 (receive 7 22 25)
382 (scm-ref/immediate 4 24 2)
383 (mov 3 7) at ice-9/ftw.scm:505:39
384 (mov 2 6)
385 (mov 1 20)
386 (handle-interrupts)
387 (call 20 4)
389 (receive 4 20 25)
391 (eq-immediate? 17 2564) ;; #<eof> at ice-9/ftw.scm:471:23
392 (jne -119) ;; -> L9
393 (mov 7 17) at ice-9/ftw.scm:504:33
394 (mov 17 15)
395 (j 41) ;; -> L14
L11:
396 (static-ref 2 13570) ;; #f at ice-9/ftw.scm:497:36
398 (mov 1 16) at ice-9/ftw.scm:497:35
399 (handle-interrupts)
400 (call-label 22 2 -2750) ;; readdir@guile at #x7fae263f3b80
403 (receive 7 22 25)
405 (scm-ref/immediate 4 24 6)
406 (mov 3 7) at ice-9/ftw.scm:498:35
407 (mov 2 8)
408 (mov 1 6)
409 (mov 0 20)
410 (handle-interrupts)
411 (call 20 5)
413 (receive 4 20 25)
415 (eq-immediate? 17 2564) ;; #<eof> at ice-9/ftw.scm:471:23
416 (jne -143) ;; -> L9
417 (mov 7 17) at ice-9/ftw.scm:497:29
418 (mov 17 15)
419 (j 17) ;; -> L14
L12:
420 (static-ref 4 13546) ;; #f at ice-9/ftw.scm:490:30
422 (mov 3 16) at ice-9/ftw.scm:490:29
423 (handle-interrupts)
424 (call-label 20 2 -2774) ;; readdir@guile at #x7fae263f3b80
427 (receive 7 20 25)
429 (eq-immediate? 17 2564) ;; #<eof> at ice-9/ftw.scm:471:23
430 (jne -157) ;; -> L9
431 (mov 7 17) at ice-9/ftw.scm:490:23
432 (mov 17 15)
433 (j 3) ;; -> L14
L13:
434 (mov 7 17) at ice-9/ftw.scm:471:23
435 (mov 17 15)
L14:
436 (static-ref 7 13550) ;; #f at ice-9/ftw.scm:473:26
438 (mov 6 16) at ice-9/ftw.scm:473:25
439 (handle-interrupts)
440 (call-label 17 2 -2762) ;; closedir@guile at #x7fae263f3bf0
443 (reset-frame 25) ;; 25 slots
444 (allocate-words/immediate 22 4) at ice-9/ftw.scm:475:38
445 (word-set!/immediate 22 0 11)
446 (load-label 18 204) ;; anonymous procedure at #x7fae263f6a60
448 (word-set!/immediate 22 1 18)
449 (scm-set!/immediate 22 2 24)
450 (scm-set!/immediate 22 3 23)
451 (allocate-words/immediate 18 2) at ice-9/ftw.scm:484:38
452 (scm-set!/immediate 18 0 20)
453 (scm-set!/immediate 18 1 19)
454 (static-ref 20 14958) ;; #f at ice-9/ftw.scm:475:33
456 (immediate-tag=? 20 7 0) ;; heap-object?
458 (je 7) ;; -> L15
459 (call-scm<-scmn-scmn 20 12967 14955 112);; lookup-bound-public
463 (static-set! 20 14949) ;; #f
L15:
465 (scm-ref/immediate 20 20 1)
466 (mov 14 17)
467 (mov 17 20)
468 (mov 16 22)
469 (mov 15 18)
470 (handle-interrupts)
471 (call 7 4)
473 (receive 2 7 25)
475 (immediate-tag=? 22 7 0) ;; heap-object? at ice-9/ftw.scm:486:58
477 (jne 18) ;; -> L16
478 (heap-tag=? 22 1 0) ;; pair?
480 (jne 15) ;; -> L16
481 (scm-ref/immediate 20 22 0)
482 (scm-ref/immediate 18 24 4)
483 (mov 17 23) at ice-9/ftw.scm:486:35
484 (mov 16 21)
485 (mov 15 20)
486 (handle-interrupts)
487 (call 6 4)
489 (receive 0 6 25)
491 (scm-ref/immediate 23 22 1) at ice-9/ftw.scm:487:35
492 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:486:27
493 (handle-interrupts)
494 (return-values)
L16:
495 (throw/value+data 22 14137) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:486:58
L17:
497 (scm-ref/immediate 15 24 6)
498 (mov 14 23) at ice-9/ftw.scm:509:22
499 (mov 13 21)
500 (mov 12 16)
501 (mov 11 20)
502 (handle-interrupts)
503 (call 9 5)
505 (receive 0 9 25)
507 (mov 23 19) at ice-9/ftw.scm:509:14
508 (reset-frame 2) ;; 2 slots
509 (handle-interrupts)
510 (return-values)
L18:
511 (scm-ref/immediate 13 24 5)
512 (mov 12 23) at ice-9/ftw.scm:511:18
513 (mov 11 21)
514 (mov 10 20)
515 (handle-interrupts)
516 (call 11 4)
518 (receive 0 11 25)
520 (static-ref 13 13680) ;; #f at ice-9/ftw.scm:432:23
522 (mov 12 21) at ice-9/ftw.scm:432:22
523 (handle-interrupts)
524 (call-label 11 2 -2519) ;; stat:dev@guile at #x7fae263f410c
527 (receive 2 11 25)
529 (static-ref 13 13675) ;; #f at ice-9/ftw.scm:433:32
531 (mov 12 21) at ice-9/ftw.scm:433:31
532 (handle-interrupts)
533 (call-label 11 2 -2500) ;; stat:ino@guile at #x7fae263f417c
536 (receive 4 11 25)
538 (=? 17 20) at ice-9/ftw.scm:433:26
539 (jne 11) ;; -> L19
540 (static-ref 15 13666) ;; #f at ice-9/ftw.scm:434:27
542 (mov 14 23) at ice-9/ftw.scm:434:26
543 (handle-interrupts)
544 (call-label 9 2 -2497) ;; string-hash@guile at #x7fae263f41b4
547 (receive 1 9 25)
549 (j 10) ;; -> L20
L19:
550 (static-ref 15 13654) ;; #f at ice-9/ftw.scm:435:27
552 (mov 14 21) at ice-9/ftw.scm:435:26
553 (handle-interrupts)
554 (call-label 9 2 -2521) ;; stat:ino@guile at #x7fae263f417c
557 (receive 1 9 25)
L20:
559 (allocate-words/immediate 21 2) at ice-9/ftw.scm:432:16
560 (scm-set!/immediate 21 0 22)
561 (scm-set!/immediate 21 1 23)
562 (make-immediate 18 1028) ;; #t at ice-9/ftw.scm:436:16
563 (static-ref 20 14833) ;; #f at ice-9/ftw.scm:432:5
565 (mov 17 19) at ice-9/ftw.scm:432:4
566 (mov 19 21)
567 (handle-interrupts)
568 (call-label 4 4 47) ;; vhash-cons@ice-9/vlist at #x7fae263f69d4
571 (receive 1 4 25)
573 (reset-frame 2) ;; 2 slots at ice-9/ftw.scm:511:10
574 (handle-interrupts)
575 (return-values)
L21:
576 (scm-ref/immediate 24 24 2)
577 (mov 22 21) at ice-9/ftw.scm:515:6
578 (mov 21 20)
579 (reset-frame 4) ;; 4 slots
580 (handle-interrupts)
581 (tail-call)
L22:
582 (mov 24 20) at ice-9/ftw.scm:461:6
583 (mov 23 19)
584 (reset-frame 2) ;; 2 slots
585 (handle-interrupts)
586 (return-values)
L23:
587 (make-immediate 22 4) ;; #f at ice-9/ftw.scm:459:23
588 (scm-ref/immediate 24 24 6)
589 (reset-frame 5) ;; 5 slots at ice-9/ftw.scm:459:6
590 (handle-interrupts)
591 (tail-call)
Disassembly of <unnamed function> at #x3978:
0 (instrument-entry 14836) at ice-9/ftw.scm:464:25
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 13369) ;; #f at ice-9/ftw.scm:464:46
5 (scm-ref/immediate 2 2 2)
6 (mov 0 1) at ice-9/ftw.scm:464:45
7 (mov 1 2)
8 (mov 2 0)
9 (reset-frame 2) ;; 2 slots
10 (handle-interrupts)
11 (tail-call-label -2967) ;; opendir@guile at #x7fae263f3b48
Disassembly of <unnamed function> at #x39ac:
0 (instrument-entry 14829) at ice-9/ftw.scm:464:25
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (static-ref 1 14748) ;; #f at ice-9/ftw.scm:411:7
7 (handle-interrupts) at ice-9/ftw.scm:464:25
8 (tail-call-label -627) ;; system-error-errno@guile at #x7fae263f6000
Disassembly of vhash-cons@ice-9/vlist at #x39d4:
0 (instrument-entry 14833) at ice-9/ftw.scm:464:25
2 (immediate-tag=? 3 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 3 12774 14820 112);; lookup-bound-public
9 (static-set! 3 14772) ;; #f
L1:
11 (scm-ref/immediate 3 3 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x3a0c:
0 (instrument-entry 14825) at ice-9/ftw.scm:495:37
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (scm-ref/immediate 1 2 2)
4 (scm-ref/immediate 2 2 3)
5 (mov 0 1) at ice-9/ftw.scm:495:57
6 (mov 1 2)
7 (mov 2 0)
8 (reset-frame 2) ;; 2 slots
9 (handle-interrupts)
10 (tail-call)
Disassembly of <unnamed function> at #x3a38:
0 (instrument-entry 14820) at ice-9/ftw.scm:495:37
2 (assert-nargs-ge 1)
3 (bind-rest 1) ;; 2 slots
4 (alloc-frame 2) ;; 2 slots
5 (static-ref 1 14713) ;; #f at ice-9/ftw.scm:411:7
7 (handle-interrupts) at ice-9/ftw.scm:495:37
8 (tail-call-label -662) ;; system-error-errno@guile at #x7fae263f6000
Disassembly of <unnamed function> at #x3a60:
0 (instrument-entry 14826) at ice-9/ftw.scm:475:38
2 (assert-nargs-ee/locals 3 2) ;; 5 slots (2 args)
3 (allocate-words/immediate 1 6) at ice-9/ftw.scm:477:44
4 (load-u64 0 0 262213)
7 (word-set!/immediate 1 0 0)
8 (load-label 0 26) ;; anonymous procedure at #x7fae263f6ae8
10 (word-set!/immediate 1 1 0)
11 (scm-ref/immediate 0 4 2)
12 (scm-set!/immediate 1 2 0)
13 (scm-ref/immediate 4 4 3)
14 (scm-set!/immediate 1 3 4)
15 (scm-set!/immediate 1 4 3)
16 (scm-set!/immediate 1 5 2)
17 (static-ref 4 14799) ;; #f at ice-9/ftw.scm:483:42
19 (immediate-tag=? 4 7 0) ;; heap-object?
21 (je 7) ;; -> L1
22 (call-scm<-scmn-scmn 4 12922 14796 113);; lookup-bound-private
26 (static-set! 4 14790) ;; #f
L1:
28 (scm-ref/immediate 2 4 1)
29 (builtin-ref 4 3) ;; call-with-values at ice-9/ftw.scm:476:40
30 (mov 3 1)
31 (reset-frame 3) ;; 3 slots
32 (handle-interrupts)
33 (tail-call)
Disassembly of <unnamed function> at #x3ae8:
0 (instrument-entry 14798) at ice-9/ftw.scm:477:44
2 (assert-nargs-ee/locals 1 6) ;; 7 slots (0 args)
3 (scm-ref/immediate 5 6 4)
4 (immediate-tag=? 5 7 0) ;; heap-object? at ice-9/ftw.scm:478:52
6 (jne 29) ;; -> L2
7 (heap-tag=? 5 1 0) ;; pair?
9 (jne 26) ;; -> L2
10 (scm-ref/immediate 4 5 0)
11 (scm-ref/immediate 5 5 1) at ice-9/ftw.scm:480:52
12 (scm-ref/immediate 3 6 5)
13 (immediate-tag=? 3 7 0) ;; heap-object? at ice-9/ftw.scm:481:52
15 (jne 18) ;; -> L1
16 (heap-tag=? 3 1 0) ;; pair?
18 (jne 15) ;; -> L1
19 (scm-ref/immediate 2 3 0)
20 (scm-ref/immediate 3 3 1) at ice-9/ftw.scm:482:52
21 (scm-ref/immediate 1 6 2)
22 (scm-ref/immediate 6 6 3)
23 (mov 0 1) at ice-9/ftw.scm:478:46
24 (mov 1 3)
25 (mov 3 5)
26 (mov 5 4)
27 (mov 4 6)
28 (mov 6 0)
29 (reset-frame 6) ;; 6 slots
30 (handle-interrupts)
31 (tail-call-label -715) ;; loop at #x7fae263f6038
L1:
33 (throw/value+data 3 13915) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:481:52
L2:
35 (throw/value+data 5 13913) ;; #(wrong-type-arg "car" "Wrong type argument in position 1 (expecting pair):…") at ice-9/ftw.scm:478:52
Disassembly of file-system-tree at #x3b7c:
0 (instrument-entry 14801) at ice-9/ftw.scm:517:0
2 (assert-nargs-ge 2)
3 (assert-nargs-le 4)
4 (bind-optionals 4) ;; 3 argss
5 (alloc-frame 19) ;; 19 slots
6 (immediate-tag=? 16 4095 2308) ;; undefined? at ice-9/ftw.scm:518:46
8 (jne 3) ;; -> L1
9 (make-non-immediate 16 14758) ;; #<procedure 7fae26405238 at ice-9/ftw.scm:518:46 (n s)>
L1:
11 (immediate-tag=? 15 4095 2308) ;; undefined? at ice-9/ftw.scm:519:44
13 (jne 13) ;; -> L3
14 (static-ref 18 14595) ;; #f
16 (immediate-tag=? 18 7 0) ;; heap-object?
18 (je 7) ;; -> L2
19 (call-scm<-scmn-scmn 18 12854 13746 112);; lookup-bound-public
23 (static-set! 18 14586) ;; #f
L2:
25 (scm-ref/immediate 15 18 1)
L3:
26 (allocate-words/immediate 18 3) at ice-9/ftw.scm:529:2
27 (load-u64 14 0 65605)
30 (word-set!/immediate 18 0 14)
31 (load-label 13 106) ;; enter?* at #x7fae263f6da0
33 (word-set!/immediate 18 1 13)
34 (scm-set!/immediate 18 2 16)
35 (allocate-words/immediate 16 3) at ice-9/ftw.scm:546:2
36 (word-set!/immediate 16 0 14)
37 (load-label 14 107) ;; error at #x7fae263f6dbc
39 (word-set!/immediate 16 1 14)
40 (scm-set!/immediate 16 2 17)
41 (make-non-immediate 14 2888) ;; (()) at ice-9/ftw.scm:551:59
43 (make-immediate 13 4) ;; #f
44 (make-non-immediate 7 14727) ;; #<procedure leaf (name stat result)>
46 (make-non-immediate 6 14729) ;; #<procedure down (name stat result)>
48 (make-non-immediate 5 14731) ;; #<procedure up (name stat result)>
50 (make-non-immediate 4 14721) ;; #<procedure leaf (name stat result)>
52 (mov 9 13) at ice-9/ftw.scm:551:2
53 (mov 8 18)
54 (mov 3 16)
55 (mov 2 14)
56 (mov 1 17)
57 (mov 0 15)
58 (handle-interrupts)
59 (call-label 9 10 -894) ;; file-system-fold at #x7fae263f5e70
62 (receive 0 9 19)
64 (immediate-tag=? 18 7 0) ;; heap-object?
66 (jne 47) ;; -> L6
67 (heap-tag=? 18 1 0) ;; pair?
69 (jne 44) ;; -> L6
70 (scm-ref/immediate 17 18 1)
71 (immediate-tag=? 17 3583 260) ;; null?
73 (jne 40) ;; -> L6
74 (scm-ref/immediate 17 18 0)
75 (immediate-tag=? 17 7 0) ;; heap-object?
77 (jne 12) ;; -> L4
78 (heap-tag=? 17 1 0) ;; pair?
80 (jne 9) ;; -> L4
81 (scm-ref/immediate 16 17 1)
82 (immediate-tag=? 16 3583 260) ;; null?
84 (jne 5) ;; -> L4
85 (scm-ref/immediate 18 17 0)
86 (reset-frame 1) ;; 1 slot
87 (handle-interrupts)
88 (return-values)
L4:
89 (immediate-tag=? 17 3583 260) ;; null?
91 (jne 5) ;; -> L5
92 (mov 18 13) at ice-9/ftw.scm:554:14
93 (reset-frame 1) ;; 1 slot
94 (handle-interrupts)
95 (return-values)
L5:
96 (static-ref 17 14695) ;; match-error at ice-9/ftw.scm:551:2
98 (make-non-immediate 16 12539) ;; "match" at ice-9/match.upstream.scm:301:27
100 (make-non-immediate 15 14693) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
102 (make-immediate 14 772) ;; () at ice-9/ftw.scm:551:2
103 (allocate-words/immediate 13 2)
104 (scm-set!/immediate 13 0 18)
105 (scm-set!/immediate 13 1 14)
106 (allocate-words/immediate 18 2)
107 (scm-set!/immediate 18 0 15)
108 (scm-set!/immediate 18 1 13)
109 (allocate-words/immediate 15 2)
110 (scm-set!/immediate 15 0 16)
111 (scm-set!/immediate 15 1 18)
112 (throw 17 15)
L6:
113 (static-ref 17 14678) ;; match-error
115 (make-non-immediate 16 12522) ;; "match" at ice-9/match.upstream.scm:301:27
117 (make-non-immediate 15 14676) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
119 (make-immediate 14 772) ;; () at ice-9/ftw.scm:551:2
120 (allocate-words/immediate 13 2)
121 (scm-set!/immediate 13 0 18)
122 (scm-set!/immediate 13 1 14)
123 (allocate-words/immediate 18 2)
124 (scm-set!/immediate 18 0 15)
125 (scm-set!/immediate 18 1 13)
126 (allocate-words/immediate 15 2)
127 (scm-set!/immediate 15 0 16)
128 (scm-set!/immediate 15 1 18)
129 (throw 17 15)
Disassembly of <unnamed function> at #x3d84:
0 (instrument-entry 14677) at ice-9/ftw.scm:518:46
2 (assert-nargs-ee/locals 3 0) ;; 3 slots (2 args)
3 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:518:60
4 (reset-frame 1) ;; 1 slot
5 (handle-interrupts)
6 (return-values)
Disassembly of enter?* at #x3da0:
0 (instrument-entry 14676) at ice-9/ftw.scm:529:2
2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args)
3 (scm-ref/immediate 3 3 2)
4 (reset-frame 3) ;; 3 slots at ice-9/ftw.scm:530:4
5 (handle-interrupts)
6 (tail-call)
Disassembly of error at #x3dbc:
0 (instrument-entry 14675) at ice-9/ftw.scm:546:2
2 (assert-nargs-ee/locals 5 6) ;; 11 slots (4 args)
3 (static-ref 7 13108) ;; #f at ice-9/ftw.scm:547:9
5 (scm-ref/immediate 0 10 2)
6 (mov 2 7) at ice-9/ftw.scm:547:8
7 (mov 1 9)
8 (handle-interrupts)
9 (call-label 8 3 -3210) ;; string=?@guile at #x7fae263f3bb8
12 (receive 0 8 11)
14 (immediate-tag=? 10 3839 4) ;; false? at ice-9/ftw.scm:547:4
16 (jne 7) ;; -> L1
17 (make-immediate 10 4) ;; #f
18 (mov 7 6) at ice-9/ftw.scm:549:8
19 (reset-frame 4) ;; 4 slots
20 (handle-interrupts)
21 (tail-call-label 6) ;; leaf at #x7fae263f6e28
L1:
23 (mov 10 6)
24 (reset-frame 1) ;; 1 slot
25 (handle-interrupts)
26 (return-values)
Disassembly of leaf at #x3e28:
0 (instrument-entry 14666) at ice-9/ftw.scm:531:2
2 (alloc-frame 11) ;; 11 slots
3 (immediate-tag=? 7 7 0) ;; heap-object? at ice-9/ftw.scm:532:4
5 (jne 97) ;; -> L4
6 (heap-tag=? 7 1 0) ;; pair?
8 (jne 94) ;; -> L4
9 (scm-ref/immediate 10 7 0)
10 (scm-ref/immediate 6 7 1)
11 (static-ref 5 14643) ;; #f
13 (immediate-tag=? 5 7 0) ;; heap-object?
15 (je 7) ;; -> L1
16 (call-scm<-scmn-scmn 5 12686 14640 113);; lookup-bound-private
20 (static-set! 5 14634) ;; #f
L1:
22 (scm-ref/immediate 5 5 1)
23 (mov 1 5)
24 (mov 0 10)
25 (handle-interrupts)
26 (call 9 2)
28 (receive 6 9 11)
30 (immediate-tag=? 4 3839 4) ;; false?
32 (je 53) ;; -> L3
33 (mov 2 5)
34 (mov 1 6)
35 (handle-interrupts)
36 (call 8 2)
38 (receive 5 8 11)
40 (immediate-tag=? 5 3839 4) ;; false?
42 (je 26) ;; -> L2
43 (static-ref 2 14621) ;; #f at ice-9/ftw.scm:534:26
45 (mov 1 9) at ice-9/ftw.scm:534:25
46 (handle-interrupts)
47 (call-label 8 2 72) ;; basename@guile at #x7fae263f7004
50 (receive 1 8 11)
52 (make-immediate 7 772) ;; () at ice-9/ftw.scm:534:13
53 (allocate-words/immediate 5 2)
54 (scm-set!/immediate 5 0 8)
55 (scm-set!/immediate 5 1 7)
56 (allocate-words/immediate 8 2)
57 (scm-set!/immediate 8 0 9)
58 (scm-set!/immediate 8 1 5)
59 (allocate-words/immediate 9 2)
60 (scm-set!/immediate 9 0 8)
61 (scm-set!/immediate 9 1 10)
62 (allocate-words/immediate 10 2) at ice-9/ftw.scm:534:7
63 (scm-set!/immediate 10 0 9)
64 (scm-set!/immediate 10 1 6)
65 (reset-frame 1) ;; 1 slot
66 (handle-interrupts)
67 (return-values)
L2:
68 (static-ref 10 14552) ;; match-error at ice-9/ftw.scm:532:4
70 (make-non-immediate 9 12396) ;; "match" at ice-9/match.upstream.scm:301:27
72 (make-non-immediate 8 14550) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
74 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4
75 (allocate-words/immediate 5 2)
76 (scm-set!/immediate 5 0 7)
77 (scm-set!/immediate 5 1 6)
78 (allocate-words/immediate 7 2)
79 (scm-set!/immediate 7 0 8)
80 (scm-set!/immediate 7 1 5)
81 (allocate-words/immediate 8 2)
82 (scm-set!/immediate 8 0 9)
83 (scm-set!/immediate 8 1 7)
84 (throw 10 8)
L3:
85 (static-ref 10 14535) ;; match-error
87 (make-non-immediate 9 12379) ;; "match" at ice-9/match.upstream.scm:301:27
89 (make-non-immediate 8 14533) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
91 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4
92 (allocate-words/immediate 5 2)
93 (scm-set!/immediate 5 0 7)
94 (scm-set!/immediate 5 1 6)
95 (allocate-words/immediate 7 2)
96 (scm-set!/immediate 7 0 8)
97 (scm-set!/immediate 7 1 5)
98 (allocate-words/immediate 8 2)
99 (scm-set!/immediate 8 0 9)
100 (scm-set!/immediate 8 1 7)
101 (throw 10 8)
L4:
102 (static-ref 10 14518) ;; match-error
104 (make-non-immediate 9 12362) ;; "match" at ice-9/match.upstream.scm:301:27
106 (make-non-immediate 8 14516) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
108 (make-immediate 6 772) ;; () at ice-9/ftw.scm:532:4
109 (allocate-words/immediate 5 2)
110 (scm-set!/immediate 5 0 7)
111 (scm-set!/immediate 5 1 6)
112 (allocate-words/immediate 7 2)
113 (scm-set!/immediate 7 0 8)
114 (scm-set!/immediate 7 1 5)
115 (allocate-words/immediate 8 2)
116 (scm-set!/immediate 8 0 9)
117 (scm-set!/immediate 8 1 7)
118 (throw 10 8)
Disassembly of basename@guile at #x4004:
0 (instrument-entry 14561) at ice-9/ftw.scm:532:4
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 12578 14548 112);; lookup-bound-public
9 (static-set! 1 14536) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of leaf at #x403c:
0 (instrument-entry 14553) at ice-9/ftw.scm:531:2
2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args)
3 (handle-interrupts)
4 (tail-call-label -137) ;; leaf at #x7fae263f6e28
Disassembly of down at #x4054:
0 (instrument-entry 14553) at ice-9/ftw.scm:536:2
2 (assert-nargs-ee/locals 4 0) ;; 4 slots (3 args)
3 (make-immediate 3 772) ;; () at ice-9/ftw.scm:537:10
4 (allocate-words/immediate 2 2) at ice-9/ftw.scm:537:4
5 (scm-set!/immediate 2 0 3)
6 (scm-set!/immediate 2 1 0)
7 (mov 3 2)
8 (reset-frame 1) ;; 1 slot
9 (handle-interrupts)
10 (return-values)
Disassembly of up at #x4080:
0 (instrument-entry 14548) at ice-9/ftw.scm:538:2
2 (assert-nargs-ee/locals 4 8) ;; 12 slots (3 args)
3 (immediate-tag=? 8 7 0) ;; heap-object? at ice-9/ftw.scm:539:4
5 (jne 148) ;; -> L6
6 (heap-tag=? 8 1 0) ;; pair?
8 (jne 145) ;; -> L6
9 (scm-ref/immediate 11 8 0)
10 (scm-ref/immediate 7 8 1)
11 (static-ref 6 14493) ;; #f
13 (immediate-tag=? 6 7 0) ;; heap-object?
15 (je 7) ;; -> L1
16 (call-scm<-scmn-scmn 6 12536 14490 113);; lookup-bound-private
20 (static-set! 6 14484) ;; #f
L1:
22 (scm-ref/immediate 6 6 1)
23 (mov 2 6)
24 (mov 1 11)
25 (handle-interrupts)
26 (call 9 2)
28 (receive 6 9 12)
30 (immediate-tag=? 5 3839 4) ;; false?
32 (je 104) ;; -> L5
33 (immediate-tag=? 7 7 0) ;; heap-object?
35 (jne 84) ;; -> L4
36 (heap-tag=? 7 1 0) ;; pair?
38 (jne 81) ;; -> L4
39 (scm-ref/immediate 5 7 0)
40 (scm-ref/immediate 7 7 1)
41 (mov 1 6)
42 (mov 0 5)
43 (handle-interrupts)
44 (call 10 2)
46 (receive 7 10 12)
48 (immediate-tag=? 4 3839 4) ;; false?
50 (je 52) ;; -> L3
51 (mov 1 6)
52 (mov 0 7)
53 (handle-interrupts)
54 (call 10 2)
56 (receive 5 10 12)
58 (immediate-tag=? 6 3839 4) ;; false?
60 (je 25) ;; -> L2
61 (static-ref 1 14453) ;; #f at ice-9/ftw.scm:541:26
63 (mov 0 10) at ice-9/ftw.scm:541:25
64 (handle-interrupts)
65 (call-label 10 2 -96) ;; basename@guile at #x7fae263f7004
68 (receive 1 10 12)
70 (allocate-words/immediate 8 2) at ice-9/ftw.scm:541:41
71 (scm-set!/immediate 8 0 9)
72 (scm-set!/immediate 8 1 11)
73 (allocate-words/immediate 11 2) at ice-9/ftw.scm:541:13
74 (scm-set!/immediate 11 0 10)
75 (scm-set!/immediate 11 1 8)
76 (allocate-words/immediate 10 2)
77 (scm-set!/immediate 10 0 11)
78 (scm-set!/immediate 10 1 5)
79 (allocate-words/immediate 11 2) at ice-9/ftw.scm:541:7
80 (scm-set!/immediate 11 0 10)
81 (scm-set!/immediate 11 1 7)
82 (reset-frame 1) ;; 1 slot
83 (handle-interrupts)
84 (return-values)
L2:
85 (static-ref 11 14385) ;; match-error at ice-9/ftw.scm:539:4
87 (make-non-immediate 10 12229) ;; "match" at ice-9/match.upstream.scm:301:27
89 (make-non-immediate 9 14383) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
91 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4
92 (allocate-words/immediate 6 2)
93 (scm-set!/immediate 6 0 8)
94 (scm-set!/immediate 6 1 7)
95 (allocate-words/immediate 8 2)
96 (scm-set!/immediate 8 0 9)
97 (scm-set!/immediate 8 1 6)
98 (allocate-words/immediate 9 2)
99 (scm-set!/immediate 9 0 10)
100 (scm-set!/immediate 9 1 8)
101 (throw 11 9)
L3:
102 (static-ref 11 14368) ;; match-error
104 (make-non-immediate 10 12212) ;; "match" at ice-9/match.upstream.scm:301:27
106 (make-non-immediate 9 14366) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
108 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4
109 (allocate-words/immediate 6 2)
110 (scm-set!/immediate 6 0 8)
111 (scm-set!/immediate 6 1 7)
112 (allocate-words/immediate 8 2)
113 (scm-set!/immediate 8 0 9)
114 (scm-set!/immediate 8 1 6)
115 (allocate-words/immediate 9 2)
116 (scm-set!/immediate 9 0 10)
117 (scm-set!/immediate 9 1 8)
118 (throw 11 9)
L4:
119 (static-ref 11 14351) ;; match-error
121 (make-non-immediate 10 12195) ;; "match" at ice-9/match.upstream.scm:301:27
123 (make-non-immediate 9 14349) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
125 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4
126 (allocate-words/immediate 6 2)
127 (scm-set!/immediate 6 0 8)
128 (scm-set!/immediate 6 1 7)
129 (allocate-words/immediate 8 2)
130 (scm-set!/immediate 8 0 9)
131 (scm-set!/immediate 8 1 6)
132 (allocate-words/immediate 9 2)
133 (scm-set!/immediate 9 0 10)
134 (scm-set!/immediate 9 1 8)
135 (throw 11 9)
L5:
136 (static-ref 11 14334) ;; match-error
138 (make-non-immediate 10 12178) ;; "match" at ice-9/match.upstream.scm:301:27
140 (make-non-immediate 9 14332) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
142 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4
143 (allocate-words/immediate 6 2)
144 (scm-set!/immediate 6 0 8)
145 (scm-set!/immediate 6 1 7)
146 (allocate-words/immediate 8 2)
147 (scm-set!/immediate 8 0 9)
148 (scm-set!/immediate 8 1 6)
149 (allocate-words/immediate 9 2)
150 (scm-set!/immediate 9 0 10)
151 (scm-set!/immediate 9 1 8)
152 (throw 11 9)
L6:
153 (static-ref 11 14317) ;; match-error
155 (make-non-immediate 10 12161) ;; "match" at ice-9/match.upstream.scm:301:27
157 (make-non-immediate 9 14315) ;; "no matching pattern" at ice-9/match.upstream.scm:301:35
159 (make-immediate 7 772) ;; () at ice-9/ftw.scm:539:4
160 (allocate-words/immediate 6 2)
161 (scm-set!/immediate 6 0 8)
162 (scm-set!/immediate 6 1 7)
163 (allocate-words/immediate 8 2)
164 (scm-set!/immediate 8 0 9)
165 (scm-set!/immediate 8 1 6)
166 (allocate-words/immediate 9 2)
167 (scm-set!/immediate 9 0 10)
168 (scm-set!/immediate 9 1 8)
169 (throw 11 9)
Disassembly of scandir at #x4328:
0 (instrument-entry 14398) at ice-9/ftw.scm:556:0
2 (assert-nargs-ge 2)
3 (assert-nargs-le 4)
4 (bind-optionals 4) ;; 3 argss
5 (alloc-frame 11) ;; 11 slots
6 (immediate-tag=? 8 4095 2308) ;; undefined? at ice-9/ftw.scm:556:43
8 (jne 11) ;; -> L1
9 (make-immediate 2 1028) ;; #t at ice-9/ftw.scm:556:50
10 (static-ref 3 14374) ;; #f at ice-9/ftw.scm:556:44
12 (handle-interrupts) at ice-9/ftw.scm:556:43
13 (call-label 7 2 77) ;; const@guile at #x7fae263f7490
16 (receive 0 7 11)
18 (j 2) ;; -> L2
L1:
19 (mov 10 8)
L2:
20 (immediate-tag=? 7 4095 2308) ;; undefined? at ice-9/ftw.scm:557:43
22 (jne 13) ;; -> L4
23 (static-ref 8 14363) ;; #f
25 (immediate-tag=? 8 7 0) ;; heap-object?
27 (je 7) ;; -> L3
28 (call-scm<-scmn-scmn 8 12304 12308 112);; lookup-bound-public
32 (static-set! 8 14354) ;; #f
L3:
34 (scm-ref/immediate 7 8 1)
L4:
35 (static-ref 8 13941) ;; system-error at ice-9/ftw.scm:569:11
37 (allocate-words/immediate 6 3) at ice-9/ftw.scm:570:6
38 (load-u64 5 0 65605)
41 (word-set!/immediate 6 0 5)
42 (load-label 5 62) ;; anonymous procedure at #x7fae263f74c8
44 (word-set!/immediate 6 1 5)
45 (scm-set!/immediate 6 2 9)
46 (make-immediate 1 4) ;; #f at ice-9/ftw.scm:572:13
47 (static-ref 2 14337) ;; #f at ice-9/ftw.scm:572:7
49 (handle-interrupts) at ice-9/ftw.scm:572:6
50 (call-label 8 2 40) ;; const@guile at #x7fae263f7490
53 (receive 10 8 11)
55 (static-ref 3 13383) ;; #f at ice-9/ftw.scm:569:5
57 (mov 2 8) at ice-9/ftw.scm:569:4
58 (mov 1 6)
59 (handle-interrupts)
60 (call-label 7 4 -2305) ;; catch@guile at #x7fae263f5014
63 (receive 1 7 11)
65 (allocate-words/immediate 8 4) at ice-9/ftw.scm:575:9
66 (load-u64 6 0 131141)
69 (word-set!/immediate 8 0 6)
70 (load-label 6 47) ;; anonymous procedure at #x7fae263f74fc
72 (word-set!/immediate 8 1 6)
73 (scm-set!/immediate 8 2 10)
74 (scm-set!/immediate 8 3 7)
75 (static-ref 10 14313) ;; #f at ice-9/ftw.scm:574:3
77 (immediate-tag=? 10 7 0) ;; heap-object?
79 (je 7) ;; -> L5
80 (call-scm<-scmn-scmn 10 12302 14310 112);; lookup-bound-public
84 (static-set! 10 14304) ;; #f
L5:
86 (scm-ref/immediate 10 10 1)
87 (reset-frame 3) ;; 3 slots
88 (handle-interrupts)
89 (tail-call)
Disassembly of const@guile at #x4490:
0 (instrument-entry 14322) at ice-9/ftw.scm:574:3
2 (immediate-tag=? 1 7 0) ;; heap-object?
4 (je 7) ;; -> L1
5 (call-scm<-scmn-scmn 1 12287 14309 112);; lookup-bound-public
9 (static-set! 1 14285) ;; #f
L1:
11 (scm-ref/immediate 1 1 1)
12 (handle-interrupts)
13 (tail-call)
Disassembly of <unnamed function> at #x44c8:
0 (instrument-entry 14314) at ice-9/ftw.scm:570:6
2 (assert-nargs-ee/locals 1 2) ;; 3 slots (0 args)
3 (static-ref 1 12645) ;; #f at ice-9/ftw.scm:571:9
5 (scm-ref/immediate 2 2 2)
6 (mov 0 1) at ice-9/ftw.scm:571:8
7 (mov 1 2)
8 (mov 2 0)
9 (reset-frame 2) ;; 2 slots
10 (handle-interrupts)
11 (tail-call-label -3691) ;; opendir@guile at #x7fae263f3b48
Disassembly of <unnamed function> at #x44fc:
0 (instrument-entry 14317) at ice-9/ftw.scm:575:9
2 (assert-nargs-ee/locals 2 9) ;; 11 slots (1 arg)
3 (static-ref 5 12634) ;; #f at ice-9/ftw.scm:576:31
5 (mov 4 9) at ice-9/ftw.scm:576:30
6 (handle-interrupts)
7 (call-label 5 2 -3686) ;; readdir@guile at #x7fae263f3b80
10 (receive 2 5 11)
12 (make-immediate 7 772) ;; () at ice-9/ftw.scm:577:31
13 (eq-immediate? 8 2564) ;; #<eof> at ice-9/ftw.scm:578:17
14 (je 61) ;; -> L7
15 (static-ref 3 12622) ;; #f at ice-9/ftw.scm:582:24
17 (mov 2 9) at ice-9/ftw.scm:582:23
18 (handle-interrupts)
19 (call-label 7 2 -3698) ;; readdir@guile at #x7fae263f3b80
22 (receive 4 7 11)
24 (scm-ref/immediate 2 10 2)
25 (mov 1 8) at ice-9/ftw.scm:583:27
26 (handle-interrupts)
27 (call 8 2)
29 (receive 5 8 11)
31 (immediate-tag=? 5 3839 4) ;; false? at ice-9/ftw.scm:583:23
33 (je 5) ;; -> L1
34 (allocate-words/immediate 5 2) at ice-9/ftw.scm:584:27
35 (scm-set!/immediate 5 0 8)
36 (scm-set!/immediate 5 1 7)
37 (j 2) ;; -> L2
L1:
38 (mov 5 7)
L2:
39 (eq-immediate? 6 2564) ;; #<eof> at ice-9/ftw.scm:578:17
40 (je 33) ;; -> L6
L3:
41 (instrument-loop 14276)
43 (handle-interrupts)
44 (static-ref 1 12593) ;; #f at ice-9/ftw.scm:582:24
46 (mov 0 9) at ice-9/ftw.scm:582:23
47 (handle-interrupts)
48 (call-label 9 2 -3727) ;; readdir@guile at #x7fae263f3b80
51 (receive 2 9 11)
53 (scm-ref/immediate 1 10 2)
54 (mov 0 6) at ice-9/ftw.scm:583:27
55 (handle-interrupts)
56 (call 9 2)
58 (receive 3 9 11)
60 (immediate-tag=? 7 3839 4) ;; false? at ice-9/ftw.scm:583:23
62 (je 5) ;; -> L4
63 (allocate-words/immediate 7 2) at ice-9/ftw.scm:584:27
64 (scm-set!/immediate 7 0 6)
65 (scm-set!/immediate 7 1 5)
66 (j 2) ;; -> L5
L4:
67 (mov 7 5)
L5:
68 (eq-immediate? 8 2564) ;; #<eof> at ice-9/ftw.scm:578:17
69 (je 6) ;; -> L7
70 (mov 6 8) at ice-9/ftw.scm:582:17
71 (mov 5 7)
72 (j -31) ;; -> L3
L6:
73 (mov 8 6) at ice-9/ftw.scm:578:17
74 (mov 7 5)
L7:
75 (static-ref 3 12582) ;; #f at ice-9/ftw.scm:580:20
77 (mov 2 9) at ice-9/ftw.scm:580:19
78 (handle-interrupts)
79 (call-label 7 2 -3730) ;; closedir@guile at #x7fae263f3bf0
82 (reset-frame 11) ;; 11 slots
83 (static-ref 9 14224) ;; #f at ice-9/ftw.scm:581:20
85 (immediate-tag=? 9 7 0) ;; heap-object?
87 (je 7) ;; -> L8
88 (call-scm<-scmn-scmn 9 12177 14221 112);; lookup-bound-public
92 (static-set! 9 14215) ;; #f
L8:
94 (scm-ref/immediate 9 9 1)
95 (scm-ref/immediate 8 10 3)
96 (mov 10 9)
97 (mov 9 7)
98 (reset-frame 3) ;; 3 slots
99 (handle-interrupts)
100 (tail-call)
Disassembly of <unnamed function> at #x4690:
0 (instrument-entry 14276) at ice-9/ftw.scm:581:20
2 (assert-nargs-ee/locals 1 1) ;; 2 slots (0 args)
3 (static-patch! 11867 1315)
6 (make-non-immediate 1 11862) ;; "ice-9"
8 (call-scm<-scm 1 1 14) ;; string->symbol
10 (static-set! 1 11866) ;; ice-9
12 (static-set! 1 12102) ;; ice-9
14 (static-set! 1 11950) ;; ice-9
16 (static-set! 1 11926) ;; ice-9
18 (static-set! 1 11874) ;; ice-9
20 (static-patch! 11860 1304)
23 (make-non-immediate 1 11855) ;; "ftw"
25 (call-scm<-scm 1 1 14) ;; string->symbol
27 (static-set! 1 11859) ;; ftw
29 (static-set! 1 12055) ;; ftw
31 (static-set! 1 11857) ;; ftw
33 (static-patch! 11861 11855)
36 (static-patch! 11862 1294)
39 (make-non-immediate 1 11857) ;; "filename"
41 (call-scm<-scm 1 1 14) ;; string->symbol
43 (static-set! 1 11861) ;; filename
45 (static-ref 1 11859) ;; filename
47 (call-scm<-scm 1 1 15) ;; symbol->keyword
49 (static-set! 1 11857) ;; #:filename
51 (static-patch! 11859 1287)
54 (static-patch! 11864 1292)
57 (make-non-immediate 1 11859) ;; "imports"
59 (call-scm<-scm 1 1 14) ;; string->symbol
61 (static-set! 1 11863) ;; imports
63 (static-ref 1 11861) ;; imports
65 (call-scm<-scm 1 1 15) ;; symbol->keyword
67 (static-set! 1 11859) ;; #:imports
69 (static-patch! 11861 1283)
72 (make-non-immediate 1 11856) ;; "match"
74 (call-scm<-scm 1 1 14) ;; string->symbol
76 (static-set! 1 11860) ;; match
78 (static-set! 1 11860) ;; match
80 (static-patch! 11864 11858)
83 (static-patch! 11863 11859)
86 (static-patch! 11926 11860)
89 (static-patch! 11863 1269)
92 (make-non-immediate 1 11858) ;; "vlist"
94 (call-scm<-scm 1 1 14) ;; string->symbol
96 (static-set! 1 11862) ;; vlist
98 (static-set! 1 11862) ;; vlist
100 (static-patch! 11866 11860)
103 (static-patch! 11865 11861)
106 (static-patch! 11902 11862)
109 (static-patch! 11865 1255)
112 (make-non-immediate 1 11860) ;; "srfi"
114 (call-scm<-scm 1 1 14) ;; string->symbol
116 (static-set! 1 11864) ;; srfi
118 (static-set! 1 11878) ;; srfi
120 (static-patch! 11864 1250)
123 (make-non-immediate 1 11859) ;; "srfi-1"
125 (call-scm<-scm 1 1 14) ;; string->symbol
127 (static-set! 1 11863) ;; srfi-1
129 (static-set! 1 11863) ;; srfi-1
131 (static-patch! 11867 11861)
134 (static-patch! 11866 11862)
137 (static-patch! 11867 11863)
140 (static-patch! 11870 11864)
143 (static-patch! 11871 11865)
146 (static-patch! 11872 1230)
149 (make-non-immediate 1 11867) ;; "exports"
151 (call-scm<-scm 1 1 14) ;; string->symbol
153 (static-set! 1 11871) ;; exports
155 (static-ref 1 11869) ;; exports
157 (call-scm<-scm 1 1 15) ;; symbol->keyword
159 (static-set! 1 11867) ;; #:exports
161 (static-patch! 11869 1221)
164 (make-non-immediate 1 11864) ;; "nftw"
166 (call-scm<-scm 1 1 14) ;; string->symbol
168 (static-set! 1 11868) ;; nftw
170 (static-set! 1 11910) ;; nftw
172 (static-patch! 11868 1216)
175 (make-non-immediate 1 11863) ;; "file-system-fold"
177 (call-scm<-scm 1 1 14) ;; string->symbol
179 (static-set! 1 11867) ;; file-system-fold
181 (static-set! 1 11895) ;; file-system-fold
183 (static-patch! 11867 1215)
186 (make-non-immediate 1 11862) ;; "file-system-tree"
188 (call-scm<-scm 1 1 14) ;; string->symbol
190 (static-set! 1 11866) ;; file-system-tree
192 (static-set! 1 11880) ;; file-system-tree
194 (static-patch! 11866 1214)
197 (make-non-immediate 1 11861) ;; "scandir"
199 (call-scm<-scm 1 1 14) ;; string->symbol
201 (static-set! 1 11865) ;; scandir
203 (static-set! 1 11865) ;; scandir
205 (static-patch! 11869 11863)
208 (static-patch! 11870 11864)
211 (static-patch! 11871 11865)
214 (static-patch! 11872 11866)
217 (static-patch! 11873 1197)
220 (make-non-immediate 1 11868) ;; "autoloads"
222 (call-scm<-scm 1 1 14) ;; string->symbol
224 (static-set! 1 11872) ;; autoloads
226 (static-ref 1 11870) ;; autoloads
228 (call-scm<-scm 1 1 15) ;; symbol->keyword
230 (static-set! 1 11868) ;; #:autoloads
232 (static-patch! 11870 1190)
235 (make-non-immediate 1 11865) ;; "i18n"
237 (call-scm<-scm 1 1 14) ;; string->symbol
239 (static-set! 1 11869) ;; i18n
241 (static-set! 1 11869) ;; i18n
243 (static-patch! 11873 11867)
246 (static-patch! 11890 11868)
249 (static-patch! 11871 1179)
252 (make-non-immediate 1 11866) ;; "string-locale<?"
254 (call-scm<-scm 1 1 14) ;; string->symbol
256 (static-set! 1 11870) ;; string-locale<?
258 (static-set! 1 11870) ;; string-locale<?
260 (static-patch! 11872 11868)
263 (static-patch! 11875 11869)
266 (static-patch! 11876 1170)
269 (make-non-immediate 1 11871) ;; "declarative?"
271 (call-scm<-scm 1 1 14) ;; string->symbol
273 (static-set! 1 11875) ;; declarative?
275 (static-ref 1 11873) ;; declarative?
277 (call-scm<-scm 1 1 15) ;; symbol->keyword
279 (static-set! 1 11871) ;; #:declarative?
281 (static-patch! 11875 1163)
284 (make-non-immediate 1 11870) ;; "guile"
286 (call-scm<-scm 1 1 14) ;; string->symbol
288 (static-set! 1 11874) ;; guile
290 (static-set! 1 11874) ;; guile
292 (static-patch! 11878 1158)
295 (static-patch! 11885 1163)
298 (static-patch! 11890 1170)
301 (make-non-immediate 1 11885) ;; "getuid-or-false"
303 (call-scm<-scm 1 1 14) ;; string->symbol
305 (static-set! 1 11889) ;; getuid-or-false
307 (static-patch! 11891 1169)
310 (make-non-immediate 1 11886) ;; "macro"
312 (call-scm<-scm 1 1 14) ;; string->symbol
314 (static-set! 1 11890) ;; macro
316 (static-patch! 11894 1166)
319 (static-patch! 11899 -4562)
322 (static-patch! 11900 1170)
325 (make-non-immediate 1 11895) ;; "getgid-or-false"
327 (call-scm<-scm 1 1 14) ;; string->symbol
329 (static-set! 1 11899) ;; getgid-or-false
331 (static-patch! 11901 -4400)
334 (static-patch! 11902 1166)
337 (make-non-immediate 1 11897) ;; "directory-files"
339 (call-scm<-scm 1 1 14) ;; string->symbol
341 (static-set! 1 11901) ;; directory-files
343 (static-patch! 11905 -4280)
346 (static-patch! 11906 1162)
349 (make-non-immediate 1 11901) ;; "pathify"
351 (call-scm<-scm 1 1 14) ;; string->symbol
353 (static-set! 1 11905) ;; pathify
355 (static-patch! 11907 -4093)
358 (static-patch! 11908 1156)
361 (make-non-immediate 1 11903) ;; "visited?-proc"
363 (call-scm<-scm 1 1 14) ;; string->symbol
365 (static-set! 1 11907) ;; visited?-proc
367 (static-patch! 11909 -3962)
370 (static-patch! 11910 1152)
373 (make-non-immediate 1 11905) ;; "stat-dir-readable?-proc"
375 (call-scm<-scm 1 1 14) ;; string->symbol
377 (static-set! 1 11909) ;; stat-dir-readable?-proc
379 (static-patch! 11911 -3734)
382 (static-patch! 11912 1150)
385 (make-non-immediate 1 11907) ;; "stat&flag-proc"
387 (call-scm<-scm 1 1 14) ;; string->symbol
389 (static-set! 1 11911) ;; stat&flag-proc
391 (static-patch! 11913 -3548)
394 (static-patch! 11914 1146)
397 (make-non-immediate 1 11909) ;; "clean"
399 (call-scm<-scm 1 1 14) ;; string->symbol
401 (static-set! 1 11913) ;; clean
403 (static-patch! 11915 -3235)
406 (static-patch! 11916 -3158)
409 (static-patch! 11917 -2858)
412 (static-patch! 11918 1134)
415 (make-non-immediate 1 11913) ;; "errno-if-exception"
417 (call-scm<-scm 1 1 14) ;; string->symbol
419 (static-set! 1 11917) ;; errno-if-exception
421 (static-set! 1 13241) ;; errno-if-exception
423 (static-set! 1 13215) ;; errno-if-exception
425 (static-patch! 11915 -2062)
428 (static-patch! 11916 -1972)
431 (static-patch! 11917 -1140)
434 (static-patch! 11918 -652)
437 (static-patch! 11925 1119)
440 (make-non-immediate 1 11920) ;; "_"
442 (call-scm<-scm 1 1 14) ;; string->symbol
444 (static-set! 1 11924) ;; _
446 (static-set! 1 11934) ;; _
448 (static-patch! 11924 1114)
451 (make-non-immediate 1 11919) ;; "any"
453 (call-scm<-scm 1 1 14) ;; string->symbol
455 (static-set! 1 11923) ;; any
457 (static-set! 1 13009) ;; any
459 (static-set! 1 13011) ;; any
461 (static-set! 1 11921) ;; any
463 (static-patch! 11925 1105)
466 (static-patch! 11930 1110)
469 (static-patch! 11937 1123)
472 (static-patch! 11950 -4604)
475 (static-patch! 11959 1127)
478 (static-patch! 11970 1132)
481 (make-non-immediate 1 11965) ;; "getuid"
483 (call-scm<-scm 1 1 14) ;; string->symbol
485 (static-set! 1 11969) ;; getuid
487 (static-patch! 11981 1129)
490 (static-patch! 11992 1134)
493 (static-patch! 12009 -4465)
496 (static-patch! 12016 1136)
499 (make-non-immediate 1 12011) ;; "getgid"
501 (call-scm<-scm 1 1 14) ;; string->symbol
503 (static-set! 1 12015) ;; getgid
505 (static-patch! 12035 1133)
508 (static-patch! 12042 1136)
511 (static-patch! 12055 1139)
514 (static-patch! 12066 1142)
517 (static-patch! 12077 1145)
520 (static-patch! 12088 1150)
523 (static-patch! 12099 -4247)
526 (static-patch! 12106 1152)
529 (static-patch! 12111 1155)
532 (static-patch! 12118 1158)
535 (make-non-immediate 1 12113) ;; "wrong-type-arg"
537 (call-scm<-scm 1 1 14) ;; string->symbol
539 (static-set! 1 12117) ;; wrong-type-arg
541 (static-set! 1 12663) ;; wrong-type-arg
543 (static-set! 1 12159) ;; wrong-type-arg
545 (static-set! 1 12131) ;; wrong-type-arg
547 (static-patch! 12113 1151)
550 (static-patch! 12128 12108)
553 (static-patch! 12115 1151)
556 (make-non-immediate 1 12110) ;; "Wrong type argument in position 1 (expecting pair): ~S"
558 (static-set! 1 12650) ;; "Wrong type argument in position 1 (expecting pair): ~S"
560 (static-set! 1 12120) ;; "Wrong type argument in position 1 (expecting pair): ~S"
562 (static-patch! 12124 1160)
565 (static-patch! 12139 12119)
568 (static-patch! 12126 1162)
571 (static-patch! 12135 12121)
574 (static-patch! 12142 1176)
577 (static-patch! 12153 1181)
580 (static-patch! 12178 1186)
583 (static-patch! 12205 1191)
586 (static-patch! 12216 1196)
589 (static-patch! 12227 1201)
592 (static-patch! 12238 1206)
595 (static-patch! 12249 1211)
598 (static-patch! 12274 1216)
601 (static-patch! 12281 1221)
604 (static-patch! 12288 1226)
607 (static-patch! 12295 1229)
610 (static-patch! 12306 1234)
613 (make-non-immediate 1 12301) ;; "depth"
615 (call-scm<-scm 1 1 14) ;; string->symbol
617 (static-set! 1 12305) ;; depth
619 (static-patch! 12309 1231)
622 (static-patch! 12314 1234)
625 (make-non-immediate 1 12309) ;; "directory-processed"
627 (call-scm<-scm 1 1 14) ;; string->symbol
629 (static-set! 1 12313) ;; directory-processed
631 (static-patch! 12315 1235)
634 (make-non-immediate 1 12310) ;; "directory"
636 (call-scm<-scm 1 1 14) ;; string->symbol
638 (static-set! 1 12314) ;; directory
640 (static-patch! 12316 1234)
643 (make-non-immediate 1 12311) ;; "nftw-style"
645 (call-scm<-scm 1 1 14) ;; string->symbol
647 (static-set! 1 12315) ;; nftw-style
649 (static-patch! 12317 1233)
652 (make-non-immediate 1 12312) ;; "stale-symlink"
654 (call-scm<-scm 1 1 14) ;; string->symbol
656 (static-set! 1 12316) ;; stale-symlink
658 (static-patch! 12318 1232)
661 (make-non-immediate 1 12313) ;; "symlink"
663 (call-scm<-scm 1 1 14) ;; string->symbol
665 (static-set! 1 12317) ;; symlink
667 (static-patch! 12319 1229)
670 (make-non-immediate 1 12314) ;; "physical"
672 (call-scm<-scm 1 1 14) ;; string->symbol
674 (static-set! 1 12318) ;; physical
676 (static-patch! 12328 -3576)
679 (static-patch! 12331 -3520)
682 (static-patch! 12332 1222)
685 (make-non-immediate 1 12327) ;; "directory-not-readable"
687 (call-scm<-scm 1 1 14) ;; string->symbol
689 (static-set! 1 12331) ;; directory-not-readable
691 (static-patch! 12333 1223)
694 (make-non-immediate 1 12328) ;; "regular"
696 (call-scm<-scm 1 1 14) ;; string->symbol
698 (static-set! 1 12332) ;; regular
700 (static-patch! 12334 1220)
703 (make-non-immediate 1 12329) ;; "invalid-stat"
705 (call-scm<-scm 1 1 14) ;; string->symbol
707 (static-set! 1 12333) ;; invalid-stat
709 (static-patch! 12349 1219)
712 (static-patch! 12366 1222)
715 (static-patch! 12377 1225)
718 (static-patch! 12390 1230)
721 (static-patch! 12409 1233)
724 (make-non-immediate 1 12404) ;; "out-of-range"
726 (call-scm<-scm 1 1 14) ;; string->symbol
728 (static-set! 1 12408) ;; out-of-range
730 (static-set! 1 12428) ;; out-of-range
732 (static-patch! 12408 1230)
735 (make-non-immediate 1 12403) ;; "string-ref"
737 (call-scm<-scm 1 1 14) ;; string->symbol
739 (static-set! 1 12407) ;; string-ref
741 (static-set! 1 12419) ;; string-ref
743 (static-patch! 12407 1227)
746 (static-patch! 12416 12402)
749 (static-patch! 12423 1233)
752 (static-patch! 12434 1236)
755 (make-non-immediate 1 12429) ;; "hash-size"
757 (call-scm<-scm 1 1 14) ;; string->symbol
759 (static-set! 1 12433) ;; hash-size
761 (static-patch! 12435 1235)
764 (static-patch! 12442 12430)
767 (static-patch! 12445 1235)
770 (make-non-immediate 1 12440) ;; "ftw-early-exit"
772 (call-scm<-scm 1 1 14) ;; string->symbol
774 (static-set! 1 12444) ;; ftw-early-exit
776 (static-patch! 12448 -3246)
779 (static-patch! 12463 1231)
782 (make-non-immediate 1 12458) ;; "for-each"
784 (call-scm<-scm 1 1 14) ;; string->symbol
786 (static-set! 1 12462) ;; for-each
788 (static-patch! 12490 1230)
791 (static-patch! 12495 -2945)
794 (static-patch! 12496 1230)
797 (make-non-immediate 1 12491) ;; "mount"
799 (call-scm<-scm 1 1 14) ;; string->symbol
801 (static-set! 1 12495) ;; mount
803 (static-patch! 12497 -2925)
806 (static-patch! 12498 1224)
809 (make-non-immediate 1 12493) ;; "chdir"
811 (call-scm<-scm 1 1 14) ;; string->symbol
813 (static-set! 1 12497) ;; chdir
815 (static-patch! 12501 1221)
818 (static-patch! 12506 -2889)
821 (static-patch! 12507 -2859)
824 (static-patch! 12508 -2842)
827 (static-patch! 12509 -2839)
830 (static-patch! 12510 -2827)
833 (static-patch! 12511 1213)
836 (make-non-immediate 1 12506) ;; "nftw-early-exit"
838 (call-scm<-scm 1 1 14) ;; string->symbol
840 (static-set! 1 12510) ;; nftw-early-exit
842 (static-patch! 12512 -2486)
845 (static-patch! 12627 12621)
848 (static-patch! 12628 -2426)
851 (make-non-immediate 1 12225) ;; "catch"
853 (call-scm<-scm 1 1 14) ;; string->symbol
855 (static-set! 1 12629) ;; catch
857 (static-set! 1 12865) ;; catch
859 (static-patch! 12629 1195)
862 (make-non-immediate 1 12624) ;; "top"
864 (call-scm<-scm 1 1 14) ;; string->symbol
866 (static-set! 1 12628) ;; top
868 (static-set! 1 12628) ;; top
870 (make-non-immediate 1 12626) ;; (top)
872 (static-set! 1 12770) ;; (top)
874 (static-set! 1 12680) ;; (top)
876 (static-set! 1 12672) ;; (top)
878 (static-set! 1 12830) ;; (top)
880 (static-patch! 12622 1180)
883 (make-non-immediate 1 12617) ;; "ribcage"
885 (call-scm<-scm 1 1 14) ;; string->symbol
887 (static-set! 1 12621) ;; ribcage
889 (static-set! 1 12791) ;; ribcage
891 (static-set! 1 12739) ;; ribcage
893 (static-set! 1 12697) ;; ribcage
895 (static-set! 1 12685) ;; ribcage
897 (static-patch! 12615 1169)
900 (make-non-immediate 1 12610) ;; "dummy"
902 (call-scm<-scm 1 1 14) ;; string->symbol
904 (static-set! 1 12614) ;; dummy
906 (static-set! 1 12626) ;; dummy
908 (static-patch! 12614 1164)
911 (make-non-immediate 1 12609) ;; "expr"
913 (call-scm<-scm 1 1 14) ;; string->symbol
915 (static-set! 1 12613) ;; expr
917 (static-set! 1 13339) ;; expr
919 (static-set! 1 12615) ;; expr
921 (static-patch! 12661 12609)
924 (static-patch! 12614 1154)
927 (make-non-immediate 1 12609) ;; "m-1b8ca79d6eff4af2-12b"
929 (call-scm<-scm 1 1 14) ;; string->symbol
931 (static-set! 1 12613) ;; m-1b8ca79d6eff4af2-12b
933 (static-set! 1 12613) ;; m-1b8ca79d6eff4af2-12b
935 (make-non-immediate 1 12611) ;; (m-1b8ca79d6eff4af2-12b top)
937 (static-set! 1 12677) ;; (m-1b8ca79d6eff4af2-12b top)
939 (static-set! 1 12613) ;; (m-1b8ca79d6eff4af2-12b top)
941 (static-patch! 12643 12609)
944 (static-patch! 12614 1144)
947 (static-patch! 12627 12609)
950 (static-patch! 12616 1148)
953 (static-patch! 12623 12611)
956 (static-patch! 12630 12616)
959 (static-patch! 12745 12619)
962 (static-patch! 12738 12626)
965 (static-patch! 12635 1143)
968 (make-non-immediate 1 12630) ;; "x"
970 (call-scm<-scm 1 1 14) ;; string->symbol
972 (static-set! 1 12634) ;; x
974 (static-set! 1 12636) ;; x
976 (static-patch! 12656 12632)
979 (static-patch! 12655 12633)
982 (static-patch! 12636 1132)
985 (static-patch! 12641 12631)
988 (static-patch! 12648 12636)
991 (static-patch! 12705 12637)
994 (static-patch! 12688 12644)
997 (make-non-immediate 1 12645) ;; ((top))
999 (static-set! 1 12665) ;; ((top))
1001 (static-set! 1 12683) ;; ((top))
1003 (static-patch! 12645 1121)
1006 (make-non-immediate 1 12640) ;; "hygiene"
1008 (call-scm<-scm 1 1 14) ;; string->symbol
1010 (static-set! 1 12644) ;; hygiene
1012 (static-set! 1 12644) ;; hygiene
1014 (static-patch! 12644 10878)
1017 (make-non-immediate 1 12639) ;; (hygiene ice-9 ftw)
1019 (static-set! 1 12847) ;; (hygiene ice-9 ftw)
1021 (static-set! 1 12817) ;; (hygiene ice-9 ftw)
1023 (static-set! 1 12787) ;; (hygiene ice-9 ftw)
1025 (static-set! 1 12749) ;; (hygiene ice-9 ftw)
1027 (static-set! 1 12719) ;; (hygiene ice-9 ftw)
1029 (static-set! 1 12697) ;; (hygiene ice-9 ftw)
1031 (static-set! 1 12635) ;; (hygiene ice-9 ftw)
1033 (static-set! 1 12637) ;; (hygiene ice-9 ftw)
1035 (static-patch! 12637 12625)
1038 (static-patch! 12636 12632)
1041 (static-patch! 12645 12633)
1044 (make-non-immediate 1 12634) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #<syntax e…>)))
1046 (static-set! 1 12642) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #<syntax e…>)))
1048 (static-set! 1 12644) ;; #(ribcage (errno-if-exception) ((top)) (((hygiene ice-9 ftw) . #<syntax e…>)))
1050 (static-patch! 12644 12638)
1053 (static-patch! 12645 12639)
1056 (static-patch! 12646 12640)
1059 (static-patch! 12647 12641)
1062 (static-patch! 12648 12642)
1065 (make-non-immediate 1 12643) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1067 (static-set! 1 12797) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1069 (static-set! 1 12767) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1071 (static-set! 1 12737) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1073 (static-set! 1 12699) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1075 (static-set! 1 12669) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1077 (static-set! 1 12647) ;; ((top) #(ribcage #(dummy expr) #((m-1b8ca79d6eff4af2-12b top) (top)) #(…)) # …)
1079 (make-non-immediate 1 10829) ;; "ice-9/ftw.scm"
1081 (static-set! 1 12773) ;; "ice-9/ftw.scm"
1083 (static-set! 1 12743) ;; "ice-9/ftw.scm"
1085 (static-set! 1 12713) ;; "ice-9/ftw.scm"
1087 (static-set! 1 12675) ;; "ice-9/ftw.scm"
1089 (static-set! 1 12625) ;; "ice-9/ftw.scm"
1091 (static-patch! 12637 12621)
1094 (static-patch! 12638 1036)
1097 (make-non-immediate 1 12633) ;; "quote"
1099 (call-scm<-scm 1 1 14) ;; string->symbol
1101 (static-set! 1 12637) ;; quote
1103 (static-set! 1 12639) ;; quote
1105 (static-patch! 12677 12635)
1108 (static-patch! 12644 1028)
1111 (make-non-immediate 1 12639) ;; "system-error"
1113 (call-scm<-scm 1 1 14) ;; string->symbol
1115 (static-set! 1 12643) ;; system-error
1117 (static-set! 1 12653) ;; system-error
1119 (static-patch! 12657 12641)
1122 (static-patch! 12656 12646)
1125 (static-patch! 12659 12653)
1128 (static-patch! 12660 1016)
1131 (make-non-immediate 1 12655) ;; "lambda"
1133 (call-scm<-scm 1 1 14) ;; string->symbol
1135 (static-set! 1 12659) ;; lambda
1137 (static-set! 1 12669) ;; lambda
1139 (static-patch! 12673 12657)
1142 (static-patch! 12744 12662)
1145 (static-patch! 12671 1005)
1148 (make-non-immediate 1 12666) ;; "args"
1150 (call-scm<-scm 1 1 14) ;; string->symbol
1152 (static-set! 1 12670) ;; args
1154 (static-set! 1 12680) ;; args
1156 (static-patch! 12684 12668)
1159 (make-non-immediate 1 12673) ;; #<syntax:ftw.scm:410:12 args>
1161 (static-set! 1 12709) ;; #<syntax:ftw.scm:410:12 args>
1163 (static-set! 1 12719) ;; #<syntax:ftw.scm:410:12 args>
1165 (static-patch! 12679 991)
1168 (make-non-immediate 1 12674) ;; "system-error-errno"
1170 (call-scm<-scm 1 1 14) ;; string->symbol
1172 (static-set! 1 12678) ;; system-error-errno
1174 (static-set! 1 12688) ;; system-error-errno
1176 (static-patch! 12692 12676)
1179 (static-patch! 12695 12681)
1182 (static-patch! 12694 12688)
1185 (static-patch! 12693 12689)
1188 (static-patch! 12696 12690)
1191 (static-patch! 12697 12691)
1194 (static-patch! 12696 12692)
1197 (static-patch! 12707 -2651)
1200 (static-patch! 12710 966)
1203 (static-patch! 12743 971)
1206 (static-patch! 12750 976)
1209 (static-patch! 12755 -2034)
1212 (static-patch! 12760 978)
1215 (static-patch! 12765 -2005)
1218 (static-patch! 12768 982)
1221 (static-patch! 12791 985)
1224 (static-patch! 12816 990)
1227 (static-patch! 12833 -1806)
1230 (static-patch! 12834 -1635)
1233 (static-patch! 12835 -1632)
1236 (static-patch! 12836 -1624)
1239 (static-patch! 12837 985)
1242 (make-non-immediate 1 12832) ;; "match-error"
1244 (call-scm<-scm 1 1 14) ;; string->symbol
1246 (static-set! 1 12836) ;; match-error
1248 (static-patch! 12838 984)
1251 (static-patch! 12869 991)
1254 (static-patch! 12882 994)
1257 (static-patch! 12917 999)
1260 (static-patch! 12928 1002)
1263 (static-patch! 12947 1005)
1266 (static-patch! 12958 1008)
1269 (make-non-immediate 1 12953) ;; "macro-type"
1271 (call-scm<-scm 1 1 14) ;; string->symbol
1273 (static-set! 1 12957) ;; macro-type
1275 (static-set! 1 12967) ;; macro-type
1277 (static-patch! 12957 1005)
1280 (make-non-immediate 1 12952) ;; "syntax-rules"
1282 (call-scm<-scm 1 1 14) ;; string->symbol
1284 (static-set! 1 12956) ;; syntax-rules
1286 (static-set! 1 12958) ;; syntax-rules
1288 (static-patch! 12984 12954)
1291 (static-patch! 12957 999)
1294 (make-non-immediate 1 12952) ;; "patterns"
1296 (call-scm<-scm 1 1 14) ;; string->symbol
1298 (static-set! 1 12956) ;; patterns
1300 (static-set! 1 12964) ;; patterns
1302 (static-patch! 12958 12954)
1305 (static-patch! 12961 12955)
1308 (static-patch! 12960 12956)
1311 (static-patch! 12963 12957)
1314 (reset-frame 1) ;; 1 slot
1315 (make-immediate 0 2052) ;; #<unspecified>
1316 (return-values)
--
There are only two hard things in Computer Science:
cache invalidation, naming things and off-by-one errors.
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]
prev parent reply other threads:[~2023-10-13 10:38 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-05-10 0:25 bug#55344: ftw thinks readable directories are unreadable if "other" don't have read permission SeerLite via Bug reports for GUILE, GNU's Ubiquitous Extension Language
2022-05-17 16:03 ` angry rectangle
2023-03-13 3:38 ` Saad Rhoulam
2023-10-13 10:38 ` wolf [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/guile/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=ZSkeKEerf0omEff7@ws \
--to=wolf@wolfsden.cz \
--cc=55344@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).