Package: guile;
Reported by: SeerLite <seerlite <at> nixnet.email>
Date: Tue, 10 May 2022 00:26:01 UTC
Severity: normal
Done: Ludovic Courtès <ludo <at> gnu.org>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 55344 in the body.
You can then email your comments to 55344 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
bug-guile <at> gnu.org:bug#55344; Package guile.
(Tue, 10 May 2022 00:26:01 GMT) Full text and rfc822 format available.SeerLite <seerlite <at> nixnet.email>:bug-guile <at> gnu.org.
(Tue, 10 May 2022 00:26:01 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: SeerLite <seerlite <at> nixnet.email> To: bug-guile <at> gnu.org Subject: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Mon, 9 May 2022 20:25:17 -0400
ftw incorrectly thinks that if other users don't have the read permission then the owner can't read it either. This also affects ntfw. Guile version: 3.0.8 Machine type: x86_64-pc-linux-gnu guile <at> 3.0.8 from Guix To reproduce: Create 2 directories, one with rwxrwxrwx permissions and another with rwxrwx---. Then pass them to ftw and notice it won't recurse because it thinks they're directory-not-readable. scheme@(guile-user)> (passwd:uid (getpw (getlogin))) $1 = 1001 scheme@(guile-user)> (stat:uid (stat "readable-dir")) $2 = 1001 scheme@(guile-user)> (stat:uid (stat "also-readable-dir")) $3 = 1001 scheme@(guile-user)> (format #f "~o" (stat:perms (stat "readable-dir"))) $4 = "777" scheme@(guile-user)> (format #f "~o" (stat:perms (stat "also-readable-dir"))) $5 = "770" scheme@(guile-user)> (stat "readable-dir") $6 = #(24 61374845 16895 1 1001 998 0 0 1652140343 1652140343 1652141421 4096 0 directory 511 216530924 216530924 1652141421) scheme@(guile-user)> (stat "also-readable-dir") $7 = #(24 61374847 16888 1 1001 998 0 0 1652140345 1652140345 1652141426 4096 0 directory 504 20542871 20542871 1652141426) scheme@(guile-user)> (ftw "readable-dir" (lambda (filename statinfo flag) (display flag) (newline) #t)) directory $8 = #t scheme@(guile-user)> (ftw "also-readable-dir" (lambda (filename statinfo flag) (display flag) (newline) #t))directory-not-readable $9 = #t
bug-guile <at> gnu.org:bug#55344; Package guile.
(Tue, 17 May 2022 16:08:02 GMT) Full text and rfc822 format available.Message #8 received at submit <at> debbugs.gnu.org (full text, mbox):
From: angry rectangle <angryrectangle <at> cock.li> To: bug-guile <at> gnu.org Subject: bug#55344: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Tue, 17 May 2022 12:03:34 -0400
(hmm... resending this because it didnt work. hopefully i'm doing it right this time.) It looks like guile's compiler and optimizer could be replacing the `getuid' and `setuid' calls with constant, compile-time values. Here is a test I performed: 1. Make directory with 770 owned by root and the `guixbuild' group. When guile is compiled with guix, I think the process is done under one of the guixbuilder<XX> users who have the `guixbuild' group. 2. Run guile under my regular user. 3. Try to `ftw' that directory. ftw detects it as a readable directory and then ends up throwing a "permission denied" error because it's not actually readable. If I compile guile manually under my regular user and try ftw on a different user, I observe the results that support my conclusion. System info: Guile 3.0.8.13-cc455 guix on amd64
bug-guile <at> gnu.org:bug#55344; Package guile.
(Mon, 13 Mar 2023 07:33:02 GMT) Full text and rfc822 format available.Message #11 received at 55344 <at> debbugs.gnu.org (full text, mbox):
From: Saad Rhoulam <saad <at> rhoulam.com> To: 55344 <at> debbugs.gnu.org Subject: ftw thinks readable directories are unreadable if "other" don't have read permission Date: Sun, 12 Mar 2023 23:38:07 -0400
I am also experiencing this issue on Guile 3.0.9, guix on Ubuntu 22.04, amd64 architecture. It won't descend into a directory unless it has o+rx permissions set.
bug-guile <at> gnu.org:bug#55344; Package guile.
(Fri, 13 Oct 2023 10:40:01 GMT) Full text and rfc822 format available.Message #14 received at 55344 <at> debbugs.gnu.org (full text, mbox):
From: wolf <wolf <at> wolfsden.cz> To: 55344 <at> debbugs.gnu.org Subject: getuid and getgid are indeed replaced with compile-time constants Date: Fri, 13 Oct 2023 12:38:32 +0200
[Message part 1 (text/plain, inline)]
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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> guile at #x7fae263f4908
Disassembly of lstat <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> guile at #x7fae263f55fc
Disassembly of chdir <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> guile at #x7fae263f6000
Disassembly of system-error-errno <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> guile at #x7fae263f6000
Disassembly of vhash-cons <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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 <at> 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.
[signature.asc (application/pgp-signature, inline)]
Ludovic Courtès <ludo <at> gnu.org>
to control <at> debbugs.gnu.org.
(Mon, 29 Jan 2024 13:32:01 GMT) Full text and rfc822 format available.Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org.
(Tue, 27 Feb 2024 12:24:07 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.