Created
March 20, 2013 07:05
-
-
Save agam/5202839 to your computer and use it in GitHub Desktop.
Simple loop in haskell: data.vector
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
.data | |
.align 8 | |
.align 1 | |
.globl __stginit_Main | |
.type __stginit_Main, @object | |
__stginit_Main: | |
.globl __stginit_ZCMain | |
.type __stginit_ZCMain, @object | |
__stginit_ZCMain: | |
.section .data | |
.align 8 | |
.align 1 | |
sFO_srt: | |
.quad vectorzm0zi9zi1_DataziVector_fromList_closure | |
.data | |
.align 8 | |
.align 1 | |
sFO_closure: | |
.quad sFO_info | |
.quad 0 | |
.quad 0 | |
.quad 0 | |
.text | |
.align 8 | |
.long sFO_srt-(sFO_info)+0 | |
.long 0 | |
.quad 0 | |
.quad 4294967318 | |
sFO_info: | |
.LcG3: | |
leaq -16(%rbp),%rax | |
cmpq %r15,%rax | |
jb .LcG5 | |
addq $336,%r12 | |
cmpq 144(%r13),%r12 | |
ja .LcG7 | |
movq $stg_CAF_BLACKHOLE_info,-328(%r12) | |
movq 160(%r13),%rax | |
movq %rax,-320(%r12) | |
movq %r13,%rdi | |
movq %rbx,%rsi | |
leaq -328(%r12),%rdx | |
subq $8,%rsp | |
movl $0,%eax | |
call newCAF | |
addq $8,%rsp | |
testq %rax,%rax | |
je .LcG8 | |
.LcG9: | |
movq $stg_bh_upd_frame_info,-16(%rbp) | |
leaq -328(%r12),%rax | |
movq %rax,-8(%rbp) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-312(%r12) | |
movq $89,-304(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-296(%r12) | |
leaq -311(%r12),%rax | |
movq %rax,-288(%r12) | |
movq $ghczmprim_GHCziTypes_ZMZN_closure+1,-280(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-272(%r12) | |
movq $78,-264(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-256(%r12) | |
leaq -271(%r12),%rax | |
movq %rax,-248(%r12) | |
leaq -294(%r12),%rax | |
movq %rax,-240(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-232(%r12) | |
movq $67,-224(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-216(%r12) | |
leaq -231(%r12),%rax | |
movq %rax,-208(%r12) | |
leaq -254(%r12),%rax | |
movq %rax,-200(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-192(%r12) | |
movq $56,-184(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-176(%r12) | |
leaq -191(%r12),%rax | |
movq %rax,-168(%r12) | |
leaq -214(%r12),%rax | |
movq %rax,-160(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-152(%r12) | |
movq $45,-144(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-136(%r12) | |
leaq -151(%r12),%rax | |
movq %rax,-128(%r12) | |
leaq -174(%r12),%rax | |
movq %rax,-120(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-112(%r12) | |
movq $34,-104(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-96(%r12) | |
leaq -111(%r12),%rax | |
movq %rax,-88(%r12) | |
leaq -134(%r12),%rax | |
movq %rax,-80(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-72(%r12) | |
movq $23,-64(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-56(%r12) | |
leaq -71(%r12),%rax | |
movq %rax,-48(%r12) | |
leaq -94(%r12),%rax | |
movq %rax,-40(%r12) | |
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-32(%r12) | |
movq $12,-24(%r12) | |
movq $ghczmprim_GHCziTypes_ZC_con_info,-16(%r12) | |
leaq -31(%r12),%rax | |
movq %rax,-8(%r12) | |
leaq -54(%r12),%rax | |
movq %rax,0(%r12) | |
movl $vectorzm0zi9zi1_DataziVector_fromList_closure,%ebx | |
leaq -14(%r12),%r14 | |
addq $-16,%rbp | |
jmp stg_ap_p_fast | |
.LcG7: | |
movq $336,192(%r13) | |
.LcG5: | |
jmp *-16(%r13) | |
.LcG8: | |
jmp *(%rbx) | |
.size sFO_info, .-sFO_info | |
.section .data | |
.align 8 | |
.align 1 | |
sFP_srt: | |
.quad base_SystemziIO_print_closure | |
.quad base_GHCziShow_zdfShowInteger_closure | |
.data | |
.align 8 | |
.align 1 | |
sFP_closure: | |
.quad sFP_info | |
.quad 0 | |
.quad 0 | |
.quad 0 | |
.text | |
.align 8 | |
.long sFP_srt-(sFP_info)+0 | |
.long 0 | |
.quad 0 | |
.quad 12884901910 | |
sFP_info: | |
.LcGF: | |
leaq -16(%rbp),%rax | |
cmpq %r15,%rax | |
jb .LcGH | |
addq $16,%r12 | |
cmpq 144(%r13),%r12 | |
ja .LcGJ | |
movq $stg_CAF_BLACKHOLE_info,-8(%r12) | |
movq 160(%r13),%rax | |
movq %rax,0(%r12) | |
movq %r13,%rdi | |
movq %rbx,%rsi | |
leaq -8(%r12),%rdx | |
subq $8,%rsp | |
movl $0,%eax | |
call newCAF | |
addq $8,%rsp | |
testq %rax,%rax | |
je .LcGK | |
.LcGL: | |
movq $stg_bh_upd_frame_info,-16(%rbp) | |
leaq -8(%r12),%rax | |
movq %rax,-8(%rbp) | |
movl $base_SystemziIO_print_closure,%ebx | |
movl $base_GHCziShow_zdfShowInteger_closure,%r14d | |
addq $-16,%rbp | |
jmp stg_ap_p_fast | |
.LcGJ: | |
movq $16,192(%r13) | |
.LcGH: | |
jmp *-16(%r13) | |
.LcGK: | |
jmp *(%rbx) | |
.size sFP_info, .-sFP_info | |
.section .data | |
.align 8 | |
.align 1 | |
Main_main_srt: | |
.quad vectorzm0zi9zi1_DataziVector_mapMzu_closure | |
.quad base_GHCziBase_zdfMonadIO_closure | |
.quad sFO_closure | |
.quad sFP_closure | |
.data | |
.align 8 | |
.align 1 | |
.globl Main_main_closure | |
.type Main_main_closure, @object | |
Main_main_closure: | |
.quad Main_main_info | |
.quad 0 | |
.quad 0 | |
.quad 0 | |
.text | |
.align 8 | |
.long Main_main_srt-(Main_main_info)+0 | |
.long 0 | |
.quad 0 | |
.quad 64424509462 | |
.globl Main_main_info | |
.type Main_main_info, @object | |
Main_main_info: | |
.LcH2: | |
leaq -16(%rbp),%rax | |
cmpq %r15,%rax | |
jb .LcH4 | |
addq $16,%r12 | |
cmpq 144(%r13),%r12 | |
ja .LcH6 | |
movq $stg_CAF_BLACKHOLE_info,-8(%r12) | |
movq 160(%r13),%rax | |
movq %rax,0(%r12) | |
movq %r13,%rdi | |
movq %rbx,%rsi | |
leaq -8(%r12),%rdx | |
subq $8,%rsp | |
movl $0,%eax | |
call newCAF | |
addq $8,%rsp | |
testq %rax,%rax | |
je .LcH7 | |
.LcH8: | |
movq $stg_bh_upd_frame_info,-16(%rbp) | |
leaq -8(%r12),%rax | |
movq %rax,-8(%rbp) | |
movl $vectorzm0zi9zi1_DataziVector_mapMzu_closure,%ebx | |
movl $base_GHCziBase_zdfMonadIO_closure,%r14d | |
movl $sFP_closure,%esi | |
movl $sFO_closure,%edi | |
addq $-16,%rbp | |
jmp stg_ap_ppp_fast | |
.LcH6: | |
movq $16,192(%r13) | |
.LcH4: | |
jmp *-16(%r13) | |
.LcH7: | |
jmp *(%rbx) | |
.size Main_main_info, .-Main_main_info | |
.section .data | |
.align 8 | |
.align 1 | |
ZCMain_main_srt: | |
.quad base_GHCziTopHandler_runMainIO_closure | |
.quad Main_main_closure | |
.data | |
.align 8 | |
.align 1 | |
.globl ZCMain_main_closure | |
.type ZCMain_main_closure, @object | |
ZCMain_main_closure: | |
.quad ZCMain_main_info | |
.quad 0 | |
.quad 0 | |
.quad 0 | |
.text | |
.align 8 | |
.long ZCMain_main_srt-(ZCMain_main_info)+0 | |
.long 0 | |
.quad 0 | |
.quad 12884901910 | |
.globl ZCMain_main_info | |
.type ZCMain_main_info, @object | |
ZCMain_main_info: | |
.LcHp: | |
leaq -16(%rbp),%rax | |
cmpq %r15,%rax | |
jb .LcHr | |
addq $16,%r12 | |
cmpq 144(%r13),%r12 | |
ja .LcHt | |
movq $stg_CAF_BLACKHOLE_info,-8(%r12) | |
movq 160(%r13),%rax | |
movq %rax,0(%r12) | |
movq %r13,%rdi | |
movq %rbx,%rsi | |
leaq -8(%r12),%rdx | |
subq $8,%rsp | |
movl $0,%eax | |
call newCAF | |
addq $8,%rsp | |
testq %rax,%rax | |
je .LcHu | |
.LcHv: | |
movq $stg_bh_upd_frame_info,-16(%rbp) | |
leaq -8(%r12),%rax | |
movq %rax,-8(%rbp) | |
movl $base_GHCziTopHandler_runMainIO_closure,%ebx | |
movl $Main_main_closure,%r14d | |
addq $-16,%rbp | |
jmp stg_ap_p_fast | |
.LcHt: | |
movq $16,192(%r13) | |
.LcHr: | |
jmp *-16(%r13) | |
.LcHu: | |
jmp *(%rbx) | |
.size ZCMain_main_info, .-ZCMain_main_info | |
.section .note.GNU-stack,"",@progbits | |
.ident "GHC 7.4.1" |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment