Skip to content

Instantly share code, notes, and snippets.

@agam
Created March 20, 2013 06:45
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/5202781 to your computer and use it in GitHub Desktop.
Save agam/5202781 to your computer and use it in GitHub Desktop.
Simple loop in haskell: data.sequence
.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
sEN_srt:
.quad containerszm0zi4zi2zi1_DataziSequence_zbzg_closure
.quad containerszm0zi4zi2zi1_DataziSequence_singleton_closure
.data
.align 8
.align 1
sEN_closure:
.quad sEN_info
.quad 0
.quad 0
.quad 0
.text
.align 8
.long sEN_srt-(sEn_info)+8
.long 0
.quad 0
.quad 4294967312
sEn_info:
.LcFu:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcFw
addq $16,%r12
cmpq 144(%r13),%r12
ja .LcFy
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-8(%r12)
movq $12,0(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_singleton_closure,%ebx
leaq -7(%r12),%r14
addq $-16,%rbp
jmp stg_ap_p_fast
.LcFy:
movq $16,192(%r13)
.LcFw:
jmp *-16(%r13)
.size sEn_info, .-sEn_info
.text
.align 8
.long sEN_srt-(sEr_info)+0
.long 0
.quad 0
.quad 12884901904
sEr_info:
.LcFE:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcFG
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcFI
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $23,-16(%r12)
movq $sEn_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcFI:
movq $32,192(%r13)
.LcFG:
jmp *-16(%r13)
.size sEr_info, .-sEr_info
.text
.align 8
.long sEN_srt-(sEv_info)+0
.long 0
.quad 0
.quad 12884901904
sEv_info:
.LcFO:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcFQ
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcFS
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $34,-16(%r12)
movq $sEr_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcFS:
movq $32,192(%r13)
.LcFQ:
jmp *-16(%r13)
.size sEv_info, .-sEv_info
.text
.align 8
.long sEN_srt-(sEz_info)+0
.long 0
.quad 0
.quad 12884901904
sEz_info:
.LcFY:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcG0
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcG2
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $45,-16(%r12)
movq $sEv_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcG2:
movq $32,192(%r13)
.LcG0:
jmp *-16(%r13)
.size sEz_info, .-sEz_info
.text
.align 8
.long sEN_srt-(sED_info)+0
.long 0
.quad 0
.quad 12884901904
sED_info:
.LcG8:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcGa
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcGc
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $56,-16(%r12)
movq $sEz_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcGc:
movq $32,192(%r13)
.LcGa:
jmp *-16(%r13)
.size sED_info, .-sED_info
.text
.align 8
.long sEN_srt-(sEH_info)+0
.long 0
.quad 0
.quad 12884901904
sEH_info:
.LcGi:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcGk
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcGm
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $67,-16(%r12)
movq $sED_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcGm:
movq $32,192(%r13)
.LcGk:
jmp *-16(%r13)
.size sEH_info, .-sEH_info
.text
.align 8
.long sEN_srt-(sEL_info)+0
.long 0
.quad 0
.quad 12884901904
sEL_info:
.LcGs:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcGu
addq $32,%r12
cmpq 144(%r13),%r12
ja .LcGw
movq $stg_upd_frame_info,-16(%rbp)
movq %rbx,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $78,-16(%r12)
movq $sEH_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcGw:
movq $32,192(%r13)
.LcGu:
jmp *-16(%r13)
.size sEL_info, .-sEL_info
.text
.align 8
.long sEN_srt-(sEN_info)+0
.long 0
.quad 0
.quad 12884901910
sEN_info:
.LcGC:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcGE
addq $48,%r12
cmpq 144(%r13),%r12
ja .LcGG
movq $stg_CAF_BLACKHOLE_info,-40(%r12)
movq 160(%r13),%rax
movq %rax,-32(%r12)
movq %r13,%rdi
movq %rbx,%rsi
leaq -40(%r12),%rdx
subq $8,%rsp
movl $0,%eax
call newCAF
addq $8,%rsp
testq %rax,%rax
je .LcGH
.LcGI:
movq $stg_bh_upd_frame_info,-16(%rbp)
leaq -40(%r12),%rax
movq %rax,-8(%rbp)
movq $integerzmgmp_GHCziIntegerziType_Szh_con_info,-24(%r12)
movq $89,-16(%r12)
movq $sEL_info,-8(%r12)
movl $containerszm0zi4zi2zi1_DataziSequence_zbzg_closure,%ebx
leaq -8(%r12),%r14
leaq -23(%r12),%rsi
addq $-16,%rbp
jmp stg_ap_pp_fast
.LcGG:
movq $48,192(%r13)
.LcGE:
jmp *-16(%r13)
.LcGH:
jmp *(%rbx)
.size sEN_info, .-sEN_info
.section .data
.align 8
.align 1
sEO_srt:
.quad base_SystemziIO_print_closure
.quad base_GHCziShow_zdfShowInteger_closure
.data
.align 8
.align 1
sEO_closure:
.quad sEO_info
.quad 0
.quad 0
.quad 0
.text
.align 8
.long sEO_srt-(sEO_info)+0
.long 0
.quad 0
.quad 12884901910
sEO_info:
.LcGZ:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcH1
addq $16,%r12
cmpq 144(%r13),%r12
ja .LcH3
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 .LcH4
.LcH5:
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
.LcH3:
movq $16,192(%r13)
.LcH1:
jmp *-16(%r13)
.LcH4:
jmp *(%rbx)
.size sEO_info, .-sEO_info
.section .data
.align 8
.align 1
Main_main_srt:
.quad containerszm0zi4zi2zi1_DataziSequence_zdfFoldableSeq_closure
.quad base_DataziFoldable_mapMzu_closure
.quad base_GHCziBase_zdfMonadIO_closure
.quad sEN_closure
.quad sEO_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 133143986198
.globl Main_main_info
.type Main_main_info, @object
Main_main_info:
.LcHm:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcHo
addq $16,%r12
cmpq 144(%r13),%r12
ja .LcHq
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 .LcHr
.LcHs:
movq $stg_bh_upd_frame_info,-16(%rbp)
leaq -8(%r12),%rax
movq %rax,-8(%rbp)
movl $base_DataziFoldable_mapMzu_closure,%ebx
movl $containerszm0zi4zi2zi1_DataziSequence_zdfFoldableSeq_closure,%r14d
movl $base_GHCziBase_zdfMonadIO_closure,%esi
movl $sEO_closure,%edi
movl $sEN_closure,%r8d
addq $-16,%rbp
jmp stg_ap_pppp_fast
.LcHq:
movq $16,192(%r13)
.LcHo:
jmp *-16(%r13)
.LcHr:
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:
.LcHJ:
leaq -16(%rbp),%rax
cmpq %r15,%rax
jb .LcHL
addq $16,%r12
cmpq 144(%r13),%r12
ja .LcHN
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 .LcHO
.LcHP:
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
.LcHN:
movq $16,192(%r13)
.LcHL:
jmp *-16(%r13)
.LcHO:
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