Skip to content

Instantly share code, notes, and snippets.

@agam
Created March 20, 2013 07:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save agam/5202839 to your computer and use it in GitHub Desktop.
Save agam/5202839 to your computer and use it in GitHub Desktop.
Simple loop in haskell: data.vector
.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