This commit is contained in:
danyabeerzun 2019-04-24 17:34:53 +03:00
parent 23697829b9
commit 49d86298a1
7 changed files with 73 additions and 1041 deletions

Binary file not shown.

View file

@ -1,394 +0,0 @@
Bsexp: allocate 16!
alloc: current: f7fe9000 16;new current: f7fe9040
Bsexp: allocate 16!
alloc: current: f7fe9040 16;new current: f7fe9080
Bsexp: allocate 16!
alloc: current: f7fe9080 16;new current: f7fe90c0
Bsexp: allocate 16!
alloc: current: f7fe90c0 16;new current: f7fe9100
Bsexp: allocate 16!
alloc: current: f7fe9100 16;new current: f7fe9140
Bsexp: allocate 16!
alloc: current: f7fe9140 16;new current: f7fe9180
Bsexp: allocate 16!
alloc: current: f7fe9180 16;new current: f7fe91c0
Bsexp: allocate 16!
alloc: call gc: 16
HEAP SNAPSHOT
===================
f_begin = 0xf7fe9000, f_end = 0xf7fe9200,
data at 0xf7fe9000(=>0xf7fe9008): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fe9040
data at 0xf7fe9040(=>0xf7fe9048): SEXP
tag(cons) 3 0xf7fe9008
len = 4, new cur = 0xf7fe9080
data at 0xf7fe9080(=>0xf7fe9088): SEXP
tag(cons) 2 0xf7fe9048
len = 4, new cur = 0xf7fe90c0
data at 0xf7fe90c0(=>0xf7fe90c8): SEXP
tag(cons) 1 0xf7fe9088
len = 4, new cur = 0xf7fe9100
data at 0xf7fe9100(=>0xf7fe9108): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fe9140
data at 0xf7fe9140(=>0xf7fe9148): SEXP
tag(cons) 3 0
len = 4, new cur = 0xf7fe9180
data at 0xf7fe9180(=>0xf7fe9188): SEXP
tag(cons) 2 0xf7fe9148
len = 4, new cur = 0xf7fe91c0
gc: current: f7fbc000; to_space.b = f7fbc000; to_space.e = f7fbc200; f_space.b = f7fe9000; f_space.e = f7fe9200
gc: data is scanned
gc_test_and_copy_root: root ff98e3a0 f7fe9108
gc_copy: f7fe9108 cur = f7fbc000 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9108 (f7fe9100) -> f7fbc008 (f7fbc000); new-current = f7fbc040
gc_test_and_copy_root: root ff98e3a4 f7fe90c8
gc_copy: f7fe90c8 cur = f7fbc040 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9088 cur = f7fbc080 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9048 cur = f7fbc0c0 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9008 cur = f7fbc100 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9008 (f7fe9000) -> f7fbc108 (f7fbc100); new-current = f7fbc140
copy_elements: fix f7fe9048: f7fbc108
gc_copy: f7fe9048 (f7fe9040) -> f7fbc0c8 (f7fbc0c0); new-current = f7fbc140
copy_elements: fix f7fe9088: f7fbc0c8
gc_copy: f7fe9088 (f7fe9080) -> f7fbc088 (f7fbc080); new-current = f7fbc140
copy_elements: fix f7fe90c8: f7fbc088
gc_copy: f7fe90c8 (f7fe90c0) -> f7fbc048 (f7fbc040); new-current = f7fbc140
gc: end: (allocate!) return f7fbc140; from_space.current f7fbc180; from_space.end
gc END
HEAP SNAPSHOT
===================
f_begin = 0xf7fbc000, f_end = 0xf7fbc200,
data at 0xf7fbc000(=>0xf7fbc008): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fbc040
data at 0xf7fbc040(=>0xf7fbc048): SEXP
tag(cons) 1 0xf7fbc088
len = 4, new cur = 0xf7fbc080
data at 0xf7fbc080(=>0xf7fbc088): SEXP
tag(cons) 2 0xf7fbc0c8
len = 4, new cur = 0xf7fbc0c0
data at 0xf7fbc0c0(=>0xf7fbc0c8): SEXP
tag(cons) 3 0xf7fbc108
len = 4, new cur = 0xf7fbc100
data at 0xf7fbc100(=>0xf7fbc108): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fbc140
data at 0xf7fbc140
printFromSpace: end!
===================
Bsexp: allocate 16!
alloc: current: f7fbc180 16;new current: f7fbc1c0
Bsexp: allocate 16!
alloc: call gc: 16
HEAP SNAPSHOT
===================
f_begin = 0xf7fbc000, f_end = 0xf7fbc200,
data at 0xf7fbc000(=>0xf7fbc008): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fbc040
data at 0xf7fbc040(=>0xf7fbc048): SEXP
tag(cons) 1 0xf7fbc088
len = 4, new cur = 0xf7fbc080
data at 0xf7fbc080(=>0xf7fbc088): SEXP
tag(cons) 2 0xf7fbc0c8
len = 4, new cur = 0xf7fbc0c0
data at 0xf7fbc0c0(=>0xf7fbc0c8): SEXP
tag(cons) 3 0xf7fbc108
len = 4, new cur = 0xf7fbc100
data at 0xf7fbc100(=>0xf7fbc108): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fbc140
data at 0xf7fbc140(=>0xf7fbc148): SEXP
tag(cons) 6 0
len = 4, new cur = 0xf7fbc180
data at 0xf7fbc180(=>0xf7fbc188): SEXP
tag(cons) 5 0xf7fbc148
len = 4, new cur = 0xf7fbc1c0
gc: current: f7fe9000; to_space.b = f7fe9000; to_space.e = f7fe9200; f_space.b = f7fbc000; f_space.e = f7fbc200
gc: data is scanned
gc_test_and_copy_root: root ff98e394 f7fbc188
gc_copy: f7fbc188 cur = f7fe9000 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc148 cur = f7fe9040 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc148 (f7fbc140) -> f7fe9048 (f7fe9040); new-current = f7fe9080
copy_elements: fix f7fbc188: f7fe9048
gc_copy: f7fbc188 (f7fbc180) -> f7fe9008 (f7fe9000); new-current = f7fe9080
gc_test_and_copy_root: root ff98e3a0 f7fbc008
gc_copy: f7fbc008 cur = f7fe9080 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc008 (f7fbc000) -> f7fe9088 (f7fe9080); new-current = f7fe90c0
gc_test_and_copy_root: root ff98e3a4 f7fbc048
gc_copy: f7fbc048 cur = f7fe90c0 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc088 cur = f7fe9100 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc0c8 cur = f7fe9140 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc108 cur = f7fe9180 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fbc108 (f7fbc100) -> f7fe9188 (f7fe9180); new-current = f7fe91c0
copy_elements: fix f7fbc0c8: f7fe9188
gc_copy: f7fbc0c8 (f7fbc0c0) -> f7fe9148 (f7fe9140); new-current = f7fe91c0
copy_elements: fix f7fbc088: f7fe9148
gc_copy: f7fbc088 (f7fbc080) -> f7fe9108 (f7fe9100); new-current = f7fe91c0
copy_elements: fix f7fbc048: f7fe9108
gc_copy: f7fbc048 (f7fbc040) -> f7fe90c8 (f7fe90c0); new-current = f7fe91c0
gc pre-extend_spaces : f7fe91c0 10 f7fe9200
extend: 0xf7fbc000 0xf7fe9000 0xf7fbc000 0xf7fe9000
extend: 0xf7fbc200 0xf7fe9200 0xf7fe91c0
gc post-extend_spaces: f7fe91c0 10 f7fe9400
gc: end: (allocate!) return f7fe91c0; from_space.current f7fe9200; from_space.end
gc END
HEAP SNAPSHOT
===================
f_begin = 0xf7fe9000, f_end = 0xf7fe9400,
data at 0xf7fe9000(=>0xf7fe9008): SEXP
tag(cons) 5 0xf7fe9048
len = 4, new cur = 0xf7fe9040
data at 0xf7fe9040(=>0xf7fe9048): SEXP
tag(cons) 6 0
len = 4, new cur = 0xf7fe9080
data at 0xf7fe9080(=>0xf7fe9088): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fe90c0
data at 0xf7fe90c0(=>0xf7fe90c8): SEXP
tag(cons) 1 0xf7fe9108
len = 4, new cur = 0xf7fe9100
data at 0xf7fe9100(=>0xf7fe9108): SEXP
tag(cons) 2 0xf7fe9148
len = 4, new cur = 0xf7fe9140
data at 0xf7fe9140(=>0xf7fe9148): SEXP
tag(cons) 3 0xf7fe9188
len = 4, new cur = 0xf7fe9180
data at 0xf7fe9180(=>0xf7fe9188): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fe91c0
data at 0xf7fe91c0
printFromSpace: end!
===================
Bsexp: allocate 16!
alloc: current: f7fe9200 16;new current: f7fe9240
Bsexp: allocate 16!
alloc: current: f7fe9240 16;new current: f7fe9280
Bsexp: allocate 16!
alloc: current: f7fe9280 16;new current: f7fe92c0
Bsexp: allocate 16!
alloc: current: f7fe92c0 16;new current: f7fe9300
Bsexp: allocate 16!
alloc: current: f7fe9300 16;new current: f7fe9340
Bsexp: allocate 16!
alloc: current: f7fe9340 16;new current: f7fe9380
Bsexp: allocate 16!
alloc: current: f7fe9380 16;new current: f7fe93c0
Bsexp: allocate 16!
alloc: call gc: 16
HEAP SNAPSHOT
===================
f_begin = 0xf7fe9000, f_end = 0xf7fe9400,
data at 0xf7fe9000(=>0xf7fe9008): SEXP
tag(cons) 5 0xf7fe9048
len = 4, new cur = 0xf7fe9040
data at 0xf7fe9040(=>0xf7fe9048): SEXP
tag(cons) 6 0
len = 4, new cur = 0xf7fe9080
data at 0xf7fe9080(=>0xf7fe9088): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fe90c0
data at 0xf7fe90c0(=>0xf7fe90c8): SEXP
tag(cons) 1 0xf7fe9108
len = 4, new cur = 0xf7fe9100
data at 0xf7fe9100(=>0xf7fe9108): SEXP
tag(cons) 2 0xf7fe9148
len = 4, new cur = 0xf7fe9140
data at 0xf7fe9140(=>0xf7fe9148): SEXP
tag(cons) 3 0xf7fe9188
len = 4, new cur = 0xf7fe9180
data at 0xf7fe9180(=>0xf7fe9188): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fe91c0
data at 0xf7fe91c0(=>0xf7fe91c8): SEXP
tag(cons) 0xf7fe9008 0
len = 4, new cur = 0xf7fe9200
data at 0xf7fe9200(=>0xf7fe9208): SEXP
tag(cons) 4 0xf7fe91c8
len = 4, new cur = 0xf7fe9240
data at 0xf7fe9240(=>0xf7fe9248): SEXP
tag(cons) 0xf7fe9208 0
len = 4, new cur = 0xf7fe9280
data at 0xf7fe9280(=>0xf7fe9288): SEXP
tag(cons) 0xf7fe9188 0xf7fe9248
len = 4, new cur = 0xf7fe92c0
data at 0xf7fe92c0(=>0xf7fe92c8): SEXP
tag(cons) 0xf7fe9088 0xf7fe9288
len = 4, new cur = 0xf7fe9300
data at 0xf7fe9300(=>0xf7fe9308): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fe9340
data at 0xf7fe9340(=>0xf7fe9348): SEXP
tag(cons) 3 0xf7fe9308
len = 4, new cur = 0xf7fe9380
data at 0xf7fe9380(=>0xf7fe9388): SEXP
tag(cons) 2 0xf7fe9348
len = 4, new cur = 0xf7fe93c0
gc: current: f7fbc000; to_space.b = f7fbc000; to_space.e = f7fbc400; f_space.b = f7fe9000; f_space.e = f7fe9400
gc: data is scanned
gc_test_and_copy_root: root ff98e398 f7fe9388
gc_copy: f7fe9388 cur = f7fbc000 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9348 cur = f7fbc040 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9308 cur = f7fbc080 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9308 (f7fe9300) -> f7fbc088 (f7fbc080); new-current = f7fbc0c0
copy_elements: fix f7fe9348: f7fbc088
gc_copy: f7fe9348 (f7fe9340) -> f7fbc048 (f7fbc040); new-current = f7fbc0c0
copy_elements: fix f7fe9388: f7fbc048
gc_copy: f7fe9388 (f7fe9380) -> f7fbc008 (f7fbc000); new-current = f7fbc0c0
gc_test_and_copy_root: root ff98e3a0 f7fe92c8
gc_copy: f7fe92c8 cur = f7fbc0c0 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9088 cur = f7fbc100 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9088 (f7fe9080) -> f7fbc108 (f7fbc100); new-current = f7fbc140
copy_elements: fix f7fe92c8: f7fbc108
gc_copy: f7fe9288 cur = f7fbc140 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9188 cur = f7fbc180 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9188 (f7fe9180) -> f7fbc188 (f7fbc180); new-current = f7fbc1c0
copy_elements: fix f7fe9288: f7fbc188
gc_copy: f7fe9248 cur = f7fbc1c0 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9208 cur = f7fbc200 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe91c8 cur = f7fbc240 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9008 cur = f7fbc280 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9048 cur = f7fbc2c0 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9048 (f7fe9040) -> f7fbc2c8 (f7fbc2c0); new-current = f7fbc300
copy_elements: fix f7fe9008: f7fbc2c8
gc_copy: f7fe9008 (f7fe9000) -> f7fbc288 (f7fbc280); new-current = f7fbc300
copy_elements: fix f7fe91c8: f7fbc288
gc_copy: f7fe91c8 (f7fe91c0) -> f7fbc248 (f7fbc240); new-current = f7fbc300
copy_elements: fix f7fe9208: f7fbc248
gc_copy: f7fe9208 (f7fe9200) -> f7fbc208 (f7fbc200); new-current = f7fbc300
copy_elements: fix f7fe9248: f7fbc208
gc_copy: f7fe9248 (f7fe9240) -> f7fbc1c8 (f7fbc1c0); new-current = f7fbc300
copy_elements: fix f7fe9288: f7fbc1c8
gc_copy: f7fe9288 (f7fe9280) -> f7fbc148 (f7fbc140); new-current = f7fbc300
copy_elements: fix f7fe92c8: f7fbc148
gc_copy: f7fe92c8 (f7fe92c0) -> f7fbc0c8 (f7fbc0c0); new-current = f7fbc300
gc_test_and_copy_root: root ff98e3a4 f7fe90c8
gc_copy: f7fe90c8 cur = f7fbc300 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9108 cur = f7fbc340 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9148 cur = f7fbc380 starts
len1 = 2, len2=848787, len3 = 2
gc_copy: f7fe9188 cur = f7fbc3c0 starts
gc_copy: IS_FORWARD_PTR: return! f7fbc188
copy_elements: fix f7fe9148: f7fbc188
gc_copy: f7fe9148 (f7fe9140) -> f7fbc388 (f7fbc380); new-current = f7fbc3c0
copy_elements: fix f7fe9108: f7fbc388
gc_copy: f7fe9108 (f7fe9100) -> f7fbc348 (f7fbc340); new-current = f7fbc3c0
copy_elements: fix f7fe90c8: f7fbc348
gc_copy: f7fe90c8 (f7fe90c0) -> f7fbc308 (f7fbc300); new-current = f7fbc3c0
gc pre-extend_spaces : f7fbc3c0 10 f7fbc400
extend: 0xf7fe9000 0xf7fbc000 0xf7fe9000 0xf7fbc000
extend: 0xf7fe9400 0xf7fbc400 0xf7fbc3c0
gc post-extend_spaces: f7fbc3c0 10 f7fbc800
gc: end: (allocate!) return f7fbc3c0; from_space.current f7fbc400; from_space.end
gc END
HEAP SNAPSHOT
===================
f_begin = 0xf7fbc000, f_end = 0xf7fbc800,
data at 0xf7fbc000(=>0xf7fbc008): SEXP
tag(cons) 2 0xf7fbc048
len = 4, new cur = 0xf7fbc040
data at 0xf7fbc040(=>0xf7fbc048): SEXP
tag(cons) 3 0xf7fbc088
len = 4, new cur = 0xf7fbc080
data at 0xf7fbc080(=>0xf7fbc088): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fbc0c0
data at 0xf7fbc0c0(=>0xf7fbc0c8): SEXP
tag(cons) 0xf7fbc108 0xf7fbc148
len = 4, new cur = 0xf7fbc100
data at 0xf7fbc100(=>0xf7fbc108): SEXP
tag(cons) 1 0
len = 4, new cur = 0xf7fbc140
data at 0xf7fbc140(=>0xf7fbc148): SEXP
tag(cons) 0xf7fbc188 0xf7fbc1c8
len = 4, new cur = 0xf7fbc180
data at 0xf7fbc180(=>0xf7fbc188): SEXP
tag(cons) 4 0
len = 4, new cur = 0xf7fbc1c0
data at 0xf7fbc1c0(=>0xf7fbc1c8): SEXP
tag(cons) 0xf7fbc208 0
len = 4, new cur = 0xf7fbc200
data at 0xf7fbc200(=>0xf7fbc208): SEXP
tag(cons) 4 0xf7fbc248
len = 4, new cur = 0xf7fbc240
data at 0xf7fbc240(=>0xf7fbc248): SEXP
tag(cons) 0xf7fbc288 0
len = 4, new cur = 0xf7fbc280
data at 0xf7fbc280(=>0xf7fbc288): SEXP
tag(cons) 5 0xf7fbc2c8
len = 4, new cur = 0xf7fbc2c0
data at 0xf7fbc2c0(=>0xf7fbc2c8): SEXP
tag(cons) 6 0
len = 4, new cur = 0xf7fbc300
data at 0xf7fbc300(=>0xf7fbc308): SEXP
tag(cons) 1 0xf7fbc348
len = 4, new cur = 0xf7fbc340
data at 0xf7fbc340(=>0xf7fbc348): SEXP
tag(cons) 2 0xf7fbc388
len = 4, new cur = 0xf7fbc380
data at 0xf7fbc380(=>0xf7fbc388): SEXP
tag(cons) 3 0xf7fbc188
len = 4, new cur = 0xf7fbc3c0
data at 0xf7fbc3c0
printFromSpace: end!
===================
Barray: create n = 4
alloc: current: f7fbc400 20;new current: f7fbc450
alloc: current: f7fbc450 8;new current: f7fbc470
alloc: current: f7fbc470 6;new current: f7fbc488
0
alloc: current: f7fbc488 8;new current: f7fbc4a8
alloc: current: f7fbc4a8 17;new current: f7fbc4ec
{1, 2, 3, 4}
alloc: current: f7fbc4ec 8;new current: f7fbc50c
alloc: current: f7fbc50c 28;new current: f7fbc57c
{{1}, {4}, {4, {5, 6}}}
alloc: current: f7fbc57c 8;new current: f7fbc59c
alloc: current: f7fbc59c 17;new current: f7fbc5e0
{1, 2, 3, 4}

View file

@ -1,578 +0,0 @@
.data
filler: .fill 6, 4, 1
.globl __gc_data_start
.globl __gc_data_end
__gc_data_start:
global_i: .int 1
global_lists: .int 1
__gc_data_end:
string_0: .string "%s\n"
.text
.globl main
# LABEL ("main") / []
main:
# BEGIN ("main", [], []) / []
pushl %ebp
movl %esp, %ebp
subl $Lmain_SIZE, %esp
movl %esp, %edi
movl $filler, %esi
movl $LSmain_SIZE, %ecx
rep movsl
# CALL ("L__gc_init", 0) / []
call L__gc_init
addl $0, %esp
movl %eax, %ebx
# DROP / [R (0)]
# LDA ("lists") / []
leal global_lists, %ebx
# CONST (0) / [R (0)]
movl $1, %ecx
# CONST (1) / [R (1); R (0)]
movl $3, %esi
# CONST (2) / [R (2); R (1); R (0)]
movl $5, %edi
# CONST (3) / [R (3); R (2); R (1); R (0)]
movl $7, -4(%ebp)
# CONST (4) / [S (0); R (3); R (2); R (1); R (0)]
movl $9, -8(%ebp)
# CONST (0) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -12(%ebp)
# SEXP ("cons", 2) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -16(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -16(%ebp)
pushl -12(%ebp)
pushl -8(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -8(%ebp)
# SEXP ("cons", 2) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -12(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -12(%ebp)
pushl -8(%ebp)
pushl -4(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -4(%ebp)
# SEXP ("cons", 2) / [S (0); R (3); R (2); R (1); R (0)]
movl $848787, -8(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl -8(%ebp)
pushl -4(%ebp)
pushl %edi
pushl $3
call Bsexp
addl $16, %esp
popl %esi
popl %ecx
popl %ebx
movl %eax, %edi
# SEXP ("cons", 2) / [R (3); R (2); R (1); R (0)]
movl $848787, -4(%ebp)
pushl %ebx
pushl %ecx
pushl -4(%ebp)
pushl %edi
pushl %esi
pushl $3
call Bsexp
addl $16, %esp
popl %ecx
popl %ebx
movl %eax, %esi
# CONST (1) / [R (2); R (1); R (0)]
movl $3, %edi
# CONST (0) / [R (3); R (2); R (1); R (0)]
movl $1, -4(%ebp)
# SEXP ("cons", 2) / [S (0); R (3); R (2); R (1); R (0)]
movl $848787, -8(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl -8(%ebp)
pushl -4(%ebp)
pushl %edi
pushl $3
call Bsexp
addl $16, %esp
popl %esi
popl %ecx
popl %ebx
movl %eax, %edi
# CONST (2) / [R (3); R (2); R (1); R (0)]
movl $5, -4(%ebp)
# CONST (3) / [S (0); R (3); R (2); R (1); R (0)]
movl $7, -8(%ebp)
# CONST (0) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -12(%ebp)
# SEXP ("cons", 2) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -16(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -16(%ebp)
pushl -12(%ebp)
pushl -8(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -8(%ebp)
# SEXP ("cons", 2) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -12(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -12(%ebp)
pushl -8(%ebp)
pushl -4(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -4(%ebp)
# CONST (4) / [S (0); R (3); R (2); R (1); R (0)]
movl $9, -8(%ebp)
# CONST (5) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $11, -12(%ebp)
# CONST (6) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $13, -16(%ebp)
# CONST (0) / [S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -20(%ebp)
# SEXP ("cons", 2) / [S (4); S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -24(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -24(%ebp)
pushl -20(%ebp)
pushl -16(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -16(%ebp)
# SEXP ("cons", 2) / [S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -20(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -20(%ebp)
pushl -16(%ebp)
pushl -12(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -12(%ebp)
# CONST (0) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -16(%ebp)
# SEXP ("cons", 2) / [S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -20(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -20(%ebp)
pushl -16(%ebp)
pushl -12(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -12(%ebp)
# SEXP ("cons", 2) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -16(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -16(%ebp)
pushl -12(%ebp)
pushl -8(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -8(%ebp)
# CONST (0) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -12(%ebp)
# SEXP ("cons", 2) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -16(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -16(%ebp)
pushl -12(%ebp)
pushl -8(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -8(%ebp)
# SEXP ("cons", 2) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -12(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -12(%ebp)
pushl -8(%ebp)
pushl -4(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -4(%ebp)
# SEXP ("cons", 2) / [S (0); R (3); R (2); R (1); R (0)]
movl $848787, -8(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl -8(%ebp)
pushl -4(%ebp)
pushl %edi
pushl $3
call Bsexp
addl $16, %esp
popl %esi
popl %ecx
popl %ebx
movl %eax, %edi
# CONST (1) / [R (3); R (2); R (1); R (0)]
movl $3, -4(%ebp)
# CONST (2) / [S (0); R (3); R (2); R (1); R (0)]
movl $5, -8(%ebp)
# CONST (3) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $7, -12(%ebp)
# CONST (4) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $9, -16(%ebp)
# CONST (0) / [S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $1, -20(%ebp)
# SEXP ("cons", 2) / [S (4); S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -24(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -24(%ebp)
pushl -20(%ebp)
pushl -16(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -16(%ebp)
# SEXP ("cons", 2) / [S (3); S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -20(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -20(%ebp)
pushl -16(%ebp)
pushl -12(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -12(%ebp)
# SEXP ("cons", 2) / [S (2); S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -16(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -16(%ebp)
pushl -12(%ebp)
pushl -8(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -8(%ebp)
# SEXP ("cons", 2) / [S (1); S (0); R (3); R (2); R (1); R (0)]
movl $848787, -12(%ebp)
pushl %ebx
pushl %ecx
pushl %esi
pushl %edi
pushl -12(%ebp)
pushl -8(%ebp)
pushl -4(%ebp)
pushl $3
call Bsexp
addl $16, %esp
popl %edi
popl %esi
popl %ecx
popl %ebx
movl %eax, -4(%ebp)
# CALL (".array", 4) / [S (0); R (3); R (2); R (1); R (0)]
pushl %ebx
pushl -4(%ebp)
pushl %edi
pushl %esi
pushl %ecx
pushl $4
call Barray
addl $20, %esp
popl %ebx
movl %eax, %ecx
# STI / [R (1); R (0)]
movl %ecx, %eax
movl %eax, (%ebx)
movl %eax, %ebx
# DROP / [R (0)]
# LDA ("i") / []
leal global_i, %ebx
# CONST (0) / [R (0)]
movl $1, %ecx
# STI / [R (1); R (0)]
movl %ecx, %eax
movl %eax, (%ebx)
movl %eax, %ebx
# DROP / [R (0)]
# JMP ("L55") / []
jmp L55
# LABEL ("L54") / []
L54:
# STRING ("%s\\n") / []
movl $string_0, %ebx
pushl %ebx
call Bstring
addl $4, %esp
movl %eax, %ebx
# LD ("lists") / [R (0)]
movl global_lists, %ecx
# LD ("i") / [R (1); R (0)]
movl global_i, %esi
# CALL (".elem", 2) / [R (2); R (1); R (0)]
pushl %ebx
pushl %esi
pushl %ecx
call Belem
addl $8, %esp
popl %ebx
movl %eax, %ecx
# CALL (".stringval", 1) / [R (1); R (0)]
pushl %ebx
pushl %ecx
call Bstringval
addl $4, %esp
popl %ebx
movl %eax, %ecx
# CALL ("Lprintf", 2) / [R (1); R (0)]
pushl %ecx
pushl %ebx
call Lprintf
addl $8, %esp
movl %eax, %ebx
# DROP / [R (0)]
# LDA ("i") / []
leal global_i, %ebx
# LD ("i") / [R (0)]
movl global_i, %ecx
# CONST (1) / [R (1); R (0)]
movl $3, %esi
# BINOP ("+") / [R (2); R (1); R (0)]
addl %esi, %ecx
decl %ecx
# STI / [R (1); R (0)]
movl %ecx, %eax
movl %eax, (%ebx)
movl %eax, %ebx
# DROP / [R (0)]
# LABEL ("L55") / []
L55:
# LD ("i") / []
movl global_i, %ebx
# LD ("lists") / [R (0)]
movl global_lists, %ecx
# CALL (".length", 1) / [R (1); R (0)]
pushl %ebx
pushl %ecx
call Blength
addl $4, %esp
popl %ebx
movl %eax, %ecx
# BINOP ("<") / [R (1); R (0)]
xorl %eax, %eax
cmpl %ecx, %ebx
setl %al
sall %eax
orl $0x0001, %eax
movl %eax, %ebx
# CJMP ("nz", "L54") / [R (0)]
sarl %ebx
cmpl $0, %ebx
jnz L54
# CONST (0) / []
movl $1, %ebx
# CALL ("Lraw", 1) / [R (0)]
pushl %ebx
call Lraw
addl $4, %esp
movl %eax, %ebx
# RET / [R (0)]
movl %ebx, %eax
jmp Lmain_epilogue
# END / []
Lmain_epilogue:
movl %ebp, %esp
popl %ebp
ret
.set Lmain_SIZE, 24
.set LSmain_SIZE, 6